w8 · tx · 76C···iHW

tx · 76CEi74U2Vy8osEQTb7ptaU9XKf1iaVEAKm6oycV3iHW

3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb:  -0.00500000 Waves

2023.03.17 00:39 [2493128] smart account 3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "76CEi74U2Vy8osEQTb7ptaU9XKf1iaVEAKm6oycV3iHW",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1679002757415,
    "version": 2,
    "chainId": 84,
    "sender": "3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb",
    "senderPublicKey": "2VQGRNRWyFAZvjDtkgZwdZcTwZvBJJ61n8zJfYYxm5eK",
    "proofs": [
        "5ZGjsb2CGbiWYgnKzpS85jYpVzJDroA8SHoupz2cVJeSg62PDGs394RdSM8c4MKqWuzecV6Uen25wHRdhWxZvjnB"
    ],
    "script": "base64:BgJNCAISBAoCGBgSBQoDCBgYEgQKAggIEgQKAggIEgQKAggIEgUKAwgICBIDCgECEgMKAQgSBAoCCAgSBQoDCAgIEgQKAggIEgYKBAgBAQEKAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAMdG9rZW5QYXltZW50CQEHQWRkcmVzcwEJARFAZXh0ck5hdGl2ZSgxMDU3KQECDHRva2VuUGF5bWVudAEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQ10cmFuc2Zlck9yTm90AgJ0bwdhc3NldElkAwkAAAIFAnRvBQR0aGlzCQELU3RyaW5nRW50cnkCAg7QutC+0YHRgtGL0LvRjAIO0LrQvtGB0YLRi9C70YwJAQ5TY3JpcHRUcmFuc2ZlcgMFAnRvAAEFB2Fzc2V0SWQBDnBhcnNlSWR0b0Fzc2V0AQdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQdhc3NldElkAhxDYW4ndCBmaW5kIGFzc2V0IGJ5IGFzc2V0IGlkAQ9jaGVja0Fzc2V0T3duZXICBmNhbGxlcgdhc3NldElkAwkAAAIJAPAHAgUGY2FsbGVyCQDZBAEFB2Fzc2V0SWQAAQUEdW5pdAkAAgECEE9ubHkgYXNzZXQgb3duZXIMAWkBEG1ha2VKU09OSW50ZXJuYWwCB2FycktleXMJYXJyVmFsdWVzCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIFB2FycktleXMJAMwIAgUJYXJyVmFsdWVzBQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFhZGRUb0pTT05JbnRlcm5hbAMEanNvbgdhcnJLZXlzCWFyclZhbHVlcwkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAglhZGRUb0pTT04JAMwIAgUEanNvbgkAzAgCBQdhcnJLZXlzCQDMCAIFCWFyclZhbHVlcwUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEVcmVhZEJ5SlNPTktleUludGVybmFsAgRqc29uA2tleQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARdkZWxldGVCeUpTT05LZXlJbnRlcm5hbAIEanNvbgNrZXkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIEA3JlcwkA/AcEBQhkQXBwSnNvbgIPZGVsZXRlQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARNzdG9yYWdlSnNvbkludGVybmFsAgdqc29uS2V5Cmpzb25TdHJpbmcJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgUHanNvbktleQUKanNvblN0cmluZwUDbmlsAWkBB3NldFVzZXIDB2Fzc2V0SWQEdXNlcgdleHBpcmVzBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIEdXNlcgkAzAgCAgdleHBpcmVzBQNuaWwJAMwIAgkAzAgCBQR1c2VyCQDMCAIFB2V4cGlyZXMFA25pbAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICB3VzZXJPZi0FB2Fzc2V0SWQKAAFABQNyZXMDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9zZXRUb2tlblBheW1lbnQBB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC0JpbmFyeUVudHJ5AgIMdG9rZW5QYXltZW50BQdhc3NldElkBQNuaWwBaQEQZGVsZXRlVmFsdWVCeUtleQEDa2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtEZWxldGVFbnRyeQEFA2tleQUDbmlsAWkBCXNldFN0cmluZwIDa2V5BXZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFA2tleQUFdmFsdWUFA25pbAFpAQRpbml0Aw5jb2xsZWN0aW9uTmFtZQZzeW1ib2wLZGVzY3JpcHRpb24JAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgIOY29sbGVjdGlvbk5hbWUFDmNvbGxlY3Rpb25OYW1lCQDMCAIJAQtTdHJpbmdFbnRyeQICBnN5bWJvbAUGc3ltYm9sCQDMCAIJAQtTdHJpbmdFbnRyeQICC2Rlc2NyaXB0aW9uBQtkZXNjcmlwdGlvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQAAAUDbmlsAWkBBG1pbnQCAnRvCHRva2VuVVJJCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyBAd0b2tlbklkCQBkAgULdG90YWxBbW91bnQAAQQHcHJlTmFtZQkArAICCQCsAgIFBnN5bWJvbAIBIwkApAMBBQd0b2tlbklkBARuYW1lAwkAZwIAEAkAsQIBBQdwcmVOYW1lBQdwcmVOYW1lCQCkAwEFB3Rva2VuSWQEBGpzb24KAAFACQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICCHRva2VuVVJJBQNuaWwJAMwIAgkAzAgCBQh0b2tlblVSSQUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcEBWFzc2V0CQDDCAcFBG5hbWUFBGpzb24AAQAABwUEdW5pdAUGaGVpZ2h0BAdhc3NldElkCQC4CAEFBWFzc2V0BAl0b0FkZHJlc3MJAQdBZGRyZXNzAQkA2QQBBQJ0bwQIdHJhbnNmZXIJAQ10cmFuc2Zlck9yTm90AgUJdG9BZGRyZXNzBQdhc3NldElkAwkAAAIFCHRyYW5zZmVyBQh0cmFuc2ZlcgkAzAgCBQVhc3NldAkAzAgCBQh0cmFuc2ZlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQFB3Rva2VuSWQJAMwIAgkBC1N0cmluZ0VudHJ5AgUEbmFtZQUIdG9rZW5VUkkFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhpbml0TGVuZAQHYXNzZXRJZA90aW1lVW5pdFNlY29uZHMNdGltZVVuaXRQcmljZQ10aW1lVW5pdENvdW50CQELdmFsdWVPckVsc2UCCQEPY2hlY2tBc3NldE93bmVyAggFAWkGY2FsbGVyBQdhc3NldElkBAVhc3NldAkBDnBhcnNlSWR0b0Fzc2V0AQUHYXNzZXRJZAQIdG9rZW5VUkkKAAFACQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIIBQVhc3NldAtkZXNjcmlwdGlvbgkAzAgCAgh0b2tlblVSSQUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBAVsZW5kcwkBEUBleHRyTmF0aXZlKDEwNTgpAQIFTGVuZHMEBmRlbGV0ZQoAAUAJAPwHBAUIZEFwcEpzb24CD2RlbGV0ZUJ5SlNPTktleQkAzAgCBQVsZW5kcwkAzAgCAglsZW5kQ291bnQFA25pbAUDbmlsAwkAAQIFAUACEChTdHJpbmcsIFN0cmluZykFAUAJAAIBCQCsAgIJAAMBBQFAAiUgY291bGRuJ3QgYmUgY2FzdCB0byAoU3RyaW5nLCBTdHJpbmcpBAZsZW5kSWQIBQZkZWxldGUCXzEECG5ld0NvdW50CQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEFBmxlbmRJZAABBARtYWtlCgABQAkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAhJzdXBwb3J0ZWRJbnRlcmZhY2UJAMwIAgIIYXNzZXRkSWQJAMwIAgIIdG9rZW5VUkkJAMwIAgIFb3duZXIJAMwIAgIPdGltZVVuaXRTZWNvbmRzCQDMCAICDXRpbWVVbml0UHJpY2UJAMwIAgINdGltZVVuaXRDb3VudAkAzAgCAg5zdGFydFRpbWVzdGFtcAkAzAgCAgxlbmRUaW1lc3RhbXAJAMwIAgIHZGVwb3NpdAkAzAgCAgdjbGFpbWVkCQDMCAICBXJlbnRzBQNuaWwJAMwIAgkAzAgCAgEwCQDMCAIFB2Fzc2V0SWQJAMwIAgUIdG9rZW5VUkkJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgkApAMBBQ90aW1lVW5pdFNlY29uZHMJAMwIAgkApAMBBQ10aW1lVW5pdFByaWNlCQDMCAIJAKQDAQUNdGltZVVuaXRDb3VudAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUPdGltZVVuaXRTZWNvbmRzBQ10aW1lVW5pdENvdW50CQDMCAICATAJAMwIAgIBMAkAzAgCAhF7InJlbnRDb3VudCI6IjAifQUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUEbWFrZQUEbWFrZQkAzAgCCQELU3RyaW5nRW50cnkCAgZEZWJ1ZzEIBQZkZWxldGUCXzIJAMwIAgkBC1N0cmluZ0VudHJ5AgIGRGVidWcyBQZsZW5kSWQJAMwIAgkBC1N0cmluZ0VudHJ5AgIGRGVidWczBQRtYWtlCQDMCAIJAQtTdHJpbmdFbnRyeQICBkRlYnVnNAUIbmV3Q291bnQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgBmSfvb",
    "height": 2493128,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 42mZBrTeKEp9wq6rHgTaRNFDHwbaXLLcpmGcLbdesVYk
Next: 23unskEKUZxYHUJqBwCvYfTLi2XoNmWGbJgJfGQ1GH4Z

Diff: 
Old New Differences
160 160              else throw(($getType(x) + " couldn't be cast to String"))
161 161          }
162 162      if ((N == N))
163 -         then [StringEntry("Debug", K._2)]
163 +         then [StringEntry("Debug1", K._2), StringEntry("Debug2", L), StringEntry("Debug3", N), StringEntry("Debug4", M)]
164 164          else throw("Strict value is not equal to itself.")
165 165      })
166 166  
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 100  func deleteValueByKey (s) = valueOrElse(g(n.caller), [DeleteEntry(s)])
101 101  
102 102  
103 103  
104 104  @Callable(n)
105 105  func setString (s,y) = valueOrElse(g(n.caller), [StringEntry(s, y)])
106 106  
107 107  
108 108  
109 109  @Callable(n)
110 110  func init (a,b,c) = valueOrElse(g(n.caller), [StringEntry("collectionName", a), StringEntry("symbol", b), StringEntry("description", c), IntegerEntry("totalAmount", 0)])
111 111  
112 112  
113 113  
114 114  @Callable(n)
115 115  func mint (j,z) = valueOrElse(g(n.caller), {
116 116      let A = (d + 1)
117 117      let B = ((b + "#") + toString(A))
118 118      let C = if ((16 >= size(B)))
119 119          then B
120 120          else toString(A)
121 121      let r = {
122 122          let x = invoke(e, "makeJSON", [["tokenURI"], [z]], nil)
123 123          if ($isInstanceOf(x, "String"))
124 124              then x
125 125              else throw(($getType(x) + " couldn't be cast to String"))
126 126          }
127 127      let D = Issue(C, r, 1, 0, false, unit, height)
128 128      let k = calculateAssetId(D)
129 129      let E = Address(fromBase58String(j))
130 130      let F = i(E, k)
131 131      if ((F == F))
132 132          then [D, F, IntegerEntry("totalAmount", A), StringEntry(C, z)]
133 133          else throw("Strict value is not equal to itself.")
134 134      })
135 135  
136 136  
137 137  
138 138  @Callable(n)
139 139  func initLend (k,G,H,I) = valueOrElse(m(n.caller, k), {
140 140      let D = l(k)
141 141      let z = {
142 142          let x = invoke(e, "readByJSONKey", [D.description, "tokenURI"], nil)
143 143          if ($isInstanceOf(x, "String"))
144 144              then x
145 145              else throw(($getType(x) + " couldn't be cast to String"))
146 146          }
147 147      let J = getStringValue("Lends")
148 148      let K = {
149 149          let x = invoke(e, "deleteByJSONKey", [J, "lendCount"], nil)
150 150          if ($isInstanceOf(x, "(String, String)"))
151 151              then x
152 152              else throw(($getType(x) + " couldn't be cast to (String, String)"))
153 153          }
154 154      let L = K._1
155 155      let M = toString((parseIntValue(L) + 1))
156 156      let N = {
157 157          let x = invoke(e, "makeJSON", [["supportedInterface", "assetdId", "tokenURI", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed", "rents"], ["0", k, z, toString(n.caller), toString(G), toString(H), toString(I), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (G * I))), "0", "0", "{\"rentCount\":\"0\"}"]], nil)
158 158          if ($isInstanceOf(x, "String"))
159 159              then x
160 160              else throw(($getType(x) + " couldn't be cast to String"))
161 161          }
162 162      if ((N == N))
163 -         then [StringEntry("Debug", K._2)]
163 +         then [StringEntry("Debug1", K._2), StringEntry("Debug2", L), StringEntry("Debug3", N), StringEntry("Debug4", M)]
164 164          else throw("Strict value is not equal to itself.")
165 165      })
166 166  
167 167

Old	New		Differences
160	160		else throw(($getType(x) + " couldn't be cast to String"))
161	161		}
162	162		if ((N == N))
163		-	then [StringEntry("~~Debug~~", K._2)]
	163	+	then [StringEntry("Debug1", K._2), StringEntry("Debug2", L), StringEntry("Debug3", N), StringEntry("Debug4", M)]
164	164		else throw("Strict value is not equal to itself.")
165	165		})
166	166

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	100		func deleteValueByKey (s) = valueOrElse(g(n.caller), [DeleteEntry(s)])
101	101
102	102
103	103
104	104		@Callable(n)
105	105		func setString (s,y) = valueOrElse(g(n.caller), [StringEntry(s, y)])
106	106
107	107
108	108
109	109		@Callable(n)
110	110		func init (a,b,c) = valueOrElse(g(n.caller), [StringEntry("collectionName", a), StringEntry("symbol", b), StringEntry("description", c), IntegerEntry("totalAmount", 0)])
111	111
112	112
113	113
114	114		@Callable(n)
115	115		func mint (j,z) = valueOrElse(g(n.caller), {
116	116		let A = (d + 1)
117	117		let B = ((b + "#") + toString(A))
118	118		let C = if ((16 >= size(B)))
119	119		then B
120	120		else toString(A)
121	121		let r = {
122	122		let x = invoke(e, "makeJSON", [["tokenURI"], [z]], nil)
123	123		if ($isInstanceOf(x, "String"))
124	124		then x
125	125		else throw(($getType(x) + " couldn't be cast to String"))
126	126		}
127	127		let D = Issue(C, r, 1, 0, false, unit, height)
128	128		let k = calculateAssetId(D)
129	129		let E = Address(fromBase58String(j))
130	130		let F = i(E, k)
131	131		if ((F == F))
132	132		then [D, F, IntegerEntry("totalAmount", A), StringEntry(C, z)]
133	133		else throw("Strict value is not equal to itself.")
134	134		})
135	135
136	136
137	137
138	138		@Callable(n)
139	139		func initLend (k,G,H,I) = valueOrElse(m(n.caller, k), {
140	140		let D = l(k)
141	141		let z = {
142	142		let x = invoke(e, "readByJSONKey", [D.description, "tokenURI"], nil)
143	143		if ($isInstanceOf(x, "String"))
144	144		then x
145	145		else throw(($getType(x) + " couldn't be cast to String"))
146	146		}
147	147		let J = getStringValue("Lends")
148	148		let K = {
149	149		let x = invoke(e, "deleteByJSONKey", [J, "lendCount"], nil)
150	150		if ($isInstanceOf(x, "(String, String)"))
151	151		then x
152	152		else throw(($getType(x) + " couldn't be cast to (String, String)"))
153	153		}
154	154		let L = K._1
155	155		let M = toString((parseIntValue(L) + 1))
156	156		let N = {
157	157		let x = invoke(e, "makeJSON", [["supportedInterface", "assetdId", "tokenURI", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed", "rents"], ["0", k, z, toString(n.caller), toString(G), toString(H), toString(I), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (G * I))), "0", "0", "{\"rentCount\":\"0\"}"]], nil)
158	158		if ($isInstanceOf(x, "String"))
159	159		then x
160	160		else throw(($getType(x) + " couldn't be cast to String"))
161	161		}
162	162		if ((N == N))
163		-	then [StringEntry("~~Debug~~", K._2)]
	163	+	then [StringEntry("Debug1", K._2), StringEntry("Debug2", L), StringEntry("Debug3", N), StringEntry("Debug4", M)]
164	164		else throw("Strict value is not equal to itself.")
165	165		})
166	166
167	167

github/deemru/w8io/169f3d6 
35.76 ms ◑