tx · BDrp6kfmtDErqeTgAwUZMtJFEuxuThcewtCmA1qkfTaR

3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk:  -0.00300000 Waves

2022.07.12 00:32 [2135621] smart account 3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk > SELF 0.00000000 Waves

{ "type": 13, "id": "BDrp6kfmtDErqeTgAwUZMtJFEuxuThcewtCmA1qkfTaR", "fee": 300000, "feeAssetId": null, "timestamp": 1657575190552, "version": 2, "chainId": 84, "sender": "3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk", "senderPublicKey": "AR4BeE6hYADMvKxgRQs4ADN3krEqb2j8WE3WfJxzL3zE", "proofs": [ "5QotEC8AHSY1ReNbKLZ9y5ZFjor8actvSoeaYPvBEPVd9vq1NG2RMtkwf1dRnZQkDmrbM8ELqVB5sLqunJekSWx2" ], "script": "base64:BgISCAISAwoBCBIFCgMICAgSABIADAAFd2F2ZXMAgMLXLwAOdGlja2V0UHJpY2VJbnQAwIQ9AAt0aWNrZXRQcmljZQUOdGlja2V0UHJpY2VJbnQABmludkZlZQDQhgMAEndpdGhkcmF3RmVlUGVyY2VudAAFABZmZWVDb2xsZWN0b3JBZGRyZXNzS2V5AhNmZWVDb2xsZWN0b3JBZGRyZXNzAQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAARJnZXRUaWNrZXRzQ291bnRLZXkBDWFkZHJlc3NTdHJpbmcJAKwCAgUNYWRkcmVzc1N0cmluZwINX3RpY2tldHNDb3VudAENZ2FtZVdpbm5lcktleQEGZ2FtZUlkCQCsAgIFBmdhbWVJZAIHX3dpbm5lcgEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIRX2F2YWlsYWJsZVJld2FyZHMBD2dldFRpY2tldHNDb3VudAENYWRkcmVzc1N0cmluZwkBDXRyeUdldEludGVnZXIBCQESZ2V0VGlja2V0c0NvdW50S2V5AQUNYWRkcmVzc1N0cmluZwENY29uc3VtZVRpY2tldAEKcGxheWVyQWRkcgQSY3VycmVudFRpY2tldENvdW50CQEPZ2V0VGlja2V0c0NvdW50AQUKcGxheWVyQWRkcgQVbmV3Q3VycmVudFRpY2tldENvdW50CQBlAgUSY3VycmVudFRpY2tldENvdW50AAEDCQBmAgAABRVuZXdDdXJyZW50VGlja2V0Q291bnQAAAUVbmV3Q3VycmVudFRpY2tldENvdW50BAFpARZzZXRGZWVDb2xsZWN0b3JBZGRyZXNzAQ1jb2xsZWN0b3JBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQkAzAgCCQELU3RyaW5nRW50cnkCBRZmZWVDb2xsZWN0b3JBZGRyZXNzS2V5BQ1jb2xsZWN0b3JBZGRyBQNuaWwBaQEQc2V0V2lubmVySGVhZHNVcAMGZ2FtZUlkDXdpbm5lckFkZHJTdHIPb3RoZXJQbGF5ZXJBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQQTYXZhaWxhYmxlUmV3YXJkc0tleQkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNd2lubmVyQWRkclN0cgQXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAQ10cnlHZXRJbnRlZ2VyAQUTYXZhaWxhYmxlUmV3YXJkc0tleQQUbmV3VGlja2V0Q291bnRXaW5uZXIJAQ1jb25zdW1lVGlja2V0AQUNd2lubmVyQWRkclN0cgQZbmV3VGlja2V0Q291bnRPdGhlclBsYXllcgkBDWNvbnN1bWVUaWNrZXQBBQ9vdGhlclBsYXllckFkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDWdhbWVXaW5uZXJLZXkBBQZnYW1lSWQFDXdpbm5lckFkZHJTdHIJAMwIAgkBDEludGVnZXJFbnRyeQIFE2F2YWlsYWJsZVJld2FyZHNLZXkJAGQCBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkAaAIFC3RpY2tldFByaWNlAAIJAMwIAgkBDEludGVnZXJFbnRyeQIJARJnZXRUaWNrZXRzQ291bnRLZXkBBQ13aW5uZXJBZGRyU3RyBRRuZXdUaWNrZXRDb3VudFdpbm5lcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFD290aGVyUGxheWVyQWRkcgUZbmV3VGlja2V0Q291bnRPdGhlclBsYXllcgUDbmlsAWkBD3dpdGhkcmF3UmV3YXJkcwAEDWNhbGxlckFkZHJTdHIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQQZmVlQ29sbGVjdG9yQWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUWZmVlQ29sbGVjdG9yQWRkcmVzc0tleQQXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNY2FsbGVyQWRkclN0cgQLd2l0aGRyYXdGZWUJAGsDBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwUSd2l0aGRyYXdGZWVQZXJjZW50AGQEFmFjdHVhbEF2YWlsYWJsZVJld2FyZHMJAGUCCQBlAgUXY3VycmVudEF2YWlsYWJsZVJld2FyZHMFBmludkZlZQULd2l0aGRyYXdGZWUDCQBnAgAABRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkAAgECIE5vIGF2YWlsYWJsZSByZXdhcmRzIHRvIHdpdGhkcmF3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBBQ1jYWxsZXJBZGRyU3RyAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBRZhY3R1YWxBdmFpbGFibGVSZXdhcmRzBQR1bml0CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFEGZlZUNvbGxlY3RvckFkZHIFC3dpdGhkcmF3RmVlBQR1bml0BQNuaWwBaQEKYnV5VGlja2V0cwAEA3BtdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkAAgECIVBsZWFzZSBhdHRhY2ggZXhhY3RseSBvbmUgcGF5bWVudAMJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQJAAIBAidUaWNrZXRzIGNhbiBvbmx5IGliZSBwdXJjaGFzZWQgaW4gV2F2ZXMDCQECIT0CCAUDcG10BmFtb3VudAULdGlja2V0UHJpY2UJAAIBCQCsAgIJAKwCAgIfVGhlIHBheW1lbnQgbXVzdCBiZSBvZiBleGFjdGx5IAkApAMBBQ50aWNrZXRQcmljZUludAIGIHdhdmVzBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEE2N1cnJlbnRUaWNrZXRzQ291bnQJAQ10cnlHZXRJbnRlZ2VyAQkBEmdldFRpY2tldHNDb3VudEtleQEFDWNhbGxlckFkZHJTdHIJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFDWNhbGxlckFkZHJTdHIJAGQCBRNjdXJyZW50VGlja2V0c0NvdW50AAEFA25pbAABAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tled30S/g=", "height": 2135621, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: DxnMfjvnroe6WCyLmeEwXi3LxxsJdTAgcoUW9vay7pWu Next: 96q9tLcqzXgeP58DkXszr1ejzF7jhHkWZeXNHS8FJon2 Diff:
OldNewDifferences
1111
1212 let e = 5
1313
14-func f (g) = {
15- let h = getInteger(this, g)
16- if ($isInstanceOf(h, "Int"))
14+let f = "feeCollectorAddress"
15+
16+func g (h) = {
17+ let i = getInteger(this, h)
18+ if ($isInstanceOf(i, "Int"))
1719 then {
18- let i = h
19- i
20+ let j = i
21+ j
2022 }
2123 else 0
2224 }
2325
2426
25-func j (k) = (k + "_ticketsCount")
27+func k (l) = (l + "_ticketsCount")
2628
2729
28-func l (m) = (m + "_winner")
30+func m (n) = (n + "_winner")
2931
3032
31-func n (o) = (o + "_availableRewards")
33+func o (p) = (p + "_availableRewards")
3234
3335
34-func p (k) = f(j(k))
36+func q (l) = g(k(l))
3537
3638
37-func q (r) = {
38- let s = p(r)
39- let t = (s - 1)
40- if ((0 > t))
39+func r (s) = {
40+ let t = q(s)
41+ let u = (t - 1)
42+ if ((0 > u))
4143 then 0
42- else t
44+ else u
4345 }
4446
4547
46-@Callable(u)
47-func setWinnerHeadsUp (m,v,w) = if ((u.caller != this))
48+@Callable(v)
49+func setFeeCollectorAddress (w) = if ((v.caller != this))
50+ then throw("Admin Only")
51+ else [StringEntry(f, w)]
52+
53+
54+
55+@Callable(v)
56+func setWinnerHeadsUp (n,x,y) = if ((v.caller != this))
4857 then throw("Admin Only")
4958 else {
50- let x = n(v)
51- let y = f(x)
52- let z = q(v)
53- let A = q(w)
54-[StringEntry(l(m), v), IntegerEntry(x, (y + (c * 2))), IntegerEntry(j(v), z), IntegerEntry(j(w), A)]
59+ let z = o(x)
60+ let A = g(z)
61+ let B = r(x)
62+ let C = r(y)
63+[StringEntry(m(n), x), IntegerEntry(z, (A + (c * 2))), IntegerEntry(k(x), B), IntegerEntry(k(y), C)]
5564 }
5665
5766
5867
59-@Callable(u)
68+@Callable(v)
6069 func withdrawRewards () = {
61- let B = toBase58String(u.caller.bytes)
62- let y = f(n(B))
63- let C = ((y - d) - fraction(y, e, 100))
64- if ((0 >= y))
70+ let D = toBase58String(v.caller.bytes)
71+ let E = addressFromStringValue(getStringValue(f))
72+ let A = g(o(D))
73+ let F = fraction(A, e, 100)
74+ let G = ((A - d) - F)
75+ if ((0 >= A))
6576 then throw("No available rewards to withdraw")
66- else [IntegerEntry(n(B), 0), ScriptTransfer(u.caller, C, unit)]
77+ else [IntegerEntry(o(D), 0), ScriptTransfer(v.caller, G, unit), ScriptTransfer(E, F, unit)]
6778 }
6879
6980
7081
71-@Callable(u)
82+@Callable(v)
7283 func buyTickets () = {
73- let D = if ((size(u.payments) == 1))
74- then u.payments[0]
84+ let H = if ((size(v.payments) == 1))
85+ then v.payments[0]
7586 else throw("Please attach exactly one payment")
76- if (isDefined(D.assetId))
87+ if (isDefined(H.assetId))
7788 then throw("Tickets can only ibe purchased in Waves")
78- else if ((D.amount != c))
89+ else if ((H.amount != c))
7990 then throw((("The payment must be of exactly " + toString(b)) + " waves"))
8091 else {
81- let B = toBase58String(u.caller.bytes)
82- let E = f(j(B))
83- $Tuple2([IntegerEntry(j(B), (E + 1))], 1)
92+ let D = toBase58String(v.caller.bytes)
93+ let I = g(k(D))
94+ $Tuple2([IntegerEntry(k(D), (I + 1))], 1)
8495 }
8596 }
8697
8798
88-@Verifier(F)
89-func G () = sigVerify(F.bodyBytes, F.proofs[0], F.senderPublicKey)
99+@Verifier(J)
100+func K () = sigVerify(J.bodyBytes, J.proofs[0], J.senderPublicKey)
90101
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let a = 100000000
55
66 let b = 1000000
77
88 let c = b
99
1010 let d = 50000
1111
1212 let e = 5
1313
14-func f (g) = {
15- let h = getInteger(this, g)
16- if ($isInstanceOf(h, "Int"))
14+let f = "feeCollectorAddress"
15+
16+func g (h) = {
17+ let i = getInteger(this, h)
18+ if ($isInstanceOf(i, "Int"))
1719 then {
18- let i = h
19- i
20+ let j = i
21+ j
2022 }
2123 else 0
2224 }
2325
2426
25-func j (k) = (k + "_ticketsCount")
27+func k (l) = (l + "_ticketsCount")
2628
2729
28-func l (m) = (m + "_winner")
30+func m (n) = (n + "_winner")
2931
3032
31-func n (o) = (o + "_availableRewards")
33+func o (p) = (p + "_availableRewards")
3234
3335
34-func p (k) = f(j(k))
36+func q (l) = g(k(l))
3537
3638
37-func q (r) = {
38- let s = p(r)
39- let t = (s - 1)
40- if ((0 > t))
39+func r (s) = {
40+ let t = q(s)
41+ let u = (t - 1)
42+ if ((0 > u))
4143 then 0
42- else t
44+ else u
4345 }
4446
4547
46-@Callable(u)
47-func setWinnerHeadsUp (m,v,w) = if ((u.caller != this))
48+@Callable(v)
49+func setFeeCollectorAddress (w) = if ((v.caller != this))
50+ then throw("Admin Only")
51+ else [StringEntry(f, w)]
52+
53+
54+
55+@Callable(v)
56+func setWinnerHeadsUp (n,x,y) = if ((v.caller != this))
4857 then throw("Admin Only")
4958 else {
50- let x = n(v)
51- let y = f(x)
52- let z = q(v)
53- let A = q(w)
54-[StringEntry(l(m), v), IntegerEntry(x, (y + (c * 2))), IntegerEntry(j(v), z), IntegerEntry(j(w), A)]
59+ let z = o(x)
60+ let A = g(z)
61+ let B = r(x)
62+ let C = r(y)
63+[StringEntry(m(n), x), IntegerEntry(z, (A + (c * 2))), IntegerEntry(k(x), B), IntegerEntry(k(y), C)]
5564 }
5665
5766
5867
59-@Callable(u)
68+@Callable(v)
6069 func withdrawRewards () = {
61- let B = toBase58String(u.caller.bytes)
62- let y = f(n(B))
63- let C = ((y - d) - fraction(y, e, 100))
64- if ((0 >= y))
70+ let D = toBase58String(v.caller.bytes)
71+ let E = addressFromStringValue(getStringValue(f))
72+ let A = g(o(D))
73+ let F = fraction(A, e, 100)
74+ let G = ((A - d) - F)
75+ if ((0 >= A))
6576 then throw("No available rewards to withdraw")
66- else [IntegerEntry(n(B), 0), ScriptTransfer(u.caller, C, unit)]
77+ else [IntegerEntry(o(D), 0), ScriptTransfer(v.caller, G, unit), ScriptTransfer(E, F, unit)]
6778 }
6879
6980
7081
71-@Callable(u)
82+@Callable(v)
7283 func buyTickets () = {
73- let D = if ((size(u.payments) == 1))
74- then u.payments[0]
84+ let H = if ((size(v.payments) == 1))
85+ then v.payments[0]
7586 else throw("Please attach exactly one payment")
76- if (isDefined(D.assetId))
87+ if (isDefined(H.assetId))
7788 then throw("Tickets can only ibe purchased in Waves")
78- else if ((D.amount != c))
89+ else if ((H.amount != c))
7990 then throw((("The payment must be of exactly " + toString(b)) + " waves"))
8091 else {
81- let B = toBase58String(u.caller.bytes)
82- let E = f(j(B))
83- $Tuple2([IntegerEntry(j(B), (E + 1))], 1)
92+ let D = toBase58String(v.caller.bytes)
93+ let I = g(k(D))
94+ $Tuple2([IntegerEntry(k(D), (I + 1))], 1)
8495 }
8596 }
8697
8798
88-@Verifier(F)
89-func G () = sigVerify(F.bodyBytes, F.proofs[0], F.senderPublicKey)
99+@Verifier(J)
100+func K () = sigVerify(J.bodyBytes, J.proofs[0], J.senderPublicKey)
90101

github/deemru/w8io/3ef1775 
76.72 ms