w8 · tx · 9n4···2Fn

tx · 9n4jJYZQneqp5AiSATJCpM8EEnWy5sRBkwaz3h43k2Fn

3N61Cvq5XcnPk9rxpy2Rnp3bSr4syNGUJph:  -0.01400000 Waves

2021.11.19 13:03 [1797773] smart account 3N61Cvq5XcnPk9rxpy2Rnp3bSr4syNGUJph > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9n4jJYZQneqp5AiSATJCpM8EEnWy5sRBkwaz3h43k2Fn",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1637316255051,
    "version": 2,
    "chainId": 84,
    "sender": "3N61Cvq5XcnPk9rxpy2Rnp3bSr4syNGUJph",
    "senderPublicKey": "G7cNXePvAHUHmZfXa1eHnvFeH6DuykPC5wm9v9djTKgD",
    "proofs": [
        "4aEakmEGjgiBTEZQxurWGMQ4kaemH5CKVTPKG8VzQG8R1QWCPxYMZ8uLyzXn9S5BTMJnn1GH2tPRdXohMHDz5QtM"
    ],
    "script": "base64:AAIFAAAAAAAAAB8IAhIGCgQYGBgREgYKBAgIAQESABIDCgEIEgQKAggBAAAABgAAAAAKZGVwb3NpdEZlZQAAAAAAAAAD6AAAAAANY29udHJvbGxlckZlZQAAAAAAAAAnEAAAAAALcGxhdGZvcm1GZWUAAAAAAAAAJxAAAAAADGFkbWluUHViS2V5MQEAAAAgTC9F1XzqFGGdLucFXlrRY8ZeleddBPtyCBFVfBI5UHgAAAAADGFkbWluUHViS2V5MgEAAAAgTC9F1XzqFGGdLucFXlrRY8ZeleddBPtyCBFVfBI5UHgAAAAADGFkbWluUHViS2V5MwEAAAAgTC9F1XzqFGGdLucFXlrRY8ZeleddBPtyCBFVfBI5UHgAAAAFAAAAAWkBAAAACGFkZFBvb2xzAAAABAAAAAVwb29scwAAAA9saXF1aWRpdHlUb2tlbnMAAAANc2VydmljZVRva2VucwAAABZsaXF1aWRpdHlUb2tlbkRlY2ltYWxzAwkBAAAAD2NvbnRhaW5zRWxlbWVudAAAAAIJAARMAAAAAgUAAAAMYWRtaW5QdWJLZXkxCQAETAAAAAIFAAAADGFkbWluUHViS2V5MgkABEwAAAACBQAAAAxhZG1pblB1YktleTMFAAAAA25pbAgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5CgEAAAAQZ2VuZXJhdGVQb29sS2V5cwAAAAIAAAALYWNjdW11bGF0ZWQAAAAEcG9vbAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACBQAAAARwb29sAgAAAA5fYXNzZXRfYmFsYW5jZQAAAAAAAAAAAAUAAAALYWNjdW11bGF0ZWQKAQAAAB5nZW5lcmF0ZVBvb2xMaXF1aWRpdHlUb2tlbktleXMAAAACAAAAC2FjY3VtdWxhdGVkAAAABHBvb2wEAAAACXBvb2xJbmRleAkBAAAABXZhbHVlAAAAAQkABE8AAAACBQAAAAVwb29scwUAAAAEcG9vbAQAAAAObGlxdWlkaXR5VG9rZW4JAAGRAAAAAgUAAAAPbGlxdWlkaXR5VG9rZW5zBQAAAAlwb29sSW5kZXgJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAARwb29sAgAAABBfbGlxdWlkaXR5X3Rva2VuBQAAAA5saXF1aWRpdHlUb2tlbgUAAAALYWNjdW11bGF0ZWQKAQAAABxnZW5lcmF0ZVBvb2xTZXJ2aWNlVG9rZW5LZXlzAAAAAgAAAAthY2N1bXVsYXRlZAAAAARwb29sBAAAAAlwb29sSW5kZXgJAQAAAAV2YWx1ZQAAAAEJAARPAAAAAgUAAAAFcG9vbHMFAAAABHBvb2wEAAAADmxpcXVpZGl0eVRva2VuCQABkQAAAAIFAAAADXNlcnZpY2VUb2tlbnMFAAAACXBvb2xJbmRleAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAABHBvb2wCAAAADl9zZXJ2aWNlX3Rva2VuBQAAAA5saXF1aWRpdHlUb2tlbgUAAAALYWNjdW11bGF0ZWQKAQAAACVnZW5lcmF0ZVBvb2xMaXF1aWRpdHlUb2tlbkRlY2ltYWxLZXlzAAAAAgAAAAthY2N1bXVsYXRlZAAAAARwb29sBAAAAAlwb29sSW5kZXgJAQAAAAV2YWx1ZQAAAAEJAARPAAAAAgUAAAAFcG9vbHMFAAAABHBvb2wEAAAADmxpcXVpZGl0eVRva2VuCQABkQAAAAIFAAAAFmxpcXVpZGl0eVRva2VuRGVjaW1hbHMFAAAACXBvb2xJbmRleAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACBQAAAARwb29sAgAAAA5fc2VydmljZV90b2tlbgUAAAAObGlxdWlkaXR5VG9rZW4FAAAAC2FjY3VtdWxhdGVkCgEAAAAWZ2VuZXJhdGVQb29sQWN0aXZlS2V5cwAAAAIAAAALYWNjdW11bGF0ZWQAAAAEcG9vbAkABEwAAAACCQEAAAAMQm9vbGVhbkVudHJ5AAAAAgkAASwAAAACBQAAAARwb29sAgAAAAdfYWN0aXZlBgUAAAALYWNjdW11bGF0ZWQEAAAAD3Bvb2xCYWxhbmNlS2V5cwoAAAAAAiRsBQAAAAVwb29scwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAQZ2VuZXJhdGVQb29sS2V5cwAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAAATIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDIwCQEAAAABMgAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgAAAAAAAAAACwAAAAAAAAAADAAAAAAAAAAADQAAAAAAAAAADgAAAAAAAAAADwAAAAAAAAAAEAAAAAAAAAAAEQAAAAAAAAAAEgAAAAAAAAAAEwAAAAAAAAAAFAQAAAAWcG9vbExpcXVpZGl0eVRva2VuS2V5cwoAAAAAAiRsBQAAAAVwb29scwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAeZ2VuZXJhdGVQb29sTGlxdWlkaXR5VG9rZW5LZXlzAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAABMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQAAAAEyAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAAAAAAAAAAALAAAAAAAAAAAMAAAAAAAAAAANAAAAAAAAAAAOAAAAAAAAAAAPAAAAAAAAAAAQAAAAAAAAAAARAAAAAAAAAAASAAAAAAAAAAATAAAAAAAAAAAUBAAAABRwb29sU2VydmljZVRva2VuS2V5cwoAAAAAAiRsBQAAAAVwb29scwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAcZ2VuZXJhdGVQb29sU2VydmljZVRva2VuS2V5cwAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAAATIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDIwCQEAAAABMgAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgAAAAAAAAAACwAAAAAAAAAADAAAAAAAAAAADQAAAAAAAAAADgAAAAAAAAAADwAAAAAAAAAAEAAAAAAAAAAAEQAAAAAAAAAAEgAAAAAAAAAAEwAAAAAAAAAAFAQAAAAdcG9vbExpcXVpZGl0eVRva2VuRGVjaW1hbEtleXMKAAAAAAIkbAUAAAAFcG9vbHMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAANuaWwKAQAAAAExAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAJWdlbmVyYXRlUG9vbExpcXVpZGl0eVRva2VuRGVjaW1hbEtleXMAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAEyAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAyMAkBAAAAATIAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoAAAAAAAAAAAsAAAAAAAAAAAwAAAAAAAAAAA0AAAAAAAAAAA4AAAAAAAAAAA8AAAAAAAAAABAAAAAAAAAAABEAAAAAAAAAABIAAAAAAAAAABMAAAAAAAAAABQEAAAADnBvb2xBY3RpdmVLZXlzCgAAAAACJGwFAAAABXBvb2xzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAABMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAABZnZW5lcmF0ZVBvb2xBY3RpdmVLZXlzAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAABMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQAAAAEyAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAAAAAAAAAAALAAAAAAAAAAAMAAAAAAAAAAANAAAAAAAAAAAOAAAAAAAAAAAPAAAAAAAAAAAQAAAAAAAAAAARAAAAAAAAAAASAAAAAAAAAAATAAAAAAAAAAAUCQAETgAAAAIJAAROAAAAAgkABE4AAAACCQAETgAAAAIFAAAAD3Bvb2xCYWxhbmNlS2V5cwUAAAAWcG9vbExpcXVpZGl0eVRva2VuS2V5cwUAAAAUcG9vbFNlcnZpY2VUb2tlbktleXMFAAAAHXBvb2xMaXF1aWRpdHlUb2tlbkRlY2ltYWxLZXlzBQAAAA5wb29sQWN0aXZlS2V5cwkAAAIAAAABAgAAACFPbmx5IGFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24AAAABaQEAAAAKaXNzdWVUb2tlbgAAAAQAAAAEbmFtZQAAAAtkZXNjcmlwdGlvbgAAAAhxdWFudGl0eQAAAAhkZWNpbWFscwMJAQAAAA9jb250YWluc0VsZW1lbnQAAAACCQAETAAAAAIFAAAADGFkbWluUHViS2V5MQkABEwAAAACBQAAAAxhZG1pblB1YktleTIJAARMAAAAAgUAAAAMYWRtaW5QdWJLZXkzBQAAAANuaWwIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQkABEwAAAACCQAEQwAAAAcFAAAABG5hbWUFAAAAC2Rlc2NyaXB0aW9uBQAAAAhxdWFudGl0eQUAAAAIZGVjaW1hbHMGBQAAAAR1bml0AAAAAAAAAAAABQAAAANuaWwJAAACAAAAAQIAAAAhT25seSBhZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAAAAAmE4AQAAAARjYWxsAAAAAAQAAAAKcG10QW1vdW50QQAAAAAAAAAACgQAAAAKcG10QW1vdW50QgAAAAAAAAAAAQQAAAAMcG10RGVjaW1hbHNBAAAAAAAAAAAIBAAAAAxwbXREZWNpbWFsc0IAAAAAAAAAAAYEAAAADXNoYXJlRGVjaW1hbHMJAABpAAAAAgkAAGQAAAACBQAAAAxwbXREZWNpbWFsc0EFAAAADHBtdERlY2ltYWxzQgAAAAAAAAAAAgQAAAACYTkJAABsAAAABgUAAAAKcG10QW1vdW50QQUAAAAMcG10RGVjaW1hbHNBAAAAAAAAAAAFAAAAAAAAAAABBQAAAAxwbXREZWNpbWFsc0EFAAAABERPV04EAAAAA2ExMAkAAGwAAAAGBQAAAApwbXRBbW91bnRCBQAAAAxwbXREZWNpbWFsc0IAAAAAAAAAAAUAAAAAAAAAAAEFAAAADHBtdERlY2ltYWxzQgUAAAAERE9XTgQAAAAFdGhpcmQJAABsAAAABgAAAAAAAAAACgAAAAAAAAAAAAUAAAANc2hhcmVEZWNpbWFscwAAAAAAAAAAAAAAAAAAAAAAAAUAAAAERE9XTgQAAAAFZm91dGgJAABrAAAAAwUAAAACYTkFAAAAA2ExMAUAAAAFdGhpcmQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABWZpc3J0BQAAAAJhOQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGc2Vjb25kBQAAAANhMTAJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABXRoaXJkBQAAAAV0aGlyZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAFZm91dGgFAAAABWZvdXRoBQAAAANuaWwAAAABaQEAAAAHZGVwb3NpdAAAAAEAAAAEcG9vbAMJAQAAAAIhPQAAAAIJAAGQAAAAAQgFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAEJAAACAAAAAQIAAAAdT25lIGF0dGFjaGVkIHBheW1lbnQgZXhwZWN0ZWQEAAAABmFtb3VudAgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BAAAAAdhc3NldElkCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBAAAAA1hc3NldElkU3RyaW5nBAAAAAckbWF0Y2gwBQAAAAdhc3NldElkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAApCeXRlVmVjdG9yBAAAAAJpZAUAAAAHJG1hdGNoMAkAAlgAAAABBQAAAAJpZAkAAAIAAAABAgAAAAtNYXRjaCBlcnJvcgMJAABnAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAEJAAEsAAAAAgIAAAApRGVwb3NpdCBhbW91bnQgbXVzdCBiZSBwb3NpdGl2ZS4gQWN0dWFsOiAJAAGkAAAAAQUAAAAGYW1vdW50BAAAAA1wb29sQW1vdW50S2V5CQABLAAAAAIFAAAABHBvb2wCAAAADl9hc3NldF9iYWxhbmNlBAAAAAt1c2VyQWRkcmVzcwkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIEAAAAEXVzZXJQb29sQW1vdW50S2V5CQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAARwb29sAgAAAAFfBQAAAAt1c2VyQWRkcmVzcwIAAAAOX2Fzc2V0X2JhbGFuY2UEAAAAEGRBcHBBc3NldEFkZHJlc3MEAAAAByRtYXRjaDAJAAQiAAAAAQkAASwAAAACBQAAAARwb29sAgAAAA5fc2VydmljZV90b2tlbgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAZzdHJpbmcFAAAAByRtYXRjaDAFAAAABnN0cmluZwQAAAAHbm90aGluZwUAAAAHJG1hdGNoMAkAAAIAAAABAgAAACZZb3UgdHJ5IHRvIGRlcG9zaXQgb24gdW5zdXBwb3J0ZWQgcG9vbAQAAAAVbGlxdWlkdXR5QXNzZXRBZGRyZXNzBAAAAAckbWF0Y2gwCQAEIgAAAAEJAAEsAAAAAgUAAAAEcG9vbAIAAAAQX2xpcXVpZGl0eV90b2tlbgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAZzdHJpbmcFAAAAByRtYXRjaDAFAAAABnN0cmluZwQAAAAHbm90aGluZwUAAAAHJG1hdGNoMAkAAAIAAAABAgAAACZZb3UgdHJ5IHRvIGRlcG9zaXQgb24gdW5zdXBwb3J0ZWQgcG9vbAQAAAAVbGlxdWlkaXR5VG9rZW5EZWNpbWFsBAAAAAckbWF0Y2gwCQAD7AAAAAEJAAJZAAAAAQUAAAAVbGlxdWlkdXR5QXNzZXRBZGRyZXNzAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAVBc3NldAQAAAAFYXNzZXQFAAAAByRtYXRjaDAIBQAAAAVhc3NldAAAAAhkZWNpbWFscwkAAAIAAAABAgAAABBDYW4ndCBmaW5kIGFzc2V0AwkBAAAAAiE9AAAAAgUAAAAVbGlxdWlkdXR5QXNzZXRBZGRyZXNzBQAAAA1hc3NldElkU3RyaW5nCQAAAgAAAAECAAAAL1lvdSBhdHRhY2hlZCB3cm9uZyBsaXF1aWRpdHkgdG9rZW4gZnJvbSBTd29wLmZpBAAAAApwb29sQW1vdW50CQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAA1wb29sQW1vdW50S2V5BAAAAAp1c2VyQW1vdW50BAAAAAckbWF0Y2gwCQAEHwAAAAEFAAAAEXVzZXJQb29sQW1vdW50S2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAA2ludAUAAAAHJG1hdGNoMAUAAAADaW50BAAAAAdub3RoaW5nBQAAAAckbWF0Y2gwAAAAAAAAAAAABAAAAA1uZXdQb29sQW1vdW50CQAAZAAAAAIFAAAACnBvb2xBbW91bnQFAAAABmFtb3VudAQAAAAUdXNlckFtb3VudFdpdGhvdXRGZWUJAABlAAAAAgkAAGUAAAACBQAAAAZhbW91bnQJAQAAAAhmcmFjdGlvbgAAAAQFAAAABmFtb3VudAAAAAAAAAAAAQUAAAAKZGVwb3NpdEZlZQUAAAAGSEFMRlVQCQEAAAAIZnJhY3Rpb24AAAAEBQAAAAZhbW91bnQAAAAAAAAAAAEFAAAADWNvbnRyb2xsZXJGZWUFAAAABkhBTEZVUAQAAAARbmV3VXNlclBvb2xBbW91bnQJAABkAAAAAgUAAAAKdXNlckFtb3VudAUAAAAUdXNlckFtb3VudFdpdGhvdXRGZWUEAAAADWxvY2tUb2tlbnNLZXkJAAEsAAAAAgkAASwAAAACBQAAAARwb29sBQAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkCQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwkAAlkAAAABBQAAABBkQXBwQXNzZXRBZGRyZXNzBQAAABR1c2VyQW1vdW50V2l0aG91dEZlZQYJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAABR1c2VyQW1vdW50V2l0aG91dEZlZQkAAlkAAAABBQAAABBkQXBwQXNzZXRBZGRyZXNzCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAA1sb2NrVG9rZW5zS2V5BQAAABR1c2VyQW1vdW50V2l0aG91dEZlZQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAANcG9vbEFtb3VudEtleQUAAAANbmV3UG9vbEFtb3VudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAARdXNlclBvb2xBbW91bnRLZXkFAAAAEW5ld1VzZXJQb29sQW1vdW50BQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABHBvb2wAAAAGYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQkAASwAAAACAgAAAClEZXBvc2l0IGFtb3VudCBtdXN0IGJlIHBvc2l0aXZlLiBBY3R1YWw6IAkAAaQAAAABBQAAAAZhbW91bnQEAAAADXBvb2xBbW91bnRLZXkJAAEsAAAAAgUAAAAEcG9vbAIAAAAOX2Fzc2V0X2JhbGFuY2UEAAAAC3VzZXJBZGRyZXNzCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgQAAAARdXNlclBvb2xBbW91bnRLZXkJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAABHBvb2wCAAAAAV8FAAAAC3VzZXJBZGRyZXNzAgAAAA5fYXNzZXRfYmFsYW5jZQQAAAAQZEFwcEFzc2V0QWRkcmVzcwQAAAAHJG1hdGNoMAkABCIAAAABCQABLAAAAAIFAAAABHBvb2wCAAAADl9zZXJ2aWNlX3Rva2VuAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAABnN0cmluZwUAAAAHJG1hdGNoMAUAAAAGc3RyaW5nBAAAAAdub3RoaW5nBQAAAAckbWF0Y2gwCQAAAgAAAAECAAAAKVlvdSB0cnkgdG8gd2l0aGRyYXcgZnJvbSB1bnN1cHBvcnRlZCBwb29sBAAAABVsaXF1aWR1dHlBc3NldEFkZHJlc3MEAAAAByRtYXRjaDAJAAQiAAAAAQkAASwAAAACBQAAAARwb29sAgAAABBfbGlxdWlkaXR5X3Rva2VuAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAABnN0cmluZwUAAAAHJG1hdGNoMAUAAAAGc3RyaW5nBAAAAAdub3RoaW5nBQAAAAckbWF0Y2gwCQAAAgAAAAECAAAAKVlvdSB0cnkgdG8gd2l0aGRyYXcgZnJvbSB1bnN1cHBvcnRlZCBwb29sBAAAAApwb29sQW1vdW50CQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAA1wb29sQW1vdW50S2V5BAAAAAp1c2VyQW1vdW50BAAAAAckbWF0Y2gwCQAEHwAAAAEFAAAAEXVzZXJQb29sQW1vdW50S2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAA2ludAUAAAAHJG1hdGNoMAUAAAADaW50BAAAAAdub3RoaW5nBQAAAAckbWF0Y2gwAAAAAAAAAAAABAAAABBhbW91bnRXaXRob3V0RmVlCQAAZQAAAAIJAABlAAAAAgUAAAAGYW1vdW50CQEAAAAIZnJhY3Rpb24AAAAEBQAAAAZhbW91bnQAAAAAAAAAAAEFAAAAC3BsYXRmb3JtRmVlBQAAAAZIQUxGVVAJAQAAAAhmcmFjdGlvbgAAAAQFAAAABmFtb3VudAAAAAAAAAAAAQUAAAANY29udHJvbGxlckZlZQUAAAAGSEFMRlVQBAAAAA1uZXdQb29sQW1vdW50CQAAZQAAAAIFAAAACnBvb2xBbW91bnQFAAAAEGFtb3VudFdpdGhvdXRGZWUDCQAAZwAAAAIFAAAACnVzZXJBbW91bnQFAAAABmFtb3VudAQAAAARbmV3VXNlclBvb2xBbW91bnQJAABlAAAAAgUAAAAKdXNlckFtb3VudAUAAAAGYW1vdW50CQAETAAAAAIJAQAAAARCdXJuAAAAAgkAAlkAAAABBQAAABBkQXBwQXNzZXRBZGRyZXNzBQAAABBhbW91bnRXaXRob3V0RmVlCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAQYW1vdW50V2l0aG91dEZlZQkAAlkAAAABBQAAABVsaXF1aWR1dHlBc3NldEFkZHJlc3MJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAADXBvb2xBbW91bnRLZXkFAAAADW5ld1Bvb2xBbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAEXVzZXJQb29sQW1vdW50S2V5BQAAABFuZXdVc2VyUG9vbEFtb3VudAUAAAADbmlsCQAAAgAAAAECAAAAJllvdSBoYXZlIG5vdCBzdWNoIGJhbGFuY2UgZm9yIHdpdGhkcmF3AAAAAQAAAAJiNgEAAAACYjcAAAAACQAB9AAAAAMIBQAAAAJiNgAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAmI2AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAmI2AAAAD3NlbmRlclB1YmxpY0tleb8VVtw=",
    "height": 1797773,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: A9teUyf6k86uNxRqmnPdjuPQG5VWuMr2Vdm7Ngcc5a22
Next: EtXsXcPqUCutpDtfekrpKKwyMDPfvV1U5vs8Zo2kwQ1r

Diff: 
Old New Differences
186 186                          let newPoolAmount = (poolAmount + amount)
187 187                          let userAmountWithoutFee = ((amount - fraction(amount, 1, depositFee, HALFUP)) - fraction(amount, 1, controllerFee, HALFUP))
188 188                          let newUserPoolAmount = (userAmount + userAmountWithoutFee)
189 - [Reissue(fromBase58String(dAppAssetAddress), userAmountWithoutFee, true), ScriptTransfer(i.caller, userAmountWithoutFee, fromBase58String(dAppAssetAddress)), IntegerEntry(poolAmountKey, newPoolAmount), IntegerEntry(userPoolAmountKey, newUserPoolAmount)]
189 +                         let lockTokensKey = ((pool + userAddress) + toBase58String(i.transactionId))
190 + [Reissue(fromBase58String(dAppAssetAddress), userAmountWithoutFee, true), ScriptTransfer(i.caller, userAmountWithoutFee, fromBase58String(dAppAssetAddress)), IntegerEntry(lockTokensKey, userAmountWithoutFee), IntegerEntry(poolAmountKey, newPoolAmount), IntegerEntry(userPoolAmountKey, newUserPoolAmount)]
190 191                          }
191 192                  }
192 193          }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let depositFee = 1000
5 5  
6 6  let controllerFee = 10000
7 7  
8 8  let platformFee = 10000
9 9  
10 10  let adminPubKey1 = base58'68Po1k24uP6goKr7RDmXPg4QkMiKuyTMEirao14rif8s'
11 11  
12 12  let adminPubKey2 = base58'68Po1k24uP6goKr7RDmXPg4QkMiKuyTMEirao14rif8s'
13 13  
14 14  let adminPubKey3 = base58'68Po1k24uP6goKr7RDmXPg4QkMiKuyTMEirao14rif8s'
15 15  
16 16  @Callable(i)
17 17  func addPools (pools,liquidityTokens,serviceTokens,liquidityTokenDecimals) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
18 18      then {
19 19          func generatePoolKeys (accumulated,pool) =         IntegerEntry((pool + "_asset_balance"), 0) :: accumulated
20 20  
21 21          func generatePoolLiquidityTokenKeys (accumulated,pool) =         {
22 22              let poolIndex = value(indexOf(pools, pool))
23 23              let liquidityToken = liquidityTokens[poolIndex]
24 24  StringEntry((pool + "_liquidity_token"), liquidityToken) :: accumulated
25 25              }
26 26  
27 27          func generatePoolServiceTokenKeys (accumulated,pool) =         {
28 28              let poolIndex = value(indexOf(pools, pool))
29 29              let liquidityToken = serviceTokens[poolIndex]
30 30  StringEntry((pool + "_service_token"), liquidityToken) :: accumulated
31 31              }
32 32  
33 33          func generatePoolLiquidityTokenDecimalKeys (accumulated,pool) =         {
34 34              let poolIndex = value(indexOf(pools, pool))
35 35              let liquidityToken = liquidityTokenDecimals[poolIndex]
36 36  IntegerEntry((pool + "_service_token"), liquidityToken) :: accumulated
37 37              }
38 38  
39 39          func generatePoolActiveKeys (accumulated,pool) =         BooleanEntry((pool + "_active"), true) :: accumulated
40 40  
41 41          let poolBalanceKeys = {
42 42              let $l = pools
43 43              let $s = size($l)
44 44              let $acc0 = nil
45 45              func 1 ($a,$i) =             if (($i >= $s))
46 46                  then $a
47 47                  else generatePoolKeys($a, $l[$i])
48 48  
49 49              func 2 ($a,$i) =             if (($i >= $s))
50 50                  then $a
51 51                  else throw("List size exceeds 20")
52 52  
53 53              2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
54 54              }
55 55          let poolLiquidityTokenKeys = {
56 56              let $l = pools
57 57              let $s = size($l)
58 58              let $acc0 = nil
59 59              func 1 ($a,$i) =             if (($i >= $s))
60 60                  then $a
61 61                  else generatePoolLiquidityTokenKeys($a, $l[$i])
62 62  
63 63              func 2 ($a,$i) =             if (($i >= $s))
64 64                  then $a
65 65                  else throw("List size exceeds 20")
66 66  
67 67              2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
68 68              }
69 69          let poolServiceTokenKeys = {
70 70              let $l = pools
71 71              let $s = size($l)
72 72              let $acc0 = nil
73 73              func 1 ($a,$i) =             if (($i >= $s))
74 74                  then $a
75 75                  else generatePoolServiceTokenKeys($a, $l[$i])
76 76  
77 77              func 2 ($a,$i) =             if (($i >= $s))
78 78                  then $a
79 79                  else throw("List size exceeds 20")
80 80  
81 81              2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
82 82              }
83 83          let poolLiquidityTokenDecimalKeys = {
84 84              let $l = pools
85 85              let $s = size($l)
86 86              let $acc0 = nil
87 87              func 1 ($a,$i) =             if (($i >= $s))
88 88                  then $a
89 89                  else generatePoolLiquidityTokenDecimalKeys($a, $l[$i])
90 90  
91 91              func 2 ($a,$i) =             if (($i >= $s))
92 92                  then $a
93 93                  else throw("List size exceeds 20")
94 94  
95 95              2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
96 96              }
97 97          let poolActiveKeys = {
98 98              let $l = pools
99 99              let $s = size($l)
100 100              let $acc0 = nil
101 101              func 1 ($a,$i) =             if (($i >= $s))
102 102                  then $a
103 103                  else generatePoolActiveKeys($a, $l[$i])
104 104  
105 105              func 2 ($a,$i) =             if (($i >= $s))
106 106                  then $a
107 107                  else throw("List size exceeds 20")
108 108  
109 109              2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
110 110              }
111 111          ((((poolBalanceKeys ++ poolLiquidityTokenKeys) ++ poolServiceTokenKeys) ++ poolLiquidityTokenDecimalKeys) ++ poolActiveKeys)
112 112          }
113 113      else throw("Only admin can call this function")
114 114  
115 115  
116 116  
117 117  @Callable(i)
118 118  func issueToken (name,description,quantity,decimals) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
119 119      then [Issue(name, description, quantity, decimals, true, unit, 0)]
120 120      else throw("Only admin can call this function")
121 121  
122 122  
123 123  
124 124  @Callable(a8)
125 125  func call () = {
126 126      let pmtAmountA = 10
127 127      let pmtAmountB = 1
128 128      let pmtDecimalsA = 8
129 129      let pmtDecimalsB = 6
130 130      let shareDecimals = ((pmtDecimalsA + pmtDecimalsB) / 2)
131 131      let a9 = pow(pmtAmountA, pmtDecimalsA, 5, 1, pmtDecimalsA, DOWN)
132 132      let a10 = pow(pmtAmountB, pmtDecimalsB, 5, 1, pmtDecimalsB, DOWN)
133 133      let third = pow(10, 0, shareDecimals, 0, 0, DOWN)
134 134      let fouth = fraction(a9, a10, third)
135 135  [IntegerEntry("fisrt", a9), IntegerEntry("second", a10), IntegerEntry("third", third), IntegerEntry("fouth", fouth)]
136 136      }
137 137  
138 138  
139 139  
140 140  @Callable(i)
141 141  func deposit (pool) = if ((size(i.payments) != 1))
142 142      then throw("One attached payment expected")
143 143      else {
144 144          let amount = i.payments[0].amount
145 145          let assetId = i.payments[0].assetId
146 146          let assetIdString =         match assetId {
147 147              case id: ByteVector => 
148 148                  toBase58String(id)
149 149              case _ => 
150 150                  throw("Match error")
151 151          }
152 152          if ((0 >= amount))
153 153              then throw(("Deposit amount must be positive. Actual: " + toString(amount)))
154 154              else {
155 155                  let poolAmountKey = (pool + "_asset_balance")
156 156                  let userAddress = toString(i.caller)
157 157                  let userPoolAmountKey = (((pool + "_") + userAddress) + "_asset_balance")
158 158                  let dAppAssetAddress =                 match getString((pool + "_service_token")) {
159 159                      case string: String => 
160 160                          string
161 161                      case nothing => 
162 162                          throw("You try to deposit on unsupported pool")
163 163                  }
164 164                  let liquidutyAssetAddress =                 match getString((pool + "_liquidity_token")) {
165 165                      case string: String => 
166 166                          string
167 167                      case nothing => 
168 168                          throw("You try to deposit on unsupported pool")
169 169                  }
170 170                  let liquidityTokenDecimal =                 match assetInfo(fromBase58String(liquidutyAssetAddress)) {
171 171                      case asset: Asset => 
172 172                          asset.decimals
173 173                      case _ => 
174 174                          throw("Can't find asset")
175 175                  }
176 176                  if ((liquidutyAssetAddress != assetIdString))
177 177                      then throw("You attached wrong liquidity token from Swop.fi")
178 178                      else {
179 179                          let poolAmount = getIntegerValue(this, poolAmountKey)
180 180                          let userAmount =                         match getInteger(userPoolAmountKey) {
181 181                              case int: Int => 
182 182                                  int
183 183                              case nothing => 
184 184                                  0
185 185                          }
186 186                          let newPoolAmount = (poolAmount + amount)
187 187                          let userAmountWithoutFee = ((amount - fraction(amount, 1, depositFee, HALFUP)) - fraction(amount, 1, controllerFee, HALFUP))
188 188                          let newUserPoolAmount = (userAmount + userAmountWithoutFee)
189 - [Reissue(fromBase58String(dAppAssetAddress), userAmountWithoutFee, true), ScriptTransfer(i.caller, userAmountWithoutFee, fromBase58String(dAppAssetAddress)), IntegerEntry(poolAmountKey, newPoolAmount), IntegerEntry(userPoolAmountKey, newUserPoolAmount)]
189 +                         let lockTokensKey = ((pool + userAddress) + toBase58String(i.transactionId))
190 + [Reissue(fromBase58String(dAppAssetAddress), userAmountWithoutFee, true), ScriptTransfer(i.caller, userAmountWithoutFee, fromBase58String(dAppAssetAddress)), IntegerEntry(lockTokensKey, userAmountWithoutFee), IntegerEntry(poolAmountKey, newPoolAmount), IntegerEntry(userPoolAmountKey, newUserPoolAmount)]
190 191                          }
191 192                  }
192 193          }
193 194  
194 195  
195 196  
196 197  @Callable(i)
197 198  func withdraw (pool,amount) = if ((0 >= amount))
198 199      then throw(("Deposit amount must be positive. Actual: " + toString(amount)))
199 200      else {
200 201          let poolAmountKey = (pool + "_asset_balance")
201 202          let userAddress = toString(i.caller)
202 203          let userPoolAmountKey = (((pool + "_") + userAddress) + "_asset_balance")
203 204          let dAppAssetAddress =         match getString((pool + "_service_token")) {
204 205              case string: String => 
205 206                  string
206 207              case nothing => 
207 208                  throw("You try to withdraw from unsupported pool")
208 209          }
209 210          let liquidutyAssetAddress =         match getString((pool + "_liquidity_token")) {
210 211              case string: String => 
211 212                  string
212 213              case nothing => 
213 214                  throw("You try to withdraw from unsupported pool")
214 215          }
215 216          let poolAmount = getIntegerValue(this, poolAmountKey)
216 217          let userAmount =         match getInteger(userPoolAmountKey) {
217 218              case int: Int => 
218 219                  int
219 220              case nothing => 
220 221                  0
221 222          }
222 223          let amountWithoutFee = ((amount - fraction(amount, 1, platformFee, HALFUP)) - fraction(amount, 1, controllerFee, HALFUP))
223 224          let newPoolAmount = (poolAmount - amountWithoutFee)
224 225          if ((userAmount >= amount))
225 226              then {
226 227                  let newUserPoolAmount = (userAmount - amount)
227 228  [Burn(fromBase58String(dAppAssetAddress), amountWithoutFee), ScriptTransfer(i.caller, amountWithoutFee, fromBase58String(liquidutyAssetAddress)), IntegerEntry(poolAmountKey, newPoolAmount), IntegerEntry(userPoolAmountKey, newUserPoolAmount)]
228 229                  }
229 230              else throw("You have not such balance for withdraw")
230 231          }
231 232  
232 233  
233 234  @Verifier(b6)
234 235  func b7 () = sigVerify(b6.bodyBytes, b6.proofs[0], b6.senderPublicKey)
235 236

Old	New		Differences
186	186		let newPoolAmount = (poolAmount + amount)
187	187		let userAmountWithoutFee = ((amount - fraction(amount, 1, depositFee, HALFUP)) - fraction(amount, 1, controllerFee, HALFUP))
188	188		let newUserPoolAmount = (userAmount + userAmountWithoutFee)
189		-	[Reissue(fromBase58String(dAppAssetAddress), userAmountWithoutFee, true), ScriptTransfer(i.caller, userAmountWithoutFee, fromBase58String(dAppAssetAddress)), IntegerEntry(poolAmountKey, newPoolAmount), IntegerEntry(userPoolAmountKey, newUserPoolAmount)]
	189	+	let lockTokensKey = ((pool + userAddress) + toBase58String(i.transactionId))
	190	+	[Reissue(fromBase58String(dAppAssetAddress), userAmountWithoutFee, true), ScriptTransfer(i.caller, userAmountWithoutFee, fromBase58String(dAppAssetAddress)), IntegerEntry(lockTokensKey, userAmountWithoutFee), IntegerEntry(poolAmountKey, newPoolAmount), IntegerEntry(userPoolAmountKey, newUserPoolAmount)]
190	191		}
191	192		}
192	193		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let depositFee = 1000
5	5
6	6		let controllerFee = 10000
7	7
8	8		let platformFee = 10000
9	9
10	10		let adminPubKey1 = base58'68Po1k24uP6goKr7RDmXPg4QkMiKuyTMEirao14rif8s'
11	11
12	12		let adminPubKey2 = base58'68Po1k24uP6goKr7RDmXPg4QkMiKuyTMEirao14rif8s'
13	13
14	14		let adminPubKey3 = base58'68Po1k24uP6goKr7RDmXPg4QkMiKuyTMEirao14rif8s'
15	15
16	16		@Callable(i)
17	17		func addPools (pools,liquidityTokens,serviceTokens,liquidityTokenDecimals) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
18	18		then {
19	19		func generatePoolKeys (accumulated,pool) = IntegerEntry((pool + "_asset_balance"), 0) :: accumulated
20	20
21	21		func generatePoolLiquidityTokenKeys (accumulated,pool) = {
22	22		let poolIndex = value(indexOf(pools, pool))
23	23		let liquidityToken = liquidityTokens[poolIndex]
24	24		StringEntry((pool + "_liquidity_token"), liquidityToken) :: accumulated
25	25		}
26	26
27	27		func generatePoolServiceTokenKeys (accumulated,pool) = {
28	28		let poolIndex = value(indexOf(pools, pool))
29	29		let liquidityToken = serviceTokens[poolIndex]
30	30		StringEntry((pool + "_service_token"), liquidityToken) :: accumulated
31	31		}
32	32
33	33		func generatePoolLiquidityTokenDecimalKeys (accumulated,pool) = {
34	34		let poolIndex = value(indexOf(pools, pool))
35	35		let liquidityToken = liquidityTokenDecimals[poolIndex]
36	36		IntegerEntry((pool + "_service_token"), liquidityToken) :: accumulated
37	37		}
38	38
39	39		func generatePoolActiveKeys (accumulated,pool) = BooleanEntry((pool + "_active"), true) :: accumulated
40	40
41	41		let poolBalanceKeys = {
42	42		let $l = pools
43	43		let $s = size($l)
44	44		let $acc0 = nil
45	45		func 1 ($a,$i) = if (($i >= $s))
46	46		then $a
47	47		else generatePoolKeys($a, $l[$i])
48	48
49	49		func 2 ($a,$i) = if (($i >= $s))
50	50		then $a
51	51		else throw("List size exceeds 20")
52	52
53	53		2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
54	54		}
55	55		let poolLiquidityTokenKeys = {
56	56		let $l = pools
57	57		let $s = size($l)
58	58		let $acc0 = nil
59	59		func 1 ($a,$i) = if (($i >= $s))
60	60		then $a
61	61		else generatePoolLiquidityTokenKeys($a, $l[$i])
62	62
63	63		func 2 ($a,$i) = if (($i >= $s))
64	64		then $a
65	65		else throw("List size exceeds 20")
66	66
67	67		2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
68	68		}
69	69		let poolServiceTokenKeys = {
70	70		let $l = pools
71	71		let $s = size($l)
72	72		let $acc0 = nil
73	73		func 1 ($a,$i) = if (($i >= $s))
74	74		then $a
75	75		else generatePoolServiceTokenKeys($a, $l[$i])
76	76
77	77		func 2 ($a,$i) = if (($i >= $s))
78	78		then $a
79	79		else throw("List size exceeds 20")
80	80
81	81		2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
82	82		}
83	83		let poolLiquidityTokenDecimalKeys = {
84	84		let $l = pools
85	85		let $s = size($l)
86	86		let $acc0 = nil
87	87		func 1 ($a,$i) = if (($i >= $s))
88	88		then $a
89	89		else generatePoolLiquidityTokenDecimalKeys($a, $l[$i])
90	90
91	91		func 2 ($a,$i) = if (($i >= $s))
92	92		then $a
93	93		else throw("List size exceeds 20")
94	94
95	95		2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
96	96		}
97	97		let poolActiveKeys = {
98	98		let $l = pools
99	99		let $s = size($l)
100	100		let $acc0 = nil
101	101		func 1 ($a,$i) = if (($i >= $s))
102	102		then $a
103	103		else generatePoolActiveKeys($a, $l[$i])
104	104
105	105		func 2 ($a,$i) = if (($i >= $s))
106	106		then $a
107	107		else throw("List size exceeds 20")
108	108
109	109		2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
110	110		}
111	111		((((poolBalanceKeys ++ poolLiquidityTokenKeys) ++ poolServiceTokenKeys) ++ poolLiquidityTokenDecimalKeys) ++ poolActiveKeys)
112	112		}
113	113		else throw("Only admin can call this function")
114	114
115	115
116	116
117	117		@Callable(i)
118	118		func issueToken (name,description,quantity,decimals) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
119	119		then [Issue(name, description, quantity, decimals, true, unit, 0)]
120	120		else throw("Only admin can call this function")
121	121
122	122
123	123
124	124		@Callable(a8)
125	125		func call () = {
126	126		let pmtAmountA = 10
127	127		let pmtAmountB = 1
128	128		let pmtDecimalsA = 8
129	129		let pmtDecimalsB = 6
130	130		let shareDecimals = ((pmtDecimalsA + pmtDecimalsB) / 2)
131	131		let a9 = pow(pmtAmountA, pmtDecimalsA, 5, 1, pmtDecimalsA, DOWN)
132	132		let a10 = pow(pmtAmountB, pmtDecimalsB, 5, 1, pmtDecimalsB, DOWN)
133	133		let third = pow(10, 0, shareDecimals, 0, 0, DOWN)
134	134		let fouth = fraction(a9, a10, third)
135	135		[IntegerEntry("fisrt", a9), IntegerEntry("second", a10), IntegerEntry("third", third), IntegerEntry("fouth", fouth)]
136	136		}
137	137
138	138
139	139
140	140		@Callable(i)
141	141		func deposit (pool) = if ((size(i.payments) != 1))
142	142		then throw("One attached payment expected")
143	143		else {
144	144		let amount = i.payments[0].amount
145	145		let assetId = i.payments[0].assetId
146	146		let assetIdString = match assetId {
147	147		case id: ByteVector =>
148	148		toBase58String(id)
149	149		case _ =>
150	150		throw("Match error")
151	151		}
152	152		if ((0 >= amount))
153	153		then throw(("Deposit amount must be positive. Actual: " + toString(amount)))
154	154		else {
155	155		let poolAmountKey = (pool + "_asset_balance")
156	156		let userAddress = toString(i.caller)
157	157		let userPoolAmountKey = (((pool + "_") + userAddress) + "_asset_balance")
158	158		let dAppAssetAddress = match getString((pool + "_service_token")) {
159	159		case string: String =>
160	160		string
161	161		case nothing =>
162	162		throw("You try to deposit on unsupported pool")
163	163		}
164	164		let liquidutyAssetAddress = match getString((pool + "_liquidity_token")) {
165	165		case string: String =>
166	166		string
167	167		case nothing =>
168	168		throw("You try to deposit on unsupported pool")
169	169		}
170	170		let liquidityTokenDecimal = match assetInfo(fromBase58String(liquidutyAssetAddress)) {
171	171		case asset: Asset =>
172	172		asset.decimals
173	173		case _ =>
174	174		throw("Can't find asset")
175	175		}
176	176		if ((liquidutyAssetAddress != assetIdString))
177	177		then throw("You attached wrong liquidity token from Swop.fi")
178	178		else {
179	179		let poolAmount = getIntegerValue(this, poolAmountKey)
180	180		let userAmount = match getInteger(userPoolAmountKey) {
181	181		case int: Int =>
182	182		int
183	183		case nothing =>
184	184		0
185	185		}
186	186		let newPoolAmount = (poolAmount + amount)
187	187		let userAmountWithoutFee = ((amount - fraction(amount, 1, depositFee, HALFUP)) - fraction(amount, 1, controllerFee, HALFUP))
188	188		let newUserPoolAmount = (userAmount + userAmountWithoutFee)
189		-	[Reissue(fromBase58String(dAppAssetAddress), userAmountWithoutFee, true), ScriptTransfer(i.caller, userAmountWithoutFee, fromBase58String(dAppAssetAddress)), IntegerEntry(poolAmountKey, newPoolAmount), IntegerEntry(userPoolAmountKey, newUserPoolAmount)]
	189	+	let lockTokensKey = ((pool + userAddress) + toBase58String(i.transactionId))
	190	+	[Reissue(fromBase58String(dAppAssetAddress), userAmountWithoutFee, true), ScriptTransfer(i.caller, userAmountWithoutFee, fromBase58String(dAppAssetAddress)), IntegerEntry(lockTokensKey, userAmountWithoutFee), IntegerEntry(poolAmountKey, newPoolAmount), IntegerEntry(userPoolAmountKey, newUserPoolAmount)]
190	191		}
191	192		}
192	193		}
193	194
194	195
195	196
196	197		@Callable(i)
197	198		func withdraw (pool,amount) = if ((0 >= amount))
198	199		then throw(("Deposit amount must be positive. Actual: " + toString(amount)))
199	200		else {
200	201		let poolAmountKey = (pool + "_asset_balance")
201	202		let userAddress = toString(i.caller)
202	203		let userPoolAmountKey = (((pool + "_") + userAddress) + "_asset_balance")
203	204		let dAppAssetAddress = match getString((pool + "_service_token")) {
204	205		case string: String =>
205	206		string
206	207		case nothing =>
207	208		throw("You try to withdraw from unsupported pool")
208	209		}
209	210		let liquidutyAssetAddress = match getString((pool + "_liquidity_token")) {
210	211		case string: String =>
211	212		string
212	213		case nothing =>
213	214		throw("You try to withdraw from unsupported pool")
214	215		}
215	216		let poolAmount = getIntegerValue(this, poolAmountKey)
216	217		let userAmount = match getInteger(userPoolAmountKey) {
217	218		case int: Int =>
218	219		int
219	220		case nothing =>
220	221		0
221	222		}
222	223		let amountWithoutFee = ((amount - fraction(amount, 1, platformFee, HALFUP)) - fraction(amount, 1, controllerFee, HALFUP))
223	224		let newPoolAmount = (poolAmount - amountWithoutFee)
224	225		if ((userAmount >= amount))
225	226		then {
226	227		let newUserPoolAmount = (userAmount - amount)
227	228		[Burn(fromBase58String(dAppAssetAddress), amountWithoutFee), ScriptTransfer(i.caller, amountWithoutFee, fromBase58String(liquidutyAssetAddress)), IntegerEntry(poolAmountKey, newPoolAmount), IntegerEntry(userPoolAmountKey, newUserPoolAmount)]
228	229		}
229	230		else throw("You have not such balance for withdraw")
230	231		}
231	232
232	233
233	234		@Verifier(b6)
234	235		func b7 () = sigVerify(b6.bodyBytes, b6.proofs[0], b6.senderPublicKey)
235	236

github/deemru/w8io/169f3d6 
35.61 ms ◑