tx · 3kvAZ3ssYhsah7kdhB4fAW9KMrccSdLgaEYYQNeDENH7

3PK96JEnr5x2PjdcXXJJG66ceS6rdPAjQqb:  -0.01000000 Waves

2023.08.03 13:08 [3759897] smart account 3PK96JEnr5x2PjdcXXJJG66ceS6rdPAjQqb > SELF 0.00000000 Waves

{ "type": 13, "id": "3kvAZ3ssYhsah7kdhB4fAW9KMrccSdLgaEYYQNeDENH7", "fee": 1000000, "feeAssetId": null, "timestamp": 1691057332514, "version": 2, "chainId": 87, "sender": "3PK96JEnr5x2PjdcXXJJG66ceS6rdPAjQqb", "senderPublicKey": "DSBc8x4auxeG7ybvNFBct5Nj7GcYHsSjofJji46zCMu5", "proofs": [ "4KXGfcKTTSsoxB7DJYA7T8XoDVfJSUhbPNxfKdxTuFhfdwcENNRHzgy8hwyxWYNYcrtupTxRmjuyc1bsMbw6KErs" ], "script": "base64:BgIECAISACAAA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDgAgMLXLwAHV0FWRVNJRAEEE6vZMwAIWFROSURTVFICLERHMnhGa1BkRHdLVW9Ca3pHQWhRdExwU0d6ZlhMaUNZUEV6ZUtIMkFkMjRwAAhORVVUUklOTwIjM1BDOUJmUndKV1dpdzlBUkVFMkIzZVd6Q2tzM0NZdGc0eW8AE1dYX1NXQVBfQUREUkVTU19TVFICIzNQNjh6Tml1ZnN1MXZpWnB1MWFZM2NkYWhSUktjdlY1TjkzAA9XWF9TV0FQX0FERFJFU1MJARFAZXh0ck5hdGl2ZSgxMDYyKQEFE1dYX1NXQVBfQUREUkVTU19TVFIAFldYX0ZBQ1RPUllfQUREUkVTU19TVFICIzNQQ3VIc1RVNThXS2hDcW90YmNTd0FCdmRQenFxVkFiYlR2ABNXWF9SRVNUX0FERFJFU1NfU1RSAiMzUDhNb1Buc2F1cm9mazFWeWhzZEFGa2VRNmlqcEpZWENwVwAbV1hfV0FWRVNYVE5QT09MX0FERFJFU1NfU1RSAiMzUFBaV2dGTlJLSEx2TTUxcHdTOTM0QzhWWjdkMkY0WjU4ZwASV1hfV0FWRVNVU0ROTFBfU1RSAiw3S1piSnJWb3B3SmhrZHdiZTFlRkRCYmV4NGRrWTYzTXhqVE5qcVh0cnpqMQASU1dPUEZJX0FERFJFU1NfU1RSAiMzUEhhTmdvbUJrcnZFTDJRbnVKYXJRVkphNzF3anc5cWlxRwAOU1dPUEZJX0FERFJFU1MJARFAZXh0ck5hdGl2ZSgxMDYyKQEFElNXT1BGSV9BRERSRVNTX1NUUgAZU1dPUEZJX09SQUNMRV9BRERSRVNTX1NUUgIjM1BFYnFWaUVSQ29Lbm1jU1VMaDZuMmFpTXZVZFNRZENzb20AFVNXT1BGSV9PUkFDTEVfQUREUkVTUwkBEUBleHRyTmF0aXZlKDEwNjIpAQUZU1dPUEZJX09SQUNMRV9BRERSRVNTX1NUUgEWa2V5TWluRGlzdHJpYnV0ZUFtb3VudAACISVzJXNfX2NvbmZpZ19fbWluRGlzdHJpYnV0ZUFtb3VudAERa2V5Q29udHJvbEFkZHJlc3MAAhwlcyVzX19jb25maWdfX2NvbnRyb2xBZGRyZXNzARlrZXlMYXN0RGlzdHJpYnV0aW9uSGVpZ2h0AAIlJXMlc19fcnVudGltZV9fbGFzdERpc3RyaWJ1dGlvbkhlaWdodAAPY29udHJvbENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJARFrZXlDb250cm9sQWRkcmVzcwACIzNQNUJmZDU4UFBmTnZCTTJIeThRZmJjRHFNZU50emc3S2ZQAQlhc0FueUxpc3QBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACCUxpc3RbQW55XQQKdmFsQW55TGlzdAUHJG1hdGNoMAUKdmFsQW55TGlzdAkAAgECG2ZhaWwgdG8gY2FzdCBpbnRvIExpc3RbQW55XQEFYXNJbnQBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIDSW50BAFpBQckbWF0Y2gwBQFpCQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50AQhhc1N0cmluZwEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAFAXMJAAIBAhhmYWlsIHRvIGNhc3QgaW50byBTdHJpbmcBDGFzQnl0ZVZlY3RvcgEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFpBQckbWF0Y2gwBQFpCQACAQIcZmFpbCB0byBjYXN0IGludG8gQnl0ZVZlY3RvcgENc3dvcGZpSGVhbHRoeQADCQERQGV4dHJOYXRpdmUoMTA1MSkCBQ5TV09QRklfQUREUkVTUwIGYWN0aXZlCQERQGV4dHJOYXRpdmUoMTA1MSkCBRVTV09QRklfT1JBQ0xFX0FERFJFU1MCFGFjdGl2ZV9hbGxfY29udHJhY3RzBwAKUG9vbEFjdGl2ZQABAA9Qb29sUHV0RGlzYWJsZWQAAgATUG9vbE1hdGNoZXJEaXNhYmxlZAADAAxQb29sU2h1dGRvd24ABAENd3hQb29sSGVhbHRoeQAEBnN0YXR1cwkBBWFzSW50AQkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBBRZXWF9GQUNUT1JZX0FERFJFU1NfU1RSAhVnZXRQb29sU3RhdHVzUkVBRE9OTFkJAMwIAgUbV1hfV0FWRVNYVE5QT09MX0FERFJFU1NfU1RSBQNuaWwFA25pbAkAAAIFBnN0YXR1cwUKUG9vbEFjdGl2ZQENc3dvcGZpQmFsYW5jZQAJARFAZXh0ck5hdGl2ZSgxMDUwKQIFDlNXT1BGSV9BRERSRVNTAg9BX2Fzc2V0X2JhbGFuY2UBDXd4UG9vbEJhbGFuY2UABAx3eFJlc3RSZXN1bHQJALUJAgkBCGFzU3RyaW5nAQkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBBRNXWF9SRVNUX0FERFJFU1NfU1RSAhFwb29sU3RhdHNSRUFET05MWQkAzAgCBRJXWF9XQVZFU1VTRE5MUF9TVFIFA25pbAUDbmlsAgJfXwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDHd4UmVzdFJlc3VsdAABAQFpAQdkZWZhdWx0AAQKYnV5QmFja0FtdAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQEWa2V5TWluRGlzdHJpYnV0ZUFtb3VudAAJAGgCAAEFBU1VTFQ4AwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkAwkBAiE9AggFAWkGY2FsbGVyCAUBaQxvcmlnaW5DYWxsZXIJAAIBAiJkYXBwIHRvIGRhcHAgY2FsbHMgYXJlIG5vdCBhbGxvd2VkBAZmZWVBbXQIBQFpA2ZlZQQKZmVlQXNzZXRJZAkBC3ZhbHVlT3JFbHNlAggFAWkKZmVlQXNzZXRJZAUHV0FWRVNJRAQKYWxsb3dlZEZlZQkAaQIJAGgCAAUFBU1VTFQ4AOgHBAxjYWxsZXJSZXdhcmQJAGgCAAIFCmFsbG93ZWRGZWUEF21pblJlcXVpcmVkV2F2ZXNCYWxhbmNlCQBkAgUKYnV5QmFja0FtdAUMY2FsbGVyUmV3YXJkBApsYXN0SGVpZ2h0CQELdmFsdWVPckVsc2UCCQCfCAEJARlrZXlMYXN0RGlzdHJpYnV0aW9uSGVpZ2h0AAAAAwkAZgIAAQkAZQIFBmhlaWdodAUKbGFzdEhlaWdodAkAAgECL29ubHkgb25lIGRpc3RyaWJ1dGlvbiBwZXIgb25lIGhlaWdodCBpcyBhbGxvd2VkAwkBAiE9AgUKZmVlQXNzZXRJZAUHV0FWRVNJRAkAAgECHm9ubHkgV2F2ZXMgY2FuIGJlIHVzZWQgaW4gZmVlcwMJAQIhPQIFBmZlZUFtdAUKYWxsb3dlZEZlZQkAAgECIGZlZSBhbW91bnQgY291bGRuJ3QgZXhjZWVkIDAuMDA1AwkAZgIFF21pblJlcXVpcmVkV2F2ZXNCYWxhbmNlCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkAAgEJAKwCAgIed2F2ZWxldHMgYmFsYW5jZSBpcyBsZXNzIHRoZW4gCQCkAwEFF21pblJlcXVpcmVkV2F2ZXNCYWxhbmNlBA53eFdhdmVzQmFsYW5jZQMJAQ13eFBvb2xIZWFsdGh5AAkBDXd4UG9vbEJhbGFuY2UAAAAEEnN3b3BmaVdhdmVzQmFsYW5jZQMJAQ1zd29wZmlIZWFsdGh5AAkBDXN3b3BmaUJhbGFuY2UAAAAEBXRvdGFsCQBkAgUOd3hXYXZlc0JhbGFuY2UFEnN3b3BmaVdhdmVzQmFsYW5jZQMJAAACBQV0b3RhbAAABQNuaWwEBXd4QnV5CQBrAwUKYnV5QmFja0FtdAUOd3hXYXZlc0JhbGFuY2UFBXRvdGFsBAlzd29wZmlCdXkJAGsDBQpidXlCYWNrQW10BRJzd29wZmlXYXZlc0JhbGFuY2UFBXRvdGFsBAh3eFJlc3VsdAMJAGYCBQV3eEJ1eQAACQD8BwQFD1dYX1NXQVBfQUREUkVTUwIEc3dhcAkAzAgCAAEJAMwIAgUIWFROSURTVFIJAMwIAgUITkVVVFJJTk8FA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUEdW5pdAUFd3hCdXkFA25pbAUEdW5pdAMJAAACBQh3eFJlc3VsdAUId3hSZXN1bHQEDHN3b3BmaUFjdGlvbgMJAGYCBQlzd29wZmlCdXkAAAQMc3dvcGZpUmVzdWx0CQEJYXNBbnlMaXN0AQkA/AcEBQ5TV09QRklfQUREUkVTUwIIZXhjaGFuZ2UJAMwIAgABBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBHVuaXQFCXN3b3BmaUJ1eQUDbmlsCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCE5FVVRSSU5PCQEFYXNJbnQBCQCRAwIFDHN3b3BmaVJlc3VsdAAACQDZBAEFCFhUTklEU1RSBQNuaWwFA25pbAkAzggCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUMY2FsbGVyUmV3YXJkBQR1bml0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEZa2V5TGFzdERpc3RyaWJ1dGlvbkhlaWdodAAFBmhlaWdodAUDbmlsBQxzd29wZmlBY3Rpb24JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4ARWevYA==", "height": 3759897, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: none Next: EnKM2uzz3pzDPXm9cNqp41b9z4L9NN5RrPTVvVB9XwHD Full:
OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 6 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let SEP = "__"
5+
6+let MULT6 = 1000000
7+
8+let MULT8 = 100000000
9+
10+let WAVESID = base58'WAVES'
11+
12+let XTNIDSTR = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
13+
14+let NEUTRINO = "3PC9BfRwJWWiw9AREE2B3eWzCks3CYtg4yo"
15+
16+let WX_SWAP_ADDRESS_STR = "3P68zNiufsu1viZpu1aY3cdahRRKcvV5N93"
17+
18+let WX_SWAP_ADDRESS = addressFromStringValue(WX_SWAP_ADDRESS_STR)
19+
20+let WX_FACTORY_ADDRESS_STR = "3PCuHsTU58WKhCqotbcSwABvdPzqqVAbbTv"
21+
22+let WX_REST_ADDRESS_STR = "3P8MoPnsaurofk1VyhsdAFkeQ6ijpJYXCpW"
23+
24+let WX_WAVESXTNPOOL_ADDRESS_STR = "3PPZWgFNRKHLvM51pwS934C8VZ7d2F4Z58g"
25+
26+let WX_WAVESUSDNLP_STR = "7KZbJrVopwJhkdwbe1eFDBbex4dkY63MxjTNjqXtrzj1"
27+
28+let SWOPFI_ADDRESS_STR = "3PHaNgomBkrvEL2QnuJarQVJa71wjw9qiqG"
29+
30+let SWOPFI_ADDRESS = addressFromStringValue(SWOPFI_ADDRESS_STR)
31+
32+let SWOPFI_ORACLE_ADDRESS_STR = "3PEbqViERCoKnmcSULh6n2aiMvUdSQdCsom"
33+
34+let SWOPFI_ORACLE_ADDRESS = addressFromStringValue(SWOPFI_ORACLE_ADDRESS_STR)
35+
36+func keyMinDistributeAmount () = "%s%s__config__minDistributeAmount"
37+
38+
39+func keyControlAddress () = "%s%s__config__controlAddress"
40+
41+
42+func keyLastDistributionHeight () = "%s%s__runtime__lastDistributionHeight"
43+
44+
45+let controlContract = addressFromStringValue(valueOrElse(getString(this, keyControlAddress()), "3P5Bfd58PPfNvBM2Hy8QfbcDqMeNtzg7KfP"))
46+
47+func asAnyList (val) = match val {
48+ case valAnyList: List[Any] =>
49+ valAnyList
50+ case _ =>
51+ throw("fail to cast into List[Any]")
52+}
53+
54+
55+func asInt (v) = match v {
56+ case i: Int =>
57+ i
58+ case _ =>
59+ throw("fail to cast into Int")
60+}
61+
62+
63+func asString (v) = match v {
64+ case s: String =>
65+ s
66+ case _ =>
67+ throw("fail to cast into String")
68+}
69+
70+
71+func asByteVector (v) = match v {
72+ case i: ByteVector =>
73+ i
74+ case _ =>
75+ throw("fail to cast into ByteVector")
76+}
77+
78+
79+func swopfiHealthy () = if (getBooleanValue(SWOPFI_ADDRESS, "active"))
80+ then getBooleanValue(SWOPFI_ORACLE_ADDRESS, "active_all_contracts")
81+ else false
82+
83+
84+let PoolActive = 1
85+
86+let PoolPutDisabled = 2
87+
88+let PoolMatcherDisabled = 3
89+
90+let PoolShutdown = 4
91+
92+func wxPoolHealthy () = {
93+ let status = asInt(invoke(addressFromStringValue(WX_FACTORY_ADDRESS_STR), "getPoolStatusREADONLY", [WX_WAVESXTNPOOL_ADDRESS_STR], nil))
94+ (status == PoolActive)
95+ }
96+
97+
98+func swopfiBalance () = getIntegerValue(SWOPFI_ADDRESS, "A_asset_balance")
99+
100+
101+func wxPoolBalance () = {
102+ let wxRestResult = split(asString(invoke(addressFromStringValue(WX_REST_ADDRESS_STR), "poolStatsREADONLY", [WX_WAVESUSDNLP_STR], nil)), "__")
103+ parseIntValue(wxRestResult[1])
104+ }
105+
106+
107+@Callable(i)
108+func default () = {
109+ let buyBackAmt = valueOrElse(getInteger(this, keyMinDistributeAmount()), (1 * MULT8))
110+ if ((size(i.payments) != 0))
111+ then throw("no payments are expected")
112+ else if ((i.caller != i.originCaller))
113+ then throw("dapp to dapp calls are not allowed")
114+ else {
115+ let feeAmt = i.fee
116+ let feeAssetId = valueOrElse(i.feeAssetId, WAVESID)
117+ let allowedFee = ((5 * MULT8) / 1000)
118+ let callerReward = (2 * allowedFee)
119+ let minRequiredWavesBalance = (buyBackAmt + callerReward)
120+ let lastHeight = valueOrElse(getInteger(keyLastDistributionHeight()), 0)
121+ if ((1 > (height - lastHeight)))
122+ then throw("only one distribution per one height is allowed")
123+ else if ((feeAssetId != WAVESID))
124+ then throw("only Waves can be used in fees")
125+ else if ((feeAmt != allowedFee))
126+ then throw("fee amount couldn't exceed 0.005")
127+ else if ((minRequiredWavesBalance > wavesBalance(this).available))
128+ then throw(("wavelets balance is less then " + toString(minRequiredWavesBalance)))
129+ else {
130+ let wxWavesBalance = if (wxPoolHealthy())
131+ then wxPoolBalance()
132+ else 0
133+ let swopfiWavesBalance = if (swopfiHealthy())
134+ then swopfiBalance()
135+ else 0
136+ let total = (wxWavesBalance + swopfiWavesBalance)
137+ if ((total == 0))
138+ then nil
139+ else {
140+ let wxBuy = fraction(buyBackAmt, wxWavesBalance, total)
141+ let swopfiBuy = fraction(buyBackAmt, swopfiWavesBalance, total)
142+ let wxResult = if ((wxBuy > 0))
143+ then invoke(WX_SWAP_ADDRESS, "swap", [1, XTNIDSTR, NEUTRINO], [AttachedPayment(unit, wxBuy)])
144+ else unit
145+ if ((wxResult == wxResult))
146+ then {
147+ let swopfiAction = if ((swopfiBuy > 0))
148+ then {
149+ let swopfiResult = asAnyList(invoke(SWOPFI_ADDRESS, "exchange", [1], [AttachedPayment(unit, swopfiBuy)]))
150+[ScriptTransfer(addressFromStringValue(NEUTRINO), asInt(swopfiResult[0]), fromBase58String(XTNIDSTR))]
151+ }
152+ else nil
153+ ([ScriptTransfer(i.caller, callerReward, unit), IntegerEntry(keyLastDistributionHeight(), height)] ++ swopfiAction)
154+ }
155+ else throw("Strict value is not equal to itself.")
156+ }
157+ }
158+ }
159+ }
160+
161+

github/deemru/w8io/6500d08 
16.21 ms