w8 · tx · 9zK···M2c

tx · 9zK53V8p3B82trZKwWwonxBbLph4qpARzEMhAat1gM2c

3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb:  -0.00500000 Waves

2023.03.16 23:26 [2493060] smart account 3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9zK53V8p3B82trZKwWwonxBbLph4qpARzEMhAat1gM2c",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1678998404948,
    "version": 2,
    "chainId": 84,
    "sender": "3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb",
    "senderPublicKey": "2VQGRNRWyFAZvjDtkgZwdZcTwZvBJJ61n8zJfYYxm5eK",
    "proofs": [
        "4WmEDzjotdfCmXp491hJbLXYHrekVMAM9GkLpoLnZZtog889Yu15QK73JLuZNYi1bbVKkvQ9ssEQTo9YvsYESe47"
    ],
    "script": "base64:BgJHCAISBAoCGBgSBQoDCBgYEgQKAggIEgQKAggIEgQKAggIEgUKAwgICBIDCgECEgMKAQgSBQoDCAgIEgQKAggIEgYKBAgBAQEKAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAMdG9rZW5QYXltZW50CQEHQWRkcmVzcwEJARFAZXh0ck5hdGl2ZSgxMDU3KQECDHRva2VuUGF5bWVudAEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQ10cmFuc2Zlck9yTm90AgJ0bwdhc3NldElkAwkAAAIFAnRvBQR0aGlzCQELU3RyaW5nRW50cnkCAg7QutC+0YHRgtGL0LvRjAIO0LrQvtGB0YLRi9C70YwJAQ5TY3JpcHRUcmFuc2ZlcgMFAnRvAAEFB2Fzc2V0SWQBDnBhcnNlSWR0b0Fzc2V0AQdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQdhc3NldElkAhxDYW4ndCBmaW5kIGFzc2V0IGJ5IGFzc2V0IGlkAQ9jaGVja0Fzc2V0T3duZXICBmNhbGxlcgdhc3NldElkAwkAAAIJAPAHAgUGY2FsbGVyCQDZBAEFB2Fzc2V0SWQAAQUEdW5pdAkAAgECEE9ubHkgYXNzZXQgb3duZXILAWkBEG1ha2VKU09OSW50ZXJuYWwCB2FycktleXMJYXJyVmFsdWVzCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIFB2FycktleXMJAMwIAgUJYXJyVmFsdWVzBQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFhZGRUb0pTT05JbnRlcm5hbAMEanNvbgdhcnJLZXlzCWFyclZhbHVlcwkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAglhZGRUb0pTT04JAMwIAgUEanNvbgkAzAgCBQdhcnJLZXlzCQDMCAIFCWFyclZhbHVlcwUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEVcmVhZEJ5SlNPTktleUludGVybmFsAgRqc29uA2tleQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARdkZWxldGVCeUpTT05LZXlJbnRlcm5hbAIEanNvbgNrZXkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIEA3JlcwkA/AcEBQhkQXBwSnNvbgIPZGVsZXRlQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARNzdG9yYWdlSnNvbkludGVybmFsAgdqc29uS2V5Cmpzb25TdHJpbmcJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgUHanNvbktleQUKanNvblN0cmluZwUDbmlsAWkBB3NldFVzZXIDB2Fzc2V0SWQEdXNlcgdleHBpcmVzBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIEdXNlcgkAzAgCAgdleHBpcmVzBQNuaWwJAMwIAgkAzAgCBQR1c2VyCQDMCAIFB2V4cGlyZXMFA25pbAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICB3VzZXJPZi0FB2Fzc2V0SWQKAAFABQNyZXMDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9zZXRUb2tlblBheW1lbnQBB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC0JpbmFyeUVudHJ5AgIMdG9rZW5QYXltZW50BQdhc3NldElkBQNuaWwBaQEQZGVsZXRlVmFsdWVCeUtleQEDa2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtEZWxldGVFbnRyeQEFA2tleQUDbmlsAWkBBGluaXQDDmNvbGxlY3Rpb25OYW1lBnN5bWJvbAtkZXNjcmlwdGlvbgkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCAg5jb2xsZWN0aW9uTmFtZQUOY29sbGVjdGlvbk5hbWUJAMwIAgkBC1N0cmluZ0VudHJ5AgIGc3ltYm9sBQZzeW1ib2wJAMwIAgkBC1N0cmluZ0VudHJ5AgILZGVzY3JpcHRpb24FC2Rlc2NyaXB0aW9uCQDMCAIJAQxJbnRlZ2VyRW50cnkCAgt0b3RhbEFtb3VudAAABQNuaWwBaQEEbWludAICdG8IdG9rZW5VUkkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIEB3Rva2VuSWQJAGQCBQt0b3RhbEFtb3VudAABBAdwcmVOYW1lCQCsAgIJAKwCAgUGc3ltYm9sAgEjCQCkAwEFB3Rva2VuSWQEBG5hbWUDCQBnAgAQCQCxAgEFB3ByZU5hbWUFB3ByZU5hbWUJAKQDAQUHdG9rZW5JZAQFYXNzZXQJAMMIBwUEbmFtZQkArAICCQCsAgICBnt1cmk6IgUIdG9rZW5VUkkCAiJ9AAEAAAcFBHVuaXQFBmhlaWdodAQHYXNzZXRJZAkAuAgBBQVhc3NldAQJdG9BZGRyZXNzCQEHQWRkcmVzcwEJANkEAQUCdG8ECHRyYW5zZmVyCQENdHJhbnNmZXJPck5vdAIFCXRvQWRkcmVzcwUHYXNzZXRJZAMJAAACBQh0cmFuc2ZlcgUIdHJhbnNmZXIJAMwIAgUFYXNzZXQJAMwIAgUIdHJhbnNmZXIJAMwIAgkBDEludGVnZXJFbnRyeQICC3RvdGFsQW1vdW50BQd0b2tlbklkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBG5hbWUFCHRva2VuVVJJBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIaW5pdExlbmQEB2Fzc2V0SWQPdGltZVVuaXRTZWNvbmRzDXRpbWVVbml0UHJpY2UNdGltZVVuaXRDb3VudAkBC3ZhbHVlT3JFbHNlAgkBD2NoZWNrQXNzZXRPd25lcgIIBQFpBmNhbGxlcgUHYXNzZXRJZAQFYXNzZXQJAQ5wYXJzZUlkdG9Bc3NldAEFB2Fzc2V0SWQECHRva2VuVXJpCAUFYXNzZXQLZGVzY3JpcHRpb24EBWxlbmRzCQERQGV4dHJOYXRpdmUoMTA1OCkBAgVMZW5kcwQEcmVhZAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCBQVsZW5kcwkAzAgCAgVjb3VudAUDbmlsBQNuaWwEBmxlbmRJZAoAAUAFBHJlYWQDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBAhuZXdDb3VudAkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBBQZsZW5kSWQAAQQEbWFrZQkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAhJzdXBwb3J0ZWRJbnRlcmZhY2UJAMwIAgIIYXNzZXRkSWQJAMwIAgIIdG9rZW5VcmkJAMwIAgIFb3duZXIJAMwIAgIPdGltZVVuaXRTZWNvbmRzCQDMCAICDXRpbWVVbml0UHJpY2UJAMwIAgINdGltZVVuaXRDb3VudAkAzAgCAg5zdGFydFRpbWVzdGFtcAkAzAgCAgxlbmRUaW1lc3RhbXAJAMwIAgIHZGVwb3NpdAkAzAgCAgdjbGFpbWVkCQDMCAICBXJlbnRzBQNuaWwJAMwIAgkAzAgCAgEwCQDMCAIFB2Fzc2V0SWQJAMwIAgUIdG9rZW5VcmkJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgkApAMBBQ90aW1lVW5pdFNlY29uZHMJAMwIAgkApAMBBQ10aW1lVW5pdFByaWNlCQDMCAIJAKQDAQUNdGltZVVuaXRDb3VudAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUPdGltZVVuaXRTZWNvbmRzBQ10aW1lVW5pdENvdW50CQDMCAICATAJAMwIAgIBMAkAzAgCAg17ImNvdW50IjoiMCJ9BQNuaWwFA25pbAUDbmlsAwkAAAIFBG1ha2UFBG1ha2UEBmluc2VydAkA/AcEBQhkQXBwSnNvbgIJYWRkVG9KU09OCQDMCAIFBWxlbmRzCQDMCAIJAMwIAgUGbGVuZElkCQDMCAICBWNvdW50BQNuaWwJAMwIAgkAzAgCCgABQAUEbWFrZQMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcJAMwIAgUIbmV3Q291bnQFA25pbAUDbmlsBQNuaWwDCQAAAgUGaW5zZXJ0BQZpbnNlcnQJAMwIAgkBC1N0cmluZ0VudHJ5AgIFTGVuZHMKAAFABQZpbnNlcnQDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AbN8IBA==",
    "height": 2493060,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: AzG15Z8MkcRXB4y1aLntZyXmMW1hku4FQgGrknePZZ9o
Next: CnbQNz64Ar6p7e7kJYDNuLQayds5h6ev1Rkvga62PNAU

Diff: 
Old New Differences
97 97  
98 98  
99 99  @Callable(n)
100 + func deleteValueByKey (s) = valueOrElse(g(n.caller), [DeleteEntry(s)])
101 + 
102 + 
103 + 
104 + @Callable(n)
100 105  func init (a,b,c) = valueOrElse(g(n.caller), [StringEntry("collectionName", a), StringEntry("symbol", b), StringEntry("description", c), IntegerEntry("totalAmount", 0)])
101 106  
102 107  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let a = getStringValue("collectionName")
5 5  
6 6  let b = getStringValue("symbol")
7 7  
8 8  let c = getStringValue("description")
9 9  
10 10  let d = getIntegerValue("totalAmount")
11 11  
12 12  let e = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
13 13  
14 14  let f = Address(getBinaryValue("tokenPayment"))
15 15  
16 16  func g (h) = if ((h == this))
17 17      then unit
18 18      else throw("Only internal call")
19 19  
20 20  
21 21  func i (j,k) = if ((j == this))
22 22      then StringEntry("костыль", "костыль")
23 23      else ScriptTransfer(j, 1, k)
24 24  
25 25  
26 26  func l (k) = valueOrErrorMessage(assetInfo(fromBase58String(k)), "Can't find asset by asset id")
27 27  
28 28  
29 29  func m (h,k) = if ((assetBalance(h, fromBase58String(k)) == 1))
30 30      then unit
31 31      else throw("Only asset owner")
32 32  
33 33  
34 34  @Callable(n)
35 35  func makeJSONInternal (o,p) = valueOrElse(g(n.caller), {
36 36      let q = invoke(e, "makeJSON", [o, p], nil)
37 37      if ((q == q))
38 38          then $Tuple2(nil, q)
39 39          else throw("Strict value is not equal to itself.")
40 40      })
41 41  
42 42  
43 43  
44 44  @Callable(n)
45 45  func addToJSONInternal (r,o,p) = valueOrElse(g(n.caller), {
46 46      let q = invoke(e, "addToJSON", [r, o, p], nil)
47 47      if ((q == q))
48 48          then $Tuple2(nil, q)
49 49          else throw("Strict value is not equal to itself.")
50 50      })
51 51  
52 52  
53 53  
54 54  @Callable(n)
55 55  func readByJSONKeyInternal (r,s) = valueOrElse(g(n.caller), {
56 56      let q = invoke(e, "readByJSONKey", [r, s], nil)
57 57      if ((q == q))
58 58          then $Tuple2(nil, q)
59 59          else throw("Strict value is not equal to itself.")
60 60      })
61 61  
62 62  
63 63  
64 64  @Callable(n)
65 65  func deleteByJSONKeyInternal (r,s) = valueOrElse(g(n.caller), {
66 66      let q = invoke(e, "deleteByJSONKey", [r, s], nil)
67 67      if ((q == q))
68 68          then $Tuple2(nil, q)
69 69          else throw("Strict value is not equal to itself.")
70 70      })
71 71  
72 72  
73 73  
74 74  @Callable(n)
75 75  func storageJsonInternal (t,u) = valueOrElse(g(n.caller), [StringEntry(t, u)])
76 76  
77 77  
78 78  
79 79  @Callable(n)
80 80  func setUser (k,v,w) = {
81 81      let q = invoke(e, "makeJSON", [["user", "expires"], [v, w]], nil)
82 82      if ((q == q))
83 83          then $Tuple2([StringEntry(("userOf-" + k), {
84 84              let x = q
85 85              if ($isInstanceOf(x, "String"))
86 86                  then x
87 87                  else throw(($getType(x) + " couldn't be cast to String"))
88 88              })], q)
89 89          else throw("Strict value is not equal to itself.")
90 90      }
91 91  
92 92  
93 93  
94 94  @Callable(n)
95 95  func setTokenPayment (k) = valueOrElse(g(n.caller), [BinaryEntry("tokenPayment", k)])
96 96  
97 97  
98 98  
99 99  @Callable(n)
100 + func deleteValueByKey (s) = valueOrElse(g(n.caller), [DeleteEntry(s)])
101 + 
102 + 
103 + 
104 + @Callable(n)
100 105  func init (a,b,c) = valueOrElse(g(n.caller), [StringEntry("collectionName", a), StringEntry("symbol", b), StringEntry("description", c), IntegerEntry("totalAmount", 0)])
101 106  
102 107  
103 108  
104 109  @Callable(n)
105 110  func mint (j,y) = valueOrElse(g(n.caller), {
106 111      let z = (d + 1)
107 112      let A = ((b + "#") + toString(z))
108 113      let B = if ((16 >= size(A)))
109 114          then A
110 115          else toString(z)
111 116      let C = Issue(B, (("{uri:\"" + y) + "\"}"), 1, 0, false, unit, height)
112 117      let k = calculateAssetId(C)
113 118      let D = Address(fromBase58String(j))
114 119      let E = i(D, k)
115 120      if ((E == E))
116 121          then [C, E, IntegerEntry("totalAmount", z), StringEntry(B, y)]
117 122          else throw("Strict value is not equal to itself.")
118 123      })
119 124  
120 125  
121 126  
122 127  @Callable(n)
123 128  func initLend (k,F,G,H) = valueOrElse(m(n.caller, k), {
124 129      let C = l(k)
125 130      let I = C.description
126 131      let J = getStringValue("Lends")
127 132      let K = invoke(e, "readByJSONKey", [J, "count"], nil)
128 133      let L = {
129 134          let x = K
130 135          if ($isInstanceOf(x, "String"))
131 136              then x
132 137              else throw(($getType(x) + " couldn't be cast to String"))
133 138          }
134 139      let M = toString((parseIntValue(L) + 1))
135 140      let N = invoke(e, "makeJSON", [["supportedInterface", "assetdId", "tokenUri", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed", "rents"], ["0", k, I, toString(n.caller), toString(F), toString(G), toString(H), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (F * H))), "0", "0", "{\"count\":\"0\"}"]], nil)
136 141      if ((N == N))
137 142          then {
138 143              let O = invoke(e, "addToJSON", [J, [L, "count"], [{
139 144                  let x = N
140 145                  if ($isInstanceOf(x, "String"))
141 146                      then x
142 147                      else throw(($getType(x) + " couldn't be cast to String"))
143 148                  }, M]], nil)
144 149              if ((O == O))
145 150                  then [StringEntry("Lends", {
146 151                      let x = O
147 152                      if ($isInstanceOf(x, "String"))
148 153                          then x
149 154                          else throw(($getType(x) + " couldn't be cast to String"))
150 155                      })]
151 156                  else throw("Strict value is not equal to itself.")
152 157              }
153 158          else throw("Strict value is not equal to itself.")
154 159      })
155 160  
156 161

Old	New		Differences
97	97
98	98
99	99		@Callable(n)
	100	+	func deleteValueByKey (s) = valueOrElse(g(n.caller), [DeleteEntry(s)])
	101	+
	102	+
	103	+
	104	+	@Callable(n)
100	105		func init (a,b,c) = valueOrElse(g(n.caller), [StringEntry("collectionName", a), StringEntry("symbol", b), StringEntry("description", c), IntegerEntry("totalAmount", 0)])
101	106
102	107

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let a = getStringValue("collectionName")
5	5
6	6		let b = getStringValue("symbol")
7	7
8	8		let c = getStringValue("description")
9	9
10	10		let d = getIntegerValue("totalAmount")
11	11
12	12		let e = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
13	13
14	14		let f = Address(getBinaryValue("tokenPayment"))
15	15
16	16		func g (h) = if ((h == this))
17	17		then unit
18	18		else throw("Only internal call")
19	19
20	20
21	21		func i (j,k) = if ((j == this))
22	22		then StringEntry("костыль", "костыль")
23	23		else ScriptTransfer(j, 1, k)
24	24
25	25
26	26		func l (k) = valueOrErrorMessage(assetInfo(fromBase58String(k)), "Can't find asset by asset id")
27	27
28	28
29	29		func m (h,k) = if ((assetBalance(h, fromBase58String(k)) == 1))
30	30		then unit
31	31		else throw("Only asset owner")
32	32
33	33
34	34		@Callable(n)
35	35		func makeJSONInternal (o,p) = valueOrElse(g(n.caller), {
36	36		let q = invoke(e, "makeJSON", [o, p], nil)
37	37		if ((q == q))
38	38		then $Tuple2(nil, q)
39	39		else throw("Strict value is not equal to itself.")
40	40		})
41	41
42	42
43	43
44	44		@Callable(n)
45	45		func addToJSONInternal (r,o,p) = valueOrElse(g(n.caller), {
46	46		let q = invoke(e, "addToJSON", [r, o, p], nil)
47	47		if ((q == q))
48	48		then $Tuple2(nil, q)
49	49		else throw("Strict value is not equal to itself.")
50	50		})
51	51
52	52
53	53
54	54		@Callable(n)
55	55		func readByJSONKeyInternal (r,s) = valueOrElse(g(n.caller), {
56	56		let q = invoke(e, "readByJSONKey", [r, s], nil)
57	57		if ((q == q))
58	58		then $Tuple2(nil, q)
59	59		else throw("Strict value is not equal to itself.")
60	60		})
61	61
62	62
63	63
64	64		@Callable(n)
65	65		func deleteByJSONKeyInternal (r,s) = valueOrElse(g(n.caller), {
66	66		let q = invoke(e, "deleteByJSONKey", [r, s], nil)
67	67		if ((q == q))
68	68		then $Tuple2(nil, q)
69	69		else throw("Strict value is not equal to itself.")
70	70		})
71	71
72	72
73	73
74	74		@Callable(n)
75	75		func storageJsonInternal (t,u) = valueOrElse(g(n.caller), [StringEntry(t, u)])
76	76
77	77
78	78
79	79		@Callable(n)
80	80		func setUser (k,v,w) = {
81	81		let q = invoke(e, "makeJSON", [["user", "expires"], [v, w]], nil)
82	82		if ((q == q))
83	83		then $Tuple2([StringEntry(("userOf-" + k), {
84	84		let x = q
85	85		if ($isInstanceOf(x, "String"))
86	86		then x
87	87		else throw(($getType(x) + " couldn't be cast to String"))
88	88		})], q)
89	89		else throw("Strict value is not equal to itself.")
90	90		}
91	91
92	92
93	93
94	94		@Callable(n)
95	95		func setTokenPayment (k) = valueOrElse(g(n.caller), [BinaryEntry("tokenPayment", k)])
96	96
97	97
98	98
99	99		@Callable(n)
	100	+	func deleteValueByKey (s) = valueOrElse(g(n.caller), [DeleteEntry(s)])
	101	+
	102	+
	103	+
	104	+	@Callable(n)
100	105		func init (a,b,c) = valueOrElse(g(n.caller), [StringEntry("collectionName", a), StringEntry("symbol", b), StringEntry("description", c), IntegerEntry("totalAmount", 0)])
101	106
102	107
103	108
104	109		@Callable(n)
105	110		func mint (j,y) = valueOrElse(g(n.caller), {
106	111		let z = (d + 1)
107	112		let A = ((b + "#") + toString(z))
108	113		let B = if ((16 >= size(A)))
109	114		then A
110	115		else toString(z)
111	116		let C = Issue(B, (("{uri:\"" + y) + "\"}"), 1, 0, false, unit, height)
112	117		let k = calculateAssetId(C)
113	118		let D = Address(fromBase58String(j))
114	119		let E = i(D, k)
115	120		if ((E == E))
116	121		then [C, E, IntegerEntry("totalAmount", z), StringEntry(B, y)]
117	122		else throw("Strict value is not equal to itself.")
118	123		})
119	124
120	125
121	126
122	127		@Callable(n)
123	128		func initLend (k,F,G,H) = valueOrElse(m(n.caller, k), {
124	129		let C = l(k)
125	130		let I = C.description
126	131		let J = getStringValue("Lends")
127	132		let K = invoke(e, "readByJSONKey", [J, "count"], nil)
128	133		let L = {
129	134		let x = K
130	135		if ($isInstanceOf(x, "String"))
131	136		then x
132	137		else throw(($getType(x) + " couldn't be cast to String"))
133	138		}
134	139		let M = toString((parseIntValue(L) + 1))
135	140		let N = invoke(e, "makeJSON", [["supportedInterface", "assetdId", "tokenUri", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed", "rents"], ["0", k, I, toString(n.caller), toString(F), toString(G), toString(H), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (F * H))), "0", "0", "{\"count\":\"0\"}"]], nil)
136	141		if ((N == N))
137	142		then {
138	143		let O = invoke(e, "addToJSON", [J, [L, "count"], [{
139	144		let x = N
140	145		if ($isInstanceOf(x, "String"))
141	146		then x
142	147		else throw(($getType(x) + " couldn't be cast to String"))
143	148		}, M]], nil)
144	149		if ((O == O))
145	150		then [StringEntry("Lends", {
146	151		let x = O
147	152		if ($isInstanceOf(x, "String"))
148	153		then x
149	154		else throw(($getType(x) + " couldn't be cast to String"))
150	155		})]
151	156		else throw("Strict value is not equal to itself.")
152	157		}
153	158		else throw("Strict value is not equal to itself.")
154	159		})
155	160
156	161

github/deemru/w8io/169f3d6 
49.46 ms ◑