tx · 7Gbr33NgbcxXav4ztNamYKZ5zxAUk5G6j33NyDri6G1K

3PPhk52YuwKTFT2U865di1Pepj4bFHxubFY:  -0.03800000 Waves

2022.11.08 18:12 [3373689] smart account 3PPhk52YuwKTFT2U865di1Pepj4bFHxubFY > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7Gbr33NgbcxXav4ztNamYKZ5zxAUk5G6j33NyDri6G1K",
    "fee": 3800000,
    "feeAssetId": null,
    "timestamp": 1667920444818,
    "version": 2,
    "chainId": 87,
    "sender": "3PPhk52YuwKTFT2U865di1Pepj4bFHxubFY",
    "senderPublicKey": "5EhD7NvoyShNGdN6g6ps2X6FieUun2o7TTggY1CL9wH9",
    "proofs": [
        "5qWTjUiUpzFQmoqMpfqd2aMXpQjUp5RvFVrnzue3jYBVYf6yLuuDGVEoawxsqFwmC4nKMFxEnKWhpfxUr6zjUo4m"
    ],
    "script": "base64:BgIeCAISAwoBCBIDCgEIEgMKAQgSBQoDCAEYEgQKAggBBQAKaW5kaWNlc18yMAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgkAzAgCAA8JAMwIAgAQCQDMCAIAEQkAzAgCABIJAMwIAgATBQNuaWwBD2NoZWNrX3doaXRlbGlzdAEGY2FsbGVyAwkAAAIFBHRoaXMFBmNhbGxlcgYEByRtYXRjaDAJAKAIAQkArAICAgJXXwkA2AQBCAUGY2FsbGVyBWJ5dGVzAwkAAQIFByRtYXRjaDACB0Jvb2xlYW4EAXgFByRtYXRjaDAFAXgHAQ9mb2xkX3B1dF9hc3NldHMCBWFjY3VtBWluZGV4BAkkdDA0NjI0OTkFBWFjY3VtBARsaXN0CAUJJHQwNDYyNDk5Al8xBAdhaXJkcm9wCAUJJHQwNDYyNDk5Al8yBAhwYXltZW50cwgFCSR0MDQ2MjQ5OQJfMwMJAGcCBQVpbmRleAkAkAMBBQhwYXltZW50cwUFYWNjdW0DCQECIT0CCAkAkQMCBQhwYXltZW50cwUFaW5kZXgGYW1vdW50AAEJAAIBCQCsAgIJAKwCAgIOV3JvbmcgcGF5bWVudCAJAKQDAQkAZAIFBWluZGV4AAECByBhbW91bnQEA2tleQkArAICBQdhaXJkcm9wAgRfZW5kBANlbmQEByRtYXRjaDAJAJ8IAQUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBagUHJG1hdGNoMAUBagAABAJpZAkA2AQBCQEFdmFsdWUBCAkAkQMCBQhwYXltZW50cwUFaW5kZXgHYXNzZXRJZAkAlQoDCQDOCAIFBGxpc3QJAMwIAgkBDEludGVnZXJFbnRyeQIFA2tleQkAZAIFA2VuZAABCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICBQdhaXJkcm9wAgNfWF8JANgEAQkAmgMBBQNlbmQFAmlkBQNuaWwFB2FpcmRyb3AFCHBheW1lbnRzAQpmb2xkX2FsbG93AgVhY2N1bQVpbmRleAQLJHQwMTExMjExNTcFBWFjY3VtBARsaXN0CAULJHQwMTExMjExNTcCXzEEB2FpcmRyb3AIBQskdDAxMTEyMTE1NwJfMgQGYW1vdW50CAULJHQwMTExMjExNTcCXzMECGFjY291bnRzCAULJHQwMTExMjExNTcCXzQDCQBnAgUFaW5kZXgJAJADAQUIYWNjb3VudHMFBWFjY3VtBANrZXkJAKwCAgkArAICBQdhaXJkcm9wAgNfQV8JAJEDAgUIYWNjb3VudHMFBWluZGV4BAdhbGxvd2VkBAckbWF0Y2gwCQCfCAEFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWoFByRtYXRjaDAFAWoAAAkAlgoECQDNCAIFBGxpc3QJAQxJbnRlZ2VyRW50cnkCBQNrZXkJAGQCBQdhbGxvd2VkBQZhbW91bnQFB2FpcmRyb3AFBmFtb3VudAUIYWNjb3VudHMBCmZvbGRfY2xhaW0CBWFjY3VtBWluZGV4BAskdDAxNTUzMTU5NwUFYWNjdW0EBGxpc3QIBQskdDAxNTUzMTU5NwJfMQQGYW1vdW50CAULJHQwMTU1MzE1OTcCXzIEB2FpcmRyb3AIBQskdDAxNTUzMTU5NwJfMwQHY2xhaW1lcggFCyR0MDE1NTMxNTk3Al80AwkAZwIAAAUGYW1vdW50BQVhY2N1bQQJYXNzZXRfa2V5CQCsAgIJAKwCAgUHYWlyZHJvcAIDX1hfCQDYBAEJAJoDAQUFaW5kZXgECGFzc2V0X2lkCQDZBAEJARFAZXh0ck5hdGl2ZSgxMDU4KQEFCWFzc2V0X2tleQkAlgoECQDOCAIFBGxpc3QJAMwIAgkBC0RlbGV0ZUVudHJ5AQUJYXNzZXRfa2V5CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFB2NsYWltZXIAAQUIYXNzZXRfaWQFA25pbAkAZQIFBmFtb3VudAABBQdhaXJkcm9wBQdjbGFpbWVyBQFpAQ13aGl0ZWxpc3RfYWRkAQR1c2VyAwkBAiE9AgUEdGhpcwgFAWkGY2FsbGVyCQACAQIYQ2FsbGVyIGlzIG5vdCBkQXBwIG93bmVyCQCUCgIJAMwIAgkBDEJvb2xlYW5FbnRyeQIJAKwCAgICV18FBHVzZXIGBQNuaWwFBHVuaXQBaQEQd2hpdGVsaXN0X3JlbW92ZQEEdXNlcgMJAQIhPQIFBHRoaXMIBQFpBmNhbGxlcgkAAgECGENhbGxlciBpcyBub3QgZEFwcCBvd25lcgkAlAoCCQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgICV18FBHVzZXIFA25pbAUEdW5pdAFpAQpwdXRfYXNzZXRzAQdhaXJkcm9wAwkBASEBCQEPY2hlY2tfd2hpdGVsaXN0AQgFAWkGY2FsbGVyCQACAQIXQ2FsbGVyIG5vdCBpbiB3aGl0ZWxpc3QDCQAAAgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIKTm8gcGF5bWVudAMJAGYCCQCQAwEIBQFpCHBheW1lbnRzABQJAAIBAg5UbyBtYW55IGFzc2V0cwQLJHQwMjU2MjI2NjAKAAIkbAUKaW5kaWNlc18yMAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJUKAwUDbmlsBQdhaXJkcm9wCAUBaQhwYXltZW50cwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEPZm9sZF9wdXRfYXNzZXRzAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQEBGxpc3QIBQskdDAyNTYyMjY2MAJfMQQIYWlyZHJvcF8IBQskdDAyNTYyMjY2MAJfMgQJcGF5bWVudHNfCAULJHQwMjU2MjI2NjACXzMJAJQKAgUEbGlzdAUEdW5pdAFpAQVhbGxvdwMHYWlyZHJvcAZhbW91bnQIYWNjb3VudHMDCQEBIQEJAQ9jaGVja193aGl0ZWxpc3QBCAUBaQZjYWxsZXIJAAIBAhdDYWxsZXIgbm90IGluIHdoaXRlbGlzdAMJAAACBQZhbW91bnQAAAkAAgECDFdyb25nIGFtb3VudAMJAAACCQCQAwEFCGFjY291bnRzAAAJAAIBAgtObyBhY2NvdW50cwMJAGYCCQCQAwEFCGFjY291bnRzABQJAAIBAhFUb28gbWFueSBhY2NvdW50cwQLJHQwMzA0MjMxNTAKAAIkbAUKaW5kaWNlc18yMAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAUDbmlsBQdhaXJkcm9wBQZhbW91bnQFCGFjY291bnRzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQpmb2xkX2FsbG93AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQEBGxpc3QIBQskdDAzMDQyMzE1MAJfMQQIYWlyZHJvcF8IBQskdDAzMDQyMzE1MAJfMgQHYW1vdW50XwgFCyR0MDMwNDIzMTUwAl8zBAlhY2NvdW50c18IBQskdDAzMDQyMzE1MAJfNAkAlAoCBQRsaXN0BQR1bml0AWkBBWNsYWltAgdhaXJkcm9wBmFtb3VudAQJa19hbGxvd2VkCQCsAgIJAKwCAgUHYWlyZHJvcAIDX0FfCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEB2FsbG93ZWQJARFAZXh0ck5hdGl2ZSgxMDU1KQEFCWtfYWxsb3dlZAMJAGYCBQZhbW91bnQFB2FsbG93ZWQJAAIBAhtDYWxsZXIgbm90IGFsbG93ZWQgdG8gY2xhaW0EB2tfYmVnaW4JAKwCAgUHYWlyZHJvcAIGX2JlZ2luBAVrX2VuZAkArAICBQdhaXJkcm9wAgRfZW5kBAViZWdpbgQHJG1hdGNoMAkAnwgBBQdrX2JlZ2luAwkAAQIFByRtYXRjaDACA0ludAQBagUHJG1hdGNoMAUBagAABANlbmQEByRtYXRjaDAJAJ8IAQUFa19lbmQDCQABAgUHJG1hdGNoMAIDSW50BAFqBQckbWF0Y2gwBQFqAAADAwkAZwIAAAUGYW1vdW50BgkAZgIFBmFtb3VudAAUCQACAQIpV3JvbmcgYW1vdW50IChzaG91bGQgYmUgaW4gcmFuZ2UgMSAtLSAyMCkDCQBmAgUGYW1vdW50CQBlAgUDZW5kBQViZWdpbgkAAgECEk5vIGFzc2V0cyBpbiBzdG9jawQHaW5kaWNlcwkAzAgCBQViZWdpbgkAzAgCCQBkAgUFYmVnaW4AAQkAzAgCCQBkAgUFYmVnaW4AAgkAzAgCCQBkAgUFYmVnaW4AAwkAzAgCCQBkAgUFYmVnaW4ABAkAzAgCCQBkAgUFYmVnaW4ABQkAzAgCCQBkAgUFYmVnaW4ABgkAzAgCCQBkAgUFYmVnaW4ABwkAzAgCCQBkAgUFYmVnaW4ACAkAzAgCCQBkAgUFYmVnaW4ACQkAzAgCCQBkAgUFYmVnaW4ACgkAzAgCCQBkAgUFYmVnaW4ACwkAzAgCCQBkAgUFYmVnaW4ADAkAzAgCCQBkAgUFYmVnaW4ADQkAzAgCCQBkAgUFYmVnaW4ADgkAzAgCCQBkAgUFYmVnaW4ADwkAzAgCCQBkAgUFYmVnaW4AEAkAzAgCCQBkAgUFYmVnaW4AEQkAzAgCCQBkAgUFYmVnaW4AEgkAzAgCCQBkAgUFYmVnaW4AEwUDbmlsBAskdDA0Mjk3NDQ1MAoAAiRsBQdpbmRpY2VzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlgoEBQNuaWwFBmFtb3VudAUHYWlyZHJvcAkBB0FkZHJlc3MBCAgFAWkGY2FsbGVyBWJ5dGVzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQpmb2xkX2NsYWltAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQEBGxpc3QIBQskdDA0Mjk3NDQ1MAJfMQQHYW1vdW50XwgFCyR0MDQyOTc0NDUwAl8yBAhhaXJkcm9wXwgFCyR0MDQyOTc0NDUwAl8zBAhjbGFpbWVyXwgFCyR0MDQyOTc0NDUwAl80CQCUCgIJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa19hbGxvd2VkCQBlAgUHYWxsb3dlZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQdrX2JlZ2luCQBkAgUFYmVnaW4FBmFtb3VudAUDbmlsBQRsaXN0BQR1bml0AM8hHgc=",
    "height": 3373689,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: C4RVZH5Q2a1myQH3R5UTvwbHQTRZaM4Rg8br246edqC6
Next: F78fV2znNc3CqRVMumkUZaivBwYTCTktsG1hW3ZS4Rvm

Diff: 
Old
New
Differences
120
120
 
@Callable(i)
121
121
 
func allow (airdrop,amount,accounts) = if (!(check_whitelist(i.caller)))
122
122
 
    then throw("Caller not in whitelist")
123
-
    else if ((0 >= amount))
123
+
    else if ((amount == 0))
124
124
 
        then throw("Wrong amount")
125
125
 
        else if ((size(accounts) == 0))
126
126
 
            then throw("No accounts")
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let indices_20 = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
5
5
 
6
6
 
func check_whitelist (caller) = if ((this == caller))
7
7
 
    then true
8
8
 
    else     match getBoolean(("W_" + toBase58String(caller.bytes))) {
9
9
 
        case x: Boolean => 
10
10
 
            x
11
11
 
        case _ => 
12
12
 
            false
13
13
 
    }
14
14
 
15
15
 
16
16
 
func fold_put_assets (accum,index) = {
17
17
 
    let $t0462499 = accum
18
18
 
    let list = $t0462499._1
19
19
 
    let airdrop = $t0462499._2
20
20
 
    let payments = $t0462499._3
21
21
 
    if ((index >= size(payments)))
22
22
 
        then accum
23
23
 
        else if ((payments[index].amount != 1))
24
24
 
            then throw((("Wrong payment " + toString((index + 1))) + " amount"))
25
25
 
            else {
26
26
 
                let key = (airdrop + "_end")
27
27
 
                let end =                 match getInteger(key) {
28
28
 
                    case j: Int => 
29
29
 
                        j
30
30
 
                    case _ => 
31
31
 
                        0
32
32
 
                }
33
33
 
                let id = toBase58String(value(payments[index].assetId))
34
34
 
                $Tuple3((list ++ [IntegerEntry(key, (end + 1)), StringEntry(((airdrop + "_X_") + toBase58String(toBytes(end))), id)]), airdrop, payments)
35
35
 
                }
36
36
 
    }
37
37
 
38
38
 
39
39
 
func fold_allow (accum,index) = {
40
40
 
    let $t011121157 = accum
41
41
 
    let list = $t011121157._1
42
42
 
    let airdrop = $t011121157._2
43
43
 
    let amount = $t011121157._3
44
44
 
    let accounts = $t011121157._4
45
45
 
    if ((index >= size(accounts)))
46
46
 
        then accum
47
47
 
        else {
48
48
 
            let key = ((airdrop + "_A_") + accounts[index])
49
49
 
            let allowed =             match getInteger(key) {
50
50
 
                case j: Int => 
51
51
 
                    j
52
52
 
                case _ => 
53
53
 
                    0
54
54
 
            }
55
55
 
            $Tuple4((list :+ IntegerEntry(key, (allowed + amount))), airdrop, amount, accounts)
56
56
 
            }
57
57
 
    }
58
58
 
59
59
 
60
60
 
func fold_claim (accum,index) = {
61
61
 
    let $t015531597 = accum
62
62
 
    let list = $t015531597._1
63
63
 
    let amount = $t015531597._2
64
64
 
    let airdrop = $t015531597._3
65
65
 
    let claimer = $t015531597._4
66
66
 
    if ((0 >= amount))
67
67
 
        then accum
68
68
 
        else {
69
69
 
            let asset_key = ((airdrop + "_X_") + toBase58String(toBytes(index)))
70
70
 
            let asset_id = fromBase58String(getStringValue(asset_key))
71
71
 
            $Tuple4((list ++ [DeleteEntry(asset_key), ScriptTransfer(claimer, 1, asset_id)]), (amount - 1), airdrop, claimer)
72
72
 
            }
73
73
 
    }
74
74
 
75
75
 
76
76
 
@Callable(i)
77
77
 
func whitelist_add (user) = if ((this != i.caller))
78
78
 
    then throw("Caller is not dApp owner")
79
79
 
    else $Tuple2([BooleanEntry(("W_" + user), true)], unit)
80
80
 
81
81
 
82
82
 
83
83
 
@Callable(i)
84
84
 
func whitelist_remove (user) = if ((this != i.caller))
85
85
 
    then throw("Caller is not dApp owner")
86
86
 
    else $Tuple2([DeleteEntry(("W_" + user))], unit)
87
87
 
88
88
 
89
89
 
90
90
 
@Callable(i)
91
91
 
func put_assets (airdrop) = if (!(check_whitelist(i.caller)))
92
92
 
    then throw("Caller not in whitelist")
93
93
 
    else if ((size(i.payments) == 0))
94
94
 
        then throw("No payment")
95
95
 
        else if ((size(i.payments) > 20))
96
96
 
            then throw("To many assets")
97
97
 
            else {
98
98
 
                let $t025622660 = {
99
99
 
                    let $l = indices_20
100
100
 
                    let $s = size($l)
101
101
 
                    let $acc0 = $Tuple3(nil, airdrop, i.payments)
102
102
 
                    func $f0_1 ($a,$i) =                     if (($i >= $s))
103
103
 
                        then $a
104
104
 
                        else fold_put_assets($a, $l[$i])
105
105
 
106
106
 
                    func $f0_2 ($a,$i) =                     if (($i >= $s))
107
107
 
                        then $a
108
108
 
                        else throw("List size exceeds 20")
109
109
 
110
110
 
                    $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)
111
111
 
                    }
112
112
 
                let list = $t025622660._1
113
113
 
                let airdrop_ = $t025622660._2
114
114
 
                let payments_ = $t025622660._3
115
115
 
                $Tuple2(list, unit)
116
116
 
                }
117
117
 
118
118
 
119
119
 
120
120
 
@Callable(i)
121
121
 
func allow (airdrop,amount,accounts) = if (!(check_whitelist(i.caller)))
122
122
 
    then throw("Caller not in whitelist")
123
-
    else if ((0 >= amount))
123
+
    else if ((amount == 0))
124
124
 
        then throw("Wrong amount")
125
125
 
        else if ((size(accounts) == 0))
126
126
 
            then throw("No accounts")
127
127
 
            else if ((size(accounts) > 20))
128
128
 
                then throw("Too many accounts")
129
129
 
                else {
130
130
 
                    let $t030423150 = {
131
131
 
                        let $l = indices_20
132
132
 
                        let $s = size($l)
133
133
 
                        let $acc0 = $Tuple4(nil, airdrop, amount, accounts)
134
134
 
                        func $f0_1 ($a,$i) =                         if (($i >= $s))
135
135
 
                            then $a
136
136
 
                            else fold_allow($a, $l[$i])
137
137
 
138
138
 
                        func $f0_2 ($a,$i) =                         if (($i >= $s))
139
139
 
                            then $a
140
140
 
                            else throw("List size exceeds 20")
141
141
 
142
142
 
                        $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)
143
143
 
                        }
144
144
 
                    let list = $t030423150._1
145
145
 
                    let airdrop_ = $t030423150._2
146
146
 
                    let amount_ = $t030423150._3
147
147
 
                    let accounts_ = $t030423150._4
148
148
 
                    $Tuple2(list, unit)
149
149
 
                    }
150
150
 
151
151
 
152
152
 
153
153
 
@Callable(i)
154
154
 
func claim (airdrop,amount) = {
155
155
 
    let k_allowed = ((airdrop + "_A_") + toBase58String(i.caller.bytes))
156
156
 
    let allowed = getIntegerValue(k_allowed)
157
157
 
    if ((amount > allowed))
158
158
 
        then throw("Caller not allowed to claim")
159
159
 
        else {
160
160
 
            let k_begin = (airdrop + "_begin")
161
161
 
            let k_end = (airdrop + "_end")
162
162
 
            let begin =             match getInteger(k_begin) {
163
163
 
                case j: Int => 
164
164
 
                    j
165
165
 
                case _ => 
166
166
 
                    0
167
167
 
            }
168
168
 
            let end =             match getInteger(k_end) {
169
169
 
                case j: Int => 
170
170
 
                    j
171
171
 
                case _ => 
172
172
 
                    0
173
173
 
            }
174
174
 
            if (if ((0 >= amount))
175
175
 
                then true
176
176
 
                else (amount > 20))
177
177
 
                then throw("Wrong amount (should be in range 1 -- 20)")
178
178
 
                else if ((amount > (end - begin)))
179
179
 
                    then throw("No assets in stock")
180
180
 
                    else {
181
181
 
                        let indices = [begin, (begin + 1), (begin + 2), (begin + 3), (begin + 4), (begin + 5), (begin + 6), (begin + 7), (begin + 8), (begin + 9), (begin + 10), (begin + 11), (begin + 12), (begin + 13), (begin + 14), (begin + 15), (begin + 16), (begin + 17), (begin + 18), (begin + 19)]
182
182
 
                        let $t042974450 = {
183
183
 
                            let $l = indices
184
184
 
                            let $s = size($l)
185
185
 
                            let $acc0 = $Tuple4(nil, amount, airdrop, Address(i.caller.bytes))
186
186
 
                            func $f0_1 ($a,$i) =                             if (($i >= $s))
187
187
 
                                then $a
188
188
 
                                else fold_claim($a, $l[$i])
189
189
 
190
190
 
                            func $f0_2 ($a,$i) =                             if (($i >= $s))
191
191
 
                                then $a
192
192
 
                                else throw("List size exceeds 20")
193
193
 
194
194
 
                            $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)
195
195
 
                            }
196
196
 
                        let list = $t042974450._1
197
197
 
                        let amount_ = $t042974450._2
198
198
 
                        let airdrop_ = $t042974450._3
199
199
 
                        let claimer_ = $t042974450._4
200
200
 
                        $Tuple2(([IntegerEntry(k_allowed, (allowed - amount)), IntegerEntry(k_begin, (begin + amount))] ++ list), unit)
201
201
 
                        }
202
202
 
            }
203
203
 
    }
204
204
 
205
205
 

github/deemru/w8io/3ef1775 
29.31 ms ◑