tx · 9fZKAZMJLyTURLbyvdJWT3Br8rzswsYW7emxNiQ4YGwi

3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn:  -0.00700000 Waves

2023.03.21 21:55 [2500163] smart account 3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9fZKAZMJLyTURLbyvdJWT3Br8rzswsYW7emxNiQ4YGwi",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1679424976687,
    "version": 2,
    "chainId": 84,
    "sender": "3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn",
    "senderPublicKey": "CZeucjRLCKrkiP9zuj9KbLe23Wv9DywFzHBqNDnte51B",
    "proofs": [
        "sDJ7fpF6iooHk55Tz7TDjPUN8qAY6JVB5zU384zkzV8F9ARZBWD4ZasPDeDWC4q3uJQQXQvku7Lbk5JVfs5ogHv"
    ],
    "script": "base64:BgJECAISBAoCCAgSBAoCCAESAwoBCBIGCgQICAgIEgUKAwgICBIDCgECEgMKAQgSBgoECAEBARIECgIBARIDCgEBEgMKAQEWAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAHYmFzZVVSSQkBEUBleHRyTmF0aXZlKDEwNTgpAQIHYmFzZVVSSQAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAMdG9rZW5QYXltZW50CQERQGV4dHJOYXRpdmUoMTA1NykBAgx0b2tlblBheW1lbnQAEXRva2VuUGF5bWVudEFzc2V0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkBEUBleHRyTmF0aXZlKDEwNTcpAQIMdG9rZW5QYXltZW50AiN0b2tlbiBwYXltZW50IGFzc2V0IGRvZXNuJ3QgY29ubmVjdAAJbGVuZENvdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAglsZW5kQ291bnQAEGxlbmRDdXJyZW50Q291bnQJARFAZXh0ck5hdGl2ZSgxMDU1KQECEGxlbmRDdXJyZW50Q291bnQBDnBhcnNlSWR0b0Fzc2V0AQdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQdhc3NldElkAhxDYW4ndCBmaW5kIGFzc2V0IGJ5IGFzc2V0IGlkAQ10cmFuc2Zlck9yTm90AgJ0bwdhc3NldElkAwkAAAIFAnRvBQR0aGlzCQELU3RyaW5nRW50cnkCAgRzbXRoAgRzbXRoCQEOU2NyaXB0VHJhbnNmZXIDBQJ0bwABBQdhc3NldElkAQtnZXRMZW5kSnNvbgEGbGVuZElkBAxsZW5kSWRTdHJpbmcJAKQDAQUGbGVuZElkCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgICBWxlbmQtBQxsZW5kSWRTdHJpbmcBBmdldEtleQIIbGVuZEpzb24Da2V5BA90aW1lVW5pdFNlY29uZHMKAAFACQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIFCGxlbmRKc29uCQDMCAIFA2tleQUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFD3RpbWVVbml0U2Vjb25kcwUPdGltZVVuaXRTZWNvbmRzBQ90aW1lVW5pdFNlY29uZHMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BDGdldFJlbnRDb3VudAEGbGVuZElkBAxsZW5kSWRTdHJpbmcJAKQDAQUGbGVuZElkCQERQGV4dHJOYXRpdmUoMTA1NSkBCQCsAgICD2xlbmQtcmVudENvdW50LQUMbGVuZElkU3RyaW5nAQxjYWxjTGVuZENvc3QCBmxlbmRJZA90aW1lVW5pdFNlY29uZHMECGxlbmRKc29uCQELZ2V0TGVuZEpzb24BBQZsZW5kSWQEE3RpbWVVbml0UHJpY2VTdHJpbmcJAQZnZXRLZXkCBQhsZW5kSnNvbgINdGltZVVuaXRQcmljZQMJAAACBRN0aW1lVW5pdFByaWNlU3RyaW5nBRN0aW1lVW5pdFByaWNlU3RyaW5nBA10aW1lVW5pdFByaWNlCQENcGFyc2VJbnRWYWx1ZQEFE3RpbWVVbml0UHJpY2VTdHJpbmcJAGgCBQ90aW1lVW5pdFNlY29uZHMFDXRpbWVVbml0UHJpY2UJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BC2dldExlbmRDb3N0AQZsZW5kSWQJAQt2YWx1ZU9yRWxzZQIJALYJAQkBBmdldEtleQIJAQtnZXRMZW5kSnNvbgEFBmxlbmRJZAIFb3duZXIAAAEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQ9jaGVja0Fzc2V0T3duZXICBmNhbGxlcgdhc3NldElkAwkAAAIJAPAHAgUGY2FsbGVyCQDZBAEFB2Fzc2V0SWQAAQUEdW5pdAkAAgECEE9ubHkgYXNzZXQgb3duZXIBDGNoZWNrUGF5bWVudAIIcGF5bWVudHMGYW1vdW50AwkAZwIICQCRAwIFCHBheW1lbnRzAAAGYW1vdW50BQZhbW91bnQFBHVuaXQJAAIBAhVhbW91bnQgbGVzcyB0aGVuIG5lZWQBEGNoZWNrQXNzZXRFeGlzdHMBB2Fzc2V0SWQDCQELdmFsdWVPckVsc2UCCQCgCAEFB2Fzc2V0SWQHCQACAQIWdGhpcyB0b2tlbiBhbHJlYWR5IHVzZQUEdW5pdAEOY2hlY2tMZW5kT3duZXICBmNhbGxlcgZsZW5kSWQDCQECIT0CCQEGZ2V0S2V5AgkBC2dldExlbmRKc29uAQUGbGVuZElkAgVvd25lcgkApQgBBQZjYWxsZXIJAAIBAhF5b3UgaGF2ZW4ndCBwZXJtcwUEdW5pdAsBaQEJc2V0U3RyaW5nAgRfa2V5Bl92YWx1ZQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCBQRfa2V5BQZfdmFsdWUFA25pbAFpAQZzZXRJbnQCBF9rZXkGX3ZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQRfa2V5BQZfdmFsdWUFA25pbAFpAQtkZWxldGVFbnRyeQEEX2tleQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELRGVsZXRlRW50cnkBBQRfa2V5BQNuaWwBaQEEaW5pdAQPX2NvbGxlY3Rpb25OYW1lB19zeW1ib2wMX2Rlc2NyaXB0aW9uCF9iYXNlVVJJCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQICDmNvbGxlY3Rpb25OYW1lBQ9fY29sbGVjdGlvbk5hbWUJAMwIAgkBC1N0cmluZ0VudHJ5AgIGc3ltYm9sBQdfc3ltYm9sCQDMCAIJAQtTdHJpbmdFbnRyeQICC2Rlc2NyaXB0aW9uBQxfZGVzY3JpcHRpb24JAMwIAgkBDEludGVnZXJFbnRyeQICC3RvdGFsQW1vdW50AAAJAMwIAgkBC1N0cmluZ0VudHJ5AgIHYmFzZVVSSQUIX2Jhc2VVUkkFA25pbAFpAQdzZXRVc2VyAwdhc3NldElkBHVzZXIHZXhwaXJlcwQDcmVzCQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICBHVzZXIJAMwIAgIHZXhwaXJlcwUDbmlsCQDMCAIJAMwIAgUEdXNlcgkAzAgCBQdleHBpcmVzBQNuaWwFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICAgd1c2VyT2YtBQdhc3NldElkCgABQAUDcmVzAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEPc2V0VG9rZW5QYXltZW50AQthc3NldEJpbmFyeQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELQmluYXJ5RW50cnkCAgx0b2tlblBheW1lbnQFC2Fzc2V0QmluYXJ5BQNuaWwBaQEEbWludAECdG8EB3Rva2VuSWQJAGQCBQt0b3RhbEFtb3VudAABBA10b2tlbklkU3RyaW5nCQCkAwEFB3Rva2VuSWQEB3ByZU5hbWUJAKwCAgkArAICBQZzeW1ib2wCASMFDXRva2VuSWRTdHJpbmcEBG5hbWUDCQBnAgAQCQCxAgEFB3ByZU5hbWUFB3ByZU5hbWUFDXRva2VuSWRTdHJpbmcECHRva2VuVVJJCQCsAgIFB2Jhc2VVUkkFDXRva2VuSWRTdHJpbmcEBGpzb24KAAFACQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICCHRva2VuVVJJBQNuaWwJAMwIAgkAzAgCBQh0b2tlblVSSQUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcEBWFzc2V0CQDDCAcFBG5hbWUFBGpzb24AAQAABwUEdW5pdAUGaGVpZ2h0BAdhc3NldElkCQC4CAEFBWFzc2V0BAl0b0FkZHJlc3MJAQdBZGRyZXNzAQkA2QQBBQJ0bwQIdHJhbnNmZXIJAQ10cmFuc2Zlck9yTm90AgUJdG9BZGRyZXNzBQdhc3NldElkAwkAAAIFCHRyYW5zZmVyBQh0cmFuc2ZlcgkAzAgCBQVhc3NldAkAzAgCBQh0cmFuc2ZlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQFB3Rva2VuSWQJAMwIAgkBC1N0cmluZ0VudHJ5AgUEbmFtZQUIdG9rZW5VUkkFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhpbml0TGVuZAQHYXNzZXRJZA90aW1lVW5pdFNlY29uZHMNdGltZVVuaXRQcmljZQ10aW1lVW5pdENvdW50CQELdmFsdWVPckVsc2UCCQEPY2hlY2tBc3NldE93bmVyAggFAWkGY2FsbGVyBQdhc3NldElkCQELdmFsdWVPckVsc2UCCQEQY2hlY2tBc3NldEV4aXN0cwEFB2Fzc2V0SWQEBWFzc2V0CQEOcGFyc2VJZHRvQXNzZXQBBQdhc3NldElkBAh0b2tlblVSSQoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAggFBWFzc2V0C2Rlc2NyaXB0aW9uCQDMCAICCHRva2VuVVJJBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUIdG9rZW5VUkkFCHRva2VuVVJJBAhsZW5kSnNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgISc3VwcG9ydGVkSW50ZXJmYWNlCQDMCAICCGFzc2V0ZElkCQDMCAICCHRva2VuVVJJCQDMCAICBW93bmVyCQDMCAICD3RpbWVVbml0U2Vjb25kcwkAzAgCAg10aW1lVW5pdFByaWNlCQDMCAICDXRpbWVVbml0Q291bnQJAMwIAgIOc3RhcnRUaW1lc3RhbXAJAMwIAgIMZW5kVGltZXN0YW1wCQDMCAICB2RlcG9zaXQJAMwIAgIHY2xhaW1lZAUDbmlsCQDMCAIJAMwIAgIBMAkAzAgCBQdhc3NldElkCQDMCAIFCHRva2VuVVJJCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAKQDAQUPdGltZVVuaXRTZWNvbmRzCQDMCAIJAKQDAQUNdGltZVVuaXRQcmljZQkAzAgCCQCkAwEFDXRpbWVVbml0Q291bnQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAaAIFD3RpbWVVbml0U2Vjb25kcwUNdGltZVVuaXRDb3VudAkAzAgCAgEwCQDMCAICATAFA25pbAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCGxlbmRKc29uBQhsZW5kSnNvbgQMbGVuZElkU3RyaW5nCQCkAwEFCWxlbmRDb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgIJbGVuZENvdW50CQBkAgUJbGVuZENvdW50AAEJAMwIAgkBDEludGVnZXJFbnRyeQICEGxlbmRDdXJyZW50Q291bnQJAGQCBRBsZW5kQ3VycmVudENvdW50AAEJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcAAAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICBWxlbmQtBQxsZW5kSWRTdHJpbmcFCGxlbmRKc29uCQDMCAIJAQxCb29sZWFuRW50cnkCBQdhc3NldElkBgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGluaXRSZW50AgZsZW5kSWQNdGltZVVuaXRDb3VudAkBC3ZhbHVlT3JFbHNlAgkBDGNoZWNrUGF5bWVudAIIBQFpCHBheW1lbnRzCQEMY2FsY0xlbmRDb3N0AgUGbGVuZElkBQ10aW1lVW5pdENvdW50BAxsZW5kSWRTdHJpbmcJAKQDAQUGbGVuZElkBAhsZW5kSnNvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nBAZyZW50SWQJAQxnZXRSZW50Q291bnQBBQZsZW5kSWQEDHJlbnRJZFN0cmluZwkApAMBBQZyZW50SWQED3RpbWVVbml0U2Vjb25kcwoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAgUIbGVuZEpzb24JAMwIAgIPdGltZVVuaXRTZWNvbmRzBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUPdGltZVVuaXRTZWNvbmRzBQ90aW1lVW5pdFNlY29uZHMEEnRpbWVVbml0U2Vjb25kc0ludAkBDXBhcnNlSW50VmFsdWUBBQ90aW1lVW5pdFNlY29uZHMDCQAAAgUSdGltZVVuaXRTZWNvbmRzSW50BRJ0aW1lVW5pdFNlY29uZHNJbnQECHJlbnRKc29uCgABQAkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAghjdXN0b21lcgkAzAgCAg10aW1lVW5pdENvdW50CQDMCAICDnN0YXJ0VGltZXN0YW1wCQDMCAICDGVuZFRpbWVzdGFtcAkAzAgCAgZjbG9zZWQFA25pbAkAzAgCCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAKQDAQUNdGltZVVuaXRDb3VudAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUSdGltZVVuaXRTZWNvbmRzSW50BQ10aW1lVW5pdENvdW50CQDMCAICATAFA25pbAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCHJlbnRKc29uBQhyZW50SnNvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAg9sZW5kLXJlbnRDb3VudC0FDGxlbmRJZFN0cmluZwkAZAIFBnJlbnRJZAABCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgICCmxlbmQtcmVudC0FDGxlbmRJZFN0cmluZwIBLQUMcmVudElkU3RyaW5nBQhyZW50SnNvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAgpsZW5kLWNvc3QtBQxsZW5kSWRTdHJpbmcJAGQCCQEMY2FsY0xlbmRDb3N0AgUGbGVuZElkBQ10aW1lVW5pdENvdW50CQELZ2V0TGVuZENvc3QBBQZsZW5kSWQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQljbG9zZUxlbmQBBmxlbmRJZAkBC3ZhbHVlT3JFbHNlAgkBDmNoZWNrTGVuZE93bmVyAggFAWkGY2FsbGVyBQZsZW5kSWQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nCQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgIObGVuZC1yZW50Q291bnQFDGxlbmRJZFN0cmluZwkAzAgCCQEMSW50ZWdlckVudHJ5AgIQbGVuZEN1cnJlbnRDb3VudAkAZQIFEGxlbmRDdXJyZW50Q291bnQAAQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAQtnZXRMZW5kQ29zdAEFBmxlbmRJZAUMdG9rZW5QYXltZW50BQNuaWwBaQEEdGVzdAEGbGVuZElkCQDMCAIJAQtTdHJpbmdFbnRyeQICBURlYnVnCQEGZ2V0S2V5AgkBC2dldExlbmRKc29uAQUGbGVuZElkAgVvd25lcgUDbmlsAMXPoNY=",
    "height": 2500163,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2yDSbohKjDR9Eok1ngCVzy8CvuzKxNiGBhcCXiX9ZY6e
Next: Hoj3MygE6WA8z5r5zCeE5Agm1KMYykuCbKaT8kGP3jpN

Diff: 
Old
New
Differences
24
24
 
func k (l) = valueOrErrorMessage(assetInfo(fromBase58String(l)), "Can't find asset by asset id")
25
25
 
26
26
 
27
-
func m (n) = if ((n == this))
28
-
    then unit
29
-
    else throw("Only internal call")
27
+
func m (n,l) = if ((n == this))
28
+
    then StringEntry("smth", "smth")
29
+
    else ScriptTransfer(n, 1, l)
30
30
 
31
31
 
32
-
func o (p,l) = if ((p == this))
33
-
    then StringEntry("smth", "smth")
34
-
    else ScriptTransfer(p, 1, l)
35
-
36
-
37
-
func q (n,l) = if ((assetBalance(n, fromBase58String(l)) == 1))
38
-
    then unit
39
-
    else throw("Only asset owner")
40
-
41
-
42
-
func r (s,t) = if ((s[0].amount >= t))
43
-
    then unit
44
-
    else throw("amount less then need")
45
-
46
-
47
-
func u (l) = if (valueOrElse(getBoolean(l), false))
48
-
    then throw("this token already use")
49
-
    else unit
50
-
51
-
52
-
func v (w) = {
53
-
    let x = toString(w)
54
-
    getStringValue(("lend-" + x))
32
+
func o (p) = {
33
+
    let q = toString(p)
34
+
    getStringValue(("lend-" + q))
55
35
 
    }
56
36
 
57
37
 
58
-
func y (z,A) = {
59
-
    let B = {
60
-
        let C = invoke(f, "readByJSONKey", [z, A], nil)
61
-
        if ($isInstanceOf(C, "String"))
62
-
            then C
63
-
            else throw(($getType(C) + " couldn't be cast to String"))
38
+
func r (s,t) = {
39
+
    let u = {
40
+
        let v = invoke(f, "readByJSONKey", [s, t], nil)
41
+
        if ($isInstanceOf(v, "String"))
42
+
            then v
43
+
            else throw(($getType(v) + " couldn't be cast to String"))
64
44
 
        }
65
-
    if ((B == B))
66
-
        then B
45
+
    if ((u == u))
46
+
        then u
67
47
 
        else throw("Strict value is not equal to itself.")
68
48
 
    }
69
49
 
70
50
 
71
-
func D (w) = {
72
-
    let x = toString(w)
73
-
    getIntegerValue(("lend-rentCount-" + x))
51
+
func w (p) = {
52
+
    let q = toString(p)
53
+
    getIntegerValue(("lend-rentCount-" + q))
74
54
 
    }
75
55
 
76
56
 
77
-
func E (w,B) = {
78
-
    let z = v(w)
79
-
    let F = y(z, "timeUnitPrice")
80
-
    if ((F == F))
57
+
func x (p,u) = {
58
+
    let s = o(p)
59
+
    let y = r(s, "timeUnitPrice")
60
+
    if ((y == y))
81
61
 
        then {
82
-
            let G = parseIntValue(F)
83
-
            (B * G)
62
+
            let z = parseIntValue(y)
63
+
            (u * z)
84
64
 
            }
85
65
 
        else throw("Strict value is not equal to itself.")
86
66
 
    }
87
67
 
88
68
 
89
-
@Callable(H)
90
-
func setString (I,J) = valueOrElse(m(H.caller), [StringEntry(I, J)])
69
+
func A (p) = valueOrElse(parseInt(r(o(p), "owner")), 0)
70
+
71
+
72
+
func B (C) = if ((C == this))
73
+
    then unit
74
+
    else throw("Only internal call")
75
+
76
+
77
+
func D (C,l) = if ((assetBalance(C, fromBase58String(l)) == 1))
78
+
    then unit
79
+
    else throw("Only asset owner")
80
+
81
+
82
+
func E (F,G) = if ((F[0].amount >= G))
83
+
    then unit
84
+
    else throw("amount less then need")
85
+
86
+
87
+
func H (l) = if (valueOrElse(getBoolean(l), false))
88
+
    then throw("this token already use")
89
+
    else unit
90
+
91
+
92
+
func I (C,p) = if ((r(o(p), "owner") != toString(C)))
93
+
    then throw("you haven't perms")
94
+
    else unit
95
+
96
+
97
+
@Callable(J)
98
+
func setString (K,L) = valueOrElse(B(J.caller), [StringEntry(K, L)])
91
99
 
92
100
 
93
101
 
94
-
@Callable(H)
95
-
func setInt (I,J) = valueOrElse(m(H.caller), [IntegerEntry(I, J)])
102
+
@Callable(J)
103
+
func setInt (K,L) = valueOrElse(B(J.caller), [IntegerEntry(K, L)])
96
104
 
97
105
 
98
106
 
99
-
@Callable(H)
100
-
func deleteEntry (I) = valueOrElse(m(H.caller), [DeleteEntry(I)])
107
+
@Callable(J)
108
+
func deleteEntry (K) = valueOrElse(B(J.caller), [DeleteEntry(K)])
101
109
 
102
110
 
103
111
 
104
-
@Callable(H)
105
-
func init (K,L,M,N) = valueOrElse(m(H.caller), [StringEntry("collectionName", K), StringEntry("symbol", L), StringEntry("description", M), IntegerEntry("totalAmount", 0), StringEntry("baseURI", N)])
112
+
@Callable(J)
113
+
func init (M,N,O,P) = valueOrElse(B(J.caller), [StringEntry("collectionName", M), StringEntry("symbol", N), StringEntry("description", O), IntegerEntry("totalAmount", 0), StringEntry("baseURI", P)])
106
114
 
107
115
 
108
116
 
109
-
@Callable(H)
110
-
func setUser (l,O,P) = {
111
-
    let Q = invoke(f, "makeJSON", [["user", "expires"], [O, P]], nil)
112
-
    if ((Q == Q))
117
+
@Callable(J)
118
+
func setUser (l,Q,R) = {
119
+
    let S = invoke(f, "makeJSON", [["user", "expires"], [Q, R]], nil)
120
+
    if ((S == S))
113
121
 
        then $Tuple2([StringEntry(("userOf-" + l), {
114
-
            let C = Q
115
-
            if ($isInstanceOf(C, "String"))
116
-
                then C
117
-
                else throw(($getType(C) + " couldn't be cast to String"))
118
-
            })], Q)
122
+
            let v = S
123
+
            if ($isInstanceOf(v, "String"))
124
+
                then v
125
+
                else throw(($getType(v) + " couldn't be cast to String"))
126
+
            })], S)
119
127
 
        else throw("Strict value is not equal to itself.")
120
128
 
    }
121
129
 
122
130
 
123
131
 
124
-
@Callable(H)
125
-
func setTokenPayment (R) = valueOrElse(m(H.caller), [BinaryEntry("tokenPayment", R)])
132
+
@Callable(J)
133
+
func setTokenPayment (T) = valueOrElse(B(J.caller), [BinaryEntry("tokenPayment", T)])
126
134
 
127
135
 
128
136
 
129
-
@Callable(H)
130
-
func mint (p) = {
131
-
    let S = (d + 1)
132
-
    let T = toString(S)
133
-
    let U = ((b + "#") + T)
134
-
    let V = if ((16 >= size(U)))
135
-
        then U
136
-
        else T
137
-
    let W = (e + T)
138
-
    let X = {
139
-
        let C = invoke(f, "makeJSON", [["tokenURI"], [W]], nil)
140
-
        if ($isInstanceOf(C, "String"))
141
-
            then C
142
-
            else throw(($getType(C) + " couldn't be cast to String"))
137
+
@Callable(J)
138
+
func mint (n) = {
139
+
    let U = (d + 1)
140
+
    let V = toString(U)
141
+
    let W = ((b + "#") + V)
142
+
    let X = if ((16 >= size(W)))
143
+
        then W
144
+
        else V
145
+
    let Y = (e + V)
146
+
    let Z = {
147
+
        let v = invoke(f, "makeJSON", [["tokenURI"], [Y]], nil)
148
+
        if ($isInstanceOf(v, "String"))
149
+
            then v
150
+
            else throw(($getType(v) + " couldn't be cast to String"))
143
151
 
        }
144
-
    let Y = Issue(V, X, 1, 0, false, unit, height)
145
-
    let l = calculateAssetId(Y)
146
-
    let Z = Address(fromBase58String(p))
147
-
    let aa = o(Z, l)
148
-
    if ((aa == aa))
149
-
        then [Y, aa, IntegerEntry("totalAmount", S), StringEntry(V, W)]
152
+
    let aa = Issue(X, Z, 1, 0, false, unit, height)
153
+
    let l = calculateAssetId(aa)
154
+
    let ab = Address(fromBase58String(n))
155
+
    let ac = m(ab, l)
156
+
    if ((ac == ac))
157
+
        then [aa, ac, IntegerEntry("totalAmount", U), StringEntry(X, Y)]
150
158
 
        else throw("Strict value is not equal to itself.")
151
159
 
    }
152
160
 
153
161
 
154
162
 
155
-
@Callable(H)
156
-
func initLend (l,B,G,ab) = valueOrElse(q(H.caller, l), valueOrElse(u(l), {
157
-
    let Y = k(l)
158
-
    let W = {
159
-
        let C = invoke(f, "readByJSONKey", [Y.description, "tokenURI"], nil)
160
-
        if ($isInstanceOf(C, "String"))
161
-
            then C
162
-
            else throw(($getType(C) + " couldn't be cast to String"))
163
+
@Callable(J)
164
+
func initLend (l,u,z,ad) = valueOrElse(D(J.caller, l), valueOrElse(H(l), {
165
+
    let aa = k(l)
166
+
    let Y = {
167
+
        let v = invoke(f, "readByJSONKey", [aa.description, "tokenURI"], nil)
168
+
        if ($isInstanceOf(v, "String"))
169
+
            then v
170
+
            else throw(($getType(v) + " couldn't be cast to String"))
163
171
 
        }
164
-
    if ((W == W))
172
+
    if ((Y == Y))
165
173
 
        then {
166
-
            let z = {
167
-
                let C = invoke(f, "makeJSON", [["supportedInterface", "assetdId", "tokenURI", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed"], ["0", l, W, toString(H.caller), toString(B), toString(G), toString(ab), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (B * ab))), "0", "0"]], nil)
168
-
                if ($isInstanceOf(C, "String"))
169
-
                    then C
170
-
                    else throw(($getType(C) + " couldn't be cast to String"))
174
+
            let s = {
175
+
                let v = invoke(f, "makeJSON", [["supportedInterface", "assetdId", "tokenURI", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed"], ["0", l, Y, toString(J.caller), toString(u), toString(z), toString(ad), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (u * ad))), "0", "0"]], nil)
176
+
                if ($isInstanceOf(v, "String"))
177
+
                    then v
178
+
                    else throw(($getType(v) + " couldn't be cast to String"))
171
179
 
                }
172
-
            if ((z == z))
180
+
            if ((s == s))
173
181
 
                then {
174
-
                    let x = toString(i)
175
-
[IntegerEntry("lendCount", (i + 1)), IntegerEntry("lendCurrentCount", (j + 1)), IntegerEntry(("lend-rentCount-" + x), 0), StringEntry(("lend-" + x), z), BooleanEntry(l, true)]
182
+
                    let q = toString(i)
183
+
[IntegerEntry("lendCount", (i + 1)), IntegerEntry("lendCurrentCount", (j + 1)), IntegerEntry(("lend-rentCount-" + q), 0), StringEntry(("lend-" + q), s), BooleanEntry(l, true)]
176
184
 
                    }
177
185
 
                else throw("Strict value is not equal to itself.")
178
186
 
            }
181
189
 
182
190
 
183
191
 
184
-
@Callable(H)
185
-
func initRent (w,ab) = valueOrElse(r(H.payments, E(w, ab)), {
186
-
    let x = toString(w)
187
-
    let z = getStringValue(("lend-" + x))
188
-
    let ac = D(w)
189
-
    let ad = toString(ac)
190
-
    let B = {
191
-
        let C = invoke(f, "readByJSONKey", [z, "timeUnitSeconds"], nil)
192
-
        if ($isInstanceOf(C, "String"))
193
-
            then C
194
-
            else throw(($getType(C) + " couldn't be cast to String"))
192
+
@Callable(J)
193
+
func initRent (p,ad) = valueOrElse(E(J.payments, x(p, ad)), {
194
+
    let q = toString(p)
195
+
    let s = getStringValue(("lend-" + q))
196
+
    let ae = w(p)
197
+
    let af = toString(ae)
198
+
    let u = {
199
+
        let v = invoke(f, "readByJSONKey", [s, "timeUnitSeconds"], nil)
200
+
        if ($isInstanceOf(v, "String"))
201
+
            then v
202
+
            else throw(($getType(v) + " couldn't be cast to String"))
195
203
 
        }
196
-
    if ((B == B))
204
+
    if ((u == u))
197
205
 
        then {
198
-
            let ae = parseIntValue(B)
199
-
            if ((ae == ae))
206
+
            let ag = parseIntValue(u)
207
+
            if ((ag == ag))
200
208
 
                then {
201
-
                    let af = {
202
-
                        let C = invoke(f, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(H.caller), toString(ab), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (ae * ab))), "0"]], nil)
203
-
                        if ($isInstanceOf(C, "String"))
204
-
                            then C
205
-
                            else throw(($getType(C) + " couldn't be cast to String"))
209
+
                    let ah = {
210
+
                        let v = invoke(f, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(J.caller), toString(ad), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (ag * ad))), "0"]], nil)
211
+
                        if ($isInstanceOf(v, "String"))
212
+
                            then v
213
+
                            else throw(($getType(v) + " couldn't be cast to String"))
206
214
 
                        }
207
-
                    if ((af == af))
208
-
                        then [IntegerEntry(("lend-rentCount-" + x), (ac + 1)), StringEntry(((("lend-rent-" + x) + "-") + ad), af)]
215
+
                    if ((ah == ah))
216
+
                        then [IntegerEntry(("lend-rentCount-" + q), (ae + 1)), StringEntry(((("lend-rent-" + q) + "-") + af), ah), IntegerEntry(("lend-cost-" + q), (x(p, ad) + A(p)))]
209
217
 
                        else throw("Strict value is not equal to itself.")
210
218
 
                    }
211
219
 
                else throw("Strict value is not equal to itself.")
214
222
 
    })
215
223
 
216
224
 
225
+
226
+
@Callable(J)
227
+
func closeLend (p) = valueOrElse(I(J.caller, p), {
228
+
    let q = toString(p)
229
+
[DeleteEntry(("lend-" + q)), DeleteEntry(("lend-rentCount" + q)), IntegerEntry("lendCurrentCount", (j - 1)), ScriptTransfer(J.caller, A(p), g)]
230
+
    })
231
+
232
+
233
+
234
+
@Callable(J)
235
+
func test (p) = [StringEntry("Debug", r(o(p), "owner"))]
236
+
237
+

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 = getStringValue("baseURI")
13
13
 
14
14
 
let f = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
15
15
 
16
16
 
let g = getBinaryValue("tokenPayment")
17
17
 
18
18
 
let h = valueOrErrorMessage(assetInfo(getBinaryValue("tokenPayment")), "token payment asset doesn't connect")
19
19
 
20
20
 
let i = getIntegerValue("lendCount")
21
21
 
22
22
 
let j = getIntegerValue("lendCurrentCount")
23
23
 
24
24
 
func k (l) = valueOrErrorMessage(assetInfo(fromBase58String(l)), "Can't find asset by asset id")
25
25
 
26
26
 
27
-
func m (n) = if ((n == this))
28
-
    then unit
29
-
    else throw("Only internal call")
27
+
func m (n,l) = if ((n == this))
28
+
    then StringEntry("smth", "smth")
29
+
    else ScriptTransfer(n, 1, l)
30
30
 
31
31
 
32
-
func o (p,l) = if ((p == this))
33
-
    then StringEntry("smth", "smth")
34
-
    else ScriptTransfer(p, 1, l)
35
-
36
-
37
-
func q (n,l) = if ((assetBalance(n, fromBase58String(l)) == 1))
38
-
    then unit
39
-
    else throw("Only asset owner")
40
-
41
-
42
-
func r (s,t) = if ((s[0].amount >= t))
43
-
    then unit
44
-
    else throw("amount less then need")
45
-
46
-
47
-
func u (l) = if (valueOrElse(getBoolean(l), false))
48
-
    then throw("this token already use")
49
-
    else unit
50
-
51
-
52
-
func v (w) = {
53
-
    let x = toString(w)
54
-
    getStringValue(("lend-" + x))
32
+
func o (p) = {
33
+
    let q = toString(p)
34
+
    getStringValue(("lend-" + q))
55
35
 
    }
56
36
 
57
37
 
58
-
func y (z,A) = {
59
-
    let B = {
60
-
        let C = invoke(f, "readByJSONKey", [z, A], nil)
61
-
        if ($isInstanceOf(C, "String"))
62
-
            then C
63
-
            else throw(($getType(C) + " couldn't be cast to String"))
38
+
func r (s,t) = {
39
+
    let u = {
40
+
        let v = invoke(f, "readByJSONKey", [s, t], nil)
41
+
        if ($isInstanceOf(v, "String"))
42
+
            then v
43
+
            else throw(($getType(v) + " couldn't be cast to String"))
64
44
 
        }
65
-
    if ((B == B))
66
-
        then B
45
+
    if ((u == u))
46
+
        then u
67
47
 
        else throw("Strict value is not equal to itself.")
68
48
 
    }
69
49
 
70
50
 
71
-
func D (w) = {
72
-
    let x = toString(w)
73
-
    getIntegerValue(("lend-rentCount-" + x))
51
+
func w (p) = {
52
+
    let q = toString(p)
53
+
    getIntegerValue(("lend-rentCount-" + q))
74
54
 
    }
75
55
 
76
56
 
77
-
func E (w,B) = {
78
-
    let z = v(w)
79
-
    let F = y(z, "timeUnitPrice")
80
-
    if ((F == F))
57
+
func x (p,u) = {
58
+
    let s = o(p)
59
+
    let y = r(s, "timeUnitPrice")
60
+
    if ((y == y))
81
61
 
        then {
82
-
            let G = parseIntValue(F)
83
-
            (B * G)
62
+
            let z = parseIntValue(y)
63
+
            (u * z)
84
64
 
            }
85
65
 
        else throw("Strict value is not equal to itself.")
86
66
 
    }
87
67
 
88
68
 
89
-
@Callable(H)
90
-
func setString (I,J) = valueOrElse(m(H.caller), [StringEntry(I, J)])
69
+
func A (p) = valueOrElse(parseInt(r(o(p), "owner")), 0)
70
+
71
+
72
+
func B (C) = if ((C == this))
73
+
    then unit
74
+
    else throw("Only internal call")
75
+
76
+
77
+
func D (C,l) = if ((assetBalance(C, fromBase58String(l)) == 1))
78
+
    then unit
79
+
    else throw("Only asset owner")
80
+
81
+
82
+
func E (F,G) = if ((F[0].amount >= G))
83
+
    then unit
84
+
    else throw("amount less then need")
85
+
86
+
87
+
func H (l) = if (valueOrElse(getBoolean(l), false))
88
+
    then throw("this token already use")
89
+
    else unit
90
+
91
+
92
+
func I (C,p) = if ((r(o(p), "owner") != toString(C)))
93
+
    then throw("you haven't perms")
94
+
    else unit
95
+
96
+
97
+
@Callable(J)
98
+
func setString (K,L) = valueOrElse(B(J.caller), [StringEntry(K, L)])
91
99
 
92
100
 
93
101
 
94
-
@Callable(H)
95
-
func setInt (I,J) = valueOrElse(m(H.caller), [IntegerEntry(I, J)])
102
+
@Callable(J)
103
+
func setInt (K,L) = valueOrElse(B(J.caller), [IntegerEntry(K, L)])
96
104
 
97
105
 
98
106
 
99
-
@Callable(H)
100
-
func deleteEntry (I) = valueOrElse(m(H.caller), [DeleteEntry(I)])
107
+
@Callable(J)
108
+
func deleteEntry (K) = valueOrElse(B(J.caller), [DeleteEntry(K)])
101
109
 
102
110
 
103
111
 
104
-
@Callable(H)
105
-
func init (K,L,M,N) = valueOrElse(m(H.caller), [StringEntry("collectionName", K), StringEntry("symbol", L), StringEntry("description", M), IntegerEntry("totalAmount", 0), StringEntry("baseURI", N)])
112
+
@Callable(J)
113
+
func init (M,N,O,P) = valueOrElse(B(J.caller), [StringEntry("collectionName", M), StringEntry("symbol", N), StringEntry("description", O), IntegerEntry("totalAmount", 0), StringEntry("baseURI", P)])
106
114
 
107
115
 
108
116
 
109
-
@Callable(H)
110
-
func setUser (l,O,P) = {
111
-
    let Q = invoke(f, "makeJSON", [["user", "expires"], [O, P]], nil)
112
-
    if ((Q == Q))
117
+
@Callable(J)
118
+
func setUser (l,Q,R) = {
119
+
    let S = invoke(f, "makeJSON", [["user", "expires"], [Q, R]], nil)
120
+
    if ((S == S))
113
121
 
        then $Tuple2([StringEntry(("userOf-" + l), {
114
-
            let C = Q
115
-
            if ($isInstanceOf(C, "String"))
116
-
                then C
117
-
                else throw(($getType(C) + " couldn't be cast to String"))
118
-
            })], Q)
122
+
            let v = S
123
+
            if ($isInstanceOf(v, "String"))
124
+
                then v
125
+
                else throw(($getType(v) + " couldn't be cast to String"))
126
+
            })], S)
119
127
 
        else throw("Strict value is not equal to itself.")
120
128
 
    }
121
129
 
122
130
 
123
131
 
124
-
@Callable(H)
125
-
func setTokenPayment (R) = valueOrElse(m(H.caller), [BinaryEntry("tokenPayment", R)])
132
+
@Callable(J)
133
+
func setTokenPayment (T) = valueOrElse(B(J.caller), [BinaryEntry("tokenPayment", T)])
126
134
 
127
135
 
128
136
 
129
-
@Callable(H)
130
-
func mint (p) = {
131
-
    let S = (d + 1)
132
-
    let T = toString(S)
133
-
    let U = ((b + "#") + T)
134
-
    let V = if ((16 >= size(U)))
135
-
        then U
136
-
        else T
137
-
    let W = (e + T)
138
-
    let X = {
139
-
        let C = invoke(f, "makeJSON", [["tokenURI"], [W]], nil)
140
-
        if ($isInstanceOf(C, "String"))
141
-
            then C
142
-
            else throw(($getType(C) + " couldn't be cast to String"))
137
+
@Callable(J)
138
+
func mint (n) = {
139
+
    let U = (d + 1)
140
+
    let V = toString(U)
141
+
    let W = ((b + "#") + V)
142
+
    let X = if ((16 >= size(W)))
143
+
        then W
144
+
        else V
145
+
    let Y = (e + V)
146
+
    let Z = {
147
+
        let v = invoke(f, "makeJSON", [["tokenURI"], [Y]], nil)
148
+
        if ($isInstanceOf(v, "String"))
149
+
            then v
150
+
            else throw(($getType(v) + " couldn't be cast to String"))
143
151
 
        }
144
-
    let Y = Issue(V, X, 1, 0, false, unit, height)
145
-
    let l = calculateAssetId(Y)
146
-
    let Z = Address(fromBase58String(p))
147
-
    let aa = o(Z, l)
148
-
    if ((aa == aa))
149
-
        then [Y, aa, IntegerEntry("totalAmount", S), StringEntry(V, W)]
152
+
    let aa = Issue(X, Z, 1, 0, false, unit, height)
153
+
    let l = calculateAssetId(aa)
154
+
    let ab = Address(fromBase58String(n))
155
+
    let ac = m(ab, l)
156
+
    if ((ac == ac))
157
+
        then [aa, ac, IntegerEntry("totalAmount", U), StringEntry(X, Y)]
150
158
 
        else throw("Strict value is not equal to itself.")
151
159
 
    }
152
160
 
153
161
 
154
162
 
155
-
@Callable(H)
156
-
func initLend (l,B,G,ab) = valueOrElse(q(H.caller, l), valueOrElse(u(l), {
157
-
    let Y = k(l)
158
-
    let W = {
159
-
        let C = invoke(f, "readByJSONKey", [Y.description, "tokenURI"], nil)
160
-
        if ($isInstanceOf(C, "String"))
161
-
            then C
162
-
            else throw(($getType(C) + " couldn't be cast to String"))
163
+
@Callable(J)
164
+
func initLend (l,u,z,ad) = valueOrElse(D(J.caller, l), valueOrElse(H(l), {
165
+
    let aa = k(l)
166
+
    let Y = {
167
+
        let v = invoke(f, "readByJSONKey", [aa.description, "tokenURI"], nil)
168
+
        if ($isInstanceOf(v, "String"))
169
+
            then v
170
+
            else throw(($getType(v) + " couldn't be cast to String"))
163
171
 
        }
164
-
    if ((W == W))
172
+
    if ((Y == Y))
165
173
 
        then {
166
-
            let z = {
167
-
                let C = invoke(f, "makeJSON", [["supportedInterface", "assetdId", "tokenURI", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed"], ["0", l, W, toString(H.caller), toString(B), toString(G), toString(ab), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (B * ab))), "0", "0"]], nil)
168
-
                if ($isInstanceOf(C, "String"))
169
-
                    then C
170
-
                    else throw(($getType(C) + " couldn't be cast to String"))
174
+
            let s = {
175
+
                let v = invoke(f, "makeJSON", [["supportedInterface", "assetdId", "tokenURI", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed"], ["0", l, Y, toString(J.caller), toString(u), toString(z), toString(ad), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (u * ad))), "0", "0"]], nil)
176
+
                if ($isInstanceOf(v, "String"))
177
+
                    then v
178
+
                    else throw(($getType(v) + " couldn't be cast to String"))
171
179
 
                }
172
-
            if ((z == z))
180
+
            if ((s == s))
173
181
 
                then {
174
-
                    let x = toString(i)
175
-
[IntegerEntry("lendCount", (i + 1)), IntegerEntry("lendCurrentCount", (j + 1)), IntegerEntry(("lend-rentCount-" + x), 0), StringEntry(("lend-" + x), z), BooleanEntry(l, true)]
182
+
                    let q = toString(i)
183
+
[IntegerEntry("lendCount", (i + 1)), IntegerEntry("lendCurrentCount", (j + 1)), IntegerEntry(("lend-rentCount-" + q), 0), StringEntry(("lend-" + q), s), BooleanEntry(l, true)]
176
184
 
                    }
177
185
 
                else throw("Strict value is not equal to itself.")
178
186
 
            }
179
187
 
        else throw("Strict value is not equal to itself.")
180
188
 
    }))
181
189
 
182
190
 
183
191
 
184
-
@Callable(H)
185
-
func initRent (w,ab) = valueOrElse(r(H.payments, E(w, ab)), {
186
-
    let x = toString(w)
187
-
    let z = getStringValue(("lend-" + x))
188
-
    let ac = D(w)
189
-
    let ad = toString(ac)
190
-
    let B = {
191
-
        let C = invoke(f, "readByJSONKey", [z, "timeUnitSeconds"], nil)
192
-
        if ($isInstanceOf(C, "String"))
193
-
            then C
194
-
            else throw(($getType(C) + " couldn't be cast to String"))
192
+
@Callable(J)
193
+
func initRent (p,ad) = valueOrElse(E(J.payments, x(p, ad)), {
194
+
    let q = toString(p)
195
+
    let s = getStringValue(("lend-" + q))
196
+
    let ae = w(p)
197
+
    let af = toString(ae)
198
+
    let u = {
199
+
        let v = invoke(f, "readByJSONKey", [s, "timeUnitSeconds"], nil)
200
+
        if ($isInstanceOf(v, "String"))
201
+
            then v
202
+
            else throw(($getType(v) + " couldn't be cast to String"))
195
203
 
        }
196
-
    if ((B == B))
204
+
    if ((u == u))
197
205
 
        then {
198
-
            let ae = parseIntValue(B)
199
-
            if ((ae == ae))
206
+
            let ag = parseIntValue(u)
207
+
            if ((ag == ag))
200
208
 
                then {
201
-
                    let af = {
202
-
                        let C = invoke(f, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(H.caller), toString(ab), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (ae * ab))), "0"]], nil)
203
-
                        if ($isInstanceOf(C, "String"))
204
-
                            then C
205
-
                            else throw(($getType(C) + " couldn't be cast to String"))
209
+
                    let ah = {
210
+
                        let v = invoke(f, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(J.caller), toString(ad), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (ag * ad))), "0"]], nil)
211
+
                        if ($isInstanceOf(v, "String"))
212
+
                            then v
213
+
                            else throw(($getType(v) + " couldn't be cast to String"))
206
214
 
                        }
207
-
                    if ((af == af))
208
-
                        then [IntegerEntry(("lend-rentCount-" + x), (ac + 1)), StringEntry(((("lend-rent-" + x) + "-") + ad), af)]
215
+
                    if ((ah == ah))
216
+
                        then [IntegerEntry(("lend-rentCount-" + q), (ae + 1)), StringEntry(((("lend-rent-" + q) + "-") + af), ah), IntegerEntry(("lend-cost-" + q), (x(p, ad) + A(p)))]
209
217
 
                        else throw("Strict value is not equal to itself.")
210
218
 
                    }
211
219
 
                else throw("Strict value is not equal to itself.")
212
220
 
            }
213
221
 
        else throw("Strict value is not equal to itself.")
214
222
 
    })
215
223
 
216
224
 
225
+
226
+
@Callable(J)
227
+
func closeLend (p) = valueOrElse(I(J.caller, p), {
228
+
    let q = toString(p)
229
+
[DeleteEntry(("lend-" + q)), DeleteEntry(("lend-rentCount" + q)), IntegerEntry("lendCurrentCount", (j - 1)), ScriptTransfer(J.caller, A(p), g)]
230
+
    })
231
+
232
+
233
+
234
+
@Callable(J)
235
+
func test (p) = [StringEntry("Debug", r(o(p), "owner"))]
236
+
237
+

github/deemru/w8io/169f3d6 
72.61 ms ◑