w8 · tx · A59···Y9k

tx · A59LuMSAHaHBUkiRjLWwkGtF13LsXNmb6PWvv5Jk6Y9k

3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn:  -0.01300000 Waves

2023.03.23 16:47 [2502728] smart account 3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "A59LuMSAHaHBUkiRjLWwkGtF13LsXNmb6PWvv5Jk6Y9k",
    "fee": 1300000,
    "feeAssetId": null,
    "timestamp": 1679579328637,
    "version": 2,
    "chainId": 84,
    "sender": "3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn",
    "senderPublicKey": "CZeucjRLCKrkiP9zuj9KbLe23Wv9DywFzHBqNDnte51B",
    "proofs": [
        "5rbzsRRknWBbJzEKDgTQRwMTmEcg2DqPJK7p4EhbMBmZZ8gHpj85KHNFb3vvotGQPLnCeTotYsEg4yaBgNDEHUmp"
    ],
    "script": "base64:BgJHCAISBAoCCAgSBAoCCAESAwoBCBIGCgQICAgIEgUKAwgICBIDCgECEgQKAggBEgMKAQgSBgoECAEBARIECgIBARIDCgEBEgAcAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAHYmFzZVVSSQkBEUBleHRyTmF0aXZlKDEwNTgpAQIHYmFzZVVSSQAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAMdG9rZW5QYXltZW50CQERQGV4dHJOYXRpdmUoMTA1NykBAgx0b2tlblBheW1lbnQAEXRva2VuUGF5bWVudEFzc2V0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkBEUBleHRyTmF0aXZlKDEwNTcpAQIMdG9rZW5QYXltZW50AiN0b2tlbiBwYXltZW50IGFzc2V0IGRvZXNuJ3QgY29ubmVjdAAJbGVuZENvdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAglsZW5kQ291bnQAEGxlbmRDdXJyZW50Q291bnQJARFAZXh0ck5hdGl2ZSgxMDU1KQECEGxlbmRDdXJyZW50Q291bnQAC2h1bmRyZWRMaXN0CQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAUDbmlsAQ5wYXJzZUlkdG9Bc3NldAEHYXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUHYXNzZXRJZAIcQ2FuJ3QgZmluZCBhc3NldCBieSBhc3NldCBpZAENdHJhbnNmZXJPck5vdAMCdG8GYW1vdW50B2Fzc2V0SWQDCQAAAgUCdG8FBHRoaXMJAQtTdHJpbmdFbnRyeQICBHNtdGgCBHNtdGgJAQ5TY3JpcHRUcmFuc2ZlcgMFAnRvBQZhbW91bnQFB2Fzc2V0SWQBC2dldExlbmRKc29uAQZsZW5kSWQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgIFbGVuZC0FDGxlbmRJZFN0cmluZwEGZ2V0S2V5AghsZW5kSnNvbgNrZXkED3RpbWVVbml0U2Vjb25kcwoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAgUIbGVuZEpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUPdGltZVVuaXRTZWNvbmRzBQ90aW1lVW5pdFNlY29uZHMFD3RpbWVVbml0U2Vjb25kcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgEMZ2V0UmVudENvdW50AQZsZW5kSWQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcBDGNhbGNMZW5kQ29zdAIGbGVuZElkD3RpbWVVbml0U2Vjb25kcwQIbGVuZEpzb24JAQtnZXRMZW5kSnNvbgEFBmxlbmRJZAQTdGltZVVuaXRQcmljZVN0cmluZwkBBmdldEtleQIFCGxlbmRKc29uAg10aW1lVW5pdFByaWNlAwkAAAIFE3RpbWVVbml0UHJpY2VTdHJpbmcFE3RpbWVVbml0UHJpY2VTdHJpbmcEDXRpbWVVbml0UHJpY2UJAQ1wYXJzZUludFZhbHVlAQUTdGltZVVuaXRQcmljZVN0cmluZwkAaAIFD3RpbWVVbml0U2Vjb25kcwUNdGltZVVuaXRQcmljZQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgELZ2V0TGVuZENvc3QBBmxlbmRJZAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQCsAgICCmxlbmQtY29zdC0JAKQDAQUGbGVuZElkAAABDG9ubHlJbnRlcm5hbAEGY2FsbGVyAwkAAAIFBmNhbGxlcgUEdGhpcwUEdW5pdAkAAgECEk9ubHkgaW50ZXJuYWwgY2FsbAEVcmVkdWNlckdldERlbGV0ZUVudHJ5AgVhY2N1bQRuZXh0BAskdDAyNTQyMjU5MgUFYWNjdW0ECWRlbGV0aW9ucwgFCyR0MDI1NDIyNTkyAl8xBAdjdXJyZW50CAULJHQwMjU0MjI1OTICXzIECG1heENvdW50CAULJHQwMjU0MjI1OTICXzMEBmxlbmRJZAgFCyR0MDI1NDIyNTkyAl80AwkAZgIFCG1heENvdW50BQdjdXJyZW50CQCWCgQJAM0IAgUJZGVsZXRpb25zCQELRGVsZXRlRW50cnkBCQCsAgIJAKwCAgkArAICAgpsZW5kLXJlbnQtBQZsZW5kSWQCAS0JAKQDAQUHY3VycmVudAkAZAIFB2N1cnJlbnQAAQUIbWF4Q291bnQFBmxlbmRJZAUFYWNjdW0BEnJlZHVjZXJDb25jYXRMaXN0cwIFYWNjdW0EbmV4dAkAzQgCBQVhY2N1bQUEbmV4dAEYcmVkdWNlckNvbmNhdExpc3RzU3RyaW5nAgVhY2N1bQRuZXh0CQDNCAIFBWFjY3VtBQRuZXh0ARNyZWR1Y2VyTGlzdFRvU3RyaW5nAgVhY2N1bQRuZXh0CQCsAgIJAKwCAgUFYWNjdW0CAS0FBG5leHQBC3JlZHVjZXJUZXN0AgVhY2N1bQRuZXh0BAskdDAzMjIwMzI3MAUFYWNjdW0ECWRlbGV0aW9ucwgFCyR0MDMyMjAzMjcwAl8xBAdjdXJyZW50CAULJHQwMzIyMDMyNzACXzIECG1heENvdW50CAULJHQwMzIyMDMyNzACXzMEBmxlbmRJZAgFCyR0MDMyMjAzMjcwAl80AwkAZgIFCG1heENvdW50BQdjdXJyZW50CQCWCgQJAM0IAgUJZGVsZXRpb25zCQCsAgIJAKwCAgkArAICAgpsZW5kLXJlbnQtBQZsZW5kSWQCAS0JAKQDAQUHY3VycmVudAkAZAIFB2N1cnJlbnQAAQUIbWF4Q291bnQFBmxlbmRJZAkAlgoEBQlkZWxldGlvbnMFB2N1cnJlbnQFCG1heENvdW50BQZsZW5kSWQBD2NoZWNrQXNzZXRPd25lcgIGY2FsbGVyB2Fzc2V0SWQDCQAAAgkA8AcCBQZjYWxsZXIJANkEAQUHYXNzZXRJZAABBQR1bml0CQACAQIQT25seSBhc3NldCBvd25lcgEMY2hlY2tQYXltZW50AghwYXltZW50cwZhbW91bnQDCQBnAggJAJEDAgUIcGF5bWVudHMAAAZhbW91bnQFBmFtb3VudAUEdW5pdAkAAgECFWFtb3VudCBsZXNzIHRoZW4gbmVlZAEQY2hlY2tBc3NldEV4aXN0cwEHYXNzZXRJZAMJAQt2YWx1ZU9yRWxzZQIJAKAIAQUHYXNzZXRJZAcJAAIBAhZ0aGlzIHRva2VuIGFscmVhZHkgdXNlBQR1bml0AQ5jaGVja0xlbmRPd25lcgIGY2FsbGVyBmxlbmRJZAMJAQIhPQIJAQZnZXRLZXkCCQELZ2V0TGVuZEpzb24BBQZsZW5kSWQCBW93bmVyCQClCAEFBmNhbGxlcgkAAgECEXlvdSBoYXZlbid0IHBlcm1zBQR1bml0DAFpAQlzZXRTdHJpbmcCBF9rZXkGX3ZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFBF9rZXkFBl92YWx1ZQUDbmlsAWkBBnNldEludAIEX2tleQZfdmFsdWUJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBDEludGVnZXJFbnRyeQIFBF9rZXkFBl92YWx1ZQUDbmlsAWkBC2RlbGV0ZUVudHJ5AQRfa2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtEZWxldGVFbnRyeQEFBF9rZXkFA25pbAFpAQRpbml0BA9fY29sbGVjdGlvbk5hbWUHX3N5bWJvbAxfZGVzY3JpcHRpb24IX2Jhc2VVUkkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgIOY29sbGVjdGlvbk5hbWUFD19jb2xsZWN0aW9uTmFtZQkAzAgCCQELU3RyaW5nRW50cnkCAgZzeW1ib2wFB19zeW1ib2wJAMwIAgkBC1N0cmluZ0VudHJ5AgILZGVzY3JpcHRpb24FDF9kZXNjcmlwdGlvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQAAAkAzAgCCQELU3RyaW5nRW50cnkCAgdiYXNlVVJJBQhfYmFzZVVSSQUDbmlsAWkBB3NldFVzZXIDB2Fzc2V0SWQEdXNlcgdleHBpcmVzBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIEdXNlcgkAzAgCAgdleHBpcmVzBQNuaWwJAMwIAgkAzAgCBQR1c2VyCQDMCAIFB2V4cGlyZXMFA25pbAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICB3VzZXJPZi0FB2Fzc2V0SWQKAAFABQNyZXMDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9zZXRUb2tlblBheW1lbnQBC2Fzc2V0QmluYXJ5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtCaW5hcnlFbnRyeQICDHRva2VuUGF5bWVudAULYXNzZXRCaW5hcnkFA25pbAFpAQptaW50VG9rZW5zAgJ0bwZhbW91bnQEBnJlaXN1ZQkBB1JlaXNzdWUDBQx0b2tlblBheW1lbnQFBmFtb3VudAYECXRvQWRkcmVzcwkBB0FkZHJlc3MBCQDZBAEFAnRvBAh0cmFuc2ZlcgkBDXRyYW5zZmVyT3JOb3QDBQl0b0FkZHJlc3MFBmFtb3VudAUMdG9rZW5QYXltZW50AwkAAAIFCHRyYW5zZmVyBQh0cmFuc2ZlcgkAzAgCBQh0cmFuc2ZlcgkAzAgCBQZyZWlzdWUFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQdtaW50TkZUAQJ0bwQHdG9rZW5JZAkAZAIFC3RvdGFsQW1vdW50AAEEDXRva2VuSWRTdHJpbmcJAKQDAQUHdG9rZW5JZAQHcHJlTmFtZQkArAICCQCsAgIFBnN5bWJvbAIBIwUNdG9rZW5JZFN0cmluZwQEbmFtZQMJAGcCABAJALECAQUHcHJlTmFtZQUHcHJlTmFtZQUNdG9rZW5JZFN0cmluZwQIdG9rZW5VUkkJAKwCAgUHYmFzZVVSSQUNdG9rZW5JZFN0cmluZwQEanNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIIdG9rZW5VUkkFA25pbAkAzAgCCQDMCAIFCHRva2VuVVJJBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwQFYXNzZXQJAMMIBwUEbmFtZQUEanNvbgABAAAHBQR1bml0BQZoZWlnaHQEB2Fzc2V0SWQJALgIAQUFYXNzZXQECXRvQWRkcmVzcwkBB0FkZHJlc3MBCQDZBAEFAnRvBAh0cmFuc2ZlcgkBDXRyYW5zZmVyT3JOb3QDBQl0b0FkZHJlc3MAAQUHYXNzZXRJZAMJAAACBQh0cmFuc2ZlcgUIdHJhbnNmZXIJAMwIAgUFYXNzZXQJAMwIAgUIdHJhbnNmZXIJAMwIAgkBDEludGVnZXJFbnRyeQICC3RvdGFsQW1vdW50BQd0b2tlbklkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBG5hbWUFCHRva2VuVVJJBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIaW5pdExlbmQEB2Fzc2V0SWQPdGltZVVuaXRTZWNvbmRzDXRpbWVVbml0UHJpY2UNdGltZVVuaXRDb3VudAkBC3ZhbHVlT3JFbHNlAgkBD2NoZWNrQXNzZXRPd25lcgIIBQFpBmNhbGxlcgUHYXNzZXRJZAkBC3ZhbHVlT3JFbHNlAgkBEGNoZWNrQXNzZXRFeGlzdHMBBQdhc3NldElkBAVhc3NldAkBDnBhcnNlSWR0b0Fzc2V0AQUHYXNzZXRJZAQIdG9rZW5VUkkKAAFACQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIIBQVhc3NldAtkZXNjcmlwdGlvbgkAzAgCAgh0b2tlblVSSQUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCHRva2VuVVJJBQh0b2tlblVSSQQIbGVuZEpzb24KAAFACQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICEnN1cHBvcnRlZEludGVyZmFjZQkAzAgCAghhc3NldGRJZAkAzAgCAgh0b2tlblVSSQkAzAgCAgVvd25lcgkAzAgCAg90aW1lVW5pdFNlY29uZHMJAMwIAgINdGltZVVuaXRQcmljZQkAzAgCAg10aW1lVW5pdENvdW50CQDMCAICDnN0YXJ0VGltZXN0YW1wCQDMCAICDGVuZFRpbWVzdGFtcAkAzAgCAgdkZXBvc2l0CQDMCAICB2NsYWltZWQFA25pbAkAzAgCCQDMCAICATAJAMwIAgUHYXNzZXRJZAkAzAgCBQh0b2tlblVSSQkAzAgCCQClCAEIBQFpBmNhbGxlcgkAzAgCCQCkAwEFD3RpbWVVbml0U2Vjb25kcwkAzAgCCQCkAwEFDXRpbWVVbml0UHJpY2UJAMwIAgkApAMBBQ10aW1lVW5pdENvdW50CQDMCAIJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkApAMBCQBkAggFCWxhc3RCbG9jawl0aW1lc3RhbXAJAGgCBQ90aW1lVW5pdFNlY29uZHMFDXRpbWVVbml0Q291bnQJAMwIAgIBMAkAzAgCAgEwBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQhsZW5kSnNvbgUIbGVuZEpzb24EDGxlbmRJZFN0cmluZwkApAMBBQlsZW5kQ291bnQJAMwIAgkBDEludGVnZXJFbnRyeQICCWxlbmRDb3VudAkAZAIFCWxlbmRDb3VudAABCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhBsZW5kQ3VycmVudENvdW50CQBkAgUQbGVuZEN1cnJlbnRDb3VudAABCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgICD2xlbmQtcmVudENvdW50LQUMbGVuZElkU3RyaW5nAAAJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nBQhsZW5kSnNvbgkAzAgCCQEMQm9vbGVhbkVudHJ5AgUHYXNzZXRJZAYFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhpbml0UmVudAIGbGVuZElkDXRpbWVVbml0Q291bnQJAQt2YWx1ZU9yRWxzZQIJAQxjaGVja1BheW1lbnQCCAUBaQhwYXltZW50cwkBDGNhbGNMZW5kQ29zdAIFBmxlbmRJZAUNdGltZVVuaXRDb3VudAQMbGVuZElkU3RyaW5nCQCkAwEFBmxlbmRJZAQIbGVuZEpzb24JARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgIFbGVuZC0FDGxlbmRJZFN0cmluZwQGcmVudElkCQEMZ2V0UmVudENvdW50AQUGbGVuZElkBAxyZW50SWRTdHJpbmcJAKQDAQUGcmVudElkBA90aW1lVW5pdFNlY29uZHMKAAFACQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIFCGxlbmRKc29uCQDMCAICD3RpbWVVbml0U2Vjb25kcwUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFD3RpbWVVbml0U2Vjb25kcwUPdGltZVVuaXRTZWNvbmRzBBJ0aW1lVW5pdFNlY29uZHNJbnQJAQ1wYXJzZUludFZhbHVlAQUPdGltZVVuaXRTZWNvbmRzAwkAAAIFEnRpbWVVbml0U2Vjb25kc0ludAUSdGltZVVuaXRTZWNvbmRzSW50BAhyZW50SnNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIIY3VzdG9tZXIJAMwIAgINdGltZVVuaXRDb3VudAkAzAgCAg5zdGFydFRpbWVzdGFtcAkAzAgCAgxlbmRUaW1lc3RhbXAJAMwIAgIGY2xvc2VkBQNuaWwJAMwIAgkAzAgCCQClCAEIBQFpBmNhbGxlcgkAzAgCCQCkAwEFDXRpbWVVbml0Q291bnQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAaAIFEnRpbWVVbml0U2Vjb25kc0ludAUNdGltZVVuaXRDb3VudAkAzAgCAgEwBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQhyZW50SnNvbgUIcmVudEpzb24JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcJAGQCBQZyZW50SWQAAQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICAgpsZW5kLXJlbnQtBQxsZW5kSWRTdHJpbmcCAS0FDHJlbnRJZFN0cmluZwUIcmVudEpzb24JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgIKbGVuZC1jb3N0LQUMbGVuZElkU3RyaW5nCQBkAgkBDGNhbGNMZW5kQ29zdAIFBmxlbmRJZAUNdGltZVVuaXRDb3VudAkBC2dldExlbmRDb3N0AQUGbGVuZElkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJY2xvc2VMZW5kAQZsZW5kSWQJAQt2YWx1ZU9yRWxzZQIJAQ5jaGVja0xlbmRPd25lcgIIBQFpBmNhbGxlcgUGbGVuZElkBAxsZW5kSWRTdHJpbmcJAKQDAQUGbGVuZElkBAlyZW50Q291bnQJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcED2RlbGV0ZUVudHJ5TGlzdAgKAAIkbAULaHVuZHJlZExpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQFA25pbAAABQlyZW50Q291bnQFDGxlbmRJZFN0cmluZwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEVcmVkdWNlckdldERlbGV0ZUVudHJ5AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAJfMQQJdHhMaXN0UmF3BQNuaWwFCXR4TGlzdFJhdwFpAQR0ZXN0AAQEZGF0YQkAzAgCAgExCQDMCAICATIJAMwIAgIBMwUDbmlsBARsaXN0CAoAAiRsBQtodW5kcmVkTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAUEZGF0YQAAAAUCATUKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBC3JlZHVjZXJUZXN0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAJfMQkAzAgCCQELU3RyaW5nRW50cnkCAgVEZWJ1ZwoAAiRsBQRsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAIACgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARNyZWR1Y2VyTGlzdFRvU3RyaW5nAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAUDbmlsALakvTY=",
    "height": 2502728,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7oywEwZojgMY9kLhu2wVYz1ZjTNP8pBAgAHEiQBG54wE
Next: 9fi483GsF9ZhNr6H7uRVV5ED8zGK3uBMxi2DJPyGVg5C

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  let hundredList = ["", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""]
25 25  
26 26  func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
27 27  
28 28  
29 29  func transferOrNot (to,amount,assetId) = if ((to == this))
30 30      then StringEntry("smth", "smth")
31 31      else ScriptTransfer(to, amount, assetId)
32 32  
33 33  
34 34  func getLendJson (lendId) = {
35 35      let lendIdString = toString(lendId)
36 36      getStringValue(("lend-" + lendIdString))
37 37      }
38 38  
39 39  
40 40  func getKey (lendJson,key) = {
41 41      let timeUnitSeconds = {
42 42          let @ = invoke(dAppJson, "readByJSONKey", [lendJson, key], nil)
43 43          if ($isInstanceOf(@, "String"))
44 44              then @
45 45              else throw(($getType(@) + " couldn't be cast to String"))
46 46          }
47 47      if ((timeUnitSeconds == timeUnitSeconds))
48 48          then timeUnitSeconds
49 49          else throw("Strict value is not equal to itself.")
50 50      }
51 51  
52 52  
53 53  func getRentCount (lendId) = {
54 54      let lendIdString = toString(lendId)
55 55      getIntegerValue(("lend-rentCount-" + lendIdString))
56 56      }
57 57  
58 58  
59 59  func calcLendCost (lendId,timeUnitSeconds) = {
60 60      let lendJson = getLendJson(lendId)
61 61      let timeUnitPriceString = getKey(lendJson, "timeUnitPrice")
62 62      if ((timeUnitPriceString == timeUnitPriceString))
63 63          then {
64 64              let timeUnitPrice = parseIntValue(timeUnitPriceString)
65 65              (timeUnitSeconds * timeUnitPrice)
66 66              }
67 67          else throw("Strict value is not equal to itself.")
68 68      }
69 69  
70 70  
71 71  func getLendCost (lendId) = valueOrElse(getInteger(("lend-cost-" + toString(lendId))), 0)
72 72  
73 73  
74 74  func onlyInternal (caller) = if ((caller == this))
75 75      then unit
76 76      else throw("Only internal call")
77 77  
78 78  
79 79  func reducerGetDeleteEntry (accum,next) = {
80 80      let $t025422592 = accum
81 81      let deletions = $t025422592._1
82 82      let current = $t025422592._2
83 83      let maxCount = $t025422592._3
84 84      let lendId = $t025422592._4
85 85      if ((maxCount > current))
86 86          then $Tuple4((deletions :+ DeleteEntry(((("lend-rent-" + lendId) + "-") + toString(current)))), (current + 1), maxCount, lendId)
87 87          else accum
88 88      }
89 89  
90 90  
91 91  func reducerConcatLists (accum,next) = (accum :+ next)
92 92  
93 93  
94 94  func reducerConcatListsString (accum,next) = (accum :+ next)
95 95  
96 96  
97 97  func reducerListToString (accum,next) = ((accum + "-") + next)
98 98  
99 99  
100 100  func reducerTest (accum,next) = {
101 101      let $t032203270 = accum
102 102      let deletions = $t032203270._1
103 103      let current = $t032203270._2
104 104      let maxCount = $t032203270._3
105 105      let lendId = $t032203270._4
106 106      if ((maxCount > current))
107 107          then $Tuple4((deletions :+ ((("lend-rent-" + lendId) + "-") + toString(current))), (current + 1), maxCount, lendId)
108 108          else $Tuple4(deletions, current, maxCount, lendId)
109 109      }
110 110  
111 111  
112 112  func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
113 113      then unit
114 114      else throw("Only asset owner")
115 115  
116 116  
117 117  func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
118 118      then unit
119 119      else throw("amount less then need")
120 120  
121 121  
122 122  func checkAssetExists (assetId) = if (valueOrElse(getBoolean(assetId), false))
123 123      then throw("this token already use")
124 124      else unit
125 125  
126 126  
127 127  func checkLendOwner (caller,lendId) = if ((getKey(getLendJson(lendId), "owner") != toString(caller)))
128 128      then throw("you haven't perms")
129 129      else unit
130 130  
131 131  
132 132  @Callable(i)
133 133  func setString (_key,_value) = valueOrElse(onlyInternal(i.caller), [StringEntry(_key, _value)])
134 134  
135 135  
136 136  
137 137  @Callable(i)
138 138  func setInt (_key,_value) = valueOrElse(onlyInternal(i.caller), [IntegerEntry(_key, _value)])
139 139  
140 140  
141 141  
142 142  @Callable(i)
143 143  func deleteEntry (_key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(_key)])
144 144  
145 145  
146 146  
147 147  @Callable(i)
148 148  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)])
149 149  
150 150  
151 151  
152 152  @Callable(i)
153 153  func setUser (assetId,user,expires) = {
154 154      let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
155 155      if ((res == res))
156 156          then $Tuple2([StringEntry(("userOf-" + assetId), {
157 157              let @ = res
158 158              if ($isInstanceOf(@, "String"))
159 159                  then @
160 160                  else throw(($getType(@) + " couldn't be cast to String"))
161 161              })], res)
162 162          else throw("Strict value is not equal to itself.")
163 163      }
164 164  
165 165  
166 166  
167 167  @Callable(i)
168 168  func setTokenPayment (assetBinary) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetBinary)])
169 169  
170 170  
171 171  
172 172  @Callable(i)
173 173  func mintTokens (to,amount) = {
174 174      let reisue = Reissue(tokenPayment, amount, true)
175 175      let toAddress = Address(fromBase58String(to))
176 176      let transfer = transferOrNot(toAddress, amount, tokenPayment)
177 177      if ((transfer == transfer))
178 178          then [transfer, reisue]
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 mintNFT (to) = {
186 186      let tokenId = (totalAmount + 1)
187 187      let tokenIdString = toString(tokenId)
188 188      let preName = ((symbol + "#") + tokenIdString)
189 189      let name = if ((16 >= size(preName)))
190 190          then preName
191 191          else tokenIdString
192 192      let tokenURI = (baseURI + tokenIdString)
193 193      let json = {
194 194          let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
195 195          if ($isInstanceOf(@, "String"))
196 196              then @
197 197              else throw(($getType(@) + " couldn't be cast to String"))
198 198          }
199 199      let asset = Issue(name, json, 1, 0, false, unit, height)
200 200      let assetId = calculateAssetId(asset)
201 201      let toAddress = Address(fromBase58String(to))
202 202      let transfer = transferOrNot(toAddress, 1, assetId)
203 203      if ((transfer == transfer))
204 204          then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
205 205          else throw("Strict value is not equal to itself.")
206 206      }
207 207  
208 208  
209 209  
210 210  @Callable(i)
211 211  func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), valueOrElse(checkAssetExists(assetId), {
212 212      let asset = parseIdtoAsset(assetId)
213 213      let tokenURI = {
214 214          let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
215 215          if ($isInstanceOf(@, "String"))
216 216              then @
217 217              else throw(($getType(@) + " couldn't be cast to String"))
218 218          }
219 219      if ((tokenURI == tokenURI))
220 220          then {
221 221              let lendJson = {
222 222                  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)
223 223                  if ($isInstanceOf(@, "String"))
224 224                      then @
225 225                      else throw(($getType(@) + " couldn't be cast to String"))
226 226                  }
227 227              if ((lendJson == lendJson))
228 228                  then {
229 229                      let lendIdString = toString(lendCount)
230 230  [IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson), BooleanEntry(assetId, true)]
231 231                      }
232 232                  else throw("Strict value is not equal to itself.")
233 233              }
234 234          else throw("Strict value is not equal to itself.")
235 235      }))
236 236  
237 237  
238 238  
239 239  @Callable(i)
240 240  func initRent (lendId,timeUnitCount) = valueOrElse(checkPayment(i.payments, calcLendCost(lendId, timeUnitCount)), {
241 241      let lendIdString = toString(lendId)
242 242      let lendJson = getStringValue(("lend-" + lendIdString))
243 243      let rentId = getRentCount(lendId)
244 244      let rentIdString = toString(rentId)
245 245      let timeUnitSeconds = {
246 246          let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
247 247          if ($isInstanceOf(@, "String"))
248 248              then @
249 249              else throw(($getType(@) + " couldn't be cast to String"))
250 250          }
251 251      if ((timeUnitSeconds == timeUnitSeconds))
252 252          then {
253 253              let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
254 254              if ((timeUnitSecondsInt == timeUnitSecondsInt))
255 255                  then {
256 256                      let rentJson = {
257 257                          let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
258 258                          if ($isInstanceOf(@, "String"))
259 259                              then @
260 260                              else throw(($getType(@) + " couldn't be cast to String"))
261 261                          }
262 262                      if ((rentJson == rentJson))
263 263                          then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson), IntegerEntry(("lend-cost-" + lendIdString), (calcLendCost(lendId, timeUnitCount) + getLendCost(lendId)))]
264 264                          else throw("Strict value is not equal to itself.")
265 265                      }
266 266                  else throw("Strict value is not equal to itself.")
267 267              }
268 268          else throw("Strict value is not equal to itself.")
269 269      })
270 270  
271 271  
272 272  
273 273  @Callable(i)
274 274  func closeLend (lendId) = valueOrElse(checkLendOwner(i.caller, lendId), {
275 275      let lendIdString = toString(lendId)
276 276      let rentCount = getIntegerValue(("lend-rentCount-" + lendIdString))
277 277      let deleteEntryList = (    let $l = hundredList
278 278      let $s = size($l)
279 279      let $acc0 = $Tuple4(nil, 0, rentCount, lendIdString)
280 280      func $f0_1 ($a,$i) =     if (($i >= $s))
281 281          then $a
282 282          else reducerGetDeleteEntry($a, $l[$i])
283 283  
284 284      func $f0_2 ($a,$i) =     if (($i >= $s))
285 285          then $a
286 286          else throw("List size exceeds 100")
287 287  
288 288      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100))._1
289 289      let txListRaw = nil
290 290      txListRaw
291 291      })
292 292  
293 293  
294 294  
295 295  @Callable(i)
296 296  func test () = {
297 297      let data = ["1", "2", "3"]
298 298      let list = (    let $l = hundredList
299 299      let $s = size($l)
300 300      let $acc0 = $Tuple4(data, 0, 5, "5")
301 301      func $f0_1 ($a,$i) =     if (($i >= $s))
302 302          then $a
303 303          else reducerTest($a, $l[$i])
304 304  
305 305      func $f0_2 ($a,$i) =     if (($i >= $s))
306 306          then $a
307 307          else throw("List size exceeds 100")
308 308  
309 309      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100))._1
310 310  [StringEntry("Debug", {
311 311          let $l = list
312 312          let $s = size($l)
313 313          let $acc0 = ""
314 314          func $f1_1 ($a,$i) =         if (($i >= $s))
315 315              then $a
316 316              else reducerListToString($a, $l[$i])
317 317  
318 318          func $f1_2 ($a,$i) =         if (($i >= $s))
319 319              then $a
320 320              else throw("List size exceeds 100")
321 321  
322 322          $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
323 323          })]
324 324      }
325 325  
326 326

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	let hundredList = ["", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""]
25	25
26	26	func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
27	27
28	28
29	29	func transferOrNot (to,amount,assetId) = if ((to == this))
30	30	then StringEntry("smth", "smth")
31	31	else ScriptTransfer(to, amount, assetId)
32	32
33	33
34	34	func getLendJson (lendId) = {
35	35	let lendIdString = toString(lendId)
36	36	getStringValue(("lend-" + lendIdString))
37	37	}
38	38
39	39
40	40	func getKey (lendJson,key) = {
41	41	let timeUnitSeconds = {
42	42	let @ = invoke(dAppJson, "readByJSONKey", [lendJson, key], nil)
43	43	if ($isInstanceOf(@, "String"))
44	44	then @
45	45	else throw(($getType(@) + " couldn't be cast to String"))
46	46	}
47	47	if ((timeUnitSeconds == timeUnitSeconds))
48	48	then timeUnitSeconds
49	49	else throw("Strict value is not equal to itself.")
50	50	}
51	51
52	52
53	53	func getRentCount (lendId) = {
54	54	let lendIdString = toString(lendId)
55	55	getIntegerValue(("lend-rentCount-" + lendIdString))
56	56	}
57	57
58	58
59	59	func calcLendCost (lendId,timeUnitSeconds) = {
60	60	let lendJson = getLendJson(lendId)
61	61	let timeUnitPriceString = getKey(lendJson, "timeUnitPrice")
62	62	if ((timeUnitPriceString == timeUnitPriceString))
63	63	then {
64	64	let timeUnitPrice = parseIntValue(timeUnitPriceString)
65	65	(timeUnitSeconds * timeUnitPrice)
66	66	}
67	67	else throw("Strict value is not equal to itself.")
68	68	}
69	69
70	70
71	71	func getLendCost (lendId) = valueOrElse(getInteger(("lend-cost-" + toString(lendId))), 0)
72	72
73	73
74	74	func onlyInternal (caller) = if ((caller == this))
75	75	then unit
76	76	else throw("Only internal call")
77	77
78	78
79	79	func reducerGetDeleteEntry (accum,next) = {
80	80	let $t025422592 = accum
81	81	let deletions = $t025422592._1
82	82	let current = $t025422592._2
83	83	let maxCount = $t025422592._3
84	84	let lendId = $t025422592._4
85	85	if ((maxCount > current))
86	86	then $Tuple4((deletions :+ DeleteEntry(((("lend-rent-" + lendId) + "-") + toString(current)))), (current + 1), maxCount, lendId)
87	87	else accum
88	88	}
89	89
90	90
91	91	func reducerConcatLists (accum,next) = (accum :+ next)
92	92
93	93
94	94	func reducerConcatListsString (accum,next) = (accum :+ next)
95	95
96	96
97	97	func reducerListToString (accum,next) = ((accum + "-") + next)
98	98
99	99
100	100	func reducerTest (accum,next) = {
101	101	let $t032203270 = accum
102	102	let deletions = $t032203270._1
103	103	let current = $t032203270._2
104	104	let maxCount = $t032203270._3
105	105	let lendId = $t032203270._4
106	106	if ((maxCount > current))
107	107	then $Tuple4((deletions :+ ((("lend-rent-" + lendId) + "-") + toString(current))), (current + 1), maxCount, lendId)
108	108	else $Tuple4(deletions, current, maxCount, lendId)
109	109	}
110	110
111	111
112	112	func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
113	113	then unit
114	114	else throw("Only asset owner")
115	115
116	116
117	117	func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
118	118	then unit
119	119	else throw("amount less then need")
120	120
121	121
122	122	func checkAssetExists (assetId) = if (valueOrElse(getBoolean(assetId), false))
123	123	then throw("this token already use")
124	124	else unit
125	125
126	126
127	127	func checkLendOwner (caller,lendId) = if ((getKey(getLendJson(lendId), "owner") != toString(caller)))
128	128	then throw("you haven't perms")
129	129	else unit
130	130
131	131
132	132	@Callable(i)
133	133	func setString (_key,_value) = valueOrElse(onlyInternal(i.caller), [StringEntry(_key, _value)])
134	134
135	135
136	136
137	137	@Callable(i)
138	138	func setInt (_key,_value) = valueOrElse(onlyInternal(i.caller), [IntegerEntry(_key, _value)])
139	139
140	140
141	141
142	142	@Callable(i)
143	143	func deleteEntry (_key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(_key)])
144	144
145	145
146	146
147	147	@Callable(i)
148	148	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)])
149	149
150	150
151	151
152	152	@Callable(i)
153	153	func setUser (assetId,user,expires) = {
154	154	let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
155	155	if ((res == res))
156	156	then $Tuple2([StringEntry(("userOf-" + assetId), {
157	157	let @ = res
158	158	if ($isInstanceOf(@, "String"))
159	159	then @
160	160	else throw(($getType(@) + " couldn't be cast to String"))
161	161	})], res)
162	162	else throw("Strict value is not equal to itself.")
163	163	}
164	164
165	165
166	166
167	167	@Callable(i)
168	168	func setTokenPayment (assetBinary) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetBinary)])
169	169
170	170
171	171
172	172	@Callable(i)
173	173	func mintTokens (to,amount) = {
174	174	let reisue = Reissue(tokenPayment, amount, true)
175	175	let toAddress = Address(fromBase58String(to))
176	176	let transfer = transferOrNot(toAddress, amount, tokenPayment)
177	177	if ((transfer == transfer))
178	178	then [transfer, reisue]
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 mintNFT (to) = {
186	186	let tokenId = (totalAmount + 1)
187	187	let tokenIdString = toString(tokenId)
188	188	let preName = ((symbol + "#") + tokenIdString)
189	189	let name = if ((16 >= size(preName)))
190	190	then preName
191	191	else tokenIdString
192	192	let tokenURI = (baseURI + tokenIdString)
193	193	let json = {
194	194	let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
195	195	if ($isInstanceOf(@, "String"))
196	196	then @
197	197	else throw(($getType(@) + " couldn't be cast to String"))
198	198	}
199	199	let asset = Issue(name, json, 1, 0, false, unit, height)
200	200	let assetId = calculateAssetId(asset)
201	201	let toAddress = Address(fromBase58String(to))
202	202	let transfer = transferOrNot(toAddress, 1, assetId)
203	203	if ((transfer == transfer))
204	204	then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
205	205	else throw("Strict value is not equal to itself.")
206	206	}
207	207
208	208
209	209
210	210	@Callable(i)
211	211	func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), valueOrElse(checkAssetExists(assetId), {
212	212	let asset = parseIdtoAsset(assetId)
213	213	let tokenURI = {
214	214	let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
215	215	if ($isInstanceOf(@, "String"))
216	216	then @
217	217	else throw(($getType(@) + " couldn't be cast to String"))
218	218	}
219	219	if ((tokenURI == tokenURI))
220	220	then {
221	221	let lendJson = {
222	222	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)
223	223	if ($isInstanceOf(@, "String"))
224	224	then @
225	225	else throw(($getType(@) + " couldn't be cast to String"))
226	226	}
227	227	if ((lendJson == lendJson))
228	228	then {
229	229	let lendIdString = toString(lendCount)
230	230	[IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson), BooleanEntry(assetId, true)]
231	231	}
232	232	else throw("Strict value is not equal to itself.")
233	233	}
234	234	else throw("Strict value is not equal to itself.")
235	235	}))
236	236
237	237
238	238
239	239	@Callable(i)
240	240	func initRent (lendId,timeUnitCount) = valueOrElse(checkPayment(i.payments, calcLendCost(lendId, timeUnitCount)), {
241	241	let lendIdString = toString(lendId)
242	242	let lendJson = getStringValue(("lend-" + lendIdString))
243	243	let rentId = getRentCount(lendId)
244	244	let rentIdString = toString(rentId)
245	245	let timeUnitSeconds = {
246	246	let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
247	247	if ($isInstanceOf(@, "String"))
248	248	then @
249	249	else throw(($getType(@) + " couldn't be cast to String"))
250	250	}
251	251	if ((timeUnitSeconds == timeUnitSeconds))
252	252	then {
253	253	let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
254	254	if ((timeUnitSecondsInt == timeUnitSecondsInt))
255	255	then {
256	256	let rentJson = {
257	257	let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
258	258	if ($isInstanceOf(@, "String"))
259	259	then @
260	260	else throw(($getType(@) + " couldn't be cast to String"))
261	261	}
262	262	if ((rentJson == rentJson))
263	263	then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson), IntegerEntry(("lend-cost-" + lendIdString), (calcLendCost(lendId, timeUnitCount) + getLendCost(lendId)))]
264	264	else throw("Strict value is not equal to itself.")
265	265	}
266	266	else throw("Strict value is not equal to itself.")
267	267	}
268	268	else throw("Strict value is not equal to itself.")
269	269	})
270	270
271	271
272	272
273	273	@Callable(i)
274	274	func closeLend (lendId) = valueOrElse(checkLendOwner(i.caller, lendId), {
275	275	let lendIdString = toString(lendId)
276	276	let rentCount = getIntegerValue(("lend-rentCount-" + lendIdString))
277	277	let deleteEntryList = ( let $l = hundredList
278	278	let $s = size($l)
279	279	let $acc0 = $Tuple4(nil, 0, rentCount, lendIdString)
280	280	func $f0_1 ($a,$i) = if (($i >= $s))
281	281	then $a
282	282	else reducerGetDeleteEntry($a, $l[$i])
283	283
284	284	func $f0_2 ($a,$i) = if (($i >= $s))
285	285	then $a
286	286	else throw("List size exceeds 100")
287	287
288	288	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100))._1
289	289	let txListRaw = nil
290	290	txListRaw
291	291	})
292	292
293	293
294	294
295	295	@Callable(i)
296	296	func test () = {
297	297	let data = ["1", "2", "3"]
298	298	let list = ( let $l = hundredList
299	299	let $s = size($l)
300	300	let $acc0 = $Tuple4(data, 0, 5, "5")
301	301	func $f0_1 ($a,$i) = if (($i >= $s))
302	302	then $a
303	303	else reducerTest($a, $l[$i])
304	304
305	305	func $f0_2 ($a,$i) = if (($i >= $s))
306	306	then $a
307	307	else throw("List size exceeds 100")
308	308
309	309	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100))._1
310	310	[StringEntry("Debug", {
311	311	let $l = list
312	312	let $s = size($l)
313	313	let $acc0 = ""
314	314	func $f1_1 ($a,$i) = if (($i >= $s))
315	315	then $a
316	316	else reducerListToString($a, $l[$i])
317	317
318	318	func $f1_2 ($a,$i) = if (($i >= $s))
319	319	then $a
320	320	else throw("List size exceeds 100")
321	321
322	322	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
323	323	})]
324	324	}
325	325
326	326

github/deemru/w8io/169f3d6 
54.50 ms ◑