tx · BKQuFviKjXvX831vGSc8VCHrUhW2Cpy1o1v6xfhJzP4i

3N4nTJ5sSp5X5ChS2bBBmwNMn1eeRzT1FoP:  -0.01100000 Waves

2022.08.30 11:54 [2206974] smart account 3N4nTJ5sSp5X5ChS2bBBmwNMn1eeRzT1FoP > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "BKQuFviKjXvX831vGSc8VCHrUhW2Cpy1o1v6xfhJzP4i",
    "fee": 1100000,
    "feeAssetId": null,
    "timestamp": 1661849643812,
    "version": 2,
    "chainId": 84,
    "sender": "3N4nTJ5sSp5X5ChS2bBBmwNMn1eeRzT1FoP",
    "senderPublicKey": "EsqRXDXnACFAdXz6EPhF1SbKyeV7MVuoyDqmXsMz7ySv",
    "proofs": [
        "49aZBzUjmhzwxrJE1sBgdpctmSQzUna2RyhJq6h6ePdZY16GhQEKk22B4yFRBpktu8RoootrXroJ4naXtKdXose9"
    ],
    "script": "base64:AAIFAAAAAAAAACIIAhIDCgEIEgMKAQgSABIDCgEYEggKBgEBAQEIARIDCgEIAAAAHwAAAAADU0VQAgAAAAJfXwAAAAAFRU1QVFkCAAAAAAAAAAAOaWR4UG9vbEFkZHJlc3MAAAAAAAAAAAEAAAAACWlkeExQQXNJZAAAAAAAAAAAAwAAAAAJaWR4QW1Bc0lkAAAAAAAAAAAEAAAAAAlpZHhQckFzSWQAAAAAAAAAAAUAAAAAD2lkeEZhY3RTdGFrQ250cgAAAAAAAAAAAQEAAAALa2V5RmFjdENudHIAAAAAAgAAABMlc19fZmFjdG9yeUNvbnRyYWN0AQAAABNrZXlNYW5hZ2VyUHVibGljS2V5AAAAAAIAAAAUJXNfX21hbmFnZXJQdWJsaWNLZXkBAAAAGmtleVBlbmRpbmdNYW5hZ2VyUHVibGljS2V5AAAAAAIAAAAbJXNfX3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AQAAAAtrZXlQb29sQWRkcgAAAAACAAAADyVzX19wb29sQWRkcmVzcwEAAAALa2V5QW10QXNzZXQAAAAAAgAAAA8lc19fYW1vdW50QXNzZXQBAAAADWtleVByaWNlQXNzZXQAAAAAAgAAAA4lc19fcHJpY2VBc3NldAEAAAAPa2V5QWRtaW5QdWJLZXlzAAAAAAIAAAAQJXNfX2FkbWluUHViS2V5cwEAAAAGa2V5QW1wAAAAAAIAAAAHJXNfX2FtcAEAAAANa2V5QW1wSGlzdG9yeQAAAAEAAAAGaGVpZ2h0CQABLAAAAAICAAAACyVzJWRfX2FtcF9fCQABpAAAAAEFAAAABmhlaWdodAEAAAAQa2V5RmFjdG9yeUNvbmZpZwAAAAACAAAAESVzX19mYWN0b3J5Q29uZmlnAQAAAA1rZXlQb29sQ29uZmlnAAAAAgAAAAZpQW10QXMAAAAFaVByQXMJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAIJWQlZCVzX18FAAAABmlBbXRBcwIAAAACX18FAAAABWlQckFzAgAAAAhfX2NvbmZpZwEAAAAfa2V5TWFwcGluZ3NCYXNlQXNzZXQyaW50ZXJuYWxJZAAAAAEAAAAFYkFTdHIJAAEsAAAAAgIAAAAoJXMlcyVzX19tYXBwaW5nc19fYmFzZUFzc2V0MmludGVybmFsSWRfXwUAAAAFYkFTdHIBAAAAD2dldFN0cmluZ09yRmFpbAAAAAIAAAAEYWRkcgAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAARhZGRyBQAAAANrZXkJAAS5AAAAAgkABEwAAAACAgAAAAptYW5kYXRvcnkgCQAETAAAAAIJAAQlAAAAAQUAAAAEYWRkcgkABEwAAAACAgAAAAEuCQAETAAAAAIFAAAAA2tleQkABEwAAAACAgAAAAwgbm90IGRlZmluZWQFAAAAA25pbAIAAAAAAQAAAAxnZXRJbnRPckZhaWwAAAACAAAABGFkZHIAAAADa2V5CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAAEYWRkcgUAAAADa2V5CQAEuQAAAAIJAARMAAAAAgIAAAAKbWFuZGF0b3J5IAkABEwAAAACCQAEJQAAAAEFAAAABGFkZHIJAARMAAAAAgIAAAABLgkABEwAAAACBQAAAANrZXkJAARMAAAAAgIAAAAMIG5vdCBkZWZpbmVkBQAAAANuaWwCAAAAAAAAAAAMcG9vbENvbnRyYWN0CQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAgUAAAAEdGhpcwkBAAAAC2tleVBvb2xBZGRyAAAAAAAAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAgUAAAAMcG9vbENvbnRyYWN0CQEAAAALa2V5RmFjdENudHIAAAAAAQAAAA1nZXRQb29sQ29uZmlnAAAAAAQAAAAFYW10QXMJAQAAAA9nZXRTdHJpbmdPckZhaWwAAAACBQAAAAxwb29sQ29udHJhY3QJAQAAAAtrZXlBbXRBc3NldAAAAAAEAAAAB3ByaWNlQXMJAQAAAA9nZXRTdHJpbmdPckZhaWwAAAACBQAAAAxwb29sQ29udHJhY3QJAQAAAA1rZXlQcmljZUFzc2V0AAAAAAQAAAAIaVByaWNlQXMJAQAAAAxnZXRJbnRPckZhaWwAAAACBQAAAA9mYWN0b3J5Q29udHJhY3QJAQAAAB9rZXlNYXBwaW5nc0Jhc2VBc3NldDJpbnRlcm5hbElkAAAAAQUAAAAHcHJpY2VBcwQAAAAGaUFtdEFzCQEAAAAMZ2V0SW50T3JGYWlsAAAAAgUAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAAfa2V5TWFwcGluZ3NCYXNlQXNzZXQyaW50ZXJuYWxJZAAAAAEFAAAABWFtdEFzCQAEtQAAAAIJAQAAAA9nZXRTdHJpbmdPckZhaWwAAAACBQAAAA9mYWN0b3J5Q29udHJhY3QJAQAAAA1rZXlQb29sQ29uZmlnAAAAAgkAAaQAAAABBQAAAAZpQW10QXMJAAGkAAAAAQUAAAAIaVByaWNlQXMFAAAAA1NFUAEAAAAQZ2V0RmFjdG9yeUNvbmZpZwAAAAAJAAS1AAAAAgkBAAAAD2dldFN0cmluZ09yRmFpbAAAAAIFAAAAD2ZhY3RvcnlDb250cmFjdAkBAAAAEGtleUZhY3RvcnlDb25maWcAAAAABQAAAANTRVABAAAAFm1hbmFnZXJQdWJsaWNLZXlPclVuaXQAAAAABAAAAAckbWF0Y2gwCQAEIgAAAAEJAQAAABNrZXlNYW5hZ2VyUHVibGljS2V5AAAAAAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFzBQAAAAckbWF0Y2gwCQACWQAAAAEFAAAAAXMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABFVuaXQFAAAABHVuaXQJAAACAAAAAQIAAAALTWF0Y2ggZXJyb3IBAAAAHXBlbmRpbmdNYW5hZ2VyUHVibGljS2V5T3JVbml0AAAAAAQAAAAHJG1hdGNoMAkABCIAAAABCQEAAAAaa2V5UGVuZGluZ01hbmFnZXJQdWJsaWNLZXkAAAAAAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXMFAAAAByRtYXRjaDAJAAJZAAAAAQUAAAABcwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAUAAAAEdW5pdAkAAAIAAAABAgAAAAtNYXRjaCBlcnJvcgEAAAALbXVzdE1hbmFnZXIAAAABAAAAAWkEAAAAAnBkCQAAAgAAAAECAAAAEVBlcm1pc3Npb24gZGVuaWVkBAAAAAckbWF0Y2gwCQEAAAAWbWFuYWdlclB1YmxpY0tleU9yVW5pdAAAAAADCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAAAnBrBQAAAAckbWF0Y2gwAwkAAAAAAAACCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkFAAAAAnBrBgUAAAACcGQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABFVuaXQDCQAAAAAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwYFAAAAAnBkCQAAAgAAAAECAAAAC01hdGNoIGVycm9yAQAAAAlnZXRBZG1pbnMAAAAABAAAAAckbWF0Y2gwCQAEIgAAAAEJAQAAAA9rZXlBZG1pblB1YktleXMAAAAAAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXMFAAAAByRtYXRjaDADCQAAAAAAAAIJAAExAAAAAQUAAAABcwAAAAAAAAAAAAUAAAADbmlsCQAEtQAAAAIFAAAAAXMFAAAAA1NFUAUAAAADbmlsAQAAAAltdXN0QWRtaW4AAAABAAAAAWkDCQEAAAAPY29udGFpbnNFbGVtZW50AAAAAgkBAAAACWdldEFkbWlucwAAAAAJAAJYAAAAAQgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5BgkBAAAAC211c3RNYW5hZ2VyAAAAAQUAAAABaQEAAAAIbXVzdFBvb2wAAAABAAAAAWkDCQAAAAAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAMcG9vbENvbnRyYWN0BgkAAAIAAAABAgAAABdjYWxsZXIgbXVzdCBiZSB0aGUgcG9vbAAAAAYAAAABaQEAAAALY29uc3RydWN0b3IAAAABAAAAC3Bvb2xBZGRyZXNzBAAAAAtjaGVja0NhbGxlcgkBAAAAC211c3RNYW5hZ2VyAAAAAQUAAAABaQMJAAAAAAAAAgUAAAALY2hlY2tDYWxsZXIFAAAAC2NoZWNrQ2FsbGVyCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAAAtrZXlQb29sQWRkcgAAAAAFAAAAC3Bvb2xBZGRyZXNzBQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAACnNldE1hbmFnZXIAAAABAAAAF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5BAAAAAtjaGVja0NhbGxlcgkBAAAAC211c3RNYW5hZ2VyAAAAAQUAAAABaQMJAAAAAAAAAgUAAAALY2hlY2tDYWxsZXIFAAAAC2NoZWNrQ2FsbGVyBAAAABVjaGVja01hbmFnZXJQdWJsaWNLZXkJAAJZAAAAAQUAAAAXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkDCQAAAAAAAAIFAAAAFWNoZWNrTWFuYWdlclB1YmxpY0tleQUAAAAVY2hlY2tNYW5hZ2VyUHVibGljS2V5CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABprZXlQZW5kaW5nTWFuYWdlclB1YmxpY0tleQAAAAAFAAAAF3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5BQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAFpAQAAAA5jb25maXJtTWFuYWdlcgAAAAAEAAAAAnBtCQEAAAAdcGVuZGluZ01hbmFnZXJQdWJsaWNLZXlPclVuaXQAAAAABAAAAAVoYXNQTQMJAQAAAAlpc0RlZmluZWQAAAABBQAAAAJwbQYJAAACAAAAAQIAAAASTm8gcGVuZGluZyBtYW5hZ2VyAwkAAAAAAAACBQAAAAVoYXNQTQUAAAAFaGFzUE0EAAAAB2NoZWNrUE0DCQAAAAAAAAIIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQkBAAAABXZhbHVlAAAAAQUAAAACcG0GCQAAAgAAAAECAAAAG1lvdSBhcmUgbm90IHBlbmRpbmcgbWFuYWdlcgMJAAAAAAAAAgUAAAAHY2hlY2tQTQUAAAAHY2hlY2tQTQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAATa2V5TWFuYWdlclB1YmxpY0tleQAAAAAJAAJYAAAAAQkBAAAABXZhbHVlAAAAAQUAAAACcG0JAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQkBAAAAGmtleVBlbmRpbmdNYW5hZ2VyUHVibGljS2V5AAAAAAUAAAADbmlsCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAJc2V0QWRtaW5zAAAAAQAAAAxhZG1pblB1YktleXMEAAAAC2NoZWNrQ2FsbGVyCQEAAAALbXVzdE1hbmFnZXIAAAABBQAAAAFpAwkAAAAAAAACBQAAAAtjaGVja0NhbGxlcgUAAAALY2hlY2tDYWxsZXIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAD2tleUFkbWluUHViS2V5cwAAAAAJAAS5AAAAAgUAAAAMYWRtaW5QdWJLZXlzBQAAAANTRVAFAAAAA25pbAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAATdW5zdGFrZUFuZEdldE9uZVRrbgAAAAYAAAAGYW1vdW50AAAACmV4Y2hSZXN1bHQAAAAHbm90VXNlZAAAAAlvdXRBbW91bnQAAAAKb3V0QXNzZXRJZAAAAAhzbGlwcGFnZQQAAAANY2hlY2tQYXltZW50cwMJAQAAAAIhPQAAAAIJAAGQAAAAAQgFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAJAAACAAAAAQIAAAANTm8gcG1udHMgZXhwZAYDCQAAAAAAAAIFAAAADWNoZWNrUGF5bWVudHMFAAAADWNoZWNrUGF5bWVudHMEAAAAA2NmZwkBAAAADWdldFBvb2xDb25maWcAAAAABAAAAApmYWN0b3J5Q2ZnCQEAAAAQZ2V0RmFjdG9yeUNvbmZpZwAAAAAEAAAACWxwQXNzZXRJZAkAAlkAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAJaWR4TFBBc0lkBAAAAAdzdGFraW5nCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQmAAAAAQkAAZEAAAACBQAAAApmYWN0b3J5Q2ZnBQAAAA9pZHhGYWN0U3Rha0NudHICAAAACldyIHN0IGFkZHIEAAAACnVuc3Rha2VJbnYJAAP8AAAABAUAAAAHc3Rha2luZwIAAAAHdW5zdGFrZQkABEwAAAACCQACWAAAAAEFAAAACWxwQXNzZXRJZAkABEwAAAACBQAAAAZhbW91bnQFAAAAA25pbAUAAAADbmlsAwkAAAAAAAACBQAAAAp1bnN0YWtlSW52BQAAAAp1bnN0YWtlSW52BAAAAAlnZXRPbmVUa24JAAP8AAAABAUAAAAMcG9vbENvbnRyYWN0AgAAAAlnZXRPbmVUa24JAARMAAAAAgUAAAAKZXhjaFJlc3VsdAkABEwAAAACBQAAAAdub3RVc2VkCQAETAAAAAIFAAAACW91dEFtb3VudAkABEwAAAACBQAAAApvdXRBc3NldElkCQAETAAAAAIFAAAACHNsaXBwYWdlBQAAAANuaWwJAARMAAAAAgkBAAAAD0F0dGFjaGVkUGF5bWVudAAAAAIFAAAACWxwQXNzZXRJZAUAAAAGYW1vdW50BQAAAANuaWwDCQAAAAAAAAIFAAAACWdldE9uZVRrbgUAAAAJZ2V0T25lVGtuBQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAGc2V0QW1wAAAAAQAAAANhbXAEAAAAC2NoZWNrQ2FsbGVyCQEAAAAJbXVzdEFkbWluAAAAAQUAAAABaQMJAAAAAAAAAgUAAAALY2hlY2tDYWxsZXIFAAAAC2NoZWNrQ2FsbGVyBAAAAARyZXMxCQAD/AAAAAQFAAAADHBvb2xDb250cmFjdAIAAAAEc2V0UwkABEwAAAACCQEAAAAGa2V5QW1wAAAAAAkABEwAAAACBQAAAANhbXAFAAAAA25pbAUAAAADbmlsBAAAAARyZXMyCQAD/AAAAAQFAAAADHBvb2xDb250cmFjdAIAAAAEc2V0UwkABEwAAAACCQEAAAANa2V5QW1wSGlzdG9yeQAAAAEFAAAABmhlaWdodAkABEwAAAACBQAAAANhbXAFAAAAA25pbAUAAAADbmlsCQAFFAAAAAIFAAAAA25pbAkABRQAAAACBQAAAARyZXMxBQAAAARyZXMyCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAD3RhcmdldFB1YmxpY0tleQQAAAAHJG1hdGNoMAkBAAAAFm1hbmFnZXJQdWJsaWNLZXlPclVuaXQAAAAAAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAApCeXRlVmVjdG9yBAAAAAJwawUAAAAHJG1hdGNoMAUAAAACcGsDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABFVuaXQIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXkJAAACAAAAAQIAAAALTWF0Y2ggZXJyb3IJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAA90YXJnZXRQdWJsaWNLZXmJkpk6",
    "height": 2206974,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: A7PmE6KHwyMxT8rT8cvjSBGwG6UMyHDVLLWovkD9q9w2
Next: 7uf1i3VGBdpJQMbwpQHqwh3SbW2vCWdhV2k9NZY7yzwC

Diff: 

OldNewDifferences
1-{-# STDLIB_VERSION 6 #-}
1+{-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let defaultDecimals = 1000000
5-
6-let scale8 = 100000000
7-
8-let scale8BigInt = toBigInt(100000000)
9-
10-let scale18 = toBigInt(1000000000000000000)
11-
12-let thousand = 1000
13-
14-let zeroBigInt = toBigInt(0)
15-
16-let oneBigInt = toBigInt(1)
17-
18-let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
19-
20-let Amult = "100"
21-
22-let Dconv = "1"
23-
244 let SEP = "__"
255 
266 let EMPTY = ""
277 
28-let PoolActive = 1
29-
30-let PoolPutDis = 2
31-
32-let PoolMatcherDis = 3
33-
34-let PoolShutdown = 4
35-
368 let idxPoolAddress = 1
37-
38-let idxPoolSt = 2
399 
4010 let idxLPAsId = 3
4111 
4313 
4414 let idxPrAsId = 5
4515 
46-let idxAmtAsDcm = 6
47-
48-let idxPriceAsDcm = 7
49-
50-let idxIAmtAsId = 8
51-
52-let idxIPriceAsId = 9
53-
5416 let idxFactStakCntr = 1
5517 
56-let idxFactSlippCntr = 7
57-
58-let idxFactGwxRewCntr = 10
59-
60-let feePermilleDefault = 0
61-
62-func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
63-
64-
65-func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
66-
67-
68-func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
69-
70-
71-func abs (val) = if ((zeroBigInt > val))
72-    then -(val)
73-    else val
74-
75-
76-func keyFactoryContact () = "%s__factoryContract"
18+func keyFactCntr () = "%s__factoryContract"
7719 
7820 
7921 func keyManagerPublicKey () = "%s__managerPublicKey"
8224 func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
8325 
8426 
85-func keyPriceLast () = "%s%s__price__last"
27+func keyPoolAddr () = "%s__poolAddress"
8628 
8729 
88-func keyPriceHistory (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
89-
90-
91-func keyPutActionByUser (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
92-
93-
94-func keyGetActionByUser (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
95-
96-
97-func keyAmountAsset () = "%s__amountAsset"
30+func keyAmtAsset () = "%s__amountAsset"
9831 
9932 
10033 func keyPriceAsset () = "%s__priceAsset"
10134 
10235 
103-func keyAmplificator () = "%s__amp"
36+func keyAdminPubKeys () = "%s__adminPubKeys"
10437 
10538 
106-func keyAddonAddress () = "%s__addonAddr"
39+func keyAmp () = "%s__amp"
10740 
10841 
109-let keyFeePermille = "%s__feePermille"
42+func keyAmpHistory (height) = ("%s%d__amp__" + toString(height))
11043 
111-let feePermille = valueOrElse(getInteger(this, keyFeePermille), feePermilleDefault)
11244 
11345 func keyFactoryConfig () = "%s__factoryConfig"
114-
115-
116-func keyMatcherPub () = "%s%s__matcher__publicKey"
11746 
11847 
11948 func keyPoolConfig (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
12251 func keyMappingsBaseAsset2internalId (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
12352 
12453 
125-func keyAllPoolsShutdown () = "%s__shutdown"
126-
127-
128-func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
129-
130-
131-func throwOrderError (orV,sendrV,matchV) = throwErr(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
132-
133-
134-func str (val) = match val {
135-    case valStr: String => 
136-        valStr
137-    case _ => 
138-        throwErr("fail cast to String")
139-}
140-
141-
14254 func getStringOrFail (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
14355 
14456 
14557 func getIntOrFail (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
14658 
14759 
148-let factoryContract = addressFromStringValue(getStringOrFail(this, keyFactoryContact()))
60+let poolContract = addressFromStringValue(getStringOrFail(this, keyPoolAddr()))
14961 
150-let amplificator = getStringOrFail(this, keyAmplificator())
151-
152-func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
153-
154-
155-func getMatcherPubOrFail () = fromBase58String(getStringOrFail(factoryContract, keyMatcherPub()))
156-
157-
158-let matcherAddress = addressFromPublicKey(getMatcherPubOrFail())
62+let factoryContract = addressFromStringValue(getStringOrFail(poolContract, keyFactCntr()))
15963 
16064 func getPoolConfig () = {
161-    let amtAs = getStringOrFail(this, keyAmountAsset())
162-    let priceAs = getStringOrFail(this, keyPriceAsset())
65+    let amtAs = getStringOrFail(poolContract, keyAmtAsset())
66+    let priceAs = getStringOrFail(poolContract, keyPriceAsset())
16367     let iPriceAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAs))
16468     let iAmtAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAs))
16569     split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAs), toString(iPriceAs))), SEP)
16771 
16872 
16973 func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
170-
171-
172-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)
173-
174-
175-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)
176-
177-
178-func getAccBalance (assetId) = if ((assetId == "WAVES"))
179-    then wavesBalance(this).available
180-    else assetBalance(this, fromBase58String(assetId))
181-
182-
183-func calcPriceBigInt (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
184-
185-
186-func validateAbsDiff (estimateLP,outLp,slippage) = {
187-    let diff = fraction((estimateLP - outLp), scale8BigInt, outLp)
188-    let pass = ((slippage - abs(diff)) > zeroBigInt)
189-    if (!(pass))
190-        then throwErr(("Big slippage: " + toString(diff)))
191-        else $Tuple2(pass, min([estimateLP, outLp]))
192-    }
193-
194-
195-func validateD (D1,D0,slippage) = {
196-    let diff = fraction(D0, scale8BigInt, D1)
197-    let fail = (slippage > diff)
198-    if (if (fail)
199-        then true
200-        else (D0 > D1))
201-        then throwErr(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slippage)))
202-        else fail
203-    }
204-
205-
206-func privateCalcPrice (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
207-    let amtAsAmtX18 = toX18(amAmt, amAssetDcm)
208-    let prAsAmtX18 = toX18(prAmt, prAssetDcm)
209-    calcPriceBigInt(prAsAmtX18, amtAsAmtX18)
210-    }
211-
212-
213-func calcPrices (amAmt,prAmt,lpAmt) = {
214-    let cfg = getPoolConfig()
215-    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
216-    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
217-    let priceX18 = privateCalcPrice(amtAsDcm, prAsDcm, amAmt, prAmt)
218-    let amAmtX18 = toX18(amAmt, amtAsDcm)
219-    let prAmtX18 = toX18(prAmt, prAsDcm)
220-    let lpAmtX18 = toX18(lpAmt, scale8)
221-    let lpPrInAmAsX18 = calcPriceBigInt(amAmtX18, lpAmtX18)
222-    let lpPrInPrAsX18 = calcPriceBigInt(prAmtX18, lpAmtX18)
223-[priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
224-    }
225-
226-
227-func calculatePrices (amAmt,prAmt,lpAmt) = {
228-    let p = calcPrices(amAmt, prAmt, lpAmt)
229-[fromX18(p[0], scale8), fromX18(p[1], scale8), fromX18(p[2], scale8)]
230-    }
231-
232-
233-func estimateGetOperation (txId58,paymentAssetId,paymentLpAmount,userAddress) = {
234-    let cfg = getPoolConfig()
235-    let lpAssetId = cfg[idxLPAsId]
236-    let amountId = cfg[idxAmAsId]
237-    let priceId = cfg[idxPrAsId]
238-    let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
239-    let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
240-    let sts = cfg[idxPoolSt]
241-    let lpEmission = valueOrErrorMessage(assetInfo(fromBase58String(lpAssetId)), "Wrong LP id").quantity
242-    let validationBlock = if ((lpAssetId == paymentAssetId))
243-        then true
244-        else throwErr("Wrong payment asset")
245-    if ((validationBlock == validationBlock))
246-        then {
247-            let amountBalance = getAccBalance(amountId)
248-            let priceBalance = getAccBalance(priceId)
249-            let amountBalanceDefaultDecimals = fraction(amountBalance, defaultDecimals, amountDecimals)
250-            let priceBalanceDefaultDecimals = fraction(priceBalance, defaultDecimals, priceDecimals)
251-            let amountBalanceX18 = toX18(amountBalanceDefaultDecimals, defaultDecimals)
252-            let priceBalanceX18 = toX18(priceBalanceDefaultDecimals, defaultDecimals)
253-            let currentPriceX18 = calcPriceBigInt(priceBalanceX18, amountBalanceX18)
254-            let curPrice = fromX18(currentPriceX18, scale8)
255-            let paymentLpAmountX18 = toX18(paymentLpAmount, scale8)
256-            let lpEmissionX18 = toX18(lpEmission, scale8)
257-            let outAmountAmountX18 = fraction(amountBalanceX18, paymentLpAmountX18, lpEmissionX18)
258-            let outPriceAmountX18 = fraction(priceBalanceX18, paymentLpAmountX18, lpEmissionX18)
259-            let outAmountAmountDefaultDecimals = fromX18(outAmountAmountX18, defaultDecimals)
260-            let outPriceAmountDefaultDecimals = fromX18(outPriceAmountX18, defaultDecimals)
261-            let outAmountAmount = fraction(outAmountAmountDefaultDecimals, amountDecimals, defaultDecimals)
262-            let outPriceAmount = fraction(outPriceAmountDefaultDecimals, priceDecimals, defaultDecimals)
263-            let state = if ((txId58 == ""))
264-                then nil
265-                else [ScriptTransfer(userAddress, outAmountAmount, if ((amountId == "WAVES"))
266-                    then unit
267-                    else fromBase58String(amountId)), ScriptTransfer(userAddress, outPriceAmount, if ((priceId == "WAVES"))
268-                    then unit
269-                    else fromBase58String(priceId)), StringEntry(keyGetActionByUser(toString(userAddress), txId58), dataGetActionInfo(outAmountAmount, outPriceAmount, paymentLpAmount, curPrice, height, lastBlock.timestamp)), IntegerEntry(keyPriceLast(), curPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPrice)]
270-            $Tuple10(outAmountAmount, outPriceAmount, amountId, priceId, amountBalance, priceBalance, lpEmission, currentPriceX18, sts, state)
271-            }
272-        else throw("Strict value is not equal to itself.")
273-    }
274-
275-
276-func estimatePutOperation (txId58,slippageTolerance,inAmountAssetAmount,inAmountAssetId,inPriceAssetAmount,inPriceAssetId,userAddress,isEvaluate,emitLp,isOneAsset,paymentAmount,paymentId) = {
277-    let cfg = getPoolConfig()
278-    let lpAssetId = fromBase58String(cfg[idxLPAsId])
279-    let amountIdStr = cfg[idxAmAsId]
280-    let priceIdStr = cfg[idxPrAsId]
281-    let inAmountIdStr = cfg[idxIAmtAsId]
282-    let inPriceIdStr = cfg[idxIPriceAsId]
283-    let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
284-    let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
285-    let sts = cfg[idxPoolSt]
286-    let lpEmission = valueOrErrorMessage(assetInfo(lpAssetId), "Wrong lp asset").quantity
287-    let amountBalance = if (isEvaluate)
288-        then getAccBalance(amountIdStr)
289-        else if (if (isOneAsset)
290-            then (paymentId == amountIdStr)
291-            else false)
292-            then (getAccBalance(amountIdStr) - paymentAmount)
293-            else if (isOneAsset)
294-                then getAccBalance(amountIdStr)
295-                else (getAccBalance(amountIdStr) - inAmountAssetAmount)
296-    let priceBalance = if (isEvaluate)
297-        then getAccBalance(priceIdStr)
298-        else if (if (isOneAsset)
299-            then (paymentId == priceIdStr)
300-            else false)
301-            then (getAccBalance(priceIdStr) - paymentAmount)
302-            else if (isOneAsset)
303-                then getAccBalance(priceIdStr)
304-                else (getAccBalance(priceIdStr) - inPriceAssetAmount)
305-    let amountBalanceDefaultDecimals = fraction(amountBalance, defaultDecimals, amountDecimals)
306-    let priceBalanceDefaultDecimals = fraction(priceBalance, defaultDecimals, priceDecimals)
307-    let inAmountAssetAmountDefaultDecimals = fraction(inAmountAssetAmount, defaultDecimals, amountDecimals)
308-    let inPriceAssetAmountDefaultDecimals = fraction(inPriceAssetAmount, defaultDecimals, priceDecimals)
309-    let inAmountAssetAmountX18 = toX18(inAmountAssetAmountDefaultDecimals, defaultDecimals)
310-    let inPriceAssetAmountX18 = toX18(inPriceAssetAmountDefaultDecimals, defaultDecimals)
311-    let userPriceX18 = calcPriceBigInt(inPriceAssetAmountX18, inAmountAssetAmountX18)
312-    let amountBalanceX18 = toX18(amountBalanceDefaultDecimals, defaultDecimals)
313-    let priceBalanceX18 = toX18(priceBalanceDefaultDecimals, defaultDecimals)
314-    let r = if ((lpEmission == 0))
315-        then {
316-            let currentPriceX18 = zeroBigInt
317-            let slippageX18 = zeroBigInt
318-            let lpAmountX18 = pow((inAmountAssetAmountX18 * inPriceAssetAmountX18), 0, toBigInt(5), 1, 0, DOWN)
319-            $Tuple5(fromX18(lpAmountX18, scale8), fromX18(inAmountAssetAmountX18, defaultDecimals), fromX18(inPriceAssetAmountX18, defaultDecimals), calcPriceBigInt((priceBalanceX18 + inPriceAssetAmountX18), (amountBalanceX18 + inAmountAssetAmountX18)), slippageX18)
320-            }
321-        else {
322-            let currentPriceX18 = calcPriceBigInt(priceBalanceX18, amountBalanceX18)
323-            let slippageRealX18 = fraction(abs((currentPriceX18 - userPriceX18)), scale18, currentPriceX18)
324-            let slippageX18 = toX18(slippageTolerance, scale8)
325-            let validateSlippage = if (((if ((currentPriceX18 != zeroBigInt))
326-                then (slippageRealX18 > slippageX18)
327-                else false) == false))
328-                then true
329-                else throwErr(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
330-            if ((validateSlippage == validateSlippage))
331-                then {
332-                    let lpEmissionX18 = toX18(lpEmission, scale8)
333-                    let prViaAmX18 = fraction(inAmountAssetAmountX18, currentPriceX18, scale18)
334-                    let amViaPrX18 = fraction(inPriceAssetAmountX18, scale18, currentPriceX18)
335-                    let expectedAmounts = if ((prViaAmX18 > inPriceAssetAmountX18))
336-                        then $Tuple2(amViaPrX18, inAmountAssetAmountX18)
337-                        else $Tuple2(inAmountAssetAmountX18, prViaAmX18)
338-                    let expectedAmountAssetAmountX18 = expectedAmounts._1
339-                    let expectedPriceAssetAmountX18 = expectedAmounts._2
340-                    let lpAmountX18 = fraction(lpEmissionX18, expectedPriceAssetAmountX18, priceBalanceX18)
341-                    $Tuple5(fromX18(lpAmountX18, scale8), fromX18(expectedAmountAssetAmountX18, defaultDecimals), fromX18(expectedPriceAssetAmountX18, defaultDecimals), currentPriceX18, slippageX18)
342-                    }
343-                else throw("Strict value is not equal to itself.")
344-            }
345-    let calculateLpAmount = r._1
346-    let calculateAmountAssetPayment = fraction(r._2, amountDecimals, defaultDecimals)
347-    let calculatePriceAssetPayment = fraction(r._3, priceDecimals, defaultDecimals)
348-    let currentPrice = fromX18(r._4, scale8)
349-    let slippageCalculate = fromX18(r._5, scale8)
350-    let checkCalcLpAmount = if ((calculateLpAmount > 0))
351-        then true
352-        else throwErr("LP <= 0")
353-    if ((checkCalcLpAmount == checkCalcLpAmount))
354-        then {
355-            let emitLpAmount = if (!(emitLp))
356-                then 0
357-                else calculateLpAmount
358-            let amountDiff = (inAmountAssetAmount - calculateAmountAssetPayment)
359-            let priceDiff = (inPriceAssetAmount - calculatePriceAssetPayment)
360-            let $t01715017409 = if (if (isOneAsset)
361-                then (paymentId == amountIdStr)
362-                else false)
363-                then $Tuple2(paymentAmount, 0)
364-                else if (if (isOneAsset)
365-                    then (paymentId == priceIdStr)
366-                    else false)
367-                    then $Tuple2(0, paymentAmount)
368-                    else $Tuple2(calculateAmountAssetPayment, calculatePriceAssetPayment)
369-            let writeAmAmt = $t01715017409._1
370-            let writePrAmt = $t01715017409._2
371-            let commonState = [IntegerEntry(keyPriceLast(), currentPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), currentPrice), StringEntry(keyPutActionByUser(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmount, currentPrice, slippageTolerance, slippageCalculate, height, lastBlock.timestamp, amountDiff, priceDiff))]
372-            $Tuple13(calculateLpAmount, emitLpAmount, currentPrice, amountBalance, priceBalance, lpEmission, lpAssetId, sts, commonState, amountDiff, priceDiff, inAmountAssetId, inPriceAssetId)
373-            }
374-        else throw("Strict value is not equal to itself.")
375-    }
376-
377-
378-func validateMatcherOrderAllowed (order) = {
379-    let cfg = getPoolConfig()
380-    let amtAsId = cfg[idxAmAsId]
381-    let prAsId = cfg[idxPrAsId]
382-    let sts = parseIntValue(cfg[idxPoolSt])
383-    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
384-    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
385-    let accAmtAsBalance = getAccBalance(amtAsId)
386-    let accPrAsBalance = getAccBalance(prAsId)
387-    let currentPriceX18 = if ((order.orderType == Buy))
388-        then privateCalcPrice(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
389-        else privateCalcPrice(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
390-    let curPrice = fromX18(currentPriceX18, scale8)
391-    if (if (if (isGlobalShutdown())
392-        then true
393-        else (sts == PoolMatcherDis))
394-        then true
395-        else (sts == PoolShutdown))
396-        then throwErr("Admin blocked")
397-        else {
398-            let orAmtAsset = order.assetPair.amountAsset
399-            let orAmtAsStr = if ((orAmtAsset == unit))
400-                then "WAVES"
401-                else toBase58String(value(orAmtAsset))
402-            let orPrAsset = order.assetPair.priceAsset
403-            let orPrAsStr = if ((orPrAsset == unit))
404-                then "WAVES"
405-                else toBase58String(value(orPrAsset))
406-            if (if ((orAmtAsStr != amtAsId))
407-                then true
408-                else (orPrAsStr != prAsId))
409-                then throwErr("Wr assets")
410-                else {
411-                    let orderPrice = order.price
412-                    let priceDecimals = fraction(scale8, prAsDcm, amtAsDcm)
413-                    let castOrderPrice = ts(orderPrice, scale8, priceDecimals)
414-                    let isOrderPriceValid = if ((order.orderType == Buy))
415-                        then (curPrice >= castOrderPrice)
416-                        else (castOrderPrice >= curPrice)
417-                    true
418-                    }
419-            }
420-    }
421-
422-
423-func commonGet (i) = {
424-    let checkPayments = if ((size(i.payments) == 1))
425-        then true
426-        else throwErr("1 payment expected")
427-    if ((checkPayments == checkPayments))
428-        then {
429-            let payment = value(i.payments[0])
430-            let paymentAssetId = value(payment.assetId)
431-            let paymentAmount = payment.amount
432-            let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(paymentAssetId), paymentAmount, i.caller)
433-            let outAmountAmount = r._1
434-            let outPriceAmount = r._2
435-            let sts = parseIntValue(r._9)
436-            let state = r._10
437-            if (if (isGlobalShutdown())
438-                then true
439-                else (sts == PoolShutdown))
440-                then throwErr(("Admin blocked: " + toString(sts)))
441-                else $Tuple5(outAmountAmount, outPriceAmount, paymentAmount, paymentAssetId, state)
442-            }
443-        else throw("Strict value is not equal to itself.")
444-    }
445-
446-
447-func commonPut (caller,txId,amountAssetPayment,priceAssetPayment,slippage,emitLp,isOneAsset,paymentAmount,paymentId) = {
448-    let r = estimatePutOperation(txId, slippage, value(amountAssetPayment).amount, value(amountAssetPayment).assetId, value(priceAssetPayment).amount, value(priceAssetPayment).assetId, caller, false, emitLp, isOneAsset, paymentAmount, paymentId)
449-    let sts = parseIntValue(r._8)
450-    if (if (if (isGlobalShutdown())
451-        then true
452-        else (sts == PoolPutDis))
453-        then true
454-        else (sts == PoolShutdown))
455-        then throwErr(("Blocked:" + toString(sts)))
456-        else r
457-    }
458-
459-
460-func takeFee (amount) = {
461-    let fee = fraction(amount, feePermille, thousand)
462-    $Tuple2((amount - fee), fee)
463-    }
46474 
46575 
46676 func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
48393 }
48494 
48595 
486-let pd = throwErr("Permission denied")
96+func mustManager (i) = {
97+    let pd = throw("Permission denied")
98+    match managerPublicKeyOrUnit() {
99+        case pk: ByteVector => 
100+            if ((i.callerPublicKey == pk))
101+                then true
102+                else pd
103+        case _: Unit => 
104+            if ((i.caller == this))
105+                then true
106+                else pd
107+        case _ => 
108+            throw("Match error")
109+    }
110+    }
487111 
488-func mustManager (i) = match managerPublicKeyOrUnit() {
489-    case pk: ByteVector => 
490-        if ((i.callerPublicKey == pk))
491-            then true
492-            else pd
493-    case _: Unit => 
494-        if ((i.caller == this))
495-            then true
496-            else pd
112+
113+func getAdmins () = match getString(keyAdminPubKeys()) {
114+    case s: String => 
115+        if ((size(s) == 0))
116+            then nil
117+            else split(s, SEP)
497118     case _ => 
498-        throw("Match error")
119+        nil
499120 }
500121 
501122 
123+func mustAdmin (i) = if (containsElement(getAdmins(), toBase58String(i.callerPublicKey)))
124+    then true
125+    else mustManager(i)
126+
127+
128+func mustPool (i) = if ((i.caller == poolContract))
129+    then true
130+    else throw("caller must be the pool")
131+
132+
502133 @Callable(i)
503-func constructor (factoryContract) = {
134+func constructor (poolAddress) = {
504135     let checkCaller = mustManager(i)
505136     if ((checkCaller == checkCaller))
506-        then [StringEntry(keyFactoryContact(), factoryContract)]
137+        then [StringEntry(keyPoolAddr(), poolAddress)]
507138         else throw("Strict value is not equal to itself.")
508139     }
509140 
529160     let pm = pendingManagerPublicKeyOrUnit()
530161     let hasPM = if (isDefined(pm))
531162         then true
532-        else throwErr("No pending manager")
163+        else throw("No pending manager")
533164     if ((hasPM == hasPM))
534165         then {
535166             let checkPM = if ((i.callerPublicKey == value(pm)))
536167                 then true
537-                else throwErr("You are not pending manager")
168+                else throw("You are not pending manager")
538169             if ((checkPM == checkPM))
539170                 then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
540171                 else throw("Strict value is not equal to itself.")
545176 
546177 
547178 @Callable(i)
548-func put (slippage,autoStake) = {
549-    let factCfg = getFactoryConfig()
550-    let stakingContract = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wrong staking contract")
551-    let slippageContract = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wrogn slippage contract")
552-    let slippageCheck = if ((slippage >= 0))
553-        then true
554-        else throwErr("wrong slippage")
555-    if ((slippageCheck == slippageCheck))
179+func setAdmins (adminPubKeys) = {
180+    let checkCaller = mustManager(i)
181+    if ((checkCaller == checkCaller))
182+        then [StringEntry(keyAdminPubKeys(), makeString(adminPubKeys, SEP))]
183+        else throw("Strict value is not equal to itself.")
184+    }
185+
186+
187+
188+@Callable(i)
189+func unstakeAndGetOneTkn (amount,exchResult,notUsed,outAmount,outAssetId,slippage) = {
190+    let checkPayments = if ((size(i.payments) != 0))
191+        then throw("No pmnts expd")
192+        else true
193+    if ((checkPayments == checkPayments))
556194         then {
557-            let paymentsCheck = if ((size(i.payments) == 2))
558-                then true
559-                else throwErr("2 payments expected")
560-            if ((paymentsCheck == paymentsCheck))
195+            let cfg = getPoolConfig()
196+            let factoryCfg = getFactoryConfig()
197+            let lpAssetId = fromBase58String(cfg[idxLPAsId])
198+            let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
199+            let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
200+            if ((unstakeInv == unstakeInv))
561201                 then {
562-                    let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slippage, true, false, 0, "")
563-                    let emitLpAmount = estimatePut._2
564-                    let lpAssetId = estimatePut._7
565-                    let state = estimatePut._9
566-                    let amountDiff = estimatePut._10
567-                    let priceDiff = estimatePut._11
568-                    let amountId = estimatePut._12
569-                    let priceId = estimatePut._13
570-                    let r = invoke(factoryContract, "emit", [emitLpAmount], nil)
571-                    if ((r == r))
572-                        then {
573-                            let el =                             match r {
574-                                case legacy: Address => 
575-                                    invoke(legacy, "emit", [emitLpAmount], nil)
576-                                case _ => 
577-                                    unit
578-                            }
579-                            if ((el == el))
580-                                then {
581-                                    let sa = if ((amountDiff > 0))
582-                                        then invoke(slippageContract, "put", nil, [AttachedPayment(amountId, amountDiff)])
583-                                        else nil
584-                                    if ((sa == sa))
585-                                        then {
586-                                            let sp = if ((priceDiff > 0))
587-                                                then invoke(slippageContract, "put", nil, [AttachedPayment(priceId, priceDiff)])
588-                                                else nil
589-                                            if ((sp == sp))
590-                                                then {
591-                                                    let lpTrasfer = if (autoStake)
592-                                                        then {
593-                                                            let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmount)])
594-                                                            if ((ss == ss))
595-                                                                then nil
596-                                                                else throw("Strict value is not equal to itself.")
597-                                                            }
598-                                                        else [ScriptTransfer(i.caller, emitLpAmount, lpAssetId)]
599-                                                    (state ++ lpTrasfer)
600-                                                    }
601-                                                else throw("Strict value is not equal to itself.")
602-                                            }
603-                                        else throw("Strict value is not equal to itself.")
604-                                    }
605-                                else throw("Strict value is not equal to itself.")
606-                            }
202+                    let getOneTkn = invoke(poolContract, "getOneTkn", [exchResult, notUsed, outAmount, outAssetId, slippage], [AttachedPayment(lpAssetId, amount)])
203+                    if ((getOneTkn == getOneTkn))
204+                        then nil
607205                         else throw("Strict value is not equal to itself.")
608206                     }
609207                 else throw("Strict value is not equal to itself.")
614212 
615213 
616214 @Callable(i)
617-func putOneTkn (amountAssetPart,priceAssetPart,outLp,slippage,autoStake) = {
618-    let cfg = getFactoryConfig()
619-    let stakingContract = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wrong staking contract")
620-    let slippageContract = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wrong slippage contract")
621-    let gwxRewardContract = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wrong gwx reward contract")
622-    let poolCfg = getPoolConfig()
623-    let amountId = poolCfg[idxAmAsId]
624-    let priceId = poolCfg[idxPrAsId]
625-    let amountDecimals = parseIntValue(poolCfg[idxAmtAsDcm])
626-    let priceDecimals = parseIntValue(poolCfg[idxPriceAsDcm])
627-    let addon = valueOrElse(getString(this, keyAddonAddress()), "")
628-    let userAddress = if ((addon == toString(i.caller)))
629-        then i.originCaller
630-        else i.caller
631-    if (if (if (if ((0 >= slippage))
632-        then true
633-        else (0 >= amountAssetPart))
634-        then true
635-        else (0 >= priceAssetPart))
636-        then true
637-        else (0 >= outLp))
638-        then throwErr("Wrong params")
639-        else if ((size(i.payments) != 1))
640-            then throwErr("1 payment expected")
641-            else {
642-                let payment = value(i.payments[0])
643-                let paymentAssetId = toBase58String(value(payment.assetId))
644-                let paymentAmountRaw = payment.amount
645-                let $t02656926628 = takeFee(paymentAmountRaw)
646-                let paymentAmount = $t02656926628._1
647-                let feeAmount = $t02656926628._2
648-                if (if (if ((amountAssetPart > paymentAmount))
649-                    then true
650-                    else (priceAssetPart > paymentAmount))
651-                    then true
652-                    else (10000000 > paymentAmount))
653-                    then throwErr("wrong payment amount")
654-                    else {
655-                        let amountBalance = getAccBalance(amountId)
656-                        let priceBalance = getAccBalance(priceId)
657-                        let $t02689327348 = if ((paymentAssetId == amountId))
658-                            then $Tuple6((amountBalance - paymentAmount), priceBalance, (paymentAmount - amountAssetPart), priceAssetPart, 0, 0)
659-                            else if ((paymentAssetId == priceId))
660-                                then $Tuple6(amountBalance, (priceBalance - paymentAmount), 0, 0, (paymentAmount - priceAssetPart), amountAssetPart)
661-                                else throwErr("wrong paymentAssetId")
662-                        let amountBalanceNow = $t02689327348._1
663-                        let priceBalanceNow = $t02689327348._2
664-                        let virtSwapInAm = $t02689327348._3
665-                        let virtSwapOutPr = $t02689327348._4
666-                        let virtSwapInPr = $t02689327348._5
667-                        let virtSwapOutAm = $t02689327348._6
668-                        let D0 = invoke(gwxRewardContract, "calcD", [toString(amountBalanceNow), toString(priceBalanceNow), amplificator, Amult, Dconv], nil)
669-                        let D1 = invoke(gwxRewardContract, "calcD", [toString(toBigInt(((amountBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((priceBalanceNow + virtSwapInPr) - virtSwapOutPr))), amplificator, Amult, Dconv], nil)
670-                        let D0vsD1 = validateD(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
671-                        if ((D0vsD1 == D0vsD1))
672-                            then {
673-                                let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amountId), amountAssetPart), AttachedPayment(fromBase58String(priceId), priceAssetPart), slippage, true, true, paymentAmount, paymentAssetId)
674-                                let estimateLP = estimatePut._2
675-                                let lpAssetId = estimatePut._7
676-                                let state = estimatePut._9
677-                                let amountDiff = estimatePut._10
678-                                let priceDiff = estimatePut._11
679-                                let lpCalcRes = validateAbsDiff(toBigInt(estimateLP), toBigInt(outLp), toBigInt(slippage))
680-                                let emitLpAmount = toInt(lpCalcRes._2)
681-                                let e = invoke(factoryContract, "emit", [emitLpAmount], nil)
682-                                if ((e == e))
683-                                    then {
684-                                        let el =                                         match e {
685-                                            case legacy: Address => 
686-                                                invoke(legacy, "emit", [emitLpAmount], nil)
687-                                            case _ => 
688-                                                unit
689-                                        }
690-                                        if ((el == el))
691-                                            then {
692-                                                let sa = if ((amountDiff > 0))
693-                                                    then invoke(slippageContract, "put", nil, [AttachedPayment(fromBase58String(amountId), amountDiff)])
694-                                                    else nil
695-                                                if ((sa == sa))
696-                                                    then {
697-                                                        let sp = if ((priceDiff > 0))
698-                                                            then invoke(slippageContract, "put", nil, [AttachedPayment(fromBase58String(priceId), priceDiff)])
699-                                                            else nil
700-                                                        if ((sp == sp))
701-                                                            then {
702-                                                                let lpTrasfer = if (autoStake)
703-                                                                    then {
704-                                                                        let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmount)])
705-                                                                        if ((ss == ss))
706-                                                                            then nil
707-                                                                            else throw("Strict value is not equal to itself.")
708-                                                                        }
709-                                                                    else [ScriptTransfer(i.caller, emitLpAmount, lpAssetId)]
710-                                                                let sendFeeToMatcher = if ((feeAmount > 0))
711-                                                                    then [ScriptTransfer(matcherAddress, feeAmount, fromBase58String(paymentAssetId))]
712-                                                                    else nil
713-                                                                ((state ++ lpTrasfer) ++ sendFeeToMatcher)
714-                                                                }
715-                                                            else throw("Strict value is not equal to itself.")
716-                                                        }
717-                                                    else throw("Strict value is not equal to itself.")
718-                                                }
719-                                            else throw("Strict value is not equal to itself.")
720-                                        }
721-                                    else throw("Strict value is not equal to itself.")
722-                                }
723-                            else throw("Strict value is not equal to itself.")
724-                        }
725-                }
726-    }
727-
728-
729-
730-@Callable(i)
731-func putForFree (maxslippage) = if ((0 > maxslippage))
732-    then throwErr("wrong slippage")
733-    else if ((size(i.payments) != 2))
734-        then throwErr("2 payments expected")
735-        else {
736-            let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxslippage, false, false, 0, "")
737-            estimatePut._9
738-            }
739-
740-
741-
742-@Callable(i)
743-func get () = {
744-    let r = commonGet(i)
745-    let outAmtAmt = r._1
746-    let outPriceAmount = r._2
747-    let paymentAmount = r._3
748-    let paymentAssetId = r._4
749-    let state = r._5
750-    let b = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
751-    if ((b == b))
752-        then state
753-        else throw("Strict value is not equal to itself.")
754-    }
755-
756-
757-
758-@Callable(i)
759-func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
760-    then throwErr("1 payment expected")
761-    else {
762-        let cfg = getPoolConfig()
763-        let lpAssetId = cfg[idxLPAsId]
764-        let amountId = cfg[idxAmAsId]
765-        let priceId = cfg[idxPrAsId]
766-        let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
767-        let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
768-        let sts = cfg[idxPoolSt]
769-        let factCfg = getFactoryConfig()
770-        let gwxRewardContract = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wrong gwxRewardContract address")
771-        let payment = value(i.payments[0])
772-        let addon = valueOrElse(getString(this, keyAddonAddress()), "")
773-        let userAddress = if ((addon == toString(i.caller)))
774-            then i.originCaller
775-            else i.caller
776-        let txId58 = toBase58String(i.transactionId)
777-        let paymentAssetId = value(payment.assetId)
778-        let paymentAmount = payment.amount
779-        if ((1000000000 > paymentAmount))
780-            then throwErr("Min payment 10 LP")
781-            else if (if (if ((0 > slippage))
782-                then true
783-                else (0 > exchResult))
784-                then true
785-                else (0 > outAmount))
786-                then throwErr("Wrong params")
787-                else if ((lpAssetId != toBase58String(paymentAssetId)))
788-                    then throwErr("Wrong LP")
789-                    else {
790-                        let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(paymentAssetId), paymentAmount, i.caller)
791-                        let estimAmAmt = r._1
792-                        let estimPrAmt = r._2
793-                        let amountBalance = getAccBalance(amountId)
794-                        let priceBalance = getAccBalance(priceId)
795-                        let $t03249632964 = if ((outAssetId == amountId))
796-                            then $Tuple7((amountBalance - estimAmAmt), (priceBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
797-                            else if ((outAssetId == priceId))
798-                                then $Tuple7((amountBalance - estimAmAmt), (priceBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
799-                                else throwErr("wrong outAssetId")
800-                        let amountBalanceNow = $t03249632964._1
801-                        let priceBalanceNow = $t03249632964._2
802-                        let virtSwapInAm = $t03249632964._3
803-                        let virtSwapOutPr = $t03249632964._4
804-                        let virtSwapInPr = $t03249632964._5
805-                        let virtSwapOutAm = $t03249632964._6
806-                        let totalGet = $t03249632964._7
807-                        if (if ((0 > virtSwapInAm))
808-                            then true
809-                            else (0 > virtSwapInPr))
810-                            then throwErr("Wrong calc")
811-                            else {
812-                                let D0 = invoke(gwxRewardContract, "calcD", [toString(amountBalanceNow), toString(priceBalanceNow), amplificator, Amult, Dconv], nil)
813-                                let D1 = invoke(gwxRewardContract, "calcD", [toString(((amountBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((priceBalanceNow + virtSwapOutPr) - virtSwapInPr)), amplificator, Amult, Dconv], nil)
814-                                let D0vsD1 = validateD(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
815-                                if ((D0vsD1 == D0vsD1))
816-                                    then {
817-                                        let finalRes = validateAbsDiff(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
818-                                        if ((finalRes == finalRes))
819-                                            then {
820-                                                let $t03363333741 = if ((outAssetId == amountId))
821-                                                    then $Tuple2(toInt(finalRes._2), 0)
822-                                                    else $Tuple2(0, toInt(finalRes._2))
823-                                                let outAm = $t03363333741._1
824-                                                let outPr = $t03363333741._2
825-                                                let totalAmountRaw = (outAm + outPr)
826-                                                let $t03378133836 = takeFee(totalAmountRaw)
827-                                                let totalAmount = $t03378133836._1
828-                                                let feeAmount = $t03378133836._2
829-                                                let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
830-                                                    then unit
831-                                                    else fromBase58String(outAssetId)
832-                                                let sendFeeToMatcher = if ((feeAmount > 0))
833-                                                    then [ScriptTransfer(matcherAddress, feeAmount, outAssetIdOrWaves)]
834-                                                    else nil
835-                                                let decimals = if ((amountDecimals >= priceDecimals))
836-                                                    then amountDecimals
837-                                                    else priceDecimals
838-                                                if ((decimals == decimals))
839-                                                    then {
840-                                                        let curPrX18 = calcPriceBigInt(toX18(priceBalance, decimals), toX18(amountBalance, decimals))
841-                                                        let curPr = fromX18(curPrX18, scale8)
842-                                                        let state = [ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(keyGetActionByUser(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, paymentAmount, curPr, height, lastBlock.timestamp)), IntegerEntry(keyPriceLast(), curPr), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPr)]
843-                                                        if ((state == state))
844-                                                            then {
845-                                                                let burn = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
846-                                                                if ((burn == burn))
847-                                                                    then (state ++ sendFeeToMatcher)
848-                                                                    else throw("Strict value is not equal to itself.")
849-                                                                }
850-                                                            else throw("Strict value is not equal to itself.")
851-                                                        }
852-                                                    else throw("Strict value is not equal to itself.")
853-                                                }
854-                                            else throw("Strict value is not equal to itself.")
855-                                        }
856-                                    else throw("Strict value is not equal to itself.")
857-                                }
858-                        }
859-        }
860-
861-
862-
863-@Callable(i)
864-func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
865-    let r = commonGet(i)
866-    let outAmountAmount = r._1
867-    let outPriceAmount = r._2
868-    let paymentAmount = r._3
869-    let paymentAssetId = r._4
870-    let state = r._5
871-    let checkOutAmountAmount = if ((outAmountAmount >= noLessThenAmtAsset))
872-        then true
873-        else throwErr(((("Failed:  " + toString(outAmountAmount)) + " < ") + toString(noLessThenAmtAsset)))
874-    if ((checkOutAmountAmount == checkOutAmountAmount))
215+func setAmp (amp) = {
216+    let checkCaller = mustAdmin(i)
217+    if ((checkCaller == checkCaller))
875218         then {
876-            let checkOutPriceAmount = if ((outPriceAmount >= noLessThenPriceAsset))
877-                then true
878-                else throwErr(((("Failed: " + toString(outPriceAmount)) + " < ") + toString(noLessThenPriceAsset)))
879-            if ((checkOutPriceAmount == checkOutPriceAmount))
880-                then {
881-                    let burnLPAssetOnFactory = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
882-                    if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
883-                        then state
884-                        else throw("Strict value is not equal to itself.")
885-                    }
886-                else throw("Strict value is not equal to itself.")
219+            let res1 = invoke(poolContract, "setS", [keyAmp(), amp], nil)
220+            let res2 = invoke(poolContract, "setS", [keyAmpHistory(height), amp], nil)
221+            $Tuple2(nil, $Tuple2(res1, res2))
887222             }
888223         else throw("Strict value is not equal to itself.")
889224     }
890225 
891226 
892-
893-@Callable(i)
894-func unstakeAndGet (amount) = {
895-    let checkPayments = if ((size(i.payments) != 0))
896-        then throwErr("no payments expected")
897-        else true
898-    if ((checkPayments == checkPayments))
899-        then {
900-            let cfg = getPoolConfig()
901-            let factoryCfg = getFactoryConfig()
902-            let lpAssetId = fromBase58String(cfg[idxLPAsId])
903-            let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "wrong")
904-            let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
905-            if ((unstakeInv == unstakeInv))
906-                then {
907-                    let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
908-                    let sts = parseIntValue(r._9)
909-                    let state = r._10
910-                    let v = if (if (isGlobalShutdown())
911-                        then true
912-                        else (sts == PoolShutdown))
913-                        then throwErr(("Blocked: " + toString(sts)))
914-                        else true
915-                    if ((v == v))
916-                        then {
917-                            let burnA = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
918-                            if ((burnA == burnA))
919-                                then state
920-                                else throw("Strict value is not equal to itself.")
921-                            }
922-                        else throw("Strict value is not equal to itself.")
923-                    }
924-                else throw("Strict value is not equal to itself.")
925-            }
926-        else throw("Strict value is not equal to itself.")
227+@Verifier(tx)
228+func verify () = {
229+    let targetPublicKey =     match managerPublicKeyOrUnit() {
230+        case pk: ByteVector => 
231+            pk
232+        case _: Unit => 
233+            tx.senderPublicKey
234+        case _ => 
235+            throw("Match error")
927236     }
928-
929-
930-
931-@Callable(i)
932-func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(factoryContract)))
933-    then throwErr("denied")
934-    else $Tuple2([StringEntry(keyAmountAsset(), amtAsStr), StringEntry(keyPriceAsset(), prAsStr)], "success")
935-
936-
937-
938-@Callable(i)
939-func setS (k,v) = if ((toString(i.caller) != getStringOrFail(this, keyAddonAddress())))
940-    then pd
941-    else [StringEntry(k, v)]
942-
943-
944-
945-@Callable(i)
946-func setI (k,v) = if ((toString(i.caller) != getStringOrFail(this, keyAddonAddress())))
947-    then pd
948-    else [IntegerEntry(k, v)]
949-
950-
951-
952-@Callable(i)
953-func getPoolConfigWrapperREADONLY () = $Tuple2(nil, getPoolConfig())
954-
955-
956-
957-@Callable(i)
958-func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
959-
960-
961-
962-@Callable(i)
963-func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
964-    let pr = calcPrices(amAmt, prAmt, lpAmt)
965-    $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
237+    sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
966238     }
967-
968-
969-
970-@Callable(i)
971-func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, fromX18(parseBigIntValue(val), resScaleMult))
972-
973-
974-
975-@Callable(i)
976-func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(toX18(origVal, origScaleMult)))
977-
978-
979-
980-@Callable(i)
981-func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(calcPriceBigInt(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
982-
983-
984-
985-@Callable(i)
986-func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmountAssetAmount,inAmId,inPriceAssetAmount,inPrId,usrAddr,isEvaluate,emitLp) = $Tuple2(nil, estimatePutOperation(txId58, slippage, inAmountAssetAmount, inAmId, inPriceAssetAmount, inPrId, usrAddr, isEvaluate, emitLp, false, 0, ""))
987-
988-
989-
990-@Callable(i)
991-func estimateGetOperationWrapperREADONLY (txId58,paymentAsId,paymentLpAmount,usrAddr) = {
992-    let r = estimateGetOperation(txId58, paymentAsId, paymentLpAmount, addressFromStringValue(usrAddr))
993-    $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
994-    }
995-
996-
997-@Verifier(tx)
998-func verify () = match tx {
999-    case order: Order => 
1000-        let mtchPub = getMatcherPubOrFail()
1001-        let orV = validateMatcherOrderAllowed(order)
1002-        let sndrV = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
1003-        let mtchV = sigVerify(order.bodyBytes, order.proofs[1], mtchPub)
1004-        if (if (if (orV)
1005-            then sndrV
1006-            else false)
1007-            then mtchV
1008-            else false)
1009-            then true
1010-            else throwOrderError(orV, sndrV, mtchV)
1011-    case _ => 
1012-        let targetPublicKey =         match managerPublicKeyOrUnit() {
1013-            case pk: ByteVector => 
1014-                pk
1015-            case _: Unit => 
1016-                tx.senderPublicKey
1017-            case _ => 
1018-                throw("Match error")
1019-        }
1020-        sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
1021-}
1022239 

Full: 

OldNewDifferences
1-{-# STDLIB_VERSION 6 #-}
1+{-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let defaultDecimals = 1000000
5-
6-let scale8 = 100000000
7-
8-let scale8BigInt = toBigInt(100000000)
9-
10-let scale18 = toBigInt(1000000000000000000)
11-
12-let thousand = 1000
13-
14-let zeroBigInt = toBigInt(0)
15-
16-let oneBigInt = toBigInt(1)
17-
18-let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
19-
20-let Amult = "100"
21-
22-let Dconv = "1"
23-
244 let SEP = "__"
255 
266 let EMPTY = ""
277 
28-let PoolActive = 1
29-
30-let PoolPutDis = 2
31-
32-let PoolMatcherDis = 3
33-
34-let PoolShutdown = 4
35-
368 let idxPoolAddress = 1
37-
38-let idxPoolSt = 2
399 
4010 let idxLPAsId = 3
4111 
4212 let idxAmAsId = 4
4313 
4414 let idxPrAsId = 5
4515 
46-let idxAmtAsDcm = 6
47-
48-let idxPriceAsDcm = 7
49-
50-let idxIAmtAsId = 8
51-
52-let idxIPriceAsId = 9
53-
5416 let idxFactStakCntr = 1
5517 
56-let idxFactSlippCntr = 7
57-
58-let idxFactGwxRewCntr = 10
59-
60-let feePermilleDefault = 0
61-
62-func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
63-
64-
65-func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
66-
67-
68-func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
69-
70-
71-func abs (val) = if ((zeroBigInt > val))
72-    then -(val)
73-    else val
74-
75-
76-func keyFactoryContact () = "%s__factoryContract"
18+func keyFactCntr () = "%s__factoryContract"
7719 
7820 
7921 func keyManagerPublicKey () = "%s__managerPublicKey"
8022 
8123 
8224 func keyPendingManagerPublicKey () = "%s__pendingManagerPublicKey"
8325 
8426 
85-func keyPriceLast () = "%s%s__price__last"
27+func keyPoolAddr () = "%s__poolAddress"
8628 
8729 
88-func keyPriceHistory (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
89-
90-
91-func keyPutActionByUser (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
92-
93-
94-func keyGetActionByUser (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
95-
96-
97-func keyAmountAsset () = "%s__amountAsset"
30+func keyAmtAsset () = "%s__amountAsset"
9831 
9932 
10033 func keyPriceAsset () = "%s__priceAsset"
10134 
10235 
103-func keyAmplificator () = "%s__amp"
36+func keyAdminPubKeys () = "%s__adminPubKeys"
10437 
10538 
106-func keyAddonAddress () = "%s__addonAddr"
39+func keyAmp () = "%s__amp"
10740 
10841 
109-let keyFeePermille = "%s__feePermille"
42+func keyAmpHistory (height) = ("%s%d__amp__" + toString(height))
11043 
111-let feePermille = valueOrElse(getInteger(this, keyFeePermille), feePermilleDefault)
11244 
11345 func keyFactoryConfig () = "%s__factoryConfig"
114-
115-
116-func keyMatcherPub () = "%s%s__matcher__publicKey"
11746 
11847 
11948 func keyPoolConfig (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
12049 
12150 
12251 func keyMappingsBaseAsset2internalId (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
12352 
12453 
125-func keyAllPoolsShutdown () = "%s__shutdown"
126-
127-
128-func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
129-
130-
131-func throwOrderError (orV,sendrV,matchV) = throwErr(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
132-
133-
134-func str (val) = match val {
135-    case valStr: String => 
136-        valStr
137-    case _ => 
138-        throwErr("fail cast to String")
139-}
140-
141-
14254 func getStringOrFail (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
14355 
14456 
14557 func getIntOrFail (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
14658 
14759 
148-let factoryContract = addressFromStringValue(getStringOrFail(this, keyFactoryContact()))
60+let poolContract = addressFromStringValue(getStringOrFail(this, keyPoolAddr()))
14961 
150-let amplificator = getStringOrFail(this, keyAmplificator())
151-
152-func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
153-
154-
155-func getMatcherPubOrFail () = fromBase58String(getStringOrFail(factoryContract, keyMatcherPub()))
156-
157-
158-let matcherAddress = addressFromPublicKey(getMatcherPubOrFail())
62+let factoryContract = addressFromStringValue(getStringOrFail(poolContract, keyFactCntr()))
15963 
16064 func getPoolConfig () = {
161-    let amtAs = getStringOrFail(this, keyAmountAsset())
162-    let priceAs = getStringOrFail(this, keyPriceAsset())
65+    let amtAs = getStringOrFail(poolContract, keyAmtAsset())
66+    let priceAs = getStringOrFail(poolContract, keyPriceAsset())
16367     let iPriceAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAs))
16468     let iAmtAs = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAs))
16569     split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAs), toString(iPriceAs))), SEP)
16670     }
16771 
16872 
16973 func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
170-
171-
172-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)
173-
174-
175-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)
176-
177-
178-func getAccBalance (assetId) = if ((assetId == "WAVES"))
179-    then wavesBalance(this).available
180-    else assetBalance(this, fromBase58String(assetId))
181-
182-
183-func calcPriceBigInt (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
184-
185-
186-func validateAbsDiff (estimateLP,outLp,slippage) = {
187-    let diff = fraction((estimateLP - outLp), scale8BigInt, outLp)
188-    let pass = ((slippage - abs(diff)) > zeroBigInt)
189-    if (!(pass))
190-        then throwErr(("Big slippage: " + toString(diff)))
191-        else $Tuple2(pass, min([estimateLP, outLp]))
192-    }
193-
194-
195-func validateD (D1,D0,slippage) = {
196-    let diff = fraction(D0, scale8BigInt, D1)
197-    let fail = (slippage > diff)
198-    if (if (fail)
199-        then true
200-        else (D0 > D1))
201-        then throwErr(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slippage)))
202-        else fail
203-    }
204-
205-
206-func privateCalcPrice (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
207-    let amtAsAmtX18 = toX18(amAmt, amAssetDcm)
208-    let prAsAmtX18 = toX18(prAmt, prAssetDcm)
209-    calcPriceBigInt(prAsAmtX18, amtAsAmtX18)
210-    }
211-
212-
213-func calcPrices (amAmt,prAmt,lpAmt) = {
214-    let cfg = getPoolConfig()
215-    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
216-    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
217-    let priceX18 = privateCalcPrice(amtAsDcm, prAsDcm, amAmt, prAmt)
218-    let amAmtX18 = toX18(amAmt, amtAsDcm)
219-    let prAmtX18 = toX18(prAmt, prAsDcm)
220-    let lpAmtX18 = toX18(lpAmt, scale8)
221-    let lpPrInAmAsX18 = calcPriceBigInt(amAmtX18, lpAmtX18)
222-    let lpPrInPrAsX18 = calcPriceBigInt(prAmtX18, lpAmtX18)
223-[priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
224-    }
225-
226-
227-func calculatePrices (amAmt,prAmt,lpAmt) = {
228-    let p = calcPrices(amAmt, prAmt, lpAmt)
229-[fromX18(p[0], scale8), fromX18(p[1], scale8), fromX18(p[2], scale8)]
230-    }
231-
232-
233-func estimateGetOperation (txId58,paymentAssetId,paymentLpAmount,userAddress) = {
234-    let cfg = getPoolConfig()
235-    let lpAssetId = cfg[idxLPAsId]
236-    let amountId = cfg[idxAmAsId]
237-    let priceId = cfg[idxPrAsId]
238-    let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
239-    let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
240-    let sts = cfg[idxPoolSt]
241-    let lpEmission = valueOrErrorMessage(assetInfo(fromBase58String(lpAssetId)), "Wrong LP id").quantity
242-    let validationBlock = if ((lpAssetId == paymentAssetId))
243-        then true
244-        else throwErr("Wrong payment asset")
245-    if ((validationBlock == validationBlock))
246-        then {
247-            let amountBalance = getAccBalance(amountId)
248-            let priceBalance = getAccBalance(priceId)
249-            let amountBalanceDefaultDecimals = fraction(amountBalance, defaultDecimals, amountDecimals)
250-            let priceBalanceDefaultDecimals = fraction(priceBalance, defaultDecimals, priceDecimals)
251-            let amountBalanceX18 = toX18(amountBalanceDefaultDecimals, defaultDecimals)
252-            let priceBalanceX18 = toX18(priceBalanceDefaultDecimals, defaultDecimals)
253-            let currentPriceX18 = calcPriceBigInt(priceBalanceX18, amountBalanceX18)
254-            let curPrice = fromX18(currentPriceX18, scale8)
255-            let paymentLpAmountX18 = toX18(paymentLpAmount, scale8)
256-            let lpEmissionX18 = toX18(lpEmission, scale8)
257-            let outAmountAmountX18 = fraction(amountBalanceX18, paymentLpAmountX18, lpEmissionX18)
258-            let outPriceAmountX18 = fraction(priceBalanceX18, paymentLpAmountX18, lpEmissionX18)
259-            let outAmountAmountDefaultDecimals = fromX18(outAmountAmountX18, defaultDecimals)
260-            let outPriceAmountDefaultDecimals = fromX18(outPriceAmountX18, defaultDecimals)
261-            let outAmountAmount = fraction(outAmountAmountDefaultDecimals, amountDecimals, defaultDecimals)
262-            let outPriceAmount = fraction(outPriceAmountDefaultDecimals, priceDecimals, defaultDecimals)
263-            let state = if ((txId58 == ""))
264-                then nil
265-                else [ScriptTransfer(userAddress, outAmountAmount, if ((amountId == "WAVES"))
266-                    then unit
267-                    else fromBase58String(amountId)), ScriptTransfer(userAddress, outPriceAmount, if ((priceId == "WAVES"))
268-                    then unit
269-                    else fromBase58String(priceId)), StringEntry(keyGetActionByUser(toString(userAddress), txId58), dataGetActionInfo(outAmountAmount, outPriceAmount, paymentLpAmount, curPrice, height, lastBlock.timestamp)), IntegerEntry(keyPriceLast(), curPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPrice)]
270-            $Tuple10(outAmountAmount, outPriceAmount, amountId, priceId, amountBalance, priceBalance, lpEmission, currentPriceX18, sts, state)
271-            }
272-        else throw("Strict value is not equal to itself.")
273-    }
274-
275-
276-func estimatePutOperation (txId58,slippageTolerance,inAmountAssetAmount,inAmountAssetId,inPriceAssetAmount,inPriceAssetId,userAddress,isEvaluate,emitLp,isOneAsset,paymentAmount,paymentId) = {
277-    let cfg = getPoolConfig()
278-    let lpAssetId = fromBase58String(cfg[idxLPAsId])
279-    let amountIdStr = cfg[idxAmAsId]
280-    let priceIdStr = cfg[idxPrAsId]
281-    let inAmountIdStr = cfg[idxIAmtAsId]
282-    let inPriceIdStr = cfg[idxIPriceAsId]
283-    let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
284-    let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
285-    let sts = cfg[idxPoolSt]
286-    let lpEmission = valueOrErrorMessage(assetInfo(lpAssetId), "Wrong lp asset").quantity
287-    let amountBalance = if (isEvaluate)
288-        then getAccBalance(amountIdStr)
289-        else if (if (isOneAsset)
290-            then (paymentId == amountIdStr)
291-            else false)
292-            then (getAccBalance(amountIdStr) - paymentAmount)
293-            else if (isOneAsset)
294-                then getAccBalance(amountIdStr)
295-                else (getAccBalance(amountIdStr) - inAmountAssetAmount)
296-    let priceBalance = if (isEvaluate)
297-        then getAccBalance(priceIdStr)
298-        else if (if (isOneAsset)
299-            then (paymentId == priceIdStr)
300-            else false)
301-            then (getAccBalance(priceIdStr) - paymentAmount)
302-            else if (isOneAsset)
303-                then getAccBalance(priceIdStr)
304-                else (getAccBalance(priceIdStr) - inPriceAssetAmount)
305-    let amountBalanceDefaultDecimals = fraction(amountBalance, defaultDecimals, amountDecimals)
306-    let priceBalanceDefaultDecimals = fraction(priceBalance, defaultDecimals, priceDecimals)
307-    let inAmountAssetAmountDefaultDecimals = fraction(inAmountAssetAmount, defaultDecimals, amountDecimals)
308-    let inPriceAssetAmountDefaultDecimals = fraction(inPriceAssetAmount, defaultDecimals, priceDecimals)
309-    let inAmountAssetAmountX18 = toX18(inAmountAssetAmountDefaultDecimals, defaultDecimals)
310-    let inPriceAssetAmountX18 = toX18(inPriceAssetAmountDefaultDecimals, defaultDecimals)
311-    let userPriceX18 = calcPriceBigInt(inPriceAssetAmountX18, inAmountAssetAmountX18)
312-    let amountBalanceX18 = toX18(amountBalanceDefaultDecimals, defaultDecimals)
313-    let priceBalanceX18 = toX18(priceBalanceDefaultDecimals, defaultDecimals)
314-    let r = if ((lpEmission == 0))
315-        then {
316-            let currentPriceX18 = zeroBigInt
317-            let slippageX18 = zeroBigInt
318-            let lpAmountX18 = pow((inAmountAssetAmountX18 * inPriceAssetAmountX18), 0, toBigInt(5), 1, 0, DOWN)
319-            $Tuple5(fromX18(lpAmountX18, scale8), fromX18(inAmountAssetAmountX18, defaultDecimals), fromX18(inPriceAssetAmountX18, defaultDecimals), calcPriceBigInt((priceBalanceX18 + inPriceAssetAmountX18), (amountBalanceX18 + inAmountAssetAmountX18)), slippageX18)
320-            }
321-        else {
322-            let currentPriceX18 = calcPriceBigInt(priceBalanceX18, amountBalanceX18)
323-            let slippageRealX18 = fraction(abs((currentPriceX18 - userPriceX18)), scale18, currentPriceX18)
324-            let slippageX18 = toX18(slippageTolerance, scale8)
325-            let validateSlippage = if (((if ((currentPriceX18 != zeroBigInt))
326-                then (slippageRealX18 > slippageX18)
327-                else false) == false))
328-                then true
329-                else throwErr(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
330-            if ((validateSlippage == validateSlippage))
331-                then {
332-                    let lpEmissionX18 = toX18(lpEmission, scale8)
333-                    let prViaAmX18 = fraction(inAmountAssetAmountX18, currentPriceX18, scale18)
334-                    let amViaPrX18 = fraction(inPriceAssetAmountX18, scale18, currentPriceX18)
335-                    let expectedAmounts = if ((prViaAmX18 > inPriceAssetAmountX18))
336-                        then $Tuple2(amViaPrX18, inAmountAssetAmountX18)
337-                        else $Tuple2(inAmountAssetAmountX18, prViaAmX18)
338-                    let expectedAmountAssetAmountX18 = expectedAmounts._1
339-                    let expectedPriceAssetAmountX18 = expectedAmounts._2
340-                    let lpAmountX18 = fraction(lpEmissionX18, expectedPriceAssetAmountX18, priceBalanceX18)
341-                    $Tuple5(fromX18(lpAmountX18, scale8), fromX18(expectedAmountAssetAmountX18, defaultDecimals), fromX18(expectedPriceAssetAmountX18, defaultDecimals), currentPriceX18, slippageX18)
342-                    }
343-                else throw("Strict value is not equal to itself.")
344-            }
345-    let calculateLpAmount = r._1
346-    let calculateAmountAssetPayment = fraction(r._2, amountDecimals, defaultDecimals)
347-    let calculatePriceAssetPayment = fraction(r._3, priceDecimals, defaultDecimals)
348-    let currentPrice = fromX18(r._4, scale8)
349-    let slippageCalculate = fromX18(r._5, scale8)
350-    let checkCalcLpAmount = if ((calculateLpAmount > 0))
351-        then true
352-        else throwErr("LP <= 0")
353-    if ((checkCalcLpAmount == checkCalcLpAmount))
354-        then {
355-            let emitLpAmount = if (!(emitLp))
356-                then 0
357-                else calculateLpAmount
358-            let amountDiff = (inAmountAssetAmount - calculateAmountAssetPayment)
359-            let priceDiff = (inPriceAssetAmount - calculatePriceAssetPayment)
360-            let $t01715017409 = if (if (isOneAsset)
361-                then (paymentId == amountIdStr)
362-                else false)
363-                then $Tuple2(paymentAmount, 0)
364-                else if (if (isOneAsset)
365-                    then (paymentId == priceIdStr)
366-                    else false)
367-                    then $Tuple2(0, paymentAmount)
368-                    else $Tuple2(calculateAmountAssetPayment, calculatePriceAssetPayment)
369-            let writeAmAmt = $t01715017409._1
370-            let writePrAmt = $t01715017409._2
371-            let commonState = [IntegerEntry(keyPriceLast(), currentPrice), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), currentPrice), StringEntry(keyPutActionByUser(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmount, currentPrice, slippageTolerance, slippageCalculate, height, lastBlock.timestamp, amountDiff, priceDiff))]
372-            $Tuple13(calculateLpAmount, emitLpAmount, currentPrice, amountBalance, priceBalance, lpEmission, lpAssetId, sts, commonState, amountDiff, priceDiff, inAmountAssetId, inPriceAssetId)
373-            }
374-        else throw("Strict value is not equal to itself.")
375-    }
376-
377-
378-func validateMatcherOrderAllowed (order) = {
379-    let cfg = getPoolConfig()
380-    let amtAsId = cfg[idxAmAsId]
381-    let prAsId = cfg[idxPrAsId]
382-    let sts = parseIntValue(cfg[idxPoolSt])
383-    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
384-    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
385-    let accAmtAsBalance = getAccBalance(amtAsId)
386-    let accPrAsBalance = getAccBalance(prAsId)
387-    let currentPriceX18 = if ((order.orderType == Buy))
388-        then privateCalcPrice(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
389-        else privateCalcPrice(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
390-    let curPrice = fromX18(currentPriceX18, scale8)
391-    if (if (if (isGlobalShutdown())
392-        then true
393-        else (sts == PoolMatcherDis))
394-        then true
395-        else (sts == PoolShutdown))
396-        then throwErr("Admin blocked")
397-        else {
398-            let orAmtAsset = order.assetPair.amountAsset
399-            let orAmtAsStr = if ((orAmtAsset == unit))
400-                then "WAVES"
401-                else toBase58String(value(orAmtAsset))
402-            let orPrAsset = order.assetPair.priceAsset
403-            let orPrAsStr = if ((orPrAsset == unit))
404-                then "WAVES"
405-                else toBase58String(value(orPrAsset))
406-            if (if ((orAmtAsStr != amtAsId))
407-                then true
408-                else (orPrAsStr != prAsId))
409-                then throwErr("Wr assets")
410-                else {
411-                    let orderPrice = order.price
412-                    let priceDecimals = fraction(scale8, prAsDcm, amtAsDcm)
413-                    let castOrderPrice = ts(orderPrice, scale8, priceDecimals)
414-                    let isOrderPriceValid = if ((order.orderType == Buy))
415-                        then (curPrice >= castOrderPrice)
416-                        else (castOrderPrice >= curPrice)
417-                    true
418-                    }
419-            }
420-    }
421-
422-
423-func commonGet (i) = {
424-    let checkPayments = if ((size(i.payments) == 1))
425-        then true
426-        else throwErr("1 payment expected")
427-    if ((checkPayments == checkPayments))
428-        then {
429-            let payment = value(i.payments[0])
430-            let paymentAssetId = value(payment.assetId)
431-            let paymentAmount = payment.amount
432-            let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(paymentAssetId), paymentAmount, i.caller)
433-            let outAmountAmount = r._1
434-            let outPriceAmount = r._2
435-            let sts = parseIntValue(r._9)
436-            let state = r._10
437-            if (if (isGlobalShutdown())
438-                then true
439-                else (sts == PoolShutdown))
440-                then throwErr(("Admin blocked: " + toString(sts)))
441-                else $Tuple5(outAmountAmount, outPriceAmount, paymentAmount, paymentAssetId, state)
442-            }
443-        else throw("Strict value is not equal to itself.")
444-    }
445-
446-
447-func commonPut (caller,txId,amountAssetPayment,priceAssetPayment,slippage,emitLp,isOneAsset,paymentAmount,paymentId) = {
448-    let r = estimatePutOperation(txId, slippage, value(amountAssetPayment).amount, value(amountAssetPayment).assetId, value(priceAssetPayment).amount, value(priceAssetPayment).assetId, caller, false, emitLp, isOneAsset, paymentAmount, paymentId)
449-    let sts = parseIntValue(r._8)
450-    if (if (if (isGlobalShutdown())
451-        then true
452-        else (sts == PoolPutDis))
453-        then true
454-        else (sts == PoolShutdown))
455-        then throwErr(("Blocked:" + toString(sts)))
456-        else r
457-    }
458-
459-
460-func takeFee (amount) = {
461-    let fee = fraction(amount, feePermille, thousand)
462-    $Tuple2((amount - fee), fee)
463-    }
46474 
46575 
46676 func managerPublicKeyOrUnit () = match getString(keyManagerPublicKey()) {
46777     case s: String => 
46878         fromBase58String(s)
46979     case _: Unit => 
47080         unit
47181     case _ => 
47282         throw("Match error")
47383 }
47484 
47585 
47686 func pendingManagerPublicKeyOrUnit () = match getString(keyPendingManagerPublicKey()) {
47787     case s: String => 
47888         fromBase58String(s)
47989     case _: Unit => 
48090         unit
48191     case _ => 
48292         throw("Match error")
48393 }
48494 
48595 
486-let pd = throwErr("Permission denied")
96+func mustManager (i) = {
97+    let pd = throw("Permission denied")
98+    match managerPublicKeyOrUnit() {
99+        case pk: ByteVector => 
100+            if ((i.callerPublicKey == pk))
101+                then true
102+                else pd
103+        case _: Unit => 
104+            if ((i.caller == this))
105+                then true
106+                else pd
107+        case _ => 
108+            throw("Match error")
109+    }
110+    }
487111 
488-func mustManager (i) = match managerPublicKeyOrUnit() {
489-    case pk: ByteVector => 
490-        if ((i.callerPublicKey == pk))
491-            then true
492-            else pd
493-    case _: Unit => 
494-        if ((i.caller == this))
495-            then true
496-            else pd
112+
113+func getAdmins () = match getString(keyAdminPubKeys()) {
114+    case s: String => 
115+        if ((size(s) == 0))
116+            then nil
117+            else split(s, SEP)
497118     case _ => 
498-        throw("Match error")
119+        nil
499120 }
500121 
501122 
123+func mustAdmin (i) = if (containsElement(getAdmins(), toBase58String(i.callerPublicKey)))
124+    then true
125+    else mustManager(i)
126+
127+
128+func mustPool (i) = if ((i.caller == poolContract))
129+    then true
130+    else throw("caller must be the pool")
131+
132+
502133 @Callable(i)
503-func constructor (factoryContract) = {
134+func constructor (poolAddress) = {
504135     let checkCaller = mustManager(i)
505136     if ((checkCaller == checkCaller))
506-        then [StringEntry(keyFactoryContact(), factoryContract)]
137+        then [StringEntry(keyPoolAddr(), poolAddress)]
507138         else throw("Strict value is not equal to itself.")
508139     }
509140 
510141 
511142 
512143 @Callable(i)
513144 func setManager (pendingManagerPublicKey) = {
514145     let checkCaller = mustManager(i)
515146     if ((checkCaller == checkCaller))
516147         then {
517148             let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
518149             if ((checkManagerPublicKey == checkManagerPublicKey))
519150                 then [StringEntry(keyPendingManagerPublicKey(), pendingManagerPublicKey)]
520151                 else throw("Strict value is not equal to itself.")
521152             }
522153         else throw("Strict value is not equal to itself.")
523154     }
524155 
525156 
526157 
527158 @Callable(i)
528159 func confirmManager () = {
529160     let pm = pendingManagerPublicKeyOrUnit()
530161     let hasPM = if (isDefined(pm))
531162         then true
532-        else throwErr("No pending manager")
163+        else throw("No pending manager")
533164     if ((hasPM == hasPM))
534165         then {
535166             let checkPM = if ((i.callerPublicKey == value(pm)))
536167                 then true
537-                else throwErr("You are not pending manager")
168+                else throw("You are not pending manager")
538169             if ((checkPM == checkPM))
539170                 then [StringEntry(keyManagerPublicKey(), toBase58String(value(pm))), DeleteEntry(keyPendingManagerPublicKey())]
540171                 else throw("Strict value is not equal to itself.")
541172             }
542173         else throw("Strict value is not equal to itself.")
543174     }
544175 
545176 
546177 
547178 @Callable(i)
548-func put (slippage,autoStake) = {
549-    let factCfg = getFactoryConfig()
550-    let stakingContract = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wrong staking contract")
551-    let slippageContract = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wrogn slippage contract")
552-    let slippageCheck = if ((slippage >= 0))
553-        then true
554-        else throwErr("wrong slippage")
555-    if ((slippageCheck == slippageCheck))
179+func setAdmins (adminPubKeys) = {
180+    let checkCaller = mustManager(i)
181+    if ((checkCaller == checkCaller))
182+        then [StringEntry(keyAdminPubKeys(), makeString(adminPubKeys, SEP))]
183+        else throw("Strict value is not equal to itself.")
184+    }
185+
186+
187+
188+@Callable(i)
189+func unstakeAndGetOneTkn (amount,exchResult,notUsed,outAmount,outAssetId,slippage) = {
190+    let checkPayments = if ((size(i.payments) != 0))
191+        then throw("No pmnts expd")
192+        else true
193+    if ((checkPayments == checkPayments))
556194         then {
557-            let paymentsCheck = if ((size(i.payments) == 2))
558-                then true
559-                else throwErr("2 payments expected")
560-            if ((paymentsCheck == paymentsCheck))
195+            let cfg = getPoolConfig()
196+            let factoryCfg = getFactoryConfig()
197+            let lpAssetId = fromBase58String(cfg[idxLPAsId])
198+            let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
199+            let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
200+            if ((unstakeInv == unstakeInv))
561201                 then {
562-                    let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slippage, true, false, 0, "")
563-                    let emitLpAmount = estimatePut._2
564-                    let lpAssetId = estimatePut._7
565-                    let state = estimatePut._9
566-                    let amountDiff = estimatePut._10
567-                    let priceDiff = estimatePut._11
568-                    let amountId = estimatePut._12
569-                    let priceId = estimatePut._13
570-                    let r = invoke(factoryContract, "emit", [emitLpAmount], nil)
571-                    if ((r == r))
572-                        then {
573-                            let el =                             match r {
574-                                case legacy: Address => 
575-                                    invoke(legacy, "emit", [emitLpAmount], nil)
576-                                case _ => 
577-                                    unit
578-                            }
579-                            if ((el == el))
580-                                then {
581-                                    let sa = if ((amountDiff > 0))
582-                                        then invoke(slippageContract, "put", nil, [AttachedPayment(amountId, amountDiff)])
583-                                        else nil
584-                                    if ((sa == sa))
585-                                        then {
586-                                            let sp = if ((priceDiff > 0))
587-                                                then invoke(slippageContract, "put", nil, [AttachedPayment(priceId, priceDiff)])
588-                                                else nil
589-                                            if ((sp == sp))
590-                                                then {
591-                                                    let lpTrasfer = if (autoStake)
592-                                                        then {
593-                                                            let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmount)])
594-                                                            if ((ss == ss))
595-                                                                then nil
596-                                                                else throw("Strict value is not equal to itself.")
597-                                                            }
598-                                                        else [ScriptTransfer(i.caller, emitLpAmount, lpAssetId)]
599-                                                    (state ++ lpTrasfer)
600-                                                    }
601-                                                else throw("Strict value is not equal to itself.")
602-                                            }
603-                                        else throw("Strict value is not equal to itself.")
604-                                    }
605-                                else throw("Strict value is not equal to itself.")
606-                            }
202+                    let getOneTkn = invoke(poolContract, "getOneTkn", [exchResult, notUsed, outAmount, outAssetId, slippage], [AttachedPayment(lpAssetId, amount)])
203+                    if ((getOneTkn == getOneTkn))
204+                        then nil
607205                         else throw("Strict value is not equal to itself.")
608206                     }
609207                 else throw("Strict value is not equal to itself.")
610208             }
611209         else throw("Strict value is not equal to itself.")
612210     }
613211 
614212 
615213 
616214 @Callable(i)
617-func putOneTkn (amountAssetPart,priceAssetPart,outLp,slippage,autoStake) = {
618-    let cfg = getFactoryConfig()
619-    let stakingContract = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wrong staking contract")
620-    let slippageContract = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wrong slippage contract")
621-    let gwxRewardContract = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wrong gwx reward contract")
622-    let poolCfg = getPoolConfig()
623-    let amountId = poolCfg[idxAmAsId]
624-    let priceId = poolCfg[idxPrAsId]
625-    let amountDecimals = parseIntValue(poolCfg[idxAmtAsDcm])
626-    let priceDecimals = parseIntValue(poolCfg[idxPriceAsDcm])
627-    let addon = valueOrElse(getString(this, keyAddonAddress()), "")
628-    let userAddress = if ((addon == toString(i.caller)))
629-        then i.originCaller
630-        else i.caller
631-    if (if (if (if ((0 >= slippage))
632-        then true
633-        else (0 >= amountAssetPart))
634-        then true
635-        else (0 >= priceAssetPart))
636-        then true
637-        else (0 >= outLp))
638-        then throwErr("Wrong params")
639-        else if ((size(i.payments) != 1))
640-            then throwErr("1 payment expected")
641-            else {
642-                let payment = value(i.payments[0])
643-                let paymentAssetId = toBase58String(value(payment.assetId))
644-                let paymentAmountRaw = payment.amount
645-                let $t02656926628 = takeFee(paymentAmountRaw)
646-                let paymentAmount = $t02656926628._1
647-                let feeAmount = $t02656926628._2
648-                if (if (if ((amountAssetPart > paymentAmount))
649-                    then true
650-                    else (priceAssetPart > paymentAmount))
651-                    then true
652-                    else (10000000 > paymentAmount))
653-                    then throwErr("wrong payment amount")
654-                    else {
655-                        let amountBalance = getAccBalance(amountId)
656-                        let priceBalance = getAccBalance(priceId)
657-                        let $t02689327348 = if ((paymentAssetId == amountId))
658-                            then $Tuple6((amountBalance - paymentAmount), priceBalance, (paymentAmount - amountAssetPart), priceAssetPart, 0, 0)
659-                            else if ((paymentAssetId == priceId))
660-                                then $Tuple6(amountBalance, (priceBalance - paymentAmount), 0, 0, (paymentAmount - priceAssetPart), amountAssetPart)
661-                                else throwErr("wrong paymentAssetId")
662-                        let amountBalanceNow = $t02689327348._1
663-                        let priceBalanceNow = $t02689327348._2
664-                        let virtSwapInAm = $t02689327348._3
665-                        let virtSwapOutPr = $t02689327348._4
666-                        let virtSwapInPr = $t02689327348._5
667-                        let virtSwapOutAm = $t02689327348._6
668-                        let D0 = invoke(gwxRewardContract, "calcD", [toString(amountBalanceNow), toString(priceBalanceNow), amplificator, Amult, Dconv], nil)
669-                        let D1 = invoke(gwxRewardContract, "calcD", [toString(toBigInt(((amountBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((priceBalanceNow + virtSwapInPr) - virtSwapOutPr))), amplificator, Amult, Dconv], nil)
670-                        let D0vsD1 = validateD(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
671-                        if ((D0vsD1 == D0vsD1))
672-                            then {
673-                                let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amountId), amountAssetPart), AttachedPayment(fromBase58String(priceId), priceAssetPart), slippage, true, true, paymentAmount, paymentAssetId)
674-                                let estimateLP = estimatePut._2
675-                                let lpAssetId = estimatePut._7
676-                                let state = estimatePut._9
677-                                let amountDiff = estimatePut._10
678-                                let priceDiff = estimatePut._11
679-                                let lpCalcRes = validateAbsDiff(toBigInt(estimateLP), toBigInt(outLp), toBigInt(slippage))
680-                                let emitLpAmount = toInt(lpCalcRes._2)
681-                                let e = invoke(factoryContract, "emit", [emitLpAmount], nil)
682-                                if ((e == e))
683-                                    then {
684-                                        let el =                                         match e {
685-                                            case legacy: Address => 
686-                                                invoke(legacy, "emit", [emitLpAmount], nil)
687-                                            case _ => 
688-                                                unit
689-                                        }
690-                                        if ((el == el))
691-                                            then {
692-                                                let sa = if ((amountDiff > 0))
693-                                                    then invoke(slippageContract, "put", nil, [AttachedPayment(fromBase58String(amountId), amountDiff)])
694-                                                    else nil
695-                                                if ((sa == sa))
696-                                                    then {
697-                                                        let sp = if ((priceDiff > 0))
698-                                                            then invoke(slippageContract, "put", nil, [AttachedPayment(fromBase58String(priceId), priceDiff)])
699-                                                            else nil
700-                                                        if ((sp == sp))
701-                                                            then {
702-                                                                let lpTrasfer = if (autoStake)
703-                                                                    then {
704-                                                                        let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmount)])
705-                                                                        if ((ss == ss))
706-                                                                            then nil
707-                                                                            else throw("Strict value is not equal to itself.")
708-                                                                        }
709-                                                                    else [ScriptTransfer(i.caller, emitLpAmount, lpAssetId)]
710-                                                                let sendFeeToMatcher = if ((feeAmount > 0))
711-                                                                    then [ScriptTransfer(matcherAddress, feeAmount, fromBase58String(paymentAssetId))]
712-                                                                    else nil
713-                                                                ((state ++ lpTrasfer) ++ sendFeeToMatcher)
714-                                                                }
715-                                                            else throw("Strict value is not equal to itself.")
716-                                                        }
717-                                                    else throw("Strict value is not equal to itself.")
718-                                                }
719-                                            else throw("Strict value is not equal to itself.")
720-                                        }
721-                                    else throw("Strict value is not equal to itself.")
722-                                }
723-                            else throw("Strict value is not equal to itself.")
724-                        }
725-                }
726-    }
727-
728-
729-
730-@Callable(i)
731-func putForFree (maxslippage) = if ((0 > maxslippage))
732-    then throwErr("wrong slippage")
733-    else if ((size(i.payments) != 2))
734-        then throwErr("2 payments expected")
735-        else {
736-            let estimatePut = commonPut(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxslippage, false, false, 0, "")
737-            estimatePut._9
738-            }
739-
740-
741-
742-@Callable(i)
743-func get () = {
744-    let r = commonGet(i)
745-    let outAmtAmt = r._1
746-    let outPriceAmount = r._2
747-    let paymentAmount = r._3
748-    let paymentAssetId = r._4
749-    let state = r._5
750-    let b = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
751-    if ((b == b))
752-        then state
753-        else throw("Strict value is not equal to itself.")
754-    }
755-
756-
757-
758-@Callable(i)
759-func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
760-    then throwErr("1 payment expected")
761-    else {
762-        let cfg = getPoolConfig()
763-        let lpAssetId = cfg[idxLPAsId]
764-        let amountId = cfg[idxAmAsId]
765-        let priceId = cfg[idxPrAsId]
766-        let amountDecimals = parseIntValue(cfg[idxAmtAsDcm])
767-        let priceDecimals = parseIntValue(cfg[idxPriceAsDcm])
768-        let sts = cfg[idxPoolSt]
769-        let factCfg = getFactoryConfig()
770-        let gwxRewardContract = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wrong gwxRewardContract address")
771-        let payment = value(i.payments[0])
772-        let addon = valueOrElse(getString(this, keyAddonAddress()), "")
773-        let userAddress = if ((addon == toString(i.caller)))
774-            then i.originCaller
775-            else i.caller
776-        let txId58 = toBase58String(i.transactionId)
777-        let paymentAssetId = value(payment.assetId)
778-        let paymentAmount = payment.amount
779-        if ((1000000000 > paymentAmount))
780-            then throwErr("Min payment 10 LP")
781-            else if (if (if ((0 > slippage))
782-                then true
783-                else (0 > exchResult))
784-                then true
785-                else (0 > outAmount))
786-                then throwErr("Wrong params")
787-                else if ((lpAssetId != toBase58String(paymentAssetId)))
788-                    then throwErr("Wrong LP")
789-                    else {
790-                        let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(paymentAssetId), paymentAmount, i.caller)
791-                        let estimAmAmt = r._1
792-                        let estimPrAmt = r._2
793-                        let amountBalance = getAccBalance(amountId)
794-                        let priceBalance = getAccBalance(priceId)
795-                        let $t03249632964 = if ((outAssetId == amountId))
796-                            then $Tuple7((amountBalance - estimAmAmt), (priceBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
797-                            else if ((outAssetId == priceId))
798-                                then $Tuple7((amountBalance - estimAmAmt), (priceBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
799-                                else throwErr("wrong outAssetId")
800-                        let amountBalanceNow = $t03249632964._1
801-                        let priceBalanceNow = $t03249632964._2
802-                        let virtSwapInAm = $t03249632964._3
803-                        let virtSwapOutPr = $t03249632964._4
804-                        let virtSwapInPr = $t03249632964._5
805-                        let virtSwapOutAm = $t03249632964._6
806-                        let totalGet = $t03249632964._7
807-                        if (if ((0 > virtSwapInAm))
808-                            then true
809-                            else (0 > virtSwapInPr))
810-                            then throwErr("Wrong calc")
811-                            else {
812-                                let D0 = invoke(gwxRewardContract, "calcD", [toString(amountBalanceNow), toString(priceBalanceNow), amplificator, Amult, Dconv], nil)
813-                                let D1 = invoke(gwxRewardContract, "calcD", [toString(((amountBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((priceBalanceNow + virtSwapOutPr) - virtSwapInPr)), amplificator, Amult, Dconv], nil)
814-                                let D0vsD1 = validateD(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
815-                                if ((D0vsD1 == D0vsD1))
816-                                    then {
817-                                        let finalRes = validateAbsDiff(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
818-                                        if ((finalRes == finalRes))
819-                                            then {
820-                                                let $t03363333741 = if ((outAssetId == amountId))
821-                                                    then $Tuple2(toInt(finalRes._2), 0)
822-                                                    else $Tuple2(0, toInt(finalRes._2))
823-                                                let outAm = $t03363333741._1
824-                                                let outPr = $t03363333741._2
825-                                                let totalAmountRaw = (outAm + outPr)
826-                                                let $t03378133836 = takeFee(totalAmountRaw)
827-                                                let totalAmount = $t03378133836._1
828-                                                let feeAmount = $t03378133836._2
829-                                                let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
830-                                                    then unit
831-                                                    else fromBase58String(outAssetId)
832-                                                let sendFeeToMatcher = if ((feeAmount > 0))
833-                                                    then [ScriptTransfer(matcherAddress, feeAmount, outAssetIdOrWaves)]
834-                                                    else nil
835-                                                let decimals = if ((amountDecimals >= priceDecimals))
836-                                                    then amountDecimals
837-                                                    else priceDecimals
838-                                                if ((decimals == decimals))
839-                                                    then {
840-                                                        let curPrX18 = calcPriceBigInt(toX18(priceBalance, decimals), toX18(amountBalance, decimals))
841-                                                        let curPr = fromX18(curPrX18, scale8)
842-                                                        let state = [ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(keyGetActionByUser(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, paymentAmount, curPr, height, lastBlock.timestamp)), IntegerEntry(keyPriceLast(), curPr), IntegerEntry(keyPriceHistory(height, lastBlock.timestamp), curPr)]
843-                                                        if ((state == state))
844-                                                            then {
845-                                                                let burn = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
846-                                                                if ((burn == burn))
847-                                                                    then (state ++ sendFeeToMatcher)
848-                                                                    else throw("Strict value is not equal to itself.")
849-                                                                }
850-                                                            else throw("Strict value is not equal to itself.")
851-                                                        }
852-                                                    else throw("Strict value is not equal to itself.")
853-                                                }
854-                                            else throw("Strict value is not equal to itself.")
855-                                        }
856-                                    else throw("Strict value is not equal to itself.")
857-                                }
858-                        }
859-        }
860-
861-
862-
863-@Callable(i)
864-func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
865-    let r = commonGet(i)
866-    let outAmountAmount = r._1
867-    let outPriceAmount = r._2
868-    let paymentAmount = r._3
869-    let paymentAssetId = r._4
870-    let state = r._5
871-    let checkOutAmountAmount = if ((outAmountAmount >= noLessThenAmtAsset))
872-        then true
873-        else throwErr(((("Failed:  " + toString(outAmountAmount)) + " < ") + toString(noLessThenAmtAsset)))
874-    if ((checkOutAmountAmount == checkOutAmountAmount))
215+func setAmp (amp) = {
216+    let checkCaller = mustAdmin(i)
217+    if ((checkCaller == checkCaller))
875218         then {
876-            let checkOutPriceAmount = if ((outPriceAmount >= noLessThenPriceAsset))
877-                then true
878-                else throwErr(((("Failed: " + toString(outPriceAmount)) + " < ") + toString(noLessThenPriceAsset)))
879-            if ((checkOutPriceAmount == checkOutPriceAmount))
880-                then {
881-                    let burnLPAssetOnFactory = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
882-                    if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
883-                        then state
884-                        else throw("Strict value is not equal to itself.")
885-                    }
886-                else throw("Strict value is not equal to itself.")
219+            let res1 = invoke(poolContract, "setS", [keyAmp(), amp], nil)
220+            let res2 = invoke(poolContract, "setS", [keyAmpHistory(height), amp], nil)
221+            $Tuple2(nil, $Tuple2(res1, res2))
887222             }
888223         else throw("Strict value is not equal to itself.")
889224     }
890225 
891226 
892-
893-@Callable(i)
894-func unstakeAndGet (amount) = {
895-    let checkPayments = if ((size(i.payments) != 0))
896-        then throwErr("no payments expected")
897-        else true
898-    if ((checkPayments == checkPayments))
899-        then {
900-            let cfg = getPoolConfig()
901-            let factoryCfg = getFactoryConfig()
902-            let lpAssetId = fromBase58String(cfg[idxLPAsId])
903-            let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "wrong")
904-            let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
905-            if ((unstakeInv == unstakeInv))
906-                then {
907-                    let r = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
908-                    let sts = parseIntValue(r._9)
909-                    let state = r._10
910-                    let v = if (if (isGlobalShutdown())
911-                        then true
912-                        else (sts == PoolShutdown))
913-                        then throwErr(("Blocked: " + toString(sts)))
914-                        else true
915-                    if ((v == v))
916-                        then {
917-                            let burnA = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
918-                            if ((burnA == burnA))
919-                                then state
920-                                else throw("Strict value is not equal to itself.")
921-                            }
922-                        else throw("Strict value is not equal to itself.")
923-                    }
924-                else throw("Strict value is not equal to itself.")
925-            }
926-        else throw("Strict value is not equal to itself.")
227+@Verifier(tx)
228+func verify () = {
229+    let targetPublicKey =     match managerPublicKeyOrUnit() {
230+        case pk: ByteVector => 
231+            pk
232+        case _: Unit => 
233+            tx.senderPublicKey
234+        case _ => 
235+            throw("Match error")
927236     }
928-
929-
930-
931-@Callable(i)
932-func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(factoryContract)))
933-    then throwErr("denied")
934-    else $Tuple2([StringEntry(keyAmountAsset(), amtAsStr), StringEntry(keyPriceAsset(), prAsStr)], "success")
935-
936-
937-
938-@Callable(i)
939-func setS (k,v) = if ((toString(i.caller) != getStringOrFail(this, keyAddonAddress())))
940-    then pd
941-    else [StringEntry(k, v)]
942-
943-
944-
945-@Callable(i)
946-func setI (k,v) = if ((toString(i.caller) != getStringOrFail(this, keyAddonAddress())))
947-    then pd
948-    else [IntegerEntry(k, v)]
949-
950-
951-
952-@Callable(i)
953-func getPoolConfigWrapperREADONLY () = $Tuple2(nil, getPoolConfig())
954-
955-
956-
957-@Callable(i)
958-func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
959-
960-
961-
962-@Callable(i)
963-func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
964-    let pr = calcPrices(amAmt, prAmt, lpAmt)
965-    $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
237+    sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
966238     }
967-
968-
969-
970-@Callable(i)
971-func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, fromX18(parseBigIntValue(val), resScaleMult))
972-
973-
974-
975-@Callable(i)
976-func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(toX18(origVal, origScaleMult)))
977-
978-
979-
980-@Callable(i)
981-func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(calcPriceBigInt(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
982-
983-
984-
985-@Callable(i)
986-func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmountAssetAmount,inAmId,inPriceAssetAmount,inPrId,usrAddr,isEvaluate,emitLp) = $Tuple2(nil, estimatePutOperation(txId58, slippage, inAmountAssetAmount, inAmId, inPriceAssetAmount, inPrId, usrAddr, isEvaluate, emitLp, false, 0, ""))
987-
988-
989-
990-@Callable(i)
991-func estimateGetOperationWrapperREADONLY (txId58,paymentAsId,paymentLpAmount,usrAddr) = {
992-    let r = estimateGetOperation(txId58, paymentAsId, paymentLpAmount, addressFromStringValue(usrAddr))
993-    $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
994-    }
995-
996-
997-@Verifier(tx)
998-func verify () = match tx {
999-    case order: Order => 
1000-        let mtchPub = getMatcherPubOrFail()
1001-        let orV = validateMatcherOrderAllowed(order)
1002-        let sndrV = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
1003-        let mtchV = sigVerify(order.bodyBytes, order.proofs[1], mtchPub)
1004-        if (if (if (orV)
1005-            then sndrV
1006-            else false)
1007-            then mtchV
1008-            else false)
1009-            then true
1010-            else throwOrderError(orV, sndrV, mtchV)
1011-    case _ => 
1012-        let targetPublicKey =         match managerPublicKeyOrUnit() {
1013-            case pk: ByteVector => 
1014-                pk
1015-            case _: Unit => 
1016-                tx.senderPublicKey
1017-            case _ => 
1018-                throw("Match error")
1019-        }
1020-        sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
1021-}
1022239 
github/deemru/w8io/3ef1775 
107.97 ms ◑