w8 · tx · 77a···Fb5

tx · 77aPrL3hX6A9LnG3ziMBkujJQY9Z2hTYTugTSBbUoFb5

3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn:  -0.00700000 Waves

2023.03.21 21:19 [2500126] smart account 3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "77aPrL3hX6A9LnG3ziMBkujJQY9Z2hTYTugTSBbUoFb5",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1679422835492,
    "version": 2,
    "chainId": 84,
    "sender": "3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn",
    "senderPublicKey": "CZeucjRLCKrkiP9zuj9KbLe23Wv9DywFzHBqNDnte51B",
    "proofs": [
        "st1Ay6fNgCHH73EFGohPgGNUwegcfmk2YxDBCkUt3SAqL34JVF8ZP8zxSHcFfXhF7h9fGps8LHniFkDuy54d3bv"
    ],
    "script": "base64:BgI/CAISBAoCCAgSBAoCCAESAwoBCBIGCgQICAgIEgUKAwgICBIDCgECEgMKAQgSBgoECAEBARIECgIBARIDCgEIFAAOY29sbGVjdGlvbk5hbWUJARFAZXh0ck5hdGl2ZSgxMDU4KQECDmNvbGxlY3Rpb25OYW1lAAZzeW1ib2wJARFAZXh0ck5hdGl2ZSgxMDU4KQECBnN5bWJvbAALZGVzY3JpcHRpb24JARFAZXh0ck5hdGl2ZSgxMDU4KQECC2Rlc2NyaXB0aW9uAAt0b3RhbEFtb3VudAkBEUBleHRyTmF0aXZlKDEwNTUpAQILdG90YWxBbW91bnQAB2Jhc2VVUkkJARFAZXh0ck5hdGl2ZSgxMDU4KQECB2Jhc2VVUkkACGRBcHBKc29uCQEHQWRkcmVzcwEJANkEAQIjM01yR2FaVlJoa25FR2ZISjE5dHRVUE5uRFJvRnFjSGhWTjcADHRva2VuUGF5bWVudAkBEUBleHRyTmF0aXZlKDEwNTcpAQIMdG9rZW5QYXltZW50ABF0b2tlblBheW1lbnRBc3NldAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJARFAZXh0ck5hdGl2ZSgxMDU3KQECDHRva2VuUGF5bWVudAIjdG9rZW4gcGF5bWVudCBhc3NldCBkb2Vzbid0IGNvbm5lY3QACWxlbmRDb3VudAkBEUBleHRyTmF0aXZlKDEwNTUpAQIJbGVuZENvdW50ABBsZW5kQ3VycmVudENvdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAhBsZW5kQ3VycmVudENvdW50AQ5wYXJzZUlkdG9Bc3NldAEHYXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUHYXNzZXRJZAIcQ2FuJ3QgZmluZCBhc3NldCBieSBhc3NldCBpZAEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQ10cmFuc2Zlck9yTm90AgJ0bwdhc3NldElkAwkAAAIFAnRvBQR0aGlzCQELU3RyaW5nRW50cnkCAgRzbXRoAgRzbXRoCQEOU2NyaXB0VHJhbnNmZXIDBQJ0bwABBQdhc3NldElkAQ9jaGVja0Fzc2V0T3duZXICBmNhbGxlcgdhc3NldElkAwkAAAIJAPAHAgUGY2FsbGVyCQDZBAEFB2Fzc2V0SWQAAQUEdW5pdAkAAgECEE9ubHkgYXNzZXQgb3duZXIBDGNoZWNrUGF5bWVudAIIcGF5bWVudHMGYW1vdW50AwkAZwIICQCRAwIFCHBheW1lbnRzAAAGYW1vdW50BQZhbW91bnQFBHVuaXQJAAIBAhVhbW91bnQgbGVzcyB0aGVuIG5lZWQBEGNoZWNrQXNzZXRFeGlzdHMBB2Fzc2V0SWQDCQERQGV4dHJOYXRpdmUoMTA1NikBBQdhc3NldElkCQACAQIWdGhpcyB0b2tlbiBhbHJlYWR5IHVzZQUEdW5pdAELZ2V0TGVuZEpzb24BBmxlbmRJZAQMbGVuZElkU3RyaW5nCQCkAwEFBmxlbmRJZAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nAQZnZXRLZXkCCGxlbmRKc29uA2tleQQPdGltZVVuaXRTZWNvbmRzCgABQAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCBQhsZW5kSnNvbgkAzAgCBQNrZXkFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQ90aW1lVW5pdFNlY29uZHMFD3RpbWVVbml0U2Vjb25kcwUPdGltZVVuaXRTZWNvbmRzCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQxnZXRSZW50Q291bnQBBmxlbmRJZAQMbGVuZElkU3RyaW5nCQCkAwEFBmxlbmRJZAkBEUBleHRyTmF0aXZlKDEwNTUpAQkArAICAg9sZW5kLXJlbnRDb3VudC0FDGxlbmRJZFN0cmluZwEMY2FsY0xlbmRDb3N0AgZsZW5kSWQPdGltZVVuaXRTZWNvbmRzBAhsZW5kSnNvbgkBC2dldExlbmRKc29uAQUGbGVuZElkBBN0aW1lVW5pdFByaWNlU3RyaW5nCQEGZ2V0S2V5AgUIbGVuZEpzb24CDXRpbWVVbml0UHJpY2UDCQAAAgUTdGltZVVuaXRQcmljZVN0cmluZwUTdGltZVVuaXRQcmljZVN0cmluZwQNdGltZVVuaXRQcmljZQkBDXBhcnNlSW50VmFsdWUBBRN0aW1lVW5pdFByaWNlU3RyaW5nCQBoAgUPdGltZVVuaXRTZWNvbmRzBQ10aW1lVW5pdFByaWNlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCgFpAQlzZXRTdHJpbmcCBF9rZXkGX3ZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFBF9rZXkFBl92YWx1ZQUDbmlsAWkBBnNldEludAIEX2tleQZfdmFsdWUJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBDEludGVnZXJFbnRyeQIFBF9rZXkFBl92YWx1ZQUDbmlsAWkBC2RlbGV0ZUVudHJ5AQRfa2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtEZWxldGVFbnRyeQEFBF9rZXkFA25pbAFpAQRpbml0BA9fY29sbGVjdGlvbk5hbWUHX3N5bWJvbAxfZGVzY3JpcHRpb24IX2Jhc2VVUkkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgIOY29sbGVjdGlvbk5hbWUFD19jb2xsZWN0aW9uTmFtZQkAzAgCCQELU3RyaW5nRW50cnkCAgZzeW1ib2wFB19zeW1ib2wJAMwIAgkBC1N0cmluZ0VudHJ5AgILZGVzY3JpcHRpb24FDF9kZXNjcmlwdGlvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQAAAkAzAgCCQELU3RyaW5nRW50cnkCAgdiYXNlVVJJBQhfYmFzZVVSSQUDbmlsAWkBB3NldFVzZXIDB2Fzc2V0SWQEdXNlcgdleHBpcmVzBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIEdXNlcgkAzAgCAgdleHBpcmVzBQNuaWwJAMwIAgkAzAgCBQR1c2VyCQDMCAIFB2V4cGlyZXMFA25pbAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICB3VzZXJPZi0FB2Fzc2V0SWQKAAFABQNyZXMDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9zZXRUb2tlblBheW1lbnQBC2Fzc2V0QmluYXJ5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtCaW5hcnlFbnRyeQICDHRva2VuUGF5bWVudAULYXNzZXRCaW5hcnkFA25pbAFpAQRtaW50AQJ0bwQHdG9rZW5JZAkAZAIFC3RvdGFsQW1vdW50AAEEDXRva2VuSWRTdHJpbmcJAKQDAQUHdG9rZW5JZAQHcHJlTmFtZQkArAICCQCsAgIFBnN5bWJvbAIBIwUNdG9rZW5JZFN0cmluZwQEbmFtZQMJAGcCABAJALECAQUHcHJlTmFtZQUHcHJlTmFtZQUNdG9rZW5JZFN0cmluZwQIdG9rZW5VUkkJAKwCAgUHYmFzZVVSSQUNdG9rZW5JZFN0cmluZwQEanNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIIdG9rZW5VUkkFA25pbAkAzAgCCQDMCAIFCHRva2VuVVJJBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwQFYXNzZXQJAMMIBwUEbmFtZQUEanNvbgABAAAHBQR1bml0BQZoZWlnaHQEB2Fzc2V0SWQJALgIAQUFYXNzZXQECXRvQWRkcmVzcwkBB0FkZHJlc3MBCQDZBAEFAnRvBAh0cmFuc2ZlcgkBDXRyYW5zZmVyT3JOb3QCBQl0b0FkZHJlc3MFB2Fzc2V0SWQDCQAAAgUIdHJhbnNmZXIFCHRyYW5zZmVyCQDMCAIFBWFzc2V0CQDMCAIFCHRyYW5zZmVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCAgt0b3RhbEFtb3VudAUHdG9rZW5JZAkAzAgCCQELU3RyaW5nRW50cnkCBQRuYW1lBQh0b2tlblVSSQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGluaXRMZW5kBAdhc3NldElkD3RpbWVVbml0U2Vjb25kcw10aW1lVW5pdFByaWNlDXRpbWVVbml0Q291bnQJAQt2YWx1ZU9yRWxzZQIJAQ9jaGVja0Fzc2V0T3duZXICCAUBaQZjYWxsZXIFB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJARBjaGVja0Fzc2V0RXhpc3RzAQUHYXNzZXRJZAQFYXNzZXQJAQ5wYXJzZUlkdG9Bc3NldAEFB2Fzc2V0SWQECHRva2VuVVJJCgABQAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCCAUFYXNzZXQLZGVzY3JpcHRpb24JAMwIAgIIdG9rZW5VUkkFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQh0b2tlblVSSQUIdG9rZW5VUkkECGxlbmRKc29uCgABQAkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAhJzdXBwb3J0ZWRJbnRlcmZhY2UJAMwIAgIIYXNzZXRkSWQJAMwIAgIIdG9rZW5VUkkJAMwIAgIFb3duZXIJAMwIAgIPdGltZVVuaXRTZWNvbmRzCQDMCAICDXRpbWVVbml0UHJpY2UJAMwIAgINdGltZVVuaXRDb3VudAkAzAgCAg5zdGFydFRpbWVzdGFtcAkAzAgCAgxlbmRUaW1lc3RhbXAJAMwIAgIHZGVwb3NpdAkAzAgCAgdjbGFpbWVkBQNuaWwJAMwIAgkAzAgCAgEwCQDMCAIFB2Fzc2V0SWQJAMwIAgUIdG9rZW5VUkkJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgkApAMBBQ90aW1lVW5pdFNlY29uZHMJAMwIAgkApAMBBQ10aW1lVW5pdFByaWNlCQDMCAIJAKQDAQUNdGltZVVuaXRDb3VudAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUPdGltZVVuaXRTZWNvbmRzBQ10aW1lVW5pdENvdW50CQDMCAICATAJAMwIAgIBMAUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUIbGVuZEpzb24FCGxlbmRKc29uBAxsZW5kSWRTdHJpbmcJAKQDAQUJbGVuZENvdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCAglsZW5kQ291bnQJAGQCBQlsZW5kQ291bnQAAQkAzAgCCQEMSW50ZWdlckVudHJ5AgIQbGVuZEN1cnJlbnRDb3VudAkAZAIFEGxlbmRDdXJyZW50Q291bnQAAQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAg9sZW5kLXJlbnRDb3VudC0FDGxlbmRJZFN0cmluZwAACQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgIFbGVuZC0FDGxlbmRJZFN0cmluZwUIbGVuZEpzb24JAMwIAgkBDEJvb2xlYW5FbnRyeQIFB2Fzc2V0SWQGBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIaW5pdFJlbnQCBmxlbmRJZA10aW1lVW5pdENvdW50CQELdmFsdWVPckVsc2UCCQEMY2hlY2tQYXltZW50AggFAWkIcGF5bWVudHMJAQxjYWxjTGVuZENvc3QCBQZsZW5kSWQFDXRpbWVVbml0Q291bnQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQECGxlbmRKc29uCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgICBWxlbmQtBQxsZW5kSWRTdHJpbmcEBnJlbnRJZAkBDGdldFJlbnRDb3VudAEFBmxlbmRJZAQMcmVudElkU3RyaW5nCQCkAwEFBnJlbnRJZAQPdGltZVVuaXRTZWNvbmRzCgABQAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCBQhsZW5kSnNvbgkAzAgCAg90aW1lVW5pdFNlY29uZHMFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQ90aW1lVW5pdFNlY29uZHMFD3RpbWVVbml0U2Vjb25kcwQSdGltZVVuaXRTZWNvbmRzSW50CQENcGFyc2VJbnRWYWx1ZQEFD3RpbWVVbml0U2Vjb25kcwMJAAACBRJ0aW1lVW5pdFNlY29uZHNJbnQFEnRpbWVVbml0U2Vjb25kc0ludAQIcmVudEpzb24KAAFACQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICCGN1c3RvbWVyCQDMCAICDXRpbWVVbml0Q291bnQJAMwIAgIOc3RhcnRUaW1lc3RhbXAJAMwIAgIMZW5kVGltZXN0YW1wCQDMCAICBmNsb3NlZAUDbmlsCQDMCAIJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgkApAMBBQ10aW1lVW5pdENvdW50CQDMCAIJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkApAMBCQBkAggFCWxhc3RCbG9jawl0aW1lc3RhbXAJAGgCBRJ0aW1lVW5pdFNlY29uZHNJbnQFDXRpbWVVbml0Q291bnQJAMwIAgIBMAUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUIcmVudEpzb24FCHJlbnRKc29uCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgICD2xlbmQtcmVudENvdW50LQUMbGVuZElkU3RyaW5nCQBkAgUGcmVudElkAAEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgIKbGVuZC1yZW50LQUMbGVuZElkU3RyaW5nAgEtBQxyZW50SWRTdHJpbmcFCHJlbnRKc29uBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEEdGVzdAEHYXNzZXRJZAQFZGVidWcJAQV2YWx1ZQEJAKAIAQUHYXNzZXRJZAkAzAgCCQEMQm9vbGVhbkVudHJ5AgIFRGVidWcFBWRlYnVnBQNuaWwAM8OFzw==",
    "height": 2500126,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: DoztwzHuEqVPwc8FXwc1h9AQbehbedTX8rhHemN6r8Za
Next: FGCEb4exkkEBz5RQ3x9dq7jzfkVwHSf3xyySGcFzVqMg

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

Old	New		Differences
216	216
217	217
218	218		@Callable(i)
219		-	func test (assetId) = [BooleanEntry("Debug", value(getBoolean(assetId)))]
	219	+	func test (assetId) = {
	220	+	let debug = value(getBoolean(assetId))
	221	+	[BooleanEntry("Debug", debug)]
	222	+	}
220	223
221	224

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

github/deemru/w8io/026f985 
39.60 ms ◑