w8 · tx · 2yD···Y6e

tx · 2yDSbohKjDR9Eok1ngCVzy8CvuzKxNiGBhcCXiX9ZY6e

3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn:  -0.00700000 Waves

2023.03.21 21:27 [2500133] smart account 3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2yDSbohKjDR9Eok1ngCVzy8CvuzKxNiGBhcCXiX9ZY6e",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1679423243073,
    "version": 2,
    "chainId": 84,
    "sender": "3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn",
    "senderPublicKey": "CZeucjRLCKrkiP9zuj9KbLe23Wv9DywFzHBqNDnte51B",
    "proofs": [
        "5ChSQ83tanYKy9KpQXkQFwzDHpAdLiHcr7VfZSSYvLr4F9r1FE22V2TPc5URfsiJRguC9M8f8nGtrwUcmrCha9xp"
    ],
    "script": "base64:BgI6CAISBAoCCAgSBAoCCAESAwoBCBIGCgQICAgIEgUKAwgICBIDCgECEgMKAQgSBgoECAEBARIECgIBARQADmNvbGxlY3Rpb25OYW1lCQERQGV4dHJOYXRpdmUoMTA1OCkBAg5jb2xsZWN0aW9uTmFtZQAGc3ltYm9sCQERQGV4dHJOYXRpdmUoMTA1OCkBAgZzeW1ib2wAC2Rlc2NyaXB0aW9uCQERQGV4dHJOYXRpdmUoMTA1OCkBAgtkZXNjcmlwdGlvbgALdG90YWxBbW91bnQJARFAZXh0ck5hdGl2ZSgxMDU1KQECC3RvdGFsQW1vdW50AAdiYXNlVVJJCQERQGV4dHJOYXRpdmUoMTA1OCkBAgdiYXNlVVJJAAhkQXBwSnNvbgkBB0FkZHJlc3MBCQDZBAECIzNNckdhWlZSaGtuRUdmSEoxOXR0VVBObkRSb0ZxY0hoVk43AAx0b2tlblBheW1lbnQJARFAZXh0ck5hdGl2ZSgxMDU3KQECDHRva2VuUGF5bWVudAARdG9rZW5QYXltZW50QXNzZXQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQERQGV4dHJOYXRpdmUoMTA1NykBAgx0b2tlblBheW1lbnQCI3Rva2VuIHBheW1lbnQgYXNzZXQgZG9lc24ndCBjb25uZWN0AAlsZW5kQ291bnQJARFAZXh0ck5hdGl2ZSgxMDU1KQECCWxlbmRDb3VudAAQbGVuZEN1cnJlbnRDb3VudAkBEUBleHRyTmF0aXZlKDEwNTUpAQIQbGVuZEN1cnJlbnRDb3VudAEOcGFyc2VJZHRvQXNzZXQBB2Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFB2Fzc2V0SWQCHENhbid0IGZpbmQgYXNzZXQgYnkgYXNzZXQgaWQBDG9ubHlJbnRlcm5hbAEGY2FsbGVyAwkAAAIFBmNhbGxlcgUEdGhpcwUEdW5pdAkAAgECEk9ubHkgaW50ZXJuYWwgY2FsbAENdHJhbnNmZXJPck5vdAICdG8HYXNzZXRJZAMJAAACBQJ0bwUEdGhpcwkBC1N0cmluZ0VudHJ5AgIEc210aAIEc210aAkBDlNjcmlwdFRyYW5zZmVyAwUCdG8AAQUHYXNzZXRJZAEPY2hlY2tBc3NldE93bmVyAgZjYWxsZXIHYXNzZXRJZAMJAAACCQDwBwIFBmNhbGxlcgkA2QQBBQdhc3NldElkAAEFBHVuaXQJAAIBAhBPbmx5IGFzc2V0IG93bmVyAQxjaGVja1BheW1lbnQCCHBheW1lbnRzBmFtb3VudAMJAGcCCAkAkQMCBQhwYXltZW50cwAABmFtb3VudAUGYW1vdW50BQR1bml0CQACAQIVYW1vdW50IGxlc3MgdGhlbiBuZWVkARBjaGVja0Fzc2V0RXhpc3RzAQdhc3NldElkAwkBC3ZhbHVlT3JFbHNlAgkAoAgBBQdhc3NldElkBwkAAgECFnRoaXMgdG9rZW4gYWxyZWFkeSB1c2UFBHVuaXQBC2dldExlbmRKc29uAQZsZW5kSWQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgIFbGVuZC0FDGxlbmRJZFN0cmluZwEGZ2V0S2V5AghsZW5kSnNvbgNrZXkED3RpbWVVbml0U2Vjb25kcwoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAgUIbGVuZEpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUPdGltZVVuaXRTZWNvbmRzBQ90aW1lVW5pdFNlY29uZHMFD3RpbWVVbml0U2Vjb25kcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgEMZ2V0UmVudENvdW50AQZsZW5kSWQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcBDGNhbGNMZW5kQ29zdAIGbGVuZElkD3RpbWVVbml0U2Vjb25kcwQIbGVuZEpzb24JAQtnZXRMZW5kSnNvbgEFBmxlbmRJZAQTdGltZVVuaXRQcmljZVN0cmluZwkBBmdldEtleQIFCGxlbmRKc29uAg10aW1lVW5pdFByaWNlAwkAAAIFE3RpbWVVbml0UHJpY2VTdHJpbmcFE3RpbWVVbml0UHJpY2VTdHJpbmcEDXRpbWVVbml0UHJpY2UJAQ1wYXJzZUludFZhbHVlAQUTdGltZVVuaXRQcmljZVN0cmluZwkAaAIFD3RpbWVVbml0U2Vjb25kcwUNdGltZVVuaXRQcmljZQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkBaQEJc2V0U3RyaW5nAgRfa2V5Bl92YWx1ZQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCBQRfa2V5BQZfdmFsdWUFA25pbAFpAQZzZXRJbnQCBF9rZXkGX3ZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQRfa2V5BQZfdmFsdWUFA25pbAFpAQtkZWxldGVFbnRyeQEEX2tleQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELRGVsZXRlRW50cnkBBQRfa2V5BQNuaWwBaQEEaW5pdAQPX2NvbGxlY3Rpb25OYW1lB19zeW1ib2wMX2Rlc2NyaXB0aW9uCF9iYXNlVVJJCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQICDmNvbGxlY3Rpb25OYW1lBQ9fY29sbGVjdGlvbk5hbWUJAMwIAgkBC1N0cmluZ0VudHJ5AgIGc3ltYm9sBQdfc3ltYm9sCQDMCAIJAQtTdHJpbmdFbnRyeQICC2Rlc2NyaXB0aW9uBQxfZGVzY3JpcHRpb24JAMwIAgkBDEludGVnZXJFbnRyeQICC3RvdGFsQW1vdW50AAAJAMwIAgkBC1N0cmluZ0VudHJ5AgIHYmFzZVVSSQUIX2Jhc2VVUkkFA25pbAFpAQdzZXRVc2VyAwdhc3NldElkBHVzZXIHZXhwaXJlcwQDcmVzCQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICBHVzZXIJAMwIAgIHZXhwaXJlcwUDbmlsCQDMCAIJAMwIAgUEdXNlcgkAzAgCBQdleHBpcmVzBQNuaWwFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICAgd1c2VyT2YtBQdhc3NldElkCgABQAUDcmVzAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEPc2V0VG9rZW5QYXltZW50AQthc3NldEJpbmFyeQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELQmluYXJ5RW50cnkCAgx0b2tlblBheW1lbnQFC2Fzc2V0QmluYXJ5BQNuaWwBaQEEbWludAECdG8EB3Rva2VuSWQJAGQCBQt0b3RhbEFtb3VudAABBA10b2tlbklkU3RyaW5nCQCkAwEFB3Rva2VuSWQEB3ByZU5hbWUJAKwCAgkArAICBQZzeW1ib2wCASMFDXRva2VuSWRTdHJpbmcEBG5hbWUDCQBnAgAQCQCxAgEFB3ByZU5hbWUFB3ByZU5hbWUFDXRva2VuSWRTdHJpbmcECHRva2VuVVJJCQCsAgIFB2Jhc2VVUkkFDXRva2VuSWRTdHJpbmcEBGpzb24KAAFACQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICCHRva2VuVVJJBQNuaWwJAMwIAgkAzAgCBQh0b2tlblVSSQUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcEBWFzc2V0CQDDCAcFBG5hbWUFBGpzb24AAQAABwUEdW5pdAUGaGVpZ2h0BAdhc3NldElkCQC4CAEFBWFzc2V0BAl0b0FkZHJlc3MJAQdBZGRyZXNzAQkA2QQBBQJ0bwQIdHJhbnNmZXIJAQ10cmFuc2Zlck9yTm90AgUJdG9BZGRyZXNzBQdhc3NldElkAwkAAAIFCHRyYW5zZmVyBQh0cmFuc2ZlcgkAzAgCBQVhc3NldAkAzAgCBQh0cmFuc2ZlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQFB3Rva2VuSWQJAMwIAgkBC1N0cmluZ0VudHJ5AgUEbmFtZQUIdG9rZW5VUkkFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhpbml0TGVuZAQHYXNzZXRJZA90aW1lVW5pdFNlY29uZHMNdGltZVVuaXRQcmljZQ10aW1lVW5pdENvdW50CQELdmFsdWVPckVsc2UCCQEPY2hlY2tBc3NldE93bmVyAggFAWkGY2FsbGVyBQdhc3NldElkCQELdmFsdWVPckVsc2UCCQEQY2hlY2tBc3NldEV4aXN0cwEFB2Fzc2V0SWQEBWFzc2V0CQEOcGFyc2VJZHRvQXNzZXQBBQdhc3NldElkBAh0b2tlblVSSQoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAggFBWFzc2V0C2Rlc2NyaXB0aW9uCQDMCAICCHRva2VuVVJJBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUIdG9rZW5VUkkFCHRva2VuVVJJBAhsZW5kSnNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgISc3VwcG9ydGVkSW50ZXJmYWNlCQDMCAICCGFzc2V0ZElkCQDMCAICCHRva2VuVVJJCQDMCAICBW93bmVyCQDMCAICD3RpbWVVbml0U2Vjb25kcwkAzAgCAg10aW1lVW5pdFByaWNlCQDMCAICDXRpbWVVbml0Q291bnQJAMwIAgIOc3RhcnRUaW1lc3RhbXAJAMwIAgIMZW5kVGltZXN0YW1wCQDMCAICB2RlcG9zaXQJAMwIAgIHY2xhaW1lZAUDbmlsCQDMCAIJAMwIAgIBMAkAzAgCBQdhc3NldElkCQDMCAIFCHRva2VuVVJJCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAKQDAQUPdGltZVVuaXRTZWNvbmRzCQDMCAIJAKQDAQUNdGltZVVuaXRQcmljZQkAzAgCCQCkAwEFDXRpbWVVbml0Q291bnQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAaAIFD3RpbWVVbml0U2Vjb25kcwUNdGltZVVuaXRDb3VudAkAzAgCAgEwCQDMCAICATAFA25pbAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCGxlbmRKc29uBQhsZW5kSnNvbgQMbGVuZElkU3RyaW5nCQCkAwEFCWxlbmRDb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgIJbGVuZENvdW50CQBkAgUJbGVuZENvdW50AAEJAMwIAgkBDEludGVnZXJFbnRyeQICEGxlbmRDdXJyZW50Q291bnQJAGQCBRBsZW5kQ3VycmVudENvdW50AAEJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcAAAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICBWxlbmQtBQxsZW5kSWRTdHJpbmcFCGxlbmRKc29uCQDMCAIJAQxCb29sZWFuRW50cnkCBQdhc3NldElkBgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGluaXRSZW50AgZsZW5kSWQNdGltZVVuaXRDb3VudAkBC3ZhbHVlT3JFbHNlAgkBDGNoZWNrUGF5bWVudAIIBQFpCHBheW1lbnRzCQEMY2FsY0xlbmRDb3N0AgUGbGVuZElkBQ10aW1lVW5pdENvdW50BAxsZW5kSWRTdHJpbmcJAKQDAQUGbGVuZElkBAhsZW5kSnNvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nBAZyZW50SWQJAQxnZXRSZW50Q291bnQBBQZsZW5kSWQEDHJlbnRJZFN0cmluZwkApAMBBQZyZW50SWQED3RpbWVVbml0U2Vjb25kcwoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAgUIbGVuZEpzb24JAMwIAgIPdGltZVVuaXRTZWNvbmRzBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUPdGltZVVuaXRTZWNvbmRzBQ90aW1lVW5pdFNlY29uZHMEEnRpbWVVbml0U2Vjb25kc0ludAkBDXBhcnNlSW50VmFsdWUBBQ90aW1lVW5pdFNlY29uZHMDCQAAAgUSdGltZVVuaXRTZWNvbmRzSW50BRJ0aW1lVW5pdFNlY29uZHNJbnQECHJlbnRKc29uCgABQAkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAghjdXN0b21lcgkAzAgCAg10aW1lVW5pdENvdW50CQDMCAICDnN0YXJ0VGltZXN0YW1wCQDMCAICDGVuZFRpbWVzdGFtcAkAzAgCAgZjbG9zZWQFA25pbAkAzAgCCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAKQDAQUNdGltZVVuaXRDb3VudAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUSdGltZVVuaXRTZWNvbmRzSW50BQ10aW1lVW5pdENvdW50CQDMCAICATAFA25pbAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCHJlbnRKc29uBQhyZW50SnNvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAg9sZW5kLXJlbnRDb3VudC0FDGxlbmRJZFN0cmluZwkAZAIFBnJlbnRJZAABCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgICCmxlbmQtcmVudC0FDGxlbmRJZFN0cmluZwIBLQUMcmVudElkU3RyaW5nBQhyZW50SnNvbgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAIMDf8o=",
    "height": 2500133,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 4Q4yMXF3s6DtSkBqMmwJzGBXdyNSQHqyBhoxE47eP5bv
Next: 9fZKAZMJLyTURLbyvdJWT3Br8rzswsYW7emxNiQ4YGwi

Diff: 
Old New Differences
44 44      else throw("amount less then need")
45 45  
46 46  
47 - func checkAssetExists (assetId) = if (getBooleanValue(assetId))
47 + func checkAssetExists (assetId) = if (valueOrElse(getBoolean(assetId), false))
48 48      then throw("this token already use")
49 49      else unit
50 50  
214 214      })
215 215  
216 216  
217 - 
218 - @Callable(i)
219 - func test (assetId) = [BooleanEntry("Debug", valueOrElse(getBoolean(assetId), false))]
220 - 
221 - 
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let collectionName = getStringValue("collectionName")
5 5  
6 6  let symbol = getStringValue("symbol")
7 7  
8 8  let description = getStringValue("description")
9 9  
10 10  let totalAmount = getIntegerValue("totalAmount")
11 11  
12 12  let baseURI = getStringValue("baseURI")
13 13  
14 14  let dAppJson = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
15 15  
16 16  let tokenPayment = getBinaryValue("tokenPayment")
17 17  
18 18  let tokenPaymentAsset = valueOrErrorMessage(assetInfo(getBinaryValue("tokenPayment")), "token payment asset doesn't connect")
19 19  
20 20  let lendCount = getIntegerValue("lendCount")
21 21  
22 22  let lendCurrentCount = getIntegerValue("lendCurrentCount")
23 23  
24 24  func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
25 25  
26 26  
27 27  func onlyInternal (caller) = if ((caller == this))
28 28      then unit
29 29      else throw("Only internal call")
30 30  
31 31  
32 32  func transferOrNot (to,assetId) = if ((to == this))
33 33      then StringEntry("smth", "smth")
34 34      else ScriptTransfer(to, 1, assetId)
35 35  
36 36  
37 37  func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
38 38      then unit
39 39      else throw("Only asset owner")
40 40  
41 41  
42 42  func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
43 43      then unit
44 44      else throw("amount less then need")
45 45  
46 46  
47 - func checkAssetExists (assetId) = if (getBooleanValue(assetId))
47 + func checkAssetExists (assetId) = if (valueOrElse(getBoolean(assetId), false))
48 48      then throw("this token already use")
49 49      else unit
50 50  
51 51  
52 52  func getLendJson (lendId) = {
53 53      let lendIdString = toString(lendId)
54 54      getStringValue(("lend-" + lendIdString))
55 55      }
56 56  
57 57  
58 58  func getKey (lendJson,key) = {
59 59      let timeUnitSeconds = {
60 60          let @ = invoke(dAppJson, "readByJSONKey", [lendJson, key], nil)
61 61          if ($isInstanceOf(@, "String"))
62 62              then @
63 63              else throw(($getType(@) + " couldn't be cast to String"))
64 64          }
65 65      if ((timeUnitSeconds == timeUnitSeconds))
66 66          then timeUnitSeconds
67 67          else throw("Strict value is not equal to itself.")
68 68      }
69 69  
70 70  
71 71  func getRentCount (lendId) = {
72 72      let lendIdString = toString(lendId)
73 73      getIntegerValue(("lend-rentCount-" + lendIdString))
74 74      }
75 75  
76 76  
77 77  func calcLendCost (lendId,timeUnitSeconds) = {
78 78      let lendJson = getLendJson(lendId)
79 79      let timeUnitPriceString = getKey(lendJson, "timeUnitPrice")
80 80      if ((timeUnitPriceString == timeUnitPriceString))
81 81          then {
82 82              let timeUnitPrice = parseIntValue(timeUnitPriceString)
83 83              (timeUnitSeconds * timeUnitPrice)
84 84              }
85 85          else throw("Strict value is not equal to itself.")
86 86      }
87 87  
88 88  
89 89  @Callable(i)
90 90  func setString (_key,_value) = valueOrElse(onlyInternal(i.caller), [StringEntry(_key, _value)])
91 91  
92 92  
93 93  
94 94  @Callable(i)
95 95  func setInt (_key,_value) = valueOrElse(onlyInternal(i.caller), [IntegerEntry(_key, _value)])
96 96  
97 97  
98 98  
99 99  @Callable(i)
100 100  func deleteEntry (_key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(_key)])
101 101  
102 102  
103 103  
104 104  @Callable(i)
105 105  func init (_collectionName,_symbol,_description,_baseURI) = valueOrElse(onlyInternal(i.caller), [StringEntry("collectionName", _collectionName), StringEntry("symbol", _symbol), StringEntry("description", _description), IntegerEntry("totalAmount", 0), StringEntry("baseURI", _baseURI)])
106 106  
107 107  
108 108  
109 109  @Callable(i)
110 110  func setUser (assetId,user,expires) = {
111 111      let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
112 112      if ((res == res))
113 113          then $Tuple2([StringEntry(("userOf-" + assetId), {
114 114              let @ = res
115 115              if ($isInstanceOf(@, "String"))
116 116                  then @
117 117                  else throw(($getType(@) + " couldn't be cast to String"))
118 118              })], res)
119 119          else throw("Strict value is not equal to itself.")
120 120      }
121 121  
122 122  
123 123  
124 124  @Callable(i)
125 125  func setTokenPayment (assetBinary) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetBinary)])
126 126  
127 127  
128 128  
129 129  @Callable(i)
130 130  func mint (to) = {
131 131      let tokenId = (totalAmount + 1)
132 132      let tokenIdString = toString(tokenId)
133 133      let preName = ((symbol + "#") + tokenIdString)
134 134      let name = if ((16 >= size(preName)))
135 135          then preName
136 136          else tokenIdString
137 137      let tokenURI = (baseURI + tokenIdString)
138 138      let json = {
139 139          let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
140 140          if ($isInstanceOf(@, "String"))
141 141              then @
142 142              else throw(($getType(@) + " couldn't be cast to String"))
143 143          }
144 144      let asset = Issue(name, json, 1, 0, false, unit, height)
145 145      let assetId = calculateAssetId(asset)
146 146      let toAddress = Address(fromBase58String(to))
147 147      let transfer = transferOrNot(toAddress, assetId)
148 148      if ((transfer == transfer))
149 149          then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
150 150          else throw("Strict value is not equal to itself.")
151 151      }
152 152  
153 153  
154 154  
155 155  @Callable(i)
156 156  func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), valueOrElse(checkAssetExists(assetId), {
157 157      let asset = parseIdtoAsset(assetId)
158 158      let tokenURI = {
159 159          let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
160 160          if ($isInstanceOf(@, "String"))
161 161              then @
162 162              else throw(($getType(@) + " couldn't be cast to String"))
163 163          }
164 164      if ((tokenURI == tokenURI))
165 165          then {
166 166              let lendJson = {
167 167                  let @ = invoke(dAppJson, "makeJSON", [["supportedInterface", "assetdId", "tokenURI", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed"], ["0", assetId, tokenURI, toString(i.caller), toString(timeUnitSeconds), toString(timeUnitPrice), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSeconds * timeUnitCount))), "0", "0"]], nil)
168 168                  if ($isInstanceOf(@, "String"))
169 169                      then @
170 170                      else throw(($getType(@) + " couldn't be cast to String"))
171 171                  }
172 172              if ((lendJson == lendJson))
173 173                  then {
174 174                      let lendIdString = toString(lendCount)
175 175  [IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson), BooleanEntry(assetId, true)]
176 176                      }
177 177                  else throw("Strict value is not equal to itself.")
178 178              }
179 179          else throw("Strict value is not equal to itself.")
180 180      }))
181 181  
182 182  
183 183  
184 184  @Callable(i)
185 185  func initRent (lendId,timeUnitCount) = valueOrElse(checkPayment(i.payments, calcLendCost(lendId, timeUnitCount)), {
186 186      let lendIdString = toString(lendId)
187 187      let lendJson = getStringValue(("lend-" + lendIdString))
188 188      let rentId = getRentCount(lendId)
189 189      let rentIdString = toString(rentId)
190 190      let timeUnitSeconds = {
191 191          let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
192 192          if ($isInstanceOf(@, "String"))
193 193              then @
194 194              else throw(($getType(@) + " couldn't be cast to String"))
195 195          }
196 196      if ((timeUnitSeconds == timeUnitSeconds))
197 197          then {
198 198              let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
199 199              if ((timeUnitSecondsInt == timeUnitSecondsInt))
200 200                  then {
201 201                      let rentJson = {
202 202                          let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
203 203                          if ($isInstanceOf(@, "String"))
204 204                              then @
205 205                              else throw(($getType(@) + " couldn't be cast to String"))
206 206                          }
207 207                      if ((rentJson == rentJson))
208 208                          then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson)]
209 209                          else throw("Strict value is not equal to itself.")
210 210                      }
211 211                  else throw("Strict value is not equal to itself.")
212 212              }
213 213          else throw("Strict value is not equal to itself.")
214 214      })
215 215  
216 216  
217 - 
218 - @Callable(i)
219 - func test (assetId) = [BooleanEntry("Debug", valueOrElse(getBoolean(assetId), false))]
220 - 
221 -

Old	New		Differences
44	44		else throw("amount less then need")
45	45
46	46
47		-	func checkAssetExists (assetId) = if (~~getBooleanValue~~(assetId))
	47	+	func checkAssetExists (assetId) = if (valueOrElse(getBoolean(assetId), false))
48	48		then throw("this token already use")
49	49		else unit
50	50

214	214		})
215	215
216	216
217		-
218		-	@Callable(i)
219		-	func test (assetId) = [BooleanEntry("Debug", valueOrElse(getBoolean(assetId), false))]
220		-
221		-

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let collectionName = getStringValue("collectionName")
5	5
6	6		let symbol = getStringValue("symbol")
7	7
8	8		let description = getStringValue("description")
9	9
10	10		let totalAmount = getIntegerValue("totalAmount")
11	11
12	12		let baseURI = getStringValue("baseURI")
13	13
14	14		let dAppJson = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
15	15
16	16		let tokenPayment = getBinaryValue("tokenPayment")
17	17
18	18		let tokenPaymentAsset = valueOrErrorMessage(assetInfo(getBinaryValue("tokenPayment")), "token payment asset doesn't connect")
19	19
20	20		let lendCount = getIntegerValue("lendCount")
21	21
22	22		let lendCurrentCount = getIntegerValue("lendCurrentCount")
23	23
24	24		func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
25	25
26	26
27	27		func onlyInternal (caller) = if ((caller == this))
28	28		then unit
29	29		else throw("Only internal call")
30	30
31	31
32	32		func transferOrNot (to,assetId) = if ((to == this))
33	33		then StringEntry("smth", "smth")
34	34		else ScriptTransfer(to, 1, assetId)
35	35
36	36
37	37		func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
38	38		then unit
39	39		else throw("Only asset owner")
40	40
41	41
42	42		func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
43	43		then unit
44	44		else throw("amount less then need")
45	45
46	46
47		-	func checkAssetExists (assetId) = if (~~getBooleanValue~~(assetId))
	47	+	func checkAssetExists (assetId) = if (valueOrElse(getBoolean(assetId), false))
48	48		then throw("this token already use")
49	49		else unit
50	50
51	51
52	52		func getLendJson (lendId) = {
53	53		let lendIdString = toString(lendId)
54	54		getStringValue(("lend-" + lendIdString))
55	55		}
56	56
57	57
58	58		func getKey (lendJson,key) = {
59	59		let timeUnitSeconds = {
60	60		let @ = invoke(dAppJson, "readByJSONKey", [lendJson, key], nil)
61	61		if ($isInstanceOf(@, "String"))
62	62		then @
63	63		else throw(($getType(@) + " couldn't be cast to String"))
64	64		}
65	65		if ((timeUnitSeconds == timeUnitSeconds))
66	66		then timeUnitSeconds
67	67		else throw("Strict value is not equal to itself.")
68	68		}
69	69
70	70
71	71		func getRentCount (lendId) = {
72	72		let lendIdString = toString(lendId)
73	73		getIntegerValue(("lend-rentCount-" + lendIdString))
74	74		}
75	75
76	76
77	77		func calcLendCost (lendId,timeUnitSeconds) = {
78	78		let lendJson = getLendJson(lendId)
79	79		let timeUnitPriceString = getKey(lendJson, "timeUnitPrice")
80	80		if ((timeUnitPriceString == timeUnitPriceString))
81	81		then {
82	82		let timeUnitPrice = parseIntValue(timeUnitPriceString)
83	83		(timeUnitSeconds * timeUnitPrice)
84	84		}
85	85		else throw("Strict value is not equal to itself.")
86	86		}
87	87
88	88
89	89		@Callable(i)
90	90		func setString (_key,_value) = valueOrElse(onlyInternal(i.caller), [StringEntry(_key, _value)])
91	91
92	92
93	93
94	94		@Callable(i)
95	95		func setInt (_key,_value) = valueOrElse(onlyInternal(i.caller), [IntegerEntry(_key, _value)])
96	96
97	97
98	98
99	99		@Callable(i)
100	100		func deleteEntry (_key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(_key)])
101	101
102	102
103	103
104	104		@Callable(i)
105	105		func init (_collectionName,_symbol,_description,_baseURI) = valueOrElse(onlyInternal(i.caller), [StringEntry("collectionName", _collectionName), StringEntry("symbol", _symbol), StringEntry("description", _description), IntegerEntry("totalAmount", 0), StringEntry("baseURI", _baseURI)])
106	106
107	107
108	108
109	109		@Callable(i)
110	110		func setUser (assetId,user,expires) = {
111	111		let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
112	112		if ((res == res))
113	113		then $Tuple2([StringEntry(("userOf-" + assetId), {
114	114		let @ = res
115	115		if ($isInstanceOf(@, "String"))
116	116		then @
117	117		else throw(($getType(@) + " couldn't be cast to String"))
118	118		})], res)
119	119		else throw("Strict value is not equal to itself.")
120	120		}
121	121
122	122
123	123
124	124		@Callable(i)
125	125		func setTokenPayment (assetBinary) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetBinary)])
126	126
127	127
128	128
129	129		@Callable(i)
130	130		func mint (to) = {
131	131		let tokenId = (totalAmount + 1)
132	132		let tokenIdString = toString(tokenId)
133	133		let preName = ((symbol + "#") + tokenIdString)
134	134		let name = if ((16 >= size(preName)))
135	135		then preName
136	136		else tokenIdString
137	137		let tokenURI = (baseURI + tokenIdString)
138	138		let json = {
139	139		let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
140	140		if ($isInstanceOf(@, "String"))
141	141		then @
142	142		else throw(($getType(@) + " couldn't be cast to String"))
143	143		}
144	144		let asset = Issue(name, json, 1, 0, false, unit, height)
145	145		let assetId = calculateAssetId(asset)
146	146		let toAddress = Address(fromBase58String(to))
147	147		let transfer = transferOrNot(toAddress, assetId)
148	148		if ((transfer == transfer))
149	149		then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
150	150		else throw("Strict value is not equal to itself.")
151	151		}
152	152
153	153
154	154
155	155		@Callable(i)
156	156		func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), valueOrElse(checkAssetExists(assetId), {
157	157		let asset = parseIdtoAsset(assetId)
158	158		let tokenURI = {
159	159		let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
160	160		if ($isInstanceOf(@, "String"))
161	161		then @
162	162		else throw(($getType(@) + " couldn't be cast to String"))
163	163		}
164	164		if ((tokenURI == tokenURI))
165	165		then {
166	166		let lendJson = {
167	167		let @ = invoke(dAppJson, "makeJSON", [["supportedInterface", "assetdId", "tokenURI", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed"], ["0", assetId, tokenURI, toString(i.caller), toString(timeUnitSeconds), toString(timeUnitPrice), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSeconds * timeUnitCount))), "0", "0"]], nil)
168	168		if ($isInstanceOf(@, "String"))
169	169		then @
170	170		else throw(($getType(@) + " couldn't be cast to String"))
171	171		}
172	172		if ((lendJson == lendJson))
173	173		then {
174	174		let lendIdString = toString(lendCount)
175	175		[IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson), BooleanEntry(assetId, true)]
176	176		}
177	177		else throw("Strict value is not equal to itself.")
178	178		}
179	179		else throw("Strict value is not equal to itself.")
180	180		}))
181	181
182	182
183	183
184	184		@Callable(i)
185	185		func initRent (lendId,timeUnitCount) = valueOrElse(checkPayment(i.payments, calcLendCost(lendId, timeUnitCount)), {
186	186		let lendIdString = toString(lendId)
187	187		let lendJson = getStringValue(("lend-" + lendIdString))
188	188		let rentId = getRentCount(lendId)
189	189		let rentIdString = toString(rentId)
190	190		let timeUnitSeconds = {
191	191		let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
192	192		if ($isInstanceOf(@, "String"))
193	193		then @
194	194		else throw(($getType(@) + " couldn't be cast to String"))
195	195		}
196	196		if ((timeUnitSeconds == timeUnitSeconds))
197	197		then {
198	198		let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
199	199		if ((timeUnitSecondsInt == timeUnitSecondsInt))
200	200		then {
201	201		let rentJson = {
202	202		let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
203	203		if ($isInstanceOf(@, "String"))
204	204		then @
205	205		else throw(($getType(@) + " couldn't be cast to String"))
206	206		}
207	207		if ((rentJson == rentJson))
208	208		then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson)]
209	209		else throw("Strict value is not equal to itself.")
210	210		}
211	211		else throw("Strict value is not equal to itself.")
212	212		}
213	213		else throw("Strict value is not equal to itself.")
214	214		})
215	215
216	216
217		-
218		-	@Callable(i)
219		-	func test (assetId) = [BooleanEntry("Debug", valueOrElse(getBoolean(assetId), false))]
220		-
221		-

github/deemru/w8io/169f3d6 
39.64 ms ◑