tx · 7uSs2p8X9512gBYRaKDh9C9jgByPg1RdZjhk33BBRfGK

3MsgzbtRg8NEkbTcHBywtwTdCe9BRxMQo5T:  -0.00400000 Waves

2024.10.08 10:57 [3317575] smart account 3MsgzbtRg8NEkbTcHBywtwTdCe9BRxMQo5T > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7uSs2p8X9512gBYRaKDh9C9jgByPg1RdZjhk33BBRfGK",
    "fee": 400000,
    "feeAssetId": null,
    "timestamp": 1728374287242,
    "version": 2,
    "chainId": 84,
    "sender": "3MsgzbtRg8NEkbTcHBywtwTdCe9BRxMQo5T",
    "senderPublicKey": "iTiQR3Kvxn7i8PFgEbZn36n5iFLxFwkTA6M3wi846Vx",
    "proofs": [
        "2xigt11bTGUf9CrceSwdGznn5h7dkQA8nRDbfFaMSZaQCrC3MX6h78HWUSKBJZq8g9iWPd8PVihLV4fsgiLZmbju"
    ],
    "script": "base64:BwJLCAISAwoBCBIECgIICBIECgIIARIECgIIBBIECgIIAhIDCgEIEgUKAwIBBBIECgICARIFCgMCAQISBQoDAhIREgQKAgIBEgQKAggYEQAJc2VwYXJhdG9yAgJfXwALd2F2ZXNTdHJpbmcCBVdBVkVTABBjb250cmFjdEZpbGVuYW1lAhRtZW1lX2ltX2ZhY3RvcnkucmlkZQALa1ByaWNlQXNzZXQCDHByaWNlX19hc3NldAAJa1NodXRkb3duAg5zaHV0ZG93bl9fZmxhZwAIc2h1dGRvd24JAQt2YWx1ZU9yRWxzZQIJAKAIAQUJa1NodXRkb3duBwEHd3JhcEVycgEBcwkArAICCQCsAgIFEGNvbnRyYWN0RmlsZW5hbWUCAjogBQFzAQh0aHJvd0VycgEBcwkAAgEJAQd3cmFwRXJyAQUBcwEPdmFsaWRhdGVBZGRyZXNzAQdhZGRyZXNzCQEJaXNEZWZpbmVkAQkApggBBQdhZGRyZXNzABJrQ2FsY3VsYXRvckFkZHJlc3MCE2NhbGN1bGF0b3JfX2FkZHJlc3MAF2NhbGN1bGF0b3JBZGRyZXNzT3B0aW9uBAckbWF0Y2gwCQCdCAIFBHRoaXMFEmtDYWxjdWxhdG9yQWRkcmVzcwMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJAKYIAQUBcwMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAEWNhbGN1bGF0b3JBZGRyZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIFF2NhbGN1bGF0b3JBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECGmludmFsaWQgY2FsY3VsYXRvciBhZGRyZXNzAQttdXN0QWRkcmVzcwIBaQdhZGRyZXNzAwkAAAIIBQFpBmNhbGxlcgUHYWRkcmVzcwYJAQh0aHJvd0VycgECEXBlcm1pc3Npb24gZGVuaWVkAQhtdXN0VGhpcwEBaQkBC211c3RBZGRyZXNzAgUBaQUEdGhpcwEObXVzdENhbGN1bGF0b3IBAWkJAQttdXN0QWRkcmVzcwIFAWkFEWNhbGN1bGF0b3JBZGRyZXNzAQxwYXJzZUFzc2V0SWQBBWlucHV0AwkAAAIFBWlucHV0BQt3YXZlc1N0cmluZwUEdW5pdAkA2QQBBQVpbnB1dAEPYXNzZXRJZFRvU3RyaW5nAQVpbnB1dAMJAAACBQVpbnB1dAUEdW5pdAULd2F2ZXNTdHJpbmcJANgEAQkBBXZhbHVlAQUFaW5wdXQMAWkBBGluaXQBFGNhbGN1bGF0b3JBZGRyZXNzU3RyBAtjaGVja0NhbGxlcgkBCG11c3RUaGlzAQUBaQMJAAACBQtjaGVja0NhbGxlcgULY2hlY2tDYWxsZXIJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCBRJrQ2FsY3VsYXRvckFkZHJlc3MFFGNhbGN1bGF0b3JBZGRyZXNzU3RyCQDMCAIJAQtTdHJpbmdFbnRyeQIFC2tQcmljZUFzc2V0BQt3YXZlc1N0cmluZwUDbmlsBQR1bml0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBC3N0cmluZ0VudHJ5AgNrZXkDdmFsAwMJAQEhAQUIc2h1dGRvd24JAQ5tdXN0Q2FsY3VsYXRvcgEFAWkHCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgUDa2V5BQN2YWwFA25pbAUDa2V5CQEIdGhyb3dFcnIBAgtub3QgYWxsb3dlZAFpAQxpbnRlZ2VyRW50cnkCA2tleQN2YWwDAwkBASEBBQhzaHV0ZG93bgkBDm11c3RDYWxjdWxhdG9yAQUBaQcJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUDa2V5BQN2YWwFA25pbAUDa2V5CQEIdGhyb3dFcnIBAgtub3QgYWxsb3dlZAFpAQxib29sZWFuRW50cnkCA2tleQN2YWwDAwkBASEBBQhzaHV0ZG93bgkBDm11c3RDYWxjdWxhdG9yAQUBaQcJAJQKAgkAzAgCCQEMQm9vbGVhbkVudHJ5AgUDa2V5BQN2YWwFA25pbAUDa2V5CQEIdGhyb3dFcnIBAgtub3QgYWxsb3dlZAFpAQtiaW5hcnlFbnRyeQIDa2V5A3ZhbAMDCQEBIQEFCHNodXRkb3duCQEObXVzdENhbGN1bGF0b3IBBQFpBwkAlAoCCQDMCAIJAQtCaW5hcnlFbnRyeQIFA2tleQUDdmFsBQNuaWwFA2tleQkBCHRocm93RXJyAQILbm90IGFsbG93ZWQBaQELZGVsZXRlRW50cnkBA2tleQMDCQEBIQEFCHNodXRkb3duCQEObXVzdENhbGN1bGF0b3IBBQFpBwkAlAoCCQDMCAIJAQtEZWxldGVFbnRyeQEFA2tleQUDbmlsBQNrZXkJAQh0aHJvd0VycgECC25vdCBhbGxvd2VkAWkBB3JlaXNzdWUDB2Fzc2V0SWQGYW1vdW50CnJlaXNzdWFibGUDAwkBASEBBQhzaHV0ZG93bgkBDm11c3RDYWxjdWxhdG9yAQUBaQcJAJQKAgkAzAgCCQEHUmVpc3N1ZQMFB2Fzc2V0SWQFBmFtb3VudAUKcmVpc3N1YWJsZQUDbmlsBQZhbW91bnQJAQh0aHJvd0VycgECC25vdCBhbGxvd2VkAWkBBGJ1cm4CB2Fzc2V0SWQGYW1vdW50AwMJAQEhAQUIc2h1dGRvd24JAQ5tdXN0Q2FsY3VsYXRvcgEFAWkHCQCUCgIJAMwIAgkBBEJ1cm4CBQdhc3NldElkBQZhbW91bnQFA25pbAUGYW1vdW50CQEIdGhyb3dFcnIBAgtub3QgYWxsb3dlZAFpAQ10cmFuc2ZlckFzc2V0Aw5yZWNpcGllbnRCeXRlcwZhbW91bnQHYXNzZXRJZAMDCQEBIQEFCHNodXRkb3duCQEObXVzdENhbGN1bGF0b3IBBQFpBwkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQdBZGRyZXNzAQUOcmVjaXBpZW50Qnl0ZXMFBmFtb3VudAUHYXNzZXRJZAUDbmlsBQZhbW91bnQJAQh0aHJvd0VycgECC25vdCBhbGxvd2VkAWkBDnRyYW5zZmVyQXNzZXRzAw5yZWNpcGllbnRCeXRlcwphc3NldHNMaXN0C2Ftb3VudHNMaXN0AwMJAQEhAQUIc2h1dGRvd24JAQ5tdXN0Q2FsY3VsYXRvcgEFAWkHCgEOYWRkTmV3VHJhbnNmZXICA2FjYwtuZXh0QXNzZXRJZAQLJHQwMzE4NjMyMTAFA2FjYwQJdHJhbnNmZXJzCAULJHQwMzE4NjMyMTACXzEEAWoIBQskdDAzMTg2MzIxMAJfMgQLbmV3VHJhbnNmZXIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQdBZGRyZXNzAQUOcmVjaXBpZW50Qnl0ZXMJAJEDAgULYW1vdW50c0xpc3QFAWoJAJEDAgUKYXNzZXRzTGlzdAUBagQQdXBkYXRlZFRyYW5zZmVycwkAzQgCBQl0cmFuc2ZlcnMFC25ld1RyYW5zZmVyCQCUCgIFEHVwZGF0ZWRUcmFuc2ZlcnMJAGQCBQFqAAEECyR0MDM0MzYzNTE3CgACJGwFCmFzc2V0c0xpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ5hZGROZXdUcmFuc2ZlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgQPYXNzZXRzVHJhbnNmZXJzCAULJHQwMzQzNjM1MTcCXzEECl9sYXN0SW5kZXgIBQskdDAzNDM2MzUxNwJfMgkAlAoCBQ9hc3NldHNUcmFuc2ZlcnMFBHVuaXQJAQh0aHJvd0VycgECC25vdCBhbGxvd2VkAWkBDXRyYW5zZmVyV2F2ZXMCDnJlY2lwaWVudEJ5dGVzBmFtb3VudAMDCQEBIQEFCHNodXRkb3duCQEObXVzdENhbGN1bGF0b3IBBQFpBwkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQdBZGRyZXNzAQUOcmVjaXBpZW50Qnl0ZXMFBmFtb3VudAUEdW5pdAUDbmlsBQZhbW91bnQJAQh0aHJvd0VycgECC25vdCBhbGxvd2VkAWkBBGNhbGwCCGZ1bmN0aW9uBGFyZ3MEDWNsZWFuUGF5bWVudHMDCQAAAggFAWkPY2FsbGVyUHVibGljS2V5ASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUDbmlsCAUBaQhwYXltZW50cwQGcmVzdWx0CQD9BwQFEWNhbGN1bGF0b3JBZGRyZXNzBQhmdW5jdGlvbgkAzAgCCAUBaQ9jYWxsZXJQdWJsaWNLZXkJAMwIAgUEYXJncwUDbmlsBQ1jbGVhblBheW1lbnRzCQCUCgIFA25pbAUGcmVzdWx0AJ7SxsM=",
    "height": 3317575,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FGaz5q1o4DTjTLzEjKLCAfEkVP1FCzFJFqzDAqjnEU9J
Next: 4bfHN3cZZmuEKzcM1oPgq6ky7qc9wSCt5nxEdXF4mbys

Full: 

OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 7 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let separator = "__"
5+
6+let wavesString = "WAVES"
7+
8+let contractFilename = "meme_im_factory.ride"
9+
10+let kPriceAsset = "price__asset"
11+
12+let kShutdown = "shutdown__flag"
13+
14+let shutdown = valueOrElse(getBoolean(kShutdown), false)
15+
16+func wrapErr (s) = ((contractFilename + ": ") + s)
17+
18+
19+func throwErr (s) = throw(wrapErr(s))
20+
21+
22+func validateAddress (address) = isDefined(addressFromString(address))
23+
24+
25+let kCalculatorAddress = "calculator__address"
26+
27+let calculatorAddressOption = match getString(this, kCalculatorAddress) {
28+    case s: String => 
29+        addressFromString(s)
30+    case _: Unit => 
31+        unit
32+    case _ => 
33+        throw("Match error")
34+}
35+
36+let calculatorAddress = valueOrErrorMessage(calculatorAddressOption, wrapErr("invalid calculator address"))
37+
38+func mustAddress (i,address) = if ((i.caller == address))
39+    then true
40+    else throwErr("permission denied")
41+
42+
43+func mustThis (i) = mustAddress(i, this)
44+
45+
46+func mustCalculator (i) = mustAddress(i, calculatorAddress)
47+
48+
49+func parseAssetId (input) = if ((input == wavesString))
50+    then unit
51+    else fromBase58String(input)
52+
53+
54+func assetIdToString (input) = if ((input == unit))
55+    then wavesString
56+    else toBase58String(value(input))
57+
58+
59+@Callable(i)
60+func init (calculatorAddressStr) = {
61+    let checkCaller = mustThis(i)
62+    if ((checkCaller == checkCaller))
63+        then $Tuple2([StringEntry(kCalculatorAddress, calculatorAddressStr), StringEntry(kPriceAsset, wavesString)], unit)
64+        else throw("Strict value is not equal to itself.")
65+    }
66+
67+
68+
69+@Callable(i)
70+func stringEntry (key,val) = if (if (!(shutdown))
71+    then mustCalculator(i)
72+    else false)
73+    then $Tuple2([StringEntry(key, val)], key)
74+    else throwErr("not allowed")
75+
76+
77+
78+@Callable(i)
79+func integerEntry (key,val) = if (if (!(shutdown))
80+    then mustCalculator(i)
81+    else false)
82+    then $Tuple2([IntegerEntry(key, val)], key)
83+    else throwErr("not allowed")
84+
85+
86+
87+@Callable(i)
88+func booleanEntry (key,val) = if (if (!(shutdown))
89+    then mustCalculator(i)
90+    else false)
91+    then $Tuple2([BooleanEntry(key, val)], key)
92+    else throwErr("not allowed")
93+
94+
95+
96+@Callable(i)
97+func binaryEntry (key,val) = if (if (!(shutdown))
98+    then mustCalculator(i)
99+    else false)
100+    then $Tuple2([BinaryEntry(key, val)], key)
101+    else throwErr("not allowed")
102+
103+
104+
105+@Callable(i)
106+func deleteEntry (key) = if (if (!(shutdown))
107+    then mustCalculator(i)
108+    else false)
109+    then $Tuple2([DeleteEntry(key)], key)
110+    else throwErr("not allowed")
111+
112+
113+
114+@Callable(i)
115+func reissue (assetId,amount,reissuable) = if (if (!(shutdown))
116+    then mustCalculator(i)
117+    else false)
118+    then $Tuple2([Reissue(assetId, amount, reissuable)], amount)
119+    else throwErr("not allowed")
120+
121+
122+
123+@Callable(i)
124+func burn (assetId,amount) = if (if (!(shutdown))
125+    then mustCalculator(i)
126+    else false)
127+    then $Tuple2([Burn(assetId, amount)], amount)
128+    else throwErr("not allowed")
129+
130+
131+
132+@Callable(i)
133+func transferAsset (recipientBytes,amount,assetId) = if (if (!(shutdown))
134+    then mustCalculator(i)
135+    else false)
136+    then $Tuple2([ScriptTransfer(Address(recipientBytes), amount, assetId)], amount)
137+    else throwErr("not allowed")
138+
139+
140+
141+@Callable(i)
142+func transferAssets (recipientBytes,assetsList,amountsList) = if (if (!(shutdown))
143+    then mustCalculator(i)
144+    else false)
145+    then {
146+        func addNewTransfer (acc,nextAssetId) =         {
147+            let $t031863210 = acc
148+            let transfers = $t031863210._1
149+            let j = $t031863210._2
150+            let newTransfer = ScriptTransfer(Address(recipientBytes), amountsList[j], assetsList[j])
151+            let updatedTransfers = (transfers :+ newTransfer)
152+            $Tuple2(updatedTransfers, (j + 1))
153+            }
154+
155+        let $t034363517 = {
156+            let $l = assetsList
157+            let $s = size($l)
158+            let $acc0 = $Tuple2(nil, 0)
159+            func $f0_1 ($a,$i) =             if (($i >= $s))
160+                then $a
161+                else addNewTransfer($a, $l[$i])
162+
163+            func $f0_2 ($a,$i) =             if (($i >= $s))
164+                then $a
165+                else throw("List size exceeds 10")
166+
167+            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
168+            }
169+        let assetsTransfers = $t034363517._1
170+        let _lastIndex = $t034363517._2
171+        $Tuple2(assetsTransfers, unit)
172+        }
173+    else throwErr("not allowed")
174+
175+
176+
177+@Callable(i)
178+func transferWaves (recipientBytes,amount) = if (if (!(shutdown))
179+    then mustCalculator(i)
180+    else false)
181+    then $Tuple2([ScriptTransfer(Address(recipientBytes), amount, unit)], amount)
182+    else throwErr("not allowed")
183+
184+
185+
186+@Callable(i)
187+func call (function,args) = {
188+    let cleanPayments = if ((i.callerPublicKey == base58'11111111111111111111111111111111'))
189+        then nil
190+        else i.payments
191+    let result = reentrantInvoke(calculatorAddress, function, [i.callerPublicKey, args], cleanPayments)
192+    $Tuple2(nil, result)
193+    }
194+
195+
github/deemru/w8io/169f3d6 
17.92 ms ◑