tx · B7XVF8KjpUncmT2XUqohRmvjJtpE7pCJhZQyvHPfW7gc

3Mr7HCJPTazuYjJbfbbpRMvZX8xrNTjT1Kx:  -0.01000000 Waves

2023.02.21 16:31 [2459476] smart account 3Mr7HCJPTazuYjJbfbbpRMvZX8xrNTjT1Kx > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "B7XVF8KjpUncmT2XUqohRmvjJtpE7pCJhZQyvHPfW7gc",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1676986357368,
    "version": 2,
    "chainId": 84,
    "sender": "3Mr7HCJPTazuYjJbfbbpRMvZX8xrNTjT1Kx",
    "senderPublicKey": "D35PGQCSSdrp9pvujggj7b2DaCK1BhcU3kho7tikKJYs",
    "proofs": [
        "392SXfBBiYgTqAazx2mL8j6EJZT5qjGDS2qzpZy5cs2Std5GB7hpShW6yhJahsBSdM3xmbg1tE6cuyFWibnpjeyC"
    ],
    "script": "base64:BgIfCAISAwoBARIAEgMKAQESBAoCGBESBAoCCAESAwoBCAIADG9wdGlvbnNfYWRkcgkBB0FkZHJlc3MBARoBVEFb+Cv2F+oqocvEivH7x7uyIGEx/ocgwQAEdFVTRAEgqyRKarZCRuvS/ON5sGG6w65pV01SespFHKdAHRGwKQ4GAWkBCWlzc3VlQmlsbAEJcHJvdmlkaW5nBApjdXJyZW50S2V5CQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEDWN1cnJlbnRBbW91bnQEByRtYXRjaDAJAJoIAgUEdGhpcwUKY3VycmVudEtleQMJAAECBQckbWF0Y2gwAgNJbnQEAWEFByRtYXRjaDAFAWEAAAQRbWluQmlsbERlcG9zaXRTdHIEByRtYXRjaDAJAJ0IAgUMb3B0aW9uc19hZGRyAhBtaW5fYmlsbF9kZXBvc2l0AwkAAQIFByRtYXRjaDACBFVuaXQCBXVuc2V0AwkAAQIFByRtYXRjaDACBlN0cmluZwQBeAUHJG1hdGNoMAUBeAkAAgECC01hdGNoIGVycm9yBA5taW5CaWxsRGVwb3NpdAkAaAIJALEJAQkAmwMBBRFtaW5CaWxsRGVwb3NpdFN0cgBkBAluZXdBbW91bnQJAGUCBQ1jdXJyZW50QW1vdW50BQlwcm92aWRpbmcDCQBmAgUObWluQmlsbERlcG9zaXQFCXByb3ZpZGluZwkAAgEJAKwCAgkArAICCQCsAgICJ1RoZSBzZWN1cml0eSBkZXBvc2l0IG11c3QgYmUgbW9yZSB0aGFuIAURbWluQmlsbERlcG9zaXRTdHICFC4gWW91IHNldCB0aGUgc2l6ZTogCQCkAwEFCXByb3ZpZGluZwMJAGYCAAAFCW5ld0Ftb3VudAkAAgECEk5vdCBlbm91Z2ggYmFsYW5jZQQFaXNzdWUJAMIIBQkArAICAgliaWxsIGZvcjoJAKQDAQkAaQIFCXByb3ZpZGluZwBkBQpjdXJyZW50S2V5AAEAAAcEAmlkCQC4CAEFBWlzc3VlCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFCmN1cnJlbnRLZXkFCW5ld0Ftb3VudAkAzAgCBQVpc3N1ZQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIAAQUCaWQFA25pbAUEdW5pdAFpAQdkZXBvc2l0AAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRQYXltZW50IG5vdCBhdHRhY2hlZAQDcG10CQCRAwIJAQV2YWx1ZQEIBQFpCHBheW1lbnRzAAAECWFkbWluTGlzdAQHJG1hdGNoMAkAnQgCBQxvcHRpb25zX2FkZHICCmFkbWluX2xpc3QDCQABAgUHJG1hdGNoMAIEVW5pdAIFdW5zZXQDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAF4BQckbWF0Y2gwBQF4CQACAQILTWF0Y2ggZXJyb3IDCQECIT0CCAUDcG10B2Fzc2V0SWQFBHRVU0QJAAIBAhdob2xkZWQgcGF5bWVudCBub3QgdFVTRAMJAGYCAOgHCAUDcG10BmFtb3VudAkAAgECFmhvbGRlZCBwYXltZW50IDwgMTAuMDAECmN1cnJlbnRLZXkJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQNY3VycmVudEFtb3VudAQHJG1hdGNoMAkAmggCBQR0aGlzBQpjdXJyZW50S2V5AwkAAQIFByRtYXRjaDACA0ludAQBYQUHJG1hdGNoMAUBYQAABAluZXdBbW91bnQJAGQCBQ1jdXJyZW50QW1vdW50CAUDcG10BmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUKY3VycmVudEtleQUJbmV3QW1vdW50BQNuaWwBaQEId2l0aGRyYXcBBmFtb3VudAQKY3VycmVudEtleQkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBA1jdXJyZW50QW1vdW50BAckbWF0Y2gwCQCaCAIFBHRoaXMFCmN1cnJlbnRLZXkDCQABAgUHJG1hdGNoMAIDSW50BAFhBQckbWF0Y2gwBQFhAAAECW5ld0Ftb3VudAkAZQIFDWN1cnJlbnRBbW91bnQFBmFtb3VudAMJAGYCAAAFBmFtb3VudAkAAgECHkNhbid0IHdpdGhkcmF3IG5lZ2F0aXZlIGFtb3VudAMJAGYCAAAFCW5ld0Ftb3VudAkAAgECEk5vdCBlbm91Z2ggYmFsYW5jZQkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQpjdXJyZW50S2V5BQluZXdBbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQZhbW91bnQFBHRVU0QFA25pbAUEdW5pdAFpAQpzZXRPcHRpb25zAgRvcHRzBHZhbHMECG9wdF9zaXplCQCQAwEFBG9wdHMDCQBnAgBkBQhvcHRfc2l6ZQQJYWRtaW5MaXN0BAckbWF0Y2gwCQCdCAIFDG9wdGlvbnNfYWRkcgIKYWRtaW5fbGlzdAMJAAECBQckbWF0Y2gwAgRVbml0AgV1bnNldAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXgFByRtYXRjaDAFAXgJAAIBAgtNYXRjaCBlcnJvcgoBDmFkZFN0cmluZ0VudHJ5AgVhY2N1bQluZXh0VmFsdWUECyR0MDQyMjA0MjQzBQVhY2N1bQQGcmVzdWx0CAULJHQwNDIyMDQyNDMCXzEEAWoIBQskdDA0MjIwNDI0MwJfMgkAlAoCCQDNCAIFBnJlc3VsdAkBDEludGVnZXJFbnRyeQIJAJEDAgUEb3B0cwUBagUJbmV4dFZhbHVlCQBkAgUBagABBAFyCgACJGwFBHZhbHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ5hZGRTdHJpbmdFbnRyeQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIVTGlzdCBzaXplIGV4Y2VlZHMgMTAwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AD0APgA/AEAAQQBCAEMARABFAEYARwBIAEkASgBLAEwATQBOAE8AUABRAFIAUwBUAFUAVgBXAFgAWQBaAFsAXABdAF4AXwBgAGEAYgBjAGQEEGNhbGxlckFkZHJlc3NTdHIJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgUJYWRtaW5MaXN0AgV1bnNldAQEdGVzdAkAnQgCCQERQGV4dHJOYXRpdmUoMTA2MikBBQlhZG1pbkxpc3QFEGNhbGxlckFkZHJlc3NTdHIEB2lzQWRtaW4EByRtYXRjaDAFBHRlc3QDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAF4BQckbWF0Y2gwBQF4AwkAAQIFByRtYXRjaDACBFVuaXQCCG5vIGFkbWluCQACAQILTWF0Y2ggZXJyb3IKAQdhZGRfZWxtAQdvcHRpb25zBANvcHQJALUJAgUHb3B0aW9ucwIBfAkBC1N0cmluZ0VudHJ5AgkAkQMCBQNvcHQAAAkAkQMCBQNvcHQAAQMJAQIhPQIFB2lzQWRtaW4CCG5vIGFkbWluBQFyCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPWW91IG5vdCBhZG1pbjogBQlhZG1pbkxpc3QCCywgaXNBZG1pbjogBQdpc0FkbWluAhQsIGNhbGxlckFkZHJlc3NTdHI6IAUQY2FsbGVyQWRkcmVzc1N0cgICLCAJAAIBAhBVbnNldCBhZG1pbiBsaXN0CQACAQIvVGhlIG51bWJlciBvZiBsaXN0IGVsZW1lbnRzIG11c3Qgbm90IGV4Y2VlZCAxMDABaQEJc2V0T3B0aW9uAgh2YXJpYWJsZQV2YWx1ZQQJYWRtaW5MaXN0BAckbWF0Y2gwCQCdCAIFDG9wdGlvbnNfYWRkcgIKYWRtaW5fbGlzdAMJAAECBQckbWF0Y2gwAgRVbml0AgV1bnNldAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXgFByRtYXRjaDAFAXgJAAIBAgtNYXRjaCBlcnJvcgQQY2FsbGVyQWRkcmVzc1N0cgkApQgBCAUBaQZjYWxsZXIDCQECIT0CBQlhZG1pbkxpc3QCBXVuc2V0BAR0ZXN0CQCdCAIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCWFkbWluTGlzdAUQY2FsbGVyQWRkcmVzc1N0cgQHaXNBZG1pbgQHJG1hdGNoMAUEdGVzdAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXgFByRtYXRjaDAFAXgDCQABAgUHJG1hdGNoMAIEVW5pdAIIbm8gYWRtaW4JAAIBAgtNYXRjaCBlcnJvcgMJAQIhPQIFB2lzQWRtaW4CCG5vIGFkbWluCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFCHZhcmlhYmxlBQV2YWx1ZQUDbmlsBQR1bml0CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPWW91IG5vdCBhZG1pbjogBQlhZG1pbkxpc3QCCywgaXNBZG1pbjogBQdpc0FkbWluAhQsIGNhbGxlckFkZHJlc3NTdHI6IAUQY2FsbGVyQWRkcmVzc1N0cgICLCAJAAIBAhBVbnNldCBhZG1pbiBsaXN0AWkBCWRlbE9wdGlvbgEIdmFyaWFibGUECWFkbWluTGlzdAQHJG1hdGNoMAkAnQgCBQxvcHRpb25zX2FkZHICCmFkbWluX2xpc3QDCQABAgUHJG1hdGNoMAIEVW5pdAIFdW5zZXQDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAF4BQckbWF0Y2gwBQF4CQACAQILTWF0Y2ggZXJyb3IEEGNhbGxlckFkZHJlc3NTdHIJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgUJYWRtaW5MaXN0AgV1bnNldAQEdGVzdAkAnQgCCQERQGV4dHJOYXRpdmUoMTA2MikBBQlhZG1pbkxpc3QFEGNhbGxlckFkZHJlc3NTdHIEB2lzQWRtaW4EByRtYXRjaDAFBHRlc3QDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAF4BQckbWF0Y2gwBQF4AwkAAQIFByRtYXRjaDACBFVuaXQCCG5vIGFkbWluCQACAQILTWF0Y2ggZXJyb3IDCQECIT0CBQdpc0FkbWluAghubyBhZG1pbgkAlAoCCQDMCAIJAQtEZWxldGVFbnRyeQEFCHZhcmlhYmxlBQNuaWwFBHVuaXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9Zb3Ugbm90IGFkbWluOiAFCWFkbWluTGlzdAILLCBpc0FkbWluOiAFB2lzQWRtaW4CFCwgY2FsbGVyQWRkcmVzc1N0cjogBRBjYWxsZXJBZGRyZXNzU3RyAgIsIAkAAgECEFVuc2V0IGFkbWluIGxpc3QBAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5nHd6PQ==",
    "height": 2459476,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9YkYqa25k7RckNzfJsxKctZFKV7caPAT2tRvJ2hDNbbD
Next: GuLjEdb1jRSvvv3sF8BXGGNf9b4iz9pBazRzvKeo3Hff

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

github/deemru/w8io/169f3d6 
54.85 ms ◑