tx · 7HhGoX2KGrwQJWc9LaBuDMmvHpLNsCrLd6o8dnoh7w5s

3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr:  -0.00500000 Waves

2024.10.11 09:44 [3321827] smart account 3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7HhGoX2KGrwQJWc9LaBuDMmvHpLNsCrLd6o8dnoh7w5s",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1728629047266,
    "version": 2,
    "chainId": 84,
    "sender": "3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr",
    "senderPublicKey": "jXCTQV8PjX2uC9UHBFveupYy9cjhY7stHbzE9cptymw",
    "proofs": [
        "2yv83nketEUfwKPtCNAxz4fVqTxMUWpWuxAz4kQXsxFnJkjX5cok8fxBp2M5P3S1sEW73L3SjSXgBA8Agmp6zZid"
    ],
    "script": "base64:BwIZCAISAwoBCBIECgICGBIECgICGBIECgICGCEACXNlcGFyYXRvcgICX18AC3dhdmVzU3RyaW5nAgVXQVZFUwAQY29udHJhY3RGaWxlbmFtZQIXbWVtZV9pbV9jYWxjdWxhdG9yLnJpZGUABW11bHQ4AIDC1y8BB3dyYXBFcnIBAXMJAKwCAgkArAICBRBjb250cmFjdEZpbGVuYW1lAgI6IAUBcwEIdGhyb3dFcnIBAXMJAAIBCQEHd3JhcEVycgEFAXMBD3ZhbGlkYXRlQWRkcmVzcwEHYWRkcmVzcwkBCWlzRGVmaW5lZAEJAKYIAQUHYWRkcmVzcwAMU1RBVFVTX0VNUFRZAAAADFNUQVRVU19SRUFEWQABAAlrU2h1dGRvd24CDnNodXRkb3duX19mbGFnAAtrUHJpY2VBc3NldAIMcHJpY2VfX2Fzc2V0AA5rTGlzdGluZ1ZvbHVtZQIPbGlzdGluZ19fdm9sdW1lABFrUG9vbENvbnRyYWN0SGFzaAIUcG9vbF9fY29udHJhY3RfX2hhc2gAE2tMYXN0RW1wdHlQb29sSW5kZXgCF2xhc3RfX2VtcHR5X3Bvb2xfX2luZGV4ABRrRmlyc3RFbXB0eVBvb2xJbmRleAIZZmlyc3RfX2VtcHR5X19wb29sX19pbmRleAEVa1Bvb2xBZGRyZXNzRnJvbUluZGV4AQVpbmRleAkAuQkCCQDMCAICBHBvb2wJAMwIAgkApAMBBQVpbmRleAUDbmlsBQlzZXBhcmF0b3IBFWtQb29sSW5kZXhGcm9tQWRkcmVzcwEHYWRkcmVzcwkAuQkCCQDMCAICBHBvb2wJAMwIAgkApQgBBQdhZGRyZXNzBQNuaWwFCXNlcGFyYXRvcgEKa1Bvb2xBc3NldAEHYWRkcmVzcwkAuQkCCQDMCAICBWFzc2V0CQDMCAIJAKUIAQUHYWRkcmVzcwUDbmlsBQlzZXBhcmF0b3IBC2tQb29sU3RhdHVzAQVpbmRleAkAuQkCCQDMCAICBHBvb2wJAMwIAgIGc3RhdHVzCQDMCAIJAKQDAQUFaW5kZXgFA25pbAUJc2VwYXJhdG9yAA9rRmFjdG9yeUFkZHJlc3MCEGZhY3RvcnlfX2FkZHJlc3MAFGZhY3RvcnlBZGRyZXNzT3B0aW9uBAckbWF0Y2gwCQCdCAIFBHRoaXMFD2tGYWN0b3J5QWRkcmVzcwMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJAKYIAQUBcwMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IADmZhY3RvcnlBZGRyZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIFFGZhY3RvcnlBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECF2ludmFsaWQgZmFjdG9yeSBhZGRyZXNzAAhzaHV0ZG93bgkBC3ZhbHVlT3JFbHNlAgkAmwgCBQ5mYWN0b3J5QWRkcmVzcwUJa1NodXRkb3duBwAObGFzdEVtcHR5SW5kZXgJAQt2YWx1ZU9yRWxzZQIJAJoIAgUOZmFjdG9yeUFkZHJlc3MFE2tMYXN0RW1wdHlQb29sSW5kZXgAAAAPZmlyc3RFbXB0eUluZGV4CQELdmFsdWVPckVsc2UCCQCaCAIFDmZhY3RvcnlBZGRyZXNzBRRrRmlyc3RFbXB0eVBvb2xJbmRleAAAAA1saXN0aW5nVm9sdW1lCQELdmFsdWVPckVsc2UCCQCaCAIFDmZhY3RvcnlBZGRyZXNzBQ5rTGlzdGluZ1ZvbHVtZQAAAQxwYXJzZUFzc2V0SWQBBWlucHV0AwkAAAIFBWlucHV0BQt3YXZlc1N0cmluZwUEdW5pdAkA2QQBBQVpbnB1dAEPYXNzZXRJZFRvU3RyaW5nAQVpbnB1dAMJAAACBQVpbnB1dAUEdW5pdAULd2F2ZXNTdHJpbmcJANgEAQkBBXZhbHVlAQUFaW5wdXQBC211c3RBZGRyZXNzAgZjYWxsZXIHYWRkcmVzcwMJAAACBQZjYWxsZXIFB2FkZHJlc3MGCQEIdGhyb3dFcnIBAhFwZXJtaXNzaW9uIGRlbmllZAEIbXVzdFRoaXMBBmNhbGxlcgkBC211c3RBZGRyZXNzAgUGY2FsbGVyBQR0aGlzAQttdXN0RmFjdG9yeQEGY2FsbGVyCQELbXVzdEFkZHJlc3MCBQZjYWxsZXIFDmZhY3RvcnlBZGRyZXNzARBwb29sQ29udHJhY3RIYXNoAAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFDmZhY3RvcnlBZGRyZXNzBRFrUG9vbENvbnRyYWN0SGFzaAkBB3dyYXBFcnIBAiRwb29sIGNvbnRyYWN0IHNjcmlwdCBoYXNoIGlzIG5vdCBzZXQBDGlzUG9vbEV4aXN0cwELcG9vbEFkZHJlc3MJAQlpc0RlZmluZWQBCQCaCAIFDmZhY3RvcnlBZGRyZXNzCQEVa1Bvb2xJbmRleEZyb21BZGRyZXNzAQULcG9vbEFkZHJlc3MEAWkBBGluaXQBEWZhY3RvcnlBZGRyZXNzU3RyBAtjaGVja0NhbGxlcgkBCG11c3RUaGlzAQgFAWkGY2FsbGVyAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCBQ9rRmFjdG9yeUFkZHJlc3MFEWZhY3RvcnlBZGRyZXNzU3RyBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEMYWRkRW1wdHlQb29sAg9jYWxsZXJQdWJsaWNLZXkEYXJncwQObmV3UG9vbEFkZHJlc3MJAKcIAQUPY2FsbGVyUHVibGljS2V5BAxuZXdQb29sSW5kZXgJAGQCBQ5sYXN0RW1wdHlJbmRleAABBAZjaGVja3MJAMwIAgMJAQEhAQUIc2h1dGRvd24GCQEIdGhyb3dFcnIBAhZub3QgYWxsb3dlZCAoc2h1dGRvd24pCQDMCAIDCQEBIQEJAQxpc1Bvb2xFeGlzdHMBBQ5uZXdQb29sQWRkcmVzcwYJAQh0aHJvd0VycgECInBvb2wgYWRkcmVzcyBpcyBhbHJlYWR5IHJlZ2lzdGVyZWQFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBQ5mYWN0b3J5QWRkcmVzcwIMaW50ZWdlckVudHJ5CQDMCAIFE2tMYXN0RW1wdHlQb29sSW5kZXgJAMwIAgUMbmV3UG9vbEluZGV4BQNuaWwFA25pbAkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAgtzdHJpbmdFbnRyeQkAzAgCCQEVa1Bvb2xBZGRyZXNzRnJvbUluZGV4AQUMbmV3UG9vbEluZGV4CQDMCAIJAKUIAQUObmV3UG9vbEFkZHJlc3MFA25pbAUDbmlsCQDMCAIJAPwHBAUOZmFjdG9yeUFkZHJlc3MCDGludGVnZXJFbnRyeQkAzAgCCQEVa1Bvb2xJbmRleEZyb21BZGRyZXNzAQUObmV3UG9vbEFkZHJlc3MJAMwIAgUMbmV3UG9vbEluZGV4BQNuaWwFA25pbAkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAgxpbnRlZ2VyRW50cnkJAMwIAgkBC2tQb29sU3RhdHVzAQUMbmV3UG9vbEluZGV4CQDMCAIFDFNUQVRVU19FTVBUWQUDbmlsBQNuaWwFA25pbAkAlAoCBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCmNyZWF0ZVBvb2wCD2NhbGxlclB1YmxpY0tleQRhcmdzBAZjaGVja3MJAMwIAgMJAQEhAQUIc2h1dGRvd24GCQEIdGhyb3dFcnIBAhZub3QgYWxsb3dlZCAoc2h1dGRvd24pCQDMCAIJAQttdXN0RmFjdG9yeQEIBQFpBmNhbGxlcgkAzAgCAwkAZgIJAGUCBQ5sYXN0RW1wdHlJbmRleAUPZmlyc3RFbXB0eUluZGV4AAAGCQEIdGhyb3dFcnIBAhhubyBlbXB0eSBwb29scyBhdmFpbGFibGUJAMwIAgMJAAACCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFBHVuaXQGCQEIdGhyb3dFcnIBAhpwYXltZW50IHNob3VsZCBiZSBpbiBXQVZFUwkAzAgCAwkAZgIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQ1saXN0aW5nVm9sdW1lBgkBCHRocm93RXJyAQI0cGF5bWVudCBhbW91bnQgc2hvdWxkIGJlIGdyZWF0ZXIgdGhhbiBsaXN0aW5nIHZvbHVtZQkAzAgCAwkBCWlzRGVmaW5lZAEJAJEDAgUEYXJncwAABgkBCHRocm93RXJyAQIZdG9rZW5OYW1lIGlzIG5vdCBwcm92aWRlZAkAzAgCAwkBCWlzRGVmaW5lZAEJAJEDAgUEYXJncwABBgkBCHRocm93RXJyAQIgdG9rZW5EZXNjcmlwdGlvbiBpcyBub3QgcHJvdmlkZWQJAMwIAgMJAQlpc0RlZmluZWQBCQCRAwIFBGFyZ3MAAgYJAQh0aHJvd0VycgECHXRva2VuUXVhbnRpdHkgaXMgbm90IHByb3ZpZGVkBQNuaWwDCQAAAgUGY2hlY2tzBQZjaGVja3MECXBvb2xJbmRleAkAZAIFD2ZpcnN0RW1wdHlJbmRleAABBBFwb29sQWRkcmVzc1N0cmluZwkBEUBleHRyTmF0aXZlKDEwNTMpAgUOZmFjdG9yeUFkZHJlc3MJARVrUG9vbEFkZHJlc3NGcm9tSW5kZXgBBQlwb29sSW5kZXgEC3Bvb2xBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBBRFwb29sQWRkcmVzc1N0cmluZwQNY2FsbGVyQWRkcmVzcwkApwgBBQ9jYWxsZXJQdWJsaWNLZXkECnBvb2xEb21haW4JAK8CAgURcG9vbEFkZHJlc3NTdHJpbmcACAQJcG9vbE93bmVyCQClCAEFDWNhbGxlckFkZHJlc3MECXRva2VuTmFtZQkAkQMCBQRhcmdzAAAECXRva2VuRGVzYwkAkQMCBQRhcmdzAAEEDXRva2VuUXVhbnRpdHkJAJEDAgUEYXJncwACBA5pbml0UG9vbEludm9rZQkA/AcEBQ5mYWN0b3J5QWRkcmVzcwIOaW5pdFBvb2xJbnZva2UJAMwIAgURcG9vbEFkZHJlc3NTdHJpbmcJAMwIAgkAzAgCBQpwb29sRG9tYWluCQDMCAIFCXBvb2xPd25lcgkAzAgCBQl0b2tlbk5hbWUJAMwIAgUJdG9rZW5EZXNjCQDMCAIFDXRva2VuUXVhbnRpdHkFA25pbAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQNuaWwDCQAAAgUOaW5pdFBvb2xJbnZva2UFDmluaXRQb29sSW52b2tlBA5mYWN0b3J5QWN0aW9ucwkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAgxpbnRlZ2VyRW50cnkJAMwIAgUUa0ZpcnN0RW1wdHlQb29sSW5kZXgJAMwIAgUJcG9vbEluZGV4BQNuaWwFA25pbAkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAgxpbnRlZ2VyRW50cnkJAMwIAgkBC2tQb29sU3RhdHVzAQUJcG9vbEluZGV4CQDMCAIFDFNUQVRVU19SRUFEWQUDbmlsBQNuaWwFA25pbAkAlAoCBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEm5vdGlmeVN0YXR1c1VwZGF0ZQIPY2FsbGVyUHVibGljS2V5BGFyZ3MEC3Bvb2xBZGRyZXNzCQCnCAEFD2NhbGxlclB1YmxpY0tleQQGY2hlY2tzCQDMCAIDCQEMaXNQb29sRXhpc3RzAQULcG9vbEFkZHJlc3MGCQEIdGhyb3dFcnIBAg5wb29sIG5vdCBmb3VuZAUDbmlsAwkAAAIFBmNoZWNrcwUGY2hlY2tzBAlwb29sSW5kZXgJARFAZXh0ck5hdGl2ZSgxMDUwKQIFDmZhY3RvcnlBZGRyZXNzCQEVa1Bvb2xJbmRleEZyb21BZGRyZXNzAQULcG9vbEFkZHJlc3MECW5ld1N0YXR1cwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBGFyZ3MAAAQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBQ5mYWN0b3J5QWRkcmVzcwIMaW50ZWdlckVudHJ5CQDMCAIJAQtrUG9vbFN0YXR1cwEFCXBvb2xJbmRleAkAzAgCBQluZXdTdGF0dXMFA25pbAUDbmlsBQNuaWwJAJQKAgUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAECdqF",
    "height": 3321827,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: BqMAkFU9AWozCyNuz8h8rFKcT3e2vpdScyn3RTyYf9aE
Next: none

Diff: 
Old
New
Differences
94
94
 
func L () = valueOrErrorMessage(getBinary(z, o), e("pool contract script hash is not set"))
95
95
 
96
96
 
97
-
@Callable(M)
98
-
func init (N) = {
99
-
    let O = J(M.caller)
100
-
    if ((O == O))
101
-
        then [StringEntry(w, N)]
97
+
func M (N) = isDefined(getInteger(z, t(N)))
98
+
99
+
100
+
@Callable(O)
101
+
func init (P) = {
102
+
    let Q = J(O.caller)
103
+
    if ((Q == Q))
104
+
        then [StringEntry(w, P)]
102
105
 
        else throw("Strict value is not equal to itself.")
103
106
 
    }
104
107
 
105
108
 
106
109
 
107
-
@Callable(M)
108
-
func addEmptyPool (P,Q) = {
109
-
    let R = addressFromPublicKey(P)
110
-
    let S = (B + 1)
111
-
    let T = [if (!(A))
110
+
@Callable(O)
111
+
func addEmptyPool (R,S) = {
112
+
    let T = addressFromPublicKey(R)
113
+
    let U = (B + 1)
114
+
    let V = [if (!(A))
112
115
 
        then true
113
-
        else g("not allowed (shutdown)"), if (!(isDefined(getInteger(z, t(R)))))
116
+
        else g("not allowed (shutdown)"), if (!(M(T)))
114
117
 
        then true
115
118
 
        else g("pool address is already registered")]
116
-
    if ((T == T))
119
+
    if ((V == V))
117
120
 
        then {
118
-
            let U = [invoke(z, "integerEntry", [p, S], nil), invoke(z, "stringEntry", [r(S), toString(R)], nil), invoke(z, "integerEntry", [t(R), S], nil), invoke(z, "integerEntry", [v(S), j], nil)]
119
-
            $Tuple2(nil, U)
121
+
            let W = [invoke(z, "integerEntry", [p, U], nil), invoke(z, "stringEntry", [r(U), toString(T)], nil), invoke(z, "integerEntry", [t(T), U], nil), invoke(z, "integerEntry", [v(U), j], nil)]
122
+
            $Tuple2(nil, W)
120
123
 
            }
121
124
 
        else throw("Strict value is not equal to itself.")
122
125
 
    }
123
126
 
124
127
 
125
128
 
126
-
@Callable(M)
127
-
func createPool (P,Q) = {
128
-
    let T = [if (!(A))
129
+
@Callable(O)
130
+
func createPool (R,S) = {
131
+
    let V = [if (!(A))
129
132
 
        then true
130
-
        else g("not allowed (shutdown)"), K(M.caller), if (((B - C) > 0))
133
+
        else g("not allowed (shutdown)"), K(O.caller), if (((B - C) > 0))
131
134
 
        then true
132
-
        else g("no empty pools available"), if ((M.payments[0].assetId == unit))
135
+
        else g("no empty pools available"), if ((O.payments[0].assetId == unit))
133
136
 
        then true
134
-
        else g("payment should be in WAVES"), if ((M.payments[0].amount > D))
137
+
        else g("payment should be in WAVES"), if ((O.payments[0].amount > D))
135
138
 
        then true
136
-
        else g("payment amount should be greater than listing volume"), if (isDefined(Q[0]))
139
+
        else g("payment amount should be greater than listing volume"), if (isDefined(S[0]))
137
140
 
        then true
138
-
        else g("tokenName is not provided"), if (isDefined(Q[1]))
141
+
        else g("tokenName is not provided"), if (isDefined(S[1]))
139
142
 
        then true
140
-
        else g("tokenDescription is not provided"), if (isDefined(Q[2]))
143
+
        else g("tokenDescription is not provided"), if (isDefined(S[2]))
141
144
 
        then true
142
145
 
        else g("tokenQuantity is not provided")]
143
-
    if ((T == T))
146
+
    if ((V == V))
144
147
 
        then {
145
-
            let V = (C + 1)
146
-
            let W = getStringValue(z, r(V))
147
-
            let X = addressFromStringValue(W)
148
-
            let Y = addressFromPublicKey(P)
149
-
            let Z = take(W, 8)
150
-
            let aa = toString(Y)
151
-
            let ab = Q[0]
152
-
            let ac = Q[1]
153
-
            let ad = Q[2]
154
-
            let ae = invoke(z, "initPoolInvoke", [W, [Z, aa, ab, ac, ad]], [AttachedPayment(M.payments[0].assetId, M.payments[0].amount)])
155
-
            if ((ae == ae))
148
+
            let X = (C + 1)
149
+
            let Y = getStringValue(z, r(X))
150
+
            let N = addressFromStringValue(Y)
151
+
            let Z = addressFromPublicKey(R)
152
+
            let aa = take(Y, 8)
153
+
            let ab = toString(Z)
154
+
            let ac = S[0]
155
+
            let ad = S[1]
156
+
            let ae = S[2]
157
+
            let af = invoke(z, "initPoolInvoke", [Y, [aa, ab, ac, ad, ae]], [AttachedPayment(O.payments[0].assetId, O.payments[0].amount)])
158
+
            if ((af == af))
156
159
 
                then {
157
-
                    let U = [invoke(z, "integerEntry", [q, V], nil), invoke(z, "integerEntry", [v(V), k], nil)]
158
-
                    $Tuple2(nil, U)
160
+
                    let W = [invoke(z, "integerEntry", [q, X], nil), invoke(z, "integerEntry", [v(X), k], nil)]
161
+
                    $Tuple2(nil, W)
159
162
 
                    }
160
163
 
                else throw("Strict value is not equal to itself.")
164
+
            }
165
+
        else throw("Strict value is not equal to itself.")
166
+
    }
167
+
168
+
169
+
170
+
@Callable(O)
171
+
func notifyStatusUpdate (R,S) = {
172
+
    let N = addressFromPublicKey(R)
173
+
    let V = [if (M(N))
174
+
        then true
175
+
        else g("pool not found")]
176
+
    if ((V == V))
177
+
        then {
178
+
            let X = getIntegerValue(z, t(N))
179
+
            let ag = parseIntValue(S[0])
180
+
            let W = [invoke(z, "integerEntry", [v(X), ag], nil)]
181
+
            $Tuple2(nil, W)
161
182
 
            }
162
183
 
        else throw("Strict value is not equal to itself.")
163
184
 
    }
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 7 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let a = "__"
5
5
 
6
6
 
let b = "WAVES"
7
7
 
8
8
 
let c = "meme_im_calculator.ride"
9
9
 
10
10
 
let d = 100000000
11
11
 
12
12
 
func e (f) = ((c + ": ") + f)
13
13
 
14
14
 
15
15
 
func g (f) = throw(e(f))
16
16
 
17
17
 
18
18
 
func h (i) = isDefined(addressFromString(i))
19
19
 
20
20
 
21
21
 
let j = 0
22
22
 
23
23
 
let k = 1
24
24
 
25
25
 
let l = "shutdown__flag"
26
26
 
27
27
 
let m = "price__asset"
28
28
 
29
29
 
let n = "listing__volume"
30
30
 
31
31
 
let o = "pool__contract__hash"
32
32
 
33
33
 
let p = "last__empty_pool__index"
34
34
 
35
35
 
let q = "first__empty__pool__index"
36
36
 
37
37
 
func r (s) = makeString(["pool", toString(s)], a)
38
38
 
39
39
 
40
40
 
func t (i) = makeString(["pool", toString(i)], a)
41
41
 
42
42
 
43
43
 
func u (i) = makeString(["asset", toString(i)], a)
44
44
 
45
45
 
46
46
 
func v (s) = makeString(["pool", "status", toString(s)], a)
47
47
 
48
48
 
49
49
 
let w = "factory__address"
50
50
 
51
51
 
let x = {
52
52
 
    let y = getString(this, w)
53
53
 
    if ($isInstanceOf(y, "String"))
54
54
 
        then {
55
55
 
            let f = y
56
56
 
            addressFromString(f)
57
57
 
            }
58
58
 
        else if ($isInstanceOf(y, "Unit"))
59
59
 
            then unit
60
60
 
            else throw("Match error")
61
61
 
    }
62
62
 
63
63
 
let z = valueOrErrorMessage(x, e("invalid factory address"))
64
64
 
65
65
 
let A = valueOrElse(getBoolean(z, l), false)
66
66
 
67
67
 
let B = valueOrElse(getInteger(z, p), 0)
68
68
 
69
69
 
let C = valueOrElse(getInteger(z, q), 0)
70
70
 
71
71
 
let D = valueOrElse(getInteger(z, n), 0)
72
72
 
73
73
 
func E (F) = if ((F == b))
74
74
 
    then unit
75
75
 
    else fromBase58String(F)
76
76
 
77
77
 
78
78
 
func G (F) = if ((F == unit))
79
79
 
    then b
80
80
 
    else toBase58String(value(F))
81
81
 
82
82
 
83
83
 
func H (I,i) = if ((I == i))
84
84
 
    then true
85
85
 
    else g("permission denied")
86
86
 
87
87
 
88
88
 
func J (I) = H(I, this)
89
89
 
90
90
 
91
91
 
func K (I) = H(I, z)
92
92
 
93
93
 
94
94
 
func L () = valueOrErrorMessage(getBinary(z, o), e("pool contract script hash is not set"))
95
95
 
96
96
 
97
-
@Callable(M)
98
-
func init (N) = {
99
-
    let O = J(M.caller)
100
-
    if ((O == O))
101
-
        then [StringEntry(w, N)]
97
+
func M (N) = isDefined(getInteger(z, t(N)))
98
+
99
+
100
+
@Callable(O)
101
+
func init (P) = {
102
+
    let Q = J(O.caller)
103
+
    if ((Q == Q))
104
+
        then [StringEntry(w, P)]
102
105
 
        else throw("Strict value is not equal to itself.")
103
106
 
    }
104
107
 
105
108
 
106
109
 
107
-
@Callable(M)
108
-
func addEmptyPool (P,Q) = {
109
-
    let R = addressFromPublicKey(P)
110
-
    let S = (B + 1)
111
-
    let T = [if (!(A))
110
+
@Callable(O)
111
+
func addEmptyPool (R,S) = {
112
+
    let T = addressFromPublicKey(R)
113
+
    let U = (B + 1)
114
+
    let V = [if (!(A))
112
115
 
        then true
113
-
        else g("not allowed (shutdown)"), if (!(isDefined(getInteger(z, t(R)))))
116
+
        else g("not allowed (shutdown)"), if (!(M(T)))
114
117
 
        then true
115
118
 
        else g("pool address is already registered")]
116
-
    if ((T == T))
119
+
    if ((V == V))
117
120
 
        then {
118
-
            let U = [invoke(z, "integerEntry", [p, S], nil), invoke(z, "stringEntry", [r(S), toString(R)], nil), invoke(z, "integerEntry", [t(R), S], nil), invoke(z, "integerEntry", [v(S), j], nil)]
119
-
            $Tuple2(nil, U)
121
+
            let W = [invoke(z, "integerEntry", [p, U], nil), invoke(z, "stringEntry", [r(U), toString(T)], nil), invoke(z, "integerEntry", [t(T), U], nil), invoke(z, "integerEntry", [v(U), j], nil)]
122
+
            $Tuple2(nil, W)
120
123
 
            }
121
124
 
        else throw("Strict value is not equal to itself.")
122
125
 
    }
123
126
 
124
127
 
125
128
 
126
-
@Callable(M)
127
-
func createPool (P,Q) = {
128
-
    let T = [if (!(A))
129
+
@Callable(O)
130
+
func createPool (R,S) = {
131
+
    let V = [if (!(A))
129
132
 
        then true
130
-
        else g("not allowed (shutdown)"), K(M.caller), if (((B - C) > 0))
133
+
        else g("not allowed (shutdown)"), K(O.caller), if (((B - C) > 0))
131
134
 
        then true
132
-
        else g("no empty pools available"), if ((M.payments[0].assetId == unit))
135
+
        else g("no empty pools available"), if ((O.payments[0].assetId == unit))
133
136
 
        then true
134
-
        else g("payment should be in WAVES"), if ((M.payments[0].amount > D))
137
+
        else g("payment should be in WAVES"), if ((O.payments[0].amount > D))
135
138
 
        then true
136
-
        else g("payment amount should be greater than listing volume"), if (isDefined(Q[0]))
139
+
        else g("payment amount should be greater than listing volume"), if (isDefined(S[0]))
137
140
 
        then true
138
-
        else g("tokenName is not provided"), if (isDefined(Q[1]))
141
+
        else g("tokenName is not provided"), if (isDefined(S[1]))
139
142
 
        then true
140
-
        else g("tokenDescription is not provided"), if (isDefined(Q[2]))
143
+
        else g("tokenDescription is not provided"), if (isDefined(S[2]))
141
144
 
        then true
142
145
 
        else g("tokenQuantity is not provided")]
143
-
    if ((T == T))
146
+
    if ((V == V))
144
147
 
        then {
145
-
            let V = (C + 1)
146
-
            let W = getStringValue(z, r(V))
147
-
            let X = addressFromStringValue(W)
148
-
            let Y = addressFromPublicKey(P)
149
-
            let Z = take(W, 8)
150
-
            let aa = toString(Y)
151
-
            let ab = Q[0]
152
-
            let ac = Q[1]
153
-
            let ad = Q[2]
154
-
            let ae = invoke(z, "initPoolInvoke", [W, [Z, aa, ab, ac, ad]], [AttachedPayment(M.payments[0].assetId, M.payments[0].amount)])
155
-
            if ((ae == ae))
148
+
            let X = (C + 1)
149
+
            let Y = getStringValue(z, r(X))
150
+
            let N = addressFromStringValue(Y)
151
+
            let Z = addressFromPublicKey(R)
152
+
            let aa = take(Y, 8)
153
+
            let ab = toString(Z)
154
+
            let ac = S[0]
155
+
            let ad = S[1]
156
+
            let ae = S[2]
157
+
            let af = invoke(z, "initPoolInvoke", [Y, [aa, ab, ac, ad, ae]], [AttachedPayment(O.payments[0].assetId, O.payments[0].amount)])
158
+
            if ((af == af))
156
159
 
                then {
157
-
                    let U = [invoke(z, "integerEntry", [q, V], nil), invoke(z, "integerEntry", [v(V), k], nil)]
158
-
                    $Tuple2(nil, U)
160
+
                    let W = [invoke(z, "integerEntry", [q, X], nil), invoke(z, "integerEntry", [v(X), k], nil)]
161
+
                    $Tuple2(nil, W)
159
162
 
                    }
160
163
 
                else throw("Strict value is not equal to itself.")
164
+
            }
165
+
        else throw("Strict value is not equal to itself.")
166
+
    }
167
+
168
+
169
+
170
+
@Callable(O)
171
+
func notifyStatusUpdate (R,S) = {
172
+
    let N = addressFromPublicKey(R)
173
+
    let V = [if (M(N))
174
+
        then true
175
+
        else g("pool not found")]
176
+
    if ((V == V))
177
+
        then {
178
+
            let X = getIntegerValue(z, t(N))
179
+
            let ag = parseIntValue(S[0])
180
+
            let W = [invoke(z, "integerEntry", [v(X), ag], nil)]
181
+
            $Tuple2(nil, W)
161
182
 
            }
162
183
 
        else throw("Strict value is not equal to itself.")
163
184
 
    }
164
185
 
165
186
 

github/deemru/w8io/c3f4982 
37.12 ms ◑