tx · A6NS5Hsas7ss7k4cz3NaoPsVihPo8jNcWN6jzeEXsbmS

3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx:  -0.01000000 Waves

2022.12.14 09:44 [2359636] smart account 3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "A6NS5Hsas7ss7k4cz3NaoPsVihPo8jNcWN6jzeEXsbmS",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1671000389451,
    "version": 2,
    "chainId": 84,
    "sender": "3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx",
    "senderPublicKey": "EKZmHJ5bK3qKKgRdq8rAamt9qrDbVMLARzRqXoQW258v",
    "proofs": [
        "5nmqXcjuYN6QPZFd8JxtVkmY6eLBAZ9CsPXUthJ8M6Moz6NNtHD6sgr1K7Ux88oGNV7e1rCRwDSn5CmXcMF3U6i"
    ],
    "script": "base64:BgJACAISCwoJCAgICAgBCAgIEgMKAQESBAoCCAgSBgoECAgIARIGCgQICAgIEgUKAwgIARIDCgEIEgMKAQgSAwoBCAkACXNlcGFyYXRvcgIBXwAEa0J1eQIDYnV5AAZrUHJpY2UCBXByaWNlAAVrU2VsbAIEc2VsbAASbWF4QXVjdGlvbkR1cmF0aW9uAAcABGtCaWQCA2JpZAAMc3RhdHVzRm9yTkZUCQCWCgQCBE9QRU4CBkNMT1NFRAIIUkVXQVJERUQCCENBTkNFTEVEAAtkQXBwQWRkcmVzcwEaAVRKuE9s3sLak+30julKNvjVT3+V1VVbXaABBWlzTmZ0AQdhc3NldElkBAckbWF0Y2gwCQDsBwEFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIFQXNzZXQEBXRva2VuBQckbWF0Y2gwAwMJAAACCAUFdG9rZW4IZGVjaW1hbHMAAAkAAAIIBQV0b2tlbghxdWFudGl0eQABBwkAAAIIBQV0b2tlbgpyZWlzc3VhYmxlBwcHCQFpAQljcmVhdGVOZnQJCG5mdF9uYW1lCW5mdF9vd25lcg9uZnRfZEFwcEFkZHJlc3MIbmZ0X3R5cGUIbmZ0X3RhZ3MRbmZ0X3NlbGxpbmdfcHJpY2UPbmZ0X2Rlc2NyaXB0aW9uCm5mdF9vblNlbGwIbmZ0X2RhdGEECG5ld1Rva2VuCQDCCAUFCG5mdF9uYW1lBQ9uZnRfZGVzY3JpcHRpb24AAQAABwQHaXNzdWVJZAkAuAgBBQhuZXdUb2tlbgQEdHhJZAgFAWkNdHJhbnNhY3Rpb25JZAkAzAgCBQhuZXdUb2tlbgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIAAQUHaXNzdWVJZAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICBU93bmVyCQClCAEIBQFpBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICCG5mdF90eXBlBQhuZnRfdHlwZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICCG5mdF90YWdzBQhuZnRfdGFncwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICD25mdF9kQXBwQWRkcmVzcwUPbmZ0X2RBcHBBZGRyZXNzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICEW5mdF9zZWxsaW5nX3ByaWNlBRFuZnRfc2VsbGluZ19wcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICCm5mdF9vblNlbGwFCm5mdF9vblNlbGwJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAghuZnRfZGF0YQUIbmZ0X2RhdGEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUEdHhJZAUJc2VwYXJhdG9yAglpc3N1ZV9uZnQJANgEAQUHaXNzdWVJZAUDbmlsAWkBB3NlbGxORlQBBXByaWNlBAR0eElkCAUBaQ10cmFuc2FjdGlvbklkBAZzZWxsZXIICAUBaQZjYWxsZXIFYnl0ZXMECyR0MDE3ODkxODc0CQCUCgIJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEBnRva2VuMAgFCyR0MDE3ODkxODc0Al8xBAdhbW91bnQwCAULJHQwMTc4OTE4NzQCXzIDCQEBIQEJAQVpc05mdAEFBnRva2VuMAkAAgECEFRva2VuIGlzIG5vdCBORlQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFBmtQcmljZQUJc2VwYXJhdG9yCQDYBAEJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkApAMBBQVwcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkApQgBCAUBaQZjYWxsZXIFCXNlcGFyYXRvcgUFa1NlbGwJAKwCAgkArAICCQDYBAEFBnRva2VuMAUJc2VwYXJhdG9yCQCkAwEFB2Ftb3VudDAFA25pbAFpAQZidXlORlQCBW5mdElEEWN1cnJlbnRfbmZ0X293bmVyBAdhc3NldElkCQDZBAEFBW5mdElEBAZhbW91bnQJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BBBjaGVja093bmVySXNTYW1lBAckbWF0Y2gwCQCdCAIFBHRoaXMJAKwCAgkArAICAgRuZnRfBRFjdXJyZW50X25mdF9vd25lcgIGX293bmVyAwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAUBYQcEBXByaWNlCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAKwCAgkArAICCQCsAgIFBmtQcmljZQUJc2VwYXJhdG9yBQVuZnRJRAIBXwURY3VycmVudF9uZnRfb3duZXIEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkArAICBQVuZnRJRAUJc2VwYXJhdG9yAgVPd25lcgIITm8gb3duZXIDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFBHVuaXQJAAIBAgxQYXkgaW4gd2F2ZXMDCQAAAgURY3VycmVudF9uZnRfb3duZXIJAKUIAQgFAWkGY2FsbGVyCQACAQIpY3VycmVudCBPd25lciBvZiBORlQgbm90IGFibGUgdG8gcHVyY2hhc2UDCQAAAgUFb3duZXIJAKUIAQgFAWkGY2FsbGVyCQACAQIab3duZXIgbmV2ZXIgYnV5IGFmdGVyIHNlbGwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyAAEFB2Fzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCQDZBAEFBW93bmVyBQZhbW91bnQFBHVuaXQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKUIAQgFAWkGY2FsbGVyBQlzZXBhcmF0b3IFBGtCdXkJAKwCAgkArAICBQVuZnRJRAUJc2VwYXJhdG9yCQCkAwEFBmFtb3VudAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIJAKwCAgIEbmZ0XwURY3VycmVudF9uZnRfb3duZXICBl9vd25lcgUDbmlsAWkBCmFkZEF1Y3Rpb24EBXN0YXJ0A2VuZApzdGFydFByaWNlCGR1cmF0aW9uBAR0eElkCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQEBW5mdElkCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQEBXByaWNlCQEFdmFsdWUBBQpzdGFydFByaWNlBAllbmRIZWlnaHQJAGQCCAUJbGFzdEJsb2NrBmhlaWdodAUIZHVyYXRpb24EBmNhbGxlcggIBQFpBmNhbGxlcgVieXRlcwQRY2hlY2tOZnRBdWN0aW9uZWQEByRtYXRjaDAJAJ0IAgUEdGhpcwkArAICCQCsAgIJAKwCAgkA2AQBBQVuZnRJZAUJc2VwYXJhdG9yAgtuZnRfc3RhdHVzXwkA2AQBBQZjYWxsZXIDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFhBQckbWF0Y2gwBgcDCQAAAggJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQR1bml0CQACAQIQTkZUIG5vdCBhdHRhY2hlZAMJAAACBRFjaGVja05mdEF1Y3Rpb25lZAYJAAIBAhdBbHJlYWR5IGluIGF1Y3Rpb24gbGlzdAMJAGYCBQhkdXJhdGlvbgUSbWF4QXVjdGlvbkR1cmF0aW9uCQACAQkArAICAjZEdXJhdGlvbiBpcyB0b28gbG9uZy4gTXVzdCBiZSBsZXNzIHRoYW4gb3IgZXF1YWwgdG8gNyAJAKQDAQUSbWF4QXVjdGlvbkR1cmF0aW9uCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICBQR0eElkAhhfbmZ0X3N0YXJ0X2F1Y3Rpb25fZGF0ZV8JANgEAQUGY2FsbGVyBQVzdGFydAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgUEdHhJZAIWX25mdF9lbmRfYXVjdGlvbl9kYXRlXwkA2AQBBQZjYWxsZXIFA2VuZAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCEF9uZnRfc3RhcnRfcHJpY2UFCnN0YXJ0UHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAgpfbmZ0X293bmVyCQClCAEIBQFpBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCD19uZnRfb25fYXVjdGlvbgkA2AQBBQVuZnRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCEF9wcmV2aW91c19iaWRkZXICBG5vbmUJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAgxfaGlnaGVzdF9iaWQCATAJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAg5fd2lubmVyX29mX25mdAIBMAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCDV9iaWRkZXJfY291bnQCATAJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAgtfbmZ0X3N0YXR1cwIET1BFTgUDbmlsAWkBCHBsYWNlQmlkBAlhdWN0aW9uSWQFbmZ0SWQJbmZ0X293bmVyCWJpZF9wcmljZQQEdHhJZAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkBAZjYWxsZXIICAUBaQZjYWxsZXIFYnl0ZXMEB2Fzc2V0SWQJANkEAQUFbmZ0SWQED2N1cnJlbnRCaWRQcmljZQgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEFWdldExhc3RXaW5uZXJCaWRQcmljZQkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQlhdWN0aW9uSWQCDF9oaWdoZXN0X2JpZAQYZ2V0UHJldmlvdXNCaWRkZXJBZGRyZXNzCQCdCAIFBHRoaXMJAKwCAgUJYXVjdGlvbklkAhBfcHJldmlvdXNfYmlkZGVyBA9jdXJyZW50QmlkQ291bnQJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMJAKwCAgUJYXVjdGlvbklkAg1fYmlkZGVyX2NvdW50BBRnZXRMYXN0V2lubmVyQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQlhdWN0aW9uSWQCDl93aW5uZXJfb2ZfbmZ0BBFjaGVja05mdEF1Y3Rpb25lZAkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQlhdWN0aW9uSWQCC19uZnRfc3RhdHVzAwkBAiE9AggJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQR1bml0CQACAQIMUGF5IGluIHdhdmVzAwkBAiE9AgURY2hlY2tOZnRBdWN0aW9uZWQCBE9QRU4JAAIBAhROb3Qgb3BlbiBmb3IgYXVjdGlvbgMJAGcCCQENcGFyc2VJbnRWYWx1ZQEFFWdldExhc3RXaW5uZXJCaWRQcmljZQUPY3VycmVudEJpZFByaWNlCQACAQIlQmlkIGlzIGxlc3MgdGhlbiBzdGFydGluZy9oaWdoZXN0IEJpZAMJAAACBRVnZXRMYXN0V2lubmVyQmlkUHJpY2UCATAJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCDF9oaWdoZXN0X2JpZAkApAMBBQ9jdXJyZW50QmlkUHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCDl93aW5uZXJfb2ZfbmZ0CQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCDV9iaWRkZXJfY291bnQJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQUPY3VycmVudEJpZENvdW50AAEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCB19uZnRfaWQJANgEAQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCWF1Y3Rpb25JZAIKX25mdF9vd25lcgUJbmZ0X293bmVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgIFBHR4SWQCAV8FCWF1Y3Rpb25JZAIMX2hpZ2hlc3RfYmlkCQCkAwEFD2N1cnJlbnRCaWRQcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICBQR0eElkAgFfBQlhdWN0aW9uSWQCB193aW5uZXIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICBQR0eElkAgFfBQlhdWN0aW9uSWQCDV9iaWRkZXJfY291bnQJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQUPY3VycmVudEJpZENvdW50AAEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgUEdHhJZAIBXwUJYXVjdGlvbklkAgdfbmZ0X2lkCQDYBAEFB2Fzc2V0SWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgUEdHhJZAIBXwUJYXVjdGlvbklkAgpfbmZ0X293bmVyBQluZnRfb3duZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAg9fYmlkX2Zvcl9uZnRfYnkJANgEAQUGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIQX2JpZF9wcmljZV9wbGFjZQUJYmlkX3ByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAImX3ByZXZpb3VzX2JpZF9hbW91bnRfcmVmdW5kX3RvX2FkZHJlc3MFFGdldExhc3RXaW5uZXJBZGRyZXNzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIbX3ByZXZvaXVzX2JpZF9hbW91bnRfcmVmdW5kBRVnZXRMYXN0V2lubmVyQmlkUHJpY2UFA25pbAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCWF1Y3Rpb25JZAIMX2hpZ2hlc3RfYmlkCQCkAwEFD2N1cnJlbnRCaWRQcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCWF1Y3Rpb25JZAIOX3dpbm5lcl9vZl9uZnQJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCWF1Y3Rpb25JZAINX2JpZGRlcl9jb3VudAkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBBQ9jdXJyZW50QmlkQ291bnQAAQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCWF1Y3Rpb25JZAIHX25mdF9pZAkA2AQBBQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUJYXVjdGlvbklkAgpfbmZ0X293bmVyBQluZnRfb3duZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgUEdHhJZAIBXwUJYXVjdGlvbklkAgxfaGlnaGVzdF9iaWQJAKQDAQUPY3VycmVudEJpZFByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgIFBHR4SWQCAV8FCWF1Y3Rpb25JZAIHX3dpbm5lcgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgIFBHR4SWQCAV8FCWF1Y3Rpb25JZAINX2JpZGRlcl9jb3VudAkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBBQ9jdXJyZW50QmlkQ291bnQAAQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICBQR0eElkAgFfBQlhdWN0aW9uSWQCB19uZnRfaWQJANgEAQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICBQR0eElkAgFfBQlhdWN0aW9uSWQCCl9uZnRfb3duZXIFCW5mdF9vd25lcgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCD19iaWRfZm9yX25mdF9ieQkA2AQBBQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAhBfYmlkX3ByaWNlX3BsYWNlBQliaWRfcHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAiZfcHJldmlvdXNfYmlkX2Ftb3VudF9yZWZ1bmRfdG9fYWRkcmVzcwUUZ2V0TGFzdFdpbm5lckFkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAhtfcHJldm9pdXNfYmlkX2Ftb3VudF9yZWZ1bmQFFWdldExhc3RXaW5uZXJCaWRQcmljZQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQEHQWRkcmVzcwEJANkEAQUUZ2V0TGFzdFdpbm5lckFkZHJlc3MJAQ1wYXJzZUludFZhbHVlAQUVZ2V0TGFzdFdpbm5lckJpZFByaWNlBQR1bml0BQNuaWwBaQEOYWNjZXB0QmlkT2ZmZXIDCWF1Y3Rpb25JZAVuZnRJZBRiaWRfYW1vdW50X2Zyb21fdXNlcgQEdHhJZAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkBAZjYWxsZXIICAUBaQZjYWxsZXIFYnl0ZXMEB2Fzc2V0SWQJANkEAQUFbmZ0SWQEEmdldE5mdFdpbm5pbmdQcmljZQkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQlhdWN0aW9uSWQCDF9oaWdoZXN0X2JpZAQQZ2V0QXVjdGlvbldpbm5lcgkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQlhdWN0aW9uSWQCDl93aW5uZXJfb2ZfbmZ0CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQdBZGRyZXNzAQUGY2FsbGVyCQENcGFyc2VJbnRWYWx1ZQEFEmdldE5mdFdpbm5pbmdQcmljZQUEdW5pdAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQEHQWRkcmVzcwEJANkEAQUQZ2V0QXVjdGlvbldpbm5lcgABBQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIVX2Ftb3VudF9wYWlkX3RvX293bmVyBRJnZXROZnRXaW5uaW5nUHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAhBfbmZ0X3RyYW5zZmVyX3RvBRBnZXRBdWN0aW9uV2lubmVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAILX25mdF9zdGF0dXMCCFJFV0FSREVECQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUJYXVjdGlvbklkAhVfYW1vdW50X3BhaWRfdG9fb3duZXIFEmdldE5mdFdpbm5pbmdQcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCWF1Y3Rpb25JZAIQX25mdF90cmFuc2Zlcl90bwUQZ2V0QXVjdGlvbldpbm5lcgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCWF1Y3Rpb25JZAILX25mdF9zdGF0dXMCCFJFV0FSREVEBQNuaWwBaQENY2FuY2VsQXVjdGlvbgEJYXVjdGlvbklkBAR0eElkCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQEBmNhbGxlcggIBQFpBmNhbGxlcgVieXRlcwQNYXVjdGlvblN0YXR1cwkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQlhdWN0aW9uSWQCC19uZnRfc3RhdHVzBA1iaWRkaW5nV2lubmVyCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzCQCsAgIFCWF1Y3Rpb25JZAIOX3dpbm5lcl9vZl9uZnQECG5mdE93bmVyCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzCQCsAgIFCWF1Y3Rpb25JZAIKX25mdF9vd25lcgQFbmZ0SWQJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMJAKwCAgUJYXVjdGlvbklkAg9fbmZ0X29uX2F1Y3Rpb24EDGJpZGRpbmdQcmljZQkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQlhdWN0aW9uSWQCDF9oaWdoZXN0X2JpZAMJAAACBQ1iaWRkaW5nV2lubmVyAgEwCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICBQR0eElkBQlhdWN0aW9uSWQCC19uZnRfc3RhdHVzAghDQU5DRUxFRAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQEHQWRkcmVzcwEJANkEAQUIbmZ0T3duZXIAAQkA2QQBBQVuZnRJZAUDbmlsCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUJYXVjdGlvbklkAgtfbmZ0X3N0YXR1cwIIQ0FOQ0VMRUQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCJl9wcmV2aW91c19iaWRfYW1vdW50X3JlZnVuZF90b19hZGRyZXNzBQ1iaWRkaW5nV2lubmVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUJYXVjdGlvbklkAhtfcHJldm9pdXNfYmlkX2Ftb3VudF9yZWZ1bmQFDGJpZGRpbmdQcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCC19uZnRfc3RhdHVzAghDQU5DRUxFRAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCJl9wcmV2aW91c19iaWRfYW1vdW50X3JlZnVuZF90b19hZGRyZXNzBQ1iaWRkaW5nV2lubmVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIbX3ByZXZvaXVzX2JpZF9hbW91bnRfcmVmdW5kBQxiaWRkaW5nUHJpY2UJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCQDZBAEFCG5mdE93bmVyAAEJANkEAQUFbmZ0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCQDZBAEFDWJpZGRpbmdXaW5uZXIJAQ1wYXJzZUludFZhbHVlAQUMYmlkZGluZ1ByaWNlBQR1bml0BQNuaWwBaQELd2l0aGRyYXdCaWQBB2JpZFR4SWQEBmNhbGxlcggIBQFpBmNhbGxlcgVieXRlcwQIYmlkUHJpY2UJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMJAKwCAgUHYmlkVHhJZAIMX2hpZ2hlc3RfYmlkBAhhc0JpZGRlcgkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQdiaWRUeElkAgdfd2lubmVyBAliaWRGb3JORlQJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMJAKwCAgUHYmlkVHhJZAIHX25mdF9pZAMJAQIhPQIJANgEAQUGY2FsbGVyBQhhc0JpZGRlcgkAAgECBk5vIGJpZAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFB2JpZFR4SWQCCF9uZnRfYmlkAghXSVRIRFJBVwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFB2JpZFR4SWQCB19uZnRfaWQFCWJpZEZvck5GVAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFB2JpZFR4SWQCHF9iaWRkaW5nX3ByaWNlX3JlZnVuZF9hbW91bnQFCGJpZFByaWNlCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkBDXBhcnNlSW50VmFsdWUBBQhiaWRQcmljZQUEdW5pdAUDbmlsAWkBB3Rlc3RCaWQBBGRhdGEJAMwIAgkBC1N0cmluZ0VudHJ5AgI4RThra0ZCWUN5NDRKSmFxNnBBWjZLaXpzdVJlc2k1VUtOaGJEMVdOWndoaFlfaGlnaGVzdF9iaWQCATAFA25pbAB9VGtd",
    "height": 2359636,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2tNZQ7wS1P58xgDaZzcrAuUWCSLyA4PWRkSRRyvvcyLL
Next: HomhThXREwTbbbvWhzdegmG1whyA1CCXhMqtaQqSXMWq

Diff: 

OldNewDifferences
33 {-# CONTENT_TYPE DAPP #-}
44 let separator = "_"
55 
6-let kAuction = "auction"
6+let kBuy = "buy"
7+
8+let kPrice = "price"
79 
810 let kSell = "sell"
911 
10-let kTrusted = "trusted"
12+let maxAuctionDuration = 7
1113 
12-let kPrice = "price"
14+let kBid = "bid"
1315 
14-func getSlotKey (prefix,nftId) = ((prefix + separator) + toBase58String(nftId))
16+let statusForNFT = $Tuple4("OPEN", "CLOSED", "REWARDED", "CANCELED")
1517 
16-
17-func getPriceKey (nftId) = ((kPrice + separator) + toBase58String(nftId))
18-
19-
20-func getSellKey (nftId) = ((kSell + separator) + toBase58String(nftId))
21-
22-
23-func getAuctionKey (nftId) = ((kAuction + separator) + toBase58String(nftId))
24-
25-
26-func getTrustedKey (issuer) = ((kTrusted + separator) + toString(issuer))
27-
28-
29-func addToList (accum,nextValue) = (accum ++ [nextValue])
30-
31-
32-func joinString (params) = {
33-    let length = size(params)
34-    if ((length == 0))
35-        then throw("Empty  params")
36-        else if ((length == 1))
37-            then makeString({
38-                let $l = params
39-                let $s = size($l)
40-                let $acc0 = nil
41-                func $f0_1 ($a,$i) =                 if (($i >= $s))
42-                    then $a
43-                    else addToList($a, $l[$i])
44-
45-                func $f0_2 ($a,$i) =                 if (($i >= $s))
46-                    then $a
47-                    else throw("List size exceeds 1")
48-
49-                $f0_2($f0_1($acc0, 0), 1)
50-                }, separator)
51-            else if ((length == 2))
52-                then makeString({
53-                    let $l = params
54-                    let $s = size($l)
55-                    let $acc0 = nil
56-                    func $f0_1 ($a,$i) =                     if (($i >= $s))
57-                        then $a
58-                        else addToList($a, $l[$i])
59-
60-                    func $f0_2 ($a,$i) =                     if (($i >= $s))
61-                        then $a
62-                        else throw("List size exceeds 2")
63-
64-                    $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
65-                    }, separator)
66-                else if ((length == 3))
67-                    then makeString({
68-                        let $l = params
69-                        let $s = size($l)
70-                        let $acc0 = nil
71-                        func $f0_1 ($a,$i) =                         if (($i >= $s))
72-                            then $a
73-                            else addToList($a, $l[$i])
74-
75-                        func $f0_2 ($a,$i) =                         if (($i >= $s))
76-                            then $a
77-                            else throw("List size exceeds 3")
78-
79-                        $f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
80-                        }, separator)
81-                    else if ((length == 4))
82-                        then makeString({
83-                            let $l = params
84-                            let $s = size($l)
85-                            let $acc0 = nil
86-                            func $f0_1 ($a,$i) =                             if (($i >= $s))
87-                                then $a
88-                                else addToList($a, $l[$i])
89-
90-                            func $f0_2 ($a,$i) =                             if (($i >= $s))
91-                                then $a
92-                                else throw("List size exceeds 4")
93-
94-                            $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
95-                            }, separator)
96-                        else if ((length == 5))
97-                            then makeString({
98-                                let $l = params
99-                                let $s = size($l)
100-                                let $acc0 = nil
101-                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
102-                                    then $a
103-                                    else addToList($a, $l[$i])
104-
105-                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
106-                                    then $a
107-                                    else throw("List size exceeds 5")
108-
109-                                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
110-                                }, separator)
111-                            else throw("Max number of parameters exceeded")
112-    }
113-
114-
115-func parseAsAuction (details) = {
116-    let res = split(details, separator)
117-    $Tuple5(addressFromStringValue(res[0]), parseIntValue(res[1]), parseIntValue(res[2]), parseIntValue(res[3]), parseIntValue(res[4]))
118-    }
119-
120-
121-func parseAsSell (details) = {
122-    let res = split(details, separator)
123-    $Tuple2(addressFromStringValue(res[0]), parseIntValue(res[1]))
124-    }
125-
126-
127-func joinStruct (params) = match params {
128-    case auction: (Address, Int, String, String) => 
129-        joinString([toString(auction._1), toString(auction._2), auction._3, auction._4])
130-    case sell: (Address, Int) => 
131-        joinString([toString(sell._1), toString(sell._2)])
132-    case _ => 
133-        throw("Wrong params tupple")
134-}
135-
136-
137-func setAuction (seller,nftId,startPrice,start,end) = StringEntry(getAuctionKey(nftId), joinStruct($Tuple4(seller, startPrice, start, end)))
138-
139-
140-func setSell (nftId,celler,price) = StringEntry(getSellKey(nftId), joinStruct($Tuple2(celler, price)))
141-
142-
143-func getAuction (nftId) = value(getString(this, getAuctionKey(nftId)))
144-
145-
146-func getSell (nftId) = value(getString(this, getSellKey(nftId)))
147-
148-
149-func calcPriceAtCurrentMoment (assetId,moment) = {
150-    let details = getAuction(assetId)
151-    let $t027552859 = parseAsAuction(details)
152-    let seller = $t027552859._1
153-    let startPriceValue = $t027552859._2
154-    let endPriceValue = $t027552859._3
155-    let startPeriodValue = $t027552859._4
156-    let endPeriodValue = $t027552859._5
157-    if ((moment >= endPeriodValue))
158-        then $Tuple2(seller, endPriceValue)
159-        else {
160-            let deltaPrice = (startPriceValue - endPriceValue)
161-            let period = (endPeriodValue - startPeriodValue)
162-            let spended = (moment - startPeriodValue)
163-            $Tuple2(seller, (startPriceValue - fraction(spended, deltaPrice, period)))
164-            }
165-    }
166-
18+let dAppAddress = base58'3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq'
16719 
16820 func isNft (assetId) = match assetInfo(assetId) {
16921     case token: Asset => 
17628         false
17729 }
17830 
179-
180-func isTrustedNft (assetId) = {
181-    let issuer = value(assetInfo(assetId)).issuer
182-    valueOrElse(getBoolean(this, getTrustedKey(issuer)), false)
183-    }
184-
185-
186-func isSellExist (assetId) = isDefined(getString(this, getSellKey(assetId)))
187-
188-
189-func isAuctionExist (assetId) = isDefined(getString(this, getAuctionKey(assetId)))
190-
191-
192-func isCorrectSellPrice (price) = (price > 0)
193-
194-
195-func isCorrectAuctionPrices (startPrice,endPrice) = (startPrice > endPrice)
196-
197-
198-func isAdmin (caller) = (caller == this)
199-
200-
201-func isValidCaller (caller,seller) = if ((caller == this))
202-    then true
203-    else (caller == seller)
204-
205-
206-func isAuctionEnded (now,end) = (now > end)
207-
208-
209-func isEnoughFunds (payment,currentMomentPrice) = (payment >= currentMomentPrice)
210-
211-
212-func isWawes (assetId) = (assetId == unit)
213-
214-
215-func isCorrectNft (nftId) = if (!(isNft(nftId)))
216-    then throw("Token is not Nft")
217-    else if (isSellExist(nftId))
218-        then throw("Sell already exists")
219-        else if (isAuctionExist(nftId))
220-            then throw("Auction already exists")
221-            else unit
222-
223-
224-func isCorrectPayments (paymentAsset,paymentAmount,price) = if (!(isWawes(paymentAsset)))
225-    then throw("Payment must be at WAVES")
226-    else if (!(isEnoughFunds(paymentAmount, price)))
227-        then throw("Not enough funds")
228-        else unit
229-
230-
231-func calcFee () = 0
232-
233-
234-func calcTrustedFee () = 0
235-
236-
237-func resultFundsAmounts (isTrusted,paymentAmount,actualPrice) = if (isTrusted)
238-    then $Tuple2((actualPrice - calcTrustedFee()), (paymentAmount - actualPrice))
239-    else $Tuple2((actualPrice - calcFee()), (paymentAmount - actualPrice))
240-
241-
242-func getSlot (nftId) = if (isSellExist(nftId))
243-    then $Tuple2(kSell, getSell(nftId))
244-    else if (isAuctionExist(nftId))
245-        then $Tuple2(kAuction, getAuction(nftId))
246-        else throw("Slot doesn`t exist")
247-
248-
249-let kBuy = "buy"
250-
251-let kBid = "bid"
252-
253-let statusForNFT = $Tuple4("OPEN", "CLOSED", "REWARDED", "CANCELED")
254-
255-let dAppAddress = base58'3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx'
25631 
25732 @Callable(i)
25833 func createNft (nft_name,nft_owner,nft_dAppAddress,nft_type,nft_tags,nft_selling_price,nft_description,nft_onSell,nft_data) = {
26843 func sellNFT (price) = {
26944     let txId = i.transactionId
27045     let seller = i.caller.bytes
271-    let $t066056690 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
272-    let token0 = $t066056690._1
273-    let amount0 = $t066056690._2
46+    let $t017891874 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
47+    let token0 = $t017891874._1
48+    let amount0 = $t017891874._2
27449     if (!(isNft(token0)))
27550         then throw("Token is not NFT")
27651         else [StringEntry(((kPrice + separator) + toBase58String(value(i.payments[0].assetId))), toString(price)), StringEntry(((toString(i.caller) + separator) + kSell), ((toBase58String(token0) + separator) + toString(amount0)))]
29267     let owner = valueOrErrorMessage(getStringValue(((nftID + separator) + "Owner")), "No owner")
29368     if ((i.payments[0].assetId != unit))
29469         then throw("Pay in waves")
295-        else if ((checkOwnerIsSame == toString(i.caller)))
296-            then throw("Owner of NFT not able to purchase")
297-            else [ScriptTransfer(i.caller, 1, assetId), ScriptTransfer(Address(fromBase58String(owner)), amount, unit), StringEntry(((toString(i.caller) + separator) + kBuy), ((nftID + separator) + toString(amount))), DeleteEntry((("nft_" + current_nft_owner) + "_owner"))]
70+        else if ((current_nft_owner == toString(i.caller)))
71+            then throw("current Owner of NFT not able to purchase")
72+            else if ((owner == toString(i.caller)))
73+                then throw("owner never buy after sell")
74+                else [ScriptTransfer(i.caller, 1, assetId), ScriptTransfer(Address(fromBase58String(owner)), amount, unit), StringEntry(((toString(i.caller) + separator) + kBuy), ((nftID + separator) + toString(amount))), DeleteEntry((("nft_" + current_nft_owner) + "_owner"))]
29875     }
29976 
30077 
30481     let txId = toBase58String(i.transactionId)
30582     let nftId = value(i.payments[0].assetId)
30683     let price = value(startPrice)
84+    let endHeight = (lastBlock.height + duration)
30785     let caller = i.caller.bytes
30886     let checkNftAuctioned =     match getString(this, (((toBase58String(nftId) + separator) + "nft_status_") + toBase58String(caller))) {
30987         case a: String => 
31593         then throw("NFT not attached")
31694         else if ((checkNftAuctioned == true))
31795             then throw("Already in auction list")
318-            else [StringEntry(((txId + "_nft_start_auction_date_") + toBase58String(caller)), start), StringEntry(((txId + "_nft_end_auction_date_") + toBase58String(caller)), end), StringEntry((txId + "_nft_start_price"), startPrice), IntegerEntry((txId + "duration_of_auction"), duration), StringEntry((txId + "_nft_owner"), toString(i.caller)), StringEntry((txId + "_nft_on_auction"), toBase58String(nftId)), StringEntry((txId + "_previous_bidder"), "none"), StringEntry((txId + "_highest_bid"), "0"), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
96+            else if ((duration > maxAuctionDuration))
97+                then throw(("Duration is too long. Must be less than or equal to 7 " + toString(maxAuctionDuration)))
98+                else [StringEntry(((txId + "_nft_start_auction_date_") + toBase58String(caller)), start), StringEntry(((txId + "_nft_end_auction_date_") + toBase58String(caller)), end), StringEntry((txId + "_nft_start_price"), startPrice), StringEntry((txId + "_nft_owner"), toString(i.caller)), StringEntry((txId + "_nft_on_auction"), toBase58String(nftId)), StringEntry((txId + "_previous_bidder"), "none"), StringEntry((txId + "_highest_bid"), "0"), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
31999     }
320100 
321101 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let separator = "_"
55 
6-let kAuction = "auction"
6+let kBuy = "buy"
7+
8+let kPrice = "price"
79 
810 let kSell = "sell"
911 
10-let kTrusted = "trusted"
12+let maxAuctionDuration = 7
1113 
12-let kPrice = "price"
14+let kBid = "bid"
1315 
14-func getSlotKey (prefix,nftId) = ((prefix + separator) + toBase58String(nftId))
16+let statusForNFT = $Tuple4("OPEN", "CLOSED", "REWARDED", "CANCELED")
1517 
16-
17-func getPriceKey (nftId) = ((kPrice + separator) + toBase58String(nftId))
18-
19-
20-func getSellKey (nftId) = ((kSell + separator) + toBase58String(nftId))
21-
22-
23-func getAuctionKey (nftId) = ((kAuction + separator) + toBase58String(nftId))
24-
25-
26-func getTrustedKey (issuer) = ((kTrusted + separator) + toString(issuer))
27-
28-
29-func addToList (accum,nextValue) = (accum ++ [nextValue])
30-
31-
32-func joinString (params) = {
33-    let length = size(params)
34-    if ((length == 0))
35-        then throw("Empty  params")
36-        else if ((length == 1))
37-            then makeString({
38-                let $l = params
39-                let $s = size($l)
40-                let $acc0 = nil
41-                func $f0_1 ($a,$i) =                 if (($i >= $s))
42-                    then $a
43-                    else addToList($a, $l[$i])
44-
45-                func $f0_2 ($a,$i) =                 if (($i >= $s))
46-                    then $a
47-                    else throw("List size exceeds 1")
48-
49-                $f0_2($f0_1($acc0, 0), 1)
50-                }, separator)
51-            else if ((length == 2))
52-                then makeString({
53-                    let $l = params
54-                    let $s = size($l)
55-                    let $acc0 = nil
56-                    func $f0_1 ($a,$i) =                     if (($i >= $s))
57-                        then $a
58-                        else addToList($a, $l[$i])
59-
60-                    func $f0_2 ($a,$i) =                     if (($i >= $s))
61-                        then $a
62-                        else throw("List size exceeds 2")
63-
64-                    $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
65-                    }, separator)
66-                else if ((length == 3))
67-                    then makeString({
68-                        let $l = params
69-                        let $s = size($l)
70-                        let $acc0 = nil
71-                        func $f0_1 ($a,$i) =                         if (($i >= $s))
72-                            then $a
73-                            else addToList($a, $l[$i])
74-
75-                        func $f0_2 ($a,$i) =                         if (($i >= $s))
76-                            then $a
77-                            else throw("List size exceeds 3")
78-
79-                        $f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
80-                        }, separator)
81-                    else if ((length == 4))
82-                        then makeString({
83-                            let $l = params
84-                            let $s = size($l)
85-                            let $acc0 = nil
86-                            func $f0_1 ($a,$i) =                             if (($i >= $s))
87-                                then $a
88-                                else addToList($a, $l[$i])
89-
90-                            func $f0_2 ($a,$i) =                             if (($i >= $s))
91-                                then $a
92-                                else throw("List size exceeds 4")
93-
94-                            $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
95-                            }, separator)
96-                        else if ((length == 5))
97-                            then makeString({
98-                                let $l = params
99-                                let $s = size($l)
100-                                let $acc0 = nil
101-                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
102-                                    then $a
103-                                    else addToList($a, $l[$i])
104-
105-                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
106-                                    then $a
107-                                    else throw("List size exceeds 5")
108-
109-                                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
110-                                }, separator)
111-                            else throw("Max number of parameters exceeded")
112-    }
113-
114-
115-func parseAsAuction (details) = {
116-    let res = split(details, separator)
117-    $Tuple5(addressFromStringValue(res[0]), parseIntValue(res[1]), parseIntValue(res[2]), parseIntValue(res[3]), parseIntValue(res[4]))
118-    }
119-
120-
121-func parseAsSell (details) = {
122-    let res = split(details, separator)
123-    $Tuple2(addressFromStringValue(res[0]), parseIntValue(res[1]))
124-    }
125-
126-
127-func joinStruct (params) = match params {
128-    case auction: (Address, Int, String, String) => 
129-        joinString([toString(auction._1), toString(auction._2), auction._3, auction._4])
130-    case sell: (Address, Int) => 
131-        joinString([toString(sell._1), toString(sell._2)])
132-    case _ => 
133-        throw("Wrong params tupple")
134-}
135-
136-
137-func setAuction (seller,nftId,startPrice,start,end) = StringEntry(getAuctionKey(nftId), joinStruct($Tuple4(seller, startPrice, start, end)))
138-
139-
140-func setSell (nftId,celler,price) = StringEntry(getSellKey(nftId), joinStruct($Tuple2(celler, price)))
141-
142-
143-func getAuction (nftId) = value(getString(this, getAuctionKey(nftId)))
144-
145-
146-func getSell (nftId) = value(getString(this, getSellKey(nftId)))
147-
148-
149-func calcPriceAtCurrentMoment (assetId,moment) = {
150-    let details = getAuction(assetId)
151-    let $t027552859 = parseAsAuction(details)
152-    let seller = $t027552859._1
153-    let startPriceValue = $t027552859._2
154-    let endPriceValue = $t027552859._3
155-    let startPeriodValue = $t027552859._4
156-    let endPeriodValue = $t027552859._5
157-    if ((moment >= endPeriodValue))
158-        then $Tuple2(seller, endPriceValue)
159-        else {
160-            let deltaPrice = (startPriceValue - endPriceValue)
161-            let period = (endPeriodValue - startPeriodValue)
162-            let spended = (moment - startPeriodValue)
163-            $Tuple2(seller, (startPriceValue - fraction(spended, deltaPrice, period)))
164-            }
165-    }
166-
18+let dAppAddress = base58'3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq'
16719 
16820 func isNft (assetId) = match assetInfo(assetId) {
16921     case token: Asset => 
17022         if (if ((token.decimals == 0))
17123             then (token.quantity == 1)
17224             else false)
17325             then (token.reissuable == false)
17426             else false
17527     case _ => 
17628         false
17729 }
17830 
179-
180-func isTrustedNft (assetId) = {
181-    let issuer = value(assetInfo(assetId)).issuer
182-    valueOrElse(getBoolean(this, getTrustedKey(issuer)), false)
183-    }
184-
185-
186-func isSellExist (assetId) = isDefined(getString(this, getSellKey(assetId)))
187-
188-
189-func isAuctionExist (assetId) = isDefined(getString(this, getAuctionKey(assetId)))
190-
191-
192-func isCorrectSellPrice (price) = (price > 0)
193-
194-
195-func isCorrectAuctionPrices (startPrice,endPrice) = (startPrice > endPrice)
196-
197-
198-func isAdmin (caller) = (caller == this)
199-
200-
201-func isValidCaller (caller,seller) = if ((caller == this))
202-    then true
203-    else (caller == seller)
204-
205-
206-func isAuctionEnded (now,end) = (now > end)
207-
208-
209-func isEnoughFunds (payment,currentMomentPrice) = (payment >= currentMomentPrice)
210-
211-
212-func isWawes (assetId) = (assetId == unit)
213-
214-
215-func isCorrectNft (nftId) = if (!(isNft(nftId)))
216-    then throw("Token is not Nft")
217-    else if (isSellExist(nftId))
218-        then throw("Sell already exists")
219-        else if (isAuctionExist(nftId))
220-            then throw("Auction already exists")
221-            else unit
222-
223-
224-func isCorrectPayments (paymentAsset,paymentAmount,price) = if (!(isWawes(paymentAsset)))
225-    then throw("Payment must be at WAVES")
226-    else if (!(isEnoughFunds(paymentAmount, price)))
227-        then throw("Not enough funds")
228-        else unit
229-
230-
231-func calcFee () = 0
232-
233-
234-func calcTrustedFee () = 0
235-
236-
237-func resultFundsAmounts (isTrusted,paymentAmount,actualPrice) = if (isTrusted)
238-    then $Tuple2((actualPrice - calcTrustedFee()), (paymentAmount - actualPrice))
239-    else $Tuple2((actualPrice - calcFee()), (paymentAmount - actualPrice))
240-
241-
242-func getSlot (nftId) = if (isSellExist(nftId))
243-    then $Tuple2(kSell, getSell(nftId))
244-    else if (isAuctionExist(nftId))
245-        then $Tuple2(kAuction, getAuction(nftId))
246-        else throw("Slot doesn`t exist")
247-
248-
249-let kBuy = "buy"
250-
251-let kBid = "bid"
252-
253-let statusForNFT = $Tuple4("OPEN", "CLOSED", "REWARDED", "CANCELED")
254-
255-let dAppAddress = base58'3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx'
25631 
25732 @Callable(i)
25833 func createNft (nft_name,nft_owner,nft_dAppAddress,nft_type,nft_tags,nft_selling_price,nft_description,nft_onSell,nft_data) = {
25934     let newToken = Issue(nft_name, nft_description, 1, 0, false)
26035     let issueId = calculateAssetId(newToken)
26136     let txId = i.transactionId
26237 [newToken, ScriptTransfer(i.caller, 1, issueId), StringEntry(((toBase58String(issueId) + separator) + "Owner"), toString(i.caller)), StringEntry(((toBase58String(issueId) + separator) + "nft_type"), nft_type), StringEntry(((toBase58String(issueId) + separator) + "nft_tags"), nft_tags), StringEntry(((toBase58String(issueId) + separator) + "nft_dAppAddress"), nft_dAppAddress), IntegerEntry(((toBase58String(issueId) + separator) + "nft_selling_price"), nft_selling_price), StringEntry(((toBase58String(issueId) + separator) + "nft_onSell"), nft_onSell), StringEntry(((toBase58String(issueId) + separator) + "nft_data"), nft_data), StringEntry(((toBase58String(txId) + separator) + "issue_nft"), toBase58String(issueId))]
26338     }
26439 
26540 
26641 
26742 @Callable(i)
26843 func sellNFT (price) = {
26944     let txId = i.transactionId
27045     let seller = i.caller.bytes
271-    let $t066056690 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
272-    let token0 = $t066056690._1
273-    let amount0 = $t066056690._2
46+    let $t017891874 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
47+    let token0 = $t017891874._1
48+    let amount0 = $t017891874._2
27449     if (!(isNft(token0)))
27550         then throw("Token is not NFT")
27651         else [StringEntry(((kPrice + separator) + toBase58String(value(i.payments[0].assetId))), toString(price)), StringEntry(((toString(i.caller) + separator) + kSell), ((toBase58String(token0) + separator) + toString(amount0)))]
27752     }
27853 
27954 
28055 
28156 @Callable(i)
28257 func buyNFT (nftID,current_nft_owner) = {
28358     let assetId = fromBase58String(nftID)
28459     let amount = value(i.payments[0].amount)
28560     let checkOwnerIsSame =     match getString(this, (("nft_" + current_nft_owner) + "_owner")) {
28661         case a: String => 
28762             a
28863         case _ => 
28964             false
29065     }
29166     let price = getStringValue(((((kPrice + separator) + nftID) + "_") + current_nft_owner))
29267     let owner = valueOrErrorMessage(getStringValue(((nftID + separator) + "Owner")), "No owner")
29368     if ((i.payments[0].assetId != unit))
29469         then throw("Pay in waves")
295-        else if ((checkOwnerIsSame == toString(i.caller)))
296-            then throw("Owner of NFT not able to purchase")
297-            else [ScriptTransfer(i.caller, 1, assetId), ScriptTransfer(Address(fromBase58String(owner)), amount, unit), StringEntry(((toString(i.caller) + separator) + kBuy), ((nftID + separator) + toString(amount))), DeleteEntry((("nft_" + current_nft_owner) + "_owner"))]
70+        else if ((current_nft_owner == toString(i.caller)))
71+            then throw("current Owner of NFT not able to purchase")
72+            else if ((owner == toString(i.caller)))
73+                then throw("owner never buy after sell")
74+                else [ScriptTransfer(i.caller, 1, assetId), ScriptTransfer(Address(fromBase58String(owner)), amount, unit), StringEntry(((toString(i.caller) + separator) + kBuy), ((nftID + separator) + toString(amount))), DeleteEntry((("nft_" + current_nft_owner) + "_owner"))]
29875     }
29976 
30077 
30178 
30279 @Callable(i)
30380 func addAuction (start,end,startPrice,duration) = {
30481     let txId = toBase58String(i.transactionId)
30582     let nftId = value(i.payments[0].assetId)
30683     let price = value(startPrice)
84+    let endHeight = (lastBlock.height + duration)
30785     let caller = i.caller.bytes
30886     let checkNftAuctioned =     match getString(this, (((toBase58String(nftId) + separator) + "nft_status_") + toBase58String(caller))) {
30987         case a: String => 
31088             true
31189         case _ => 
31290             false
31391     }
31492     if ((i.payments[0].assetId == unit))
31593         then throw("NFT not attached")
31694         else if ((checkNftAuctioned == true))
31795             then throw("Already in auction list")
318-            else [StringEntry(((txId + "_nft_start_auction_date_") + toBase58String(caller)), start), StringEntry(((txId + "_nft_end_auction_date_") + toBase58String(caller)), end), StringEntry((txId + "_nft_start_price"), startPrice), IntegerEntry((txId + "duration_of_auction"), duration), StringEntry((txId + "_nft_owner"), toString(i.caller)), StringEntry((txId + "_nft_on_auction"), toBase58String(nftId)), StringEntry((txId + "_previous_bidder"), "none"), StringEntry((txId + "_highest_bid"), "0"), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
96+            else if ((duration > maxAuctionDuration))
97+                then throw(("Duration is too long. Must be less than or equal to 7 " + toString(maxAuctionDuration)))
98+                else [StringEntry(((txId + "_nft_start_auction_date_") + toBase58String(caller)), start), StringEntry(((txId + "_nft_end_auction_date_") + toBase58String(caller)), end), StringEntry((txId + "_nft_start_price"), startPrice), StringEntry((txId + "_nft_owner"), toString(i.caller)), StringEntry((txId + "_nft_on_auction"), toBase58String(nftId)), StringEntry((txId + "_previous_bidder"), "none"), StringEntry((txId + "_highest_bid"), "0"), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
31999     }
320100 
321101 
322102 
323103 @Callable(i)
324104 func placeBid (auctionId,nftId,nft_owner,bid_price) = {
325105     let txId = toBase58String(i.transactionId)
326106     let caller = i.caller.bytes
327107     let assetId = fromBase58String(nftId)
328108     let currentBidPrice = i.payments[0].amount
329109     let getLastWinnerBidPrice = getStringValue(this, (auctionId + "_highest_bid"))
330110     let getPreviousBidderAddress = getString(this, (auctionId + "_previous_bidder"))
331111     let currentBidCount = getStringValue(this, (auctionId + "_bidder_count"))
332112     let getLastWinnerAddress = getStringValue(this, (auctionId + "_winner_of_nft"))
333113     let checkNftAuctioned = getStringValue(this, (auctionId + "_nft_status"))
334114     if ((i.payments[0].assetId != unit))
335115         then throw("Pay in waves")
336116         else if ((checkNftAuctioned != "OPEN"))
337117             then throw("Not open for auction")
338118             else if ((parseIntValue(getLastWinnerBidPrice) >= currentBidPrice))
339119                 then throw("Bid is less then starting/highest Bid")
340120                 else if ((getLastWinnerBidPrice == "0"))
341121                     then [StringEntry((auctionId + "_highest_bid"), toString(currentBidPrice)), StringEntry((auctionId + "_winner_of_nft"), toBase58String(i.caller.bytes)), StringEntry((auctionId + "_bidder_count"), toString((parseIntValue(currentBidCount) + 1))), StringEntry((auctionId + "_nft_id"), toBase58String(assetId)), StringEntry((auctionId + "_nft_owner"), nft_owner), StringEntry((((txId + "_") + auctionId) + "_highest_bid"), toString(currentBidPrice)), StringEntry((((txId + "_") + auctionId) + "_winner"), toBase58String(i.caller.bytes)), StringEntry((((txId + "_") + auctionId) + "_bidder_count"), toString((parseIntValue(currentBidCount) + 1))), StringEntry((((txId + "_") + auctionId) + "_nft_id"), toBase58String(assetId)), StringEntry((((txId + "_") + auctionId) + "_nft_owner"), nft_owner), StringEntry((txId + "_bid_for_nft_by"), toBase58String(caller)), StringEntry((txId + "_bid_price_place"), bid_price), StringEntry((txId + "_previous_bid_amount_refund_to_address"), getLastWinnerAddress), StringEntry((txId + "_prevoius_bid_amount_refund"), getLastWinnerBidPrice)]
342122                     else [StringEntry((auctionId + "_highest_bid"), toString(currentBidPrice)), StringEntry((auctionId + "_winner_of_nft"), toBase58String(i.caller.bytes)), StringEntry((auctionId + "_bidder_count"), toString((parseIntValue(currentBidCount) + 1))), StringEntry((auctionId + "_nft_id"), toBase58String(assetId)), StringEntry((auctionId + "_nft_owner"), nft_owner), StringEntry((((txId + "_") + auctionId) + "_highest_bid"), toString(currentBidPrice)), StringEntry((((txId + "_") + auctionId) + "_winner"), toBase58String(i.caller.bytes)), StringEntry((((txId + "_") + auctionId) + "_bidder_count"), toString((parseIntValue(currentBidCount) + 1))), StringEntry((((txId + "_") + auctionId) + "_nft_id"), toBase58String(assetId)), StringEntry((((txId + "_") + auctionId) + "_nft_owner"), nft_owner), StringEntry((txId + "_bid_for_nft_by"), toBase58String(caller)), StringEntry((txId + "_bid_price_place"), bid_price), StringEntry((txId + "_previous_bid_amount_refund_to_address"), getLastWinnerAddress), StringEntry((txId + "_prevoius_bid_amount_refund"), getLastWinnerBidPrice), ScriptTransfer(Address(fromBase58String(getLastWinnerAddress)), parseIntValue(getLastWinnerBidPrice), unit)]
343123     }
344124 
345125 
346126 
347127 @Callable(i)
348128 func acceptBidOffer (auctionId,nftId,bid_amount_from_user) = {
349129     let txId = toBase58String(i.transactionId)
350130     let caller = i.caller.bytes
351131     let assetId = fromBase58String(nftId)
352132     let getNftWinningPrice = getStringValue(this, (auctionId + "_highest_bid"))
353133     let getAuctionWinner = getStringValue(this, (auctionId + "_winner_of_nft"))
354134 [ScriptTransfer(Address(caller), parseIntValue(getNftWinningPrice), unit), ScriptTransfer(Address(fromBase58String(getAuctionWinner)), 1, assetId), StringEntry((txId + "_amount_paid_to_owner"), getNftWinningPrice), StringEntry((txId + "_nft_transfer_to"), getAuctionWinner), StringEntry((txId + "_nft_status"), "REWARDED"), StringEntry((auctionId + "_amount_paid_to_owner"), getNftWinningPrice), StringEntry((auctionId + "_nft_transfer_to"), getAuctionWinner), StringEntry((auctionId + "_nft_status"), "REWARDED")]
355135     }
356136 
357137 
358138 
359139 @Callable(i)
360140 func cancelAuction (auctionId) = {
361141     let txId = toBase58String(i.transactionId)
362142     let caller = i.caller.bytes
363143     let auctionStatus = getStringValue(this, (auctionId + "_nft_status"))
364144     let biddingWinner = getStringValue(this, (auctionId + "_winner_of_nft"))
365145     let nftOwner = getStringValue(this, (auctionId + "_nft_owner"))
366146     let nftId = getStringValue(this, (auctionId + "_nft_on_auction"))
367147     let biddingPrice = getStringValue(this, (auctionId + "_highest_bid"))
368148     if ((biddingWinner == "0"))
369149         then [StringEntry(((txId + auctionId) + "_nft_status"), "CANCELED"), ScriptTransfer(Address(fromBase58String(nftOwner)), 1, fromBase58String(nftId))]
370150         else [StringEntry((auctionId + "_nft_status"), "CANCELED"), StringEntry((auctionId + "_previous_bid_amount_refund_to_address"), biddingWinner), StringEntry((auctionId + "_prevoius_bid_amount_refund"), biddingPrice), StringEntry((txId + "_nft_status"), "CANCELED"), StringEntry((txId + "_previous_bid_amount_refund_to_address"), biddingWinner), StringEntry((txId + "_prevoius_bid_amount_refund"), biddingPrice), ScriptTransfer(Address(fromBase58String(nftOwner)), 1, fromBase58String(nftId)), ScriptTransfer(Address(fromBase58String(biddingWinner)), parseIntValue(biddingPrice), unit)]
371151     }
372152 
373153 
374154 
375155 @Callable(i)
376156 func withdrawBid (bidTxId) = {
377157     let caller = i.caller.bytes
378158     let bidPrice = getStringValue(this, (bidTxId + "_highest_bid"))
379159     let asBidder = getStringValue(this, (bidTxId + "_winner"))
380160     let bidForNFT = getStringValue(this, (bidTxId + "_nft_id"))
381161     if ((toBase58String(caller) != asBidder))
382162         then throw("No bid")
383163         else [StringEntry((bidTxId + "_nft_bid"), "WITHDRAW"), StringEntry((bidTxId + "_nft_id"), bidForNFT), StringEntry((bidTxId + "_bidding_price_refund_amount"), bidPrice), ScriptTransfer(i.caller, parseIntValue(bidPrice), unit)]
384164     }
385165 
386166 
387167 
388168 @Callable(i)
389169 func testBid (data) = [StringEntry("E8kkFBYCy44JJaq6pAZ6KizsuResi5UKNhbD1WNZwhhY_highest_bid", "0")]
390170 
391171 
github/deemru/w8io/026f985 
49.08 ms ◑