tx · BTkwumHpjrLgh4Z7vDhiDFm6P5rfkVNPQuNXGfNd5SFS

3PRAEZqBjrUDaDvv45HGWPb94DhD6UuZfWg:  -0.00600000 Waves

2023.09.19 14:40 [3827997] smart account 3PRAEZqBjrUDaDvv45HGWPb94DhD6UuZfWg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "BTkwumHpjrLgh4Z7vDhiDFm6P5rfkVNPQuNXGfNd5SFS",
    "fee": 600000,
    "feeAssetId": null,
    "timestamp": 1695123634253,
    "version": 1,
    "sender": "3PRAEZqBjrUDaDvv45HGWPb94DhD6UuZfWg",
    "senderPublicKey": "DWfBoSph5SQ9fuKvBjSecymWnfmRnBFh9FYg2QEV6bwS",
    "proofs": [
        "5H8tzxASnaKqFpUkoXawTrPoUQaEBGAd3Q1CWj1o8b5mQqaCbSUWJjTXhPAcZ2Z2DSJ9P5LjBfpGKKNSCqycGLwM"
    ],
    "script": "base64:BgIXCAISBAoCCAESBgoECAEBBBIDCgEIEgAXABJjb25maWdBZGRyZXNzU3RvcmUCBmNvbmZpZwANY29uZmlnQWRkcmVzcwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBRJjb25maWdBZGRyZXNzU3RvcmUCH2NoaWxkOiBjb25maWcgYWRkcmVzcyBub3QgZm91bmQCFmludmFsaWQgY29uZmlnIGFkZHJlc3MABkhFSUdIVAUGaGVpZ2h0AQ5vcEFsbG93ZWRTdG9yZQECb3AJAKwCAgkArAICAgNvcF8FAm9wAghfYWxsb3dlZAANdm90aW5nUmVzdWx0cwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ1jb25maWdBZGRyZXNzAhZjb250cmFjdF92b3RpbmdfcmVzdWx0AhlubyBjb250cmFjdF92b3RpbmdfcmVzdWx0Ah5pbnZhbGlkIGNvbnRyYWN0X3ZvdGluZ19yZXN1bHQBFXdhdmVsZXRzUGVyQmxvY2tTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhNfd2F2ZWxldHNfcGVyX2Jsb2NrARBzdGFydEhlaWdodFN0b3JlAQdhZGRyZXNzCQCsAgIFB2FkZHJlc3MCDV9zdGFydF9oZWlnaHQBDGNsYWltZWRTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhB3YXZlbGV0c19jbGFpbWVkAQ9jbGFpbWVkVVNEU3RvcmUBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIVX3dhdmVsZXRzX2NsYWltZWRfdXNkARFtYXhDbGFpbWFibGVTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhdfd2F2ZWxldHNfbWF4X2NsYWltYWJsZQEWbWF4Q2xhaW1hYmxlSXNVU0RTdG9yZQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAh5fd2F2ZWxldHNfbWF4X2NsYWltYWJsZV9pc191c2QACHN1bVN0b3JlAhZ3YXZlbGV0c19wZXJfYmxvY2tfc3VtAAhtYXhTdG9yZQIWd2F2ZWxldHNfcGVyX2Jsb2NrX21heAAHbWF4aW11bQkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzAhZ3YXZlbGV0c19wZXJfYmxvY2tfbWF4ALDQyVoABm9yYWNsZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAQt2YWx1ZU9yRWxzZQIJAKIIAQIGb3JhY2xlAiMzUEtrb2pLZGQ2QkJ6VGYxUlhiUVZmVURyYU5GWFhIS3pRRgIWaW52YWxpZCBvcmFjbGUgYWRkcmVzcwAOd2F2ZVByaWNlU3RvcmUJAQt2YWx1ZU9yRWxzZQIJAKIIAQIOd2F2ZS1wcmljZS1rZXkCFyVzJXNfX3ByaWNlX19XQVZFUy1VU0RUAAl3YXZlUHJpY2UJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQZvcmFjbGUFDndhdmVQcmljZVN0b3JlAiBXQVZFUyBwcmljZSBpcyBub3QgaW4gdGhlIE9yYWNsZQAHZGlnaXRzOACAwtcvAQp3YXZlc1RvVVNEAQV3YXZlcwkAawMFBXdhdmVzBQl3YXZlUHJpY2UFB2RpZ2l0czgBCnVzZFRvV2F2ZXMBBXdhdmVzCQBrAwUFd2F2ZXMFB2RpZ2l0czgFCXdhdmVQcmljZQAGb2xkU3VtCQELdmFsdWVPckVsc2UCCQCfCAEFCHN1bVN0b3JlAAABDGF2YWlsYWJsZU5vdwECdG8ECHBlckJsb2NrCQELdmFsdWVPckVsc2UCCQCfCAEJARV3YXZlbGV0c1BlckJsb2NrU3RvcmUBBQJ0bwAABAV0b3RhbAMJAAACBQhwZXJCbG9jawAAAAAECmZpcnN0QmxvY2sJAQV2YWx1ZQEJAJ8IAQkBEHN0YXJ0SGVpZ2h0U3RvcmUBBQJ0bwQGYmxvY2tzCQBlAgUGaGVpZ2h0BQpmaXJzdEJsb2NrCQBoAgUIcGVyQmxvY2sFBmJsb2NrcwQMY2xhaW1lZFdBVkVTCQELdmFsdWVPckVsc2UCCQCfCAEJAQxjbGFpbWVkU3RvcmUBBQJ0bwAABAlyZXN0V2F2ZXMJAGUCBQV0b3RhbAUMY2xhaW1lZFdBVkVTBAxtYXhDbGFpbWFibGUJAJ8IAQkBEW1heENsYWltYWJsZVN0b3JlAQUCdG8DCQEJaXNEZWZpbmVkAQUMbWF4Q2xhaW1hYmxlBBFtYXhDbGFpbWFibGVWYWx1ZQkBBXZhbHVlAQUMbWF4Q2xhaW1hYmxlAwkBC3ZhbHVlT3JFbHNlAgkAoAgBCQEWbWF4Q2xhaW1hYmxlSXNVU0RTdG9yZQEFAnRvBwQKY2xhaW1lZFVTRAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEPY2xhaW1lZFVTRFN0b3JlAQUCdG8JAQp3YXZlc1RvVVNEAQUMY2xhaW1lZFdBVkVTBAdyZXN0VVNECQBlAgURbWF4Q2xhaW1hYmxlVmFsdWUFCmNsYWltZWRVU0QEDnJlc3RVc2RJbldhdmVzCQEKdXNkVG9XYXZlcwEFB3Jlc3RVU0QJAJcDAQkAzAgCBQ5yZXN0VXNkSW5XYXZlcwkAzAgCBQlyZXN0V2F2ZXMFA25pbAQFZ3JhbnQJAJcDAQkAzAgCBQV0b3RhbAkAzAgCBRFtYXhDbGFpbWFibGVWYWx1ZQUDbmlsCQBlAgUFZ3JhbnQFDGNsYWltZWRXQVZFUwUJcmVzdFdhdmVzARNzZXRTY2hlZHVsZUludGVybmFsBQJ0bxB3YXZlbGV0c1BlckJsb2NrDG1heENsYWltYWJsZRFpc01heENsYWltYWJsZVVTRANzdW0EA2FkcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEFAnRvCQCsAgICEWludmFsaWQgYWRkcmVzczogBQJ0bwMJAAACBQNhZHIFA2FkcgMJAGYCAAAFEHdhdmVsZXRzUGVyQmxvY2sJAAIBAh93YXZlbGV0c1BlckJsb2NrIHNob3VsZCBiZSA+PSAwBA1wZXJCbG9ja1N0b3JlCQEVd2F2ZWxldHNQZXJCbG9ja1N0b3JlAQUCdG8EC29sZFBlckJsb2NrCQELdmFsdWVPckVsc2UCCQCfCAEFDXBlckJsb2NrU3RvcmUAAAQGbmV3U3VtCQBkAgkAZQIFA3N1bQULb2xkUGVyQmxvY2sFEHdhdmVsZXRzUGVyQmxvY2sEDGhlaWdodFN0b3JlMQkBEHN0YXJ0SGVpZ2h0U3RvcmUBBQJ0bwQHY2xhaW1lZAkBDGNsYWltZWRTdG9yZQEFAnRvAwkAZgIFBm5ld1N1bQUHbWF4aW11bQkAAgECEG1heGltdW0gZXhjZWVkZWQEEm1heENsYWltYWJsZVN0b3JlMQkBEW1heENsYWltYWJsZVN0b3JlAQUCdG8EF21heENsYWltYWJsZUlzVVNEU3RvcmUxCQEWbWF4Q2xhaW1hYmxlSXNVU0RTdG9yZQEFAnRvBBFtYXhDbGFpbWFibGVFbnRyeQMJAAACBQxtYXhDbGFpbWFibGUAAAUDbmlsAwkAZgIAAAUMbWF4Q2xhaW1hYmxlCQDMCAIJAQtEZWxldGVFbnRyeQEFEm1heENsYWltYWJsZVN0b3JlMQkAzAgCCQELRGVsZXRlRW50cnkBBRdtYXhDbGFpbWFibGVJc1VTRFN0b3JlMQUDbmlsCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJtYXhDbGFpbWFibGVTdG9yZTEFDG1heENsYWltYWJsZQkAzAgCCQEMQm9vbGVhbkVudHJ5AgUXbWF4Q2xhaW1hYmxlSXNVU0RTdG9yZTEFEWlzTWF4Q2xhaW1hYmxlVVNEBQNuaWwJAJQKAgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ1wZXJCbG9ja1N0b3JlBRB3YXZlbGV0c1BlckJsb2NrCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQxoZWlnaHRTdG9yZTEFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgUHY2xhaW1lZAkBAS0BCQEMYXZhaWxhYmxlTm93AQUCdG8JAMwIAgkBDEludGVnZXJFbnRyeQIFCHN1bVN0b3JlBQZuZXdTdW0FA25pbAURbWF4Q2xhaW1hYmxlRW50cnkFBm5ld1N1bQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQBaQEKc2V0U2NlZHVsZQICdG8Qd2F2ZWxldHNQZXJCbG9jawMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECBmRlbmllZAkBE3NldFNjaGVkdWxlSW50ZXJuYWwFBQJ0bwUQd2F2ZWxldHNQZXJCbG9jawAABwUGb2xkU3VtAWkBC3NldFNjaGVkdWxlBAJ0bxB3YXZlbGV0c1BlckJsb2NrDG1heENsYWltYWJsZRFpc01heENsYWltYWJsZVVTRAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECBmRlbmllZAkBE3NldFNjaGVkdWxlSW50ZXJuYWwFBQJ0bwUQd2F2ZWxldHNQZXJCbG9jawUMbWF4Q2xhaW1hYmxlBRFpc01heENsYWltYWJsZVVTRAUGb2xkU3VtAWkBEHNldE11bHRpU2NoZWR1bGUBCXNjaGVkdWxlcwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECBmRlbmllZAoBBGZvbGQCA2FjYwhzY2hlZHVsZQMJAAACBQhzY2hlZHVsZQIACQACAQIRaW52YWxpZCBzY2hlZHVsZXMEBXBhcnRzCQC1CQIFCHNjaGVkdWxlAgE9AwkBAiE9AgkAkAMBBQVwYXJ0cwACCQACAQIqaW52YWxpZCBmb3JtYXQ6IGFkcj13YXZlbGV0c1BlckJsb2NrWyxtYXhdBAJ0bwkAkQMCBQVwYXJ0cwAABA1ibG9ja01heFBhcnRzCQC1CQIJAJEDAgUFcGFydHMAAQIBLAQId2F2ZWxldHMJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAtgkBCQCRAwIFDWJsb2NrTWF4UGFydHMAAAkArAICAhlpbnZhbGlkIHdhdmV0ZXRzIG51bWJlcjogCQCRAwIFDWJsb2NrTWF4UGFydHMAAAQLJHQwNTIzOTU2MDUDCQAAAgkAkAMBBQ1ibG9ja01heFBhcnRzAAIEDW1heEFuZFVzZFBhcnQJALUJAgkAkQMCBQ1ibG9ja01heFBhcnRzAAECASQJAJQKAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQC2CQEJAJEDAgUNbWF4QW5kVXNkUGFydAAACQCsAgICFGludmFsaWQgbWF4IG51bWJlcjogCQCRAwIFDW1heEFuZFVzZFBhcnQAAAkAAAIJAJADAQUNbWF4QW5kVXNkUGFydAACCQCUCgIAAAcEDG1heENsYWltYWJsZQgFCyR0MDUyMzk1NjA1Al8xBBFpc01heENsYWltYWJsZVVTRAgFCyR0MDUyMzk1NjA1Al8yBAskdDA1NjIzNTY1NQUDYWNjBARjbWRzCAULJHQwNTYyMzU2NTUCXzEEA3N1bQgFCyR0MDU2MjM1NjU1Al8yBAlhZGRyZXNzZXMIBQskdDA1NjIzNTY1NQJfMwMJAQlpc0RlZmluZWQBCQDPCAIFCWFkZHJlc3NlcwUCdG8JAAIBCQCsAgICC2R1YmxpY2F0ZTogBQJ0bwQLJHQwNTc0NjU4NDEJARNzZXRTY2hlZHVsZUludGVybmFsBQUCdG8FCHdhdmVsZXRzBQxtYXhDbGFpbWFibGUFEWlzTWF4Q2xhaW1hYmxlVVNEBQNzdW0EB25ld0NtZHMIBQskdDA1NzQ2NTg0MQJfMQQGbmV3U3VtCAULJHQwNTc0NjU4NDECXzIJAJUKAwkAzggCBQRjbWRzBQduZXdDbWRzBQZuZXdTdW0JAM4IAgUJYWRkcmVzc2VzCQDMCAIFAnRvBQNuaWwECyR0MDU5MDY1OTgyCgACJGwJALUJAgUJc2NoZWR1bGVzAgF8CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwFBm9sZFN1bQUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQRmb2xkAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQEBGNtZHMIBQskdDA1OTA2NTk4MgJfMQQDc3VtCAULJHQwNTkwNjU5ODICXzIEAnhfCAULJHQwNTkwNjU5ODICXzMJAJQKAgUEY21kcwUDc3VtAWkBBUNsYWltAAQFdG9BZHIIBQFpBmNhbGxlcgQCdG8JAKUIAQUFdG9BZHIEAWEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnwgBCQEVd2F2ZWxldHNQZXJCbG9ja1N0b3JlAQUCdG8CEWFkZHJlc3Mgbm90IGZvdW5kAwkAAAIFAWEFAWEEBmFtb3VudAkBDGF2YWlsYWJsZU5vdwEFAnRvBAdwYXltZW50CQCXAwEJAMwIAggJAO8HAQUEdGhpcwlhdmFpbGFibGUJAMwIAgUGYW1vdW50BQNuaWwDCQBnAgAABQdwYXltZW50CQACAQIQbm90aGluZyB0byBjbGFpbQQNY2xhaW1lZFN0b3JlMQkBDGNsYWltZWRTdG9yZQEFAnRvBAdjbGFpbWVkCQELdmFsdWVPckVsc2UCCQCfCAEFDWNsYWltZWRTdG9yZTEAAAQQY2xhaW1lZFVTRFN0b3JlMQkBD2NsYWltZWRVU0RTdG9yZQEFAnRvBApjbGFpbWVkVVNECQELdmFsdWVPckVsc2UCCQCfCAEFEGNsYWltZWRVU0RTdG9yZTEJAQp3YXZlc1RvVVNEAQUHY2xhaW1lZAQKcGF5bWVudFVTRAkBCndhdmVzVG9VU0QBBQdwYXltZW50CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBXRvQWRyBQdwYXltZW50BQR1bml0CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ1jbGFpbWVkU3RvcmUxCQBkAgUHY2xhaW1lZAUHcGF5bWVudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUQY2xhaW1lZFVTRFN0b3JlMQkAZAIFCmNsYWltZWRVU0QFCnBheW1lbnRVU0QFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgDf+zbF",
    "chainId": 87,
    "height": 3827997,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 4QminhoBAofTFZuM5EpL5DT94JLjcqfyTaeEiVYHBV4u
Next: EM3pbjaJU4kPMXeUv4W4nKEtKgY2KcrLgw1u4YgDaWwi

Diff: 
Old
New
Differences
42
42
 
43
43
 
let wavePrice = valueOrErrorMessage(getInteger(oracle, wavePriceStore), "WAVES price is not in the Oracle")
44
44
 
45
-
func wavesToUSD (waves) = fraction(waves, wavePrice, 1000000)
45
+
let digits8 = 100000000
46
+
47
+
func wavesToUSD (waves) = fraction(waves, wavePrice, digits8)
46
48
 
47
49
 
48
-
func usdToWaves (waves) = fraction(waves, 100000000, wavePrice)
50
+
func usdToWaves (waves) = fraction(waves, digits8, wavePrice)
49
51
 
50
52
 
51
53
 
let oldSum = valueOrElse(getInteger(sumStore), 0)
137
139
 
                        let to = parts[0]
138
140
 
                        let blockMaxParts = split(parts[1], ",")
139
141
 
                        let wavelets = valueOrErrorMessage(parseInt(blockMaxParts[0]), ("invalid wavetets number: " + blockMaxParts[0]))
140
-
                        let $t052175583 = if ((size(blockMaxParts) == 2))
142
+
                        let $t052395605 = if ((size(blockMaxParts) == 2))
141
143
 
                            then {
142
144
 
                                let maxAndUsdPart = split(blockMaxParts[1], "$")
143
145
 
                                $Tuple2(valueOrErrorMessage(parseInt(maxAndUsdPart[0]), ("invalid max number: " + maxAndUsdPart[0])), (size(maxAndUsdPart) == 2))
144
146
 
                                }
145
147
 
                            else $Tuple2(0, false)
146
-
                        let maxClaimable = $t052175583._1
147
-
                        let isMaxClaimableUSD = $t052175583._2
148
-
                        let $t056015633 = acc
149
-
                        let cmds = $t056015633._1
150
-
                        let sum = $t056015633._2
151
-
                        let addresses = $t056015633._3
148
+
                        let maxClaimable = $t052395605._1
149
+
                        let isMaxClaimableUSD = $t052395605._2
150
+
                        let $t056235655 = acc
151
+
                        let cmds = $t056235655._1
152
+
                        let sum = $t056235655._2
153
+
                        let addresses = $t056235655._3
152
154
 
                        if (isDefined(indexOf(addresses, to)))
153
155
 
                            then throw(("dublicate: " + to))
154
156
 
                            else {
155
-
                                let $t057245819 = setScheduleInternal(to, wavelets, maxClaimable, isMaxClaimableUSD, sum)
156
-
                                let newCmds = $t057245819._1
157
-
                                let newSum = $t057245819._2
157
+
                                let $t057465841 = setScheduleInternal(to, wavelets, maxClaimable, isMaxClaimableUSD, sum)
158
+
                                let newCmds = $t057465841._1
159
+
                                let newSum = $t057465841._2
158
160
 
                                $Tuple3((cmds ++ newCmds), newSum, (addresses ++ [to]))
159
161
 
                                }
160
162
 
                        }
161
163
 
                }
162
164
 
163
-
        let $t058845960 = {
165
+
        let $t059065982 = {
164
166
 
            let $l = split(schedules, "|")
165
167
 
            let $s = size($l)
166
168
 
            let $acc0 = $Tuple3(nil, oldSum, nil)
174
176
 
175
177
 
            $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)
176
178
 
            }
177
-
        let cmds = $t058845960._1
178
-
        let sum = $t058845960._2
179
-
        let x_ = $t058845960._3
179
+
        let cmds = $t059065982._1
180
+
        let sum = $t059065982._2
181
+
        let x_ = $t059065982._3
180
182
 
        $Tuple2(cmds, sum)
181
183
 
        }
182
184
 

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
-
func wavesToUSD (waves) = fraction(waves, wavePrice, 1000000)
45
+
let digits8 = 100000000
46
+
47
+
func wavesToUSD (waves) = fraction(waves, wavePrice, digits8)
46
48
 
47
49
 
48
-
func usdToWaves (waves) = fraction(waves, 100000000, wavePrice)
50
+
func usdToWaves (waves) = fraction(waves, digits8, wavePrice)
49
51
 
50
52
 
51
53
 
let oldSum = valueOrElse(getInteger(sumStore), 0)
52
54
 
53
55
 
func availableNow (to) = {
54
56
 
    let perBlock = valueOrElse(getInteger(waveletsPerBlockStore(to)), 0)
55
57
 
    let total = if ((perBlock == 0))
56
58
 
        then 0
57
59
 
        else {
58
60
 
            let firstBlock = value(getInteger(startHeightStore(to)))
59
61
 
            let blocks = (height - firstBlock)
60
62
 
            (perBlock * blocks)
61
63
 
            }
62
64
 
    let claimedWAVES = valueOrElse(getInteger(claimedStore(to)), 0)
63
65
 
    let restWaves = (total - claimedWAVES)
64
66
 
    let maxClaimable = getInteger(maxClaimableStore(to))
65
67
 
    if (isDefined(maxClaimable))
66
68
 
        then {
67
69
 
            let maxClaimableValue = value(maxClaimable)
68
70
 
            if (valueOrElse(getBoolean(maxClaimableIsUSDStore(to)), false))
69
71
 
                then {
70
72
 
                    let claimedUSD = valueOrElse(getInteger(claimedUSDStore(to)), wavesToUSD(claimedWAVES))
71
73
 
                    let restUSD = (maxClaimableValue - claimedUSD)
72
74
 
                    let restUsdInWaves = usdToWaves(restUSD)
73
75
 
                    min([restUsdInWaves, restWaves])
74
76
 
                    }
75
77
 
                else {
76
78
 
                    let grant = min([total, maxClaimableValue])
77
79
 
                    (grant - claimedWAVES)
78
80
 
                    }
79
81
 
            }
80
82
 
        else restWaves
81
83
 
    }
82
84
 
83
85
 
84
86
 
func setScheduleInternal (to,waveletsPerBlock,maxClaimable,isMaxClaimableUSD,sum) = {
85
87
 
    let adr = valueOrErrorMessage(addressFromString(to), ("invalid address: " + to))
86
88
 
    if ((adr == adr))
87
89
 
        then if ((0 > waveletsPerBlock))
88
90
 
            then throw("waveletsPerBlock should be >= 0")
89
91
 
            else {
90
92
 
                let perBlockStore = waveletsPerBlockStore(to)
91
93
 
                let oldPerBlock = valueOrElse(getInteger(perBlockStore), 0)
92
94
 
                let newSum = ((sum - oldPerBlock) + waveletsPerBlock)
93
95
 
                let heightStore1 = startHeightStore(to)
94
96
 
                let claimed = claimedStore(to)
95
97
 
                if ((newSum > maximum))
96
98
 
                    then throw("maximum exceeded")
97
99
 
                    else {
98
100
 
                        let maxClaimableStore1 = maxClaimableStore(to)
99
101
 
                        let maxClaimableIsUSDStore1 = maxClaimableIsUSDStore(to)
100
102
 
                        let maxClaimableEntry = if ((maxClaimable == 0))
101
103
 
                            then nil
102
104
 
                            else if ((0 > maxClaimable))
103
105
 
                                then [DeleteEntry(maxClaimableStore1), DeleteEntry(maxClaimableIsUSDStore1)]
104
106
 
                                else [IntegerEntry(maxClaimableStore1, maxClaimable), BooleanEntry(maxClaimableIsUSDStore1, isMaxClaimableUSD)]
105
107
 
                        $Tuple2(([IntegerEntry(perBlockStore, waveletsPerBlock), IntegerEntry(heightStore1, height), IntegerEntry(claimed, -(availableNow(to))), IntegerEntry(sumStore, newSum)] ++ maxClaimableEntry), newSum)
106
108
 
                        }
107
109
 
                }
108
110
 
        else throw("Strict value is not equal to itself.")
109
111
 
    }
110
112
 
111
113
 
112
114
 
@Callable(i)
113
115
 
func setScedule (to,waveletsPerBlock) = if ((i.caller != this))
114
116
 
    then throw("denied")
115
117
 
    else setScheduleInternal(to, waveletsPerBlock, 0, false, oldSum)
116
118
 
117
119
 
118
120
 
119
121
 
@Callable(i)
120
122
 
func setSchedule (to,waveletsPerBlock,maxClaimable,isMaxClaimableUSD) = if ((i.caller != this))
121
123
 
    then throw("denied")
122
124
 
    else setScheduleInternal(to, waveletsPerBlock, maxClaimable, isMaxClaimableUSD, oldSum)
123
125
 
124
126
 
125
127
 
126
128
 
@Callable(i)
127
129
 
func setMultiSchedule (schedules) = if ((i.caller != this))
128
130
 
    then throw("denied")
129
131
 
    else {
130
132
 
        func fold (acc,schedule) =         if ((schedule == ""))
131
133
 
            then throw("invalid schedules")
132
134
 
            else {
133
135
 
                let parts = split(schedule, "=")
134
136
 
                if ((size(parts) != 2))
135
137
 
                    then throw("invalid format: adr=waveletsPerBlock[,max]")
136
138
 
                    else {
137
139
 
                        let to = parts[0]
138
140
 
                        let blockMaxParts = split(parts[1], ",")
139
141
 
                        let wavelets = valueOrErrorMessage(parseInt(blockMaxParts[0]), ("invalid wavetets number: " + blockMaxParts[0]))
140
-
                        let $t052175583 = if ((size(blockMaxParts) == 2))
142
+
                        let $t052395605 = if ((size(blockMaxParts) == 2))
141
143
 
                            then {
142
144
 
                                let maxAndUsdPart = split(blockMaxParts[1], "$")
143
145
 
                                $Tuple2(valueOrErrorMessage(parseInt(maxAndUsdPart[0]), ("invalid max number: " + maxAndUsdPart[0])), (size(maxAndUsdPart) == 2))
144
146
 
                                }
145
147
 
                            else $Tuple2(0, false)
146
-
                        let maxClaimable = $t052175583._1
147
-
                        let isMaxClaimableUSD = $t052175583._2
148
-
                        let $t056015633 = acc
149
-
                        let cmds = $t056015633._1
150
-
                        let sum = $t056015633._2
151
-
                        let addresses = $t056015633._3
148
+
                        let maxClaimable = $t052395605._1
149
+
                        let isMaxClaimableUSD = $t052395605._2
150
+
                        let $t056235655 = acc
151
+
                        let cmds = $t056235655._1
152
+
                        let sum = $t056235655._2
153
+
                        let addresses = $t056235655._3
152
154
 
                        if (isDefined(indexOf(addresses, to)))
153
155
 
                            then throw(("dublicate: " + to))
154
156
 
                            else {
155
-
                                let $t057245819 = setScheduleInternal(to, wavelets, maxClaimable, isMaxClaimableUSD, sum)
156
-
                                let newCmds = $t057245819._1
157
-
                                let newSum = $t057245819._2
157
+
                                let $t057465841 = setScheduleInternal(to, wavelets, maxClaimable, isMaxClaimableUSD, sum)
158
+
                                let newCmds = $t057465841._1
159
+
                                let newSum = $t057465841._2
158
160
 
                                $Tuple3((cmds ++ newCmds), newSum, (addresses ++ [to]))
159
161
 
                                }
160
162
 
                        }
161
163
 
                }
162
164
 
163
-
        let $t058845960 = {
165
+
        let $t059065982 = {
164
166
 
            let $l = split(schedules, "|")
165
167
 
            let $s = size($l)
166
168
 
            let $acc0 = $Tuple3(nil, oldSum, nil)
167
169
 
            func $f0_1 ($a,$i) =             if (($i >= $s))
168
170
 
                then $a
169
171
 
                else fold($a, $l[$i])
170
172
 
171
173
 
            func $f0_2 ($a,$i) =             if (($i >= $s))
172
174
 
                then $a
173
175
 
                else throw("List size exceeds 20")
174
176
 
175
177
 
            $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)
176
178
 
            }
177
-
        let cmds = $t058845960._1
178
-
        let sum = $t058845960._2
179
-
        let x_ = $t058845960._3
179
+
        let cmds = $t059065982._1
180
+
        let sum = $t059065982._2
181
+
        let x_ = $t059065982._3
180
182
 
        $Tuple2(cmds, sum)
181
183
 
        }
182
184
 
183
185
 
184
186
 
185
187
 
@Callable(i)
186
188
 
func Claim () = {
187
189
 
    let toAdr = i.caller
188
190
 
    let to = toString(toAdr)
189
191
 
    let a = valueOrErrorMessage(getInteger(waveletsPerBlockStore(to)), "address not found")
190
192
 
    if ((a == a))
191
193
 
        then {
192
194
 
            let amount = availableNow(to)
193
195
 
            let payment = min([wavesBalance(this).available, amount])
194
196
 
            if ((0 >= payment))
195
197
 
                then throw("nothing to claim")
196
198
 
                else {
197
199
 
                    let claimedStore1 = claimedStore(to)
198
200
 
                    let claimed = valueOrElse(getInteger(claimedStore1), 0)
199
201
 
                    let claimedUSDStore1 = claimedUSDStore(to)
200
202
 
                    let claimedUSD = valueOrElse(getInteger(claimedUSDStore1), wavesToUSD(claimed))
201
203
 
                    let paymentUSD = wavesToUSD(payment)
202
204
 
[ScriptTransfer(toAdr, payment, unit), IntegerEntry(claimedStore1, (claimed + payment)), IntegerEntry(claimedUSDStore1, (claimedUSD + paymentUSD))]
203
205
 
                    }
204
206
 
            }
205
207
 
        else throw("Strict value is not equal to itself.")
206
208
 
    }
207
209
 
208
210
 

github/deemru/w8io/3ef1775 
49.50 ms ◑