tx · 2GWm7BkWcubddzHbk3gwuizvVQbvLwFcY6TPVg9fBbGN

3NADYuG3G91PrmsrRqQfyeDCf2Pi53UV5id:  -0.01400000 Waves

2021.05.06 00:54 [1512956] smart account 3NADYuG3G91PrmsrRqQfyeDCf2Pi53UV5id > SELF 0.00000000 Waves

{ "type": 13, "id": "2GWm7BkWcubddzHbk3gwuizvVQbvLwFcY6TPVg9fBbGN", "fee": 1400000, "feeAssetId": null, "timestamp": 1620251638096, "version": 2, "chainId": 84, "sender": "3NADYuG3G91PrmsrRqQfyeDCf2Pi53UV5id", "senderPublicKey": "8agr5kfwDL7NLuMetvciXCcd9TcDKZhRwYZPPTAShaCC", "proofs": [ "2wrZkuzXT6pKPKfPMrkkCs3YX1ZuEF4nLBaq3F7Jc75NqrVjhNVNheRaLUuduy8NZkBDy8Pf1FT9N3MkpMt7UPTD" ], "script": "base64:AAIEAAAAAAAAAA0IAhIECgIBARIDCgEIAAAABwAAAAAPa2V5RXhjaGFuZ2VSYXRlAgAAAA1leGNoYW5nZV9yYXRlAAAAAB1rZXlFeGNoYW5nZVJhdGVTY2FsZURlbGltaXRlcgIAAAAdZXhjaGFuZ2VfcmF0ZV9zY2FsZV9kZWxpbWl0ZXIAAAAABFVTRE4BAAAAILYmKcME9c5TkaQOS3UkL2SMUbH6369UKb1I0h0qsqrRAAAAAAZVV09STEQBAAAAIC0YU6VQO6jm5AnV7EgahViVvI+ERufkxe853ucbrizpAAAAAAdhc3NldElkBQAAAARVU0ROAAAAAApjb21taXNzaW9uAAAAAAAAAHUwAAAAABhjb21taXNzaW9uU2NhbGVEZWxpbWl0ZXIAAAAAAAAPQkAAAAACAAAAAWkBAAAACXNldFBhcmFtcwAAAAIAAAAMZXhjaGFuZ2VSYXRlAAAAGmV4Y2hhbmdlUmF0ZVNjYWxlRGVsaW1pdGVyAwkBAAAAAiE9AAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAR0aGlzCQAAAgAAAAECAAAAK09ubHkgdGhlIERBcHAgaXRzZWxmIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAD2tleUV4Y2hhbmdlUmF0ZQUAAAAMZXhjaGFuZ2VSYXRlCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAB1rZXlFeGNoYW5nZVJhdGVTY2FsZURlbGltaXRlcgUAAAAaZXhjaGFuZ2VSYXRlU2NhbGVEZWxpbWl0ZXIFAAAAA25pbAAAAAFpAQAAAAttYWtlUGF5bWVudAAAAAEAAAAJcmVjaXBpZW50BAAAABByZWNpcGllbnRBZGRyZXNzCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABBQAAAAlyZWNpcGllbnQEAAAACSR0MDkxMjk4NwkABRQAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQEAAAACXBtdEFtb3VudAgFAAAACSR0MDkxMjk4NwAAAAJfMQQAAAAKcG10QXNzZXRJZAgFAAAACSR0MDkxMjk4NwAAAAJfMgMJAQAAAAIhPQAAAAIFAAAACnBtdEFzc2V0SWQFAAAAB2Fzc2V0SWQJAAACAAAAAQIAAAAXQXNzZXQgbXVzdCBiZSBVU0ROIG9ubHkEAAAAEGFtb3VudENvbW1pc3Npb24JAABrAAAAAwUAAAAJcG10QW1vdW50BQAAAApjb21taXNzaW9uBQAAABhjb21taXNzaW9uU2NhbGVEZWxpbWl0ZXIEAAAAF2Ftb3VudFdpdGhvdXRDb21taXNzaW9uCQAAZQAAAAIFAAAACXBtdEFtb3VudAUAAAAQYW1vdW50Q29tbWlzc2lvbgQAAAAOYW1vdW50Q2FzaGJhY2sJAABrAAAAAwUAAAAJcG10QW1vdW50AAAAAAAAAAAKAAAAAAAAAABkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAEHJlY2lwaWVudEFkZHJlc3MFAAAAF2Ftb3VudFdpdGhvdXRDb21taXNzaW9uBQAAAAdhc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAEHJlY2lwaWVudEFkZHJlc3MFAAAADmFtb3VudENhc2hiYWNrBQAAAAZVV09STEQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAA5hbW91bnRDYXNoYmFjawUAAAAGVVdPUkxEBQAAAANuaWwAAAAAnpUhOw==", "height": 1512956, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: BC8monaYtxij8jUZtvQkjqDSddmn8XpvsJHSbXwjf3GD Next: GyZscZDR6jNh3Fx2y88kroBkVoRYrjjTB1Q63ibCVSn9 Diff:
OldNewDifferences
11 {-# STDLIB_VERSION 4 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let a = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
4+let a = "exchange_rate"
55
6-let b = base58'GPi1Q6QVgUmuomtThbim81hBYBEUWyf5BVmE4Tnd3sNg'
6+let b = "exchange_rate_scale_delimiter"
77
8-let c = b
8+let c = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
99
10-func d (c) = {
11- let e = c
12- if ($isInstanceOf(e, "ByteVector"))
13- then {
14- let f = e
15- let g = toBase58String(f)
16- let h = valueOrErrorMessage(assetInfo(f), (("Asset " + g) + " doesn't exist"))
17- $Tuple3(g, h.name, h.decimals)
18- }
19- else if ($isInstanceOf(e, "Unit"))
20- then {
21- let i = e
22- $Tuple3("WAVES", "WAVES", 8)
23- }
24- else throw("Match error")
25- }
10+let d = base58'432rwiV6mi3SJGLkhGPeyHVNUj8rEgHpXwyc1yXj4M6Y'
11+
12+let e = c
13+
14+let f = 30000
15+
16+let g = 1000000
17+
18+@Callable(h)
19+func setParams (i,j) = if ((h.caller != this))
20+ then throw("Only the DApp itself can call this function")
21+ else [IntegerEntry(a, i), IntegerEntry(b, j)]
2622
2723
28-@Callable(j)
29-func call (k) = {
24+
25+@Callable(h)
26+func makePayment (k) = {
3027 let l = addressFromStringValue(k)
31- let m = $Tuple2(j.payments[0].amount, j.payments[0].assetId)
28+ let m = $Tuple2(h.payments[0].amount, h.payments[0].assetId)
3229 let n = m._1
3330 let o = m._2
34- let p = d(o)
35- let q = p._1
36- let r = p._2
37- let s = p._3
38- if ((o != c))
39- then throw("Assets must be USDN only")
31+ if ((o != e))
32+ then throw("Asset must be USDN only")
4033 else {
41- let t = 30000
42- let u = 1000000
43- let v = fraction(n, 3, 100)
44- let w = (n - v)
45-[ScriptTransfer(j.caller, 1, c), ScriptTransfer(l, w, c)]
34+ let p = fraction(n, f, g)
35+ let q = (n - p)
36+ let r = fraction(n, 10, 100)
37+[ScriptTransfer(l, q, e), ScriptTransfer(l, r, d), ScriptTransfer(h.caller, r, d)]
4638 }
4739 }
4840
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 4 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let a = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
4+let a = "exchange_rate"
55
6-let b = base58'GPi1Q6QVgUmuomtThbim81hBYBEUWyf5BVmE4Tnd3sNg'
6+let b = "exchange_rate_scale_delimiter"
77
8-let c = b
8+let c = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
99
10-func d (c) = {
11- let e = c
12- if ($isInstanceOf(e, "ByteVector"))
13- then {
14- let f = e
15- let g = toBase58String(f)
16- let h = valueOrErrorMessage(assetInfo(f), (("Asset " + g) + " doesn't exist"))
17- $Tuple3(g, h.name, h.decimals)
18- }
19- else if ($isInstanceOf(e, "Unit"))
20- then {
21- let i = e
22- $Tuple3("WAVES", "WAVES", 8)
23- }
24- else throw("Match error")
25- }
10+let d = base58'432rwiV6mi3SJGLkhGPeyHVNUj8rEgHpXwyc1yXj4M6Y'
11+
12+let e = c
13+
14+let f = 30000
15+
16+let g = 1000000
17+
18+@Callable(h)
19+func setParams (i,j) = if ((h.caller != this))
20+ then throw("Only the DApp itself can call this function")
21+ else [IntegerEntry(a, i), IntegerEntry(b, j)]
2622
2723
28-@Callable(j)
29-func call (k) = {
24+
25+@Callable(h)
26+func makePayment (k) = {
3027 let l = addressFromStringValue(k)
31- let m = $Tuple2(j.payments[0].amount, j.payments[0].assetId)
28+ let m = $Tuple2(h.payments[0].amount, h.payments[0].assetId)
3229 let n = m._1
3330 let o = m._2
34- let p = d(o)
35- let q = p._1
36- let r = p._2
37- let s = p._3
38- if ((o != c))
39- then throw("Assets must be USDN only")
31+ if ((o != e))
32+ then throw("Asset must be USDN only")
4033 else {
41- let t = 30000
42- let u = 1000000
43- let v = fraction(n, 3, 100)
44- let w = (n - v)
45-[ScriptTransfer(j.caller, 1, c), ScriptTransfer(l, w, c)]
34+ let p = fraction(n, f, g)
35+ let q = (n - p)
36+ let r = fraction(n, 10, 100)
37+[ScriptTransfer(l, q, e), ScriptTransfer(l, r, d), ScriptTransfer(h.caller, r, d)]
4638 }
4739 }
4840
4941

github/deemru/w8io/169f3d6 
25.41 ms