w8 · tx · 3VC···m6h

tx · 3VCc5uQcFeUdbY4tMRZ7NRrHn1wCWnzdxsaauttFtm6h

3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb:  -0.00500000 Waves

2023.03.16 23:41 [2493076] smart account 3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "3VCc5uQcFeUdbY4tMRZ7NRrHn1wCWnzdxsaauttFtm6h",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1678999280387,
    "version": 2,
    "chainId": 84,
    "sender": "3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb",
    "senderPublicKey": "2VQGRNRWyFAZvjDtkgZwdZcTwZvBJJ61n8zJfYYxm5eK",
    "proofs": [
        "2TgN9Va3wPVJKjcyfGztLm9TyccEnX3J1iCxrKVGou7K3noBdLHSF4wEeWjLWwjLgVoVhBbCHx4MDfjfLcGFpwf2"
    ],
    "script": "base64:BgJNCAISBAoCGBgSBQoDCBgYEgQKAggIEgQKAggIEgQKAggIEgUKAwgICBIDCgECEgMKAQgSBAoCCAgSBQoDCAgIEgQKAggIEgYKBAgBAQEKAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAMdG9rZW5QYXltZW50CQEHQWRkcmVzcwEJARFAZXh0ck5hdGl2ZSgxMDU3KQECDHRva2VuUGF5bWVudAEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQ10cmFuc2Zlck9yTm90AgJ0bwdhc3NldElkAwkAAAIFAnRvBQR0aGlzCQELU3RyaW5nRW50cnkCAg7QutC+0YHRgtGL0LvRjAIO0LrQvtGB0YLRi9C70YwJAQ5TY3JpcHRUcmFuc2ZlcgMFAnRvAAEFB2Fzc2V0SWQBDnBhcnNlSWR0b0Fzc2V0AQdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQdhc3NldElkAhxDYW4ndCBmaW5kIGFzc2V0IGJ5IGFzc2V0IGlkAQ9jaGVja0Fzc2V0T3duZXICBmNhbGxlcgdhc3NldElkAwkAAAIJAPAHAgUGY2FsbGVyCQDZBAEFB2Fzc2V0SWQAAQUEdW5pdAkAAgECEE9ubHkgYXNzZXQgb3duZXIMAWkBEG1ha2VKU09OSW50ZXJuYWwCB2FycktleXMJYXJyVmFsdWVzCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIFB2FycktleXMJAMwIAgUJYXJyVmFsdWVzBQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFhZGRUb0pTT05JbnRlcm5hbAMEanNvbgdhcnJLZXlzCWFyclZhbHVlcwkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAglhZGRUb0pTT04JAMwIAgUEanNvbgkAzAgCBQdhcnJLZXlzCQDMCAIFCWFyclZhbHVlcwUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEVcmVhZEJ5SlNPTktleUludGVybmFsAgRqc29uA2tleQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARdkZWxldGVCeUpTT05LZXlJbnRlcm5hbAIEanNvbgNrZXkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIEA3JlcwkA/AcEBQhkQXBwSnNvbgIPZGVsZXRlQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARNzdG9yYWdlSnNvbkludGVybmFsAgdqc29uS2V5Cmpzb25TdHJpbmcJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgUHanNvbktleQUKanNvblN0cmluZwUDbmlsAWkBB3NldFVzZXIDB2Fzc2V0SWQEdXNlcgdleHBpcmVzBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIEdXNlcgkAzAgCAgdleHBpcmVzBQNuaWwJAMwIAgkAzAgCBQR1c2VyCQDMCAIFB2V4cGlyZXMFA25pbAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICB3VzZXJPZi0FB2Fzc2V0SWQKAAFABQNyZXMDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9zZXRUb2tlblBheW1lbnQBB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC0JpbmFyeUVudHJ5AgIMdG9rZW5QYXltZW50BQdhc3NldElkBQNuaWwBaQEQZGVsZXRlVmFsdWVCeUtleQEDa2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtEZWxldGVFbnRyeQEFA2tleQUDbmlsAWkBCXNldFN0cmluZwIDa2V5BXZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFA2tleQUFdmFsdWUFA25pbAFpAQRpbml0Aw5jb2xsZWN0aW9uTmFtZQZzeW1ib2wLZGVzY3JpcHRpb24JAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgIOY29sbGVjdGlvbk5hbWUFDmNvbGxlY3Rpb25OYW1lCQDMCAIJAQtTdHJpbmdFbnRyeQICBnN5bWJvbAUGc3ltYm9sCQDMCAIJAQtTdHJpbmdFbnRyeQICC2Rlc2NyaXB0aW9uBQtkZXNjcmlwdGlvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQAAAUDbmlsAWkBBG1pbnQCAnRvCHRva2VuVVJJCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyBAd0b2tlbklkCQBkAgULdG90YWxBbW91bnQAAQQHcHJlTmFtZQkArAICCQCsAgIFBnN5bWJvbAIBIwkApAMBBQd0b2tlbklkBARuYW1lAwkAZwIAEAkAsQIBBQdwcmVOYW1lBQdwcmVOYW1lCQCkAwEFB3Rva2VuSWQEBWFzc2V0CQDDCAcFBG5hbWUJAKwCAgkArAICAgZ7dXJpOiIFCHRva2VuVVJJAgIifQABAAAHBQR1bml0BQZoZWlnaHQEB2Fzc2V0SWQJALgIAQUFYXNzZXQECXRvQWRkcmVzcwkBB0FkZHJlc3MBCQDZBAEFAnRvBAh0cmFuc2ZlcgkBDXRyYW5zZmVyT3JOb3QCBQl0b0FkZHJlc3MFB2Fzc2V0SWQDCQAAAgUIdHJhbnNmZXIFCHRyYW5zZmVyCQDMCAIFBWFzc2V0CQDMCAIFCHRyYW5zZmVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCAgt0b3RhbEFtb3VudAUHdG9rZW5JZAkAzAgCCQELU3RyaW5nRW50cnkCBQRuYW1lBQh0b2tlblVSSQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGluaXRMZW5kBAdhc3NldElkD3RpbWVVbml0U2Vjb25kcw10aW1lVW5pdFByaWNlDXRpbWVVbml0Q291bnQJAQt2YWx1ZU9yRWxzZQIJAQ9jaGVja0Fzc2V0T3duZXICCAUBaQZjYWxsZXIFB2Fzc2V0SWQEBWFzc2V0CQEOcGFyc2VJZHRvQXNzZXQBBQdhc3NldElkBAh0b2tlblVyaQgFBWFzc2V0C2Rlc2NyaXB0aW9uBAVsZW5kcwkBEUBleHRyTmF0aXZlKDEwNTgpAQIFTGVuZHMEBmRlbGV0ZQkA/AcEBQhkQXBwSnNvbgIPZGVsZXRlQnlKU09OS2V5CQDMCAIFBWxlbmRzCQDMCAICBWNvdW50BQNuaWwFA25pbAQGbGVuZElkCAoAAUAFBmRlbGV0ZQMJAAECBQFAAhAoU3RyaW5nLCBTdHJpbmcpBQFACQACAQkArAICCQADAQUBQAIlIGNvdWxkbid0IGJlIGNhc3QgdG8gKFN0cmluZywgU3RyaW5nKQJfMQQIbmV3Q291bnQJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQUGbGVuZElkAAEEBG1ha2UJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgISc3VwcG9ydGVkSW50ZXJmYWNlCQDMCAICCGFzc2V0ZElkCQDMCAICCHRva2VuVXJpCQDMCAICBW93bmVyCQDMCAICD3RpbWVVbml0U2Vjb25kcwkAzAgCAg10aW1lVW5pdFByaWNlCQDMCAICDXRpbWVVbml0Q291bnQJAMwIAgIOc3RhcnRUaW1lc3RhbXAJAMwIAgIMZW5kVGltZXN0YW1wCQDMCAICB2RlcG9zaXQJAMwIAgIHY2xhaW1lZAkAzAgCAgVyZW50cwUDbmlsCQDMCAIJAMwIAgIBMAkAzAgCBQdhc3NldElkCQDMCAIFCHRva2VuVXJpCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAKQDAQUPdGltZVVuaXRTZWNvbmRzCQDMCAIJAKQDAQUNdGltZVVuaXRQcmljZQkAzAgCCQCkAwEFDXRpbWVVbml0Q291bnQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAaAIFD3RpbWVVbml0U2Vjb25kcwUNdGltZVVuaXRDb3VudAkAzAgCAgEwCQDMCAICATAJAMwIAgINeyJjb3VudCI6IjAifQUDbmlsBQNuaWwFA25pbAMJAAACBQRtYWtlBQRtYWtlBAZpbnNlcnQJAPwHBAUIZEFwcEpzb24CCWFkZFRvSlNPTgkAzAgCCAoAAUAFBmRlbGV0ZQMJAAECBQFAAhAoU3RyaW5nLCBTdHJpbmcpBQFACQACAQkArAICCQADAQUBQAIlIGNvdWxkbid0IGJlIGNhc3QgdG8gKFN0cmluZywgU3RyaW5nKQJfMgkAzAgCCQDMCAIFBmxlbmRJZAkAzAgCAgVjb3VudAUDbmlsCQDMCAIJAMwIAgoAAUAFBG1ha2UDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nCQDMCAIFCG5ld0NvdW50BQNuaWwFA25pbAUDbmlsAwkAAAIFBmluc2VydAUGaW5zZXJ0CQDMCAIJAQtTdHJpbmdFbnRyeQICBUxlbmRzCgABQAUGaW5zZXJ0AwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAOxBoBU=",
    "height": 2493076,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 3ALczZExcR2LLsZVUyYrH5cGS96bZuzFZ3xBYNAxd7kW
Next: Cv8UQGkAR6EJGw2BZSPAcoQFRAuBg8gn3wsSms1ucgoa

Diff: 
Old New Differences
134 134      let D = l(k)
135 135      let J = D.description
136 136      let K = getStringValue("Lends")
137 -     let L = invoke(e, "deleteByJSONKey", ["count"], nil)
137 +     let L = invoke(e, "deleteByJSONKey", [K, "count"], nil)
138 138      let M = (    let x = L
139 139      if ($isInstanceOf(x, "(String, String)"))
140 140          then x
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 D = Issue(C, (("{uri:\"" + z) + "\"}"), 1, 0, false, unit, height)
122 122      let k = calculateAssetId(D)
123 123      let E = Address(fromBase58String(j))
124 124      let F = i(E, k)
125 125      if ((F == F))
126 126          then [D, F, IntegerEntry("totalAmount", A), StringEntry(C, z)]
127 127          else throw("Strict value is not equal to itself.")
128 128      })
129 129  
130 130  
131 131  
132 132  @Callable(n)
133 133  func initLend (k,G,H,I) = valueOrElse(m(n.caller, k), {
134 134      let D = l(k)
135 135      let J = D.description
136 136      let K = getStringValue("Lends")
137 -     let L = invoke(e, "deleteByJSONKey", ["count"], nil)
137 +     let L = invoke(e, "deleteByJSONKey", [K, "count"], nil)
138 138      let M = (    let x = L
139 139      if ($isInstanceOf(x, "(String, String)"))
140 140          then x
141 141          else throw(($getType(x) + " couldn't be cast to (String, String)")))._1
142 142      let N = toString((parseIntValue(M) + 1))
143 143      let O = invoke(e, "makeJSON", [["supportedInterface", "assetdId", "tokenUri", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed", "rents"], ["0", k, J, toString(n.caller), toString(G), toString(H), toString(I), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (G * I))), "0", "0", "{\"count\":\"0\"}"]], nil)
144 144      if ((O == O))
145 145          then {
146 146              let P = invoke(e, "addToJSON", [(            let x = L
147 147              if ($isInstanceOf(x, "(String, String)"))
148 148                  then x
149 149                  else throw(($getType(x) + " couldn't be cast to (String, String)")))._2, [M, "count"], [{
150 150                  let x = O
151 151                  if ($isInstanceOf(x, "String"))
152 152                      then x
153 153                      else throw(($getType(x) + " couldn't be cast to String"))
154 154                  }, N]], nil)
155 155              if ((P == P))
156 156                  then [StringEntry("Lends", {
157 157                      let x = P
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                  else throw("Strict value is not equal to itself.")
163 163              }
164 164          else throw("Strict value is not equal to itself.")
165 165      })
166 166  
167 167

Old	New		Differences
134	134		let D = l(k)
135	135		let J = D.description
136	136		let K = getStringValue("Lends")
137		-	let L = invoke(e, "deleteByJSONKey", ["count"], nil)
	137	+	let L = invoke(e, "deleteByJSONKey", [K, "count"], nil)
138	138		let M = ( let x = L
139	139		if ($isInstanceOf(x, "(String, String)"))
140	140		then x

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 D = Issue(C, (("{uri:\"" + z) + "\"}"), 1, 0, false, unit, height)
122	122		let k = calculateAssetId(D)
123	123		let E = Address(fromBase58String(j))
124	124		let F = i(E, k)
125	125		if ((F == F))
126	126		then [D, F, IntegerEntry("totalAmount", A), StringEntry(C, z)]
127	127		else throw("Strict value is not equal to itself.")
128	128		})
129	129
130	130
131	131
132	132		@Callable(n)
133	133		func initLend (k,G,H,I) = valueOrElse(m(n.caller, k), {
134	134		let D = l(k)
135	135		let J = D.description
136	136		let K = getStringValue("Lends")
137		-	let L = invoke(e, "deleteByJSONKey", ["count"], nil)
	137	+	let L = invoke(e, "deleteByJSONKey", [K, "count"], nil)
138	138		let M = ( let x = L
139	139		if ($isInstanceOf(x, "(String, String)"))
140	140		then x
141	141		else throw(($getType(x) + " couldn't be cast to (String, String)")))._1
142	142		let N = toString((parseIntValue(M) + 1))
143	143		let O = invoke(e, "makeJSON", [["supportedInterface", "assetdId", "tokenUri", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed", "rents"], ["0", k, J, toString(n.caller), toString(G), toString(H), toString(I), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (G * I))), "0", "0", "{\"count\":\"0\"}"]], nil)
144	144		if ((O == O))
145	145		then {
146	146		let P = invoke(e, "addToJSON", [( let x = L
147	147		if ($isInstanceOf(x, "(String, String)"))
148	148		then x
149	149		else throw(($getType(x) + " couldn't be cast to (String, String)")))._2, [M, "count"], [{
150	150		let x = O
151	151		if ($isInstanceOf(x, "String"))
152	152		then x
153	153		else throw(($getType(x) + " couldn't be cast to String"))
154	154		}, N]], nil)
155	155		if ((P == P))
156	156		then [StringEntry("Lends", {
157	157		let x = P
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		else throw("Strict value is not equal to itself.")
163	163		}
164	164		else throw("Strict value is not equal to itself.")
165	165		})
166	166
167	167

github/deemru/w8io/169f3d6 
34.66 ms ◑