tx · 4QminhoBAofTFZuM5EpL5DT94JLjcqfyTaeEiVYHBV4u

3PRAEZqBjrUDaDvv45HGWPb94DhD6UuZfWg:  -0.00600000 Waves

2023.09.19 13:44 [3827950] smart account 3PRAEZqBjrUDaDvv45HGWPb94DhD6UuZfWg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4QminhoBAofTFZuM5EpL5DT94JLjcqfyTaeEiVYHBV4u",
    "fee": 600000,
    "feeAssetId": null,
    "timestamp": 1695120304138,
    "version": 1,
    "sender": "3PRAEZqBjrUDaDvv45HGWPb94DhD6UuZfWg",
    "senderPublicKey": "DWfBoSph5SQ9fuKvBjSecymWnfmRnBFh9FYg2QEV6bwS",
    "proofs": [
        "2kyA8cV9cZB3EbYqi7F8vJvDVbfyfdzboG8ECtereShLxixSFFzFGCS5DSgVdw8Vx1EKzAKEeiaPFuAxpVZhCJbv"
    ],
    "script": "base64:BgIXCAISBAoCCAESBgoECAEBBBIDCgEIEgAWABJjb25maWdBZGRyZXNzU3RvcmUCBmNvbmZpZwANY29uZmlnQWRkcmVzcwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBRJjb25maWdBZGRyZXNzU3RvcmUCH2NoaWxkOiBjb25maWcgYWRkcmVzcyBub3QgZm91bmQCFmludmFsaWQgY29uZmlnIGFkZHJlc3MABkhFSUdIVAUGaGVpZ2h0AQ5vcEFsbG93ZWRTdG9yZQECb3AJAKwCAgkArAICAgNvcF8FAm9wAghfYWxsb3dlZAANdm90aW5nUmVzdWx0cwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ1jb25maWdBZGRyZXNzAhZjb250cmFjdF92b3RpbmdfcmVzdWx0AhlubyBjb250cmFjdF92b3RpbmdfcmVzdWx0Ah5pbnZhbGlkIGNvbnRyYWN0X3ZvdGluZ19yZXN1bHQBFXdhdmVsZXRzUGVyQmxvY2tTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhNfd2F2ZWxldHNfcGVyX2Jsb2NrARBzdGFydEhlaWdodFN0b3JlAQdhZGRyZXNzCQCsAgIFB2FkZHJlc3MCDV9zdGFydF9oZWlnaHQBDGNsYWltZWRTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhB3YXZlbGV0c19jbGFpbWVkAQ9jbGFpbWVkVVNEU3RvcmUBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIVX3dhdmVsZXRzX2NsYWltZWRfdXNkARFtYXhDbGFpbWFibGVTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhdfd2F2ZWxldHNfbWF4X2NsYWltYWJsZQEWbWF4Q2xhaW1hYmxlSXNVU0RTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAh5fd2F2ZWxldHNfbWF4X2NsYWltYWJsZV9pc191c2QACHN1bVN0b3JlAhZ3YXZlbGV0c19wZXJfYmxvY2tfc3VtAAhtYXhTdG9yZQIWd2F2ZWxldHNfcGVyX2Jsb2NrX21heAAHbWF4aW11bQkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzAhZ3YXZlbGV0c19wZXJfYmxvY2tfbWF4ALDQyVoABm9yYWNsZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAQt2YWx1ZU9yRWxzZQIJAKIIAQIGb3JhY2xlAiMzUEtrb2pLZGQ2QkJ6VGYxUlhiUVZmVURyYU5GWFhIS3pRRgIWaW52YWxpZCBvcmFjbGUgYWRkcmVzcwAOd2F2ZVByaWNlU3RvcmUJAQt2YWx1ZU9yRWxzZQIJAKIIAQIOd2F2ZS1wcmljZS1rZXkCFyVzJXNfX3ByaWNlX19XQVZFUy1VU0RUAAl3YXZlUHJpY2UJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQZvcmFjbGUFDndhdmVQcmljZVN0b3JlAiBXQVZFUyBwcmljZSBpcyBub3QgaW4gdGhlIE9yYWNsZQEKd2F2ZXNUb1VTRAEFd2F2ZXMJAGsDBQV3YXZlcwUJd2F2ZVByaWNlAMCEPQEKdXNkVG9XYXZlcwEFd2F2ZXMJAGsDBQV3YXZlcwCAwtcvBQl3YXZlUHJpY2UABm9sZFN1bQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQhzdW1TdG9yZQAAAQxhdmFpbGFibGVOb3cBAnRvBAhwZXJCbG9jawkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEVd2F2ZWxldHNQZXJCbG9ja1N0b3JlAQUCdG8AAAQFdG90YWwDCQAAAgUIcGVyQmxvY2sAAAAABApmaXJzdEJsb2NrCQEFdmFsdWUBCQCfCAEJARBzdGFydEhlaWdodFN0b3JlAQUCdG8EBmJsb2NrcwkAZQIFBmhlaWdodAUKZmlyc3RCbG9jawkAaAIFCHBlckJsb2NrBQZibG9ja3MEDGNsYWltZWRXQVZFUwkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEMY2xhaW1lZFN0b3JlAQUCdG8AAAQJcmVzdFdhdmVzCQBlAgUFdG90YWwFDGNsYWltZWRXQVZFUwQMbWF4Q2xhaW1hYmxlCQCfCAEJARFtYXhDbGFpbWFibGVTdG9yZQEFAnRvAwkBCWlzRGVmaW5lZAEFDG1heENsYWltYWJsZQQRbWF4Q2xhaW1hYmxlVmFsdWUJAQV2YWx1ZQEFDG1heENsYWltYWJsZQMJAQt2YWx1ZU9yRWxzZQIJAKAIAQkBFm1heENsYWltYWJsZUlzVVNEU3RvcmUBBQJ0bwcECmNsYWltZWRVU0QJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBD2NsYWltZWRVU0RTdG9yZQEFAnRvCQEKd2F2ZXNUb1VTRAEFDGNsYWltZWRXQVZFUwQHcmVzdFVTRAkAZQIFEW1heENsYWltYWJsZVZhbHVlBQpjbGFpbWVkVVNEBA5yZXN0VXNkSW5XYXZlcwkBCnVzZFRvV2F2ZXMBBQdyZXN0VVNECQCXAwEJAMwIAgUOcmVzdFVzZEluV2F2ZXMJAMwIAgUJcmVzdFdhdmVzBQNuaWwEBWdyYW50CQCXAwEJAMwIAgUFdG90YWwJAMwIAgURbWF4Q2xhaW1hYmxlVmFsdWUFA25pbAkAZQIFBWdyYW50BQxjbGFpbWVkV0FWRVMFCXJlc3RXYXZlcwETc2V0U2NoZWR1bGVJbnRlcm5hbAUCdG8Qd2F2ZWxldHNQZXJCbG9jawxtYXhDbGFpbWFibGURaXNNYXhDbGFpbWFibGVVU0QDc3VtBANhZHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBBQJ0bwkArAICAhFpbnZhbGlkIGFkZHJlc3M6IAUCdG8DCQAAAgUDYWRyBQNhZHIDCQBmAgAABRB3YXZlbGV0c1BlckJsb2NrCQACAQIfd2F2ZWxldHNQZXJCbG9jayBzaG91bGQgYmUgPj0gMAQNcGVyQmxvY2tTdG9yZQkBFXdhdmVsZXRzUGVyQmxvY2tTdG9yZQEFAnRvBAtvbGRQZXJCbG9jawkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ1wZXJCbG9ja1N0b3JlAAAEBm5ld1N1bQkAZAIJAGUCBQNzdW0FC29sZFBlckJsb2NrBRB3YXZlbGV0c1BlckJsb2NrBAxoZWlnaHRTdG9yZTEJARBzdGFydEhlaWdodFN0b3JlAQUCdG8EB2NsYWltZWQJAQxjbGFpbWVkU3RvcmUBBQJ0bwMJAGYCBQZuZXdTdW0FB21heGltdW0JAAIBAhBtYXhpbXVtIGV4Y2VlZGVkBBJtYXhDbGFpbWFibGVTdG9yZTEJARFtYXhDbGFpbWFibGVTdG9yZQEFAnRvBBdtYXhDbGFpbWFibGVJc1VTRFN0b3JlMQkBFm1heENsYWltYWJsZUlzVVNEU3RvcmUBBQJ0bwQRbWF4Q2xhaW1hYmxlRW50cnkDCQAAAgUMbWF4Q2xhaW1hYmxlAAAFA25pbAMJAGYCAAAFDG1heENsYWltYWJsZQkAzAgCCQELRGVsZXRlRW50cnkBBRJtYXhDbGFpbWFibGVTdG9yZTEJAMwIAgkBC0RlbGV0ZUVudHJ5AQUXbWF4Q2xhaW1hYmxlSXNVU0RTdG9yZTEFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSbWF4Q2xhaW1hYmxlU3RvcmUxBQxtYXhDbGFpbWFibGUJAMwIAgkBDEJvb2xlYW5FbnRyeQIFF21heENsYWltYWJsZUlzVVNEU3RvcmUxBRFpc01heENsYWltYWJsZVVTRAUDbmlsCQCUCgIJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUNcGVyQmxvY2tTdG9yZQUQd2F2ZWxldHNQZXJCbG9jawkAzAgCCQEMSW50ZWdlckVudHJ5AgUMaGVpZ2h0U3RvcmUxBQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIFB2NsYWltZWQJAQEtAQkBDGF2YWlsYWJsZU5vdwEFAnRvCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQhzdW1TdG9yZQUGbmV3U3VtBQNuaWwFEW1heENsYWltYWJsZUVudHJ5BQZuZXdTdW0JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EAWkBCnNldFNjZWR1bGUCAnRvEHdhdmVsZXRzUGVyQmxvY2sDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgZkZW5pZWQJARNzZXRTY2hlZHVsZUludGVybmFsBQUCdG8FEHdhdmVsZXRzUGVyQmxvY2sAAAcFBm9sZFN1bQFpAQtzZXRTY2hlZHVsZQQCdG8Qd2F2ZWxldHNQZXJCbG9jawxtYXhDbGFpbWFibGURaXNNYXhDbGFpbWFibGVVU0QDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgZkZW5pZWQJARNzZXRTY2hlZHVsZUludGVybmFsBQUCdG8FEHdhdmVsZXRzUGVyQmxvY2sFDG1heENsYWltYWJsZQURaXNNYXhDbGFpbWFibGVVU0QFBm9sZFN1bQFpARBzZXRNdWx0aVNjaGVkdWxlAQlzY2hlZHVsZXMDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgZkZW5pZWQKAQRmb2xkAgNhY2MIc2NoZWR1bGUDCQAAAgUIc2NoZWR1bGUCAAkAAgECEWludmFsaWQgc2NoZWR1bGVzBAVwYXJ0cwkAtQkCBQhzY2hlZHVsZQIBPQMJAQIhPQIJAJADAQUFcGFydHMAAgkAAgECKmludmFsaWQgZm9ybWF0OiBhZHI9d2F2ZWxldHNQZXJCbG9ja1ssbWF4XQQCdG8JAJEDAgUFcGFydHMAAAQNYmxvY2tNYXhQYXJ0cwkAtQkCCQCRAwIFBXBhcnRzAAECASwECHdhdmVsZXRzCQETdmFsdWVPckVycm9yTWVzc2FnZQIJALYJAQkAkQMCBQ1ibG9ja01heFBhcnRzAAAJAKwCAgIZaW52YWxpZCB3YXZldGV0cyBudW1iZXI6IAkAkQMCBQ1ibG9ja01heFBhcnRzAAAECyR0MDUyMTc1NTgzAwkAAAIJAJADAQUNYmxvY2tNYXhQYXJ0cwACBA1tYXhBbmRVc2RQYXJ0CQC1CQIJAJEDAgUNYmxvY2tNYXhQYXJ0cwABAgEkCQCUCgIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAtgkBCQCRAwIFDW1heEFuZFVzZFBhcnQAAAkArAICAhRpbnZhbGlkIG1heCBudW1iZXI6IAkAkQMCBQ1tYXhBbmRVc2RQYXJ0AAAJAAACCQCQAwEFDW1heEFuZFVzZFBhcnQAAgkAlAoCAAAHBAxtYXhDbGFpbWFibGUIBQskdDA1MjE3NTU4MwJfMQQRaXNNYXhDbGFpbWFibGVVU0QIBQskdDA1MjE3NTU4MwJfMgQLJHQwNTYwMTU2MzMFA2FjYwQEY21kcwgFCyR0MDU2MDE1NjMzAl8xBANzdW0IBQskdDA1NjAxNTYzMwJfMgQJYWRkcmVzc2VzCAULJHQwNTYwMTU2MzMCXzMDCQEJaXNEZWZpbmVkAQkAzwgCBQlhZGRyZXNzZXMFAnRvCQACAQkArAICAgtkdWJsaWNhdGU6IAUCdG8ECyR0MDU3MjQ1ODE5CQETc2V0U2NoZWR1bGVJbnRlcm5hbAUFAnRvBQh3YXZlbGV0cwUMbWF4Q2xhaW1hYmxlBRFpc01heENsYWltYWJsZVVTRAUDc3VtBAduZXdDbWRzCAULJHQwNTcyNDU4MTkCXzEEBm5ld1N1bQgFCyR0MDU3MjQ1ODE5Al8yCQCVCgMJAM4IAgUEY21kcwUHbmV3Q21kcwUGbmV3U3VtCQDOCAIFCWFkZHJlc3NlcwkAzAgCBQJ0bwUDbmlsBAskdDA1ODg0NTk2MAoAAiRsCQC1CQIFCXNjaGVkdWxlcwIBfAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJUKAwUDbmlsBQZvbGRTdW0FA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEZm9sZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUBARjbWRzCAULJHQwNTg4NDU5NjACXzEEA3N1bQgFCyR0MDU4ODQ1OTYwAl8yBAJ4XwgFCyR0MDU4ODQ1OTYwAl8zCQCUCgIFBGNtZHMFA3N1bQFpAQVDbGFpbQAEBXRvQWRyCAUBaQZjYWxsZXIEAnRvCQClCAEFBXRvQWRyBAFhCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ8IAQkBFXdhdmVsZXRzUGVyQmxvY2tTdG9yZQEFAnRvAhFhZGRyZXNzIG5vdCBmb3VuZAMJAAACBQFhBQFhBAZhbW91bnQJAQxhdmFpbGFibGVOb3cBBQJ0bwQHcGF5bWVudAkAlwMBCQDMCAIICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDMCAIFBmFtb3VudAUDbmlsAwkAZwIAAAUHcGF5bWVudAkAAgECEG5vdGhpbmcgdG8gY2xhaW0EDWNsYWltZWRTdG9yZTEJAQxjbGFpbWVkU3RvcmUBBQJ0bwQHY2xhaW1lZAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ1jbGFpbWVkU3RvcmUxAAAEEGNsYWltZWRVU0RTdG9yZTEJAQ9jbGFpbWVkVVNEU3RvcmUBBQJ0bwQKY2xhaW1lZFVTRAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRBjbGFpbWVkVVNEU3RvcmUxCQEKd2F2ZXNUb1VTRAEFB2NsYWltZWQECnBheW1lbnRVU0QJAQp3YXZlc1RvVVNEAQUHcGF5bWVudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQV0b0FkcgUHcGF5bWVudAUEdW5pdAkAzAgCCQEMSW50ZWdlckVudHJ5AgUNY2xhaW1lZFN0b3JlMQkAZAIFB2NsYWltZWQFB3BheW1lbnQJAMwIAgkBDEludGVnZXJFbnRyeQIFEGNsYWltZWRVU0RTdG9yZTEJAGQCBQpjbGFpbWVkVVNEBQpwYXltZW50VVNEBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4A6OaH+Q==",
    "chainId": 87,
    "height": 3827950,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FHsaor6cMeoAeY9YKV5MkHMXAFAwYu4R588EGRhMP2xK
Next: BTkwumHpjrLgh4Z7vDhiDFm6P5rfkVNPQuNXGfNd5SFS

Diff: 
Old
New
Differences
81
81
 
    }
82
82
 
83
83
 
84
-
func L (y,M,F,N,O) = if ((0 > M))
85
-
    then throw("waveletsPerBlock should be >= 0")
86
-
    else {
87
-
        let P = g(y)
88
-
        let Q = valueOrElse(getInteger(P), 0)
89
-
        let R = ((O - Q) + M)
90
-
        let S = i(y)
91
-
        let T = j(y)
92
-
        if ((R > p))
93
-
            then throw("maximum exceeded")
84
+
func L (y,M,F,N,O) = {
85
+
    let P = valueOrErrorMessage(addressFromString(y), ("invalid address: " + y))
86
+
    if ((P == P))
87
+
        then if ((0 > M))
88
+
            then throw("waveletsPerBlock should be >= 0")
94
89
 
            else {
95
-
                let U = l(y)
96
-
                let V = m(y)
97
-
                let W = if ((F == 0))
98
-
                    then nil
99
-
                    else if ((0 > F))
100
-
                        then [DeleteEntry(U), DeleteEntry(V)]
101
-
                        else [IntegerEntry(U, F), BooleanEntry(V, N)]
102
-
                $Tuple2(([IntegerEntry(P, M), IntegerEntry(S, height), IntegerEntry(T, -(x(y))), IntegerEntry(n, R)] ++ W), R)
90
+
                let Q = g(y)
91
+
                let R = valueOrElse(getInteger(Q), 0)
92
+
                let S = ((O - R) + M)
93
+
                let T = i(y)
94
+
                let U = j(y)
95
+
                if ((S > p))
96
+
                    then throw("maximum exceeded")
97
+
                    else {
98
+
                        let V = l(y)
99
+
                        let W = m(y)
100
+
                        let X = if ((F == 0))
101
+
                            then nil
102
+
                            else if ((0 > F))
103
+
                                then [DeleteEntry(V), DeleteEntry(W)]
104
+
                                else [IntegerEntry(V, F), BooleanEntry(W, N)]
105
+
                        $Tuple2(([IntegerEntry(Q, M), IntegerEntry(T, height), IntegerEntry(U, -(x(y))), IntegerEntry(n, S)] ++ X), S)
106
+
                        }
103
107
 
                }
104
-
        }
108
+
        else throw("Strict value is not equal to itself.")
109
+
    }
105
110
 
106
111
 
107
-
@Callable(X)
108
-
func setScedule (y,M) = if ((X.caller != this))
112
+
@Callable(Y)
113
+
func setScedule (y,M) = if ((Y.caller != this))
109
114
 
    then throw("denied")
110
115
 
    else L(y, M, 0, false, w)
111
116
 
112
117
 
113
118
 
114
-
@Callable(X)
115
-
func setSchedule (y,M,F,N) = if ((X.caller != this))
119
+
@Callable(Y)
120
+
func setSchedule (y,M,F,N) = if ((Y.caller != this))
116
121
 
    then throw("denied")
117
122
 
    else L(y, M, F, N, w)
118
123
 
119
124
 
120
125
 
121
-
@Callable(X)
122
-
func setMultiSchedule (Y) = if ((X.caller != this))
126
+
@Callable(Y)
127
+
func setMultiSchedule (Z) = if ((Y.caller != this))
123
128
 
    then throw("denied")
124
129
 
    else {
125
-
        func Z (aa,ab) =         if ((ab == ""))
130
+
        func aa (ab,ac) =         if ((ac == ""))
126
131
 
            then throw("invalid schedules")
127
132
 
            else {
128
-
                let ac = split(ab, "=")
129
-
                if ((size(ac) != 2))
133
+
                let ad = split(ac, "=")
134
+
                if ((size(ad) != 2))
130
135
 
                    then throw("invalid format: adr=waveletsPerBlock[,max]")
131
136
 
                    else {
132
-
                        let y = valueOrErrorMessage(addressFromString(ac[0]), ("invalid address: " + ac[0]))
133
-
                        let ad = split(ac[1], ",")
134
-
                        let ae = valueOrErrorMessage(parseInt(ad[0]), ("invalid wavetets number: " + ad[0]))
135
-
                        let af = if ((size(ad) == 2))
137
+
                        let y = ad[0]
138
+
                        let ae = split(ad[1], ",")
139
+
                        let af = valueOrErrorMessage(parseInt(ae[0]), ("invalid wavetets number: " + ae[0]))
140
+
                        let ag = if ((size(ae) == 2))
136
141
 
                            then {
137
-
                                let ag = split(ad[1], "$")
138
-
                                $Tuple2(valueOrErrorMessage(parseInt(ag[0]), ("invalid max number: " + ag[0])), (size(ag) == 2))
142
+
                                let ah = split(ae[1], "$")
143
+
                                $Tuple2(valueOrErrorMessage(parseInt(ah[0]), ("invalid max number: " + ah[0])), (size(ah) == 2))
139
144
 
                                }
140
145
 
                            else $Tuple2(0, false)
141
-
                        let F = af._1
142
-
                        let N = af._2
143
-
                        let ah = aa
144
-
                        let ai = ah._1
145
-
                        let O = ah._2
146
-
                        let aj = ah._3
147
-
                        let ak = toString(y)
148
-
                        if (isDefined(indexOf(aj, ak)))
149
-
                            then throw(("dublicate: " + ak))
146
+
                        let F = ag._1
147
+
                        let N = ag._2
148
+
                        let ai = ab
149
+
                        let aj = ai._1
150
+
                        let O = ai._2
151
+
                        let ak = ai._3
152
+
                        if (isDefined(indexOf(ak, y)))
153
+
                            then throw(("dublicate: " + y))
150
154
 
                            else {
151
-
                                let al = L(ak, ae, F, N, O)
155
+
                                let al = L(y, af, F, N, O)
152
156
 
                                let am = al._1
153
-
                                let R = al._2
154
-
                                $Tuple3((ai ++ am), R, (aj ++ [ak]))
157
+
                                let S = al._2
158
+
                                $Tuple3((aj ++ am), S, (ak ++ [y]))
155
159
 
                                }
156
160
 
                        }
157
161
 
                }
158
162
 
159
163
 
        let an = {
160
-
            let ao = split(Y, "|")
164
+
            let ao = split(Z, "|")
161
165
 
            let ap = size(ao)
162
166
 
            let aq = $Tuple3(nil, w, nil)
163
167
 
            func ar (as,at) =             if ((at >= ap))
164
168
 
                then as
165
-
                else Z(as, ao[at])
169
+
                else aa(as, ao[at])
166
170
 
167
171
 
            func au (as,at) =             if ((at >= ap))
168
172
 
                then as
170
174
 
171
175
 
            au(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(aq, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
172
176
 
            }
173
-
        let ai = an._1
177
+
        let aj = an._1
174
178
 
        let O = an._2
175
179
 
        let av = an._3
176
-
        $Tuple2(ai, O)
180
+
        $Tuple2(aj, O)
177
181
 
        }
178
182
 
179
183
 
180
184
 
181
-
@Callable(X)
185
+
@Callable(Y)
182
186
 
func Claim () = {
183
-
    let aw = X.caller
187
+
    let aw = Y.caller
184
188
 
    let y = toString(aw)
185
189
 
    let ax = valueOrErrorMessage(getInteger(g(y)), "address not found")
186
190
 
    if ((ax == ax))
191
195
 
                then throw("nothing to claim")
192
196
 
                else {
193
197
 
                    let aA = j(y)
194
-
                    let T = valueOrElse(getInteger(aA), 0)
198
+
                    let U = valueOrElse(getInteger(aA), 0)
195
199
 
                    let aB = k(y)
196
-
                    let H = valueOrElse(getInteger(aB), t(T))
200
+
                    let H = valueOrElse(getInteger(aB), t(U))
197
201
 
                    let aC = t(az)
198
-
[ScriptTransfer(aw, az, unit), IntegerEntry(aA, (T + az)), IntegerEntry(aB, (H + aC))]
202
+
[ScriptTransfer(aw, az, unit), IntegerEntry(aA, (U + az)), IntegerEntry(aB, (H + aC))]
199
203
 
                    }
200
204
 
            }
201
205
 
        else throw("Strict value is not equal to itself.")
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let a = "config"
5
5
 
6
6
 
let b = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(this, a), "child: config address not found")), "invalid config address")
7
7
 
8
8
 
let c = height
9
9
 
10
10
 
func d (e) = (("op_" + e) + "_allowed")
11
11
 
12
12
 
13
13
 
let f = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(b, "contract_voting_result"), "no contract_voting_result")), "invalid contract_voting_result")
14
14
 
15
15
 
func g (h) = (h + "_wavelets_per_block")
16
16
 
17
17
 
18
18
 
func i (h) = (h + "_start_height")
19
19
 
20
20
 
21
21
 
func j (h) = (h + "wavelets_claimed")
22
22
 
23
23
 
24
24
 
func k (h) = (h + "_wavelets_claimed_usd")
25
25
 
26
26
 
27
27
 
func l (h) = (h + "_wavelets_max_claimable")
28
28
 
29
29
 
30
30
 
func m (h) = (h + "_wavelets_max_claimable_is_usd")
31
31
 
32
32
 
33
33
 
let n = "wavelets_per_block_sum"
34
34
 
35
35
 
let o = "wavelets_per_block_max"
36
36
 
37
37
 
let p = valueOrElse(getInteger(this, "wavelets_per_block_max"), 189950000)
38
38
 
39
39
 
let q = valueOrErrorMessage(addressFromString(valueOrElse(getString("oracle"), "3PKkojKdd6BBzTf1RXbQVfUDraNFXXHKzQF")), "invalid oracle address")
40
40
 
41
41
 
let r = valueOrElse(getString("wave-price-key"), "%s%s__price__WAVES-USDT")
42
42
 
43
43
 
let s = valueOrErrorMessage(getInteger(q, r), "WAVES price is not in the Oracle")
44
44
 
45
45
 
func t (u) = fraction(u, s, 1000000)
46
46
 
47
47
 
48
48
 
func v (u) = fraction(u, 100000000, s)
49
49
 
50
50
 
51
51
 
let w = valueOrElse(getInteger(n), 0)
52
52
 
53
53
 
func x (y) = {
54
54
 
    let z = valueOrElse(getInteger(g(y)), 0)
55
55
 
    let A = if ((z == 0))
56
56
 
        then 0
57
57
 
        else {
58
58
 
            let B = value(getInteger(i(y)))
59
59
 
            let C = (height - B)
60
60
 
            (z * C)
61
61
 
            }
62
62
 
    let D = valueOrElse(getInteger(j(y)), 0)
63
63
 
    let E = (A - D)
64
64
 
    let F = getInteger(l(y))
65
65
 
    if (isDefined(F))
66
66
 
        then {
67
67
 
            let G = value(F)
68
68
 
            if (valueOrElse(getBoolean(m(y)), false))
69
69
 
                then {
70
70
 
                    let H = valueOrElse(getInteger(k(y)), t(D))
71
71
 
                    let I = (G - H)
72
72
 
                    let J = v(I)
73
73
 
                    min([J, E])
74
74
 
                    }
75
75
 
                else {
76
76
 
                    let K = min([A, G])
77
77
 
                    (K - D)
78
78
 
                    }
79
79
 
            }
80
80
 
        else E
81
81
 
    }
82
82
 
83
83
 
84
-
func L (y,M,F,N,O) = if ((0 > M))
85
-
    then throw("waveletsPerBlock should be >= 0")
86
-
    else {
87
-
        let P = g(y)
88
-
        let Q = valueOrElse(getInteger(P), 0)
89
-
        let R = ((O - Q) + M)
90
-
        let S = i(y)
91
-
        let T = j(y)
92
-
        if ((R > p))
93
-
            then throw("maximum exceeded")
84
+
func L (y,M,F,N,O) = {
85
+
    let P = valueOrErrorMessage(addressFromString(y), ("invalid address: " + y))
86
+
    if ((P == P))
87
+
        then if ((0 > M))
88
+
            then throw("waveletsPerBlock should be >= 0")
94
89
 
            else {
95
-
                let U = l(y)
96
-
                let V = m(y)
97
-
                let W = if ((F == 0))
98
-
                    then nil
99
-
                    else if ((0 > F))
100
-
                        then [DeleteEntry(U), DeleteEntry(V)]
101
-
                        else [IntegerEntry(U, F), BooleanEntry(V, N)]
102
-
                $Tuple2(([IntegerEntry(P, M), IntegerEntry(S, height), IntegerEntry(T, -(x(y))), IntegerEntry(n, R)] ++ W), R)
90
+
                let Q = g(y)
91
+
                let R = valueOrElse(getInteger(Q), 0)
92
+
                let S = ((O - R) + M)
93
+
                let T = i(y)
94
+
                let U = j(y)
95
+
                if ((S > p))
96
+
                    then throw("maximum exceeded")
97
+
                    else {
98
+
                        let V = l(y)
99
+
                        let W = m(y)
100
+
                        let X = if ((F == 0))
101
+
                            then nil
102
+
                            else if ((0 > F))
103
+
                                then [DeleteEntry(V), DeleteEntry(W)]
104
+
                                else [IntegerEntry(V, F), BooleanEntry(W, N)]
105
+
                        $Tuple2(([IntegerEntry(Q, M), IntegerEntry(T, height), IntegerEntry(U, -(x(y))), IntegerEntry(n, S)] ++ X), S)
106
+
                        }
103
107
 
                }
104
-
        }
108
+
        else throw("Strict value is not equal to itself.")
109
+
    }
105
110
 
106
111
 
107
-
@Callable(X)
108
-
func setScedule (y,M) = if ((X.caller != this))
112
+
@Callable(Y)
113
+
func setScedule (y,M) = if ((Y.caller != this))
109
114
 
    then throw("denied")
110
115
 
    else L(y, M, 0, false, w)
111
116
 
112
117
 
113
118
 
114
-
@Callable(X)
115
-
func setSchedule (y,M,F,N) = if ((X.caller != this))
119
+
@Callable(Y)
120
+
func setSchedule (y,M,F,N) = if ((Y.caller != this))
116
121
 
    then throw("denied")
117
122
 
    else L(y, M, F, N, w)
118
123
 
119
124
 
120
125
 
121
-
@Callable(X)
122
-
func setMultiSchedule (Y) = if ((X.caller != this))
126
+
@Callable(Y)
127
+
func setMultiSchedule (Z) = if ((Y.caller != this))
123
128
 
    then throw("denied")
124
129
 
    else {
125
-
        func Z (aa,ab) =         if ((ab == ""))
130
+
        func aa (ab,ac) =         if ((ac == ""))
126
131
 
            then throw("invalid schedules")
127
132
 
            else {
128
-
                let ac = split(ab, "=")
129
-
                if ((size(ac) != 2))
133
+
                let ad = split(ac, "=")
134
+
                if ((size(ad) != 2))
130
135
 
                    then throw("invalid format: adr=waveletsPerBlock[,max]")
131
136
 
                    else {
132
-
                        let y = valueOrErrorMessage(addressFromString(ac[0]), ("invalid address: " + ac[0]))
133
-
                        let ad = split(ac[1], ",")
134
-
                        let ae = valueOrErrorMessage(parseInt(ad[0]), ("invalid wavetets number: " + ad[0]))
135
-
                        let af = if ((size(ad) == 2))
137
+
                        let y = ad[0]
138
+
                        let ae = split(ad[1], ",")
139
+
                        let af = valueOrErrorMessage(parseInt(ae[0]), ("invalid wavetets number: " + ae[0]))
140
+
                        let ag = if ((size(ae) == 2))
136
141
 
                            then {
137
-
                                let ag = split(ad[1], "$")
138
-
                                $Tuple2(valueOrErrorMessage(parseInt(ag[0]), ("invalid max number: " + ag[0])), (size(ag) == 2))
142
+
                                let ah = split(ae[1], "$")
143
+
                                $Tuple2(valueOrErrorMessage(parseInt(ah[0]), ("invalid max number: " + ah[0])), (size(ah) == 2))
139
144
 
                                }
140
145
 
                            else $Tuple2(0, false)
141
-
                        let F = af._1
142
-
                        let N = af._2
143
-
                        let ah = aa
144
-
                        let ai = ah._1
145
-
                        let O = ah._2
146
-
                        let aj = ah._3
147
-
                        let ak = toString(y)
148
-
                        if (isDefined(indexOf(aj, ak)))
149
-
                            then throw(("dublicate: " + ak))
146
+
                        let F = ag._1
147
+
                        let N = ag._2
148
+
                        let ai = ab
149
+
                        let aj = ai._1
150
+
                        let O = ai._2
151
+
                        let ak = ai._3
152
+
                        if (isDefined(indexOf(ak, y)))
153
+
                            then throw(("dublicate: " + y))
150
154
 
                            else {
151
-
                                let al = L(ak, ae, F, N, O)
155
+
                                let al = L(y, af, F, N, O)
152
156
 
                                let am = al._1
153
-
                                let R = al._2
154
-
                                $Tuple3((ai ++ am), R, (aj ++ [ak]))
157
+
                                let S = al._2
158
+
                                $Tuple3((aj ++ am), S, (ak ++ [y]))
155
159
 
                                }
156
160
 
                        }
157
161
 
                }
158
162
 
159
163
 
        let an = {
160
-
            let ao = split(Y, "|")
164
+
            let ao = split(Z, "|")
161
165
 
            let ap = size(ao)
162
166
 
            let aq = $Tuple3(nil, w, nil)
163
167
 
            func ar (as,at) =             if ((at >= ap))
164
168
 
                then as
165
-
                else Z(as, ao[at])
169
+
                else aa(as, ao[at])
166
170
 
167
171
 
            func au (as,at) =             if ((at >= ap))
168
172
 
                then as
169
173
 
                else throw("List size exceeds 20")
170
174
 
171
175
 
            au(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(ar(aq, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
172
176
 
            }
173
-
        let ai = an._1
177
+
        let aj = an._1
174
178
 
        let O = an._2
175
179
 
        let av = an._3
176
-
        $Tuple2(ai, O)
180
+
        $Tuple2(aj, O)
177
181
 
        }
178
182
 
179
183
 
180
184
 
181
-
@Callable(X)
185
+
@Callable(Y)
182
186
 
func Claim () = {
183
-
    let aw = X.caller
187
+
    let aw = Y.caller
184
188
 
    let y = toString(aw)
185
189
 
    let ax = valueOrErrorMessage(getInteger(g(y)), "address not found")
186
190
 
    if ((ax == ax))
187
191
 
        then {
188
192
 
            let ay = x(y)
189
193
 
            let az = min([wavesBalance(this).available, ay])
190
194
 
            if ((0 >= az))
191
195
 
                then throw("nothing to claim")
192
196
 
                else {
193
197
 
                    let aA = j(y)
194
-
                    let T = valueOrElse(getInteger(aA), 0)
198
+
                    let U = valueOrElse(getInteger(aA), 0)
195
199
 
                    let aB = k(y)
196
-
                    let H = valueOrElse(getInteger(aB), t(T))
200
+
                    let H = valueOrElse(getInteger(aB), t(U))
197
201
 
                    let aC = t(az)
198
-
[ScriptTransfer(aw, az, unit), IntegerEntry(aA, (T + az)), IntegerEntry(aB, (H + aC))]
202
+
[ScriptTransfer(aw, az, unit), IntegerEntry(aA, (U + az)), IntegerEntry(aB, (H + aC))]
199
203
 
                    }
200
204
 
            }
201
205
 
        else throw("Strict value is not equal to itself.")
202
206
 
    }
203
207
 
204
208
 

github/deemru/w8io/3ef1775 
55.83 ms ◑