tx · AZCcydYvW5aiS9fYbHjRXWnyqYsFdqd7GGNPwBPBRQ7f 3N4vUDe3oc1YPNwMyQi2h8f2tmGoA7wBZp2: -0.01400000 Waves 2022.05.18 16:19 [2057154] smart account 3N4vUDe3oc1YPNwMyQi2h8f2tmGoA7wBZp2 > SELF 0.00000000 Waves
{ "type": 13, "id": "AZCcydYvW5aiS9fYbHjRXWnyqYsFdqd7GGNPwBPBRQ7f", "fee": 1400000, "feeAssetId": null, "timestamp": 1652879984664, "version": 1, "sender": "3N4vUDe3oc1YPNwMyQi2h8f2tmGoA7wBZp2", "senderPublicKey": "6MuWw1pkme7UgQX2hZh8yTZyoWVkz8A4rmHZ1acrsrVm", "proofs": [ "2rxUEG37rSkzFA83Cy19mtceYZGs9Q8mYf5MtuGiFv7oQ3qqxuUCsiBStfhMwtLYX4q8TyDw8KpXi5hgiMvW7f6g" ], "script": "base64:AAIFAAAAAAAAACIIAhIDCgEIEgMKAQgSABIDCgEYEggKBgEBAQEIARIDCgEIAAAAHgAAAAADU0VQAgAAAAJfXwAAAAAFRU1QVFkCAAAAAAAAAAAOaWR4UG9vbEFkZHJlc3MAAAAAAAAAAAEAAAAACWlkeExQQXNJZAAAAAAAAAAAAwAAAAAJaWR4QW1Bc0lkAAAAAAAAAAAEAAAAAAlpZHhQckFzSWQAAAAAAAAAAAUAAAAAD2lkeEZhY3RTdGFrQ250cgAAAAAAAAAAAQEAAAALa2V5RmFjdENudHIAAAAAAgAAABMlc19fZmFjdG9yeUNvbnRyYWN0AQAAABNrZXlNYW5hZ2VyUHVibGljS2V5AAAAAAIAAAAUJXNfX21hbmFnZXJQdWJsaWNLZXkBAAAAGmtleVBlbmRpbmdNYW5hZ2VyUHVibGljS2V5AAAAAAIAAAAbJXNfX3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AQAAAAtrZXlQb29sQWRkcgAAAAACAAAADyVzX19wb29sQWRkcmVzcwEAAAALa2V5QW10QXNzZXQAAAAAAgAAAA8lc19fYW1vdW50QXNzZXQBAAAADWtleVByaWNlQXNzZXQAAAAAAgAAAA4lc19fcHJpY2VBc3NldAEAAAAPa2V5QWRtaW5QdWJLZXlzAAAAAAIAAAAQJXNfX2FkbWluUHViS2V5cwEAAAAGa2V5QW1wAAAAAAIAAAAHJXNfX2FtcAEAAAANa2V5QW1wSGlzdG9yeQAAAAEAAAAGaGVpZ2h0CQABLAAAAAICAAAACyVzJWRfX2FtcF9fCQABpAAAAAEFAAAABmhlaWdodAEAAAAQa2V5RmFjdG9yeUNvbmZpZwAAAAACAAAAESVzX19mYWN0b3J5Q29uZmlnAQAAAA1rZXlQb29sQ29uZmlnAAAAAgAAAAZpQW10QXMAAAAFaVByQXMJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAIJWQlZCVzX18FAAAABmlBbXRBcwIAAAACX18FAAAABWlQckFzAgAAAAhfX2NvbmZpZwEAAAAfa2V5TWFwcGluZ3NCYXNlQXNzZXQyaW50ZXJuYWxJZAAAAAEAAAAFYkFTdHIJAAEsAAAAAgIAAAAoJXMlcyVzX19tYXBwaW5nc19fYmFzZUFzc2V0MmludGVybmFsSWRfXwUAAAAFYkFTdHIBAAAAD2dldFN0cmluZ09yRmFpbAAAAAIAAAAEYWRkcgAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAARhZGRyBQAAAANrZXkJAAS5AAAAAgkABEwAAAACAgAAAAptYW5kYXRvcnkgCQAETAAAAAIJAAQlAAAAAQUAAAAEYWRkcgkABEwAAAACAgAAAAEuCQAETAAAAAIFAAAAA2tleQkABEwAAAACAgAAAAwgbm90IGRlZmluZWQFAAAAA25pbAIAAAAAAQAAAAxnZXRJbnRPckZhaWwAAAACAAAABGFkZHIAAAADa2V5CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAAEYWRkcgUAAAADa2V5CQAEuQAAAAIJAARMAAAAAgIAAAAKbWFuZGF0b3J5IAkABEwAAAACCQAEJQAAAAEFAAAABGFkZHIJAARMAAAAAgIAAAABLgkABEwAAAACBQAAAANrZXkJAARMAAAAAgIAAAAMIG5vdCBkZWZpbmVkBQAAAANuaWwCAAAAAAAAAAAMcG9vbENvbnRyYWN0CQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAgUAAAAEdGhpcwkBAAAAC2tleVBvb2xBZGRyAAAAAAAAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAgUAAAAMcG9vbENvbnRyYWN0CQEAAAALa2V5RmFjdENudHIAAAAAAQAAAA1nZXRQb29sQ29uZmlnAAAAAAQAAAAFYW10QXMJAQAAAA9nZXRTdHJpbmdPckZhaWwAAAACBQAAAAxwb29sQ29udHJhY3QJAQAAAAtrZXlBbXRBc3NldAAAAAAEAAAAB3ByaWNlQXMJAQAAAA9nZXRTdHJpbmdPckZhaWwAAAACBQAAAAxwb29sQ29udHJhY3QJAQAAAA1rZXlQcmljZUFzc2V0AAAAAAQAAAAIaVByaWNlQXMJAQAAAAxnZXRJbnRPckZhaWwAAAACBQAAAA9mYWN0b3J5Q29udHJhY3QJAQAAAB9rZXlNYXBwaW5nc0Jhc2VBc3NldDJpbnRlcm5hbElkAAAAAQUAAAAHcHJpY2VBcwQAAAAGaUFtdEFzCQEAAAAMZ2V0SW50T3JGYWlsAAAAAgUAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAAfa2V5TWFwcGluZ3NCYXNlQXNzZXQyaW50ZXJuYWxJZAAAAAEFAAAABWFtdEFzCQAEtQAAAAIJAQAAAA9nZXRTdHJpbmdPckZhaWwAAAACBQAAAA9mYWN0b3J5Q29udHJhY3QJAQAAAA1rZXlQb29sQ29uZmlnAAAAAgkAAaQAAAABBQAAAAZpQW10QXMJAAGkAAAAAQUAAAAIaVByaWNlQXMFAAAAA1NFUAEAAAAQZ2V0RmFjdG9yeUNvbmZpZwAAAAAJAAS1AAAAAgkBAAAAD2dldFN0cmluZ09yRmFpbAAAAAIFAAAAD2ZhY3RvcnlDb250cmFjdAkBAAAAEGtleUZhY3RvcnlDb25maWcAAAAABQAAAANTRVABAAAAFm1hbmFnZXJQdWJsaWNLZXlPclVuaXQAAAAABAAAAAckbWF0Y2gwCQAEIgAAAAEJAQAAABNrZXlNYW5hZ2VyUHVibGljS2V5AAAAAAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFzBQAAAAckbWF0Y2gwCQACWQAAAAEFAAAAAXMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABFVuaXQFAAAABHVuaXQJAAACAAAAAQIAAAALTWF0Y2ggZXJyb3IBAAAAHXBlbmRpbmdNYW5hZ2VyUHVibGljS2V5T3JVbml0AAAAAAQAAAAHJG1hdGNoMAkABCIAAAABCQEAAAAaa2V5UGVuZGluZ01hbmFnZXJQdWJsaWNLZXkAAAAAAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXMFAAAAByRtYXRjaDAJAAJZAAAAAQUAAAABcwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAUAAAAEdW5pdAkAAAIAAAABAgAAAAtNYXRjaCBlcnJvcgEAAAALbXVzdE1hbmFnZXIAAAABAAAAAWkEAAAAAnBkCQAAAgAAAAECAAAAEVBlcm1pc3Npb24gZGVuaWVkBAAAAAckbWF0Y2gwCQEAAAAWbWFuYWdlclB1YmxpY0tleU9yVW5pdAAAAAADCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAAAnBrBQAAAAckbWF0Y2gwAwkAAAAAAAACCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkFAAAAAnBrBgUAAAACcGQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABFVuaXQDCQAAAAAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwYFAAAAAnBkCQAAAgAAAAECAAAAC01hdGNoIGVycm9yAQAAAAlnZXRBZG1pbnMAAAAABAAAAAckbWF0Y2gwCQAEIgAAAAEJAQAAAA9rZXlBZG1pblB1YktleXMAAAAAAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXMFAAAAByRtYXRjaDADCQAAAAAAAAIJAAExAAAAAQUAAAABcwAAAAAAAAAAAAUAAAADbmlsCQAEtQAAAAIFAAAAAXMFAAAAA1NFUAUAAAADbmlsAQAAAAltdXN0QWRtaW4AAAABAAAAAWkDCQEAAAAPY29udGFpbnNFbGVtZW50AAAAAgkBAAAACWdldEFkbWlucwAAAAAJAAJYAAAAAQgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5BgkBAAAAC211c3RNYW5hZ2VyAAAAAQUAAAABaQAAAAYAAAABaQEAAAALY29uc3RydWN0b3IAAAABAAAAC3Bvb2xBZGRyZXNzBAAAAAtjaGVja0NhbGxlcgkBAAAAC211c3RNYW5hZ2VyAAAAAQUAAAABaQMJAAAAAAAAAgUAAAALY2hlY2tDYWxsZXIFAAAAC2NoZWNrQ2FsbGVyCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAAAtrZXlQb29sQWRkcgAAAAAFAAAAC3Bvb2xBZGRyZXNzBQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAACnNldE1hbmFnZXIAAAABAAAAF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5BAAAAAtjaGVja0NhbGxlcgkBAAAAC211c3RNYW5hZ2VyAAAAAQUAAAABaQMJAAAAAAAAAgUAAAALY2hlY2tDYWxsZXIFAAAAC2NoZWNrQ2FsbGVyBAAAABVjaGVja01hbmFnZXJQdWJsaWNLZXkJAAJZAAAAAQUAAAAXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkDCQAAAAAAAAIFAAAAFWNoZWNrTWFuYWdlclB1YmxpY0tleQUAAAAVY2hlY2tNYW5hZ2VyUHVibGljS2V5CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABprZXlQZW5kaW5nTWFuYWdlclB1YmxpY0tleQAAAAAFAAAAF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5BQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAFpAQAAAA5jb25maXJtTWFuYWdlcgAAAAAEAAAAAnBtCQEAAAAdcGVuZGluZ01hbmFnZXJQdWJsaWNLZXlPclVuaXQAAAAABAAAAAVoYXNQTQMJAQAAAAlpc0RlZmluZWQAAAABBQAAAAJwbQYJAAACAAAAAQIAAAASTm8gcGVuZGluZyBtYW5hZ2VyAwkAAAAAAAACBQAAAAVoYXNQTQUAAAAFaGFzUE0EAAAAB2NoZWNrUE0DCQAAAAAAAAIIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQkBAAAABXZhbHVlAAAAAQUAAAACcG0GCQAAAgAAAAECAAAAG1lvdSBhcmUgbm90IHBlbmRpbmcgbWFuYWdlcgMJAAAAAAAAAgUAAAAHY2hlY2tQTQUAAAAHY2hlY2tQTQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAATa2V5TWFuYWdlclB1YmxpY0tleQAAAAAJAAJYAAAAAQkBAAAABXZhbHVlAAAAAQUAAAACcG0JAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQkBAAAAGmtleVBlbmRpbmdNYW5hZ2VyUHVibGljS2V5AAAAAAUAAAADbmlsCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAJc2V0QWRtaW5zAAAAAQAAAAxhZG1pblB1YktleXMEAAAAC2NoZWNrQ2FsbGVyCQEAAAALbXVzdE1hbmFnZXIAAAABBQAAAAFpAwkAAAAAAAACBQAAAAtjaGVja0NhbGxlcgUAAAALY2hlY2tDYWxsZXIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAD2tleUFkbWluUHViS2V5cwAAAAAJAAS5AAAAAgUAAAAMYWRtaW5QdWJLZXlzBQAAAANTRVAFAAAAA25pbAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAATdW5zdGFrZUFuZEdldE9uZVRrbgAAAAYAAAAGYW1vdW50AAAACmV4Y2hSZXN1bHQAAAAHbm90VXNlZAAAAAlvdXRBbW91bnQAAAAKb3V0QXNzZXRJZAAAAAhzbGlwcGFnZQQAAAANY2hlY2tQYXltZW50cwMJAQAAAAIhPQAAAAIJAAGQAAAAAQgFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAJAAACAAAAAQIAAAANTm8gcG1udHMgZXhwZAYDCQAAAAAAAAIFAAAADWNoZWNrUGF5bWVudHMFAAAADWNoZWNrUGF5bWVudHMEAAAAA2NmZwkBAAAADWdldFBvb2xDb25maWcAAAAABAAAAApmYWN0b3J5Q2ZnCQEAAAAQZ2V0RmFjdG9yeUNvbmZpZwAAAAAEAAAACWxwQXNzZXRJZAkAAlkAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAJaWR4TFBBc0lkBAAAAAdzdGFraW5nCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQmAAAAAQkAAZEAAAACBQAAAApmYWN0b3J5Q2ZnBQAAAA9pZHhGYWN0U3Rha0NudHICAAAACldyIHN0IGFkZHIEAAAACnVuc3Rha2VJbnYJAAP8AAAABAUAAAAHc3Rha2luZwIAAAAHdW5zdGFrZQkABEwAAAACCQACWAAAAAEFAAAACWxwQXNzZXRJZAkABEwAAAACBQAAAAZhbW91bnQFAAAAA25pbAUAAAADbmlsAwkAAAAAAAACBQAAAAp1bnN0YWtlSW52BQAAAAp1bnN0YWtlSW52BAAAAAlnZXRPbmVUa24JAAP8AAAABAUAAAAMcG9vbENvbnRyYWN0AgAAAAlnZXRPbmVUa24JAARMAAAAAgUAAAAKZXhjaFJlc3VsdAkABEwAAAACBQAAAAdub3RVc2VkCQAETAAAAAIFAAAACW91dEFtb3VudAkABEwAAAACBQAAAApvdXRBc3NldElkCQAETAAAAAIFAAAACHNsaXBwYWdlBQAAAANuaWwJAARMAAAAAgkBAAAAD0F0dGFjaGVkUGF5bWVudAAAAAIFAAAACWxwQXNzZXRJZAUAAAAGYW1vdW50BQAAAANuaWwDCQAAAAAAAAIFAAAACWdldE9uZVRrbgUAAAAJZ2V0T25lVGtuBQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAGc2V0QW1wAAAAAQAAAANhbXAEAAAAC2NoZWNrQ2FsbGVyCQEAAAAJbXVzdEFkbWluAAAAAQUAAAABaQMJAAAAAAAAAgUAAAALY2hlY2tDYWxsZXIFAAAAC2NoZWNrQ2FsbGVyBAAAAARyZXMxCQAD/AAAAAQFAAAADHBvb2xDb250cmFjdAIAAAAEc2V0UwkABEwAAAACCQEAAAAGa2V5QW1wAAAAAAkABEwAAAACBQAAAANhbXAFAAAAA25pbAUAAAADbmlsBAAAAARyZXMyCQAD/AAAAAQFAAAADHBvb2xDb250cmFjdAIAAAAEc2V0UwkABEwAAAACCQEAAAANa2V5QW1wSGlzdG9yeQAAAAEFAAAABmhlaWdodAkABEwAAAACBQAAAANhbXAFAAAAA25pbAUAAAADbmlsCQAFFAAAAAIFAAAAA25pbAkABRQAAAACBQAAAARyZXMxBQAAAARyZXMyCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAD3RhcmdldFB1YmxpY0tleQQAAAAHJG1hdGNoMAkBAAAAFm1hbmFnZXJQdWJsaWNLZXlPclVuaXQAAAAAAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAApCeXRlVmVjdG9yBAAAAAJwawUAAAAHJG1hdGNoMAUAAAACcGsDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABFVuaXQIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXkJAAACAAAAAQIAAAALTWF0Y2ggZXJyb3IJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAA90YXJnZXRQdWJsaWNLZXnJ0siF", "chainId": 84, "height": 2057154, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: 9xnBmiL7RJ7XxqxFHXmAL39vToUm1kNJqdA42FK276cq Next: A5eBjfEsGLxzBn1QCGVMBLzkifw2NxN1CtBPkUNMLKR8 Diff:
Old | New | Differences | |
---|---|---|---|
1 | 1 | {-# STDLIB_VERSION 5 #-} | |
2 | 2 | {-# SCRIPT_TYPE ACCOUNT #-} | |
3 | 3 | {-# CONTENT_TYPE DAPP #-} | |
4 | - | let scale8 = 100000000 | |
5 | - | ||
6 | - | let scale8BigInt = toBigInt(100000000) | |
7 | - | ||
8 | - | let scale18 = toBigInt(1000000000000000000) | |
9 | - | ||
10 | - | let zeroBigInt = toBigInt(0) | |
11 | - | ||
12 | - | let oneBigInt = toBigInt(1) | |
13 | - | ||
14 | - | let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8))) | |
15 | - | ||
16 | - | let Amult = "100" | |
17 | - | ||
18 | - | let Dconv = "1" | |
19 | - | ||
20 | 4 | let SEP = "__" | |
21 | 5 | ||
22 | 6 | let EMPTY = "" | |
23 | 7 | ||
24 | - | let PoolActive = 1 | |
25 | - | ||
26 | - | let PoolPutDis = 2 | |
27 | - | ||
28 | - | let PoolMatcherDis = 3 | |
29 | - | ||
30 | - | let PoolShutdown = 4 | |
31 | - | ||
32 | 8 | let idxPoolAddress = 1 | |
33 | - | ||
34 | - | let idxPoolSt = 2 | |
35 | 9 | ||
36 | 10 | let idxLPAsId = 3 | |
37 | 11 | ||
39 | 13 | ||
40 | 14 | let idxPrAsId = 5 | |
41 | 15 | ||
42 | - | let idxAmtAsDcm = 6 | |
43 | - | ||
44 | - | let idxPriceAsDcm = 7 | |
45 | - | ||
46 | - | let idxIAmtAsId = 8 | |
47 | - | ||
48 | - | let idxIPriceAsId = 9 | |
49 | - | ||
50 | 16 | let idxFactStakCntr = 1 | |
51 | 17 | ||
52 | - | let idxFactSlippCntr = 7 | |
53 | - | ||
54 | - | let idxFactGwxRewCntr = 10 | |
55 | - | ||
56 | - | func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult)) | |
18 | + | func keyFactCntr () = "%s__factoryContract" | |
57 | 19 | ||
58 | 20 | ||
59 | - | func | |
21 | + | func keyManagerPublicKey () = "%s__managerPublicKey" | |
60 | 22 | ||
61 | 23 | ||
62 | - | func | |
24 | + | func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey" | |
63 | 25 | ||
64 | 26 | ||
65 | - | func abs (val) = if ((zeroBigInt > val)) | |
66 | - | then -(val) | |
67 | - | else val | |
27 | + | func keyPoolAddr () = "%s__poolAddress" | |
68 | 28 | ||
69 | 29 | ||
70 | - | func | |
30 | + | func keyAmtAsset () = "%s__amountAsset" | |
71 | 31 | ||
72 | 32 | ||
73 | - | func | |
33 | + | func keyPriceAsset () = "%s__priceAsset" | |
74 | 34 | ||
75 | 35 | ||
76 | - | func | |
36 | + | func keyAdminPubKeys () = "%s__adminPubKeys" | |
77 | 37 | ||
78 | 38 | ||
79 | - | func | |
39 | + | func keyAmp () = "%s__amp" | |
80 | 40 | ||
81 | 41 | ||
82 | - | func | |
42 | + | func keyAmpHistory (height) = ("%s%d__amp__" + toString(height)) | |
83 | 43 | ||
84 | 44 | ||
85 | - | func | |
45 | + | func keyFactoryConfig () = "%s__factoryConfig" | |
86 | 46 | ||
87 | 47 | ||
88 | - | func | |
48 | + | func keyPoolConfig (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config") | |
89 | 49 | ||
90 | 50 | ||
91 | - | func | |
51 | + | func keyMappingsBaseAsset2internalId (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr) | |
92 | 52 | ||
93 | 53 | ||
94 | - | func | |
54 | + | func getStringOrFail (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], "")) | |
95 | 55 | ||
96 | 56 | ||
97 | - | func | |
57 | + | func getIntOrFail (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], "")) | |
98 | 58 | ||
99 | 59 | ||
100 | - | ||
60 | + | let poolContract = addressFromStringValue(getStringOrFail(this, keyPoolAddr())) | |
101 | 61 | ||
62 | + | let factoryContract = addressFromStringValue(getStringOrFail(poolContract, keyFactCntr())) | |
102 | 63 | ||
103 | - | func fcfg () = "%s__factoryConfig" | |
104 | - | ||
105 | - | ||
106 | - | func mtpk () = "%s%s__matcher__publicKey" | |
107 | - | ||
108 | - | ||
109 | - | func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config") | |
110 | - | ||
111 | - | ||
112 | - | func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr) | |
113 | - | ||
114 | - | ||
115 | - | func aps () = "%s__shutdown" | |
116 | - | ||
117 | - | ||
118 | - | func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV))) | |
119 | - | ||
120 | - | ||
121 | - | func str (val) = match val { | |
122 | - | case valStr: String => | |
123 | - | valStr | |
124 | - | case _ => | |
125 | - | throw("fail cast to String") | |
126 | - | } | |
127 | - | ||
128 | - | ||
129 | - | func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], "")) | |
130 | - | ||
131 | - | ||
132 | - | func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], "")) | |
133 | - | ||
134 | - | ||
135 | - | let fca = addressFromStringValue(strf(this, fc())) | |
136 | - | ||
137 | - | let A = strf(this, amp()) | |
138 | - | ||
139 | - | func igs () = valueOrElse(getBoolean(fca, aps()), false) | |
140 | - | ||
141 | - | ||
142 | - | func mp () = fromBase58String(strf(fca, mtpk())) | |
143 | - | ||
144 | - | ||
145 | - | func gpc () = { | |
146 | - | let amtAs = strf(this, aa()) | |
147 | - | let priceAs = strf(this, pa()) | |
148 | - | let iPriceAs = intf(fca, mba(priceAs)) | |
149 | - | let iAmtAs = intf(fca, mba(amtAs)) | |
150 | - | split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP) | |
64 | + | func getPoolConfig () = { | |
65 | + | let amtAs = getStringOrFail(poolContract, keyAmtAsset()) | |
66 | + | let priceAs = getStringOrFail(poolContract, keyPriceAsset()) | |
67 | + | let iPriceAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAs)) | |
68 | + | let iAmtAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAs)) | |
69 | + | split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAs), toString(iPriceAs))), SEP) | |
151 | 70 | } | |
152 | 71 | ||
153 | 72 | ||
154 | - | func | |
73 | + | func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP) | |
155 | 74 | ||
156 | 75 | ||
157 | - | func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP) | |
158 | - | ||
159 | - | ||
160 | - | func dataGetActionInfo (outAmtAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP) | |
161 | - | ||
162 | - | ||
163 | - | func getAccBalance (assetId) = if ((assetId == "WAVES")) | |
164 | - | then wavesBalance(this).available | |
165 | - | else assetBalance(this, fromBase58String(assetId)) | |
166 | - | ||
167 | - | ||
168 | - | func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18) | |
169 | - | ||
170 | - | ||
171 | - | func vad (A1,A2,slippage) = { | |
172 | - | let diff = fraction((A1 - A2), scale8BigInt, A2) | |
173 | - | let pass = ((slippage - abs(diff)) > zeroBigInt) | |
174 | - | if (!(pass)) | |
175 | - | then throw(("Big slpg: " + toString(diff))) | |
176 | - | else $Tuple2(pass, min([A1, A2])) | |
177 | - | } | |
178 | - | ||
179 | - | ||
180 | - | func vd (D1,D0,slpg) = { | |
181 | - | let diff = fraction(D0, scale8BigInt, D1) | |
182 | - | let fail = (slpg > diff) | |
183 | - | if (if (fail) | |
184 | - | then true | |
185 | - | else (D0 > D1)) | |
186 | - | then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg))) | |
187 | - | else fail | |
188 | - | } | |
189 | - | ||
190 | - | ||
191 | - | func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = { | |
192 | - | let amtAsAmtX18 = t1(amAmt, amAssetDcm) | |
193 | - | let prAsAmtX18 = t1(prAmt, prAssetDcm) | |
194 | - | cpbi(prAsAmtX18, amtAsAmtX18) | |
195 | - | } | |
196 | - | ||
197 | - | ||
198 | - | func calcPrices (amAmt,prAmt,lpAmt) = { | |
199 | - | let cfg = gpc() | |
200 | - | let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm]) | |
201 | - | let prAsDcm = parseIntValue(cfg[idxPriceAsDcm]) | |
202 | - | let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt) | |
203 | - | let amAmtX18 = t1(amAmt, amtAsDcm) | |
204 | - | let prAmtX18 = t1(prAmt, prAsDcm) | |
205 | - | let lpAmtX18 = t1(lpAmt, scale8) | |
206 | - | let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18) | |
207 | - | let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18) | |
208 | - | [priceX18, lpPrInAmAsX18, lpPrInPrAsX18] | |
209 | - | } | |
210 | - | ||
211 | - | ||
212 | - | func calculatePrices (amAmt,prAmt,lpAmt) = { | |
213 | - | let p = calcPrices(amAmt, prAmt, lpAmt) | |
214 | - | [f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)] | |
215 | - | } | |
216 | - | ||
217 | - | ||
218 | - | func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = { | |
219 | - | let cfg = gpc() | |
220 | - | let lpId = cfg[idxLPAsId] | |
221 | - | let amId = cfg[idxAmAsId] | |
222 | - | let prId = cfg[idxPrAsId] | |
223 | - | let amDcm = parseIntValue(cfg[idxAmtAsDcm]) | |
224 | - | let prDcm = parseIntValue(cfg[idxPriceAsDcm]) | |
225 | - | let sts = cfg[idxPoolSt] | |
226 | - | let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity | |
227 | - | if ((lpId != pmtAssetId)) | |
228 | - | then throw("Wrong pmt asset") | |
229 | - | else { | |
230 | - | let amBalance = getAccBalance(amId) | |
231 | - | let amBalanceX18 = t1(amBalance, amDcm) | |
232 | - | let prBalance = getAccBalance(prId) | |
233 | - | let prBalanceX18 = t1(prBalance, prDcm) | |
234 | - | let curPriceX18 = cpbi(prBalanceX18, amBalanceX18) | |
235 | - | let curPrice = f1(curPriceX18, scale8) | |
236 | - | let pmtLpAmtX18 = t1(pmtLpAmt, scale8) | |
237 | - | let lpEmissX18 = t1(lpEmiss, scale8) | |
238 | - | let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18) | |
239 | - | let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18) | |
240 | - | let outAmAmt = f1(outAmAmtX18, amDcm) | |
241 | - | let outPrAmt = f1(outPrAmtX18, prDcm) | |
242 | - | let state = if ((txId58 == "")) | |
243 | - | then nil | |
244 | - | else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES")) | |
245 | - | then unit | |
246 | - | else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES")) | |
247 | - | then unit | |
248 | - | else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)] | |
249 | - | $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state) | |
250 | - | } | |
251 | - | } | |
252 | - | ||
253 | - | ||
254 | - | func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,pmtAmt,pmtId) = { | |
255 | - | let cfg = gpc() | |
256 | - | let lpId = fromBase58String(cfg[idxLPAsId]) | |
257 | - | let amIdStr = cfg[idxAmAsId] | |
258 | - | let prIdStr = cfg[idxPrAsId] | |
259 | - | let inAmIdStr = cfg[idxIAmtAsId] | |
260 | - | let inPrIdStr = cfg[idxIPriceAsId] | |
261 | - | let amtDcm = parseIntValue(cfg[idxAmtAsDcm]) | |
262 | - | let priceDcm = parseIntValue(cfg[idxPriceAsDcm]) | |
263 | - | let sts = cfg[idxPoolSt] | |
264 | - | let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity | |
265 | - | let amBalance = if (isEval) | |
266 | - | then getAccBalance(amIdStr) | |
267 | - | else if (if (isOneAsset) | |
268 | - | then (pmtId == amIdStr) | |
269 | - | else false) | |
270 | - | then (getAccBalance(amIdStr) - pmtAmt) | |
271 | - | else if (isOneAsset) | |
272 | - | then getAccBalance(amIdStr) | |
273 | - | else (getAccBalance(amIdStr) - inAmAmt) | |
274 | - | let prBalance = if (isEval) | |
275 | - | then getAccBalance(prIdStr) | |
276 | - | else if (if (isOneAsset) | |
277 | - | then (pmtId == prIdStr) | |
278 | - | else false) | |
279 | - | then (getAccBalance(prIdStr) - pmtAmt) | |
280 | - | else if (isOneAsset) | |
281 | - | then getAccBalance(prIdStr) | |
282 | - | else (getAccBalance(prIdStr) - inPrAmt) | |
283 | - | let inAmAssetAmtX18 = t1(inAmAmt, amtDcm) | |
284 | - | let inPrAssetAmtX18 = t1(inPrAmt, priceDcm) | |
285 | - | let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18) | |
286 | - | let amBalanceX18 = t1(amBalance, amtDcm) | |
287 | - | let prBalanceX18 = t1(prBalance, priceDcm) | |
288 | - | let r = if ((lpEm == 0)) | |
289 | - | then { | |
290 | - | let curPriceX18 = zeroBigInt | |
291 | - | let slippageX18 = zeroBigInt | |
292 | - | let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN) | |
293 | - | $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18) | |
294 | - | } | |
295 | - | else { | |
296 | - | let curPriceX18 = cpbi(prBalanceX18, amBalanceX18) | |
297 | - | let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18) | |
298 | - | let slippageX18 = t1(slippage, scale8) | |
299 | - | if (if ((curPriceX18 != zeroBigInt)) | |
300 | - | then (slippageRealX18 > slippageX18) | |
301 | - | else false) | |
302 | - | then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18))) | |
303 | - | else { | |
304 | - | let lpEmissionX18 = t1(lpEm, scale8) | |
305 | - | let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18) | |
306 | - | let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18) | |
307 | - | let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18)) | |
308 | - | then $Tuple2(amViaPrX18, inPrAssetAmtX18) | |
309 | - | else $Tuple2(inAmAssetAmtX18, prViaAmX18) | |
310 | - | let expAmtAssetAmtX18 = expectedAmts._1 | |
311 | - | let expPriceAssetAmtX18 = expectedAmts._2 | |
312 | - | let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18) | |
313 | - | $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18) | |
314 | - | } | |
315 | - | } | |
316 | - | let calcLpAmt = r._1 | |
317 | - | let calcAmAssetPmt = r._2 | |
318 | - | let calcPrAssetPmt = r._3 | |
319 | - | let curPrice = f1(r._4, scale8) | |
320 | - | let slippageCalc = f1(r._5, scale8) | |
321 | - | if ((0 >= calcLpAmt)) | |
322 | - | then throw("LP <= 0") | |
323 | - | else { | |
324 | - | let emitLpAmt = if (!(emitLp)) | |
325 | - | then 0 | |
326 | - | else calcLpAmt | |
327 | - | let amDiff = (inAmAmt - calcAmAssetPmt) | |
328 | - | let prDiff = (inPrAmt - calcPrAssetPmt) | |
329 | - | let $t01529615641 = if (if (isOneAsset) | |
330 | - | then (pmtId == amIdStr) | |
331 | - | else false) | |
332 | - | then $Tuple2(pmtAmt, 0) | |
333 | - | else if (if (isOneAsset) | |
334 | - | then (pmtId == prIdStr) | |
335 | - | else false) | |
336 | - | then $Tuple2(0, pmtAmt) | |
337 | - | else $Tuple2(calcAmAssetPmt, calcPrAssetPmt) | |
338 | - | let writeAmAmt = $t01529615641._1 | |
339 | - | let writePrAmt = $t01529615641._2 | |
340 | - | let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))] | |
341 | - | $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId) | |
342 | - | } | |
343 | - | } | |
344 | - | ||
345 | - | ||
346 | - | func moa (order) = { | |
347 | - | let cfg = gpc() | |
348 | - | let amtAsId = cfg[idxAmAsId] | |
349 | - | let prAsId = cfg[idxPrAsId] | |
350 | - | let sts = parseIntValue(cfg[idxPoolSt]) | |
351 | - | let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm]) | |
352 | - | let prAsDcm = parseIntValue(cfg[idxPriceAsDcm]) | |
353 | - | let accAmtAsBalance = getAccBalance(amtAsId) | |
354 | - | let accPrAsBalance = getAccBalance(prAsId) | |
355 | - | let curPriceX18 = if ((order.orderType == Buy)) | |
356 | - | then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance) | |
357 | - | else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance) | |
358 | - | let curPrice = f1(curPriceX18, scale8) | |
359 | - | if (if (if (igs()) | |
360 | - | then true | |
361 | - | else (sts == PoolMatcherDis)) | |
362 | - | then true | |
363 | - | else (sts == PoolShutdown)) | |
364 | - | then throw("Admin blocked") | |
365 | - | else { | |
366 | - | let orAmtAsset = order.assetPair.amountAsset | |
367 | - | let orAmtAsStr = if ((orAmtAsset == unit)) | |
368 | - | then "WAVES" | |
369 | - | else toBase58String(value(orAmtAsset)) | |
370 | - | let orPrAsset = order.assetPair.priceAsset | |
371 | - | let orPrAsStr = if ((orPrAsset == unit)) | |
372 | - | then "WAVES" | |
373 | - | else toBase58String(value(orPrAsset)) | |
374 | - | if (if ((orAmtAsStr != amtAsId)) | |
375 | - | then true | |
376 | - | else (orPrAsStr != prAsId)) | |
377 | - | then throw("Wr assets") | |
378 | - | else { | |
379 | - | let orderPrice = order.price | |
380 | - | let priceDcm = fraction(scale8, prAsDcm, amtAsDcm) | |
381 | - | let castOrderPrice = ts(orderPrice, scale8, priceDcm) | |
382 | - | let isOrderPriceValid = if ((order.orderType == Buy)) | |
383 | - | then (curPrice >= castOrderPrice) | |
384 | - | else (castOrderPrice >= curPrice) | |
385 | - | true | |
386 | - | } | |
387 | - | } | |
388 | - | } | |
389 | - | ||
390 | - | ||
391 | - | func cg (i) = if ((size(i.payments) != 1)) | |
392 | - | then throw("1 pmnt exp") | |
393 | - | else { | |
394 | - | let pmt = value(i.payments[0]) | |
395 | - | let pmtAssetId = value(pmt.assetId) | |
396 | - | let pmtAmt = pmt.amount | |
397 | - | let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller) | |
398 | - | let outAmAmt = r._1 | |
399 | - | let outPrAmt = r._2 | |
400 | - | let sts = parseIntValue(r._9) | |
401 | - | let state = r._10 | |
402 | - | if (if (igs()) | |
403 | - | then true | |
404 | - | else (sts == PoolShutdown)) | |
405 | - | then throw(("Admin blocked: " + toString(sts))) | |
406 | - | else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state) | |
407 | - | } | |
408 | - | ||
409 | - | ||
410 | - | func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,pmtAmt,pmtId) = { | |
411 | - | let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, false, emitLp, isOneAsset, pmtAmt, pmtId) | |
412 | - | let sts = parseIntValue(r._8) | |
413 | - | if (if (if (igs()) | |
414 | - | then true | |
415 | - | else (sts == PoolPutDis)) | |
416 | - | then true | |
417 | - | else (sts == PoolShutdown)) | |
418 | - | then throw(("Blocked:" + toString(sts))) | |
419 | - | else r | |
420 | - | } | |
421 | - | ||
422 | - | ||
423 | - | func m () = match getString(mpk()) { | |
76 | + | func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) { | |
424 | 77 | case s: String => | |
425 | 78 | fromBase58String(s) | |
426 | 79 | case _: Unit => | |
430 | 83 | } | |
431 | 84 | ||
432 | 85 | ||
433 | - | func | |
86 | + | func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) { | |
434 | 87 | case s: String => | |
435 | 88 | fromBase58String(s) | |
436 | 89 | case _: Unit => | |
440 | 93 | } | |
441 | 94 | ||
442 | 95 | ||
443 | - | func | |
96 | + | func mustManager (i) = { | |
444 | 97 | let pd = throw("Permission denied") | |
445 | - | match | |
98 | + | match managerPublicKeyOrUnit() { | |
446 | 99 | case pk: ByteVector => | |
447 | 100 | if ((i.callerPublicKey == pk)) | |
448 | 101 | then true | |
457 | 110 | } | |
458 | 111 | ||
459 | 112 | ||
113 | + | func getAdmins () = match getString(keyAdminPubKeys()) { | |
114 | + | case s: String => | |
115 | + | if ((size(s) == 0)) | |
116 | + | then nil | |
117 | + | else split(s, SEP) | |
118 | + | case _ => | |
119 | + | nil | |
120 | + | } | |
121 | + | ||
122 | + | ||
123 | + | func mustAdmin (i) = if (containsElement(getAdmins(), toBase58String(i.callerPublicKey))) | |
124 | + | then true | |
125 | + | else mustManager(i) | |
126 | + | ||
127 | + | ||
460 | 128 | @Callable(i) | |
461 | - | func constructor ( | |
462 | - | let | |
463 | - | if (( | |
464 | - | then [StringEntry( | |
129 | + | func constructor (poolAddress) = { | |
130 | + | let checkCaller = mustManager(i) | |
131 | + | if ((checkCaller == checkCaller)) | |
132 | + | then [StringEntry(keyPoolAddr(), poolAddress)] | |
465 | 133 | else throw("Strict value is not equal to itself.") | |
466 | 134 | } | |
467 | 135 | ||
469 | 137 | ||
470 | 138 | @Callable(i) | |
471 | 139 | func setManager (pendingManagerPublicKey) = { | |
472 | - | let | |
473 | - | if (( | |
140 | + | let checkCaller = mustManager(i) | |
141 | + | if ((checkCaller == checkCaller)) | |
474 | 142 | then { | |
475 | - | let | |
476 | - | if (( | |
477 | - | then [StringEntry( | |
143 | + | let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey) | |
144 | + | if ((checkManagerPublicKey == checkManagerPublicKey)) | |
145 | + | then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)] | |
478 | 146 | else throw("Strict value is not equal to itself.") | |
479 | 147 | } | |
480 | 148 | else throw("Strict value is not equal to itself.") | |
484 | 152 | ||
485 | 153 | @Callable(i) | |
486 | 154 | func confirmManager () = { | |
487 | - | let | |
488 | - | let | |
155 | + | let pm = pendingManagerPublicKeyOrUnit() | |
156 | + | let hasPM = if (isDefined(pm)) | |
489 | 157 | then true | |
490 | 158 | else throw("No pending manager") | |
491 | - | if (( | |
159 | + | if ((hasPM == hasPM)) | |
492 | 160 | then { | |
493 | - | let | |
161 | + | let checkPM = if ((i.callerPublicKey == value(pm))) | |
494 | 162 | then true | |
495 | 163 | else throw("You are not pending manager") | |
496 | - | if (( | |
497 | - | then [StringEntry( | |
164 | + | if ((checkPM == checkPM)) | |
165 | + | then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())] | |
498 | 166 | else throw("Strict value is not equal to itself.") | |
499 | 167 | } | |
500 | 168 | else throw("Strict value is not equal to itself.") | |
503 | 171 | ||
504 | 172 | ||
505 | 173 | @Callable(i) | |
506 | - | func put (slip,autoStake) = { | |
507 | - | let factCfg = gfc() | |
508 | - | let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr") | |
509 | - | let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr") | |
510 | - | if ((0 > slip)) | |
511 | - | then throw("Wrong slippage") | |
512 | - | else if ((size(i.payments) != 2)) | |
513 | - | then throw("2 pmnts expd") | |
514 | - | else { | |
515 | - | let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, 0, "") | |
516 | - | let emitLpAmt = e._2 | |
517 | - | let lpAssetId = e._7 | |
518 | - | let state = e._9 | |
519 | - | let amDiff = e._10 | |
520 | - | let prDiff = e._11 | |
521 | - | let amId = e._12 | |
522 | - | let prId = e._13 | |
523 | - | let r = invoke(fca, "emit", [emitLpAmt], nil) | |
524 | - | if ((r == r)) | |
525 | - | then { | |
526 | - | let el = match r { | |
527 | - | case legacy: Address => | |
528 | - | invoke(legacy, "emit", [emitLpAmt], nil) | |
529 | - | case _ => | |
530 | - | unit | |
531 | - | } | |
532 | - | if ((el == el)) | |
533 | - | then { | |
534 | - | let sa = if ((amDiff > 0)) | |
535 | - | then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)]) | |
536 | - | else nil | |
537 | - | if ((sa == sa)) | |
538 | - | then { | |
539 | - | let sp = if ((prDiff > 0)) | |
540 | - | then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)]) | |
541 | - | else nil | |
542 | - | if ((sp == sp)) | |
543 | - | then { | |
544 | - | let lpTrnsfr = if (autoStake) | |
545 | - | then { | |
546 | - | let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)]) | |
547 | - | if ((ss == ss)) | |
548 | - | then nil | |
549 | - | else throw("Strict value is not equal to itself.") | |
550 | - | } | |
551 | - | else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)] | |
552 | - | (state ++ lpTrnsfr) | |
553 | - | } | |
554 | - | else throw("Strict value is not equal to itself.") | |
555 | - | } | |
556 | - | else throw("Strict value is not equal to itself.") | |
557 | - | } | |
558 | - | else throw("Strict value is not equal to itself.") | |
559 | - | } | |
560 | - | else throw("Strict value is not equal to itself.") | |
561 | - | } | |
562 | - | } | |
563 | - | ||
564 | - | ||
565 | - | ||
566 | - | @Callable(i) | |
567 | - | func putOneTkn (amAssetPart,prAssetPart,outLp,slippage,autoStake) = { | |
568 | - | let cfg = gfc() | |
569 | - | let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr") | |
570 | - | let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr") | |
571 | - | let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr") | |
572 | - | let poolCfg = gpc() | |
573 | - | let amId = poolCfg[idxAmAsId] | |
574 | - | let prId = poolCfg[idxPrAsId] | |
575 | - | let amDcm = parseIntValue(poolCfg[idxAmtAsDcm]) | |
576 | - | let prDcm = parseIntValue(poolCfg[idxPriceAsDcm]) | |
577 | - | if (if (if (if ((0 >= slippage)) | |
578 | - | then true | |
579 | - | else (0 >= amAssetPart)) | |
580 | - | then true | |
581 | - | else (0 >= prAssetPart)) | |
582 | - | then true | |
583 | - | else (0 >= outLp)) | |
584 | - | then throw("Wrong params") | |
585 | - | else if ((size(i.payments) != 1)) | |
586 | - | then throw("1 pmnt expd") | |
587 | - | else { | |
588 | - | let pmt = value(i.payments[0]) | |
589 | - | let pmtAssetId = toBase58String(value(pmt.assetId)) | |
590 | - | let pmtAmt = pmt.amount | |
591 | - | if (if (if ((amAssetPart > pmtAmt)) | |
592 | - | then true | |
593 | - | else (prAssetPart > pmtAmt)) | |
594 | - | then true | |
595 | - | else (10000000 > pmtAmt)) | |
596 | - | then throw("Wrong pmt amt") | |
597 | - | else { | |
598 | - | let amBalance = getAccBalance(amId) | |
599 | - | let prBalance = getAccBalance(prId) | |
600 | - | let $t02418924569 = if ((pmtAssetId == amId)) | |
601 | - | then $Tuple6((amBalance - pmtAmt), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0) | |
602 | - | else if ((pmtAssetId == prId)) | |
603 | - | then $Tuple6(amBalance, (prBalance - pmtAmt), 0, 0, (pmtAmt - prAssetPart), amAssetPart) | |
604 | - | else throw("wrong pmtAssetId") | |
605 | - | let amBalanceNow = $t02418924569._1 | |
606 | - | let prBalanceNow = $t02418924569._2 | |
607 | - | let virtSwapInAm = $t02418924569._3 | |
608 | - | let virtSwapOutPr = $t02418924569._4 | |
609 | - | let virtSwapInPr = $t02418924569._5 | |
610 | - | let virtSwapOutAm = $t02418924569._6 | |
611 | - | let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil) | |
612 | - | let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil) | |
613 | - | let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D) | |
614 | - | if ((D0vsD1 == D0vsD1)) | |
615 | - | then { | |
616 | - | let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId) | |
617 | - | let estimLP = estPut._2 | |
618 | - | let lpAssetId = estPut._7 | |
619 | - | let state = estPut._9 | |
620 | - | let amDiff = estPut._10 | |
621 | - | let prDiff = estPut._11 | |
622 | - | let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage)) | |
623 | - | let emitLpAmt = toInt(lpCalcRes._2) | |
624 | - | let e = invoke(fca, "emit", [emitLpAmt], nil) | |
625 | - | if ((e == e)) | |
626 | - | then { | |
627 | - | let el = match e { | |
628 | - | case legacy: Address => | |
629 | - | invoke(legacy, "emit", [emitLpAmt], nil) | |
630 | - | case _ => | |
631 | - | unit | |
632 | - | } | |
633 | - | if ((el == el)) | |
634 | - | then { | |
635 | - | let sa = if ((amDiff > 0)) | |
636 | - | then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)]) | |
637 | - | else nil | |
638 | - | if ((sa == sa)) | |
639 | - | then { | |
640 | - | let sp = if ((prDiff > 0)) | |
641 | - | then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)]) | |
642 | - | else nil | |
643 | - | if ((sp == sp)) | |
644 | - | then { | |
645 | - | let lpTrnsfr = if (autoStake) | |
646 | - | then { | |
647 | - | let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)]) | |
648 | - | if ((ss == ss)) | |
649 | - | then nil | |
650 | - | else throw("Strict value is not equal to itself.") | |
651 | - | } | |
652 | - | else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)] | |
653 | - | (state ++ lpTrnsfr) | |
654 | - | } | |
655 | - | else throw("Strict value is not equal to itself.") | |
656 | - | } | |
657 | - | else throw("Strict value is not equal to itself.") | |
658 | - | } | |
659 | - | else throw("Strict value is not equal to itself.") | |
660 | - | } | |
661 | - | else throw("Strict value is not equal to itself.") | |
662 | - | } | |
663 | - | else throw("Strict value is not equal to itself.") | |
664 | - | } | |
665 | - | } | |
666 | - | } | |
667 | - | ||
668 | - | ||
669 | - | ||
670 | - | @Callable(i) | |
671 | - | func putForFree (maxSlpg) = if ((0 > maxSlpg)) | |
672 | - | then throw("Wrong slpg") | |
673 | - | else if ((size(i.payments) != 2)) | |
674 | - | then throw("2 pmnts expd") | |
675 | - | else { | |
676 | - | let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxSlpg, false, false, 0, "") | |
677 | - | estPut._9 | |
678 | - | } | |
679 | - | ||
680 | - | ||
681 | - | ||
682 | - | @Callable(i) | |
683 | - | func get () = { | |
684 | - | let r = cg(i) | |
685 | - | let outAmtAmt = r._1 | |
686 | - | let outPrAmt = r._2 | |
687 | - | let pmtAmt = r._3 | |
688 | - | let pmtAssetId = r._4 | |
689 | - | let state = r._5 | |
690 | - | let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)]) | |
691 | - | if ((b == b)) | |
692 | - | then state | |
174 | + | func setAdmins (adminPubKeys) = { | |
175 | + | let checkCaller = mustManager(i) | |
176 | + | if ((checkCaller == checkCaller)) | |
177 | + | then [StringEntry(keyAdminPubKeys(), makeString(adminPubKeys, SEP))] | |
693 | 178 | else throw("Strict value is not equal to itself.") | |
694 | 179 | } | |
695 | 180 | ||
696 | 181 | ||
697 | 182 | ||
698 | 183 | @Callable(i) | |
699 | - | func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1)) | |
700 | - | then throw("1 pmnt expd") | |
701 | - | else { | |
702 | - | let cfg = gpc() | |
703 | - | let lpId = cfg[idxLPAsId] | |
704 | - | let amId = cfg[idxAmAsId] | |
705 | - | let prId = cfg[idxPrAsId] | |
706 | - | let amDcm = parseIntValue(cfg[idxAmtAsDcm]) | |
707 | - | let prDcm = parseIntValue(cfg[idxPriceAsDcm]) | |
708 | - | let sts = cfg[idxPoolSt] | |
709 | - | let factCfg = gfc() | |
710 | - | let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr") | |
711 | - | let pmt = value(i.payments[0]) | |
712 | - | let addon = valueOrElse(getString(this, ada()), "") | |
713 | - | let userAddress = if ((addon == toString(i.caller))) | |
714 | - | then i.originCaller | |
715 | - | else i.caller | |
716 | - | let txId58 = toBase58String(i.transactionId) | |
717 | - | let pmtAssetId = value(pmt.assetId) | |
718 | - | let pmtAmt = pmt.amount | |
719 | - | if ((1000000000 > pmtAmt)) | |
720 | - | then throw("Min pmt 10 LP") | |
721 | - | else if (if (if ((0 > slippage)) | |
722 | - | then true | |
723 | - | else (0 > exchResult)) | |
724 | - | then true | |
725 | - | else (0 > outAmount)) | |
726 | - | then throw("Wrong params") | |
727 | - | else if ((lpId != toBase58String(pmtAssetId))) | |
728 | - | then throw("Wrong LP") | |
729 | - | else { | |
730 | - | let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller) | |
731 | - | let estimAmAmt = r._1 | |
732 | - | let estimPrAmt = r._2 | |
733 | - | let amBalance = getAccBalance(amId) | |
734 | - | let prBalance = getAccBalance(prId) | |
735 | - | let $t02934829805 = if ((outAssetId == amId)) | |
736 | - | then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult)) | |
737 | - | else if ((outAssetId == prId)) | |
738 | - | then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult)) | |
739 | - | else throw("wrong outAssetId") | |
740 | - | let amBalanceNow = $t02934829805._1 | |
741 | - | let prBalanceNow = $t02934829805._2 | |
742 | - | let virtSwapInAm = $t02934829805._3 | |
743 | - | let virtSwapOutPr = $t02934829805._4 | |
744 | - | let virtSwapInPr = $t02934829805._5 | |
745 | - | let virtSwapOutAm = $t02934829805._6 | |
746 | - | let totalGet = $t02934829805._7 | |
747 | - | if (if ((0 > virtSwapInAm)) | |
748 | - | then true | |
749 | - | else (0 > virtSwapInPr)) | |
750 | - | then throw("Wrong calc") | |
751 | - | else { | |
752 | - | let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil) | |
753 | - | let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil) | |
754 | - | let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D) | |
755 | - | if ((D0vsD1 == D0vsD1)) | |
756 | - | then { | |
757 | - | let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage)) | |
758 | - | if ((finalRes == finalRes)) | |
759 | - | then { | |
760 | - | let $t03051030614 = if ((outAssetId == amId)) | |
761 | - | then $Tuple2(toInt(finalRes._2), 0) | |
762 | - | else $Tuple2(0, toInt(finalRes._2)) | |
763 | - | let outAm = $t03051030614._1 | |
764 | - | let outPr = $t03051030614._2 | |
765 | - | let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm)) | |
766 | - | let curPr = f1(curPrX18, scale8) | |
767 | - | let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES")) | |
768 | - | then unit | |
769 | - | else fromBase58String(outAssetId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)] | |
770 | - | if ((state == state)) | |
771 | - | then { | |
772 | - | let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)]) | |
773 | - | if ((burn == burn)) | |
774 | - | then state | |
775 | - | else throw("Strict value is not equal to itself.") | |
776 | - | } | |
777 | - | else throw("Strict value is not equal to itself.") | |
778 | - | } | |
779 | - | else throw("Strict value is not equal to itself.") | |
780 | - | } | |
781 | - | else throw("Strict value is not equal to itself.") | |
782 | - | } | |
783 | - | } | |
784 | - | } | |
785 | - | ||
786 | - | ||
787 | - | ||
788 | - | @Callable(i) | |
789 | - | func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = { | |
790 | - | let r = cg(i) | |
791 | - | let outAmAmt = r._1 | |
792 | - | let outPrAmt = r._2 | |
793 | - | let pmtAmt = r._3 | |
794 | - | let pmtAssetId = r._4 | |
795 | - | let state = r._5 | |
796 | - | if ((noLessThenAmtAsset > outAmAmt)) | |
797 | - | then throw(((("Failed: " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset))) | |
798 | - | else if ((noLessThenPriceAsset > outPrAmt)) | |
799 | - | then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset))) | |
800 | - | else { | |
801 | - | let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)]) | |
802 | - | if ((burnLPAssetOnFactory == burnLPAssetOnFactory)) | |
803 | - | then state | |
804 | - | else throw("Strict value is not equal to itself.") | |
805 | - | } | |
806 | - | } | |
807 | - | ||
808 | - | ||
809 | - | ||
810 | - | @Callable(i) | |
811 | - | func unstakeAndGet (amount) = { | |
184 | + | func unstakeAndGetOneTkn (amount,exchResult,notUsed,outAmount,outAssetId,slippage) = { | |
812 | 185 | let checkPayments = if ((size(i.payments) != 0)) | |
813 | 186 | then throw("No pmnts expd") | |
814 | 187 | else true | |
815 | 188 | if ((checkPayments == checkPayments)) | |
816 | 189 | then { | |
817 | - | let cfg = | |
818 | - | let factoryCfg = | |
190 | + | let cfg = getPoolConfig() | |
191 | + | let factoryCfg = getFactoryConfig() | |
819 | 192 | let lpAssetId = fromBase58String(cfg[idxLPAsId]) | |
820 | 193 | let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr") | |
821 | 194 | let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil) | |
822 | 195 | if ((unstakeInv == unstakeInv)) | |
823 | 196 | then { | |
824 | - | let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller) | |
825 | - | let sts = parseIntValue(r._9) | |
826 | - | let state = r._10 | |
827 | - | let v = if (if (igs()) | |
828 | - | then true | |
829 | - | else (sts == PoolShutdown)) | |
830 | - | then throw(("Blocked: " + toString(sts))) | |
831 | - | else true | |
832 | - | if ((v == v)) | |
833 | - | then { | |
834 | - | let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)]) | |
835 | - | if ((burnA == burnA)) | |
836 | - | then state | |
837 | - | else throw("Strict value is not equal to itself.") | |
838 | - | } | |
197 | + | let getOneTkn = invoke(poolContract, "getOneTkn", [exchResult, notUsed, outAmount, outAssetId, slippage], [AttachedPayment(lpAssetId, amount)]) | |
198 | + | if ((getOneTkn == getOneTkn)) | |
199 | + | then nil | |
839 | 200 | else throw("Strict value is not equal to itself.") | |
840 | 201 | } | |
841 | 202 | else throw("Strict value is not equal to itself.") | |
846 | 207 | ||
847 | 208 | ||
848 | 209 | @Callable(i) | |
849 | - | func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca))) | |
850 | - | then throw("denied") | |
851 | - | else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success") | |
852 | - | ||
853 | - | ||
854 | - | ||
855 | - | @Callable(i) | |
856 | - | func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc()) | |
857 | - | ||
858 | - | ||
859 | - | ||
860 | - | @Callable(i) | |
861 | - | func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId)) | |
862 | - | ||
863 | - | ||
864 | - | ||
865 | - | @Callable(i) | |
866 | - | func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = { | |
867 | - | let pr = calcPrices(amAmt, prAmt, lpAmt) | |
868 | - | $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])]) | |
869 | - | } | |
870 | - | ||
871 | - | ||
872 | - | ||
873 | - | @Callable(i) | |
874 | - | func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult)) | |
875 | - | ||
876 | - | ||
877 | - | ||
878 | - | @Callable(i) | |
879 | - | func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult))) | |
880 | - | ||
881 | - | ||
882 | - | ||
883 | - | @Callable(i) | |
884 | - | func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18)))) | |
885 | - | ||
886 | - | ||
887 | - | ||
888 | - | @Callable(i) | |
889 | - | func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,usrAddr,isEval,emitLp) = $Tuple2(nil, epo(txId58, slippage, inAmAmt, inAmId, inPrAmt, inPrId, usrAddr, isEval, emitLp, false, 0, "")) | |
890 | - | ||
891 | - | ||
892 | - | ||
893 | - | @Callable(i) | |
894 | - | func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = { | |
895 | - | let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr)) | |
896 | - | $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10)) | |
210 | + | func setAmp (amp) = { | |
211 | + | let checkCaller = mustAdmin(i) | |
212 | + | if ((checkCaller == checkCaller)) | |
213 | + | then { | |
214 | + | let res1 = invoke(poolContract, "setS", [keyAmp(), amp], nil) | |
215 | + | let res2 = invoke(poolContract, "setS", [keyAmpHistory(height), amp], nil) | |
216 | + | $Tuple2(nil, $Tuple2(res1, res2)) | |
217 | + | } | |
218 | + | else throw("Strict value is not equal to itself.") | |
897 | 219 | } | |
898 | 220 | ||
899 | 221 | ||
900 | 222 | @Verifier(tx) | |
901 | - | func verify () = match tx { | |
902 | - | case order: Order => | |
903 | - | let mtchPub = mp() | |
904 | - | let orV = moa(order) | |
905 | - | let sndrV = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey) | |
906 | - | let mtchV = sigVerify(order.bodyBytes, order.proofs[1], mtchPub) | |
907 | - | if (if (if (orV) | |
908 | - | then sndrV | |
909 | - | else false) | |
910 | - | then mtchV | |
911 | - | else false) | |
912 | - | then true | |
913 | - | else toe(orV, sndrV, mtchV) | |
914 | - | case _ => | |
915 | - | let targetPublicKey = match m() { | |
916 | - | case pk: ByteVector => | |
917 | - | pk | |
918 | - | case _: Unit => | |
919 | - | tx.senderPublicKey | |
920 | - | case _ => | |
921 | - | throw("Match error") | |
922 | - | } | |
923 | - | sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey) | |
924 | - | } | |
223 | + | func verify () = { | |
224 | + | let targetPublicKey = match managerPublicKeyOrUnit() { | |
225 | + | case pk: ByteVector => | |
226 | + | pk | |
227 | + | case _: Unit => | |
228 | + | tx.senderPublicKey | |
229 | + | case _ => | |
230 | + | throw("Match error") | |
231 | + | } | |
232 | + | sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey) | |
233 | + | } | |
925 | 234 |
Old | New | Differences | |
---|---|---|---|
1 | 1 | {-# STDLIB_VERSION 5 #-} | |
2 | 2 | {-# SCRIPT_TYPE ACCOUNT #-} | |
3 | 3 | {-# CONTENT_TYPE DAPP #-} | |
4 | - | let scale8 = 100000000 | |
5 | - | ||
6 | - | let scale8BigInt = toBigInt(100000000) | |
7 | - | ||
8 | - | let scale18 = toBigInt(1000000000000000000) | |
9 | - | ||
10 | - | let zeroBigInt = toBigInt(0) | |
11 | - | ||
12 | - | let oneBigInt = toBigInt(1) | |
13 | - | ||
14 | - | let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8))) | |
15 | - | ||
16 | - | let Amult = "100" | |
17 | - | ||
18 | - | let Dconv = "1" | |
19 | - | ||
20 | 4 | let SEP = "__" | |
21 | 5 | ||
22 | 6 | let EMPTY = "" | |
23 | 7 | ||
24 | - | let PoolActive = 1 | |
25 | - | ||
26 | - | let PoolPutDis = 2 | |
27 | - | ||
28 | - | let PoolMatcherDis = 3 | |
29 | - | ||
30 | - | let PoolShutdown = 4 | |
31 | - | ||
32 | 8 | let idxPoolAddress = 1 | |
33 | - | ||
34 | - | let idxPoolSt = 2 | |
35 | 9 | ||
36 | 10 | let idxLPAsId = 3 | |
37 | 11 | ||
38 | 12 | let idxAmAsId = 4 | |
39 | 13 | ||
40 | 14 | let idxPrAsId = 5 | |
41 | 15 | ||
42 | - | let idxAmtAsDcm = 6 | |
43 | - | ||
44 | - | let idxPriceAsDcm = 7 | |
45 | - | ||
46 | - | let idxIAmtAsId = 8 | |
47 | - | ||
48 | - | let idxIPriceAsId = 9 | |
49 | - | ||
50 | 16 | let idxFactStakCntr = 1 | |
51 | 17 | ||
52 | - | let idxFactSlippCntr = 7 | |
53 | - | ||
54 | - | let idxFactGwxRewCntr = 10 | |
55 | - | ||
56 | - | func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult)) | |
18 | + | func keyFactCntr () = "%s__factoryContract" | |
57 | 19 | ||
58 | 20 | ||
59 | - | func | |
21 | + | func keyManagerPublicKey () = "%s__managerPublicKey" | |
60 | 22 | ||
61 | 23 | ||
62 | - | func | |
24 | + | func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey" | |
63 | 25 | ||
64 | 26 | ||
65 | - | func abs (val) = if ((zeroBigInt > val)) | |
66 | - | then -(val) | |
67 | - | else val | |
27 | + | func keyPoolAddr () = "%s__poolAddress" | |
68 | 28 | ||
69 | 29 | ||
70 | - | func | |
30 | + | func keyAmtAsset () = "%s__amountAsset" | |
71 | 31 | ||
72 | 32 | ||
73 | - | func | |
33 | + | func keyPriceAsset () = "%s__priceAsset" | |
74 | 34 | ||
75 | 35 | ||
76 | - | func | |
36 | + | func keyAdminPubKeys () = "%s__adminPubKeys" | |
77 | 37 | ||
78 | 38 | ||
79 | - | func | |
39 | + | func keyAmp () = "%s__amp" | |
80 | 40 | ||
81 | 41 | ||
82 | - | func | |
42 | + | func keyAmpHistory (height) = ("%s%d__amp__" + toString(height)) | |
83 | 43 | ||
84 | 44 | ||
85 | - | func | |
45 | + | func keyFactoryConfig () = "%s__factoryConfig" | |
86 | 46 | ||
87 | 47 | ||
88 | - | func | |
48 | + | func keyPoolConfig (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config") | |
89 | 49 | ||
90 | 50 | ||
91 | - | func | |
51 | + | func keyMappingsBaseAsset2internalId (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr) | |
92 | 52 | ||
93 | 53 | ||
94 | - | func | |
54 | + | func getStringOrFail (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], "")) | |
95 | 55 | ||
96 | 56 | ||
97 | - | func | |
57 | + | func getIntOrFail (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], "")) | |
98 | 58 | ||
99 | 59 | ||
100 | - | ||
60 | + | let poolContract = addressFromStringValue(getStringOrFail(this, keyPoolAddr())) | |
101 | 61 | ||
62 | + | let factoryContract = addressFromStringValue(getStringOrFail(poolContract, keyFactCntr())) | |
102 | 63 | ||
103 | - | func fcfg () = "%s__factoryConfig" | |
104 | - | ||
105 | - | ||
106 | - | func mtpk () = "%s%s__matcher__publicKey" | |
107 | - | ||
108 | - | ||
109 | - | func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config") | |
110 | - | ||
111 | - | ||
112 | - | func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr) | |
113 | - | ||
114 | - | ||
115 | - | func aps () = "%s__shutdown" | |
116 | - | ||
117 | - | ||
118 | - | func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV))) | |
119 | - | ||
120 | - | ||
121 | - | func str (val) = match val { | |
122 | - | case valStr: String => | |
123 | - | valStr | |
124 | - | case _ => | |
125 | - | throw("fail cast to String") | |
126 | - | } | |
127 | - | ||
128 | - | ||
129 | - | func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], "")) | |
130 | - | ||
131 | - | ||
132 | - | func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], "")) | |
133 | - | ||
134 | - | ||
135 | - | let fca = addressFromStringValue(strf(this, fc())) | |
136 | - | ||
137 | - | let A = strf(this, amp()) | |
138 | - | ||
139 | - | func igs () = valueOrElse(getBoolean(fca, aps()), false) | |
140 | - | ||
141 | - | ||
142 | - | func mp () = fromBase58String(strf(fca, mtpk())) | |
143 | - | ||
144 | - | ||
145 | - | func gpc () = { | |
146 | - | let amtAs = strf(this, aa()) | |
147 | - | let priceAs = strf(this, pa()) | |
148 | - | let iPriceAs = intf(fca, mba(priceAs)) | |
149 | - | let iAmtAs = intf(fca, mba(amtAs)) | |
150 | - | split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP) | |
64 | + | func getPoolConfig () = { | |
65 | + | let amtAs = getStringOrFail(poolContract, keyAmtAsset()) | |
66 | + | let priceAs = getStringOrFail(poolContract, keyPriceAsset()) | |
67 | + | let iPriceAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAs)) | |
68 | + | let iAmtAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAs)) | |
69 | + | split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAs), toString(iPriceAs))), SEP) | |
151 | 70 | } | |
152 | 71 | ||
153 | 72 | ||
154 | - | func | |
73 | + | func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP) | |
155 | 74 | ||
156 | 75 | ||
157 | - | func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP) | |
158 | - | ||
159 | - | ||
160 | - | func dataGetActionInfo (outAmtAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP) | |
161 | - | ||
162 | - | ||
163 | - | func getAccBalance (assetId) = if ((assetId == "WAVES")) | |
164 | - | then wavesBalance(this).available | |
165 | - | else assetBalance(this, fromBase58String(assetId)) | |
166 | - | ||
167 | - | ||
168 | - | func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18) | |
169 | - | ||
170 | - | ||
171 | - | func vad (A1,A2,slippage) = { | |
172 | - | let diff = fraction((A1 - A2), scale8BigInt, A2) | |
173 | - | let pass = ((slippage - abs(diff)) > zeroBigInt) | |
174 | - | if (!(pass)) | |
175 | - | then throw(("Big slpg: " + toString(diff))) | |
176 | - | else $Tuple2(pass, min([A1, A2])) | |
177 | - | } | |
178 | - | ||
179 | - | ||
180 | - | func vd (D1,D0,slpg) = { | |
181 | - | let diff = fraction(D0, scale8BigInt, D1) | |
182 | - | let fail = (slpg > diff) | |
183 | - | if (if (fail) | |
184 | - | then true | |
185 | - | else (D0 > D1)) | |
186 | - | then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg))) | |
187 | - | else fail | |
188 | - | } | |
189 | - | ||
190 | - | ||
191 | - | func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = { | |
192 | - | let amtAsAmtX18 = t1(amAmt, amAssetDcm) | |
193 | - | let prAsAmtX18 = t1(prAmt, prAssetDcm) | |
194 | - | cpbi(prAsAmtX18, amtAsAmtX18) | |
195 | - | } | |
196 | - | ||
197 | - | ||
198 | - | func calcPrices (amAmt,prAmt,lpAmt) = { | |
199 | - | let cfg = gpc() | |
200 | - | let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm]) | |
201 | - | let prAsDcm = parseIntValue(cfg[idxPriceAsDcm]) | |
202 | - | let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt) | |
203 | - | let amAmtX18 = t1(amAmt, amtAsDcm) | |
204 | - | let prAmtX18 = t1(prAmt, prAsDcm) | |
205 | - | let lpAmtX18 = t1(lpAmt, scale8) | |
206 | - | let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18) | |
207 | - | let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18) | |
208 | - | [priceX18, lpPrInAmAsX18, lpPrInPrAsX18] | |
209 | - | } | |
210 | - | ||
211 | - | ||
212 | - | func calculatePrices (amAmt,prAmt,lpAmt) = { | |
213 | - | let p = calcPrices(amAmt, prAmt, lpAmt) | |
214 | - | [f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)] | |
215 | - | } | |
216 | - | ||
217 | - | ||
218 | - | func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = { | |
219 | - | let cfg = gpc() | |
220 | - | let lpId = cfg[idxLPAsId] | |
221 | - | let amId = cfg[idxAmAsId] | |
222 | - | let prId = cfg[idxPrAsId] | |
223 | - | let amDcm = parseIntValue(cfg[idxAmtAsDcm]) | |
224 | - | let prDcm = parseIntValue(cfg[idxPriceAsDcm]) | |
225 | - | let sts = cfg[idxPoolSt] | |
226 | - | let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity | |
227 | - | if ((lpId != pmtAssetId)) | |
228 | - | then throw("Wrong pmt asset") | |
229 | - | else { | |
230 | - | let amBalance = getAccBalance(amId) | |
231 | - | let amBalanceX18 = t1(amBalance, amDcm) | |
232 | - | let prBalance = getAccBalance(prId) | |
233 | - | let prBalanceX18 = t1(prBalance, prDcm) | |
234 | - | let curPriceX18 = cpbi(prBalanceX18, amBalanceX18) | |
235 | - | let curPrice = f1(curPriceX18, scale8) | |
236 | - | let pmtLpAmtX18 = t1(pmtLpAmt, scale8) | |
237 | - | let lpEmissX18 = t1(lpEmiss, scale8) | |
238 | - | let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18) | |
239 | - | let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18) | |
240 | - | let outAmAmt = f1(outAmAmtX18, amDcm) | |
241 | - | let outPrAmt = f1(outPrAmtX18, prDcm) | |
242 | - | let state = if ((txId58 == "")) | |
243 | - | then nil | |
244 | - | else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES")) | |
245 | - | then unit | |
246 | - | else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES")) | |
247 | - | then unit | |
248 | - | else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)] | |
249 | - | $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state) | |
250 | - | } | |
251 | - | } | |
252 | - | ||
253 | - | ||
254 | - | func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,pmtAmt,pmtId) = { | |
255 | - | let cfg = gpc() | |
256 | - | let lpId = fromBase58String(cfg[idxLPAsId]) | |
257 | - | let amIdStr = cfg[idxAmAsId] | |
258 | - | let prIdStr = cfg[idxPrAsId] | |
259 | - | let inAmIdStr = cfg[idxIAmtAsId] | |
260 | - | let inPrIdStr = cfg[idxIPriceAsId] | |
261 | - | let amtDcm = parseIntValue(cfg[idxAmtAsDcm]) | |
262 | - | let priceDcm = parseIntValue(cfg[idxPriceAsDcm]) | |
263 | - | let sts = cfg[idxPoolSt] | |
264 | - | let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity | |
265 | - | let amBalance = if (isEval) | |
266 | - | then getAccBalance(amIdStr) | |
267 | - | else if (if (isOneAsset) | |
268 | - | then (pmtId == amIdStr) | |
269 | - | else false) | |
270 | - | then (getAccBalance(amIdStr) - pmtAmt) | |
271 | - | else if (isOneAsset) | |
272 | - | then getAccBalance(amIdStr) | |
273 | - | else (getAccBalance(amIdStr) - inAmAmt) | |
274 | - | let prBalance = if (isEval) | |
275 | - | then getAccBalance(prIdStr) | |
276 | - | else if (if (isOneAsset) | |
277 | - | then (pmtId == prIdStr) | |
278 | - | else false) | |
279 | - | then (getAccBalance(prIdStr) - pmtAmt) | |
280 | - | else if (isOneAsset) | |
281 | - | then getAccBalance(prIdStr) | |
282 | - | else (getAccBalance(prIdStr) - inPrAmt) | |
283 | - | let inAmAssetAmtX18 = t1(inAmAmt, amtDcm) | |
284 | - | let inPrAssetAmtX18 = t1(inPrAmt, priceDcm) | |
285 | - | let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18) | |
286 | - | let amBalanceX18 = t1(amBalance, amtDcm) | |
287 | - | let prBalanceX18 = t1(prBalance, priceDcm) | |
288 | - | let r = if ((lpEm == 0)) | |
289 | - | then { | |
290 | - | let curPriceX18 = zeroBigInt | |
291 | - | let slippageX18 = zeroBigInt | |
292 | - | let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN) | |
293 | - | $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18) | |
294 | - | } | |
295 | - | else { | |
296 | - | let curPriceX18 = cpbi(prBalanceX18, amBalanceX18) | |
297 | - | let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18) | |
298 | - | let slippageX18 = t1(slippage, scale8) | |
299 | - | if (if ((curPriceX18 != zeroBigInt)) | |
300 | - | then (slippageRealX18 > slippageX18) | |
301 | - | else false) | |
302 | - | then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18))) | |
303 | - | else { | |
304 | - | let lpEmissionX18 = t1(lpEm, scale8) | |
305 | - | let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18) | |
306 | - | let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18) | |
307 | - | let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18)) | |
308 | - | then $Tuple2(amViaPrX18, inPrAssetAmtX18) | |
309 | - | else $Tuple2(inAmAssetAmtX18, prViaAmX18) | |
310 | - | let expAmtAssetAmtX18 = expectedAmts._1 | |
311 | - | let expPriceAssetAmtX18 = expectedAmts._2 | |
312 | - | let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18) | |
313 | - | $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18) | |
314 | - | } | |
315 | - | } | |
316 | - | let calcLpAmt = r._1 | |
317 | - | let calcAmAssetPmt = r._2 | |
318 | - | let calcPrAssetPmt = r._3 | |
319 | - | let curPrice = f1(r._4, scale8) | |
320 | - | let slippageCalc = f1(r._5, scale8) | |
321 | - | if ((0 >= calcLpAmt)) | |
322 | - | then throw("LP <= 0") | |
323 | - | else { | |
324 | - | let emitLpAmt = if (!(emitLp)) | |
325 | - | then 0 | |
326 | - | else calcLpAmt | |
327 | - | let amDiff = (inAmAmt - calcAmAssetPmt) | |
328 | - | let prDiff = (inPrAmt - calcPrAssetPmt) | |
329 | - | let $t01529615641 = if (if (isOneAsset) | |
330 | - | then (pmtId == amIdStr) | |
331 | - | else false) | |
332 | - | then $Tuple2(pmtAmt, 0) | |
333 | - | else if (if (isOneAsset) | |
334 | - | then (pmtId == prIdStr) | |
335 | - | else false) | |
336 | - | then $Tuple2(0, pmtAmt) | |
337 | - | else $Tuple2(calcAmAssetPmt, calcPrAssetPmt) | |
338 | - | let writeAmAmt = $t01529615641._1 | |
339 | - | let writePrAmt = $t01529615641._2 | |
340 | - | let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))] | |
341 | - | $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId) | |
342 | - | } | |
343 | - | } | |
344 | - | ||
345 | - | ||
346 | - | func moa (order) = { | |
347 | - | let cfg = gpc() | |
348 | - | let amtAsId = cfg[idxAmAsId] | |
349 | - | let prAsId = cfg[idxPrAsId] | |
350 | - | let sts = parseIntValue(cfg[idxPoolSt]) | |
351 | - | let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm]) | |
352 | - | let prAsDcm = parseIntValue(cfg[idxPriceAsDcm]) | |
353 | - | let accAmtAsBalance = getAccBalance(amtAsId) | |
354 | - | let accPrAsBalance = getAccBalance(prAsId) | |
355 | - | let curPriceX18 = if ((order.orderType == Buy)) | |
356 | - | then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance) | |
357 | - | else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance) | |
358 | - | let curPrice = f1(curPriceX18, scale8) | |
359 | - | if (if (if (igs()) | |
360 | - | then true | |
361 | - | else (sts == PoolMatcherDis)) | |
362 | - | then true | |
363 | - | else (sts == PoolShutdown)) | |
364 | - | then throw("Admin blocked") | |
365 | - | else { | |
366 | - | let orAmtAsset = order.assetPair.amountAsset | |
367 | - | let orAmtAsStr = if ((orAmtAsset == unit)) | |
368 | - | then "WAVES" | |
369 | - | else toBase58String(value(orAmtAsset)) | |
370 | - | let orPrAsset = order.assetPair.priceAsset | |
371 | - | let orPrAsStr = if ((orPrAsset == unit)) | |
372 | - | then "WAVES" | |
373 | - | else toBase58String(value(orPrAsset)) | |
374 | - | if (if ((orAmtAsStr != amtAsId)) | |
375 | - | then true | |
376 | - | else (orPrAsStr != prAsId)) | |
377 | - | then throw("Wr assets") | |
378 | - | else { | |
379 | - | let orderPrice = order.price | |
380 | - | let priceDcm = fraction(scale8, prAsDcm, amtAsDcm) | |
381 | - | let castOrderPrice = ts(orderPrice, scale8, priceDcm) | |
382 | - | let isOrderPriceValid = if ((order.orderType == Buy)) | |
383 | - | then (curPrice >= castOrderPrice) | |
384 | - | else (castOrderPrice >= curPrice) | |
385 | - | true | |
386 | - | } | |
387 | - | } | |
388 | - | } | |
389 | - | ||
390 | - | ||
391 | - | func cg (i) = if ((size(i.payments) != 1)) | |
392 | - | then throw("1 pmnt exp") | |
393 | - | else { | |
394 | - | let pmt = value(i.payments[0]) | |
395 | - | let pmtAssetId = value(pmt.assetId) | |
396 | - | let pmtAmt = pmt.amount | |
397 | - | let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller) | |
398 | - | let outAmAmt = r._1 | |
399 | - | let outPrAmt = r._2 | |
400 | - | let sts = parseIntValue(r._9) | |
401 | - | let state = r._10 | |
402 | - | if (if (igs()) | |
403 | - | then true | |
404 | - | else (sts == PoolShutdown)) | |
405 | - | then throw(("Admin blocked: " + toString(sts))) | |
406 | - | else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state) | |
407 | - | } | |
408 | - | ||
409 | - | ||
410 | - | func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,pmtAmt,pmtId) = { | |
411 | - | let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, false, emitLp, isOneAsset, pmtAmt, pmtId) | |
412 | - | let sts = parseIntValue(r._8) | |
413 | - | if (if (if (igs()) | |
414 | - | then true | |
415 | - | else (sts == PoolPutDis)) | |
416 | - | then true | |
417 | - | else (sts == PoolShutdown)) | |
418 | - | then throw(("Blocked:" + toString(sts))) | |
419 | - | else r | |
420 | - | } | |
421 | - | ||
422 | - | ||
423 | - | func m () = match getString(mpk()) { | |
76 | + | func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) { | |
424 | 77 | case s: String => | |
425 | 78 | fromBase58String(s) | |
426 | 79 | case _: Unit => | |
427 | 80 | unit | |
428 | 81 | case _ => | |
429 | 82 | throw("Match error") | |
430 | 83 | } | |
431 | 84 | ||
432 | 85 | ||
433 | - | func | |
86 | + | func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) { | |
434 | 87 | case s: String => | |
435 | 88 | fromBase58String(s) | |
436 | 89 | case _: Unit => | |
437 | 90 | unit | |
438 | 91 | case _ => | |
439 | 92 | throw("Match error") | |
440 | 93 | } | |
441 | 94 | ||
442 | 95 | ||
443 | - | func | |
96 | + | func mustManager (i) = { | |
444 | 97 | let pd = throw("Permission denied") | |
445 | - | match | |
98 | + | match managerPublicKeyOrUnit() { | |
446 | 99 | case pk: ByteVector => | |
447 | 100 | if ((i.callerPublicKey == pk)) | |
448 | 101 | then true | |
449 | 102 | else pd | |
450 | 103 | case _: Unit => | |
451 | 104 | if ((i.caller == this)) | |
452 | 105 | then true | |
453 | 106 | else pd | |
454 | 107 | case _ => | |
455 | 108 | throw("Match error") | |
456 | 109 | } | |
457 | 110 | } | |
458 | 111 | ||
459 | 112 | ||
113 | + | func getAdmins () = match getString(keyAdminPubKeys()) { | |
114 | + | case s: String => | |
115 | + | if ((size(s) == 0)) | |
116 | + | then nil | |
117 | + | else split(s, SEP) | |
118 | + | case _ => | |
119 | + | nil | |
120 | + | } | |
121 | + | ||
122 | + | ||
123 | + | func mustAdmin (i) = if (containsElement(getAdmins(), toBase58String(i.callerPublicKey))) | |
124 | + | then true | |
125 | + | else mustManager(i) | |
126 | + | ||
127 | + | ||
460 | 128 | @Callable(i) | |
461 | - | func constructor ( | |
462 | - | let | |
463 | - | if (( | |
464 | - | then [StringEntry( | |
129 | + | func constructor (poolAddress) = { | |
130 | + | let checkCaller = mustManager(i) | |
131 | + | if ((checkCaller == checkCaller)) | |
132 | + | then [StringEntry(keyPoolAddr(), poolAddress)] | |
465 | 133 | else throw("Strict value is not equal to itself.") | |
466 | 134 | } | |
467 | 135 | ||
468 | 136 | ||
469 | 137 | ||
470 | 138 | @Callable(i) | |
471 | 139 | func setManager (pendingManagerPublicKey) = { | |
472 | - | let | |
473 | - | if (( | |
140 | + | let checkCaller = mustManager(i) | |
141 | + | if ((checkCaller == checkCaller)) | |
474 | 142 | then { | |
475 | - | let | |
476 | - | if (( | |
477 | - | then [StringEntry( | |
143 | + | let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey) | |
144 | + | if ((checkManagerPublicKey == checkManagerPublicKey)) | |
145 | + | then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)] | |
478 | 146 | else throw("Strict value is not equal to itself.") | |
479 | 147 | } | |
480 | 148 | else throw("Strict value is not equal to itself.") | |
481 | 149 | } | |
482 | 150 | ||
483 | 151 | ||
484 | 152 | ||
485 | 153 | @Callable(i) | |
486 | 154 | func confirmManager () = { | |
487 | - | let | |
488 | - | let | |
155 | + | let pm = pendingManagerPublicKeyOrUnit() | |
156 | + | let hasPM = if (isDefined(pm)) | |
489 | 157 | then true | |
490 | 158 | else throw("No pending manager") | |
491 | - | if (( | |
159 | + | if ((hasPM == hasPM)) | |
492 | 160 | then { | |
493 | - | let | |
161 | + | let checkPM = if ((i.callerPublicKey == value(pm))) | |
494 | 162 | then true | |
495 | 163 | else throw("You are not pending manager") | |
496 | - | if (( | |
497 | - | then [StringEntry( | |
164 | + | if ((checkPM == checkPM)) | |
165 | + | then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())] | |
498 | 166 | else throw("Strict value is not equal to itself.") | |
499 | 167 | } | |
500 | 168 | else throw("Strict value is not equal to itself.") | |
501 | 169 | } | |
502 | 170 | ||
503 | 171 | ||
504 | 172 | ||
505 | 173 | @Callable(i) | |
506 | - | func put (slip,autoStake) = { | |
507 | - | let factCfg = gfc() | |
508 | - | let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr") | |
509 | - | let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr") | |
510 | - | if ((0 > slip)) | |
511 | - | then throw("Wrong slippage") | |
512 | - | else if ((size(i.payments) != 2)) | |
513 | - | then throw("2 pmnts expd") | |
514 | - | else { | |
515 | - | let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, 0, "") | |
516 | - | let emitLpAmt = e._2 | |
517 | - | let lpAssetId = e._7 | |
518 | - | let state = e._9 | |
519 | - | let amDiff = e._10 | |
520 | - | let prDiff = e._11 | |
521 | - | let amId = e._12 | |
522 | - | let prId = e._13 | |
523 | - | let r = invoke(fca, "emit", [emitLpAmt], nil) | |
524 | - | if ((r == r)) | |
525 | - | then { | |
526 | - | let el = match r { | |
527 | - | case legacy: Address => | |
528 | - | invoke(legacy, "emit", [emitLpAmt], nil) | |
529 | - | case _ => | |
530 | - | unit | |
531 | - | } | |
532 | - | if ((el == el)) | |
533 | - | then { | |
534 | - | let sa = if ((amDiff > 0)) | |
535 | - | then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)]) | |
536 | - | else nil | |
537 | - | if ((sa == sa)) | |
538 | - | then { | |
539 | - | let sp = if ((prDiff > 0)) | |
540 | - | then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)]) | |
541 | - | else nil | |
542 | - | if ((sp == sp)) | |
543 | - | then { | |
544 | - | let lpTrnsfr = if (autoStake) | |
545 | - | then { | |
546 | - | let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)]) | |
547 | - | if ((ss == ss)) | |
548 | - | then nil | |
549 | - | else throw("Strict value is not equal to itself.") | |
550 | - | } | |
551 | - | else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)] | |
552 | - | (state ++ lpTrnsfr) | |
553 | - | } | |
554 | - | else throw("Strict value is not equal to itself.") | |
555 | - | } | |
556 | - | else throw("Strict value is not equal to itself.") | |
557 | - | } | |
558 | - | else throw("Strict value is not equal to itself.") | |
559 | - | } | |
560 | - | else throw("Strict value is not equal to itself.") | |
561 | - | } | |
562 | - | } | |
563 | - | ||
564 | - | ||
565 | - | ||
566 | - | @Callable(i) | |
567 | - | func putOneTkn (amAssetPart,prAssetPart,outLp,slippage,autoStake) = { | |
568 | - | let cfg = gfc() | |
569 | - | let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr") | |
570 | - | let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr") | |
571 | - | let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr") | |
572 | - | let poolCfg = gpc() | |
573 | - | let amId = poolCfg[idxAmAsId] | |
574 | - | let prId = poolCfg[idxPrAsId] | |
575 | - | let amDcm = parseIntValue(poolCfg[idxAmtAsDcm]) | |
576 | - | let prDcm = parseIntValue(poolCfg[idxPriceAsDcm]) | |
577 | - | if (if (if (if ((0 >= slippage)) | |
578 | - | then true | |
579 | - | else (0 >= amAssetPart)) | |
580 | - | then true | |
581 | - | else (0 >= prAssetPart)) | |
582 | - | then true | |
583 | - | else (0 >= outLp)) | |
584 | - | then throw("Wrong params") | |
585 | - | else if ((size(i.payments) != 1)) | |
586 | - | then throw("1 pmnt expd") | |
587 | - | else { | |
588 | - | let pmt = value(i.payments[0]) | |
589 | - | let pmtAssetId = toBase58String(value(pmt.assetId)) | |
590 | - | let pmtAmt = pmt.amount | |
591 | - | if (if (if ((amAssetPart > pmtAmt)) | |
592 | - | then true | |
593 | - | else (prAssetPart > pmtAmt)) | |
594 | - | then true | |
595 | - | else (10000000 > pmtAmt)) | |
596 | - | then throw("Wrong pmt amt") | |
597 | - | else { | |
598 | - | let amBalance = getAccBalance(amId) | |
599 | - | let prBalance = getAccBalance(prId) | |
600 | - | let $t02418924569 = if ((pmtAssetId == amId)) | |
601 | - | then $Tuple6((amBalance - pmtAmt), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0) | |
602 | - | else if ((pmtAssetId == prId)) | |
603 | - | then $Tuple6(amBalance, (prBalance - pmtAmt), 0, 0, (pmtAmt - prAssetPart), amAssetPart) | |
604 | - | else throw("wrong pmtAssetId") | |
605 | - | let amBalanceNow = $t02418924569._1 | |
606 | - | let prBalanceNow = $t02418924569._2 | |
607 | - | let virtSwapInAm = $t02418924569._3 | |
608 | - | let virtSwapOutPr = $t02418924569._4 | |
609 | - | let virtSwapInPr = $t02418924569._5 | |
610 | - | let virtSwapOutAm = $t02418924569._6 | |
611 | - | let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil) | |
612 | - | let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil) | |
613 | - | let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D) | |
614 | - | if ((D0vsD1 == D0vsD1)) | |
615 | - | then { | |
616 | - | let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, pmtAmt, pmtAssetId) | |
617 | - | let estimLP = estPut._2 | |
618 | - | let lpAssetId = estPut._7 | |
619 | - | let state = estPut._9 | |
620 | - | let amDiff = estPut._10 | |
621 | - | let prDiff = estPut._11 | |
622 | - | let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage)) | |
623 | - | let emitLpAmt = toInt(lpCalcRes._2) | |
624 | - | let e = invoke(fca, "emit", [emitLpAmt], nil) | |
625 | - | if ((e == e)) | |
626 | - | then { | |
627 | - | let el = match e { | |
628 | - | case legacy: Address => | |
629 | - | invoke(legacy, "emit", [emitLpAmt], nil) | |
630 | - | case _ => | |
631 | - | unit | |
632 | - | } | |
633 | - | if ((el == el)) | |
634 | - | then { | |
635 | - | let sa = if ((amDiff > 0)) | |
636 | - | then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)]) | |
637 | - | else nil | |
638 | - | if ((sa == sa)) | |
639 | - | then { | |
640 | - | let sp = if ((prDiff > 0)) | |
641 | - | then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)]) | |
642 | - | else nil | |
643 | - | if ((sp == sp)) | |
644 | - | then { | |
645 | - | let lpTrnsfr = if (autoStake) | |
646 | - | then { | |
647 | - | let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)]) | |
648 | - | if ((ss == ss)) | |
649 | - | then nil | |
650 | - | else throw("Strict value is not equal to itself.") | |
651 | - | } | |
652 | - | else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)] | |
653 | - | (state ++ lpTrnsfr) | |
654 | - | } | |
655 | - | else throw("Strict value is not equal to itself.") | |
656 | - | } | |
657 | - | else throw("Strict value is not equal to itself.") | |
658 | - | } | |
659 | - | else throw("Strict value is not equal to itself.") | |
660 | - | } | |
661 | - | else throw("Strict value is not equal to itself.") | |
662 | - | } | |
663 | - | else throw("Strict value is not equal to itself.") | |
664 | - | } | |
665 | - | } | |
666 | - | } | |
667 | - | ||
668 | - | ||
669 | - | ||
670 | - | @Callable(i) | |
671 | - | func putForFree (maxSlpg) = if ((0 > maxSlpg)) | |
672 | - | then throw("Wrong slpg") | |
673 | - | else if ((size(i.payments) != 2)) | |
674 | - | then throw("2 pmnts expd") | |
675 | - | else { | |
676 | - | let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxSlpg, false, false, 0, "") | |
677 | - | estPut._9 | |
678 | - | } | |
679 | - | ||
680 | - | ||
681 | - | ||
682 | - | @Callable(i) | |
683 | - | func get () = { | |
684 | - | let r = cg(i) | |
685 | - | let outAmtAmt = r._1 | |
686 | - | let outPrAmt = r._2 | |
687 | - | let pmtAmt = r._3 | |
688 | - | let pmtAssetId = r._4 | |
689 | - | let state = r._5 | |
690 | - | let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)]) | |
691 | - | if ((b == b)) | |
692 | - | then state | |
174 | + | func setAdmins (adminPubKeys) = { | |
175 | + | let checkCaller = mustManager(i) | |
176 | + | if ((checkCaller == checkCaller)) | |
177 | + | then [StringEntry(keyAdminPubKeys(), makeString(adminPubKeys, SEP))] | |
693 | 178 | else throw("Strict value is not equal to itself.") | |
694 | 179 | } | |
695 | 180 | ||
696 | 181 | ||
697 | 182 | ||
698 | 183 | @Callable(i) | |
699 | - | func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1)) | |
700 | - | then throw("1 pmnt expd") | |
701 | - | else { | |
702 | - | let cfg = gpc() | |
703 | - | let lpId = cfg[idxLPAsId] | |
704 | - | let amId = cfg[idxAmAsId] | |
705 | - | let prId = cfg[idxPrAsId] | |
706 | - | let amDcm = parseIntValue(cfg[idxAmtAsDcm]) | |
707 | - | let prDcm = parseIntValue(cfg[idxPriceAsDcm]) | |
708 | - | let sts = cfg[idxPoolSt] | |
709 | - | let factCfg = gfc() | |
710 | - | let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr") | |
711 | - | let pmt = value(i.payments[0]) | |
712 | - | let addon = valueOrElse(getString(this, ada()), "") | |
713 | - | let userAddress = if ((addon == toString(i.caller))) | |
714 | - | then i.originCaller | |
715 | - | else i.caller | |
716 | - | let txId58 = toBase58String(i.transactionId) | |
717 | - | let pmtAssetId = value(pmt.assetId) | |
718 | - | let pmtAmt = pmt.amount | |
719 | - | if ((1000000000 > pmtAmt)) | |
720 | - | then throw("Min pmt 10 LP") | |
721 | - | else if (if (if ((0 > slippage)) | |
722 | - | then true | |
723 | - | else (0 > exchResult)) | |
724 | - | then true | |
725 | - | else (0 > outAmount)) | |
726 | - | then throw("Wrong params") | |
727 | - | else if ((lpId != toBase58String(pmtAssetId))) | |
728 | - | then throw("Wrong LP") | |
729 | - | else { | |
730 | - | let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller) | |
731 | - | let estimAmAmt = r._1 | |
732 | - | let estimPrAmt = r._2 | |
733 | - | let amBalance = getAccBalance(amId) | |
734 | - | let prBalance = getAccBalance(prId) | |
735 | - | let $t02934829805 = if ((outAssetId == amId)) | |
736 | - | then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult)) | |
737 | - | else if ((outAssetId == prId)) | |
738 | - | then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult)) | |
739 | - | else throw("wrong outAssetId") | |
740 | - | let amBalanceNow = $t02934829805._1 | |
741 | - | let prBalanceNow = $t02934829805._2 | |
742 | - | let virtSwapInAm = $t02934829805._3 | |
743 | - | let virtSwapOutPr = $t02934829805._4 | |
744 | - | let virtSwapInPr = $t02934829805._5 | |
745 | - | let virtSwapOutAm = $t02934829805._6 | |
746 | - | let totalGet = $t02934829805._7 | |
747 | - | if (if ((0 > virtSwapInAm)) | |
748 | - | then true | |
749 | - | else (0 > virtSwapInPr)) | |
750 | - | then throw("Wrong calc") | |
751 | - | else { | |
752 | - | let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil) | |
753 | - | let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil) | |
754 | - | let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D) | |
755 | - | if ((D0vsD1 == D0vsD1)) | |
756 | - | then { | |
757 | - | let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage)) | |
758 | - | if ((finalRes == finalRes)) | |
759 | - | then { | |
760 | - | let $t03051030614 = if ((outAssetId == amId)) | |
761 | - | then $Tuple2(toInt(finalRes._2), 0) | |
762 | - | else $Tuple2(0, toInt(finalRes._2)) | |
763 | - | let outAm = $t03051030614._1 | |
764 | - | let outPr = $t03051030614._2 | |
765 | - | let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm)) | |
766 | - | let curPr = f1(curPrX18, scale8) | |
767 | - | let state = [ScriptTransfer(userAddress, (outAm + outPr), if ((outAssetId == "WAVES")) | |
768 | - | then unit | |
769 | - | else fromBase58String(outAssetId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)] | |
770 | - | if ((state == state)) | |
771 | - | then { | |
772 | - | let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)]) | |
773 | - | if ((burn == burn)) | |
774 | - | then state | |
775 | - | else throw("Strict value is not equal to itself.") | |
776 | - | } | |
777 | - | else throw("Strict value is not equal to itself.") | |
778 | - | } | |
779 | - | else throw("Strict value is not equal to itself.") | |
780 | - | } | |
781 | - | else throw("Strict value is not equal to itself.") | |
782 | - | } | |
783 | - | } | |
784 | - | } | |
785 | - | ||
786 | - | ||
787 | - | ||
788 | - | @Callable(i) | |
789 | - | func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = { | |
790 | - | let r = cg(i) | |
791 | - | let outAmAmt = r._1 | |
792 | - | let outPrAmt = r._2 | |
793 | - | let pmtAmt = r._3 | |
794 | - | let pmtAssetId = r._4 | |
795 | - | let state = r._5 | |
796 | - | if ((noLessThenAmtAsset > outAmAmt)) | |
797 | - | then throw(((("Failed: " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset))) | |
798 | - | else if ((noLessThenPriceAsset > outPrAmt)) | |
799 | - | then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset))) | |
800 | - | else { | |
801 | - | let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)]) | |
802 | - | if ((burnLPAssetOnFactory == burnLPAssetOnFactory)) | |
803 | - | then state | |
804 | - | else throw("Strict value is not equal to itself.") | |
805 | - | } | |
806 | - | } | |
807 | - | ||
808 | - | ||
809 | - | ||
810 | - | @Callable(i) | |
811 | - | func unstakeAndGet (amount) = { | |
184 | + | func unstakeAndGetOneTkn (amount,exchResult,notUsed,outAmount,outAssetId,slippage) = { | |
812 | 185 | let checkPayments = if ((size(i.payments) != 0)) | |
813 | 186 | then throw("No pmnts expd") | |
814 | 187 | else true | |
815 | 188 | if ((checkPayments == checkPayments)) | |
816 | 189 | then { | |
817 | - | let cfg = | |
818 | - | let factoryCfg = | |
190 | + | let cfg = getPoolConfig() | |
191 | + | let factoryCfg = getFactoryConfig() | |
819 | 192 | let lpAssetId = fromBase58String(cfg[idxLPAsId]) | |
820 | 193 | let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr") | |
821 | 194 | let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil) | |
822 | 195 | if ((unstakeInv == unstakeInv)) | |
823 | 196 | then { | |
824 | - | let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller) | |
825 | - | let sts = parseIntValue(r._9) | |
826 | - | let state = r._10 | |
827 | - | let v = if (if (igs()) | |
828 | - | then true | |
829 | - | else (sts == PoolShutdown)) | |
830 | - | then throw(("Blocked: " + toString(sts))) | |
831 | - | else true | |
832 | - | if ((v == v)) | |
833 | - | then { | |
834 | - | let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)]) | |
835 | - | if ((burnA == burnA)) | |
836 | - | then state | |
837 | - | else throw("Strict value is not equal to itself.") | |
838 | - | } | |
197 | + | let getOneTkn = invoke(poolContract, "getOneTkn", [exchResult, notUsed, outAmount, outAssetId, slippage], [AttachedPayment(lpAssetId, amount)]) | |
198 | + | if ((getOneTkn == getOneTkn)) | |
199 | + | then nil | |
839 | 200 | else throw("Strict value is not equal to itself.") | |
840 | 201 | } | |
841 | 202 | else throw("Strict value is not equal to itself.") | |
842 | 203 | } | |
843 | 204 | else throw("Strict value is not equal to itself.") | |
844 | 205 | } | |
845 | 206 | ||
846 | 207 | ||
847 | 208 | ||
848 | 209 | @Callable(i) | |
849 | - | func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca))) | |
850 | - | then throw("denied") | |
851 | - | else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success") | |
852 | - | ||
853 | - | ||
854 | - | ||
855 | - | @Callable(i) | |
856 | - | func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc()) | |
857 | - | ||
858 | - | ||
859 | - | ||
860 | - | @Callable(i) | |
861 | - | func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId)) | |
862 | - | ||
863 | - | ||
864 | - | ||
865 | - | @Callable(i) | |
866 | - | func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = { | |
867 | - | let pr = calcPrices(amAmt, prAmt, lpAmt) | |
868 | - | $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])]) | |
869 | - | } | |
870 | - | ||
871 | - | ||
872 | - | ||
873 | - | @Callable(i) | |
874 | - | func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult)) | |
875 | - | ||
876 | - | ||
877 | - | ||
878 | - | @Callable(i) | |
879 | - | func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult))) | |
880 | - | ||
881 | - | ||
882 | - | ||
883 | - | @Callable(i) | |
884 | - | func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18)))) | |
885 | - | ||
886 | - | ||
887 | - | ||
888 | - | @Callable(i) | |
889 | - | func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,usrAddr,isEval,emitLp) = $Tuple2(nil, epo(txId58, slippage, inAmAmt, inAmId, inPrAmt, inPrId, usrAddr, isEval, emitLp, false, 0, "")) | |
890 | - | ||
891 | - | ||
892 | - | ||
893 | - | @Callable(i) | |
894 | - | func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = { | |
895 | - | let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr)) | |
896 | - | $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10)) | |
210 | + | func setAmp (amp) = { | |
211 | + | let checkCaller = mustAdmin(i) | |
212 | + | if ((checkCaller == checkCaller)) | |
213 | + | then { | |
214 | + | let res1 = invoke(poolContract, "setS", [keyAmp(), amp], nil) | |
215 | + | let res2 = invoke(poolContract, "setS", [keyAmpHistory(height), amp], nil) | |
216 | + | $Tuple2(nil, $Tuple2(res1, res2)) | |
217 | + | } | |
218 | + | else throw("Strict value is not equal to itself.") | |
897 | 219 | } | |
898 | 220 | ||
899 | 221 | ||
900 | 222 | @Verifier(tx) | |
901 | - | func verify () = match tx { | |
902 | - | case order: Order => | |
903 | - | let mtchPub = mp() | |
904 | - | let orV = moa(order) | |
905 | - | let sndrV = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey) | |
906 | - | let mtchV = sigVerify(order.bodyBytes, order.proofs[1], mtchPub) | |
907 | - | if (if (if (orV) | |
908 | - | then sndrV | |
909 | - | else false) | |
910 | - | then mtchV | |
911 | - | else false) | |
912 | - | then true | |
913 | - | else toe(orV, sndrV, mtchV) | |
914 | - | case _ => | |
915 | - | let targetPublicKey = match m() { | |
916 | - | case pk: ByteVector => | |
917 | - | pk | |
918 | - | case _: Unit => | |
919 | - | tx.senderPublicKey | |
920 | - | case _ => | |
921 | - | throw("Match error") | |
922 | - | } | |
923 | - | sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey) | |
924 | - | } | |
223 | + | func verify () = { | |
224 | + | let targetPublicKey = match managerPublicKeyOrUnit() { | |
225 | + | case pk: ByteVector => | |
226 | + | pk | |
227 | + | case _: Unit => | |
228 | + | tx.senderPublicKey | |
229 | + | case _ => | |
230 | + | throw("Match error") | |
231 | + | } | |
232 | + | sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey) | |
233 | + | } | |
925 | 234 |
github/deemru/w8io/c3f4982 80.07 ms ◑