tx · fYqJru5g2BhKbqXYqqaaFpWCqYiCNagqTnZ37VXrTHW

3NADYuG3G91PrmsrRqQfyeDCf2Pi53UV5id:  -0.01000000 Waves

2022.01.07 01:07 [1867628] smart account 3NADYuG3G91PrmsrRqQfyeDCf2Pi53UV5id > SELF 0.00000000 Waves

{ "type": 13, "id": "fYqJru5g2BhKbqXYqqaaFpWCqYiCNagqTnZ37VXrTHW", "fee": 1000000, "feeAssetId": null, "timestamp": 1641506850675, "version": 2, "chainId": 84, "sender": "3NADYuG3G91PrmsrRqQfyeDCf2Pi53UV5id", "senderPublicKey": "8agr5kfwDL7NLuMetvciXCcd9TcDKZhRwYZPPTAShaCC", "proofs": [ "2DJv3gJxo1URvnKN2Vis97cV3DdovXNhHjxP7XHBNfhY8kexZMcKkCZmK3PMW56yP3WdpQKBUogDvTHWbazK8aQP" ], "script": "base64:AAIFAAAAAAAAABgIAhIFCgMICAgSABIAEgASABIFCgMICAgAAAALAAAAAA5rZXlCdXlVTFVTUmF0ZQIAAAANYnV5X1VMVVNfcmF0ZQAAAAAca2V5QnV5VUxVU1JhdGVTY2FsZURlbGltaXRlcgIAAAAdYnV5X1VMVVNfcmF0ZV9zY2FsZV9kZWxpbWl0ZXIAAAAAD2tleVNlbGxVTFVTUmF0ZQIAAAAOc2VsbF9VTFVTX3JhdGUAAAAAHWtleVNlbGxVTFVTUmF0ZVNjYWxlRGVsaW1pdGVyAgAAAB5zZWxsX1VMVVNfcmF0ZV9zY2FsZV9kZWxpbWl0ZXIAAAAADWtleU1ha2VORlRGZWUCAAAAEGtleV9tYWtlX05GVF9mZWUAAAAADWtleUNvbW1pc3Npb24CAAAACmNvbW1pc3Npb24AAAAAG2tleUNvbW1pc3Npb25TY2FsZURlbGltaXRlcgIAAAAaY29tbWlzc2lvbl9zY2FsZV9kZWxpbWl0ZXIAAAAABFVTRE4BAAAAIOSwcsQaO/7w9gk22WMNYWxRgCp4LSxG18pSVz66uVShAAAAAARVTFVTAQAAACD+I8+AbqmFdbZV0Ps2vydVLOeV/HC0Y5Rs2iI42r1+cQAAAAAHYXNzZXRJZAUAAAAEVVNETgAAAAARY29tbWlzc2lvbkFkZHJlc3MJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVSEO4JrRWRAQ1HUrYtrHmb+ildUh2AJpXkAAAAGAAAAAWkBAAAAB21ha2VORlQAAAADAAAABG5hbWUAAAALZGVzY3JpcHRpb24AAAAJcHJvZHVjdElkBAAAAAskdDAxMTIwMTE5NQkABRQAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQEAAAACXBtdEFtb3VudAgFAAAACyR0MDExMjAxMTk1AAAAAl8xBAAAAApwbXRBc3NldElkCAUAAAALJHQwMTEyMDExOTUAAAACXzIEAAAACm1ha2VORlRmZWUJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMFAAAADWtleU1ha2VORlRGZWUDCQEAAAACIT0AAAACBQAAAApwbXRBc3NldElkBQAAAAdhc3NldElkCQAAAgAAAAECAAAAF0Fzc2V0IG11c3QgYmUgVVNETiBvbmx5AwkAAGYAAAACBQAAAAptYWtlTkZUZmVlBQAAAAlwbXRBbW91bnQJAAACAAAAAQkAASwAAAACAgAAABpGZWUgZm9yIG1ha2UgTkZUIHRva2VuIGlzIAkAAaQAAAABBQAAAAptYWtlTkZUZmVlAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQdAAAAAgUAAAAEdGhpcwUAAAAJcHJvZHVjdElkCQAAAgAAAAECAAAAKU5GVCBmb3IgdGhpcyBwcm9kdWN0SWQgaXMgYWxyZWFkeSBpc3N1ZWQuBAAAAAhuZXdBc3NldAkABEMAAAAHBQAAAARuYW1lCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAtkZXNjcmlwdGlvbgIAAAABWwUAAAAJcHJvZHVjdElkAgAAAAFdAAAAAAAAAAABAAAAAAAAAAAABwUAAAAEdW5pdAAAAAAAAAAAAAQAAAAKbmV3QXNzZXRJZAkABDgAAAABBQAAAAhuZXdBc3NldAkABEwAAAACBQAAAAhuZXdBc3NldAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAAlwcm9kdWN0SWQJAAJYAAAAAQUAAAAKbmV3QXNzZXRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAABFjb21taXNzaW9uQWRkcmVzcwUAAAAJcG10QW1vdW50BQAAAApwbXRBc3NldElkBQAAAANuaWwAAAABaQEAAAAJc2V0UGFyYW1zAAAAAAMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAACtPbmx5IHRoZSBEQXBwIGl0c2VsZiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAA5rZXlCdXlVTFVTUmF0ZQAAAAAAAAJJ8AkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAca2V5QnV5VUxVU1JhdGVTY2FsZURlbGltaXRlcgAAAAAAAAAD6AkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAPa2V5U2VsbFVMVVNSYXRlAAAAAAAAAYagCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAB1rZXlTZWxsVUxVU1JhdGVTY2FsZURlbGltaXRlcgAAAAAAAAAD6AkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAANa2V5Q29tbWlzc2lvbgAAAAAAAAB1MAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAba2V5Q29tbWlzc2lvblNjYWxlRGVsaW1pdGVyAAAAAAAAD0JACQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAA1rZXlNYWtlTkZURmVlAAAAAAAAD0JABQAAAANuaWwAAAABaQEAAAAOY2xlYXJPbGRQYXJhbXMAAAAAAwkBAAAAAiE9AAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAR0aGlzCQAAAgAAAAECAAAAK09ubHkgdGhlIERBcHAgaXRzZWxmIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24EAAAAEGtleUJ1eVVXT1JMRFJhdGUCAAAAD2J1eV9VV09STERfcmF0ZQQAAAAea2V5QnV5VVdPUkxEUmF0ZVNjYWxlRGVsaW1pdGVyAgAAAB9idXlfVVdPUkxEX3JhdGVfc2NhbGVfZGVsaW1pdGVyBAAAABFrZXlTZWxsVVdPUkxEUmF0ZQIAAAAQc2VsbF9VV09STERfcmF0ZQQAAAAfa2V5U2VsbFVXT1JMRFJhdGVTY2FsZURlbGltaXRlcgIAAAAgc2VsbF9VV09STERfcmF0ZV9zY2FsZV9kZWxpbWl0ZXIJAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQUAAAAQa2V5QnV5VVdPUkxEUmF0ZQkABEwAAAACCQEAAAALRGVsZXRlRW50cnkAAAABBQAAAB5rZXlCdXlVV09STERSYXRlU2NhbGVEZWxpbWl0ZXIJAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQUAAAARa2V5U2VsbFVXT1JMRFJhdGUJAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQUAAAAfa2V5U2VsbFVXT1JMRFJhdGVTY2FsZURlbGltaXRlcgUAAAADbmlsAAAAAWkBAAAAB2J1eVVMVVMAAAAABAAAAAskdDAzMjEwMzI4NQkABRQAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQEAAAACXBtdEFtb3VudAgFAAAACyR0MDMyMTAzMjg1AAAAAl8xBAAAAApwbXRBc3NldElkCAUAAAALJHQwMzIxMDMyODUAAAACXzIDCQEAAAACIT0AAAACBQAAAApwbXRBc3NldElkBQAAAAdhc3NldElkCQAAAgAAAAECAAAAF0Fzc2V0IG11c3QgYmUgVVNETiBvbmx5BAAAAAxleGNoYW5nZVJhdGUJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMFAAAADmtleUJ1eVVMVVNSYXRlBAAAABpleGNoYW5nZVJhdGVTY2FsZURlbGltaXRlcgkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwUAAAAca2V5QnV5VUxVU1JhdGVTY2FsZURlbGltaXRlcgQAAAALYW1vdW50VG9QYXkJAABrAAAAAwUAAAAJcG10QW1vdW50BQAAABpleGNoYW5nZVJhdGVTY2FsZURlbGltaXRlcgUAAAAMZXhjaGFuZ2VSYXRlBAAAABdhbW91bnRXaXRob3V0Q29tbWlzc2lvbgUAAAALYW1vdW50VG9QYXkJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAABdhbW91bnRXaXRob3V0Q29tbWlzc2lvbgUAAAAEVUxVUwUAAAADbmlsAAAAAWkBAAAACHNlbGxVTFVTAAAAAAQAAAALJHQwMzkzOTQwMTQJAAUUAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50CAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBAAAAAlwbXRBbW91bnQIBQAAAAskdDAzOTM5NDAxNAAAAAJfMQQAAAAKcG10QXNzZXRJZAgFAAAACyR0MDM5Mzk0MDE0AAAAAl8yAwkBAAAAAiE9AAAAAgUAAAAKcG10QXNzZXRJZAUAAAAEVUxVUwkAAAIAAAABAgAAABdBc3NldCBtdXN0IGJlIFVMVVMgb25seQQAAAAMZXhjaGFuZ2VSYXRlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAA9rZXlTZWxsVUxVU1JhdGUEAAAAGmV4Y2hhbmdlUmF0ZVNjYWxlRGVsaW1pdGVyCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAB1rZXlTZWxsVUxVU1JhdGVTY2FsZURlbGltaXRlcgQAAAALYW1vdW50VG9QYXkJAABrAAAAAwUAAAAJcG10QW1vdW50BQAAAAxleGNoYW5nZVJhdGUFAAAAGmV4Y2hhbmdlUmF0ZVNjYWxlRGVsaW1pdGVyBAAAABdhbW91bnRXaXRob3V0Q29tbWlzc2lvbgUAAAALYW1vdW50VG9QYXkJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAABdhbW91bnRXaXRob3V0Q29tbWlzc2lvbgUAAAAEVVNETgUAAAADbmlsAAAAAWkBAAAAC21ha2VQYXltZW50AAAAAwAAAAlyZWNpcGllbnQAAAAJcHJvZHVjdElkAAAAEGJhY2tlbmRTaWduYXR1cmUEAAAAEHJlY2lwaWVudEFkZHJlc3MJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEFAAAACXJlY2lwaWVudAQAAAALJHQwNDc5NzQ4NzIJAAUUAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50CAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBAAAAAlwbXRBbW91bnQIBQAAAAskdDA0Nzk3NDg3MgAAAAJfMQQAAAAKcG10QXNzZXRJZAgFAAAACyR0MDQ3OTc0ODcyAAAAAl8yBAAAAAxiYWNrZW5kUHJvb2YJAAEsAAAAAgkABLkAAAACCQAETAAAAAIJAAQlAAAAAQUAAAAEdGhpcwkABEwAAAACCQABpAAAAAEFAAAACXBtdEFtb3VudAUAAAADbmlsAgAAAAE7AgAAAAE7BAAAAA1iYWNrZW5kUHViS2V5AQAAACBFPiiKI3pyj7bycKBN2zbNY9YdCMUn95VZZZCWjS5uTwMJAQAAAAEhAAAAAQkACcQAAAADCQABmwAAAAEFAAAADGJhY2tlbmRQcm9vZgkAAlkAAAABBQAAABBiYWNrZW5kU2lnbmF0dXJlBQAAAA1iYWNrZW5kUHViS2V5CQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAHEludmFsaWQgcHJvb2YgZnJvbSBiYWNrZW5kID0JAAJYAAAAAQkAAZsAAAABBQAAAAxiYWNrZW5kUHJvb2YCAAAABCAgICAFAAAADGJhY2tlbmRQcm9vZgMDCQEAAAACIT0AAAACBQAAAApwbXRBc3NldElkBQAAAARVU0ROCQEAAAACIT0AAAACBQAAAApwbXRBc3NldElkBQAAAARVTFVTBwkAAAIAAAABAgAAAB9Bc3NldCBtdXN0IGJlIG9ubHkgVVNETiBvciBVTFVTBAAAAApjb21taXNzaW9uCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAA1rZXlDb21taXNzaW9uBAAAABhjb21taXNzaW9uU2NhbGVEZWxpbWl0ZXIJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMFAAAAG2tleUNvbW1pc3Npb25TY2FsZURlbGltaXRlcgQAAAAQYW1vdW50Q29tbWlzc2lvbgkAAGsAAAADBQAAAAlwbXRBbW91bnQFAAAACmNvbW1pc3Npb24FAAAAGGNvbW1pc3Npb25TY2FsZURlbGltaXRlcgQAAAAXYW1vdW50V2l0aG91dENvbW1pc3Npb24JAABlAAAAAgUAAAAJcG10QW1vdW50BQAAABBhbW91bnRDb21taXNzaW9uBAAAAAxhc3NldERpdmlkZXIDCQAAAAAAAAIFAAAACnBtdEFzc2V0SWQFAAAABFVTRE4AAAAAAAAPQkAAAAAAAAAAA+gEAAAADmFtb3VudENhc2hiYWNrCQAAawAAAAMFAAAACXBtdEFtb3VudAAAAAAAAAAAZAUAAAAMYXNzZXREaXZpZGVyAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQdAAAAAgUAAAAEdGhpcwUAAAAJcHJvZHVjdElkBAAAAApORlRhc3NldElkCQACWQAAAAEJAQAAABFAZXh0ck5hdGl2ZSgxMDUzKQAAAAIFAAAABHRoaXMFAAAACXByb2R1Y3RJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAABByZWNpcGllbnRBZGRyZXNzBQAAABdhbW91bnRXaXRob3V0Q29tbWlzc2lvbgUAAAAKcG10QXNzZXRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAABFjb21taXNzaW9uQWRkcmVzcwUAAAAQYW1vdW50Q29tbWlzc2lvbgUAAAAKcG10QXNzZXRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAADmFtb3VudENhc2hiYWNrBQAAAARVTFVTCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgAAAAAAAAAAAQUAAAAKTkZUYXNzZXRJZAUAAAADbmlsCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAEHJlY2lwaWVudEFkZHJlc3MFAAAAF2Ftb3VudFdpdGhvdXRDb21taXNzaW9uBQAAAApwbXRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAEWNvbW1pc3Npb25BZGRyZXNzBQAAABBhbW91bnRDb21taXNzaW9uBQAAAApwbXRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAOYW1vdW50Q2FzaGJhY2sFAAAABFVMVVMFAAAAA25pbAAAAADHJV+j", "height": 1867628, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: HvGnXqsi6vd8CZnNeSY3uS6kn1VGyCcjErrpzHMGNW5h Next: AZ6DRvv61cr4gX6bGoz94d6JYY7mrvsbWnuFd7QQFm8B Full:
OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let a = "buy_ULUS_rate"
55
66 let b = "buy_ULUS_rate_scale_delimiter"
77
88 let c = "sell_ULUS_rate"
99
1010 let d = "sell_ULUS_rate_scale_delimiter"
1111
1212 let e = "key_make_NFT_fee"
1313
1414 let f = "commission"
1515
1616 let g = "commission_scale_delimiter"
1717
1818 let h = base58'GPi1Q6QVgUmuomtThbim81hBYBEUWyf5BVmE4Tnd3sNg'
1919
2020 let i = base58'J74E8AHdZobVSkA3YboiRrxFUs4odMVxK8tGMg6QXA1n'
2121
2222 let j = h
2323
2424 let k = Address(base58'3N1yGG2mA3gTLxReAh84njeRvCBzvUbCccg')
2525
2626 @Callable(l)
2727 func makeNFT (m,n,o) = {
2828 let p = $Tuple2(l.payments[0].amount, l.payments[0].assetId)
2929 let q = p._1
3030 let r = p._2
3131 let s = getIntegerValue(this, e)
3232 if ((r != j))
3333 then throw("Asset must be USDN only")
3434 else if ((s > q))
3535 then throw(("Fee for make NFT token is " + toString(s)))
3636 else if (isDefined(getString(this, o)))
3737 then throw("NFT for this productId is already issued.")
3838 else {
3939 let t = Issue(m, (((n + "[") + o) + "]"), 1, 0, false, unit, 0)
4040 let u = calculateAssetId(t)
4141 [t, StringEntry(o, toBase58String(u)), ScriptTransfer(k, q, r)]
4242 }
4343 }
4444
4545
4646
4747 @Callable(l)
4848 func setParams () = if ((l.caller != this))
4949 then throw("Only the DApp itself can call this function")
5050 else [IntegerEntry(a, 150000), IntegerEntry(b, 1000), IntegerEntry(c, 100000), IntegerEntry(d, 1000), IntegerEntry(f, 30000), IntegerEntry(g, 1000000), IntegerEntry(e, 1000000)]
5151
5252
5353
5454 @Callable(l)
5555 func clearOldParams () = if ((l.caller != this))
5656 then throw("Only the DApp itself can call this function")
5757 else {
5858 let v = "buy_UWORLD_rate"
5959 let w = "buy_UWORLD_rate_scale_delimiter"
6060 let x = "sell_UWORLD_rate"
6161 let y = "sell_UWORLD_rate_scale_delimiter"
6262 [DeleteEntry(v), DeleteEntry(w), DeleteEntry(x), DeleteEntry(y)]
6363 }
6464
6565
6666
6767 @Callable(l)
6868 func buyULUS () = {
6969 let z = $Tuple2(l.payments[0].amount, l.payments[0].assetId)
7070 let q = z._1
7171 let r = z._2
7272 if ((r != j))
7373 then throw("Asset must be USDN only")
7474 else {
7575 let A = getIntegerValue(this, a)
7676 let B = getIntegerValue(this, b)
7777 let C = fraction(q, B, A)
7878 let D = C
7979 [ScriptTransfer(l.caller, D, i)]
8080 }
8181 }
8282
8383
8484
8585 @Callable(l)
8686 func sellULUS () = {
8787 let E = $Tuple2(l.payments[0].amount, l.payments[0].assetId)
8888 let q = E._1
8989 let r = E._2
9090 if ((r != i))
9191 then throw("Asset must be ULUS only")
9292 else {
9393 let A = getIntegerValue(this, c)
9494 let B = getIntegerValue(this, d)
9595 let C = fraction(q, A, B)
9696 let D = C
9797 [ScriptTransfer(l.caller, D, h)]
9898 }
9999 }
100100
101101
102102
103103 @Callable(l)
104104 func makePayment (F,o,G) = {
105105 let H = addressFromStringValue(F)
106106 let I = $Tuple2(l.payments[0].amount, l.payments[0].assetId)
107107 let q = I._1
108108 let r = I._2
109109 let J = (makeString([toString(this), toString(q)], ";") + ";")
110110 let K = base58'5fJ73uaebbc12bwCegVoRZgNKfn4BqpH8NB8Rs2NpBmg'
111111 if (!(sigVerify_8Kb(toBytes(J), fromBase58String(G), K)))
112112 then throw(((("Invalid proof from backend =" + toBase58String(toBytes(J))) + " ") + J))
113113 else if (if ((r != h))
114114 then (r != i)
115115 else false)
116116 then throw("Asset must be only USDN or ULUS")
117117 else {
118118 let L = getIntegerValue(this, f)
119119 let M = getIntegerValue(this, g)
120120 let N = fraction(q, L, M)
121121 let D = (q - N)
122122 let O = if ((r == h))
123123 then 1000000
124124 else 1000
125125 let P = fraction(q, 100, O)
126126 if (isDefined(getString(this, o)))
127127 then {
128128 let Q = fromBase58String(getStringValue(this, o))
129129 [ScriptTransfer(H, D, r), ScriptTransfer(k, N, r), ScriptTransfer(l.caller, P, i), ScriptTransfer(l.caller, 1, Q)]
130130 }
131131 else [ScriptTransfer(H, D, r), ScriptTransfer(k, N, r), ScriptTransfer(l.caller, P, i)]
132132 }
133133 }
134134
135135

github/deemru/w8io/026f985 
26.77 ms