tx · mXUacmQ3Fgh34SaZy7GCHkgvRPy6VysbnSm5VUnRpsc

3N9Tq8RmGw456c1eYphzoMyvtwJGrY98jfr:  -0.01400000 Waves

2022.04.07 15:42 [1998151] smart account 3N9Tq8RmGw456c1eYphzoMyvtwJGrY98jfr > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "mXUacmQ3Fgh34SaZy7GCHkgvRPy6VysbnSm5VUnRpsc",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1649335369381,
    "version": 2,
    "chainId": 84,
    "sender": "3N9Tq8RmGw456c1eYphzoMyvtwJGrY98jfr",
    "senderPublicKey": "He9ZSnjQZGhUkdUsMVVz4t6eAU1c2owedXGCfY1WZvnU",
    "proofs": [
        "xt9tLC4yPzaQXybM1QziD6iMybAbrYgLcuPq6zYch1YtECQfKzbUBvxT7fwfAtdM9cnu71hLa4VYjnH8GQRYtV8"
    ],
    "script": "base64:AAIFAAAAAAAAAB8IAhIFCgMIAQQSAwoBCBIDCgEIEgQKAggIEgQKAggIAAAAEwAAAAAQa1Byb3Bvc2VkQXNzZXRJZAIAAAATX3Byb3Bvc2VkX2Fzc2V0MV9pZAAAAAAUa1Byb3Bvc2VkQXNzZXRBbW91bnQCAAAAF19wcm9wb3NlZF9hc3NldDFfYW1vdW50AAAAAA9rRGVzaXJlZEFzc2V0SWQCAAAAEV9kZXNpcmVkX2Fzc2V0X2lkAAAAAA5rRGVzaXJlZEFtb3VudAIAAAAVX2Rlc2lyZWRfYXNzZXRfYW1vdW50AAAAAAdrU3RhdHVzAgAAAAdfc3RhdHVzAAAAAAZrT3duZXICAAAABl9vd25lcgAAAAAKa0Nsb3NlVHhJZAIAAAAMX2Nsb3NlX3R4X2lkAAAAAAhrUGFydGlhbAIAAAAIX3BhcnRpYWwAAAAAB2tGaWxsZWQCAAAAB19maWxsZWQAAAAACWtQcm9wb3NhbAIAAAAFcHJvcF8AAAAADmtQcm9wb3NhbFRvdGFsAgAAAApwcm9wX3RvdGFsAAAAAAxzdGF0dXNBY3RpdmUCAAAABkFjdGl2ZQAAAAAOc3RhdHVzQ2FuY2VsZWQCAAAACENhbmNlbGVkAAAAAApzdGF0dXNEb25lAgAAAAREb25lAAAAAAZzY2FsZTgAAAAAAAX14QAAAAAAB3Bvb2xGZWUAAAAAAAAAAB4AAAAACG9yZGVyRmVlAAAAAAAAAAAFAAAAAAxmZWVEZWxpbWl0ZXIAAAAAAAAAJxABAAAAEHJlYWRQcm9wb3NhbERhdGEAAAABAAAAAmlkBAAAAAZzdGF0dXMJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAR0aGlzCQABLAAAAAIFAAAAAmlkBQAAAAdrU3RhdHVzCQABLAAAAAIJAAEsAAAAAgIAAAASUHJvcG9zYWwgd2l0aCBpZCAnBQAAAAJpZAIAAAALJyBub3QgZm91bmQEAAAACW93bmVyQWRkcgkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAACaWQFAAAABmtPd25lcgIAAAANb3duZXIgbm90IHNldAQAAAAPcHJvcG9zZWRBc3NldElkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAJZAAAAAQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAACaWQFAAAAEGtQcm9wb3NlZEFzc2V0SWQCAAAAGFByb3Bvc2VkIGFzc2V0IG5vdCBmb3VuZAIAAAAbSW5jb3JyZWN0IHByb3Bvc2VkIGFzc2V0IGlkBAAAABNwcm9wb3NlZEFzc2V0QW1vdW50CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAAEdGhpcwkAASwAAAACBQAAAAJpZAUAAAAUa1Byb3Bvc2VkQXNzZXRBbW91bnQCAAAAGVByb3Bvc2VkIGFtb3VudCBub3QgZm91bmQEAAAADmRlc2lyZWRBc3NldElkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAJZAAAAAQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAACaWQFAAAAD2tEZXNpcmVkQXNzZXRJZAIAAAAXRGVzaXJlZCBhc3NldCBub3QgZm91bmQCAAAAGkluY29ycmVjdCBkZXNpcmVkIGFzc2V0IGlkBAAAABJkZXNpcmVkQXNzZXRBbW91bnQJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABBoAAAACBQAAAAR0aGlzCQABLAAAAAIFAAAAAmlkBQAAAA5rRGVzaXJlZEFtb3VudAIAAAAYRGVzaXJlZCBhbW91bnQgbm90IGZvdW5kBAAAAA5wYXJ0aWFsQWxsb3dlZAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEGwAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAACaWQFAAAACGtQYXJ0aWFsAgAAABlQYXJ0aWFsIHNldHRpbmcgaXNuJ3Qgc2V0BAAAAAZmaWxsZWQJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQaAAAAAgUAAAAEdGhpcwkAASwAAAACBQAAAAJpZAUAAAAHa0ZpbGxlZAAAAAAAAAAAAAQAAAADdHhzCQEAAAALdmFsdWVPckVsc2UAAAACCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAACaWQFAAAACmtDbG9zZVR4SWQCAAAAAAkABRsAAAAJBQAAAAZzdGF0dXMFAAAACW93bmVyQWRkcgUAAAAPcHJvcG9zZWRBc3NldElkBQAAABNwcm9wb3NlZEFzc2V0QW1vdW50BQAAAA5kZXNpcmVkQXNzZXRJZAUAAAASZGVzaXJlZEFzc2V0QW1vdW50BQAAAA5wYXJ0aWFsQWxsb3dlZAUAAAAGZmlsbGVkBQAAAAN0eHMAAAAFAAAAAWkBAAAADXBsYWNlUHJvcG9zYWwAAAADAAAAEmRlc2lyZVRvR2V0QXNzZXRJZAAAABFkZXNpcmVUb0dldEFtb3VudAAAAAdwYXJ0aWFsBAAAAAskdDAxOTYwMjA1OQkABRQAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQJAAJYAAAAAQkBAAAABXZhbHVlAAAAAQgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAQAAAAJcG10QW1vdW50CAUAAAALJHQwMTk2MDIwNTkAAAACXzEEAAAACnBtdEFzc2V0SWQIBQAAAAskdDAxOTYwMjA1OQAAAAJfMgQAAAACaWQJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAMJAQAAAAlpc0RlZmluZWQAAAABCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAACaWQFAAAAB2tTdGF0dXMJAAACAAAAAQIAAAAVSUQgYWxyZWFkeSByZWdpc3RlcmVkBAAAAApwcm9wX3RvdGFsCQEAAAALdmFsdWVPckVsc2UAAAACCQAEGgAAAAIFAAAABHRoaXMFAAAADmtQcm9wb3NhbFRvdGFsAAAAAAAAAAAACQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgUAAAAJa1Byb3Bvc2FsCQABpAAAAAEJAABkAAAAAgUAAAAKcHJvcF90b3RhbAAAAAAAAAAAAQUAAAACaWQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAADmtQcm9wb3NhbFRvdGFsCQAAZAAAAAIFAAAACnByb3BfdG90YWwAAAAAAAAAAAEJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAAJpZAUAAAAGa093bmVyCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAAAmlkBQAAABBrUHJvcG9zZWRBc3NldElkBQAAAApwbXRBc3NldElkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIFAAAAAmlkBQAAABRrUHJvcG9zZWRBc3NldEFtb3VudAUAAAAJcG10QW1vdW50CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgUAAAACaWQFAAAAD2tEZXNpcmVkQXNzZXRJZAUAAAASZGVzaXJlVG9HZXRBc3NldElkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIFAAAAAmlkBQAAAA5rRGVzaXJlZEFtb3VudAUAAAARZGVzaXJlVG9HZXRBbW91bnQJAARMAAAAAgkBAAAADEJvb2xlYW5FbnRyeQAAAAIJAAEsAAAAAgUAAAACaWQFAAAACGtQYXJ0aWFsBQAAAAdwYXJ0aWFsCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgUAAAACaWQFAAAAB2tTdGF0dXMFAAAADHN0YXR1c0FjdGl2ZQUAAAADbmlsAAAAAWkBAAAADmNhbmNlbFByb3Bvc2FsAAAAAQAAAAJpZAQAAAALJHQwMjc5NjI5NDUJAQAAABByZWFkUHJvcG9zYWxEYXRhAAAAAQUAAAACaWQEAAAABnN0YXR1cwgFAAAACyR0MDI3OTYyOTQ1AAAAAl8xBAAAAAlvd25lckFkZHIIBQAAAAskdDAyNzk2Mjk0NQAAAAJfMgQAAAAPcHJvcG9zZWRBc3NldElkCAUAAAALJHQwMjc5NjI5NDUAAAACXzMEAAAAE3Byb3Bvc2VkQXNzZXRBbW91bnQIBQAAAAskdDAyNzk2Mjk0NQAAAAJfNAQAAAAOZGVzaXJlZEFzc2V0SWQIBQAAAAskdDAyNzk2Mjk0NQAAAAJfNQQAAAASZGVzaXJlZEFzc2V0QW1vdW50CAUAAAALJHQwMjc5NjI5NDUAAAACXzYEAAAADnBhcnRpYWxBbGxvd2VkCAUAAAALJHQwMjc5NjI5NDUAAAACXzcEAAAABmZpbGxlZAgFAAAACyR0MDI3OTYyOTQ1AAAAAl84BAAAAAN0eHMIBQAAAAskdDAyNzk2Mjk0NQAAAAJfOQMJAQAAAAIhPQAAAAIFAAAABnN0YXR1cwUAAAAMc3RhdHVzQWN0aXZlCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAElByb3Bvc2FsIHdpdGggaWQgJwUAAAACaWQCAAAAGScgaXMgbm90IGFjdGl2ZS4gU3RhdHVzOiAFAAAABnN0YXR1cwkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAlvd25lckFkZHIJAABlAAAAAgUAAAATcHJvcG9zZWRBc3NldEFtb3VudAUAAAAGZmlsbGVkBQAAAA9wcm9wb3NlZEFzc2V0SWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAAJpZAUAAAAHa1N0YXR1cwUAAAAOc3RhdHVzQ2FuY2VsZWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAAJpZAUAAAAKa0Nsb3NlVHhJZAkAASwAAAACCQABLAAAAAIFAAAAA3R4cwIAAAABOgkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkBQAAAANuaWwAAAABaQEAAAAOYWNjZXB0UHJvcG9zYWwAAAABAAAAAmlkBAAAAAskdDAzMzI1MzQwOAkABRQAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQJAQAAAAV2YWx1ZQAAAAEICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQEAAAACXBtdEFtb3VudAgFAAAACyR0MDMzMjUzNDA4AAAAAl8xBAAAAApwbXRBc3NldElkCAUAAAALJHQwMzMyNTM0MDgAAAACXzIEAAAACyR0MDM0MTIzNTYxCQEAAAAQcmVhZFByb3Bvc2FsRGF0YQAAAAEFAAAAAmlkBAAAAAZzdGF0dXMIBQAAAAskdDAzNDEyMzU2MQAAAAJfMQQAAAAJb3duZXJBZGRyCAUAAAALJHQwMzQxMjM1NjEAAAACXzIEAAAAD3Byb3Bvc2VkQXNzZXRJZAgFAAAACyR0MDM0MTIzNTYxAAAAAl8zBAAAABNwcm9wb3NlZEFzc2V0QW1vdW50CAUAAAALJHQwMzQxMjM1NjEAAAACXzQEAAAADmRlc2lyZWRBc3NldElkCAUAAAALJHQwMzQxMjM1NjEAAAACXzUEAAAAEmRlc2lyZWRBc3NldEFtb3VudAgFAAAACyR0MDM0MTIzNTYxAAAAAl82BAAAAA5wYXJ0aWFsQWxsb3dlZAgFAAAACyR0MDM0MTIzNTYxAAAAAl83BAAAAAZmaWxsZWQIBQAAAAskdDAzNDEyMzU2MQAAAAJfOAQAAAADdHhzCAUAAAALJHQwMzQxMjM1NjEAAAACXzkDCQEAAAACIT0AAAACBQAAAAZzdGF0dXMFAAAADHN0YXR1c0FjdGl2ZQkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAABJQcm9wb3NhbCB3aXRoIGlkICcFAAAAAmlkAgAAABknIGlzIG5vdCBhY3RpdmUuIFN0YXR1czogBQAAAAZzdGF0dXMDCQEAAAACIT0AAAACBQAAAA5kZXNpcmVkQXNzZXRJZAUAAAAKcG10QXNzZXRJZAkAAAIAAAABAgAAACRBdGF0Y2hlZCBhc3NldCBkb2Vzbid0IG1hdGNoIGRlc2lyZWQEAAAACyR0MDM3NzM0MTAyAwkBAAAAASEAAAABBQAAAA5wYXJ0aWFsQWxsb3dlZAMJAQAAAAIhPQAAAAIFAAAAEmRlc2lyZWRBc3NldEFtb3VudAUAAAAJcG10QW1vdW50CQAAAgAAAAECAAAAI0F0dGFjaGVkIGFzc2V0IGFtb3VudCBkb2Vzbid0IG1hdGNoCQAFFAAAAAIFAAAACXBtdEFtb3VudAUAAAASZGVzaXJlZEFzc2V0QW1vdW50BAAAAAJhMQkAAZcAAAABCQAETAAAAAIFAAAACXBtdEFtb3VudAkABEwAAAACCQAAZQAAAAIFAAAAEmRlc2lyZWRBc3NldEFtb3VudAUAAAAGZmlsbGVkBQAAAANuaWwJAAUUAAAAAgUAAAACYTEJAABrAAAAAwUAAAATcHJvcG9zZWRBc3NldEFtb3VudAUAAAACYTEFAAAAEmRlc2lyZWRBc3NldEFtb3VudAQAAAAHYW1vdW50MQgFAAAACyR0MDM3NzM0MTAyAAAAAl8xBAAAAAdhbW91bnQyCAUAAAALJHQwMzc3MzQxMDIAAAACXzIEAAAACWZpbGxlZE5ldwkAAGQAAAACBQAAAAZmaWxsZWQFAAAAB2Ftb3VudDEEAAAACXN0YXR1c05ldwMJAAAAAAAAAgUAAAAJZmlsbGVkTmV3BQAAABJkZXNpcmVkQXNzZXRBbW91bnQFAAAACnN0YXR1c0RvbmUFAAAADHN0YXR1c0FjdGl2ZQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAlvd25lckFkZHIFAAAAB2Ftb3VudDEFAAAADmRlc2lyZWRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAHYW1vdW50MgUAAAAPcHJvcG9zZWRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGUAAAACBQAAAAlwbXRBbW91bnQFAAAAB2Ftb3VudDEFAAAADmRlc2lyZWRBc3NldElkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIFAAAAAmlkBQAAAAdrRmlsbGVkBQAAAAlmaWxsZWROZXcJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAAJpZAUAAAAHa1N0YXR1cwUAAAAJc3RhdHVzTmV3CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgUAAAACaWQFAAAACmtDbG9zZVR4SWQJAAEsAAAAAgkAASwAAAACBQAAAAN0eHMCAAAAAToJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAUAAAADbmlsAAAAAWkBAAAADm1hdGNoUHJvcG9zYWxzAAAAAgAAAANpZDEAAAADaWQyBAAAAAskdDA0NjUwNDgwOQkBAAAAEHJlYWRQcm9wb3NhbERhdGEAAAABBQAAAANpZDEEAAAAB3N0YXR1czEIBQAAAAskdDA0NjUwNDgwOQAAAAJfMQQAAAAKb3duZXJBZGRyMQgFAAAACyR0MDQ2NTA0ODA5AAAAAl8yBAAAABBwcm9wb3NlZEFzc2V0SWQxCAUAAAALJHQwNDY1MDQ4MDkAAAACXzMEAAAAFHByb3Bvc2VkQXNzZXRBbW91bnQxCAUAAAALJHQwNDY1MDQ4MDkAAAACXzQEAAAAD2Rlc2lyZWRBc3NldElkMQgFAAAACyR0MDQ2NTA0ODA5AAAAAl81BAAAABNkZXNpcmVkQXNzZXRBbW91bnQxCAUAAAALJHQwNDY1MDQ4MDkAAAACXzYEAAAAD3BhcnRpYWxBbGxvd2VkMQgFAAAACyR0MDQ2NTA0ODA5AAAAAl83BAAAAAdmaWxsZWQxCAUAAAALJHQwNDY1MDQ4MDkAAAACXzgEAAAABHR4czEIBQAAAAskdDA0NjUwNDgwOQAAAAJfOQQAAAALJHQwNDgxMjQ5NzEJAQAAABByZWFkUHJvcG9zYWxEYXRhAAAAAQUAAAADaWQyBAAAAAdzdGF0dXMyCAUAAAALJHQwNDgxMjQ5NzEAAAACXzEEAAAACm93bmVyQWRkcjIIBQAAAAskdDA0ODEyNDk3MQAAAAJfMgQAAAAQcHJvcG9zZWRBc3NldElkMggFAAAACyR0MDQ4MTI0OTcxAAAAAl8zBAAAABRwcm9wb3NlZEFzc2V0QW1vdW50MggFAAAACyR0MDQ4MTI0OTcxAAAAAl80BAAAAA9kZXNpcmVkQXNzZXRJZDIIBQAAAAskdDA0ODEyNDk3MQAAAAJfNQQAAAATZGVzaXJlZEFzc2V0QW1vdW50MggFAAAACyR0MDQ4MTI0OTcxAAAAAl82BAAAAA9wYXJ0aWFsQWxsb3dlZDIIBQAAAAskdDA0ODEyNDk3MQAAAAJfNwQAAAAHZmlsbGVkMggFAAAACyR0MDQ4MTI0OTcxAAAAAl84BAAAAAR0eHMyCAUAAAALJHQwNDgxMjQ5NzEAAAACXzkDCQEAAAACIT0AAAACBQAAAAdzdGF0dXMxBQAAAAxzdGF0dXNBY3RpdmUJAAACAAAAAQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAASUHJvcG9zYWwgd2l0aCBpZCAnBQAAAANpZDECAAAAGScgaXMgbm90IGFjdGl2ZS4gU3RhdHVzOiAFAAAAB3N0YXR1czEDCQEAAAACIT0AAAACBQAAAAdzdGF0dXMyBQAAAAxzdGF0dXNBY3RpdmUJAAACAAAAAQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAASUHJvcG9zYWwgd2l0aCBpZCAnBQAAAANpZDICAAAAGScgaXMgbm90IGFjdGl2ZS4gU3RhdHVzOiAFAAAAB3N0YXR1czIDAwkBAAAAAiE9AAAAAgUAAAAPZGVzaXJlZEFzc2V0SWQxBQAAABBwcm9wb3NlZEFzc2V0SWQyBgkBAAAAAiE9AAAAAgUAAAAPZGVzaXJlZEFzc2V0SWQyBQAAABBwcm9wb3NlZEFzc2V0SWQxCQAAAgAAAAECAAAAIUFzc2V0cyBpbiBwcm9wb3NhbHMgZG9lc24ndCBtYXRjaAQAAAAGcHJpY2UxCQAAawAAAAMFAAAAFHByb3Bvc2VkQXNzZXRBbW91bnQxBQAAAAZzY2FsZTgFAAAAE2Rlc2lyZWRBc3NldEFtb3VudDEEAAAABnByaWNlMgkAAGsAAAADBQAAABNkZXNpcmVkQXNzZXRBbW91bnQyBQAAAAZzY2FsZTgFAAAAFHByb3Bvc2VkQXNzZXRBbW91bnQyAwkAAGYAAAACBQAAAAZwcmljZTIFAAAABnByaWNlMQkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAB5QcmljZSBkb2Vzbid0IG1hdGNoLiBwcmljZTEgPSAJAAGkAAAAAQUAAAAGcHJpY2UxAgAAAAssIHByaWNlMiA9IAkAAaQAAAABBQAAAAZwcmljZTIEAAAACXVzZWRQcmljZQkAAGkAAAACCQAAZAAAAAIFAAAABnByaWNlMQUAAAAGcHJpY2UyAAAAAAAAAAACBAAAAAdhbW91bnQwCQABlwAAAAEJAARMAAAAAgUAAAAUcHJvcG9zZWRBc3NldEFtb3VudDEJAARMAAAAAgkAAGUAAAACBQAAABNkZXNpcmVkQXNzZXRBbW91bnQyBQAAAAdmaWxsZWQyBQAAAANuaWwEAAAAB2Ftb3VudDIJAAGXAAAAAQkABEwAAAACCQAAawAAAAMFAAAAB2Ftb3VudDAFAAAABnNjYWxlOAUAAAAJdXNlZFByaWNlCQAETAAAAAIJAABlAAAAAgUAAAATZGVzaXJlZEFzc2V0QW1vdW50MQUAAAAHZmlsbGVkMQUAAAADbmlsBAAAAAdhbW91bnQxCQAAawAAAAMFAAAAB2Ftb3VudDIFAAAACXVzZWRQcmljZQUAAAAGc2NhbGU4BAAAAApuZXdGaWxsZWQxCQAAZAAAAAIFAAAAB2ZpbGxlZDEFAAAAB2Ftb3VudDIEAAAACm5ld0ZpbGxlZDIJAABkAAAAAgUAAAAHZmlsbGVkMgUAAAAHYW1vdW50MQQAAAAHcmVzdWx0MAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAApvd25lckFkZHIxBQAAAAdhbW91bnQyBQAAAA9kZXNpcmVkQXNzZXRJZDEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAKb3duZXJBZGRyMgUAAAAHYW1vdW50MQUAAAAPZGVzaXJlZEFzc2V0SWQyCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIFAAAAA2lkMQUAAAAHa0ZpbGxlZAUAAAAKbmV3RmlsbGVkMQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACBQAAAANpZDIFAAAAB2tGaWxsZWQFAAAACm5ld0ZpbGxlZDIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAANpZDEFAAAACmtDbG9zZVR4SWQJAAEsAAAAAgkAASwAAAACBQAAAAR0eHMxAgAAAAE6CQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAANpZDIFAAAACmtDbG9zZVR4SWQJAAEsAAAAAgkAASwAAAACBQAAAAR0eHMyAgAAAAE6CQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQFAAAAA25pbAoBAAAADGFwcGVuZFJlc3VsdAAAAAYAAAACcjAAAAAJb3duZXJBZGRyAAAAAmlkAAAAEnByb3Bvc2VkQW1vdW50TGVmdAAAABFkZXNpcmVkQW1vdW50TGVmdAAAAA9wcm9wb3NlZEFzc2V0SWQDAwkAAGYAAAACAAAAAAAAAAAABQAAABJwcm9wb3NlZEFtb3VudExlZnQGCQAAZgAAAAIAAAAAAAAAAAAFAAAAEWRlc2lyZWRBbW91bnRMZWZ0CQAAAgAAAAECAAAAH0ludGVybmFsIGVycm9yIHdpdGggY2FsY3VsYXRpb24DCQAAAAAAAAIFAAAAEnByb3Bvc2VkQW1vdW50TGVmdAAAAAAAAAAAAAkABE0AAAACBQAAAAJyMAkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAAJpZAUAAAAHa1N0YXR1cwUAAAAKc3RhdHVzRG9uZQMJAAAAAAAAAgUAAAARZGVzaXJlZEFtb3VudExlZnQAAAAAAAAAAAAJAAROAAAAAgUAAAACcjAJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAJb3duZXJBZGRyBQAAABJwcm9wb3NlZEFtb3VudExlZnQFAAAAD3Byb3Bvc2VkQXNzZXRJZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAAAmlkBQAAAAdrU3RhdHVzBQAAAApzdGF0dXNEb25lBQAAAANuaWwFAAAAAnIwBAAAABNwcm9wb3NlZEFtb3VudExlZnQxCQAAZQAAAAIFAAAAFHByb3Bvc2VkQXNzZXRBbW91bnQxBQAAAAdhbW91bnQxBAAAABJkZXNpcmVkQW1vdW50TGVmdDEJAABlAAAAAgUAAAATZGVzaXJlZEFzc2V0QW1vdW50MQUAAAAHYW1vdW50MgQAAAATcHJvcG9zZWRBbW91bnRMZWZ0MgkAAGUAAAACBQAAABRwcm9wb3NlZEFzc2V0QW1vdW50MQUAAAAHYW1vdW50MgQAAAASZGVzaXJlZEFtb3VudExlZnQyCQAAZQAAAAIFAAAAE2Rlc2lyZWRBc3NldEFtb3VudDEFAAAAB2Ftb3VudDEEAAAAB3Jlc3VsdDEJAQAAAAxhcHBlbmRSZXN1bHQAAAAGBQAAAAdyZXN1bHQwBQAAAApvd25lckFkZHIxBQAAAANpZDEFAAAAE3Byb3Bvc2VkQW1vdW50TGVmdDEFAAAAEmRlc2lyZWRBbW91bnRMZWZ0MQUAAAAQcHJvcG9zZWRBc3NldElkMQQAAAAHcmVzdWx0MgkBAAAADGFwcGVuZFJlc3VsdAAAAAYFAAAAB3Jlc3VsdDEFAAAACm93bmVyQWRkcjIFAAAAA2lkMgUAAAATcHJvcG9zZWRBbW91bnRMZWZ0MgUAAAASZGVzaXJlZEFtb3VudExlZnQyBQAAABBwcm9wb3NlZEFzc2V0SWQyBQAAAAdyZXN1bHQyAAAAAWkBAAAAD2V4ZWN1dGVPblN3b3BmaQAAAAIAAAACaWQAAAAEcG9vbAQAAAALJHQwODAxMDgxNTkJAQAAABByZWFkUHJvcG9zYWxEYXRhAAAAAQUAAAACaWQEAAAABnN0YXR1cwgFAAAACyR0MDgwMTA4MTU5AAAAAl8xBAAAAAlvd25lckFkZHIIBQAAAAskdDA4MDEwODE1OQAAAAJfMgQAAAAPcHJvcG9zZWRBc3NldElkCAUAAAALJHQwODAxMDgxNTkAAAACXzMEAAAAE3Byb3Bvc2VkQXNzZXRBbW91bnQIBQAAAAskdDA4MDEwODE1OQAAAAJfNAQAAAAOZGVzaXJlZEFzc2V0SWQIBQAAAAskdDA4MDEwODE1OQAAAAJfNQQAAAASZGVzaXJlZEFzc2V0QW1vdW50CAUAAAALJHQwODAxMDgxNTkAAAACXzYEAAAADnBhcnRpYWxBbGxvd2VkCAUAAAALJHQwODAxMDgxNTkAAAACXzcEAAAABmZpbGxlZAgFAAAACyR0MDgwMTA4MTU5AAAAAl84BAAAAAN0eHMIBQAAAAskdDA4MDEwODE1OQAAAAJfOQMJAQAAAAIhPQAAAAIFAAAABnN0YXR1cwUAAAAMc3RhdHVzQWN0aXZlCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAElByb3Bvc2FsIHdpdGggaWQgJwUAAAACaWQCAAAAGScgaXMgbm90IGFjdGl2ZS4gU3RhdHVzOiAFAAAABnN0YXR1cwQAAAAIcG9vbEFkZHIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABCYAAAABBQAAAARwb29sAgAAABJXcm9uZyBwb29sIGFkZHJlc3MEAAAACnBvb2xBc3NldEEJAQAAABFAZXh0ck5hdGl2ZSgxMDUzKQAAAAIFAAAACHBvb2xBZGRyAgAAAApBX2Fzc2V0X2lkBAAAAApwb29sQXNzZXRCCQEAAAARQGV4dHJOYXRpdmUoMTA1MykAAAACBQAAAAhwb29sQWRkcgIAAAAKQl9hc3NldF9pZAQAAAAQcHJvcG9zZWRBc3NldElkMQIAAAAABAAAAA9kZXNpcmVkQXNzZXRJZDECAAAAAAQAAAABdAMDCQAAAAAAAAIFAAAACnBvb2xBc3NldEEFAAAAEHByb3Bvc2VkQXNzZXRJZDEJAAAAAAAAAgUAAAAKcG9vbEFzc2V0QgUAAAAPZGVzaXJlZEFzc2V0SWQxBwAAAAAAAAAAAQMDCQAAAAAAAAIFAAAACnBvb2xBc3NldEIFAAAAEHByb3Bvc2VkQXNzZXRJZDEJAAAAAAAAAgUAAAAKcG9vbEFzc2V0QQUAAAAPZGVzaXJlZEFzc2V0SWQxBwAAAAAAAAAAAgkAAAIAAAABAgAAABtQb29sIGRvZXNuJ3QgbWF0Y2ggcHJvcG9zYWwEAAAACHBvb2xCYWxBCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAhwb29sQWRkcgIAAAAPQV9hc3NldF9iYWxhbmNlBAAAAAhwb29sQmFsQgkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAIcG9vbEFkZHICAAAAD0JfYXNzZXRfYmFsYW5jZQQAAAAEYmFsMQMJAAAAAAAAAgUAAAABdAAAAAAAAAAAAQUAAAAIcG9vbEJhbEEFAAAACHBvb2xCYWxCBAAAAARiYWwyAwkAAAAAAAACBQAAAAF0AAAAAAAAAAABBQAAAAhwb29sQmFsQgUAAAAIcG9vbEJhbEEEAAAABXJhdGlvCQAAawAAAAMFAAAAEmRlc2lyZWRBc3NldEFtb3VudAUAAAAGc2NhbGU4BQAAABNwcm9wb3NlZEFzc2V0QW1vdW50BAAAAAZtYXhQYXkJAABlAAAAAgkAAGsAAAADBQAAAARiYWwyCQAAaAAAAAIJAABlAAAAAgkAAGUAAAACBQAAAAxmZWVEZWxpbWl0ZXIFAAAAB3Bvb2xGZWUFAAAACG9yZGVyRmVlBQAAAAZzY2FsZTgJAABoAAAAAgUAAAAMZmVlRGVsaW1pdGVyBQAAAAVyYXRpbwUAAAAEYmFsMQQAAAAFdG9QYXkJAAGXAAAAAQkABEwAAAACBQAAAAZtYXhQYXkJAARMAAAAAgUAAAATcHJvcG9zZWRBc3NldEFtb3VudAUAAAADbmlsBAAAAAV0b0dldAkAAGsAAAADBQAAAARiYWwyBQAAAAV0b1BheQkAAGQAAAACBQAAAARiYWwxBQAAAAV0b1BheQUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXmTovG3",
    "height": 1998151,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: BvVyzHw7eVDw3zbJ99HQvFS8DwX5DBVFpW84ECYtP4Xe
Next: BfW7VndERmTFtJA3x9BKcKxTsk7AkGJTvbJuPEvE6aLH

Diff: 

OldNewDifferences
1-{-# STDLIB_VERSION 4 #-}
1+{-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let kProposedAssetId = "_proposed_asset1_id"
55 
66 let kProposedAssetAmount = "_proposed_asset1_amount"
77 
8-let kDesiredAssetId = "_desired_asset1_id"
8+let kDesiredAssetId = "_desired_asset_id"
99 
10-let kDesiredAmount = "_desired_asset1_amount"
10+let kDesiredAmount = "_desired_asset_amount"
1111 
1212 let kStatus = "_status"
1313 
1515 
1616 let kCloseTxId = "_close_tx_id"
1717 
18+let kPartial = "_partial"
19+
20+let kFilled = "_filled"
21+
22+let kProposal = "prop_"
23+
24+let kProposalTotal = "prop_total"
25+
1826 let statusActive = "Active"
1927 
2028 let statusCanceled = "Canceled"
2129 
2230 let statusDone = "Done"
2331 
24-@Callable(i)
25-func placeProposal (desireToGetAssetId,desireToGetAmount) = if ((size(i.payments) != 1))
26-    then throw("One attached assets expected")
27-    else {
28-        let $t0603702 = $Tuple2(i.payments[0].amount, toBase58String(value(i.payments[0].assetId)))
29-        let pmtAmount = $t0603702._1
30-        let pmtAssetId = $t0603702._2
31-        let id = toBase58String(i.transactionId)
32-[StringEntry((id + kOwner), toString(i.caller)), StringEntry((id + kProposedAssetId), pmtAssetId), IntegerEntry((id + kProposedAssetAmount), pmtAmount), StringEntry((id + kDesiredAssetId), desireToGetAssetId), IntegerEntry((id + kDesiredAmount), desireToGetAmount), StringEntry((id + kStatus), statusActive)]
33-        }
32+let scale8 = 100000000
3433 
34+let poolFee = 30
35+
36+let orderFee = 5
37+
38+let feeDelimiter = 10000
39+
40+func readProposalData (id) = {
41+    let status = valueOrErrorMessage(getString(this, (id + kStatus)), (("Proposal with id '" + id) + "' not found"))
42+    let ownerAddr = addressFromStringValue(valueOrErrorMessage(getString(this, (id + kOwner)), "owner not set"))
43+    let proposedAssetId = valueOrErrorMessage(fromBase58String(valueOrErrorMessage(getString(this, (id + kProposedAssetId)), "Proposed asset not found")), "Incorrect proposed asset id")
44+    let proposedAssetAmount = valueOrErrorMessage(getInteger(this, (id + kProposedAssetAmount)), "Proposed amount not found")
45+    let desiredAssetId = valueOrErrorMessage(fromBase58String(valueOrErrorMessage(getString(this, (id + kDesiredAssetId)), "Desired asset not found")), "Incorrect desired asset id")
46+    let desiredAssetAmount = valueOrErrorMessage(getInteger(this, (id + kDesiredAmount)), "Desired amount not found")
47+    let partialAllowed = valueOrErrorMessage(getBoolean(this, (id + kPartial)), "Partial setting isn't set")
48+    let filled = valueOrElse(getInteger(this, (id + kFilled)), 0)
49+    let txs = valueOrElse(getString(this, (id + kCloseTxId)), "")
50+    $Tuple9(status, ownerAddr, proposedAssetId, proposedAssetAmount, desiredAssetId, desiredAssetAmount, partialAllowed, filled, txs)
51+    }
3552 
3653 
3754 @Callable(i)
38-func cancelProposal (id) = {
39-    let status = valueOrErrorMessage(getString(this, (id + kStatus)), (("Proposal with id '" + id) + "' not found"))
40-    if ((status != statusActive))
41-        then throw(((("Proposal with id '" + id) + "' is not active. Status: ") + status))
55+func placeProposal (desireToGetAssetId,desireToGetAmount,partial) = {
56+    let $t019602059 = $Tuple2(i.payments[0].amount, toBase58String(value(i.payments[0].assetId)))
57+    let pmtAmount = $t019602059._1
58+    let pmtAssetId = $t019602059._2
59+    let id = toBase58String(i.transactionId)
60+    if (isDefined(getString(this, (id + kStatus))))
61+        then throw("ID already registered")
4262         else {
43-            let ownerAddr = addressFromStringValue(valueOrErrorMessage(getString(this, (id + kOwner)), "owner not set"))
44-            let proposedAssetId = valueOrErrorMessage(getString(this, (id + kProposedAssetId)), "Proposed asset not found")
45-            let proposedAssetAmount = valueOrErrorMessage(getInteger(this, (id + kProposedAssetAmount)), "Proposed amount not found")
46-            if ((i.caller != ownerAddr))
47-                then throw("Only owner can cancel")
48-                else [ScriptTransfer(ownerAddr, proposedAssetAmount, fromBase58String(proposedAssetId)), StringEntry((id + kStatus), statusCanceled), StringEntry((id + kCloseTxId), toBase58String(i.transactionId))]
63+            let prop_total = valueOrElse(getInteger(this, kProposalTotal), 0)
64+[StringEntry((kProposal + toString((prop_total + 1))), id), IntegerEntry(kProposalTotal, (prop_total + 1)), StringEntry((id + kOwner), toString(i.caller)), StringEntry((id + kProposedAssetId), pmtAssetId), IntegerEntry((id + kProposedAssetAmount), pmtAmount), StringEntry((id + kDesiredAssetId), desireToGetAssetId), IntegerEntry((id + kDesiredAmount), desireToGetAmount), BooleanEntry((id + kPartial), partial), StringEntry((id + kStatus), statusActive)]
4965             }
5066     }
5167 
5268 
5369 
5470 @Callable(i)
71+func cancelProposal (id) = {
72+    let $t027962945 = readProposalData(id)
73+    let status = $t027962945._1
74+    let ownerAddr = $t027962945._2
75+    let proposedAssetId = $t027962945._3
76+    let proposedAssetAmount = $t027962945._4
77+    let desiredAssetId = $t027962945._5
78+    let desiredAssetAmount = $t027962945._6
79+    let partialAllowed = $t027962945._7
80+    let filled = $t027962945._8
81+    let txs = $t027962945._9
82+    if ((status != statusActive))
83+        then throw(((("Proposal with id '" + id) + "' is not active. Status: ") + status))
84+        else [ScriptTransfer(ownerAddr, (proposedAssetAmount - filled), proposedAssetId), StringEntry((id + kStatus), statusCanceled), StringEntry((id + kCloseTxId), ((txs + ":") + toBase58String(i.transactionId)))]
85+    }
86+
87+
88+
89+@Callable(i)
5590 func acceptProposal (id) = {
56-    let $t020212104 = $Tuple2(i.payments[0].amount, value(i.payments[0].assetId))
57-    let pmtAmount = $t020212104._1
58-    let pmtAssetId = $t020212104._2
59-    let status = valueOrErrorMessage(getString(this, (id + kStatus)), (("Proposal with id '" + id) + "' not found"))
91+    let $t033253408 = $Tuple2(i.payments[0].amount, value(i.payments[0].assetId))
92+    let pmtAmount = $t033253408._1
93+    let pmtAssetId = $t033253408._2
94+    let $t034123561 = readProposalData(id)
95+    let status = $t034123561._1
96+    let ownerAddr = $t034123561._2
97+    let proposedAssetId = $t034123561._3
98+    let proposedAssetAmount = $t034123561._4
99+    let desiredAssetId = $t034123561._5
100+    let desiredAssetAmount = $t034123561._6
101+    let partialAllowed = $t034123561._7
102+    let filled = $t034123561._8
103+    let txs = $t034123561._9
104+    if ((status != statusActive))
105+        then throw(((("Proposal with id '" + id) + "' is not active. Status: ") + status))
106+        else if ((desiredAssetId != pmtAssetId))
107+            then throw("Atatched asset doesn't match desired")
108+            else {
109+                let $t037734102 = if (!(partialAllowed))
110+                    then if ((desiredAssetAmount != pmtAmount))
111+                        then throw("Attached asset amount doesn't match")
112+                        else $Tuple2(pmtAmount, desiredAssetAmount)
113+                    else {
114+                        let a1 = min([pmtAmount, (desiredAssetAmount - filled)])
115+                        $Tuple2(a1, fraction(proposedAssetAmount, a1, desiredAssetAmount))
116+                        }
117+                let amount1 = $t037734102._1
118+                let amount2 = $t037734102._2
119+                let filledNew = (filled + amount1)
120+                let statusNew = if ((filledNew == desiredAssetAmount))
121+                    then statusDone
122+                    else statusActive
123+[ScriptTransfer(ownerAddr, amount1, desiredAssetId), ScriptTransfer(i.caller, amount2, proposedAssetId), ScriptTransfer(i.caller, (pmtAmount - amount1), desiredAssetId), IntegerEntry((id + kFilled), filledNew), StringEntry((id + kStatus), statusNew), StringEntry((id + kCloseTxId), ((txs + ":") + toBase58String(i.transactionId)))]
124+                }
125+    }
126+
127+
128+
129+@Callable(i)
130+func matchProposals (id1,id2) = {
131+    let $t046504809 = readProposalData(id1)
132+    let status1 = $t046504809._1
133+    let ownerAddr1 = $t046504809._2
134+    let proposedAssetId1 = $t046504809._3
135+    let proposedAssetAmount1 = $t046504809._4
136+    let desiredAssetId1 = $t046504809._5
137+    let desiredAssetAmount1 = $t046504809._6
138+    let partialAllowed1 = $t046504809._7
139+    let filled1 = $t046504809._8
140+    let txs1 = $t046504809._9
141+    let $t048124971 = readProposalData(id2)
142+    let status2 = $t048124971._1
143+    let ownerAddr2 = $t048124971._2
144+    let proposedAssetId2 = $t048124971._3
145+    let proposedAssetAmount2 = $t048124971._4
146+    let desiredAssetId2 = $t048124971._5
147+    let desiredAssetAmount2 = $t048124971._6
148+    let partialAllowed2 = $t048124971._7
149+    let filled2 = $t048124971._8
150+    let txs2 = $t048124971._9
151+    if ((status1 != statusActive))
152+        then throw(((("Proposal with id '" + id1) + "' is not active. Status: ") + status1))
153+        else if ((status2 != statusActive))
154+            then throw(((("Proposal with id '" + id2) + "' is not active. Status: ") + status2))
155+            else if (if ((desiredAssetId1 != proposedAssetId2))
156+                then true
157+                else (desiredAssetId2 != proposedAssetId1))
158+                then throw("Assets in proposals doesn't match")
159+                else {
160+                    let price1 = fraction(proposedAssetAmount1, scale8, desiredAssetAmount1)
161+                    let price2 = fraction(desiredAssetAmount2, scale8, proposedAssetAmount2)
162+                    if ((price2 > price1))
163+                        then throw(((("Price doesn't match. price1 = " + toString(price1)) + ", price2 = ") + toString(price2)))
164+                        else {
165+                            let usedPrice = ((price1 + price2) / 2)
166+                            let amount0 = min([proposedAssetAmount1, (desiredAssetAmount2 - filled2)])
167+                            let amount2 = min([fraction(amount0, scale8, usedPrice), (desiredAssetAmount1 - filled1)])
168+                            let amount1 = fraction(amount2, usedPrice, scale8)
169+                            let newFilled1 = (filled1 + amount2)
170+                            let newFilled2 = (filled2 + amount1)
171+                            let result0 = [ScriptTransfer(ownerAddr1, amount2, desiredAssetId1), ScriptTransfer(ownerAddr2, amount1, desiredAssetId2), IntegerEntry((id1 + kFilled), newFilled1), IntegerEntry((id2 + kFilled), newFilled2), StringEntry((id1 + kCloseTxId), ((txs1 + ":") + toBase58String(i.transactionId))), StringEntry((id2 + kCloseTxId), ((txs2 + ":") + toBase58String(i.transactionId)))]
172+                            func appendResult (r0,ownerAddr,id,proposedAmountLeft,desiredAmountLeft,proposedAssetId) =                             if (if ((0 > proposedAmountLeft))
173+                                then true
174+                                else (0 > desiredAmountLeft))
175+                                then throw("Internal error with calculation")
176+                                else if ((proposedAmountLeft == 0))
177+                                    then (r0 :+ StringEntry((id + kStatus), statusDone))
178+                                    else if ((desiredAmountLeft == 0))
179+                                        then (r0 ++ [ScriptTransfer(ownerAddr, proposedAmountLeft, proposedAssetId), StringEntry((id + kStatus), statusDone)])
180+                                        else r0
181+
182+                            let proposedAmountLeft1 = (proposedAssetAmount1 - amount1)
183+                            let desiredAmountLeft1 = (desiredAssetAmount1 - amount2)
184+                            let proposedAmountLeft2 = (proposedAssetAmount1 - amount2)
185+                            let desiredAmountLeft2 = (desiredAssetAmount1 - amount1)
186+                            let result1 = appendResult(result0, ownerAddr1, id1, proposedAmountLeft1, desiredAmountLeft1, proposedAssetId1)
187+                            let result2 = appendResult(result1, ownerAddr2, id2, proposedAmountLeft2, desiredAmountLeft2, proposedAssetId2)
188+                            result2
189+                            }
190+                    }
191+    }
192+
193+
194+
195+@Callable(i)
196+func executeOnSwopfi (id,pool) = {
197+    let $t080108159 = readProposalData(id)
198+    let status = $t080108159._1
199+    let ownerAddr = $t080108159._2
200+    let proposedAssetId = $t080108159._3
201+    let proposedAssetAmount = $t080108159._4
202+    let desiredAssetId = $t080108159._5
203+    let desiredAssetAmount = $t080108159._6
204+    let partialAllowed = $t080108159._7
205+    let filled = $t080108159._8
206+    let txs = $t080108159._9
60207     if ((status != statusActive))
61208         then throw(((("Proposal with id '" + id) + "' is not active. Status: ") + status))
62209         else {
63-            let desiredAssetId = valueOrErrorMessage(fromBase58String(valueOrErrorMessage(getString(this, (id + kDesiredAssetId)), "Desired asset not found")), "Incorrect desired asset id")
64-            let desiredAssetAmount = valueOrErrorMessage(getInteger(this, (id + kDesiredAmount)), "Desired amount not found")
65-            if ((desiredAssetId != pmtAssetId))
66-                then throw("Atatched asset doesn't match desired")
67-                else if ((desiredAssetAmount != pmtAmount))
68-                    then throw("Attached asset amount doesn't match")
69-                    else {
70-                        let ownerAddr = addressFromStringValue(valueOrErrorMessage(getString(this, (id + kOwner)), "owner not set"))
71-                        let proposedAssetId = valueOrErrorMessage(fromBase58String(valueOrErrorMessage(getString(this, (id + kProposedAssetId)), "Proposed asset not found")), "Incorrect proposed asset id")
72-                        let proposedAssetAmount = valueOrErrorMessage(getInteger(this, (id + kProposedAssetAmount)), "Proposed amount not found")
73-[ScriptTransfer(ownerAddr, desiredAssetAmount, desiredAssetId), ScriptTransfer(i.caller, proposedAssetAmount, proposedAssetId), StringEntry((id + kStatus), statusDone), StringEntry((id + kCloseTxId), toBase58String(i.transactionId))]
74-                        }
210+            let poolAddr = valueOrErrorMessage(addressFromString(pool), "Wrong pool address")
211+            let poolAssetA = getStringValue(poolAddr, "A_asset_id")
212+            let poolAssetB = getStringValue(poolAddr, "B_asset_id")
213+            let proposedAssetId1 = ""
214+            let desiredAssetId1 = ""
215+            let t = if (if ((poolAssetA == proposedAssetId1))
216+                then (poolAssetB == desiredAssetId1)
217+                else false)
218+                then 1
219+                else if (if ((poolAssetB == proposedAssetId1))
220+                    then (poolAssetA == desiredAssetId1)
221+                    else false)
222+                    then 2
223+                    else throw("Pool doesn't match proposal")
224+            let poolBalA = getIntegerValue(poolAddr, "A_asset_balance")
225+            let poolBalB = getIntegerValue(poolAddr, "B_asset_balance")
226+            let bal1 = if ((t == 1))
227+                then poolBalA
228+                else poolBalB
229+            let bal2 = if ((t == 1))
230+                then poolBalB
231+                else poolBalA
232+            let ratio = fraction(desiredAssetAmount, scale8, proposedAssetAmount)
233+            let maxPay = (fraction(bal2, (((feeDelimiter - poolFee) - orderFee) * scale8), (feeDelimiter * ratio)) - bal1)
234+            let toPay = min([maxPay, proposedAssetAmount])
235+            let toGet = fraction(bal2, toPay, (bal1 + toPay))
236+            nil
75237             }
76238     }
77239 

Full: 

OldNewDifferences
1-{-# STDLIB_VERSION 4 #-}
1+{-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let kProposedAssetId = "_proposed_asset1_id"
55 
66 let kProposedAssetAmount = "_proposed_asset1_amount"
77 
8-let kDesiredAssetId = "_desired_asset1_id"
8+let kDesiredAssetId = "_desired_asset_id"
99 
10-let kDesiredAmount = "_desired_asset1_amount"
10+let kDesiredAmount = "_desired_asset_amount"
1111 
1212 let kStatus = "_status"
1313 
1414 let kOwner = "_owner"
1515 
1616 let kCloseTxId = "_close_tx_id"
1717 
18+let kPartial = "_partial"
19+
20+let kFilled = "_filled"
21+
22+let kProposal = "prop_"
23+
24+let kProposalTotal = "prop_total"
25+
1826 let statusActive = "Active"
1927 
2028 let statusCanceled = "Canceled"
2129 
2230 let statusDone = "Done"
2331 
24-@Callable(i)
25-func placeProposal (desireToGetAssetId,desireToGetAmount) = if ((size(i.payments) != 1))
26-    then throw("One attached assets expected")
27-    else {
28-        let $t0603702 = $Tuple2(i.payments[0].amount, toBase58String(value(i.payments[0].assetId)))
29-        let pmtAmount = $t0603702._1
30-        let pmtAssetId = $t0603702._2
31-        let id = toBase58String(i.transactionId)
32-[StringEntry((id + kOwner), toString(i.caller)), StringEntry((id + kProposedAssetId), pmtAssetId), IntegerEntry((id + kProposedAssetAmount), pmtAmount), StringEntry((id + kDesiredAssetId), desireToGetAssetId), IntegerEntry((id + kDesiredAmount), desireToGetAmount), StringEntry((id + kStatus), statusActive)]
33-        }
32+let scale8 = 100000000
3433 
34+let poolFee = 30
35+
36+let orderFee = 5
37+
38+let feeDelimiter = 10000
39+
40+func readProposalData (id) = {
41+    let status = valueOrErrorMessage(getString(this, (id + kStatus)), (("Proposal with id '" + id) + "' not found"))
42+    let ownerAddr = addressFromStringValue(valueOrErrorMessage(getString(this, (id + kOwner)), "owner not set"))
43+    let proposedAssetId = valueOrErrorMessage(fromBase58String(valueOrErrorMessage(getString(this, (id + kProposedAssetId)), "Proposed asset not found")), "Incorrect proposed asset id")
44+    let proposedAssetAmount = valueOrErrorMessage(getInteger(this, (id + kProposedAssetAmount)), "Proposed amount not found")
45+    let desiredAssetId = valueOrErrorMessage(fromBase58String(valueOrErrorMessage(getString(this, (id + kDesiredAssetId)), "Desired asset not found")), "Incorrect desired asset id")
46+    let desiredAssetAmount = valueOrErrorMessage(getInteger(this, (id + kDesiredAmount)), "Desired amount not found")
47+    let partialAllowed = valueOrErrorMessage(getBoolean(this, (id + kPartial)), "Partial setting isn't set")
48+    let filled = valueOrElse(getInteger(this, (id + kFilled)), 0)
49+    let txs = valueOrElse(getString(this, (id + kCloseTxId)), "")
50+    $Tuple9(status, ownerAddr, proposedAssetId, proposedAssetAmount, desiredAssetId, desiredAssetAmount, partialAllowed, filled, txs)
51+    }
3552 
3653 
3754 @Callable(i)
38-func cancelProposal (id) = {
39-    let status = valueOrErrorMessage(getString(this, (id + kStatus)), (("Proposal with id '" + id) + "' not found"))
40-    if ((status != statusActive))
41-        then throw(((("Proposal with id '" + id) + "' is not active. Status: ") + status))
55+func placeProposal (desireToGetAssetId,desireToGetAmount,partial) = {
56+    let $t019602059 = $Tuple2(i.payments[0].amount, toBase58String(value(i.payments[0].assetId)))
57+    let pmtAmount = $t019602059._1
58+    let pmtAssetId = $t019602059._2
59+    let id = toBase58String(i.transactionId)
60+    if (isDefined(getString(this, (id + kStatus))))
61+        then throw("ID already registered")
4262         else {
43-            let ownerAddr = addressFromStringValue(valueOrErrorMessage(getString(this, (id + kOwner)), "owner not set"))
44-            let proposedAssetId = valueOrErrorMessage(getString(this, (id + kProposedAssetId)), "Proposed asset not found")
45-            let proposedAssetAmount = valueOrErrorMessage(getInteger(this, (id + kProposedAssetAmount)), "Proposed amount not found")
46-            if ((i.caller != ownerAddr))
47-                then throw("Only owner can cancel")
48-                else [ScriptTransfer(ownerAddr, proposedAssetAmount, fromBase58String(proposedAssetId)), StringEntry((id + kStatus), statusCanceled), StringEntry((id + kCloseTxId), toBase58String(i.transactionId))]
63+            let prop_total = valueOrElse(getInteger(this, kProposalTotal), 0)
64+[StringEntry((kProposal + toString((prop_total + 1))), id), IntegerEntry(kProposalTotal, (prop_total + 1)), StringEntry((id + kOwner), toString(i.caller)), StringEntry((id + kProposedAssetId), pmtAssetId), IntegerEntry((id + kProposedAssetAmount), pmtAmount), StringEntry((id + kDesiredAssetId), desireToGetAssetId), IntegerEntry((id + kDesiredAmount), desireToGetAmount), BooleanEntry((id + kPartial), partial), StringEntry((id + kStatus), statusActive)]
4965             }
5066     }
5167 
5268 
5369 
5470 @Callable(i)
71+func cancelProposal (id) = {
72+    let $t027962945 = readProposalData(id)
73+    let status = $t027962945._1
74+    let ownerAddr = $t027962945._2
75+    let proposedAssetId = $t027962945._3
76+    let proposedAssetAmount = $t027962945._4
77+    let desiredAssetId = $t027962945._5
78+    let desiredAssetAmount = $t027962945._6
79+    let partialAllowed = $t027962945._7
80+    let filled = $t027962945._8
81+    let txs = $t027962945._9
82+    if ((status != statusActive))
83+        then throw(((("Proposal with id '" + id) + "' is not active. Status: ") + status))
84+        else [ScriptTransfer(ownerAddr, (proposedAssetAmount - filled), proposedAssetId), StringEntry((id + kStatus), statusCanceled), StringEntry((id + kCloseTxId), ((txs + ":") + toBase58String(i.transactionId)))]
85+    }
86+
87+
88+
89+@Callable(i)
5590 func acceptProposal (id) = {
56-    let $t020212104 = $Tuple2(i.payments[0].amount, value(i.payments[0].assetId))
57-    let pmtAmount = $t020212104._1
58-    let pmtAssetId = $t020212104._2
59-    let status = valueOrErrorMessage(getString(this, (id + kStatus)), (("Proposal with id '" + id) + "' not found"))
91+    let $t033253408 = $Tuple2(i.payments[0].amount, value(i.payments[0].assetId))
92+    let pmtAmount = $t033253408._1
93+    let pmtAssetId = $t033253408._2
94+    let $t034123561 = readProposalData(id)
95+    let status = $t034123561._1
96+    let ownerAddr = $t034123561._2
97+    let proposedAssetId = $t034123561._3
98+    let proposedAssetAmount = $t034123561._4
99+    let desiredAssetId = $t034123561._5
100+    let desiredAssetAmount = $t034123561._6
101+    let partialAllowed = $t034123561._7
102+    let filled = $t034123561._8
103+    let txs = $t034123561._9
104+    if ((status != statusActive))
105+        then throw(((("Proposal with id '" + id) + "' is not active. Status: ") + status))
106+        else if ((desiredAssetId != pmtAssetId))
107+            then throw("Atatched asset doesn't match desired")
108+            else {
109+                let $t037734102 = if (!(partialAllowed))
110+                    then if ((desiredAssetAmount != pmtAmount))
111+                        then throw("Attached asset amount doesn't match")
112+                        else $Tuple2(pmtAmount, desiredAssetAmount)
113+                    else {
114+                        let a1 = min([pmtAmount, (desiredAssetAmount - filled)])
115+                        $Tuple2(a1, fraction(proposedAssetAmount, a1, desiredAssetAmount))
116+                        }
117+                let amount1 = $t037734102._1
118+                let amount2 = $t037734102._2
119+                let filledNew = (filled + amount1)
120+                let statusNew = if ((filledNew == desiredAssetAmount))
121+                    then statusDone
122+                    else statusActive
123+[ScriptTransfer(ownerAddr, amount1, desiredAssetId), ScriptTransfer(i.caller, amount2, proposedAssetId), ScriptTransfer(i.caller, (pmtAmount - amount1), desiredAssetId), IntegerEntry((id + kFilled), filledNew), StringEntry((id + kStatus), statusNew), StringEntry((id + kCloseTxId), ((txs + ":") + toBase58String(i.transactionId)))]
124+                }
125+    }
126+
127+
128+
129+@Callable(i)
130+func matchProposals (id1,id2) = {
131+    let $t046504809 = readProposalData(id1)
132+    let status1 = $t046504809._1
133+    let ownerAddr1 = $t046504809._2
134+    let proposedAssetId1 = $t046504809._3
135+    let proposedAssetAmount1 = $t046504809._4
136+    let desiredAssetId1 = $t046504809._5
137+    let desiredAssetAmount1 = $t046504809._6
138+    let partialAllowed1 = $t046504809._7
139+    let filled1 = $t046504809._8
140+    let txs1 = $t046504809._9
141+    let $t048124971 = readProposalData(id2)
142+    let status2 = $t048124971._1
143+    let ownerAddr2 = $t048124971._2
144+    let proposedAssetId2 = $t048124971._3
145+    let proposedAssetAmount2 = $t048124971._4
146+    let desiredAssetId2 = $t048124971._5
147+    let desiredAssetAmount2 = $t048124971._6
148+    let partialAllowed2 = $t048124971._7
149+    let filled2 = $t048124971._8
150+    let txs2 = $t048124971._9
151+    if ((status1 != statusActive))
152+        then throw(((("Proposal with id '" + id1) + "' is not active. Status: ") + status1))
153+        else if ((status2 != statusActive))
154+            then throw(((("Proposal with id '" + id2) + "' is not active. Status: ") + status2))
155+            else if (if ((desiredAssetId1 != proposedAssetId2))
156+                then true
157+                else (desiredAssetId2 != proposedAssetId1))
158+                then throw("Assets in proposals doesn't match")
159+                else {
160+                    let price1 = fraction(proposedAssetAmount1, scale8, desiredAssetAmount1)
161+                    let price2 = fraction(desiredAssetAmount2, scale8, proposedAssetAmount2)
162+                    if ((price2 > price1))
163+                        then throw(((("Price doesn't match. price1 = " + toString(price1)) + ", price2 = ") + toString(price2)))
164+                        else {
165+                            let usedPrice = ((price1 + price2) / 2)
166+                            let amount0 = min([proposedAssetAmount1, (desiredAssetAmount2 - filled2)])
167+                            let amount2 = min([fraction(amount0, scale8, usedPrice), (desiredAssetAmount1 - filled1)])
168+                            let amount1 = fraction(amount2, usedPrice, scale8)
169+                            let newFilled1 = (filled1 + amount2)
170+                            let newFilled2 = (filled2 + amount1)
171+                            let result0 = [ScriptTransfer(ownerAddr1, amount2, desiredAssetId1), ScriptTransfer(ownerAddr2, amount1, desiredAssetId2), IntegerEntry((id1 + kFilled), newFilled1), IntegerEntry((id2 + kFilled), newFilled2), StringEntry((id1 + kCloseTxId), ((txs1 + ":") + toBase58String(i.transactionId))), StringEntry((id2 + kCloseTxId), ((txs2 + ":") + toBase58String(i.transactionId)))]
172+                            func appendResult (r0,ownerAddr,id,proposedAmountLeft,desiredAmountLeft,proposedAssetId) =                             if (if ((0 > proposedAmountLeft))
173+                                then true
174+                                else (0 > desiredAmountLeft))
175+                                then throw("Internal error with calculation")
176+                                else if ((proposedAmountLeft == 0))
177+                                    then (r0 :+ StringEntry((id + kStatus), statusDone))
178+                                    else if ((desiredAmountLeft == 0))
179+                                        then (r0 ++ [ScriptTransfer(ownerAddr, proposedAmountLeft, proposedAssetId), StringEntry((id + kStatus), statusDone)])
180+                                        else r0
181+
182+                            let proposedAmountLeft1 = (proposedAssetAmount1 - amount1)
183+                            let desiredAmountLeft1 = (desiredAssetAmount1 - amount2)
184+                            let proposedAmountLeft2 = (proposedAssetAmount1 - amount2)
185+                            let desiredAmountLeft2 = (desiredAssetAmount1 - amount1)
186+                            let result1 = appendResult(result0, ownerAddr1, id1, proposedAmountLeft1, desiredAmountLeft1, proposedAssetId1)
187+                            let result2 = appendResult(result1, ownerAddr2, id2, proposedAmountLeft2, desiredAmountLeft2, proposedAssetId2)
188+                            result2
189+                            }
190+                    }
191+    }
192+
193+
194+
195+@Callable(i)
196+func executeOnSwopfi (id,pool) = {
197+    let $t080108159 = readProposalData(id)
198+    let status = $t080108159._1
199+    let ownerAddr = $t080108159._2
200+    let proposedAssetId = $t080108159._3
201+    let proposedAssetAmount = $t080108159._4
202+    let desiredAssetId = $t080108159._5
203+    let desiredAssetAmount = $t080108159._6
204+    let partialAllowed = $t080108159._7
205+    let filled = $t080108159._8
206+    let txs = $t080108159._9
60207     if ((status != statusActive))
61208         then throw(((("Proposal with id '" + id) + "' is not active. Status: ") + status))
62209         else {
63-            let desiredAssetId = valueOrErrorMessage(fromBase58String(valueOrErrorMessage(getString(this, (id + kDesiredAssetId)), "Desired asset not found")), "Incorrect desired asset id")
64-            let desiredAssetAmount = valueOrErrorMessage(getInteger(this, (id + kDesiredAmount)), "Desired amount not found")
65-            if ((desiredAssetId != pmtAssetId))
66-                then throw("Atatched asset doesn't match desired")
67-                else if ((desiredAssetAmount != pmtAmount))
68-                    then throw("Attached asset amount doesn't match")
69-                    else {
70-                        let ownerAddr = addressFromStringValue(valueOrErrorMessage(getString(this, (id + kOwner)), "owner not set"))
71-                        let proposedAssetId = valueOrErrorMessage(fromBase58String(valueOrErrorMessage(getString(this, (id + kProposedAssetId)), "Proposed asset not found")), "Incorrect proposed asset id")
72-                        let proposedAssetAmount = valueOrErrorMessage(getInteger(this, (id + kProposedAssetAmount)), "Proposed amount not found")
73-[ScriptTransfer(ownerAddr, desiredAssetAmount, desiredAssetId), ScriptTransfer(i.caller, proposedAssetAmount, proposedAssetId), StringEntry((id + kStatus), statusDone), StringEntry((id + kCloseTxId), toBase58String(i.transactionId))]
74-                        }
210+            let poolAddr = valueOrErrorMessage(addressFromString(pool), "Wrong pool address")
211+            let poolAssetA = getStringValue(poolAddr, "A_asset_id")
212+            let poolAssetB = getStringValue(poolAddr, "B_asset_id")
213+            let proposedAssetId1 = ""
214+            let desiredAssetId1 = ""
215+            let t = if (if ((poolAssetA == proposedAssetId1))
216+                then (poolAssetB == desiredAssetId1)
217+                else false)
218+                then 1
219+                else if (if ((poolAssetB == proposedAssetId1))
220+                    then (poolAssetA == desiredAssetId1)
221+                    else false)
222+                    then 2
223+                    else throw("Pool doesn't match proposal")
224+            let poolBalA = getIntegerValue(poolAddr, "A_asset_balance")
225+            let poolBalB = getIntegerValue(poolAddr, "B_asset_balance")
226+            let bal1 = if ((t == 1))
227+                then poolBalA
228+                else poolBalB
229+            let bal2 = if ((t == 1))
230+                then poolBalB
231+                else poolBalA
232+            let ratio = fraction(desiredAssetAmount, scale8, proposedAssetAmount)
233+            let maxPay = (fraction(bal2, (((feeDelimiter - poolFee) - orderFee) * scale8), (feeDelimiter * ratio)) - bal1)
234+            let toPay = min([maxPay, proposedAssetAmount])
235+            let toGet = fraction(bal2, toPay, (bal1 + toPay))
236+            nil
75237             }
76238     }
77239 
78240 
79241 @Verifier(tx)
80242 func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
81243 
github/deemru/w8io/6500d08 
48.99 ms ◑