w8 · tx · 6Pa···eGt

tx · 6PaV3oCQCt4Tgh2BoysEtraes3fFmaD4dxYnhCwGyeGt

3N8VMRDjjw6kAuCviYwFq4yDWyctRuHPN7X:  -0.00800000 Waves

2022.11.11 16:25 [2312546] smart account 3N8VMRDjjw6kAuCviYwFq4yDWyctRuHPN7X > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6PaV3oCQCt4Tgh2BoysEtraes3fFmaD4dxYnhCwGyeGt",
    "fee": 800000,
    "feeAssetId": null,
    "timestamp": 1668173198810,
    "version": 2,
    "chainId": 84,
    "sender": "3N8VMRDjjw6kAuCviYwFq4yDWyctRuHPN7X",
    "senderPublicKey": "SrcQexq2T9cnMXmLqfJtc8AnQ91ZjeaJtXoi1HwDsx9",
    "proofs": [
        "637rvUftATgUhTSbE3pT2pGUrZ8WhEW1ADbDpEWwy3btVceWwuNbxxTQCEtXnAXktBeUrSmkrhQcGLaix5WykAsV"
    ],
    "script": "base64:BgIhCAISBAoCCAESAwoBCBIDCgEIEgMKAQgSAwoBCBIDCgEIEQEIcHJpY2VLZXkBBWFzc2V0CQCsAgIFBWFzc2V0AgZfcHJpY2UBCG93bmVyS2V5AQVhc3NldAkArAICBQVhc3NldAIGX293bmVyAQlpc3N1ZXJLZXkBBWFzc2V0CQCsAgIFBWFzc2V0AgdfaXNzdWVyAQduYW1lS2V5AQVhc3NldAkArAICBQVhc3NldAIFX25hbWUBDmRlc2NyaXB0aW9uS2V5AQVhc3NldAkArAICBQVhc3NldAIMX2Rlc2NyaXB0aW9uAQthc3NldEFjY2VzcwEFYXNzZXQJAKwCAgUFYXNzZXQCCV9hc3NldEJ1eQEKYXNzZXRPZmZlcgEFYXNzZXQJAKwCAgUFYXNzZXQCBl9vZmZlcgEOYXNzZXRPZmZlclN3YXABBWFzc2V0CQCsAgIFBWFzc2V0AgZfb2ZmZXIBDXRyeUdldEludGVnZXIBA2tleQQDdmFsBAckbWF0Y2gwCQCaCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAUDdmFsAQx0cnlHZXRTdHJpbmcBA2tleQQDdmFsBAckbWF0Y2gwCQCdCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAWIFByRtYXRjaDAFAWICAAUDdmFsAQp0cnlHZXRCb29sAQNrZXkEA3ZhbAQHJG1hdGNoMAkAmwgCBQR0aGlzBQNrZXkDCQABAgUHJG1hdGNoMAIHQm9vbGVhbgQBYgUHJG1hdGNoMAUBYgcFA3ZhbAELaXNQYXltZW50T2sDAWkRYWNjZXB0YWJsZUFzc2V0SWQFcHJpY2UDCQAAAgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUUGF5bWVudCBub3QgYXR0YWNoZWQEAXAJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQDdmFsBAckbWF0Y2gwCAUBcAdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEB2Fzc2V0SWQFByRtYXRjaDADCQAAAgkA2AQBBQdhc3NldElkBRFhY2NlcHRhYmxlQXNzZXRJZAkAZwIIBQFwBmFtb3VudAUFcHJpY2UHAwkAAQIFByRtYXRjaDACBFVuaXQEBXdhdmVzBQckbWF0Y2gwCQBnAggFAXAGYW1vdW50BQVwcmljZQkAAgECC01hdGNoIGVycm9yBQN2YWwBD2lzQWNjZXB0YWJsZU5mdAIGc3RhdHVzCWFzc2V0U2FsZQQHaWRBc3NldAQHJG1hdGNoMAgFCWFzc2V0U2FsZQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAFAWIDCQABAgUHJG1hdGNoMAIEVW5pdAQBYgUHJG1hdGNoMAED0AAACQACAQILTWF0Y2ggZXJyb3IEBWFzc2V0BAckbWF0Y2gwCQDsBwEFB2lkQXNzZXQDCQABAgUHJG1hdGNoMAIFQXNzZXQEAWIFByRtYXRjaDAJANgEAQgIBQFiBmlzc3VlcgVieXRlcwMJAAECBQckbWF0Y2gwAgRVbml0BAV3YXZlcwUHJG1hdGNoMAIFV0FWRVMJAAIBAgtNYXRjaCBlcnJvcgMJAQp0cnlHZXRCb29sAQUFYXNzZXQFBnN0YXR1cwcBCmdldEFzc2V0SWQCBnN0YXR1cwlhc3NldFNhbGUEB2lkQXNzZXQEByRtYXRjaDAIBQlhc3NldFNhbGUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFiBQckbWF0Y2gwCQDYBAEFAWIDCQABAgUHJG1hdGNoMAIEVW5pdAQBYgUHJG1hdGNoMAIFV0FWRVMJAAIBAgtNYXRjaCBlcnJvcgkArAICCQCsAgIFBnN0YXR1cwIBXwUHaWRBc3NldAENZ2V0QXNzZXRQcmljZQIGc3RhdHVzCWFzc2V0U2FsZQQFcHJpY2UJAKQDAQgFCWFzc2V0U2FsZQZhbW91bnQJAKwCAgkArAICBQZzdGF0dXMCAV8FBXByaWNlAQ5nZXRBc3NldElzc3VlcgIGc3RhdHVzCWFzc2V0U2FsZQQHaWRBc3NldAQHJG1hdGNoMAgFCWFzc2V0U2FsZQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAFAWIDCQABAgUHJG1hdGNoMAIEVW5pdAQBYgUHJG1hdGNoMAED0AAACQACAQILTWF0Y2ggZXJyb3IEBmlzc3VlcgQHJG1hdGNoMAkA7AcBBQdpZEFzc2V0AwkAAQIFByRtYXRjaDACBUFzc2V0BAFiBQckbWF0Y2gwCQDYBAEICAUBYgZpc3N1ZXIFYnl0ZXMDCQABAgUHJG1hdGNoMAIEVW5pdAQBYgUHJG1hdGNoMAIFV0FWRVMJAAIBAgtNYXRjaCBlcnJvcgkArAICCQCsAgIFBnN0YXR1cwIBXwUGaXNzdWVyARBnZXRUcmFuc2ZlckFzc2V0AgZzdGF0dXMEZGF0YQQPdHJhbnNmZXJBZGRyZXNzBAckbWF0Y2gwCQCmCAEIBQRkYXRhAl8xAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWIFByRtYXRjaDAFAWIDCQABAgUHJG1hdGNoMAIEVW5pdAQBYgUHJG1hdGNoMAUEdGhpcwkAAgECC01hdGNoIGVycm9yAwkBAiE9AggFBGRhdGECXzMCBVdBVkVTCQDNCAIFBnN0YXR1cwkBDlNjcmlwdFRyYW5zZmVyAwUPdHJhbnNmZXJBZGRyZXNzCAUEZGF0YQJfMgkA2QQBCAUEZGF0YQJfMwkAzQgCBQZzdGF0dXMJAQ5TY3JpcHRUcmFuc2ZlcgMFD3RyYW5zZmVyQWRkcmVzcwgFBGRhdGECXzIFBHVuaXQGAWkBDG9mZmVyRm9yU2FsZQIMYXNzZXRJZFByaWNlBXByaWNlAwkBASEBAwkBCnRyeUdldEJvb2wBCQELYXNzZXRBY2Nlc3MBBQxhc3NldElkUHJpY2UJAGYCBQVwcmljZQAABwkAAgECFFNhbGUgQXNzZXQgaW5jb3JyZWN0BAxmaXJzdFBheW1lbnQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQHYXNzZXRJZAQHJG1hdGNoMAgFDGZpcnN0UGF5bWVudAdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAmlkBQckbWF0Y2gwBQJpZAMJAAECBQckbWF0Y2gwAgRVbml0BAF3BQckbWF0Y2gwCQACAQIQQXNzZXQgaXMgbm90IE5GVAkAAgECC01hdGNoIGVycm9yBAphc3NldElkU3RyCQDYBAEFB2Fzc2V0SWQEBWFzc2V0BAckbWF0Y2gwCQDsBwEFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIFQXNzZXQEAWEFByRtYXRjaDAFAWEJAAIBAiVFcnJvciBnZXR0aW5nIGluZm9ybWF0aW9uIGFib3V0IGFzc2V0AwMDCQECIT0CCAUFYXNzZXQIcXVhbnRpdHkAAQkBAiE9AggFBWFzc2V0CGRlY2ltYWxzAAAHCAUFYXNzZXQKcmVpc3N1YWJsZQcJAAIBAhBBc3NldCBpcyBub3QgTkZUCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEIcHJpY2VLZXkBBQphc3NldElkU3RyBQVwcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQEIb3duZXJLZXkBBQphc3NldElkU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJAMwIAgkBC1N0cmluZ0VudHJ5AgkBCWlzc3VlcktleQEFCmFzc2V0SWRTdHIJANgEAQgIBQVhc3NldAZpc3N1ZXIFYnl0ZXMJAMwIAgkBC1N0cmluZ0VudHJ5AgkBB25hbWVLZXkBBQphc3NldElkU3RyCAUFYXNzZXQEbmFtZQkAzAgCCQELU3RyaW5nRW50cnkCCQEOZGVzY3JpcHRpb25LZXkBBQphc3NldElkU3RyCAUFYXNzZXQLZGVzY3JpcHRpb24JAMwIAgkBC1N0cmluZ0VudHJ5AgkBCmFzc2V0T2ZmZXIBBQphc3NldElkU3RyBQxhc3NldElkUHJpY2UFA25pbAFpAQxvZmZlckZvclN3YXABDGFzc2V0SWRQcmljZQQGc3RhdHVzCgACJGwIBQFpCHBheW1lbnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAYKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD2lzQWNjZXB0YWJsZU5mdAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIDCQEBIQEFBnN0YXR1cwkAAgECElBheW1lbnRzIGluY29ycmVjdAMJAGYCCQENdHJ5R2V0SW50ZWdlcgECCmNvbW1pc3Npb24ICQCRAwIIBQFpCHBheW1lbnRzAAEGYW1vdW50CQACAQIVTm8gbWluaW11bSBjb21taXNzaW9uBApwYXltZW50QWxsCgACJGwIBQFpCHBheW1lbnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAIEU3dhcAoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEKZ2V0QXNzZXRJZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMgkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIEBmlzc3VlcgoAAiRsCAUBaQhwYXltZW50cwoAAiRzCQCQAwEFAiRsCgAFJGFjYzACBFN3YXAKAQUkZjJfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDmdldEFzc2V0SXNzdWVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYyXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAyCQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgQFcHJpY2UKAAIkbAgFAWkIcGF5bWVudHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAgRTd2FwCgEFJGYzXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ1nZXRBc3NldFByaWNlAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYzXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAyCQEFJGYzXzICCQEFJGYzXzECCQEFJGYzXzECBQUkYWNjMAAAAAEAAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAQhwcmljZUtleQEFCnBheW1lbnRBbGwCBFN3YXAFBXByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkBCG93bmVyS2V5AQUKcGF5bWVudEFsbAIEU3dhcAkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkBCWlzc3VlcktleQEFCnBheW1lbnRBbGwCBFN3YXAFBmlzc3VlcgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAQphc3NldE9mZmVyAQUKcGF5bWVudEFsbAIEU3dhcAUMYXNzZXRJZFByaWNlBQNuaWwBaQEDYnV5AQhhc3NldFN0cgQFcHJpY2UJAQ10cnlHZXRJbnRlZ2VyAQkBCHByaWNlS2V5AQUIYXNzZXRTdHIEEWFjY2VwdGFibGVBc3NldElkCQEMdHJ5R2V0U3RyaW5nAQkBCmFzc2V0T2ZmZXIBBQhhc3NldFN0cgQIb3duZXJTdHIJAQx0cnlHZXRTdHJpbmcBCQEIb3duZXJLZXkBBQhhc3NldFN0cgQFb3duZXIEByRtYXRjaDAJAKYIAQUIb3duZXJTdHIDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAUBYQkAAgECFUFkZHJlc3MgcGFyc2luZyBlcnJvcgMJAQEhAQkBC2lzUGF5bWVudE9rAwUBaQURYWNjZXB0YWJsZUFzc2V0SWQFBXByaWNlCQACAQIdV3JvbmcgcGF5bWVudCBhbW91bnQgb3IgYXNzZXQDCQAAAgUIb3duZXJTdHIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkAAgECGE93bmVyIGNhbm5vdCBidXkgaGlzIE5URgMJAAACBQVwcmljZQAACQACAQIYVGhpcyBORlQgaXMgbm90IGZvciBzYWxlBANmZWUJAGgCCQBpAgUFcHJpY2UAZAAFCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABCQDZBAEFCGFzc2V0U3RyCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBW93bmVyCQBlAgUFcHJpY2UFA2ZlZQUEdW5pdAkAzAgCCQELRGVsZXRlRW50cnkBCQEIcHJpY2VLZXkBBQhhc3NldFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEIb3duZXJLZXkBBQhhc3NldFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEJaXNzdWVyS2V5AQUIYXNzZXRTdHIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBB25hbWVLZXkBBQhhc3NldFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEOZGVzY3JpcHRpb25LZXkBBQhhc3NldFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEKYXNzZXRPZmZlcgEFCGFzc2V0U3RyBQNuaWwBaQEIc3dhcERvbmUBB29mZmVySWQEBXByaWNlCQEMdHJ5R2V0U3RyaW5nAQkArAICCQEIcHJpY2VLZXkBBQdvZmZlcklkAgRTd2FwBAVvZmZlcgkBDHRyeUdldFN0cmluZwEJAKwCAgkBCmFzc2V0T2ZmZXIBBQdvZmZlcklkAgRTd2FwBApvd25lck9mZmVyCQEMdHJ5R2V0U3RyaW5nAQkArAICCQEIb3duZXJLZXkBBQdvZmZlcklkAgRTd2FwBAhvd25lck5mdAkBDHRyeUdldFN0cmluZwEJAQhvd25lcktleQEFBW9mZmVyBAxlcnJvckFkZHJlc3MEByRtYXRjaDAJAKYIAQUIb3duZXJOZnQDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAUBYQkAAgECGFRoaXMgTkZUIGlzIG5vdCBmb3Igc2FsZQQMb2ZmZXJPbkFzc2V0CQEMdHJ5R2V0U3RyaW5nAQkArAICCQEKYXNzZXRPZmZlcgEFB29mZmVySWQCBFN3YXADCQECIT0CBQhvd25lck5mdAkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQACAQI1VGhlIGNhbGxpbmcgYWRkcmVzcyBpcyBub3QgdGhlIG93bmVyIG9mIHRoZSBORlQgdG9rZW4EA2ZlZQkBDXRyeUdldEludGVnZXIBAgpjb21taXNzaW9uBAlsaXN0QXNzZXQJALUJAgUHb2ZmZXJJZAIBXwQJbGlzdFByaWNlCQC1CQIFBXByaWNlAgFfCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCG93bmVyTmZ0CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJbGlzdFByaWNlAAEJANkEAQkAkQMCBQlsaXN0QXNzZXQAAQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQhvd25lck5mdAkAZQIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlsaXN0UHJpY2UAAgUDZmVlBQR1bml0CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCm93bmVyT2ZmZXIAAQkA2QQBBQxvZmZlck9uQXNzZXQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBCHByaWNlS2V5AQUMb2ZmZXJPbkFzc2V0CQDMCAIJAQtEZWxldGVFbnRyeQEJAQhvd25lcktleQEFDG9mZmVyT25Bc3NldAkAzAgCCQELRGVsZXRlRW50cnkBCQEJaXNzdWVyS2V5AQUMb2ZmZXJPbkFzc2V0CQDMCAIJAQtEZWxldGVFbnRyeQEJAQduYW1lS2V5AQUMb2ZmZXJPbkFzc2V0CQDMCAIJAQtEZWxldGVFbnRyeQEJAQphc3NldE9mZmVyAQUMb2ZmZXJPbkFzc2V0CQDMCAIJAQtEZWxldGVFbnRyeQEJAQ5kZXNjcmlwdGlvbktleQEFDG9mZmVyT25Bc3NldAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIJAQhwcmljZUtleQEFB29mZmVySWQCBFN3YXAJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICCQEIb3duZXJLZXkBBQdvZmZlcklkAgRTd2FwCQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgkBCWlzc3VlcktleQEFB29mZmVySWQCBFN3YXAJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICCQEKYXNzZXRPZmZlcgEFB29mZmVySWQCBFN3YXAFA25pbAFpAQ1jYW5jZWxTZWxsaW5nAQhhc3NldFN0cgQIb3duZXJTdHIJAQx0cnlHZXRTdHJpbmcBCQEIb3duZXJLZXkBBQhhc3NldFN0cgQFb3duZXIEByRtYXRjaDAJAKYIAQUIb3duZXJTdHIDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAUBYQkAAgECFUFkZHJlc3MgcGFyc2luZyBlcnJvcgMJAQIhPQIFCG93bmVyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJAAIBAjVUaGUgY2FsbGluZyBhZGRyZXNzIGlzIG5vdCB0aGUgb3duZXIgb2YgdGhlIE5GVCB0b2tlbgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIAAQkA2QQBBQhhc3NldFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEIcHJpY2VLZXkBBQhhc3NldFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEIb3duZXJLZXkBBQhhc3NldFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEJaXNzdWVyS2V5AQUIYXNzZXRTdHIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBB25hbWVLZXkBBQhhc3NldFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEOZGVzY3JpcHRpb25LZXkBBQhhc3NldFN0cgUDbmlsAWkBCnN3YXBDYW5jZWwBB29mZmVySWQECm93bmVyT2ZmZXIJAQx0cnlHZXRTdHJpbmcBCQCsAgIJAQhvd25lcktleQEFB29mZmVySWQCBFN3YXAEBXByaWNlCQEMdHJ5R2V0U3RyaW5nAQkArAICCQEIcHJpY2VLZXkBBQdvZmZlcklkAgRTd2FwAwkBAiE9AgUKb3duZXJPZmZlcgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQACAQI1VGhlIGNhbGxpbmcgYWRkcmVzcyBpcyBub3QgdGhlIG93bmVyIG9mIHRoZSBORlQgdG9rZW4ECWxpc3RBc3NldAkAtQkCBQdvZmZlcklkAgFfBAlsaXN0UHJpY2UJALUJAgUFcHJpY2UCAV8JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUKb3duZXJPZmZlcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWxpc3RQcmljZQABCQDZBAEJAJEDAgUJbGlzdEFzc2V0AAEJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUKb3duZXJPZmZlcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWxpc3RQcmljZQACBQR1bml0CQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgkBCHByaWNlS2V5AQUHb2ZmZXJJZAIEU3dhcAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIJAQhvd25lcktleQEFB29mZmVySWQCBFN3YXAJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICCQEJaXNzdWVyS2V5AQUHb2ZmZXJJZAIEU3dhcAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIJAQphc3NldE9mZmVyAQUHb2ZmZXJJZAIEU3dhcAUDbmlsAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tlefyuyts=",
    "height": 2312546,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: EN7aMR9m1tb7xZf67xxJUv5nKUnzEJ9oYuQW31FF1hEs
Next: DAzxxT7y6e3FHgfsW4KwhQai7mtuSCg2yzsDaT3mGhS9

Diff: 
Old New Differences
189 189  
190 190  @Callable(i)
191 191  func offerForSwap (assetIdPrice) = {
192 -     let countPay = size(i.payments)
193 192      let status = {
194 193          let $l = i.payments
195 194          let $s = size($l)
288 287      let offer = tryGetString((assetOffer(offerId) + "Swap"))
289 288      let ownerOffer = tryGetString((ownerKey(offerId) + "Swap"))
290 289      let ownerNft = tryGetString(ownerKey(offer))
290 +     let errorAddress =     match addressFromString(ownerNft) {
291 +         case a: Address => 
292 +             a
293 +         case _ => 
294 +             throw("This NFT is not for sale")
295 +     }
291 296      let offerOnAsset = tryGetString((assetOffer(offerId) + "Swap"))
292 297      if ((ownerNft != toBase58String(i.caller.bytes)))
293 298          then throw("The calling address is not the owner of the NFT token")
294 -         else if ((price == ""))
295 -             then throw("This NFT is not for sale")
296 -             else {
297 -                 let fee = tryGetInteger("commission")
298 -                 let listAsset = split(offerId, "_")
299 -                 let listPrice = split(price, "_")
300 - [ScriptTransfer(addressFromStringValue(ownerNft), parseIntValue(listPrice[1]), fromBase58String(listAsset[1])), ScriptTransfer(addressFromStringValue(ownerNft), (parseIntValue(listPrice[2]) - fee), unit), ScriptTransfer(addressFromStringValue(ownerOffer), 1, fromBase58String(offerOnAsset)), DeleteEntry(priceKey(offerOnAsset)), DeleteEntry(ownerKey(offerOnAsset)), DeleteEntry(issuerKey(offerOnAsset)), DeleteEntry(nameKey(offerOnAsset)), DeleteEntry(descriptionKey(offerOnAsset)), DeleteEntry((priceKey(offerId) + "Swap")), DeleteEntry((ownerKey(offerId) + "Swap")), DeleteEntry((issuerKey(offerId) + "Swap"))]
301 -                 }
299 +         else {
300 +             let fee = tryGetInteger("commission")
301 +             let listAsset = split(offerId, "_")
302 +             let listPrice = split(price, "_")
303 + [ScriptTransfer(addressFromStringValue(ownerNft), parseIntValue(listPrice[1]), fromBase58String(listAsset[1])), ScriptTransfer(addressFromStringValue(ownerNft), (parseIntValue(listPrice[2]) - fee), unit), ScriptTransfer(addressFromStringValue(ownerOffer), 1, fromBase58String(offerOnAsset)), DeleteEntry(priceKey(offerOnAsset)), DeleteEntry(ownerKey(offerOnAsset)), DeleteEntry(issuerKey(offerOnAsset)), DeleteEntry(nameKey(offerOnAsset)), DeleteEntry(assetOffer(offerOnAsset)), DeleteEntry(descriptionKey(offerOnAsset)), DeleteEntry((priceKey(offerId) + "Swap")), DeleteEntry((ownerKey(offerId) + "Swap")), DeleteEntry((issuerKey(offerId) + "Swap")), DeleteEntry((assetOffer(offerId) + "Swap"))]
304 +             }
302 305      }
303 306  
304 307  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  func priceKey (asset) = (asset + "_price")
5 5  
6 6  
7 7  func ownerKey (asset) = (asset + "_owner")
8 8  
9 9  
10 10  func issuerKey (asset) = (asset + "_issuer")
11 11  
12 12  
13 13  func nameKey (asset) = (asset + "_name")
14 14  
15 15  
16 16  func descriptionKey (asset) = (asset + "_description")
17 17  
18 18  
19 19  func assetAccess (asset) = (asset + "_assetBuy")
20 20  
21 21  
22 22  func assetOffer (asset) = (asset + "_offer")
23 23  
24 24  
25 25  func assetOfferSwap (asset) = (asset + "_offer")
26 26  
27 27  
28 28  func tryGetInteger (key) = {
29 29      let val =     match getInteger(this, key) {
30 30          case b: Int => 
31 31              b
32 32          case _ => 
33 33              0
34 34      }
35 35      val
36 36      }
37 37  
38 38  
39 39  func tryGetString (key) = {
40 40      let val =     match getString(this, key) {
41 41          case b: String => 
42 42              b
43 43          case _ => 
44 44              ""
45 45      }
46 46      val
47 47      }
48 48  
49 49  
50 50  func tryGetBool (key) = {
51 51      let val =     match getBoolean(this, key) {
52 52          case b: Boolean => 
53 53              b
54 54          case _ => 
55 55              false
56 56      }
57 57      val
58 58      }
59 59  
60 60  
61 61  func isPaymentOk (i,acceptableAssetId,price) = if ((size(i.payments) == 0))
62 62      then throw("Payment not attached")
63 63      else {
64 64          let p = value(i.payments[0])
65 65          let val =         match p.assetId {
66 66              case assetId: ByteVector => 
67 67                  if ((toBase58String(assetId) == acceptableAssetId))
68 68                      then (p.amount >= price)
69 69                      else false
70 70              case waves: Unit => 
71 71                  (p.amount >= price)
72 72              case _ => 
73 73                  throw("Match error")
74 74          }
75 75          val
76 76          }
77 77  
78 78  
79 79  func isAcceptableNft (status,assetSale) = {
80 80      let idAsset =     match assetSale.assetId {
81 81          case b: ByteVector => 
82 82              b
83 83          case b: Unit => 
84 84              base58'2CsAf'
85 85          case _ => 
86 86              throw("Match error")
87 87      }
88 88      let asset =     match assetInfo(idAsset) {
89 89          case b: Asset => 
90 90              toBase58String(b.issuer.bytes)
91 91          case waves: Unit => 
92 92              "WAVES"
93 93          case _ => 
94 94              throw("Match error")
95 95      }
96 96      if (tryGetBool(asset))
97 97          then status
98 98          else false
99 99      }
100 100  
101 101  
102 102  func getAssetId (status,assetSale) = {
103 103      let idAsset =     match assetSale.assetId {
104 104          case b: ByteVector => 
105 105              toBase58String(b)
106 106          case b: Unit => 
107 107              "WAVES"
108 108          case _ => 
109 109              throw("Match error")
110 110      }
111 111      ((status + "_") + idAsset)
112 112      }
113 113  
114 114  
115 115  func getAssetPrice (status,assetSale) = {
116 116      let price = toString(assetSale.amount)
117 117      ((status + "_") + price)
118 118      }
119 119  
120 120  
121 121  func getAssetIssuer (status,assetSale) = {
122 122      let idAsset =     match assetSale.assetId {
123 123          case b: ByteVector => 
124 124              b
125 125          case b: Unit => 
126 126              base58'2CsAf'
127 127          case _ => 
128 128              throw("Match error")
129 129      }
130 130      let issuer =     match assetInfo(idAsset) {
131 131          case b: Asset => 
132 132              toBase58String(b.issuer.bytes)
133 133          case b: Unit => 
134 134              "WAVES"
135 135          case _ => 
136 136              throw("Match error")
137 137      }
138 138      ((status + "_") + issuer)
139 139      }
140 140  
141 141  
142 142  func getTransferAsset (status,data) = {
143 143      let transferAddress =     match addressFromString(data._1) {
144 144          case b: Address => 
145 145              b
146 146          case b: Unit => 
147 147              this
148 148          case _ => 
149 149              throw("Match error")
150 150      }
151 151      if ((data._3 != "WAVES"))
152 152          then (status :+ ScriptTransfer(transferAddress, data._2, fromBase58String(data._3)))
153 153          else (status :+ ScriptTransfer(transferAddress, data._2, unit))
154 154      }
155 155  
156 156  
157 157  @Callable(i)
158 158  func offerForSale (assetIdPrice,price) = if (!(if (tryGetBool(assetAccess(assetIdPrice)))
159 159      then (price > 0)
160 160      else false))
161 161      then throw("Sale Asset incorrect")
162 162      else {
163 163          let firstPayment = value(i.payments[0])
164 164          let assetId =         match firstPayment.assetId {
165 165              case id: ByteVector => 
166 166                  id
167 167              case w: Unit => 
168 168                  throw("Asset is not NFT")
169 169              case _ => 
170 170                  throw("Match error")
171 171          }
172 172          let assetIdStr = toBase58String(assetId)
173 173          let asset =         match assetInfo(assetId) {
174 174              case a: Asset => 
175 175                  a
176 176              case _ => 
177 177                  throw("Error getting information about asset")
178 178          }
179 179          if (if (if ((asset.quantity != 1))
180 180              then (asset.decimals != 0)
181 181              else false)
182 182              then asset.reissuable
183 183              else false)
184 184              then throw("Asset is not NFT")
185 185              else [IntegerEntry(priceKey(assetIdStr), price), StringEntry(ownerKey(assetIdStr), toBase58String(i.caller.bytes)), StringEntry(issuerKey(assetIdStr), toBase58String(asset.issuer.bytes)), StringEntry(nameKey(assetIdStr), asset.name), StringEntry(descriptionKey(assetIdStr), asset.description), StringEntry(assetOffer(assetIdStr), assetIdPrice)]
186 186          }
187 187  
188 188  
189 189  
190 190  @Callable(i)
191 191  func offerForSwap (assetIdPrice) = {
192 -     let countPay = size(i.payments)
193 192      let status = {
194 193          let $l = i.payments
195 194          let $s = size($l)
196 195          let $acc0 = true
197 196          func $f0_1 ($a,$i) =         if (($i >= $s))
198 197              then $a
199 198              else isAcceptableNft($a, $l[$i])
200 199  
201 200          func $f0_2 ($a,$i) =         if (($i >= $s))
202 201              then $a
203 202              else throw("List size exceeds 2")
204 203  
205 204          $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
206 205          }
207 206      if (!(status))
208 207          then throw("Payments incorrect")
209 208          else if ((tryGetInteger("commission") > i.payments[1].amount))
210 209              then throw("No minimum commission")
211 210              else {
212 211                  let paymentAll = {
213 212                      let $l = i.payments
214 213                      let $s = size($l)
215 214                      let $acc0 = "Swap"
216 215                      func $f1_1 ($a,$i) =                     if (($i >= $s))
217 216                          then $a
218 217                          else getAssetId($a, $l[$i])
219 218  
220 219                      func $f1_2 ($a,$i) =                     if (($i >= $s))
221 220                          then $a
222 221                          else throw("List size exceeds 2")
223 222  
224 223                      $f1_2($f1_1($f1_1($acc0, 0), 1), 2)
225 224                      }
226 225                  let issuer = {
227 226                      let $l = i.payments
228 227                      let $s = size($l)
229 228                      let $acc0 = "Swap"
230 229                      func $f2_1 ($a,$i) =                     if (($i >= $s))
231 230                          then $a
232 231                          else getAssetIssuer($a, $l[$i])
233 232  
234 233                      func $f2_2 ($a,$i) =                     if (($i >= $s))
235 234                          then $a
236 235                          else throw("List size exceeds 2")
237 236  
238 237                      $f2_2($f2_1($f2_1($acc0, 0), 1), 2)
239 238                      }
240 239                  let price = {
241 240                      let $l = i.payments
242 241                      let $s = size($l)
243 242                      let $acc0 = "Swap"
244 243                      func $f3_1 ($a,$i) =                     if (($i >= $s))
245 244                          then $a
246 245                          else getAssetPrice($a, $l[$i])
247 246  
248 247                      func $f3_2 ($a,$i) =                     if (($i >= $s))
249 248                          then $a
250 249                          else throw("List size exceeds 2")
251 250  
252 251                      $f3_2($f3_1($f3_1($acc0, 0), 1), 2)
253 252                      }
254 253  [StringEntry((priceKey(paymentAll) + "Swap"), price), StringEntry((ownerKey(paymentAll) + "Swap"), toBase58String(i.caller.bytes)), StringEntry((issuerKey(paymentAll) + "Swap"), issuer), StringEntry((assetOffer(paymentAll) + "Swap"), assetIdPrice)]
255 254                  }
256 255      }
257 256  
258 257  
259 258  
260 259  @Callable(i)
261 260  func buy (assetStr) = {
262 261      let price = tryGetInteger(priceKey(assetStr))
263 262      let acceptableAssetId = tryGetString(assetOffer(assetStr))
264 263      let ownerStr = tryGetString(ownerKey(assetStr))
265 264      let owner =     match addressFromString(ownerStr) {
266 265          case a: Address => 
267 266              a
268 267          case _ => 
269 268              throw("Address parsing error")
270 269      }
271 270      if (!(isPaymentOk(i, acceptableAssetId, price)))
272 271          then throw("Wrong payment amount or asset")
273 272          else if ((ownerStr == toBase58String(i.caller.bytes)))
274 273              then throw("Owner cannot buy his NTF")
275 274              else if ((price == 0))
276 275                  then throw("This NFT is not for sale")
277 276                  else {
278 277                      let fee = ((price / 100) * 5)
279 278  [ScriptTransfer(i.caller, 1, fromBase58String(assetStr)), ScriptTransfer(owner, (price - fee), unit), DeleteEntry(priceKey(assetStr)), DeleteEntry(ownerKey(assetStr)), DeleteEntry(issuerKey(assetStr)), DeleteEntry(nameKey(assetStr)), DeleteEntry(descriptionKey(assetStr)), DeleteEntry(assetOffer(assetStr))]
280 279                      }
281 280      }
282 281  
283 282  
284 283  
285 284  @Callable(i)
286 285  func swapDone (offerId) = {
287 286      let price = tryGetString((priceKey(offerId) + "Swap"))
288 287      let offer = tryGetString((assetOffer(offerId) + "Swap"))
289 288      let ownerOffer = tryGetString((ownerKey(offerId) + "Swap"))
290 289      let ownerNft = tryGetString(ownerKey(offer))
290 +     let errorAddress =     match addressFromString(ownerNft) {
291 +         case a: Address => 
292 +             a
293 +         case _ => 
294 +             throw("This NFT is not for sale")
295 +     }
291 296      let offerOnAsset = tryGetString((assetOffer(offerId) + "Swap"))
292 297      if ((ownerNft != toBase58String(i.caller.bytes)))
293 298          then throw("The calling address is not the owner of the NFT token")
294 -         else if ((price == ""))
295 -             then throw("This NFT is not for sale")
296 -             else {
297 -                 let fee = tryGetInteger("commission")
298 -                 let listAsset = split(offerId, "_")
299 -                 let listPrice = split(price, "_")
300 - [ScriptTransfer(addressFromStringValue(ownerNft), parseIntValue(listPrice[1]), fromBase58String(listAsset[1])), ScriptTransfer(addressFromStringValue(ownerNft), (parseIntValue(listPrice[2]) - fee), unit), ScriptTransfer(addressFromStringValue(ownerOffer), 1, fromBase58String(offerOnAsset)), DeleteEntry(priceKey(offerOnAsset)), DeleteEntry(ownerKey(offerOnAsset)), DeleteEntry(issuerKey(offerOnAsset)), DeleteEntry(nameKey(offerOnAsset)), DeleteEntry(descriptionKey(offerOnAsset)), DeleteEntry((priceKey(offerId) + "Swap")), DeleteEntry((ownerKey(offerId) + "Swap")), DeleteEntry((issuerKey(offerId) + "Swap"))]
301 -                 }
299 +         else {
300 +             let fee = tryGetInteger("commission")
301 +             let listAsset = split(offerId, "_")
302 +             let listPrice = split(price, "_")
303 + [ScriptTransfer(addressFromStringValue(ownerNft), parseIntValue(listPrice[1]), fromBase58String(listAsset[1])), ScriptTransfer(addressFromStringValue(ownerNft), (parseIntValue(listPrice[2]) - fee), unit), ScriptTransfer(addressFromStringValue(ownerOffer), 1, fromBase58String(offerOnAsset)), DeleteEntry(priceKey(offerOnAsset)), DeleteEntry(ownerKey(offerOnAsset)), DeleteEntry(issuerKey(offerOnAsset)), DeleteEntry(nameKey(offerOnAsset)), DeleteEntry(assetOffer(offerOnAsset)), DeleteEntry(descriptionKey(offerOnAsset)), DeleteEntry((priceKey(offerId) + "Swap")), DeleteEntry((ownerKey(offerId) + "Swap")), DeleteEntry((issuerKey(offerId) + "Swap")), DeleteEntry((assetOffer(offerId) + "Swap"))]
304 +             }
302 305      }
303 306  
304 307  
305 308  
306 309  @Callable(i)
307 310  func cancelSelling (assetStr) = {
308 311      let ownerStr = tryGetString(ownerKey(assetStr))
309 312      let owner =     match addressFromString(ownerStr) {
310 313          case a: Address => 
311 314              a
312 315          case _ => 
313 316              throw("Address parsing error")
314 317      }
315 318      if ((ownerStr != toBase58String(i.caller.bytes)))
316 319          then throw("The calling address is not the owner of the NFT token")
317 320          else [ScriptTransfer(i.caller, 1, fromBase58String(assetStr)), DeleteEntry(priceKey(assetStr)), DeleteEntry(ownerKey(assetStr)), DeleteEntry(issuerKey(assetStr)), DeleteEntry(nameKey(assetStr)), DeleteEntry(descriptionKey(assetStr))]
318 321      }
319 322  
320 323  
321 324  
322 325  @Callable(i)
323 326  func swapCancel (offerId) = {
324 327      let ownerOffer = tryGetString((ownerKey(offerId) + "Swap"))
325 328      let price = tryGetString((priceKey(offerId) + "Swap"))
326 329      if ((ownerOffer != toBase58String(i.caller.bytes)))
327 330          then throw("The calling address is not the owner of the NFT token")
328 331          else {
329 332              let listAsset = split(offerId, "_")
330 333              let listPrice = split(price, "_")
331 334  [ScriptTransfer(addressFromStringValue(ownerOffer), parseIntValue(listPrice[1]), fromBase58String(listAsset[1])), ScriptTransfer(addressFromStringValue(ownerOffer), parseIntValue(listPrice[2]), unit), DeleteEntry((priceKey(offerId) + "Swap")), DeleteEntry((ownerKey(offerId) + "Swap")), DeleteEntry((issuerKey(offerId) + "Swap")), DeleteEntry((assetOffer(offerId) + "Swap"))]
332 335              }
333 336      }
334 337  
335 338  
336 339  @Verifier(tx)
337 340  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
338 341

Old	New		Differences
189	189
190	190		@Callable(i)
191	191		func offerForSwap (assetIdPrice) = {
192		-	let countPay = size(i.payments)
193	192		let status = {
194	193		let $l = i.payments
195	194		let $s = size($l)

288	287		let offer = tryGetString((assetOffer(offerId) + "Swap"))
289	288		let ownerOffer = tryGetString((ownerKey(offerId) + "Swap"))
290	289		let ownerNft = tryGetString(ownerKey(offer))
	290	+	let errorAddress = match addressFromString(ownerNft) {
	291	+	case a: Address =>
	292	+	a
	293	+	case _ =>
	294	+	throw("This NFT is not for sale")
	295	+	}
291	296		let offerOnAsset = tryGetString((assetOffer(offerId) + "Swap"))
292	297		if ((ownerNft != toBase58String(i.caller.bytes)))
293	298		then throw("The calling address is not the owner of the NFT token")
294		-	else if ((price == ""))
295		-	then throw("This NFT is not for sale")
296		-	else {
297		-	let fee = tryGetInteger("commission")
298		-	let listAsset = split(offerId, "_")
299		-	let listPrice = split(price, "_")
300		-	[ScriptTransfer(addressFromStringValue(ownerNft), parseIntValue(listPrice[1]), fromBase58String(listAsset[1])), ScriptTransfer(addressFromStringValue(ownerNft), (parseIntValue(listPrice[2]) - fee), unit), ScriptTransfer(addressFromStringValue(ownerOffer), 1, fromBase58String(offerOnAsset)), DeleteEntry(priceKey(offerOnAsset)), DeleteEntry(ownerKey(offerOnAsset)), DeleteEntry(issuerKey(offerOnAsset)), DeleteEntry(nameKey(offerOnAsset)), DeleteEntry(descriptionKey(offerOnAsset)), DeleteEntry((priceKey(offerId) + "Swap")), DeleteEntry((ownerKey(offerId) + "Swap")), DeleteEntry((issuerKey(offerId) + "Swap"))]
301		-	}
	299	+	else {
	300	+	let fee = tryGetInteger("commission")
	301	+	let listAsset = split(offerId, "_")
	302	+	let listPrice = split(price, "_")
	303	+	[ScriptTransfer(addressFromStringValue(ownerNft), parseIntValue(listPrice[1]), fromBase58String(listAsset[1])), ScriptTransfer(addressFromStringValue(ownerNft), (parseIntValue(listPrice[2]) - fee), unit), ScriptTransfer(addressFromStringValue(ownerOffer), 1, fromBase58String(offerOnAsset)), DeleteEntry(priceKey(offerOnAsset)), DeleteEntry(ownerKey(offerOnAsset)), DeleteEntry(issuerKey(offerOnAsset)), DeleteEntry(nameKey(offerOnAsset)), DeleteEntry(assetOffer(offerOnAsset)), DeleteEntry(descriptionKey(offerOnAsset)), DeleteEntry((priceKey(offerId) + "Swap")), DeleteEntry((ownerKey(offerId) + "Swap")), DeleteEntry((issuerKey(offerId) + "Swap")), DeleteEntry((assetOffer(offerId) + "Swap"))]
	304	+	}
302	305		}
303	306
304	307

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		func priceKey (asset) = (asset + "_price")
5	5
6	6
7	7		func ownerKey (asset) = (asset + "_owner")
8	8
9	9
10	10		func issuerKey (asset) = (asset + "_issuer")
11	11
12	12
13	13		func nameKey (asset) = (asset + "_name")
14	14
15	15
16	16		func descriptionKey (asset) = (asset + "_description")
17	17
18	18
19	19		func assetAccess (asset) = (asset + "_assetBuy")
20	20
21	21
22	22		func assetOffer (asset) = (asset + "_offer")
23	23
24	24
25	25		func assetOfferSwap (asset) = (asset + "_offer")
26	26
27	27
28	28		func tryGetInteger (key) = {
29	29		let val = match getInteger(this, key) {
30	30		case b: Int =>
31	31		b
32	32		case _ =>
33	33		0
34	34		}
35	35		val
36	36		}
37	37
38	38
39	39		func tryGetString (key) = {
40	40		let val = match getString(this, key) {
41	41		case b: String =>
42	42		b
43	43		case _ =>
44	44		""
45	45		}
46	46		val
47	47		}
48	48
49	49
50	50		func tryGetBool (key) = {
51	51		let val = match getBoolean(this, key) {
52	52		case b: Boolean =>
53	53		b
54	54		case _ =>
55	55		false
56	56		}
57	57		val
58	58		}
59	59
60	60
61	61		func isPaymentOk (i,acceptableAssetId,price) = if ((size(i.payments) == 0))
62	62		then throw("Payment not attached")
63	63		else {
64	64		let p = value(i.payments[0])
65	65		let val = match p.assetId {
66	66		case assetId: ByteVector =>
67	67		if ((toBase58String(assetId) == acceptableAssetId))
68	68		then (p.amount >= price)
69	69		else false
70	70		case waves: Unit =>
71	71		(p.amount >= price)
72	72		case _ =>
73	73		throw("Match error")
74	74		}
75	75		val
76	76		}
77	77
78	78
79	79		func isAcceptableNft (status,assetSale) = {
80	80		let idAsset = match assetSale.assetId {
81	81		case b: ByteVector =>
82	82		b
83	83		case b: Unit =>
84	84		base58'2CsAf'
85	85		case _ =>
86	86		throw("Match error")
87	87		}
88	88		let asset = match assetInfo(idAsset) {
89	89		case b: Asset =>
90	90		toBase58String(b.issuer.bytes)
91	91		case waves: Unit =>
92	92		"WAVES"
93	93		case _ =>
94	94		throw("Match error")
95	95		}
96	96		if (tryGetBool(asset))
97	97		then status
98	98		else false
99	99		}
100	100
101	101
102	102		func getAssetId (status,assetSale) = {
103	103		let idAsset = match assetSale.assetId {
104	104		case b: ByteVector =>
105	105		toBase58String(b)
106	106		case b: Unit =>
107	107		"WAVES"
108	108		case _ =>
109	109		throw("Match error")
110	110		}
111	111		((status + "_") + idAsset)
112	112		}
113	113
114	114
115	115		func getAssetPrice (status,assetSale) = {
116	116		let price = toString(assetSale.amount)
117	117		((status + "_") + price)
118	118		}
119	119
120	120
121	121		func getAssetIssuer (status,assetSale) = {
122	122		let idAsset = match assetSale.assetId {
123	123		case b: ByteVector =>
124	124		b
125	125		case b: Unit =>
126	126		base58'2CsAf'
127	127		case _ =>
128	128		throw("Match error")
129	129		}
130	130		let issuer = match assetInfo(idAsset) {
131	131		case b: Asset =>
132	132		toBase58String(b.issuer.bytes)
133	133		case b: Unit =>
134	134		"WAVES"
135	135		case _ =>
136	136		throw("Match error")
137	137		}
138	138		((status + "_") + issuer)
139	139		}
140	140
141	141
142	142		func getTransferAsset (status,data) = {
143	143		let transferAddress = match addressFromString(data._1) {
144	144		case b: Address =>
145	145		b
146	146		case b: Unit =>
147	147		this
148	148		case _ =>
149	149		throw("Match error")
150	150		}
151	151		if ((data._3 != "WAVES"))
152	152		then (status :+ ScriptTransfer(transferAddress, data._2, fromBase58String(data._3)))
153	153		else (status :+ ScriptTransfer(transferAddress, data._2, unit))
154	154		}
155	155
156	156
157	157		@Callable(i)
158	158		func offerForSale (assetIdPrice,price) = if (!(if (tryGetBool(assetAccess(assetIdPrice)))
159	159		then (price > 0)
160	160		else false))
161	161		then throw("Sale Asset incorrect")
162	162		else {
163	163		let firstPayment = value(i.payments[0])
164	164		let assetId = match firstPayment.assetId {
165	165		case id: ByteVector =>
166	166		id
167	167		case w: Unit =>
168	168		throw("Asset is not NFT")
169	169		case _ =>
170	170		throw("Match error")
171	171		}
172	172		let assetIdStr = toBase58String(assetId)
173	173		let asset = match assetInfo(assetId) {
174	174		case a: Asset =>
175	175		a
176	176		case _ =>
177	177		throw("Error getting information about asset")
178	178		}
179	179		if (if (if ((asset.quantity != 1))
180	180		then (asset.decimals != 0)
181	181		else false)
182	182		then asset.reissuable
183	183		else false)
184	184		then throw("Asset is not NFT")
185	185		else [IntegerEntry(priceKey(assetIdStr), price), StringEntry(ownerKey(assetIdStr), toBase58String(i.caller.bytes)), StringEntry(issuerKey(assetIdStr), toBase58String(asset.issuer.bytes)), StringEntry(nameKey(assetIdStr), asset.name), StringEntry(descriptionKey(assetIdStr), asset.description), StringEntry(assetOffer(assetIdStr), assetIdPrice)]
186	186		}
187	187
188	188
189	189
190	190		@Callable(i)
191	191		func offerForSwap (assetIdPrice) = {
192		-	let countPay = size(i.payments)
193	192		let status = {
194	193		let $l = i.payments
195	194		let $s = size($l)
196	195		let $acc0 = true
197	196		func $f0_1 ($a,$i) = if (($i >= $s))
198	197		then $a
199	198		else isAcceptableNft($a, $l[$i])
200	199
201	200		func $f0_2 ($a,$i) = if (($i >= $s))
202	201		then $a
203	202		else throw("List size exceeds 2")
204	203
205	204		$f0_2($f0_1($f0_1($acc0, 0), 1), 2)
206	205		}
207	206		if (!(status))
208	207		then throw("Payments incorrect")
209	208		else if ((tryGetInteger("commission") > i.payments[1].amount))
210	209		then throw("No minimum commission")
211	210		else {
212	211		let paymentAll = {
213	212		let $l = i.payments
214	213		let $s = size($l)
215	214		let $acc0 = "Swap"
216	215		func $f1_1 ($a,$i) = if (($i >= $s))
217	216		then $a
218	217		else getAssetId($a, $l[$i])
219	218
220	219		func $f1_2 ($a,$i) = if (($i >= $s))
221	220		then $a
222	221		else throw("List size exceeds 2")
223	222
224	223		$f1_2($f1_1($f1_1($acc0, 0), 1), 2)
225	224		}
226	225		let issuer = {
227	226		let $l = i.payments
228	227		let $s = size($l)
229	228		let $acc0 = "Swap"
230	229		func $f2_1 ($a,$i) = if (($i >= $s))
231	230		then $a
232	231		else getAssetIssuer($a, $l[$i])
233	232
234	233		func $f2_2 ($a,$i) = if (($i >= $s))
235	234		then $a
236	235		else throw("List size exceeds 2")
237	236
238	237		$f2_2($f2_1($f2_1($acc0, 0), 1), 2)
239	238		}
240	239		let price = {
241	240		let $l = i.payments
242	241		let $s = size($l)
243	242		let $acc0 = "Swap"
244	243		func $f3_1 ($a,$i) = if (($i >= $s))
245	244		then $a
246	245		else getAssetPrice($a, $l[$i])
247	246
248	247		func $f3_2 ($a,$i) = if (($i >= $s))
249	248		then $a
250	249		else throw("List size exceeds 2")
251	250
252	251		$f3_2($f3_1($f3_1($acc0, 0), 1), 2)
253	252		}
254	253		[StringEntry((priceKey(paymentAll) + "Swap"), price), StringEntry((ownerKey(paymentAll) + "Swap"), toBase58String(i.caller.bytes)), StringEntry((issuerKey(paymentAll) + "Swap"), issuer), StringEntry((assetOffer(paymentAll) + "Swap"), assetIdPrice)]
255	254		}
256	255		}
257	256
258	257
259	258
260	259		@Callable(i)
261	260		func buy (assetStr) = {
262	261		let price = tryGetInteger(priceKey(assetStr))
263	262		let acceptableAssetId = tryGetString(assetOffer(assetStr))
264	263		let ownerStr = tryGetString(ownerKey(assetStr))
265	264		let owner = match addressFromString(ownerStr) {
266	265		case a: Address =>
267	266		a
268	267		case _ =>
269	268		throw("Address parsing error")
270	269		}
271	270		if (!(isPaymentOk(i, acceptableAssetId, price)))
272	271		then throw("Wrong payment amount or asset")
273	272		else if ((ownerStr == toBase58String(i.caller.bytes)))
274	273		then throw("Owner cannot buy his NTF")
275	274		else if ((price == 0))
276	275		then throw("This NFT is not for sale")
277	276		else {
278	277		let fee = ((price / 100) * 5)
279	278		[ScriptTransfer(i.caller, 1, fromBase58String(assetStr)), ScriptTransfer(owner, (price - fee), unit), DeleteEntry(priceKey(assetStr)), DeleteEntry(ownerKey(assetStr)), DeleteEntry(issuerKey(assetStr)), DeleteEntry(nameKey(assetStr)), DeleteEntry(descriptionKey(assetStr)), DeleteEntry(assetOffer(assetStr))]
280	279		}
281	280		}
282	281
283	282
284	283
285	284		@Callable(i)
286	285		func swapDone (offerId) = {
287	286		let price = tryGetString((priceKey(offerId) + "Swap"))
288	287		let offer = tryGetString((assetOffer(offerId) + "Swap"))
289	288		let ownerOffer = tryGetString((ownerKey(offerId) + "Swap"))
290	289		let ownerNft = tryGetString(ownerKey(offer))
	290	+	let errorAddress = match addressFromString(ownerNft) {
	291	+	case a: Address =>
	292	+	a
	293	+	case _ =>
	294	+	throw("This NFT is not for sale")
	295	+	}
291	296		let offerOnAsset = tryGetString((assetOffer(offerId) + "Swap"))
292	297		if ((ownerNft != toBase58String(i.caller.bytes)))
293	298		then throw("The calling address is not the owner of the NFT token")
294		-	else if ((price == ""))
295		-	then throw("This NFT is not for sale")
296		-	else {
297		-	let fee = tryGetInteger("commission")
298		-	let listAsset = split(offerId, "_")
299		-	let listPrice = split(price, "_")
300		-	[ScriptTransfer(addressFromStringValue(ownerNft), parseIntValue(listPrice[1]), fromBase58String(listAsset[1])), ScriptTransfer(addressFromStringValue(ownerNft), (parseIntValue(listPrice[2]) - fee), unit), ScriptTransfer(addressFromStringValue(ownerOffer), 1, fromBase58String(offerOnAsset)), DeleteEntry(priceKey(offerOnAsset)), DeleteEntry(ownerKey(offerOnAsset)), DeleteEntry(issuerKey(offerOnAsset)), DeleteEntry(nameKey(offerOnAsset)), DeleteEntry(descriptionKey(offerOnAsset)), DeleteEntry((priceKey(offerId) + "Swap")), DeleteEntry((ownerKey(offerId) + "Swap")), DeleteEntry((issuerKey(offerId) + "Swap"))]
301		-	}
	299	+	else {
	300	+	let fee = tryGetInteger("commission")
	301	+	let listAsset = split(offerId, "_")
	302	+	let listPrice = split(price, "_")
	303	+	[ScriptTransfer(addressFromStringValue(ownerNft), parseIntValue(listPrice[1]), fromBase58String(listAsset[1])), ScriptTransfer(addressFromStringValue(ownerNft), (parseIntValue(listPrice[2]) - fee), unit), ScriptTransfer(addressFromStringValue(ownerOffer), 1, fromBase58String(offerOnAsset)), DeleteEntry(priceKey(offerOnAsset)), DeleteEntry(ownerKey(offerOnAsset)), DeleteEntry(issuerKey(offerOnAsset)), DeleteEntry(nameKey(offerOnAsset)), DeleteEntry(assetOffer(offerOnAsset)), DeleteEntry(descriptionKey(offerOnAsset)), DeleteEntry((priceKey(offerId) + "Swap")), DeleteEntry((ownerKey(offerId) + "Swap")), DeleteEntry((issuerKey(offerId) + "Swap")), DeleteEntry((assetOffer(offerId) + "Swap"))]
	304	+	}
302	305		}
303	306
304	307
305	308
306	309		@Callable(i)
307	310		func cancelSelling (assetStr) = {
308	311		let ownerStr = tryGetString(ownerKey(assetStr))
309	312		let owner = match addressFromString(ownerStr) {
310	313		case a: Address =>
311	314		a
312	315		case _ =>
313	316		throw("Address parsing error")
314	317		}
315	318		if ((ownerStr != toBase58String(i.caller.bytes)))
316	319		then throw("The calling address is not the owner of the NFT token")
317	320		else [ScriptTransfer(i.caller, 1, fromBase58String(assetStr)), DeleteEntry(priceKey(assetStr)), DeleteEntry(ownerKey(assetStr)), DeleteEntry(issuerKey(assetStr)), DeleteEntry(nameKey(assetStr)), DeleteEntry(descriptionKey(assetStr))]
318	321		}
319	322
320	323
321	324
322	325		@Callable(i)
323	326		func swapCancel (offerId) = {
324	327		let ownerOffer = tryGetString((ownerKey(offerId) + "Swap"))
325	328		let price = tryGetString((priceKey(offerId) + "Swap"))
326	329		if ((ownerOffer != toBase58String(i.caller.bytes)))
327	330		then throw("The calling address is not the owner of the NFT token")
328	331		else {
329	332		let listAsset = split(offerId, "_")
330	333		let listPrice = split(price, "_")
331	334		[ScriptTransfer(addressFromStringValue(ownerOffer), parseIntValue(listPrice[1]), fromBase58String(listAsset[1])), ScriptTransfer(addressFromStringValue(ownerOffer), parseIntValue(listPrice[2]), unit), DeleteEntry((priceKey(offerId) + "Swap")), DeleteEntry((ownerKey(offerId) + "Swap")), DeleteEntry((issuerKey(offerId) + "Swap")), DeleteEntry((assetOffer(offerId) + "Swap"))]
332	335		}
333	336		}
334	337
335	338
336	339		@Verifier(tx)
337	340		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
338	341

github/deemru/w8io/169f3d6 
41.39 ms ◑