tx · DA3zoP5BzG6UaxYYQtqWdLZaQfRpDFJD9x3ocCjhRrvG

3PRAEZqBjrUDaDvv45HGWPb94DhD6UuZfWg:  -0.00600000 Waves

2023.09.19 13:10 [3827918] smart account 3PRAEZqBjrUDaDvv45HGWPb94DhD6UuZfWg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "DA3zoP5BzG6UaxYYQtqWdLZaQfRpDFJD9x3ocCjhRrvG",
    "fee": 600000,
    "feeAssetId": null,
    "timestamp": 1695118248379,
    "version": 1,
    "sender": "3PRAEZqBjrUDaDvv45HGWPb94DhD6UuZfWg",
    "senderPublicKey": "DWfBoSph5SQ9fuKvBjSecymWnfmRnBFh9FYg2QEV6bwS",
    "proofs": [
        "4gFo1LSTGe9e1uxVSqMJc1ggxm6WD3FGmWyYF3Nh8gfYWgaP1rjofGttEn8ddPwu4gY5775EEjdhQ29p58oGCn7q"
    ],
    "script": "base64:BgIXCAISBAoCCAESBgoECAEBBBIDCgEIEgAWABJjb25maWdBZGRyZXNzU3RvcmUCBmNvbmZpZwANY29uZmlnQWRkcmVzcwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBRJjb25maWdBZGRyZXNzU3RvcmUCH2NoaWxkOiBjb25maWcgYWRkcmVzcyBub3QgZm91bmQCFmludmFsaWQgY29uZmlnIGFkZHJlc3MABkhFSUdIVAUGaGVpZ2h0AQ5vcEFsbG93ZWRTdG9yZQECb3AJAKwCAgkArAICAgNvcF8FAm9wAghfYWxsb3dlZAANdm90aW5nUmVzdWx0cwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ1jb25maWdBZGRyZXNzAhZjb250cmFjdF92b3RpbmdfcmVzdWx0AhlubyBjb250cmFjdF92b3RpbmdfcmVzdWx0Ah5pbnZhbGlkIGNvbnRyYWN0X3ZvdGluZ19yZXN1bHQBFXdhdmVsZXRzUGVyQmxvY2tTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhNfd2F2ZWxldHNfcGVyX2Jsb2NrARBzdGFydEhlaWdodFN0b3JlAQdhZGRyZXNzCQCsAgIFB2FkZHJlc3MCDV9zdGFydF9oZWlnaHQBDGNsYWltZWRTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhB3YXZlbGV0c19jbGFpbWVkAQ9jbGFpbWVkVVNEU3RvcmUBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIVX3dhdmVsZXRzX2NsYWltZWRfdXNkARFtYXhDbGFpbWFibGVTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhdfd2F2ZWxldHNfbWF4X2NsYWltYWJsZQEWbWF4Q2xhaW1hYmxlSXNVU0RTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAh5fd2F2ZWxldHNfbWF4X2NsYWltYWJsZV9pc191c2QACHN1bVN0b3JlAhZ3YXZlbGV0c19wZXJfYmxvY2tfc3VtAAhtYXhTdG9yZQIWd2F2ZWxldHNfcGVyX2Jsb2NrX21heAAHbWF4aW11bQkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzAhZ3YXZlbGV0c19wZXJfYmxvY2tfbWF4ALDQyVoABm9yYWNsZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAQt2YWx1ZU9yRWxzZQIJAKIIAQIGb3JhY2xlAiMzUEtrb2pLZGQ2QkJ6VGYxUlhiUVZmVURyYU5GWFhIS3pRRgIWaW52YWxpZCBvcmFjbGUgYWRkcmVzcwAOd2F2ZVByaWNlU3RvcmUJAQt2YWx1ZU9yRWxzZQIJAKIIAQIOd2F2ZS1wcmljZS1rZXkCFyVzJXNfX3ByaWNlX19XQVZFUy1VU0RUAAl3YXZlUHJpY2UJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQZvcmFjbGUFDndhdmVQcmljZVN0b3JlAiBXQVZFUyBwcmljZSBpcyBub3QgaW4gdGhlIE9yYWNsZQEKd2F2ZXNUb1VTRAEFd2F2ZXMJAGsDBQV3YXZlcwUJd2F2ZVByaWNlAMCEPQEKdXNkVG9XYXZlcwEFd2F2ZXMJAGsDBQV3YXZlcwCAwtcvBQl3YXZlUHJpY2UABm9sZFN1bQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQhzdW1TdG9yZQAAAQxhdmFpbGFibGVOb3cBAnRvBAhwZXJCbG9jawkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEJARV3YXZlbGV0c1BlckJsb2NrU3RvcmUBBQJ0bwIRYWRkcmVzcyBub3QgZm91bmQEBXRvdGFsAwkAAAIFCHBlckJsb2NrAAAAAAQKZmlyc3RCbG9jawkBBXZhbHVlAQkAnwgBCQEQc3RhcnRIZWlnaHRTdG9yZQEFAnRvBAZibG9ja3MJAGUCBQZoZWlnaHQFCmZpcnN0QmxvY2sJAGgCBQhwZXJCbG9jawUGYmxvY2tzBAxjbGFpbWVkV0FWRVMJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBDGNsYWltZWRTdG9yZQEFAnRvAAAECXJlc3RXYXZlcwkAZQIFBXRvdGFsBQxjbGFpbWVkV0FWRVMEDG1heENsYWltYWJsZQkAnwgBCQERbWF4Q2xhaW1hYmxlU3RvcmUBBQJ0bwMJAQlpc0RlZmluZWQBBQxtYXhDbGFpbWFibGUEEW1heENsYWltYWJsZVZhbHVlCQEFdmFsdWUBBQxtYXhDbGFpbWFibGUDCQELdmFsdWVPckVsc2UCCQCgCAEJARZtYXhDbGFpbWFibGVJc1VTRFN0b3JlAQUCdG8HBApjbGFpbWVkVVNECQELdmFsdWVPckVsc2UCCQCfCAEJAQ9jbGFpbWVkVVNEU3RvcmUBBQJ0bwkBCndhdmVzVG9VU0QBBQxjbGFpbWVkV0FWRVMEB3Jlc3RVU0QJAGUCBRFtYXhDbGFpbWFibGVWYWx1ZQUKY2xhaW1lZFVTRAQOcmVzdFVzZEluV2F2ZXMJAQp1c2RUb1dhdmVzAQUHcmVzdFVTRAkAlwMBCQDMCAIFDnJlc3RVc2RJbldhdmVzCQDMCAIFCXJlc3RXYXZlcwUDbmlsBAVncmFudAkAlwMBCQDMCAIFBXRvdGFsCQDMCAIFEW1heENsYWltYWJsZVZhbHVlBQNuaWwJAGUCBQVncmFudAUMY2xhaW1lZFdBVkVTBQlyZXN0V2F2ZXMBE3NldFNjaGVkdWxlSW50ZXJuYWwFAnRvEHdhdmVsZXRzUGVyQmxvY2sMbWF4Q2xhaW1hYmxlEWlzTWF4Q2xhaW1hYmxlVVNEA3N1bQMJAGYCAAAFEHdhdmVsZXRzUGVyQmxvY2sJAAIBAh93YXZlbGV0c1BlckJsb2NrIHNob3VsZCBiZSA+PSAwBA1wZXJCbG9ja1N0b3JlCQEVd2F2ZWxldHNQZXJCbG9ja1N0b3JlAQUCdG8EC29sZFBlckJsb2NrCQELdmFsdWVPckVsc2UCCQCfCAEFDXBlckJsb2NrU3RvcmUAAAQGbmV3U3VtCQBkAgkAZQIFA3N1bQULb2xkUGVyQmxvY2sFEHdhdmVsZXRzUGVyQmxvY2sEDGhlaWdodFN0b3JlMQkBEHN0YXJ0SGVpZ2h0U3RvcmUBBQJ0bwQHY2xhaW1lZAkBDGNsYWltZWRTdG9yZQEFAnRvAwkAZgIFBm5ld1N1bQUHbWF4aW11bQkAAgECEG1heGltdW0gZXhjZWVkZWQEEm1heENsYWltYWJsZVN0b3JlMQkBEW1heENsYWltYWJsZVN0b3JlAQUCdG8EF21heENsYWltYWJsZUlzVVNEU3RvcmUxCQEWbWF4Q2xhaW1hYmxlSXNVU0RTdG9yZQEFAnRvBBFtYXhDbGFpbWFibGVFbnRyeQMJAAACBQxtYXhDbGFpbWFibGUAAAUDbmlsAwkAZgIAAAUMbWF4Q2xhaW1hYmxlCQDMCAIJAQtEZWxldGVFbnRyeQEFEm1heENsYWltYWJsZVN0b3JlMQkAzAgCCQELRGVsZXRlRW50cnkBBRdtYXhDbGFpbWFibGVJc1VTRFN0b3JlMQUDbmlsCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJtYXhDbGFpbWFibGVTdG9yZTEFDG1heENsYWltYWJsZQkAzAgCCQEMQm9vbGVhbkVudHJ5AgUXbWF4Q2xhaW1hYmxlSXNVU0RTdG9yZTEFEWlzTWF4Q2xhaW1hYmxlVVNEBQNuaWwJAJQKAgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ1wZXJCbG9ja1N0b3JlBRB3YXZlbGV0c1BlckJsb2NrCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQxoZWlnaHRTdG9yZTEFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgUHY2xhaW1lZAkBAS0BCQEMYXZhaWxhYmxlTm93AQUCdG8JAMwIAgkBDEludGVnZXJFbnRyeQIFCHN1bVN0b3JlBQZuZXdTdW0FA25pbAURbWF4Q2xhaW1hYmxlRW50cnkFBm5ld1N1bQQBaQEKc2V0U2NlZHVsZQICdG8Qd2F2ZWxldHNQZXJCbG9jawMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECBmRlbmllZAkBE3NldFNjaGVkdWxlSW50ZXJuYWwFBQJ0bwUQd2F2ZWxldHNQZXJCbG9jawAABwUGb2xkU3VtAWkBC3NldFNjaGVkdWxlBAJ0bxB3YXZlbGV0c1BlckJsb2NrDG1heENsYWltYWJsZRFpc01heENsYWltYWJsZVVTRAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECBmRlbmllZAkBE3NldFNjaGVkdWxlSW50ZXJuYWwFBQJ0bwUQd2F2ZWxldHNQZXJCbG9jawUMbWF4Q2xhaW1hYmxlBRFpc01heENsYWltYWJsZVVTRAUGb2xkU3VtAWkBEHNldE11bHRpU2NoZWR1bGUBCXNjaGVkdWxlcwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECBmRlbmllZAoBBGZvbGQCA2FjYwhzY2hlZHVsZQMJAAACBQhzY2hlZHVsZQIACQACAQIRaW52YWxpZCBzY2hlZHVsZXMEBXBhcnRzCQC1CQIFCHNjaGVkdWxlAgE9AwkBAiE9AgkAkAMBBQVwYXJ0cwACCQACAQIqaW52YWxpZCBmb3JtYXQ6IGFkcj13YXZlbGV0c1BlckJsb2NrWyxtYXhdBAJ0bwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUFcGFydHMAAAkArAICAhFpbnZhbGlkIGFkZHJlc3M6IAkAkQMCBQVwYXJ0cwAABA1ibG9ja01heFBhcnRzCQC1CQIJAJEDAgUFcGFydHMAAQIBLAQId2F2ZWxldHMJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAtgkBCQCRAwIFDWJsb2NrTWF4UGFydHMAAAkArAICAhlpbnZhbGlkIHdhdmV0ZXRzIG51bWJlcjogCQCRAwIFDWJsb2NrTWF4UGFydHMAAAQLJHQwNTIyOTU1OTUDCQAAAgkAkAMBBQ1ibG9ja01heFBhcnRzAAIEDW1heEFuZFVzZFBhcnQJALUJAgkAkQMCBQ1ibG9ja01heFBhcnRzAAECASQJAJQKAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQC2CQEJAJEDAgUNbWF4QW5kVXNkUGFydAAACQCsAgICFGludmFsaWQgbWF4IG51bWJlcjogCQCRAwIFDW1heEFuZFVzZFBhcnQAAAkAAAIJAJADAQUNbWF4QW5kVXNkUGFydAACCQCUCgIAAAcEDG1heENsYWltYWJsZQgFCyR0MDUyMjk1NTk1Al8xBBFpc01heENsYWltYWJsZVVTRAgFCyR0MDUyMjk1NTk1Al8yBAskdDA1NjEzNTY0NQUDYWNjBARjbWRzCAULJHQwNTYxMzU2NDUCXzEEA3N1bQgFCyR0MDU2MTM1NjQ1Al8yBAlhZGRyZXNzZXMIBQskdDA1NjEzNTY0NQJfMwQFdG9TdHIJAKUIAQUCdG8DCQEJaXNEZWZpbmVkAQkAzwgCBQlhZGRyZXNzZXMFBXRvU3RyCQACAQkArAICAgtkdWJsaWNhdGU6IAUFdG9TdHIECyR0MDU3NzY1ODc0CQETc2V0U2NoZWR1bGVJbnRlcm5hbAUFBXRvU3RyBQh3YXZlbGV0cwUMbWF4Q2xhaW1hYmxlBRFpc01heENsYWltYWJsZVVTRAUDc3VtBAduZXdDbWRzCAULJHQwNTc3NjU4NzQCXzEEBm5ld1N1bQgFCyR0MDU3NzY1ODc0Al8yCQCVCgMJAM4IAgUEY21kcwUHbmV3Q21kcwUGbmV3U3VtCQDOCAIFCWFkZHJlc3NlcwkAzAgCBQV0b1N0cgUDbmlsBAskdDA1OTQyNjAxOAoAAiRsCQC1CQIFCXNjaGVkdWxlcwIBfAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJUKAwUDbmlsBQZvbGRTdW0FA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEZm9sZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUBARjbWRzCAULJHQwNTk0MjYwMTgCXzEEA3N1bQgFCyR0MDU5NDI2MDE4Al8yBAJ4XwgFCyR0MDU5NDI2MDE4Al8zCQCUCgIFBGNtZHMFA3N1bQFpAQVDbGFpbQAEBXRvQWRyCAUBaQZjYWxsZXIEAnRvCQClCAEFBXRvQWRyBAZhbW91bnQJAQxhdmFpbGFibGVOb3cBBQJ0bwQHcGF5bWVudAkAlwMBCQDMCAIICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDMCAIFBmFtb3VudAUDbmlsAwkAZwIAAAUHcGF5bWVudAkAAgECEG5vdGhpbmcgdG8gY2xhaW0EDWNsYWltZWRTdG9yZTEJAQxjbGFpbWVkU3RvcmUBBQJ0bwQHY2xhaW1lZAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ1jbGFpbWVkU3RvcmUxAAAEEGNsYWltZWRVU0RTdG9yZTEJAQ9jbGFpbWVkVVNEU3RvcmUBBQJ0bwQKY2xhaW1lZFVTRAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRBjbGFpbWVkVVNEU3RvcmUxCQEKd2F2ZXNUb1VTRAEFB2NsYWltZWQECnBheW1lbnRVU0QJAQp3YXZlc1RvVVNEAQUHcGF5bWVudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQV0b0FkcgUHcGF5bWVudAUEdW5pdAkAzAgCCQEMSW50ZWdlckVudHJ5AgUNY2xhaW1lZFN0b3JlMQkAZAIFB2NsYWltZWQFB3BheW1lbnQJAMwIAgkBDEludGVnZXJFbnRyeQIFEGNsYWltZWRVU0RTdG9yZTEJAGQCBQpjbGFpbWVkVVNEBQpwYXltZW50VVNEBQNuaWwAKVc5SQ==",
    "chainId": 87,
    "height": 3827918,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7W7Lhxp1ZmDEneRwiMC4v4uNunyMbf9D65grj5kpoECo
Next: FHsaor6cMeoAeY9YKV5MkHMXAFAwYu4R588EGRhMP2xK

Diff: 
Old
New
Differences
51
51
 
let oldSum = valueOrElse(getInteger(sumStore), 0)
52
52
 
53
53
 
func availableNow (to) = {
54
-
    let perBlock = getInteger(waveletsPerBlockStore(to))
55
-
    let total = if (!(isDefined(perBlock)))
54
+
    let perBlock = valueOrErrorMessage(getInteger(waveletsPerBlockStore(to)), "address not found")
55
+
    let total = if ((perBlock == 0))
56
56
 
        then 0
57
57
 
        else {
58
58
 
            let firstBlock = value(getInteger(startHeightStore(to)))
59
59
 
            let blocks = (height - firstBlock)
60
-
            (value(perBlock) * blocks)
60
+
            (perBlock * blocks)
61
61
 
            }
62
62
 
    let claimedWAVES = valueOrElse(getInteger(claimedStore(to)), 0)
63
63
 
    let restWaves = (total - claimedWAVES)
64
64
 
    let maxClaimable = getInteger(maxClaimableStore(to))
65
65
 
    if (isDefined(maxClaimable))
66
-
        then if (valueOrElse(getBoolean(maxClaimableIsUSDStore(to)), false))
67
-
            then {
68
-
                let claimedUSD = valueOrElse(getInteger(claimedUSDStore(to)), wavesToUSD(claimedWAVES))
69
-
                let restUSD = (value(maxClaimable) - claimedUSD)
70
-
                let restUsdInWaves = usdToWaves(restUSD)
71
-
                min([restUsdInWaves, restWaves])
72
-
                }
73
-
            else {
74
-
                let grant = min([total, value(maxClaimable)])
75
-
                (grant - claimedWAVES)
76
-
                }
66
+
        then {
67
+
            let maxClaimableValue = value(maxClaimable)
68
+
            if (valueOrElse(getBoolean(maxClaimableIsUSDStore(to)), false))
69
+
                then {
70
+
                    let claimedUSD = valueOrElse(getInteger(claimedUSDStore(to)), wavesToUSD(claimedWAVES))
71
+
                    let restUSD = (maxClaimableValue - claimedUSD)
72
+
                    let restUsdInWaves = usdToWaves(restUSD)
73
+
                    min([restUsdInWaves, restWaves])
74
+
                    }
75
+
                else {
76
+
                    let grant = min([total, maxClaimableValue])
77
+
                    (grant - claimedWAVES)
78
+
                    }
79
+
            }
77
80
 
        else restWaves
78
81
 
    }
79
82
 
129
132
 
                        let to = valueOrErrorMessage(addressFromString(parts[0]), ("invalid address: " + parts[0]))
130
133
 
                        let blockMaxParts = split(parts[1], ",")
131
134
 
                        let wavelets = valueOrErrorMessage(parseInt(blockMaxParts[0]), ("invalid wavetets number: " + blockMaxParts[0]))
132
-
                        let $t051685534 = if ((size(blockMaxParts) == 2))
135
+
                        let $t052295595 = if ((size(blockMaxParts) == 2))
133
136
 
                            then {
134
137
 
                                let maxAndUsdPart = split(blockMaxParts[1], "$")
135
138
 
                                $Tuple2(valueOrErrorMessage(parseInt(maxAndUsdPart[0]), ("invalid max number: " + maxAndUsdPart[0])), (size(maxAndUsdPart) == 2))
136
139
 
                                }
137
140
 
                            else $Tuple2(0, false)
138
-
                        let maxClaimable = $t051685534._1
139
-
                        let isMaxClaimableUSD = $t051685534._2
140
-
                        let $t055525584 = acc
141
-
                        let cmds = $t055525584._1
142
-
                        let sum = $t055525584._2
143
-
                        let addresses = $t055525584._3
141
+
                        let maxClaimable = $t052295595._1
142
+
                        let isMaxClaimableUSD = $t052295595._2
143
+
                        let $t056135645 = acc
144
+
                        let cmds = $t056135645._1
145
+
                        let sum = $t056135645._2
146
+
                        let addresses = $t056135645._3
144
147
 
                        let toStr = toString(to)
145
148
 
                        if (isDefined(indexOf(addresses, toStr)))
146
149
 
                            then throw(("dublicate: " + toStr))
147
150
 
                            else {
148
-
                                let $t057155813 = setScheduleInternal(toStr, wavelets, maxClaimable, isMaxClaimableUSD, sum)
149
-
                                let newCmds = $t057155813._1
150
-
                                let newSum = $t057155813._2
151
+
                                let $t057765874 = setScheduleInternal(toStr, wavelets, maxClaimable, isMaxClaimableUSD, sum)
152
+
                                let newCmds = $t057765874._1
153
+
                                let newSum = $t057765874._2
151
154
 
                                $Tuple3((cmds ++ newCmds), newSum, (addresses ++ [toStr]))
152
155
 
                                }
153
156
 
                        }
154
157
 
                }
155
158
 
156
-
        let $t058815957 = {
159
+
        let $t059426018 = {
157
160
 
            let $l = split(schedules, "|")
158
161
 
            let $s = size($l)
159
162
 
            let $acc0 = $Tuple3(nil, oldSum, nil)
167
170
 
168
171
 
            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
169
172
 
            }
170
-
        let cmds = $t058815957._1
171
-
        let sum = $t058815957._2
172
-
        let x_ = $t058815957._3
173
+
        let cmds = $t059426018._1
174
+
        let sum = $t059426018._2
175
+
        let x_ = $t059426018._3
173
176
 
        $Tuple2(cmds, sum)
174
177
 
        }
175
178
 
179
182
 
func Claim () = {
180
183
 
    let toAdr = i.caller
181
184
 
    let to = toString(toAdr)
182
-
    let a = valueOrErrorMessage(getInteger(waveletsPerBlockStore(to)), "address not found")
183
-
    if ((a == a))
184
-
        then {
185
-
            let amount = availableNow(to)
186
-
            let payment = min([wavesBalance(this).available, amount])
187
-
            if ((0 >= payment))
188
-
                then throw("nothing to claim")
189
-
                else {
190
-
                    let claimedStore1 = claimedStore(to)
191
-
                    let claimed = valueOrElse(getInteger(claimedStore1), 0)
192
-
                    let claimedUSDStore1 = claimedUSDStore(to)
193
-
                    let claimedUSD = valueOrElse(getInteger(claimedUSDStore1), wavesToUSD(claimed))
194
-
                    let paymentUSD = wavesToUSD(payment)
185
+
    let amount = availableNow(to)
186
+
    let payment = min([wavesBalance(this).available, amount])
187
+
    if ((0 >= payment))
188
+
        then throw("nothing to claim")
189
+
        else {
190
+
            let claimedStore1 = claimedStore(to)
191
+
            let claimed = valueOrElse(getInteger(claimedStore1), 0)
192
+
            let claimedUSDStore1 = claimedUSDStore(to)
193
+
            let claimedUSD = valueOrElse(getInteger(claimedUSDStore1), wavesToUSD(claimed))
194
+
            let paymentUSD = wavesToUSD(payment)
195
195
 
[ScriptTransfer(toAdr, payment, unit), IntegerEntry(claimedStore1, (claimed + payment)), IntegerEntry(claimedUSDStore1, (claimedUSD + paymentUSD))]
196
-
                    }
197
196
 
            }
198
-
        else throw("Strict value is not equal to itself.")
199
197
 
    }
200
198
 
201
199
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let configAddressStore = "config"
5
5
 
6
6
 
let configAddress = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(this, configAddressStore), "child: config address not found")), "invalid config address")
7
7
 
8
8
 
let HEIGHT = height
9
9
 
10
10
 
func opAllowedStore (op) = (("op_" + op) + "_allowed")
11
11
 
12
12
 
13
13
 
let votingResults = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(configAddress, "contract_voting_result"), "no contract_voting_result")), "invalid contract_voting_result")
14
14
 
15
15
 
func waveletsPerBlockStore (address) = (address + "_wavelets_per_block")
16
16
 
17
17
 
18
18
 
func startHeightStore (address) = (address + "_start_height")
19
19
 
20
20
 
21
21
 
func claimedStore (address) = (address + "wavelets_claimed")
22
22
 
23
23
 
24
24
 
func claimedUSDStore (address) = (address + "_wavelets_claimed_usd")
25
25
 
26
26
 
27
27
 
func maxClaimableStore (address) = (address + "_wavelets_max_claimable")
28
28
 
29
29
 
30
30
 
func maxClaimableIsUSDStore (address) = (address + "_wavelets_max_claimable_is_usd")
31
31
 
32
32
 
33
33
 
let sumStore = "wavelets_per_block_sum"
34
34
 
35
35
 
let maxStore = "wavelets_per_block_max"
36
36
 
37
37
 
let maximum = valueOrElse(getInteger(this, "wavelets_per_block_max"), 189950000)
38
38
 
39
39
 
let oracle = valueOrErrorMessage(addressFromString(valueOrElse(getString("oracle"), "3PKkojKdd6BBzTf1RXbQVfUDraNFXXHKzQF")), "invalid oracle address")
40
40
 
41
41
 
let wavePriceStore = valueOrElse(getString("wave-price-key"), "%s%s__price__WAVES-USDT")
42
42
 
43
43
 
let wavePrice = valueOrErrorMessage(getInteger(oracle, wavePriceStore), "WAVES price is not in the Oracle")
44
44
 
45
45
 
func wavesToUSD (waves) = fraction(waves, wavePrice, 1000000)
46
46
 
47
47
 
48
48
 
func usdToWaves (waves) = fraction(waves, 100000000, wavePrice)
49
49
 
50
50
 
51
51
 
let oldSum = valueOrElse(getInteger(sumStore), 0)
52
52
 
53
53
 
func availableNow (to) = {
54
-
    let perBlock = getInteger(waveletsPerBlockStore(to))
55
-
    let total = if (!(isDefined(perBlock)))
54
+
    let perBlock = valueOrErrorMessage(getInteger(waveletsPerBlockStore(to)), "address not found")
55
+
    let total = if ((perBlock == 0))
56
56
 
        then 0
57
57
 
        else {
58
58
 
            let firstBlock = value(getInteger(startHeightStore(to)))
59
59
 
            let blocks = (height - firstBlock)
60
-
            (value(perBlock) * blocks)
60
+
            (perBlock * blocks)
61
61
 
            }
62
62
 
    let claimedWAVES = valueOrElse(getInteger(claimedStore(to)), 0)
63
63
 
    let restWaves = (total - claimedWAVES)
64
64
 
    let maxClaimable = getInteger(maxClaimableStore(to))
65
65
 
    if (isDefined(maxClaimable))
66
-
        then if (valueOrElse(getBoolean(maxClaimableIsUSDStore(to)), false))
67
-
            then {
68
-
                let claimedUSD = valueOrElse(getInteger(claimedUSDStore(to)), wavesToUSD(claimedWAVES))
69
-
                let restUSD = (value(maxClaimable) - claimedUSD)
70
-
                let restUsdInWaves = usdToWaves(restUSD)
71
-
                min([restUsdInWaves, restWaves])
72
-
                }
73
-
            else {
74
-
                let grant = min([total, value(maxClaimable)])
75
-
                (grant - claimedWAVES)
76
-
                }
66
+
        then {
67
+
            let maxClaimableValue = value(maxClaimable)
68
+
            if (valueOrElse(getBoolean(maxClaimableIsUSDStore(to)), false))
69
+
                then {
70
+
                    let claimedUSD = valueOrElse(getInteger(claimedUSDStore(to)), wavesToUSD(claimedWAVES))
71
+
                    let restUSD = (maxClaimableValue - claimedUSD)
72
+
                    let restUsdInWaves = usdToWaves(restUSD)
73
+
                    min([restUsdInWaves, restWaves])
74
+
                    }
75
+
                else {
76
+
                    let grant = min([total, maxClaimableValue])
77
+
                    (grant - claimedWAVES)
78
+
                    }
79
+
            }
77
80
 
        else restWaves
78
81
 
    }
79
82
 
80
83
 
81
84
 
func setScheduleInternal (to,waveletsPerBlock,maxClaimable,isMaxClaimableUSD,sum) = if ((0 > waveletsPerBlock))
82
85
 
    then throw("waveletsPerBlock should be >= 0")
83
86
 
    else {
84
87
 
        let perBlockStore = waveletsPerBlockStore(to)
85
88
 
        let oldPerBlock = valueOrElse(getInteger(perBlockStore), 0)
86
89
 
        let newSum = ((sum - oldPerBlock) + waveletsPerBlock)
87
90
 
        let heightStore1 = startHeightStore(to)
88
91
 
        let claimed = claimedStore(to)
89
92
 
        if ((newSum > maximum))
90
93
 
            then throw("maximum exceeded")
91
94
 
            else {
92
95
 
                let maxClaimableStore1 = maxClaimableStore(to)
93
96
 
                let maxClaimableIsUSDStore1 = maxClaimableIsUSDStore(to)
94
97
 
                let maxClaimableEntry = if ((maxClaimable == 0))
95
98
 
                    then nil
96
99
 
                    else if ((0 > maxClaimable))
97
100
 
                        then [DeleteEntry(maxClaimableStore1), DeleteEntry(maxClaimableIsUSDStore1)]
98
101
 
                        else [IntegerEntry(maxClaimableStore1, maxClaimable), BooleanEntry(maxClaimableIsUSDStore1, isMaxClaimableUSD)]
99
102
 
                $Tuple2(([IntegerEntry(perBlockStore, waveletsPerBlock), IntegerEntry(heightStore1, height), IntegerEntry(claimed, -(availableNow(to))), IntegerEntry(sumStore, newSum)] ++ maxClaimableEntry), newSum)
100
103
 
                }
101
104
 
        }
102
105
 
103
106
 
104
107
 
@Callable(i)
105
108
 
func setScedule (to,waveletsPerBlock) = if ((i.caller != this))
106
109
 
    then throw("denied")
107
110
 
    else setScheduleInternal(to, waveletsPerBlock, 0, false, oldSum)
108
111
 
109
112
 
110
113
 
111
114
 
@Callable(i)
112
115
 
func setSchedule (to,waveletsPerBlock,maxClaimable,isMaxClaimableUSD) = if ((i.caller != this))
113
116
 
    then throw("denied")
114
117
 
    else setScheduleInternal(to, waveletsPerBlock, maxClaimable, isMaxClaimableUSD, oldSum)
115
118
 
116
119
 
117
120
 
118
121
 
@Callable(i)
119
122
 
func setMultiSchedule (schedules) = if ((i.caller != this))
120
123
 
    then throw("denied")
121
124
 
    else {
122
125
 
        func fold (acc,schedule) =         if ((schedule == ""))
123
126
 
            then throw("invalid schedules")
124
127
 
            else {
125
128
 
                let parts = split(schedule, "=")
126
129
 
                if ((size(parts) != 2))
127
130
 
                    then throw("invalid format: adr=waveletsPerBlock[,max]")
128
131
 
                    else {
129
132
 
                        let to = valueOrErrorMessage(addressFromString(parts[0]), ("invalid address: " + parts[0]))
130
133
 
                        let blockMaxParts = split(parts[1], ",")
131
134
 
                        let wavelets = valueOrErrorMessage(parseInt(blockMaxParts[0]), ("invalid wavetets number: " + blockMaxParts[0]))
132
-
                        let $t051685534 = if ((size(blockMaxParts) == 2))
135
+
                        let $t052295595 = if ((size(blockMaxParts) == 2))
133
136
 
                            then {
134
137
 
                                let maxAndUsdPart = split(blockMaxParts[1], "$")
135
138
 
                                $Tuple2(valueOrErrorMessage(parseInt(maxAndUsdPart[0]), ("invalid max number: " + maxAndUsdPart[0])), (size(maxAndUsdPart) == 2))
136
139
 
                                }
137
140
 
                            else $Tuple2(0, false)
138
-
                        let maxClaimable = $t051685534._1
139
-
                        let isMaxClaimableUSD = $t051685534._2
140
-
                        let $t055525584 = acc
141
-
                        let cmds = $t055525584._1
142
-
                        let sum = $t055525584._2
143
-
                        let addresses = $t055525584._3
141
+
                        let maxClaimable = $t052295595._1
142
+
                        let isMaxClaimableUSD = $t052295595._2
143
+
                        let $t056135645 = acc
144
+
                        let cmds = $t056135645._1
145
+
                        let sum = $t056135645._2
146
+
                        let addresses = $t056135645._3
144
147
 
                        let toStr = toString(to)
145
148
 
                        if (isDefined(indexOf(addresses, toStr)))
146
149
 
                            then throw(("dublicate: " + toStr))
147
150
 
                            else {
148
-
                                let $t057155813 = setScheduleInternal(toStr, wavelets, maxClaimable, isMaxClaimableUSD, sum)
149
-
                                let newCmds = $t057155813._1
150
-
                                let newSum = $t057155813._2
151
+
                                let $t057765874 = setScheduleInternal(toStr, wavelets, maxClaimable, isMaxClaimableUSD, sum)
152
+
                                let newCmds = $t057765874._1
153
+
                                let newSum = $t057765874._2
151
154
 
                                $Tuple3((cmds ++ newCmds), newSum, (addresses ++ [toStr]))
152
155
 
                                }
153
156
 
                        }
154
157
 
                }
155
158
 
156
-
        let $t058815957 = {
159
+
        let $t059426018 = {
157
160
 
            let $l = split(schedules, "|")
158
161
 
            let $s = size($l)
159
162
 
            let $acc0 = $Tuple3(nil, oldSum, nil)
160
163
 
            func $f0_1 ($a,$i) =             if (($i >= $s))
161
164
 
                then $a
162
165
 
                else fold($a, $l[$i])
163
166
 
164
167
 
            func $f0_2 ($a,$i) =             if (($i >= $s))
165
168
 
                then $a
166
169
 
                else throw("List size exceeds 20")
167
170
 
168
171
 
            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
169
172
 
            }
170
-
        let cmds = $t058815957._1
171
-
        let sum = $t058815957._2
172
-
        let x_ = $t058815957._3
173
+
        let cmds = $t059426018._1
174
+
        let sum = $t059426018._2
175
+
        let x_ = $t059426018._3
173
176
 
        $Tuple2(cmds, sum)
174
177
 
        }
175
178
 
176
179
 
177
180
 
178
181
 
@Callable(i)
179
182
 
func Claim () = {
180
183
 
    let toAdr = i.caller
181
184
 
    let to = toString(toAdr)
182
-
    let a = valueOrErrorMessage(getInteger(waveletsPerBlockStore(to)), "address not found")
183
-
    if ((a == a))
184
-
        then {
185
-
            let amount = availableNow(to)
186
-
            let payment = min([wavesBalance(this).available, amount])
187
-
            if ((0 >= payment))
188
-
                then throw("nothing to claim")
189
-
                else {
190
-
                    let claimedStore1 = claimedStore(to)
191
-
                    let claimed = valueOrElse(getInteger(claimedStore1), 0)
192
-
                    let claimedUSDStore1 = claimedUSDStore(to)
193
-
                    let claimedUSD = valueOrElse(getInteger(claimedUSDStore1), wavesToUSD(claimed))
194
-
                    let paymentUSD = wavesToUSD(payment)
185
+
    let amount = availableNow(to)
186
+
    let payment = min([wavesBalance(this).available, amount])
187
+
    if ((0 >= payment))
188
+
        then throw("nothing to claim")
189
+
        else {
190
+
            let claimedStore1 = claimedStore(to)
191
+
            let claimed = valueOrElse(getInteger(claimedStore1), 0)
192
+
            let claimedUSDStore1 = claimedUSDStore(to)
193
+
            let claimedUSD = valueOrElse(getInteger(claimedUSDStore1), wavesToUSD(claimed))
194
+
            let paymentUSD = wavesToUSD(payment)
195
195
 
[ScriptTransfer(toAdr, payment, unit), IntegerEntry(claimedStore1, (claimed + payment)), IntegerEntry(claimedUSDStore1, (claimedUSD + paymentUSD))]
196
-
                    }
197
196
 
            }
198
-
        else throw("Strict value is not equal to itself.")
199
197
 
    }
200
198
 
201
199
 

github/deemru/w8io/6500d08 
54.39 ms ◑