tx · 5XNLrUjkMeNvEW6B8gjd6vU73TELXQUpaMdUvBo8n62s

3Mr7HCJPTazuYjJbfbbpRMvZX8xrNTjT1Kx:  -0.01000000 Waves

2023.02.21 17:12 [2459518] smart account 3Mr7HCJPTazuYjJbfbbpRMvZX8xrNTjT1Kx > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5XNLrUjkMeNvEW6B8gjd6vU73TELXQUpaMdUvBo8n62s",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1676988781464,
    "version": 2,
    "chainId": 84,
    "sender": "3Mr7HCJPTazuYjJbfbbpRMvZX8xrNTjT1Kx",
    "senderPublicKey": "D35PGQCSSdrp9pvujggj7b2DaCK1BhcU3kho7tikKJYs",
    "proofs": [
        "39PYGKa8SR1eUtJnpswRNYfWdnCagWsZVD8U8tEE2Sdda9w68yVTNzZY9zmj8yoEjVX5fa19gUWD9Ro1XNcJVufK"
    ],
    "script": "base64:BgIfCAISAwoBARIAEgMKAQESBAoCGBESBAoCCAESAwoBCAIADG9wdGlvbnNfYWRkcgkBB0FkZHJlc3MBARoBVEFb+Cv2F+oqocvEivH7x7uyIGEx/ocgwQAEdFVTRAEgqyRKarZCRuvS/ON5sGG6w65pV01SespFHKdAHRGwKQ4GAWkBCWlzc3VlQmlsbAEJcHJvdmlkaW5nBApjdXJyZW50S2V5CQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEDWN1cnJlbnRBbW91bnQEByRtYXRjaDAJAJoIAgUEdGhpcwUKY3VycmVudEtleQMJAAECBQckbWF0Y2gwAgNJbnQEAWEFByRtYXRjaDAFAWEAAAQRbWluQmlsbERlcG9zaXRTdHIEByRtYXRjaDAJAJ0IAgUMb3B0aW9uc19hZGRyAhBtaW5fYmlsbF9kZXBvc2l0AwkAAQIFByRtYXRjaDACBFVuaXQCATADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAF4BQckbWF0Y2gwBQF4CQACAQILTWF0Y2ggZXJyb3IEDm1pbkJpbGxEZXBvc2l0BAckbWF0Y2gwCQC2CQEJAJEDAgkAtQkCBRFtaW5CaWxsRGVwb3NpdFN0cgIBLgAAAwkAAQIFByRtYXRjaDACBFVuaXQAAAMJAAECBQckbWF0Y2gwAgNJbnQEAXQFByRtYXRjaDAFAXQJAAIBAgtNYXRjaCBlcnJvcgQJbmV3QW1vdW50CQBlAgUNY3VycmVudEFtb3VudAUJcHJvdmlkaW5nAwkAZgIJAGgCBQ5taW5CaWxsRGVwb3NpdABkBQlwcm92aWRpbmcJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICJ1RoZSBzZWN1cml0eSBkZXBvc2l0IG11c3QgYmUgbW9yZSB0aGFuIAURbWluQmlsbERlcG9zaXRTdHICFC4gWW91IHNldCB0aGUgc2l6ZTogCQCkAwEJAGkCBQlwcm92aWRpbmcAZAIDLjAwAwkAZgIAAAUJbmV3QW1vdW50CQACAQISTm90IGVub3VnaCBiYWxhbmNlBAVpc3N1ZQkAwggFCQCsAgICCWJpbGwgZm9yOgkApAMBCQBpAgUJcHJvdmlkaW5nAGQFCmN1cnJlbnRLZXkAAQAABwQCaWQJALgIAQUFaXNzdWUJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUKY3VycmVudEtleQUJbmV3QW1vdW50CQDMCAIFBWlzc3VlCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQJpZAUDbmlsBQR1bml0AWkBB2RlcG9zaXQAAwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFFBheW1lbnQgbm90IGF0dGFjaGVkBANwbXQJAJEDAgkBBXZhbHVlAQgFAWkIcGF5bWVudHMAAAQNbWluRGVwb3NpdFN0cgQHJG1hdGNoMAkAnQgCBQxvcHRpb25zX2FkZHICEG1pbl9iaWxsX2RlcG9zaXQDCQABAgUHJG1hdGNoMAIEVW5pdAIBMAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXgFByRtYXRjaDAFAXgJAAIBAgtNYXRjaCBlcnJvcgQKbWluRGVwb3NpdAQHJG1hdGNoMAkAtgkBCQCRAwIJALUJAgUNbWluRGVwb3NpdFN0cgIBLgAAAwkAAQIFByRtYXRjaDACBFVuaXQAAAMJAAECBQckbWF0Y2gwAgNJbnQEAXQFByRtYXRjaDAFAXQJAAIBAgtNYXRjaCBlcnJvcgMJAQIhPQIIBQNwbXQHYXNzZXRJZAUEdFVTRAkAAgECF2hvbGRlZCBwYXltZW50IG5vdCB0VVNEAwkAZgIJAGgCBQptaW5EZXBvc2l0AGQIBQNwbXQGYW1vdW50CQACAQkArAICCQCsAgIJAKwCAgkArAICAiNZb3UgaGF2ZSBzZXQgdGhlIGRlcG9zaXQgYW1vdW50IHRvIAkApAMBCQBpAggFA3BtdAZhbW91bnQAZAIlLjAwLCB3aGljaCBpcyBsZXNzIHRoYW4gdGhlIG1pbmltdW0gKAUNbWluRGVwb3NpdFN0cgIBKQQKY3VycmVudEtleQkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBA1jdXJyZW50QW1vdW50BAckbWF0Y2gwCQCaCAIFBHRoaXMFCmN1cnJlbnRLZXkDCQABAgUHJG1hdGNoMAIDSW50BAFhBQckbWF0Y2gwBQFhAAAECW5ld0Ftb3VudAkAZAIFDWN1cnJlbnRBbW91bnQIBQNwbXQGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQpjdXJyZW50S2V5BQluZXdBbW91bnQFA25pbAFpAQh3aXRoZHJhdwEGYW1vdW50BApjdXJyZW50S2V5CQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEDWN1cnJlbnRBbW91bnQEByRtYXRjaDAJAJoIAgUEdGhpcwUKY3VycmVudEtleQMJAAECBQckbWF0Y2gwAgNJbnQEAWEFByRtYXRjaDAFAWEAAAQJbmV3QW1vdW50CQBlAgUNY3VycmVudEFtb3VudAUGYW1vdW50AwkAZgIAAAUGYW1vdW50CQACAQIeQ2FuJ3Qgd2l0aGRyYXcgbmVnYXRpdmUgYW1vdW50AwkAZgIAAAUJbmV3QW1vdW50CQACAQISTm90IGVub3VnaCBiYWxhbmNlCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFCmN1cnJlbnRLZXkFCW5ld0Ftb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFBmFtb3VudAUEdFVTRAUDbmlsBQR1bml0AWkBCnNldE9wdGlvbnMCBG9wdHMEdmFscwQIb3B0X3NpemUJAJADAQUEb3B0cwMJAGcCAGQFCG9wdF9zaXplBAlhZG1pbkxpc3QEByRtYXRjaDAJAJ0IAgUMb3B0aW9uc19hZGRyAgphZG1pbl9saXN0AwkAAQIFByRtYXRjaDACBFVuaXQCBXVuc2V0AwkAAQIFByRtYXRjaDACBlN0cmluZwQBeAUHJG1hdGNoMAUBeAkAAgECC01hdGNoIGVycm9yCgEOYWRkU3RyaW5nRW50cnkCBWFjY3VtCW5leHRWYWx1ZQQLJHQwNDU3MjQ1OTUFBWFjY3VtBAZyZXN1bHQIBQskdDA0NTcyNDU5NQJfMQQBaggFCyR0MDQ1NzI0NTk1Al8yCQCUCgIJAM0IAgUGcmVzdWx0CQEMSW50ZWdlckVudHJ5AgkAkQMCBQRvcHRzBQFqBQluZXh0VmFsdWUJAGQCBQFqAAEEAXIKAAIkbAUEdmFscwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDmFkZFN0cmluZ0VudHJ5AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAQQY2FsbGVyQWRkcmVzc1N0cgkApQgBCAUBaQZjYWxsZXIDCQECIT0CBQlhZG1pbkxpc3QCBXVuc2V0BAR0ZXN0CQCdCAIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCWFkbWluTGlzdAUQY2FsbGVyQWRkcmVzc1N0cgQHaXNBZG1pbgQHJG1hdGNoMAUEdGVzdAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXgFByRtYXRjaDAFAXgDCQABAgUHJG1hdGNoMAIEVW5pdAIIbm8gYWRtaW4JAAIBAgtNYXRjaCBlcnJvcgoBB2FkZF9lbG0BB29wdGlvbnMEA29wdAkAtQkCBQdvcHRpb25zAgF8CQELU3RyaW5nRW50cnkCCQCRAwIFA29wdAAACQCRAwIFA29wdAABAwkBAiE9AgUHaXNBZG1pbgIIbm8gYWRtaW4FAXIJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9Zb3Ugbm90IGFkbWluOiAFCWFkbWluTGlzdAILLCBpc0FkbWluOiAFB2lzQWRtaW4CFCwgY2FsbGVyQWRkcmVzc1N0cjogBRBjYWxsZXJBZGRyZXNzU3RyAgIsIAkAAgECEFVuc2V0IGFkbWluIGxpc3QJAAIBAi9UaGUgbnVtYmVyIG9mIGxpc3QgZWxlbWVudHMgbXVzdCBub3QgZXhjZWVkIDEwMAFpAQlzZXRPcHRpb24CCHZhcmlhYmxlBXZhbHVlBAlhZG1pbkxpc3QEByRtYXRjaDAJAJ0IAgUMb3B0aW9uc19hZGRyAgphZG1pbl9saXN0AwkAAQIFByRtYXRjaDACBFVuaXQCBXVuc2V0AwkAAQIFByRtYXRjaDACBlN0cmluZwQBeAUHJG1hdGNoMAUBeAkAAgECC01hdGNoIGVycm9yBBBjYWxsZXJBZGRyZXNzU3RyCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIFCWFkbWluTGlzdAIFdW5zZXQEBHRlc3QJAJ0IAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUJYWRtaW5MaXN0BRBjYWxsZXJBZGRyZXNzU3RyBAdpc0FkbWluBAckbWF0Y2gwBQR0ZXN0AwkAAQIFByRtYXRjaDACBlN0cmluZwQBeAUHJG1hdGNoMAUBeAMJAAECBQckbWF0Y2gwAgRVbml0AghubyBhZG1pbgkAAgECC01hdGNoIGVycm9yAwkBAiE9AgUHaXNBZG1pbgIIbm8gYWRtaW4JAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUIdmFyaWFibGUFBXZhbHVlBQNuaWwFBHVuaXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9Zb3Ugbm90IGFkbWluOiAFCWFkbWluTGlzdAILLCBpc0FkbWluOiAFB2lzQWRtaW4CFCwgY2FsbGVyQWRkcmVzc1N0cjogBRBjYWxsZXJBZGRyZXNzU3RyAgIsIAkAAgECEFVuc2V0IGFkbWluIGxpc3QBaQEJZGVsT3B0aW9uAQh2YXJpYWJsZQQJYWRtaW5MaXN0BAckbWF0Y2gwCQCdCAIFDG9wdGlvbnNfYWRkcgIKYWRtaW5fbGlzdAMJAAECBQckbWF0Y2gwAgRVbml0AgV1bnNldAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXgFByRtYXRjaDAFAXgJAAIBAgtNYXRjaCBlcnJvcgQQY2FsbGVyQWRkcmVzc1N0cgkApQgBCAUBaQZjYWxsZXIDCQECIT0CBQlhZG1pbkxpc3QCBXVuc2V0BAR0ZXN0CQCdCAIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCWFkbWluTGlzdAUQY2FsbGVyQWRkcmVzc1N0cgQHaXNBZG1pbgQHJG1hdGNoMAUEdGVzdAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXgFByRtYXRjaDAFAXgDCQABAgUHJG1hdGNoMAIEVW5pdAIIbm8gYWRtaW4JAAIBAgtNYXRjaCBlcnJvcgMJAQIhPQIFB2lzQWRtaW4CCG5vIGFkbWluCQCUCgIJAMwIAgkBC0RlbGV0ZUVudHJ5AQUIdmFyaWFibGUFA25pbAUEdW5pdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICD1lvdSBub3QgYWRtaW46IAUJYWRtaW5MaXN0AgssIGlzQWRtaW46IAUHaXNBZG1pbgIULCBjYWxsZXJBZGRyZXNzU3RyOiAFEGNhbGxlckFkZHJlc3NTdHICAiwgCQACAQIQVW5zZXQgYWRtaW4gbGlzdAECdHgBBnZlcmlmeQAJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAIBQJ0eA9zZW5kZXJQdWJsaWNLZXkkqdnH",
    "height": 2459518,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5Lxx2ix89E1uLtrmG482sBLVTd5JzZHzhsS9pj2fzkym
Next: 4f2TFHQyqoZsoDgKMBuwUBpLa6FczAvDu8XYDrQ1RrqF

Diff: 
Old
New
Differences
49
49
 
    then throw("Payment not attached")
50
50
 
    else {
51
51
 
        let pmt = value(i.payments)[0]
52
-
        let adminList =         match getString(options_addr, "admin_list") {
52
+
        let minDepositStr =         match getString(options_addr, "min_bill_deposit") {
53
53
 
            case _: Unit => 
54
-
                "unset"
54
+
                "0"
55
55
 
            case x: String => 
56
56
 
                x
57
57
 
            case _ => 
58
58
 
                throw("Match error")
59
59
 
        }
60
+
        let minDeposit =         match parseInt(split(minDepositStr, ".")[0]) {
61
+
            case _: Unit => 
62
+
                0
63
+
            case t: Int => 
64
+
                t
65
+
            case _ => 
66
+
                throw("Match error")
67
+
        }
60
68
 
        if ((pmt.assetId != tUSD))
61
69
 
            then throw("holded payment not tUSD")
62
-
            else if ((1000 > pmt.amount))
63
-
                then throw("holded payment < 10.00")
70
+
            else if (((minDeposit * 100) > pmt.amount))
71
+
                then throw((((("You have set the deposit amount to " + toString((pmt.amount / 100))) + ".00, which is less than the minimum (") + minDepositStr) + ")"))
64
72
 
                else {
65
73
 
                    let currentKey = toBase58String(i.caller.bytes)
66
74
 
                    let currentAmount =                     match getInteger(this, currentKey) {
109
117
 
                    throw("Match error")
110
118
 
            }
111
119
 
            func addStringEntry (accum,nextValue) =             {
112
-
                let $t043024325 = accum
113
-
                let result = $t043024325._1
114
-
                let j = $t043024325._2
120
+
                let $t045724595 = accum
121
+
                let result = $t045724595._1
122
+
                let j = $t045724595._2
115
123
 
                $Tuple2((result :+ IntegerEntry(opts[j], nextValue)), (j + 1))
116
124
 
                }
117
125
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let options_addr = Address(base58'3MusfsY6PqDh1YnF7YyTi5ffVT16Dm2bqf6')
5
5
 
6
6
 
let tUSD = base58'CX4p6XcuSBUvv44r1avCqYka5PYAVzBK5hSXaT7maU85'
7
7
 
8
8
 
@Callable(i)
9
9
 
func issueBill (providing) = {
10
10
 
    let currentKey = toBase58String(i.caller.bytes)
11
11
 
    let currentAmount =     match getInteger(this, currentKey) {
12
12
 
        case a: Int => 
13
13
 
            a
14
14
 
        case _ => 
15
15
 
            0
16
16
 
    }
17
17
 
    let minBillDepositStr =     match getString(options_addr, "min_bill_deposit") {
18
18
 
        case _: Unit => 
19
19
 
            "0"
20
20
 
        case x: String => 
21
21
 
            x
22
22
 
        case _ => 
23
23
 
            throw("Match error")
24
24
 
    }
25
25
 
    let minBillDeposit =     match parseInt(split(minBillDepositStr, ".")[0]) {
26
26
 
        case _: Unit => 
27
27
 
            0
28
28
 
        case t: Int => 
29
29
 
            t
30
30
 
        case _ => 
31
31
 
            throw("Match error")
32
32
 
    }
33
33
 
    let newAmount = (currentAmount - providing)
34
34
 
    if (((minBillDeposit * 100) > providing))
35
35
 
        then throw((((("The security deposit must be more than " + minBillDepositStr) + ". You set the size: ") + toString((providing / 100))) + ".00"))
36
36
 
        else if ((0 > newAmount))
37
37
 
            then throw("Not enough balance")
38
38
 
            else {
39
39
 
                let issue = Issue(("bill for:" + toString((providing / 100))), currentKey, 1, 0, false)
40
40
 
                let id = calculateAssetId(issue)
41
41
 
                $Tuple2([IntegerEntry(currentKey, newAmount), issue, ScriptTransfer(i.caller, 1, id)], unit)
42
42
 
                }
43
43
 
    }
44
44
 
45
45
 
46
46
 
47
47
 
@Callable(i)
48
48
 
func deposit () = if ((size(i.payments) == 0))
49
49
 
    then throw("Payment not attached")
50
50
 
    else {
51
51
 
        let pmt = value(i.payments)[0]
52
-
        let adminList =         match getString(options_addr, "admin_list") {
52
+
        let minDepositStr =         match getString(options_addr, "min_bill_deposit") {
53
53
 
            case _: Unit => 
54
-
                "unset"
54
+
                "0"
55
55
 
            case x: String => 
56
56
 
                x
57
57
 
            case _ => 
58
58
 
                throw("Match error")
59
59
 
        }
60
+
        let minDeposit =         match parseInt(split(minDepositStr, ".")[0]) {
61
+
            case _: Unit => 
62
+
                0
63
+
            case t: Int => 
64
+
                t
65
+
            case _ => 
66
+
                throw("Match error")
67
+
        }
60
68
 
        if ((pmt.assetId != tUSD))
61
69
 
            then throw("holded payment not tUSD")
62
-
            else if ((1000 > pmt.amount))
63
-
                then throw("holded payment < 10.00")
70
+
            else if (((minDeposit * 100) > pmt.amount))
71
+
                then throw((((("You have set the deposit amount to " + toString((pmt.amount / 100))) + ".00, which is less than the minimum (") + minDepositStr) + ")"))
64
72
 
                else {
65
73
 
                    let currentKey = toBase58String(i.caller.bytes)
66
74
 
                    let currentAmount =                     match getInteger(this, currentKey) {
67
75
 
                        case a: Int => 
68
76
 
                            a
69
77
 
                        case _ => 
70
78
 
                            0
71
79
 
                    }
72
80
 
                    let newAmount = (currentAmount + pmt.amount)
73
81
 
[IntegerEntry(currentKey, newAmount)]
74
82
 
                    }
75
83
 
        }
76
84
 
77
85
 
78
86
 
79
87
 
@Callable(i)
80
88
 
func withdraw (amount) = {
81
89
 
    let currentKey = toBase58String(i.caller.bytes)
82
90
 
    let currentAmount =     match getInteger(this, currentKey) {
83
91
 
        case a: Int => 
84
92
 
            a
85
93
 
        case _ => 
86
94
 
            0
87
95
 
    }
88
96
 
    let newAmount = (currentAmount - amount)
89
97
 
    if ((0 > amount))
90
98
 
        then throw("Can't withdraw negative amount")
91
99
 
        else if ((0 > newAmount))
92
100
 
            then throw("Not enough balance")
93
101
 
            else $Tuple2([IntegerEntry(currentKey, newAmount), ScriptTransfer(i.caller, amount, tUSD)], unit)
94
102
 
    }
95
103
 
96
104
 
97
105
 
98
106
 
@Callable(i)
99
107
 
func setOptions (opts,vals) = {
100
108
 
    let opt_size = size(opts)
101
109
 
    if ((100 >= opt_size))
102
110
 
        then {
103
111
 
            let adminList =             match getString(options_addr, "admin_list") {
104
112
 
                case _: Unit => 
105
113
 
                    "unset"
106
114
 
                case x: String => 
107
115
 
                    x
108
116
 
                case _ => 
109
117
 
                    throw("Match error")
110
118
 
            }
111
119
 
            func addStringEntry (accum,nextValue) =             {
112
-
                let $t043024325 = accum
113
-
                let result = $t043024325._1
114
-
                let j = $t043024325._2
120
+
                let $t045724595 = accum
121
+
                let result = $t045724595._1
122
+
                let j = $t045724595._2
115
123
 
                $Tuple2((result :+ IntegerEntry(opts[j], nextValue)), (j + 1))
116
124
 
                }
117
125
 
118
126
 
            let r = {
119
127
 
                let $l = vals
120
128
 
                let $s = size($l)
121
129
 
                let $acc0 = $Tuple2(nil, 0)
122
130
 
                func $f0_1 ($a,$i) =                 if (($i >= $s))
123
131
 
                    then $a
124
132
 
                    else addStringEntry($a, $l[$i])
125
133
 
126
134
 
                func $f0_2 ($a,$i) =                 if (($i >= $s))
127
135
 
                    then $a
128
136
 
                    else throw("List size exceeds 100")
129
137
 
130
138
 
                $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($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($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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
131
139
 
                }
132
140
 
            let callerAddressStr = toString(i.caller)
133
141
 
            if ((adminList != "unset"))
134
142
 
                then {
135
143
 
                    let test = getString(addressFromStringValue(adminList), callerAddressStr)
136
144
 
                    let isAdmin =                     match test {
137
145
 
                        case x: String => 
138
146
 
                            x
139
147
 
                        case _: Unit => 
140
148
 
                            "no admin"
141
149
 
                        case _ => 
142
150
 
                            throw("Match error")
143
151
 
                    }
144
152
 
                    func add_elm (options) =                     {
145
153
 
                        let opt = split(options, "|")
146
154
 
                        StringEntry(opt[0], opt[1])
147
155
 
                        }
148
156
 
149
157
 
                    if ((isAdmin != "no admin"))
150
158
 
                        then r
151
159
 
                        else throw((((((("You not admin: " + adminList) + ", isAdmin: ") + isAdmin) + ", callerAddressStr: ") + callerAddressStr) + ", "))
152
160
 
                    }
153
161
 
                else throw("Unset admin list")
154
162
 
            }
155
163
 
        else throw("The number of list elements must not exceed 100")
156
164
 
    }
157
165
 
158
166
 
159
167
 
160
168
 
@Callable(i)
161
169
 
func setOption (variable,value) = {
162
170
 
    let adminList =     match getString(options_addr, "admin_list") {
163
171
 
        case _: Unit => 
164
172
 
            "unset"
165
173
 
        case x: String => 
166
174
 
            x
167
175
 
        case _ => 
168
176
 
            throw("Match error")
169
177
 
    }
170
178
 
    let callerAddressStr = toString(i.caller)
171
179
 
    if ((adminList != "unset"))
172
180
 
        then {
173
181
 
            let test = getString(addressFromStringValue(adminList), callerAddressStr)
174
182
 
            let isAdmin =             match test {
175
183
 
                case x: String => 
176
184
 
                    x
177
185
 
                case _: Unit => 
178
186
 
                    "no admin"
179
187
 
                case _ => 
180
188
 
                    throw("Match error")
181
189
 
            }
182
190
 
            if ((isAdmin != "no admin"))
183
191
 
                then $Tuple2([IntegerEntry(variable, value)], unit)
184
192
 
                else throw((((((("You not admin: " + adminList) + ", isAdmin: ") + isAdmin) + ", callerAddressStr: ") + callerAddressStr) + ", "))
185
193
 
            }
186
194
 
        else throw("Unset admin list")
187
195
 
    }
188
196
 
189
197
 
190
198
 
191
199
 
@Callable(i)
192
200
 
func delOption (variable) = {
193
201
 
    let adminList =     match getString(options_addr, "admin_list") {
194
202
 
        case _: Unit => 
195
203
 
            "unset"
196
204
 
        case x: String => 
197
205
 
            x
198
206
 
        case _ => 
199
207
 
            throw("Match error")
200
208
 
    }
201
209
 
    let callerAddressStr = toString(i.caller)
202
210
 
    if ((adminList != "unset"))
203
211
 
        then {
204
212
 
            let test = getString(addressFromStringValue(adminList), callerAddressStr)
205
213
 
            let isAdmin =             match test {
206
214
 
                case x: String => 
207
215
 
                    x
208
216
 
                case _: Unit => 
209
217
 
                    "no admin"
210
218
 
                case _ => 
211
219
 
                    throw("Match error")
212
220
 
            }
213
221
 
            if ((isAdmin != "no admin"))
214
222
 
                then $Tuple2([DeleteEntry(variable)], unit)
215
223
 
                else throw((((((("You not admin: " + adminList) + ", isAdmin: ") + isAdmin) + ", callerAddressStr: ") + callerAddressStr) + ", "))
216
224
 
            }
217
225
 
        else throw("Unset admin list")
218
226
 
    }
219
227
 
220
228
 
221
229
 
@Verifier(tx)
222
230
 
func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
223
231
 

github/deemru/w8io/873ac7e 
46.70 ms ◑