w8 · tx · Hoj···jpN

tx · Hoj3MygE6WA8z5r5zCeE5Agm1KMYykuCbKaT8kGP3jpN

3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn:  -0.00700000 Waves

2023.03.21 22:04 [2500173] smart account 3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "Hoj3MygE6WA8z5r5zCeE5Agm1KMYykuCbKaT8kGP3jpN",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1679425486754,
    "version": 2,
    "chainId": 84,
    "sender": "3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn",
    "senderPublicKey": "CZeucjRLCKrkiP9zuj9KbLe23Wv9DywFzHBqNDnte51B",
    "proofs": [
        "3NLy3gBAS5ZqX4svPNfFQcayyDtzoY7ZBzDCbPCkMG2AiBh5rxrdzFE1sdxrsb1SqcHsQB9usGBDGE44HzoHoMVp"
    ],
    "script": "base64:BgJECAISBAoCCAgSBAoCCAESAwoBCBIGCgQICAgIEgUKAwgICBIDCgECEgMKAQgSBgoECAEBARIECgIBARIDCgEBEgMKAQEWAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAHYmFzZVVSSQkBEUBleHRyTmF0aXZlKDEwNTgpAQIHYmFzZVVSSQAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAMdG9rZW5QYXltZW50CQERQGV4dHJOYXRpdmUoMTA1NykBAgx0b2tlblBheW1lbnQAEXRva2VuUGF5bWVudEFzc2V0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkBEUBleHRyTmF0aXZlKDEwNTcpAQIMdG9rZW5QYXltZW50AiN0b2tlbiBwYXltZW50IGFzc2V0IGRvZXNuJ3QgY29ubmVjdAAJbGVuZENvdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAglsZW5kQ291bnQAEGxlbmRDdXJyZW50Q291bnQJARFAZXh0ck5hdGl2ZSgxMDU1KQECEGxlbmRDdXJyZW50Q291bnQBDnBhcnNlSWR0b0Fzc2V0AQdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQdhc3NldElkAhxDYW4ndCBmaW5kIGFzc2V0IGJ5IGFzc2V0IGlkAQ10cmFuc2Zlck9yTm90AgJ0bwdhc3NldElkAwkAAAIFAnRvBQR0aGlzCQELU3RyaW5nRW50cnkCAgRzbXRoAgRzbXRoCQEOU2NyaXB0VHJhbnNmZXIDBQJ0bwABBQdhc3NldElkAQtnZXRMZW5kSnNvbgEGbGVuZElkBAxsZW5kSWRTdHJpbmcJAKQDAQUGbGVuZElkCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgICBWxlbmQtBQxsZW5kSWRTdHJpbmcBBmdldEtleQIIbGVuZEpzb24Da2V5BA90aW1lVW5pdFNlY29uZHMKAAFACQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIFCGxlbmRKc29uCQDMCAIFA2tleQUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFD3RpbWVVbml0U2Vjb25kcwUPdGltZVVuaXRTZWNvbmRzBQ90aW1lVW5pdFNlY29uZHMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BDGdldFJlbnRDb3VudAEGbGVuZElkBAxsZW5kSWRTdHJpbmcJAKQDAQUGbGVuZElkCQERQGV4dHJOYXRpdmUoMTA1NSkBCQCsAgICD2xlbmQtcmVudENvdW50LQUMbGVuZElkU3RyaW5nAQxjYWxjTGVuZENvc3QCBmxlbmRJZA90aW1lVW5pdFNlY29uZHMECGxlbmRKc29uCQELZ2V0TGVuZEpzb24BBQZsZW5kSWQEE3RpbWVVbml0UHJpY2VTdHJpbmcJAQZnZXRLZXkCBQhsZW5kSnNvbgINdGltZVVuaXRQcmljZQMJAAACBRN0aW1lVW5pdFByaWNlU3RyaW5nBRN0aW1lVW5pdFByaWNlU3RyaW5nBA10aW1lVW5pdFByaWNlCQENcGFyc2VJbnRWYWx1ZQEFE3RpbWVVbml0UHJpY2VTdHJpbmcJAGgCBQ90aW1lVW5pdFNlY29uZHMFDXRpbWVVbml0UHJpY2UJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BC2dldExlbmRDb3N0AQZsZW5kSWQJAQt2YWx1ZU9yRWxzZQIJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAKwCAgIKbGVuZC1jb3N0LQkApAMBBQZsZW5kSWQAAAEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQ9jaGVja0Fzc2V0T3duZXICBmNhbGxlcgdhc3NldElkAwkAAAIJAPAHAgUGY2FsbGVyCQDZBAEFB2Fzc2V0SWQAAQUEdW5pdAkAAgECEE9ubHkgYXNzZXQgb3duZXIBDGNoZWNrUGF5bWVudAIIcGF5bWVudHMGYW1vdW50AwkAZwIICQCRAwIFCHBheW1lbnRzAAAGYW1vdW50BQZhbW91bnQFBHVuaXQJAAIBAhVhbW91bnQgbGVzcyB0aGVuIG5lZWQBEGNoZWNrQXNzZXRFeGlzdHMBB2Fzc2V0SWQDCQELdmFsdWVPckVsc2UCCQCgCAEFB2Fzc2V0SWQHCQACAQIWdGhpcyB0b2tlbiBhbHJlYWR5IHVzZQUEdW5pdAEOY2hlY2tMZW5kT3duZXICBmNhbGxlcgZsZW5kSWQDCQECIT0CCQEGZ2V0S2V5AgkBC2dldExlbmRKc29uAQUGbGVuZElkAgVvd25lcgkApQgBBQZjYWxsZXIJAAIBAhF5b3UgaGF2ZW4ndCBwZXJtcwUEdW5pdAsBaQEJc2V0U3RyaW5nAgRfa2V5Bl92YWx1ZQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCBQRfa2V5BQZfdmFsdWUFA25pbAFpAQZzZXRJbnQCBF9rZXkGX3ZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQRfa2V5BQZfdmFsdWUFA25pbAFpAQtkZWxldGVFbnRyeQEEX2tleQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELRGVsZXRlRW50cnkBBQRfa2V5BQNuaWwBaQEEaW5pdAQPX2NvbGxlY3Rpb25OYW1lB19zeW1ib2wMX2Rlc2NyaXB0aW9uCF9iYXNlVVJJCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQICDmNvbGxlY3Rpb25OYW1lBQ9fY29sbGVjdGlvbk5hbWUJAMwIAgkBC1N0cmluZ0VudHJ5AgIGc3ltYm9sBQdfc3ltYm9sCQDMCAIJAQtTdHJpbmdFbnRyeQICC2Rlc2NyaXB0aW9uBQxfZGVzY3JpcHRpb24JAMwIAgkBDEludGVnZXJFbnRyeQICC3RvdGFsQW1vdW50AAAJAMwIAgkBC1N0cmluZ0VudHJ5AgIHYmFzZVVSSQUIX2Jhc2VVUkkFA25pbAFpAQdzZXRVc2VyAwdhc3NldElkBHVzZXIHZXhwaXJlcwQDcmVzCQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICBHVzZXIJAMwIAgIHZXhwaXJlcwUDbmlsCQDMCAIJAMwIAgUEdXNlcgkAzAgCBQdleHBpcmVzBQNuaWwFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICAgd1c2VyT2YtBQdhc3NldElkCgABQAUDcmVzAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEPc2V0VG9rZW5QYXltZW50AQthc3NldEJpbmFyeQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELQmluYXJ5RW50cnkCAgx0b2tlblBheW1lbnQFC2Fzc2V0QmluYXJ5BQNuaWwBaQEEbWludAECdG8EB3Rva2VuSWQJAGQCBQt0b3RhbEFtb3VudAABBA10b2tlbklkU3RyaW5nCQCkAwEFB3Rva2VuSWQEB3ByZU5hbWUJAKwCAgkArAICBQZzeW1ib2wCASMFDXRva2VuSWRTdHJpbmcEBG5hbWUDCQBnAgAQCQCxAgEFB3ByZU5hbWUFB3ByZU5hbWUFDXRva2VuSWRTdHJpbmcECHRva2VuVVJJCQCsAgIFB2Jhc2VVUkkFDXRva2VuSWRTdHJpbmcEBGpzb24KAAFACQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICCHRva2VuVVJJBQNuaWwJAMwIAgkAzAgCBQh0b2tlblVSSQUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcEBWFzc2V0CQDDCAcFBG5hbWUFBGpzb24AAQAABwUEdW5pdAUGaGVpZ2h0BAdhc3NldElkCQC4CAEFBWFzc2V0BAl0b0FkZHJlc3MJAQdBZGRyZXNzAQkA2QQBBQJ0bwQIdHJhbnNmZXIJAQ10cmFuc2Zlck9yTm90AgUJdG9BZGRyZXNzBQdhc3NldElkAwkAAAIFCHRyYW5zZmVyBQh0cmFuc2ZlcgkAzAgCBQVhc3NldAkAzAgCBQh0cmFuc2ZlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQFB3Rva2VuSWQJAMwIAgkBC1N0cmluZ0VudHJ5AgUEbmFtZQUIdG9rZW5VUkkFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhpbml0TGVuZAQHYXNzZXRJZA90aW1lVW5pdFNlY29uZHMNdGltZVVuaXRQcmljZQ10aW1lVW5pdENvdW50CQELdmFsdWVPckVsc2UCCQEPY2hlY2tBc3NldE93bmVyAggFAWkGY2FsbGVyBQdhc3NldElkCQELdmFsdWVPckVsc2UCCQEQY2hlY2tBc3NldEV4aXN0cwEFB2Fzc2V0SWQEBWFzc2V0CQEOcGFyc2VJZHRvQXNzZXQBBQdhc3NldElkBAh0b2tlblVSSQoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAggFBWFzc2V0C2Rlc2NyaXB0aW9uCQDMCAICCHRva2VuVVJJBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUIdG9rZW5VUkkFCHRva2VuVVJJBAhsZW5kSnNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgISc3VwcG9ydGVkSW50ZXJmYWNlCQDMCAICCGFzc2V0ZElkCQDMCAICCHRva2VuVVJJCQDMCAICBW93bmVyCQDMCAICD3RpbWVVbml0U2Vjb25kcwkAzAgCAg10aW1lVW5pdFByaWNlCQDMCAICDXRpbWVVbml0Q291bnQJAMwIAgIOc3RhcnRUaW1lc3RhbXAJAMwIAgIMZW5kVGltZXN0YW1wCQDMCAICB2RlcG9zaXQJAMwIAgIHY2xhaW1lZAUDbmlsCQDMCAIJAMwIAgIBMAkAzAgCBQdhc3NldElkCQDMCAIFCHRva2VuVVJJCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAKQDAQUPdGltZVVuaXRTZWNvbmRzCQDMCAIJAKQDAQUNdGltZVVuaXRQcmljZQkAzAgCCQCkAwEFDXRpbWVVbml0Q291bnQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAaAIFD3RpbWVVbml0U2Vjb25kcwUNdGltZVVuaXRDb3VudAkAzAgCAgEwCQDMCAICATAFA25pbAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCGxlbmRKc29uBQhsZW5kSnNvbgQMbGVuZElkU3RyaW5nCQCkAwEFCWxlbmRDb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgIJbGVuZENvdW50CQBkAgUJbGVuZENvdW50AAEJAMwIAgkBDEludGVnZXJFbnRyeQICEGxlbmRDdXJyZW50Q291bnQJAGQCBRBsZW5kQ3VycmVudENvdW50AAEJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcAAAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICBWxlbmQtBQxsZW5kSWRTdHJpbmcFCGxlbmRKc29uCQDMCAIJAQxCb29sZWFuRW50cnkCBQdhc3NldElkBgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGluaXRSZW50AgZsZW5kSWQNdGltZVVuaXRDb3VudAkBC3ZhbHVlT3JFbHNlAgkBDGNoZWNrUGF5bWVudAIIBQFpCHBheW1lbnRzCQEMY2FsY0xlbmRDb3N0AgUGbGVuZElkBQ10aW1lVW5pdENvdW50BAxsZW5kSWRTdHJpbmcJAKQDAQUGbGVuZElkBAhsZW5kSnNvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nBAZyZW50SWQJAQxnZXRSZW50Q291bnQBBQZsZW5kSWQEDHJlbnRJZFN0cmluZwkApAMBBQZyZW50SWQED3RpbWVVbml0U2Vjb25kcwoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAgUIbGVuZEpzb24JAMwIAgIPdGltZVVuaXRTZWNvbmRzBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUPdGltZVVuaXRTZWNvbmRzBQ90aW1lVW5pdFNlY29uZHMEEnRpbWVVbml0U2Vjb25kc0ludAkBDXBhcnNlSW50VmFsdWUBBQ90aW1lVW5pdFNlY29uZHMDCQAAAgUSdGltZVVuaXRTZWNvbmRzSW50BRJ0aW1lVW5pdFNlY29uZHNJbnQECHJlbnRKc29uCgABQAkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAghjdXN0b21lcgkAzAgCAg10aW1lVW5pdENvdW50CQDMCAICDnN0YXJ0VGltZXN0YW1wCQDMCAICDGVuZFRpbWVzdGFtcAkAzAgCAgZjbG9zZWQFA25pbAkAzAgCCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAKQDAQUNdGltZVVuaXRDb3VudAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUSdGltZVVuaXRTZWNvbmRzSW50BQ10aW1lVW5pdENvdW50CQDMCAICATAFA25pbAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCHJlbnRKc29uBQhyZW50SnNvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAg9sZW5kLXJlbnRDb3VudC0FDGxlbmRJZFN0cmluZwkAZAIFBnJlbnRJZAABCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgICCmxlbmQtcmVudC0FDGxlbmRJZFN0cmluZwIBLQUMcmVudElkU3RyaW5nBQhyZW50SnNvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAgpsZW5kLWNvc3QtBQxsZW5kSWRTdHJpbmcJAGQCCQEMY2FsY0xlbmRDb3N0AgUGbGVuZElkBQ10aW1lVW5pdENvdW50CQELZ2V0TGVuZENvc3QBBQZsZW5kSWQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQljbG9zZUxlbmQBBmxlbmRJZAkBC3ZhbHVlT3JFbHNlAgkBDmNoZWNrTGVuZE93bmVyAggFAWkGY2FsbGVyBQZsZW5kSWQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nCQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcJAMwIAgkBDEludGVnZXJFbnRyeQICEGxlbmRDdXJyZW50Q291bnQJAGUCBRBsZW5kQ3VycmVudENvdW50AAEJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICAgpsZW5kLWNvc3QtBQxsZW5kSWRTdHJpbmcJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQELZ2V0TGVuZENvc3QBBQZsZW5kSWQFDHRva2VuUGF5bWVudAUDbmlsAWkBBHRlc3QBBmxlbmRJZAkAzAgCCQELU3RyaW5nRW50cnkCAgVEZWJ1ZwkBBmdldEtleQIJAQtnZXRMZW5kSnNvbgEFBmxlbmRJZAIFb3duZXIFA25pbAAULn1R",
    "height": 2500173,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9fZKAZMJLyTURLbyvdJWT3Br8rzswsYW7emxNiQ4YGwi
Next: JEFwwZT4fVoMmHv4gjiWJ4y4wSdtqpHXfjxGHyop9d5k

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

Old	New		Differences
66	66		}
67	67
68	68
69		-	func A (p) = valueOrElse(~~parseInt~~(r(o(p)~~, "owner"~~)), 0)
	69	+	func A (p) = valueOrElse(getIntegerValue(("lend-cost-" + toString(p))), 0)
70	70
71	71
72	72		func B (C) = if ((C == this))

226	226		@Callable(J)
227	227		func closeLend (p) = valueOrElse(I(J.caller, p), {
228	228		let q = toString(p)
229		-	[DeleteEntry(("lend-" + q)), DeleteEntry(("lend-rentCount" + q)), IntegerEntry("lendCurrentCount", (j - 1)), ScriptTransfer(J.caller, A(p), g)]
	229	+	[DeleteEntry(("lend-" + q)), DeleteEntry(("lend-rentCount-" + q)), IntegerEntry("lendCurrentCount", (j - 1)), DeleteEntry(("lend-cost-" + q)), ScriptTransfer(J.caller, A(p), g)]
230	230		})
231	231
232	232

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

github/deemru/w8io/026f985 
37.65 ms ◑