w8 · tx · 63b···He2

tx · 63b8Fc3aNNDxvaPTY4FtDMpRAJHiuKqHjkNN3y4qUHe2

3Mr7HCJPTazuYjJbfbbpRMvZX8xrNTjT1Kx:  -0.01000000 Waves

2023.02.17 09:11 [2453243] smart account 3Mr7HCJPTazuYjJbfbbpRMvZX8xrNTjT1Kx > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "63b8Fc3aNNDxvaPTY4FtDMpRAJHiuKqHjkNN3y4qUHe2",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1676614381490,
    "version": 2,
    "chainId": 84,
    "sender": "3Mr7HCJPTazuYjJbfbbpRMvZX8xrNTjT1Kx",
    "senderPublicKey": "D35PGQCSSdrp9pvujggj7b2DaCK1BhcU3kho7tikKJYs",
    "proofs": [
        "2Tv5ccMLBfWA3t799sq3i98KvPH1NhFybUosRXr3ZegpFuF8y4SrcyqkcFXAzAafQQnhCtUm8ynyFN1Hb636m715"
    ],
    "script": "base64:BgIaCAISABIDCgEBEgQKAhgREgQKAggBEgMKAQgABQFpAQdkZXBvc2l0AAQDcG10CQCRAwIJAQV2YWx1ZQEIBQFpCHBheW1lbnRzAAADCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkCQACAQIhY2FuIGhvZGwgd2F2ZXMgb25seSBhdCB0aGUgbW9tZW50BApjdXJyZW50S2V5CQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEDWN1cnJlbnRBbW91bnQEByRtYXRjaDAJAJoIAgUEdGhpcwUKY3VycmVudEtleQMJAAECBQckbWF0Y2gwAgNJbnQEAWEFByRtYXRjaDAFAWEAAAQJbmV3QW1vdW50CQBkAgUNY3VycmVudEFtb3VudAgFA3BtdAZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFCmN1cnJlbnRLZXkFCW5ld0Ftb3VudAUDbmlsAWkBCHdpdGhkcmF3AQZhbW91bnQECmN1cnJlbnRLZXkJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQNY3VycmVudEFtb3VudAQHJG1hdGNoMAkAmggCBQR0aGlzBQpjdXJyZW50S2V5AwkAAQIFByRtYXRjaDACA0ludAQBYQUHJG1hdGNoMAUBYQAABAluZXdBbW91bnQJAGUCBQ1jdXJyZW50QW1vdW50BQZhbW91bnQDCQBmAgAABQZhbW91bnQJAAIBAh5DYW4ndCB3aXRoZHJhdyBuZWdhdGl2ZSBhbW91bnQDCQBmAgAABQluZXdBbW91bnQJAAIBAhJOb3QgZW5vdWdoIGJhbGFuY2UJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUKY3VycmVudEtleQUJbmV3QW1vdW50CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUGYW1vdW50BQR1bml0BQNuaWwFBHVuaXQBaQEKc2V0T3B0aW9ucwIEb3B0cwR2YWxzBAhvcHRfc2l6ZQkAkAMBBQRvcHRzAwkAZwIAZAUIb3B0X3NpemUEDG9wdGlvbnNfYWRkcgkBB0FkZHJlc3MBARoBVEFb+Cv2F+oqocvEivH7x7uyIGEx/ocgwQQJYWRtaW5MaXN0BAckbWF0Y2gwCQCdCAIFDG9wdGlvbnNfYWRkcgIKYWRtaW5fbGlzdAMJAAECBQckbWF0Y2gwAgRVbml0AgV1bnNldAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXgFByRtYXRjaDAFAXgJAAIBAgtNYXRjaCBlcnJvcgoBDmFkZFN0cmluZ0VudHJ5AgVhY2N1bQluZXh0VmFsdWUECyR0MDI0NzMyNDk2BQVhY2N1bQQGcmVzdWx0CAULJHQwMjQ3MzI0OTYCXzEEAWoIBQskdDAyNDczMjQ5NgJfMgkAlAoCCQDNCAIFBnJlc3VsdAkBDEludGVnZXJFbnRyeQIJAJEDAgUEb3B0cwUBagUJbmV4dFZhbHVlCQBkAgUBagABBAFyCgACJGwFBHZhbHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ5hZGRTdHJpbmdFbnRyeQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIVTGlzdCBzaXplIGV4Y2VlZHMgMTAwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AD0APgA/AEAAQQBCAEMARABFAEYARwBIAEkASgBLAEwATQBOAE8AUABRAFIAUwBUAFUAVgBXAFgAWQBaAFsAXABdAF4AXwBgAGEAYgBjAGQEEGNhbGxlckFkZHJlc3NTdHIJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgUJYWRtaW5MaXN0AgV1bnNldAQEdGVzdAkAnQgCCQERQGV4dHJOYXRpdmUoMTA2MikBBQlhZG1pbkxpc3QFEGNhbGxlckFkZHJlc3NTdHIEB2lzQWRtaW4EByRtYXRjaDAFBHRlc3QDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAF4BQckbWF0Y2gwBQF4AwkAAQIFByRtYXRjaDACBFVuaXQCCG5vIGFkbWluCQACAQILTWF0Y2ggZXJyb3IKAQdhZGRfZWxtAQdvcHRpb25zBANvcHQJALUJAgUHb3B0aW9ucwIBfAkBC1N0cmluZ0VudHJ5AgkAkQMCBQNvcHQAAAkAkQMCBQNvcHQAAQMJAQIhPQIFB2lzQWRtaW4CCG5vIGFkbWluBQFyCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPWW91IG5vdCBhZG1pbjogBQlhZG1pbkxpc3QCCywgaXNBZG1pbjogBQdpc0FkbWluAhQsIGNhbGxlckFkZHJlc3NTdHI6IAUQY2FsbGVyQWRkcmVzc1N0cgICLCAJAAIBAhBVbnNldCBhZG1pbiBsaXN0CQACAQIvVGhlIG51bWJlciBvZiBsaXN0IGVsZW1lbnRzIG11c3Qgbm90IGV4Y2VlZCAxMDABaQEJc2V0T3B0aW9uAgh2YXJpYWJsZQV2YWx1ZQQMb3B0aW9uc19hZGRyCQEHQWRkcmVzcwEBGgFUQVv4K/YX6iqhy8SK8fvHu7IgYTH+hyDBBAlhZG1pbkxpc3QEByRtYXRjaDAJAJ0IAgUMb3B0aW9uc19hZGRyAgphZG1pbl9saXN0AwkAAQIFByRtYXRjaDACBFVuaXQCBXVuc2V0AwkAAQIFByRtYXRjaDACBlN0cmluZwQBeAUHJG1hdGNoMAUBeAkAAgECC01hdGNoIGVycm9yBBBjYWxsZXJBZGRyZXNzU3RyCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIFCWFkbWluTGlzdAIFdW5zZXQEBHRlc3QJAJ0IAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUJYWRtaW5MaXN0BRBjYWxsZXJBZGRyZXNzU3RyBAdpc0FkbWluBAckbWF0Y2gwBQR0ZXN0AwkAAQIFByRtYXRjaDACBlN0cmluZwQBeAUHJG1hdGNoMAUBeAMJAAECBQckbWF0Y2gwAgRVbml0AghubyBhZG1pbgkAAgECC01hdGNoIGVycm9yAwkBAiE9AgUHaXNBZG1pbgIIbm8gYWRtaW4JAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUIdmFyaWFibGUFBXZhbHVlBQNuaWwFBHVuaXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9Zb3Ugbm90IGFkbWluOiAFCWFkbWluTGlzdAILLCBpc0FkbWluOiAFB2lzQWRtaW4CFCwgY2FsbGVyQWRkcmVzc1N0cjogBRBjYWxsZXJBZGRyZXNzU3RyAgIsIAkAAgECEFVuc2V0IGFkbWluIGxpc3QBaQEJZGVsT3B0aW9uAQh2YXJpYWJsZQQMb3B0aW9uc19hZGRyCQEHQWRkcmVzcwEBGgFUQVv4K/YX6iqhy8SK8fvHu7IgYTH+hyDBBAlhZG1pbkxpc3QEByRtYXRjaDAJAJ0IAgUMb3B0aW9uc19hZGRyAgphZG1pbl9saXN0AwkAAQIFByRtYXRjaDACBFVuaXQCBXVuc2V0AwkAAQIFByRtYXRjaDACBlN0cmluZwQBeAUHJG1hdGNoMAUBeAkAAgECC01hdGNoIGVycm9yBBBjYWxsZXJBZGRyZXNzU3RyCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIFCWFkbWluTGlzdAIFdW5zZXQEBHRlc3QJAJ0IAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUJYWRtaW5MaXN0BRBjYWxsZXJBZGRyZXNzU3RyBAdpc0FkbWluBAckbWF0Y2gwBQR0ZXN0AwkAAQIFByRtYXRjaDACBlN0cmluZwQBeAUHJG1hdGNoMAUBeAMJAAECBQckbWF0Y2gwAgRVbml0AghubyBhZG1pbgkAAgECC01hdGNoIGVycm9yAwkBAiE9AgUHaXNBZG1pbgIIbm8gYWRtaW4JAJQKAgkAzAgCCQELRGVsZXRlRW50cnkBBQh2YXJpYWJsZQUDbmlsBQR1bml0CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPWW91IG5vdCBhZG1pbjogBQlhZG1pbkxpc3QCCywgaXNBZG1pbjogBQdpc0FkbWluAhQsIGNhbGxlckFkZHJlc3NTdHI6IAUQY2FsbGVyQWRkcmVzc1N0cgICLCAJAAIBAhBVbnNldCBhZG1pbiBsaXN0AQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tledJrvC0=",
    "height": 2453243,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: cqDfo7mXH6b1QfZ3KKbApmVD5yCs1gLpRYxAceQPgE7
Next: F4LhcqZYvbaG74MnUZNpdS4iM6rMcfBaF5c3ZLTdKpyM

Diff: 
Old New Differences
157 157  
158 158  @Callable(a)
159 159  func delOption (I) = {
160 +     let l = Address(base58'3MusfsY6PqDh1YnF7YyTi5ffVT16Dm2bqf6')
160 161      let m = {
161 -         let e = getString(this, "admin_list")
162 +         let e = getString(l, "admin_list")
162 163          if ($isInstanceOf(e, "Unit"))
163 164              then "unset"
164 165              else if ($isInstanceOf(e, "String"))
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  
5 5  
6 6  @Callable(a)
7 7  func deposit () = {
8 8      let b = value(a.payments)[0]
9 9      if (isDefined(b.assetId))
10 10          then throw("can hodl waves only at the moment")
11 11          else {
12 12              let c = toBase58String(a.caller.bytes)
13 13              let d = {
14 14                  let e = getInteger(this, c)
15 15                  if ($isInstanceOf(e, "Int"))
16 16                      then {
17 17                          let f = e
18 18                          f
19 19                          }
20 20                      else 0
21 21                  }
22 22              let g = (d + b.amount)
23 23  [IntegerEntry(c, g)]
24 24              }
25 25      }
26 26  
27 27  
28 28  
29 29  @Callable(a)
30 30  func withdraw (h) = {
31 31      let c = toBase58String(a.caller.bytes)
32 32      let d = {
33 33          let e = getInteger(this, c)
34 34          if ($isInstanceOf(e, "Int"))
35 35              then {
36 36                  let f = e
37 37                  f
38 38                  }
39 39              else 0
40 40          }
41 41      let g = (d - h)
42 42      if ((0 > h))
43 43          then throw("Can't withdraw negative amount")
44 44          else if ((0 > g))
45 45              then throw("Not enough balance")
46 46              else $Tuple2([IntegerEntry(c, g), ScriptTransfer(a.caller, h, unit)], unit)
47 47      }
48 48  
49 49  
50 50  
51 51  @Callable(a)
52 52  func setOptions (i,j) = {
53 53      let k = size(i)
54 54      if ((100 >= k))
55 55          then {
56 56              let l = Address(base58'3MusfsY6PqDh1YnF7YyTi5ffVT16Dm2bqf6')
57 57              let m = {
58 58                  let e = getString(l, "admin_list")
59 59                  if ($isInstanceOf(e, "Unit"))
60 60                      then "unset"
61 61                      else if ($isInstanceOf(e, "String"))
62 62                          then {
63 63                              let n = e
64 64                              n
65 65                              }
66 66                          else throw("Match error")
67 67                  }
68 68              func o (p,q) =             {
69 69                  let r = p
70 70                  let s = r._1
71 71                  let t = r._2
72 72                  $Tuple2((s :+ IntegerEntry(i[t], q)), (t + 1))
73 73                  }
74 74  
75 75              let u = {
76 76                  let v = j
77 77                  let w = size(v)
78 78                  let x = $Tuple2(nil, 0)
79 79                  func y (z,A) =                 if ((A >= w))
80 80                      then z
81 81                      else o(z, v[A])
82 82  
83 83                  func B (z,A) =                 if ((A >= w))
84 84                      then z
85 85                      else throw("List size exceeds 100")
86 86  
87 87                  B(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(x, 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)
88 88                  }
89 89              let C = toString(a.caller)
90 90              if ((m != "unset"))
91 91                  then {
92 92                      let D = getString(addressFromStringValue(m), C)
93 93                      let E = {
94 94                          let e = D
95 95                          if ($isInstanceOf(e, "String"))
96 96                              then {
97 97                                  let n = e
98 98                                  n
99 99                                  }
100 100                              else if ($isInstanceOf(e, "Unit"))
101 101                                  then "no admin"
102 102                                  else throw("Match error")
103 103                          }
104 104                      func F (G) =                     {
105 105                          let H = split(G, "|")
106 106                          StringEntry(H[0], H[1])
107 107                          }
108 108  
109 109                      if ((E != "no admin"))
110 110                          then u
111 111                          else throw((((((("You not admin: " + m) + ", isAdmin: ") + E) + ", callerAddressStr: ") + C) + ", "))
112 112                      }
113 113                  else throw("Unset admin list")
114 114              }
115 115          else throw("The number of list elements must not exceed 100")
116 116      }
117 117  
118 118  
119 119  
120 120  @Callable(a)
121 121  func setOption (I,J) = {
122 122      let l = Address(base58'3MusfsY6PqDh1YnF7YyTi5ffVT16Dm2bqf6')
123 123      let m = {
124 124          let e = getString(l, "admin_list")
125 125          if ($isInstanceOf(e, "Unit"))
126 126              then "unset"
127 127              else if ($isInstanceOf(e, "String"))
128 128                  then {
129 129                      let n = e
130 130                      n
131 131                      }
132 132                  else throw("Match error")
133 133          }
134 134      let C = toString(a.caller)
135 135      if ((m != "unset"))
136 136          then {
137 137              let D = getString(addressFromStringValue(m), C)
138 138              let E = {
139 139                  let e = D
140 140                  if ($isInstanceOf(e, "String"))
141 141                      then {
142 142                          let n = e
143 143                          n
144 144                          }
145 145                      else if ($isInstanceOf(e, "Unit"))
146 146                          then "no admin"
147 147                          else throw("Match error")
148 148                  }
149 149              if ((E != "no admin"))
150 150                  then $Tuple2([IntegerEntry(I, J)], unit)
151 151                  else throw((((((("You not admin: " + m) + ", isAdmin: ") + E) + ", callerAddressStr: ") + C) + ", "))
152 152              }
153 153          else throw("Unset admin list")
154 154      }
155 155  
156 156  
157 157  
158 158  @Callable(a)
159 159  func delOption (I) = {
160 +     let l = Address(base58'3MusfsY6PqDh1YnF7YyTi5ffVT16Dm2bqf6')
160 161      let m = {
161 -         let e = getString(this, "admin_list")
162 +         let e = getString(l, "admin_list")
162 163          if ($isInstanceOf(e, "Unit"))
163 164              then "unset"
164 165              else if ($isInstanceOf(e, "String"))
165 166                  then {
166 167                      let n = e
167 168                      n
168 169                      }
169 170                  else throw("Match error")
170 171          }
171 172      let C = toString(a.caller)
172 173      if ((m != "unset"))
173 174          then {
174 175              let D = getString(addressFromStringValue(m), C)
175 176              let E = {
176 177                  let e = D
177 178                  if ($isInstanceOf(e, "String"))
178 179                      then {
179 180                          let n = e
180 181                          n
181 182                          }
182 183                      else if ($isInstanceOf(e, "Unit"))
183 184                          then "no admin"
184 185                          else throw("Match error")
185 186                  }
186 187              if ((E != "no admin"))
187 188                  then $Tuple2([DeleteEntry(I)], unit)
188 189                  else throw((((((("You not admin: " + m) + ", isAdmin: ") + E) + ", callerAddressStr: ") + C) + ", "))
189 190              }
190 191          else throw("Unset admin list")
191 192      }
192 193  
193 194  
194 195  @Verifier(K)
195 196  func L () = sigVerify(K.bodyBytes, K.proofs[0], K.senderPublicKey)
196 197

Old	New		Differences
157	157
158	158		@Callable(a)
159	159		func delOption (I) = {
	160	+	let l = Address(base58'3MusfsY6PqDh1YnF7YyTi5ffVT16Dm2bqf6')
160	161		let m = {
161		-	let e = getString(~~this~~, "admin_list")
	162	+	let e = getString(l, "admin_list")
162	163		if ($isInstanceOf(e, "Unit"))
163	164		then "unset"
164	165		else if ($isInstanceOf(e, "String"))

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4
5	5
6	6		@Callable(a)
7	7		func deposit () = {
8	8		let b = value(a.payments)[0]
9	9		if (isDefined(b.assetId))
10	10		then throw("can hodl waves only at the moment")
11	11		else {
12	12		let c = toBase58String(a.caller.bytes)
13	13		let d = {
14	14		let e = getInteger(this, c)
15	15		if ($isInstanceOf(e, "Int"))
16	16		then {
17	17		let f = e
18	18		f
19	19		}
20	20		else 0
21	21		}
22	22		let g = (d + b.amount)
23	23		[IntegerEntry(c, g)]
24	24		}
25	25		}
26	26
27	27
28	28
29	29		@Callable(a)
30	30		func withdraw (h) = {
31	31		let c = toBase58String(a.caller.bytes)
32	32		let d = {
33	33		let e = getInteger(this, c)
34	34		if ($isInstanceOf(e, "Int"))
35	35		then {
36	36		let f = e
37	37		f
38	38		}
39	39		else 0
40	40		}
41	41		let g = (d - h)
42	42		if ((0 > h))
43	43		then throw("Can't withdraw negative amount")
44	44		else if ((0 > g))
45	45		then throw("Not enough balance")
46	46		else $Tuple2([IntegerEntry(c, g), ScriptTransfer(a.caller, h, unit)], unit)
47	47		}
48	48
49	49
50	50
51	51		@Callable(a)
52	52		func setOptions (i,j) = {
53	53		let k = size(i)
54	54		if ((100 >= k))
55	55		then {
56	56		let l = Address(base58'3MusfsY6PqDh1YnF7YyTi5ffVT16Dm2bqf6')
57	57		let m = {
58	58		let e = getString(l, "admin_list")
59	59		if ($isInstanceOf(e, "Unit"))
60	60		then "unset"
61	61		else if ($isInstanceOf(e, "String"))
62	62		then {
63	63		let n = e
64	64		n
65	65		}
66	66		else throw("Match error")
67	67		}
68	68		func o (p,q) = {
69	69		let r = p
70	70		let s = r._1
71	71		let t = r._2
72	72		$Tuple2((s :+ IntegerEntry(i[t], q)), (t + 1))
73	73		}
74	74
75	75		let u = {
76	76		let v = j
77	77		let w = size(v)
78	78		let x = $Tuple2(nil, 0)
79	79		func y (z,A) = if ((A >= w))
80	80		then z
81	81		else o(z, v[A])
82	82
83	83		func B (z,A) = if ((A >= w))
84	84		then z
85	85		else throw("List size exceeds 100")
86	86
87	87		B(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(y(x, 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)
88	88		}
89	89		let C = toString(a.caller)
90	90		if ((m != "unset"))
91	91		then {
92	92		let D = getString(addressFromStringValue(m), C)
93	93		let E = {
94	94		let e = D
95	95		if ($isInstanceOf(e, "String"))
96	96		then {
97	97		let n = e
98	98		n
99	99		}
100	100		else if ($isInstanceOf(e, "Unit"))
101	101		then "no admin"
102	102		else throw("Match error")
103	103		}
104	104		func F (G) = {
105	105		let H = split(G, "\|")
106	106		StringEntry(H[0], H[1])
107	107		}
108	108
109	109		if ((E != "no admin"))
110	110		then u
111	111		else throw((((((("You not admin: " + m) + ", isAdmin: ") + E) + ", callerAddressStr: ") + C) + ", "))
112	112		}
113	113		else throw("Unset admin list")
114	114		}
115	115		else throw("The number of list elements must not exceed 100")
116	116		}
117	117
118	118
119	119
120	120		@Callable(a)
121	121		func setOption (I,J) = {
122	122		let l = Address(base58'3MusfsY6PqDh1YnF7YyTi5ffVT16Dm2bqf6')
123	123		let m = {
124	124		let e = getString(l, "admin_list")
125	125		if ($isInstanceOf(e, "Unit"))
126	126		then "unset"
127	127		else if ($isInstanceOf(e, "String"))
128	128		then {
129	129		let n = e
130	130		n
131	131		}
132	132		else throw("Match error")
133	133		}
134	134		let C = toString(a.caller)
135	135		if ((m != "unset"))
136	136		then {
137	137		let D = getString(addressFromStringValue(m), C)
138	138		let E = {
139	139		let e = D
140	140		if ($isInstanceOf(e, "String"))
141	141		then {
142	142		let n = e
143	143		n
144	144		}
145	145		else if ($isInstanceOf(e, "Unit"))
146	146		then "no admin"
147	147		else throw("Match error")
148	148		}
149	149		if ((E != "no admin"))
150	150		then $Tuple2([IntegerEntry(I, J)], unit)
151	151		else throw((((((("You not admin: " + m) + ", isAdmin: ") + E) + ", callerAddressStr: ") + C) + ", "))
152	152		}
153	153		else throw("Unset admin list")
154	154		}
155	155
156	156
157	157
158	158		@Callable(a)
159	159		func delOption (I) = {
	160	+	let l = Address(base58'3MusfsY6PqDh1YnF7YyTi5ffVT16Dm2bqf6')
160	161		let m = {
161		-	let e = getString(~~this~~, "admin_list")
	162	+	let e = getString(l, "admin_list")
162	163		if ($isInstanceOf(e, "Unit"))
163	164		then "unset"
164	165		else if ($isInstanceOf(e, "String"))
165	166		then {
166	167		let n = e
167	168		n
168	169		}
169	170		else throw("Match error")
170	171		}
171	172		let C = toString(a.caller)
172	173		if ((m != "unset"))
173	174		then {
174	175		let D = getString(addressFromStringValue(m), C)
175	176		let E = {
176	177		let e = D
177	178		if ($isInstanceOf(e, "String"))
178	179		then {
179	180		let n = e
180	181		n
181	182		}
182	183		else if ($isInstanceOf(e, "Unit"))
183	184		then "no admin"
184	185		else throw("Match error")
185	186		}
186	187		if ((E != "no admin"))
187	188		then $Tuple2([DeleteEntry(I)], unit)
188	189		else throw((((((("You not admin: " + m) + ", isAdmin: ") + E) + ", callerAddressStr: ") + C) + ", "))
189	190		}
190	191		else throw("Unset admin list")
191	192		}
192	193
193	194
194	195		@Verifier(K)
195	196		func L () = sigVerify(K.bodyBytes, K.proofs[0], K.senderPublicKey)
196	197

github/deemru/w8io/3da68e3 
84.44 ms ◑