w8 · tx · 9pW···rfK

tx · 9pWK7c9f5nCaN1946XcQYvnSS2TJ9AePuR9MZHyB7rfK

3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq:  -0.05000000 Waves

2022.12.05 12:15 [2346869] smart account 3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9pWK7c9f5nCaN1946XcQYvnSS2TJ9AePuR9MZHyB7rfK",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1670231755044,
    "version": 2,
    "chainId": 84,
    "sender": "3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq",
    "senderPublicKey": "H6UqxUDcJamDRg1uykVcWMn4zhAMTV7i1nfPq1moLWmJ",
    "proofs": [
        "3cUqLUoGFJ8JzV3nDP5K7P1r8PhJCAejKJqX2X6f1KYW3W3C3xtXk9D1C4QfqxcFr2GMtCD8NbjoAFCGKGmGXyyX"
    ],
    "script": "base64:BgJACAISCwoJCAgICAgBCAgIEgMKAQESBAoCCAgSBgoECAgICBIGCgQICAgIEgUKAwgIARIDCgEIEgMKAQgSAwoBCCkACXNlcGFyYXRvcgIBXwAIa0F1Y3Rpb24CB2F1Y3Rpb24ABWtTZWxsAgRzZWxsAAhrVHJ1c3RlZAIHdHJ1c3RlZAAGa1ByaWNlAgVwcmljZQEKZ2V0U2xvdEtleQIGcHJlZml4BW5mdElkCQCsAgIJAKwCAgUGcHJlZml4BQlzZXBhcmF0b3IJANgEAQUFbmZ0SWQBC2dldFByaWNlS2V5AQVuZnRJZAkArAICCQCsAgIFBmtQcmljZQUJc2VwYXJhdG9yCQDYBAEFBW5mdElkAQpnZXRTZWxsS2V5AQVuZnRJZAkArAICCQCsAgIFBWtTZWxsBQlzZXBhcmF0b3IJANgEAQUFbmZ0SWQBDWdldEF1Y3Rpb25LZXkBBW5mdElkCQCsAgIJAKwCAgUIa0F1Y3Rpb24FCXNlcGFyYXRvcgkA2AQBBQVuZnRJZAENZ2V0VHJ1c3RlZEtleQEGaXNzdWVyCQCsAgIJAKwCAgUIa1RydXN0ZWQFCXNlcGFyYXRvcgkApQgBBQZpc3N1ZXIBCWFkZFRvTGlzdAIFYWNjdW0JbmV4dFZhbHVlCQDOCAIFBWFjY3VtCQDMCAIFCW5leHRWYWx1ZQUDbmlsAQpqb2luU3RyaW5nAQZwYXJhbXMEBmxlbmd0aAkAkAMBBQZwYXJhbXMDCQAAAgUGbGVuZ3RoAAAJAAIBAg1FbXB0eSAgcGFyYW1zAwkAAAIFBmxlbmd0aAABCQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDEJAQUkZjBfMgIJAQUkZjBfMQIFBSRhY2MwAAAAAQUJc2VwYXJhdG9yAwkAAAIFBmxlbmd0aAACCQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDIJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACBQlzZXBhcmF0b3IDCQAAAgUGbGVuZ3RoAAMJALkJAgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWFkZFRvTGlzdAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMwkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwUJc2VwYXJhdG9yAwkAAAIFBmxlbmd0aAAECQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDQJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAUJc2VwYXJhdG9yAwkAAAIFBmxlbmd0aAAFCQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFBQlzZXBhcmF0b3IJAAIBAiFNYXggbnVtYmVyIG9mIHBhcmFtZXRlcnMgZXhjZWVkZWQBDnBhcnNlQXNBdWN0aW9uAQdkZXRhaWxzBANyZXMJALUJAgUHZGV0YWlscwUJc2VwYXJhdG9yCQCXCgUJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUDcmVzAAAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNyZXMAAQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA3JlcwACCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDcmVzAAMJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNyZXMABAELcGFyc2VBc1NlbGwBB2RldGFpbHMEA3JlcwkAtQkCBQdkZXRhaWxzBQlzZXBhcmF0b3IJAJQKAgkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQNyZXMAAAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA3JlcwABAQpqb2luU3RydWN0AQZwYXJhbXMEByRtYXRjaDAFBnBhcmFtcwMJAAECBQckbWF0Y2gwAh4oQWRkcmVzcywgSW50LCBTdHJpbmcsIFN0cmluZykEB2F1Y3Rpb24FByRtYXRjaDAJAQpqb2luU3RyaW5nAQkAzAgCCQClCAEIBQdhdWN0aW9uAl8xCQDMCAIJAKQDAQgFB2F1Y3Rpb24CXzIJAMwIAggFB2F1Y3Rpb24CXzMJAMwIAggFB2F1Y3Rpb24CXzQFA25pbAMJAAECBQckbWF0Y2gwAg4oQWRkcmVzcywgSW50KQQEc2VsbAUHJG1hdGNoMAkBCmpvaW5TdHJpbmcBCQDMCAIJAKUIAQgFBHNlbGwCXzEJAMwIAgkApAMBCAUEc2VsbAJfMgUDbmlsCQACAQITV3JvbmcgcGFyYW1zIHR1cHBsZQEKc2V0QXVjdGlvbgUGc2VsbGVyBW5mdElkCnN0YXJ0UHJpY2UFc3RhcnQDZW5kCQELU3RyaW5nRW50cnkCCQENZ2V0QXVjdGlvbktleQEFBW5mdElkCQEKam9pblN0cnVjdAEJAJYKBAUGc2VsbGVyBQpzdGFydFByaWNlBQVzdGFydAUDZW5kAQdzZXRTZWxsAwVuZnRJZAZjZWxsZXIFcHJpY2UJAQtTdHJpbmdFbnRyeQIJAQpnZXRTZWxsS2V5AQUFbmZ0SWQJAQpqb2luU3RydWN0AQkAlAoCBQZjZWxsZXIFBXByaWNlAQpnZXRBdWN0aW9uAQVuZnRJZAkBBXZhbHVlAQkAnQgCBQR0aGlzCQENZ2V0QXVjdGlvbktleQEFBW5mdElkAQdnZXRTZWxsAQVuZnRJZAkBBXZhbHVlAQkAnQgCBQR0aGlzCQEKZ2V0U2VsbEtleQEFBW5mdElkARhjYWxjUHJpY2VBdEN1cnJlbnRNb21lbnQCB2Fzc2V0SWQGbW9tZW50BAdkZXRhaWxzCQEKZ2V0QXVjdGlvbgEFB2Fzc2V0SWQECyR0MDI3NTUyODU5CQEOcGFyc2VBc0F1Y3Rpb24BBQdkZXRhaWxzBAZzZWxsZXIIBQskdDAyNzU1Mjg1OQJfMQQPc3RhcnRQcmljZVZhbHVlCAULJHQwMjc1NTI4NTkCXzIEDWVuZFByaWNlVmFsdWUIBQskdDAyNzU1Mjg1OQJfMwQQc3RhcnRQZXJpb2RWYWx1ZQgFCyR0MDI3NTUyODU5Al80BA5lbmRQZXJpb2RWYWx1ZQgFCyR0MDI3NTUyODU5Al81AwkAZwIFBm1vbWVudAUOZW5kUGVyaW9kVmFsdWUJAJQKAgUGc2VsbGVyBQ1lbmRQcmljZVZhbHVlBApkZWx0YVByaWNlCQBlAgUPc3RhcnRQcmljZVZhbHVlBQ1lbmRQcmljZVZhbHVlBAZwZXJpb2QJAGUCBQ5lbmRQZXJpb2RWYWx1ZQUQc3RhcnRQZXJpb2RWYWx1ZQQHc3BlbmRlZAkAZQIFBm1vbWVudAUQc3RhcnRQZXJpb2RWYWx1ZQkAlAoCBQZzZWxsZXIJAGUCBQ9zdGFydFByaWNlVmFsdWUJAGsDBQdzcGVuZGVkBQpkZWx0YVByaWNlBQZwZXJpb2QBBWlzTmZ0AQdhc3NldElkBAckbWF0Y2gwCQDsBwEFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIFQXNzZXQEBXRva2VuBQckbWF0Y2gwAwMJAAACCAUFdG9rZW4IZGVjaW1hbHMAAAkAAAIIBQV0b2tlbghxdWFudGl0eQABBwkAAAIIBQV0b2tlbgpyZWlzc3VhYmxlBwcHAQxpc1RydXN0ZWROZnQBB2Fzc2V0SWQEBmlzc3VlcggJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAZpc3N1ZXIJAQt2YWx1ZU9yRWxzZQIJAJsIAgUEdGhpcwkBDWdldFRydXN0ZWRLZXkBBQZpc3N1ZXIHAQtpc1NlbGxFeGlzdAEHYXNzZXRJZAkBCWlzRGVmaW5lZAEJAJ0IAgUEdGhpcwkBCmdldFNlbGxLZXkBBQdhc3NldElkAQ5pc0F1Y3Rpb25FeGlzdAEHYXNzZXRJZAkBCWlzRGVmaW5lZAEJAJ0IAgUEdGhpcwkBDWdldEF1Y3Rpb25LZXkBBQdhc3NldElkARJpc0NvcnJlY3RTZWxsUHJpY2UBBXByaWNlCQBmAgUFcHJpY2UAAAEWaXNDb3JyZWN0QXVjdGlvblByaWNlcwIKc3RhcnRQcmljZQhlbmRQcmljZQkAZgIFCnN0YXJ0UHJpY2UFCGVuZFByaWNlAQdpc0FkbWluAQZjYWxsZXIJAAACBQZjYWxsZXIFBHRoaXMBDWlzVmFsaWRDYWxsZXICBmNhbGxlcgZzZWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBgkAAAIFBmNhbGxlcgUGc2VsbGVyAQ5pc0F1Y3Rpb25FbmRlZAIDbm93A2VuZAkAZgIFA25vdwUDZW5kAQ1pc0Vub3VnaEZ1bmRzAgdwYXltZW50EmN1cnJlbnRNb21lbnRQcmljZQkAZwIFB3BheW1lbnQFEmN1cnJlbnRNb21lbnRQcmljZQEHaXNXYXdlcwEHYXNzZXRJZAkAAAIFB2Fzc2V0SWQFBHVuaXQBDGlzQ29ycmVjdE5mdAEFbmZ0SWQDCQEBIQEJAQVpc05mdAEFBW5mdElkCQACAQIQVG9rZW4gaXMgbm90IE5mdAMJAQtpc1NlbGxFeGlzdAEFBW5mdElkCQACAQITU2VsbCBhbHJlYWR5IGV4aXN0cwMJAQ5pc0F1Y3Rpb25FeGlzdAEFBW5mdElkCQACAQIWQXVjdGlvbiBhbHJlYWR5IGV4aXN0cwUEdW5pdAERaXNDb3JyZWN0UGF5bWVudHMDDHBheW1lbnRBc3NldA1wYXltZW50QW1vdW50BXByaWNlAwkBASEBCQEHaXNXYXdlcwEFDHBheW1lbnRBc3NldAkAAgECGFBheW1lbnQgbXVzdCBiZSBhdCBXQVZFUwMJAQEhAQkBDWlzRW5vdWdoRnVuZHMCBQ1wYXltZW50QW1vdW50BQVwcmljZQkAAgECEE5vdCBlbm91Z2ggZnVuZHMFBHVuaXQBB2NhbGNGZWUAAAABDmNhbGNUcnVzdGVkRmVlAAAAARJyZXN1bHRGdW5kc0Ftb3VudHMDCWlzVHJ1c3RlZA1wYXltZW50QW1vdW50C2FjdHVhbFByaWNlAwUJaXNUcnVzdGVkCQCUCgIJAGUCBQthY3R1YWxQcmljZQkBDmNhbGNUcnVzdGVkRmVlAAkAZQIFDXBheW1lbnRBbW91bnQFC2FjdHVhbFByaWNlCQCUCgIJAGUCBQthY3R1YWxQcmljZQkBB2NhbGNGZWUACQBlAgUNcGF5bWVudEFtb3VudAULYWN0dWFsUHJpY2UBB2dldFNsb3QBBW5mdElkAwkBC2lzU2VsbEV4aXN0AQUFbmZ0SWQJAJQKAgUFa1NlbGwJAQdnZXRTZWxsAQUFbmZ0SWQDCQEOaXNBdWN0aW9uRXhpc3QBBQVuZnRJZAkAlAoCBQhrQXVjdGlvbgkBCmdldEF1Y3Rpb24BBQVuZnRJZAkAAgECElNsb3QgZG9lc25gdCBleGlzdAAEa0J1eQIDYnV5AARrQmlkAgNiaWQADHN0YXR1c0Zvck5GVAkAlgoEAgRPUEVOAgZDTE9TRUQCCFJFV0FSREVEAghDQU5DRUxFRAALZEFwcEFkZHJlc3MBGgFUSrhPbN7C2pPt9I7pSjb41U9/ldVVW12gCQFpAQljcmVhdGVOZnQJCG5mdF9uYW1lCW5mdF9vd25lcg9uZnRfZEFwcEFkZHJlc3MIbmZ0X3R5cGUIbmZ0X3RhZ3MRbmZ0X3NlbGxpbmdfcHJpY2UPbmZ0X2Rlc2NyaXB0aW9uCm5mdF9vblNlbGwIbmZ0X2RhdGEECG5ld1Rva2VuCQDCCAUFCG5mdF9uYW1lBQ9uZnRfZGVzY3JpcHRpb24AAQAABwQHaXNzdWVJZAkAuAgBBQhuZXdUb2tlbgQEdHhJZAgFAWkNdHJhbnNhY3Rpb25JZAkAzAgCBQhuZXdUb2tlbgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIAAQUHaXNzdWVJZAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICBU93bmVyCQClCAEIBQFpBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICCG5mdF90eXBlBQhuZnRfdHlwZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICCG5mdF90YWdzBQhuZnRfdGFncwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICD25mdF9kQXBwQWRkcmVzcwUPbmZ0X2RBcHBBZGRyZXNzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICEW5mdF9zZWxsaW5nX3ByaWNlBRFuZnRfc2VsbGluZ19wcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICCm5mdF9vblNlbGwFCm5mdF9vblNlbGwJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAghuZnRfZGF0YQUIbmZ0X2RhdGEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUEdHhJZAUJc2VwYXJhdG9yAglpc3N1ZV9uZnQJANgEAQUHaXNzdWVJZAUDbmlsAWkBB3NlbGxORlQBBXByaWNlBAR0eElkCAUBaQ10cmFuc2FjdGlvbklkBAZzZWxsZXIICAUBaQZjYWxsZXIFYnl0ZXMECyR0MDY2MDU2NjkwCQCUCgIJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEBnRva2VuMAgFCyR0MDY2MDU2NjkwAl8xBAdhbW91bnQwCAULJHQwNjYwNTY2OTACXzIDCQEBIQEJAQVpc05mdAEFBnRva2VuMAkAAgECEFRva2VuIGlzIG5vdCBORlQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFBmtQcmljZQUJc2VwYXJhdG9yCQDYBAEJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkApAMBBQVwcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkApQgBCAUBaQZjYWxsZXIFCXNlcGFyYXRvcgUFa1NlbGwJAKwCAgkArAICCQDYBAEFBnRva2VuMAUJc2VwYXJhdG9yCQCkAwEFB2Ftb3VudDAFA25pbAFpAQZidXlORlQCBW5mdElEEWN1cnJlbnRfbmZ0X293bmVyBAdhc3NldElkCQDZBAEFBW5mdElEBAZhbW91bnQJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BBBjaGVja093bmVySXNTYW1lBAckbWF0Y2gwCQCdCAIFBHRoaXMJAKwCAgkArAICAgRuZnRfBRFjdXJyZW50X25mdF9vd25lcgIGX293bmVyAwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAUBYQcEBXByaWNlCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAKwCAgkArAICCQCsAgIFBmtQcmljZQUJc2VwYXJhdG9yBQVuZnRJRAIBXwURY3VycmVudF9uZnRfb3duZXIEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkArAICBQVuZnRJRAUJc2VwYXJhdG9yAgVPd25lcgIITm8gb3duZXIDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFBHVuaXQJAAIBAgxQYXkgaW4gd2F2ZXMDCQAAAgUQY2hlY2tPd25lcklzU2FtZQkApQgBCAUBaQZjYWxsZXIJAAIBAiFPd25lciBvZiBORlQgbm90IGFibGUgdG8gcHVyY2hhc2UJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyAAEFB2Fzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCQDZBAEFBW93bmVyBQZhbW91bnQFBHVuaXQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKUIAQgFAWkGY2FsbGVyBQlzZXBhcmF0b3IFBGtCdXkJAKwCAgkArAICBQVuZnRJRAUJc2VwYXJhdG9yCQCkAwEFBmFtb3VudAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIJAKwCAgIEbmZ0XwURY3VycmVudF9uZnRfb3duZXICBl9vd25lcgUDbmlsAWkBCmFkZEF1Y3Rpb24EBXN0YXJ0A2VuZApzdGFydFByaWNlCGR1cmF0aW9uBAR0eElkCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQEBW5mdElkCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQEBXByaWNlCQEFdmFsdWUBBQpzdGFydFByaWNlBAZjYWxsZXIICAUBaQZjYWxsZXIFYnl0ZXMEEWNoZWNrTmZ0QXVjdGlvbmVkBAckbWF0Y2gwCQCdCAIFBHRoaXMJAKwCAgkArAICCQCsAgIJANgEAQUFbmZ0SWQFCXNlcGFyYXRvcgILbmZ0X3N0YXR1c18JANgEAQUGY2FsbGVyAwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAYHAwkAAAIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUEdW5pdAkAAgECEE5GVCBub3QgYXR0YWNoZWQDCQAAAgURY2hlY2tOZnRBdWN0aW9uZWQGCQACAQIXQWxyZWFkeSBpbiBhdWN0aW9uIGxpc3QJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFBHR4SWQCGF9uZnRfc3RhcnRfYXVjdGlvbl9kYXRlXwkA2AQBBQZjYWxsZXIFBXN0YXJ0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICBQR0eElkAhZfbmZ0X2VuZF9hdWN0aW9uX2RhdGVfCQDYBAEFBmNhbGxlcgUDZW5kCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIQX25mdF9zdGFydF9wcmljZQUKc3RhcnRQcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCE2R1cmF0aW9uX29mX2F1Y3Rpb24FCGR1cmF0aW9uCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIKX25mdF9vd25lcgkApQgBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAg9fbmZ0X29uX2F1Y3Rpb24JANgEAQUFbmZ0SWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAhBfcHJldmlvdXNfYmlkZGVyAgRub25lCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIMX2hpZ2hlc3RfYmlkBQpzdGFydFByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIOX3dpbm5lcl9vZl9uZnQCATAJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAg1fYmlkZGVyX2NvdW50AgEwCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAILX25mdF9zdGF0dXMCBE9QRU4FA25pbAFpAQhwbGFjZUJpZAQJYXVjdGlvbklkBW5mdElkCW5mdF9vd25lcgliaWRfcHJpY2UEBHR4SWQJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAQGY2FsbGVyCAgFAWkGY2FsbGVyBWJ5dGVzBAdhc3NldElkCQDZBAEFBW5mdElkBA9jdXJyZW50QmlkUHJpY2UICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BBVnZXRMYXN0V2lubmVyQmlkUHJpY2UJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMJAKwCAgUJYXVjdGlvbklkAgxfaGlnaGVzdF9iaWQEGGdldFByZXZpb3VzQmlkZGVyQWRkcmVzcwkAnQgCBQR0aGlzCQCsAgIFCWF1Y3Rpb25JZAIQX3ByZXZpb3VzX2JpZGRlcgQPY3VycmVudEJpZENvdW50CQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzCQCsAgIFCWF1Y3Rpb25JZAINX2JpZGRlcl9jb3VudAQUZ2V0TGFzdFdpbm5lckFkZHJlc3MJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMJAKwCAgUJYXVjdGlvbklkAg5fd2lubmVyX29mX25mdAQRY2hlY2tOZnRBdWN0aW9uZWQJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMJAKwCAgUJYXVjdGlvbklkAgtfbmZ0X3N0YXR1cwMJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUEdW5pdAkAAgECDFBheSBpbiB3YXZlcwMJAQIhPQIFEWNoZWNrTmZ0QXVjdGlvbmVkAgRPUEVOCQACAQIUTm90IG9wZW4gZm9yIGF1Y3Rpb24DCQBnAgkBDXBhcnNlSW50VmFsdWUBBRVnZXRMYXN0V2lubmVyQmlkUHJpY2UFD2N1cnJlbnRCaWRQcmljZQkAAgECJUJpZCBpcyBsZXNzIHRoZW4gc3RhcnRpbmcvaGlnaGVzdCBCaWQDCQAAAgUVZ2V0TGFzdFdpbm5lckJpZFByaWNlAgEwCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUJYXVjdGlvbklkAgxfaGlnaGVzdF9iaWQJAKQDAQUPY3VycmVudEJpZFByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUJYXVjdGlvbklkAg5fd2lubmVyX29mX25mdAkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUJYXVjdGlvbklkAg1fYmlkZGVyX2NvdW50CQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEFD2N1cnJlbnRCaWRDb3VudAABCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUJYXVjdGlvbklkAgdfbmZ0X2lkCQDYBAEFB2Fzc2V0SWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCCl9uZnRfb3duZXIFCW5mdF9vd25lcgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICBQR0eElkAgFfBQlhdWN0aW9uSWQCDF9oaWdoZXN0X2JpZAkApAMBBQ9jdXJyZW50QmlkUHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgUEdHhJZAIBXwUJYXVjdGlvbklkAgdfd2lubmVyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgUEdHhJZAIBXwUJYXVjdGlvbklkAg1fYmlkZGVyX2NvdW50CQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEFD2N1cnJlbnRCaWRDb3VudAABCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgIFBHR4SWQCAV8FCWF1Y3Rpb25JZAIHX25mdF9pZAkA2AQBBQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgIFBHR4SWQCAV8FCWF1Y3Rpb25JZAIKX25mdF9vd25lcgUJbmZ0X293bmVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIPX2JpZF9mb3JfbmZ0X2J5CQDYBAEFBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCEF9iaWRfcHJpY2VfcGxhY2UFCWJpZF9wcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCJl9wcmV2aW91c19iaWRfYW1vdW50X3JlZnVuZF90b19hZGRyZXNzBRRnZXRMYXN0V2lubmVyQWRkcmVzcwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCG19wcmV2b2l1c19iaWRfYW1vdW50X3JlZnVuZAUVZ2V0TGFzdFdpbm5lckJpZFByaWNlBQNuaWwJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCDF9oaWdoZXN0X2JpZAkApAMBBQ9jdXJyZW50QmlkUHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCDl93aW5uZXJfb2ZfbmZ0CQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCDV9iaWRkZXJfY291bnQJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQUPY3VycmVudEJpZENvdW50AAEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCB19uZnRfaWQJANgEAQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCWF1Y3Rpb25JZAIKX25mdF9vd25lcgUJbmZ0X293bmVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgIFBHR4SWQCAV8FCWF1Y3Rpb25JZAIMX2hpZ2hlc3RfYmlkCQCkAwEFD2N1cnJlbnRCaWRQcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICBQR0eElkAgFfBQlhdWN0aW9uSWQCB193aW5uZXIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICBQR0eElkAgFfBQlhdWN0aW9uSWQCDV9iaWRkZXJfY291bnQJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQUPY3VycmVudEJpZENvdW50AAEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgUEdHhJZAIBXwUJYXVjdGlvbklkAgdfbmZ0X2lkCQDYBAEFB2Fzc2V0SWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgUEdHhJZAIBXwUJYXVjdGlvbklkAgpfbmZ0X293bmVyBQluZnRfb3duZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAg9fYmlkX2Zvcl9uZnRfYnkJANgEAQUGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIQX2JpZF9wcmljZV9wbGFjZQUJYmlkX3ByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAImX3ByZXZpb3VzX2JpZF9hbW91bnRfcmVmdW5kX3RvX2FkZHJlc3MFFGdldExhc3RXaW5uZXJBZGRyZXNzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIbX3ByZXZvaXVzX2JpZF9hbW91bnRfcmVmdW5kBRVnZXRMYXN0V2lubmVyQmlkUHJpY2UJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCQDZBAEFFGdldExhc3RXaW5uZXJBZGRyZXNzCQENcGFyc2VJbnRWYWx1ZQEFFWdldExhc3RXaW5uZXJCaWRQcmljZQUEdW5pdAUDbmlsAWkBDmFjY2VwdEJpZE9mZmVyAwlhdWN0aW9uSWQFbmZ0SWQUYmlkX2Ftb3VudF9mcm9tX3VzZXIEBHR4SWQJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAQGY2FsbGVyCAgFAWkGY2FsbGVyBWJ5dGVzBAdhc3NldElkCQDZBAEFBW5mdElkBBJnZXROZnRXaW5uaW5nUHJpY2UJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMJAKwCAgUJYXVjdGlvbklkAgxfaGlnaGVzdF9iaWQEEGdldEF1Y3Rpb25XaW5uZXIJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMJAKwCAgUJYXVjdGlvbklkAg5fd2lubmVyX29mX25mdAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQEHQWRkcmVzcwEFBmNhbGxlcgkBDXBhcnNlSW50VmFsdWUBBRJnZXROZnRXaW5uaW5nUHJpY2UFBHVuaXQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCQDZBAEFEGdldEF1Y3Rpb25XaW5uZXIAAQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCFV9hbW91bnRfcGFpZF90b19vd25lcgUSZ2V0TmZ0V2lubmluZ1ByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAIQX25mdF90cmFuc2Zlcl90bwUQZ2V0QXVjdGlvbldpbm5lcgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBHR4SWQCC19uZnRfc3RhdHVzAghSRVdBUkRFRAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCWF1Y3Rpb25JZAIVX2Ftb3VudF9wYWlkX3RvX293bmVyBRJnZXROZnRXaW5uaW5nUHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCEF9uZnRfdHJhbnNmZXJfdG8FEGdldEF1Y3Rpb25XaW5uZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCC19uZnRfc3RhdHVzAghSRVdBUkRFRAUDbmlsAWkBDWNhbmNlbEF1Y3Rpb24BCWF1Y3Rpb25JZAQEdHhJZAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkBAZjYWxsZXIICAUBaQZjYWxsZXIFYnl0ZXMEDWF1Y3Rpb25TdGF0dXMJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMJAKwCAgUJYXVjdGlvbklkAgtfbmZ0X3N0YXR1cwQNYmlkZGluZ1dpbm5lcgkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQlhdWN0aW9uSWQCDl93aW5uZXJfb2ZfbmZ0BAhuZnRPd25lcgkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQlhdWN0aW9uSWQCCl9uZnRfb3duZXIEBW5mdElkCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzCQCsAgIFCWF1Y3Rpb25JZAIPX25mdF9vbl9hdWN0aW9uBAxiaWRkaW5nUHJpY2UJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMJAKwCAgUJYXVjdGlvbklkAgxfaGlnaGVzdF9iaWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCC19uZnRfc3RhdHVzAghDQU5DRUxFRAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCWF1Y3Rpb25JZAImX3ByZXZpb3VzX2JpZF9hbW91bnRfcmVmdW5kX3RvX2FkZHJlc3MFDWJpZGRpbmdXaW5uZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQlhdWN0aW9uSWQCG19wcmV2b2l1c19iaWRfYW1vdW50X3JlZnVuZAUMYmlkZGluZ1ByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAILX25mdF9zdGF0dXMCCENBTkNFTEVECQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUEdHhJZAImX3ByZXZpb3VzX2JpZF9hbW91bnRfcmVmdW5kX3RvX2FkZHJlc3MFDWJpZGRpbmdXaW5uZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQR0eElkAhtfcHJldm9pdXNfYmlkX2Ftb3VudF9yZWZ1bmQFDGJpZGRpbmdQcmljZQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQEHQWRkcmVzcwEJANkEAQUIbmZ0T3duZXIAAQkA2QQBBQVuZnRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQEHQWRkcmVzcwEJANkEAQUNYmlkZGluZ1dpbm5lcgkBDXBhcnNlSW50VmFsdWUBBQxiaWRkaW5nUHJpY2UFBHVuaXQFA25pbAFpAQt3aXRoZHJhd0JpZAEHYmlkVHhJZAQGY2FsbGVyCAgFAWkGY2FsbGVyBWJ5dGVzBAhiaWRQcmljZQkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQdiaWRUeElkAgxfaGlnaGVzdF9iaWQECGFzQmlkZGVyCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzCQCsAgIFB2JpZFR4SWQCB193aW5uZXIECWJpZEZvck5GVAkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICBQdiaWRUeElkAgdfbmZ0X2lkAwkBAiE9AgkA2AQBBQZjYWxsZXIFCGFzQmlkZGVyCQACAQIGTm8gYmlkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUHYmlkVHhJZAIIX25mdF9iaWQCCFdJVEhEUkFXCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUHYmlkVHhJZAIHX25mdF9pZAUJYmlkRm9yTkZUCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUHYmlkVHhJZAIcX2JpZGRpbmdfcHJpY2VfcmVmdW5kX2Ftb3VudAUIYmlkUHJpY2UJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQENcGFyc2VJbnRWYWx1ZQEFCGJpZFByaWNlBQR1bml0BQNuaWwBaQEHdGVzdEJpZAEEZGF0YQkAzAgCCQELU3RyaW5nRW50cnkCAgNiaWQFBGRhdGEFA25pbABp/mjs",
    "height": 2346869,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: HxBxRtrZGuRHgNMjRDs5Ro9tz7cCRkoZb35NLhNKDAcH
Next: CFu9uG4pCfBg52ZsLmy1ABaqceAMn1E3KrEunJ1YfgMe

Diff: 
Old New Differences
315 315          then throw("NFT not attached")
316 316          else if ((checkNftAuctioned == true))
317 317              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), IntegerEntry((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"), toString(startPrice)), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
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), StringEntry((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"), startPrice), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
319 319      }
320 320  
321 321  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let separator = "_"
5 5  
6 6  let kAuction = "auction"
7 7  
8 8  let kSell = "sell"
9 9  
10 10  let kTrusted = "trusted"
11 11  
12 12  let kPrice = "price"
13 13  
14 14  func getSlotKey (prefix,nftId) = ((prefix + separator) + toBase58String(nftId))
15 15  
16 16  
17 17  func getPriceKey (nftId) = ((kPrice + separator) + toBase58String(nftId))
18 18  
19 19  
20 20  func getSellKey (nftId) = ((kSell + separator) + toBase58String(nftId))
21 21  
22 22  
23 23  func getAuctionKey (nftId) = ((kAuction + separator) + toBase58String(nftId))
24 24  
25 25  
26 26  func getTrustedKey (issuer) = ((kTrusted + separator) + toString(issuer))
27 27  
28 28  
29 29  func addToList (accum,nextValue) = (accum ++ [nextValue])
30 30  
31 31  
32 32  func joinString (params) = {
33 33      let length = size(params)
34 34      if ((length == 0))
35 35          then throw("Empty  params")
36 36          else if ((length == 1))
37 37              then makeString({
38 38                  let $l = params
39 39                  let $s = size($l)
40 40                  let $acc0 = nil
41 41                  func $f0_1 ($a,$i) =                 if (($i >= $s))
42 42                      then $a
43 43                      else addToList($a, $l[$i])
44 44  
45 45                  func $f0_2 ($a,$i) =                 if (($i >= $s))
46 46                      then $a
47 47                      else throw("List size exceeds 1")
48 48  
49 49                  $f0_2($f0_1($acc0, 0), 1)
50 50                  }, separator)
51 51              else if ((length == 2))
52 52                  then makeString({
53 53                      let $l = params
54 54                      let $s = size($l)
55 55                      let $acc0 = nil
56 56                      func $f0_1 ($a,$i) =                     if (($i >= $s))
57 57                          then $a
58 58                          else addToList($a, $l[$i])
59 59  
60 60                      func $f0_2 ($a,$i) =                     if (($i >= $s))
61 61                          then $a
62 62                          else throw("List size exceeds 2")
63 63  
64 64                      $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
65 65                      }, separator)
66 66                  else if ((length == 3))
67 67                      then makeString({
68 68                          let $l = params
69 69                          let $s = size($l)
70 70                          let $acc0 = nil
71 71                          func $f0_1 ($a,$i) =                         if (($i >= $s))
72 72                              then $a
73 73                              else addToList($a, $l[$i])
74 74  
75 75                          func $f0_2 ($a,$i) =                         if (($i >= $s))
76 76                              then $a
77 77                              else throw("List size exceeds 3")
78 78  
79 79                          $f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
80 80                          }, separator)
81 81                      else if ((length == 4))
82 82                          then makeString({
83 83                              let $l = params
84 84                              let $s = size($l)
85 85                              let $acc0 = nil
86 86                              func $f0_1 ($a,$i) =                             if (($i >= $s))
87 87                                  then $a
88 88                                  else addToList($a, $l[$i])
89 89  
90 90                              func $f0_2 ($a,$i) =                             if (($i >= $s))
91 91                                  then $a
92 92                                  else throw("List size exceeds 4")
93 93  
94 94                              $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
95 95                              }, separator)
96 96                          else if ((length == 5))
97 97                              then makeString({
98 98                                  let $l = params
99 99                                  let $s = size($l)
100 100                                  let $acc0 = nil
101 101                                  func $f0_1 ($a,$i) =                                 if (($i >= $s))
102 102                                      then $a
103 103                                      else addToList($a, $l[$i])
104 104  
105 105                                  func $f0_2 ($a,$i) =                                 if (($i >= $s))
106 106                                      then $a
107 107                                      else throw("List size exceeds 5")
108 108  
109 109                                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
110 110                                  }, separator)
111 111                              else throw("Max number of parameters exceeded")
112 112      }
113 113  
114 114  
115 115  func parseAsAuction (details) = {
116 116      let res = split(details, separator)
117 117      $Tuple5(addressFromStringValue(res[0]), parseIntValue(res[1]), parseIntValue(res[2]), parseIntValue(res[3]), parseIntValue(res[4]))
118 118      }
119 119  
120 120  
121 121  func parseAsSell (details) = {
122 122      let res = split(details, separator)
123 123      $Tuple2(addressFromStringValue(res[0]), parseIntValue(res[1]))
124 124      }
125 125  
126 126  
127 127  func joinStruct (params) = match params {
128 128      case auction: (Address, Int, String, String) => 
129 129          joinString([toString(auction._1), toString(auction._2), auction._3, auction._4])
130 130      case sell: (Address, Int) => 
131 131          joinString([toString(sell._1), toString(sell._2)])
132 132      case _ => 
133 133          throw("Wrong params tupple")
134 134  }
135 135  
136 136  
137 137  func setAuction (seller,nftId,startPrice,start,end) = StringEntry(getAuctionKey(nftId), joinStruct($Tuple4(seller, startPrice, start, end)))
138 138  
139 139  
140 140  func setSell (nftId,celler,price) = StringEntry(getSellKey(nftId), joinStruct($Tuple2(celler, price)))
141 141  
142 142  
143 143  func getAuction (nftId) = value(getString(this, getAuctionKey(nftId)))
144 144  
145 145  
146 146  func getSell (nftId) = value(getString(this, getSellKey(nftId)))
147 147  
148 148  
149 149  func calcPriceAtCurrentMoment (assetId,moment) = {
150 150      let details = getAuction(assetId)
151 151      let $t027552859 = parseAsAuction(details)
152 152      let seller = $t027552859._1
153 153      let startPriceValue = $t027552859._2
154 154      let endPriceValue = $t027552859._3
155 155      let startPeriodValue = $t027552859._4
156 156      let endPeriodValue = $t027552859._5
157 157      if ((moment >= endPeriodValue))
158 158          then $Tuple2(seller, endPriceValue)
159 159          else {
160 160              let deltaPrice = (startPriceValue - endPriceValue)
161 161              let period = (endPeriodValue - startPeriodValue)
162 162              let spended = (moment - startPeriodValue)
163 163              $Tuple2(seller, (startPriceValue - fraction(spended, deltaPrice, period)))
164 164              }
165 165      }
166 166  
167 167  
168 168  func isNft (assetId) = match assetInfo(assetId) {
169 169      case token: Asset => 
170 170          if (if ((token.decimals == 0))
171 171              then (token.quantity == 1)
172 172              else false)
173 173              then (token.reissuable == false)
174 174              else false
175 175      case _ => 
176 176          false
177 177  }
178 178  
179 179  
180 180  func isTrustedNft (assetId) = {
181 181      let issuer = value(assetInfo(assetId)).issuer
182 182      valueOrElse(getBoolean(this, getTrustedKey(issuer)), false)
183 183      }
184 184  
185 185  
186 186  func isSellExist (assetId) = isDefined(getString(this, getSellKey(assetId)))
187 187  
188 188  
189 189  func isAuctionExist (assetId) = isDefined(getString(this, getAuctionKey(assetId)))
190 190  
191 191  
192 192  func isCorrectSellPrice (price) = (price > 0)
193 193  
194 194  
195 195  func isCorrectAuctionPrices (startPrice,endPrice) = (startPrice > endPrice)
196 196  
197 197  
198 198  func isAdmin (caller) = (caller == this)
199 199  
200 200  
201 201  func isValidCaller (caller,seller) = if ((caller == this))
202 202      then true
203 203      else (caller == seller)
204 204  
205 205  
206 206  func isAuctionEnded (now,end) = (now > end)
207 207  
208 208  
209 209  func isEnoughFunds (payment,currentMomentPrice) = (payment >= currentMomentPrice)
210 210  
211 211  
212 212  func isWawes (assetId) = (assetId == unit)
213 213  
214 214  
215 215  func isCorrectNft (nftId) = if (!(isNft(nftId)))
216 216      then throw("Token is not Nft")
217 217      else if (isSellExist(nftId))
218 218          then throw("Sell already exists")
219 219          else if (isAuctionExist(nftId))
220 220              then throw("Auction already exists")
221 221              else unit
222 222  
223 223  
224 224  func isCorrectPayments (paymentAsset,paymentAmount,price) = if (!(isWawes(paymentAsset)))
225 225      then throw("Payment must be at WAVES")
226 226      else if (!(isEnoughFunds(paymentAmount, price)))
227 227          then throw("Not enough funds")
228 228          else unit
229 229  
230 230  
231 231  func calcFee () = 0
232 232  
233 233  
234 234  func calcTrustedFee () = 0
235 235  
236 236  
237 237  func resultFundsAmounts (isTrusted,paymentAmount,actualPrice) = if (isTrusted)
238 238      then $Tuple2((actualPrice - calcTrustedFee()), (paymentAmount - actualPrice))
239 239      else $Tuple2((actualPrice - calcFee()), (paymentAmount - actualPrice))
240 240  
241 241  
242 242  func getSlot (nftId) = if (isSellExist(nftId))
243 243      then $Tuple2(kSell, getSell(nftId))
244 244      else if (isAuctionExist(nftId))
245 245          then $Tuple2(kAuction, getAuction(nftId))
246 246          else throw("Slot doesn`t exist")
247 247  
248 248  
249 249  let kBuy = "buy"
250 250  
251 251  let kBid = "bid"
252 252  
253 253  let statusForNFT = $Tuple4("OPEN", "CLOSED", "REWARDED", "CANCELED")
254 254  
255 255  let dAppAddress = base58'3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq'
256 256  
257 257  @Callable(i)
258 258  func createNft (nft_name,nft_owner,nft_dAppAddress,nft_type,nft_tags,nft_selling_price,nft_description,nft_onSell,nft_data) = {
259 259      let newToken = Issue(nft_name, nft_description, 1, 0, false)
260 260      let issueId = calculateAssetId(newToken)
261 261      let txId = i.transactionId
262 262  [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))]
263 263      }
264 264  
265 265  
266 266  
267 267  @Callable(i)
268 268  func sellNFT (price) = {
269 269      let txId = i.transactionId
270 270      let seller = i.caller.bytes
271 271      let $t066056690 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
272 272      let token0 = $t066056690._1
273 273      let amount0 = $t066056690._2
274 274      if (!(isNft(token0)))
275 275          then throw("Token is not NFT")
276 276          else [StringEntry(((kPrice + separator) + toBase58String(value(i.payments[0].assetId))), toString(price)), StringEntry(((toString(i.caller) + separator) + kSell), ((toBase58String(token0) + separator) + toString(amount0)))]
277 277      }
278 278  
279 279  
280 280  
281 281  @Callable(i)
282 282  func buyNFT (nftID,current_nft_owner) = {
283 283      let assetId = fromBase58String(nftID)
284 284      let amount = value(i.payments[0].amount)
285 285      let checkOwnerIsSame =     match getString(this, (("nft_" + current_nft_owner) + "_owner")) {
286 286          case a: String => 
287 287              a
288 288          case _ => 
289 289              false
290 290      }
291 291      let price = getStringValue(((((kPrice + separator) + nftID) + "_") + current_nft_owner))
292 292      let owner = valueOrErrorMessage(getStringValue(((nftID + separator) + "Owner")), "No owner")
293 293      if ((i.payments[0].assetId != unit))
294 294          then throw("Pay in waves")
295 295          else if ((checkOwnerIsSame == toString(i.caller)))
296 296              then throw("Owner of NFT not able to purchase")
297 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"))]
298 298      }
299 299  
300 300  
301 301  
302 302  @Callable(i)
303 303  func addAuction (start,end,startPrice,duration) = {
304 304      let txId = toBase58String(i.transactionId)
305 305      let nftId = value(i.payments[0].assetId)
306 306      let price = value(startPrice)
307 307      let caller = i.caller.bytes
308 308      let checkNftAuctioned =     match getString(this, (((toBase58String(nftId) + separator) + "nft_status_") + toBase58String(caller))) {
309 309          case a: String => 
310 310              true
311 311          case _ => 
312 312              false
313 313      }
314 314      if ((i.payments[0].assetId == unit))
315 315          then throw("NFT not attached")
316 316          else if ((checkNftAuctioned == true))
317 317              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), IntegerEntry((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"), toString(startPrice)), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
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), StringEntry((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"), startPrice), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
319 319      }
320 320  
321 321  
322 322  
323 323  @Callable(i)
324 324  func placeBid (auctionId,nftId,nft_owner,bid_price) = {
325 325      let txId = toBase58String(i.transactionId)
326 326      let caller = i.caller.bytes
327 327      let assetId = fromBase58String(nftId)
328 328      let currentBidPrice = i.payments[0].amount
329 329      let getLastWinnerBidPrice = getStringValue(this, (auctionId + "_highest_bid"))
330 330      let getPreviousBidderAddress = getString(this, (auctionId + "_previous_bidder"))
331 331      let currentBidCount = getStringValue(this, (auctionId + "_bidder_count"))
332 332      let getLastWinnerAddress = getStringValue(this, (auctionId + "_winner_of_nft"))
333 333      let checkNftAuctioned = getStringValue(this, (auctionId + "_nft_status"))
334 334      if ((i.payments[0].assetId != unit))
335 335          then throw("Pay in waves")
336 336          else if ((checkNftAuctioned != "OPEN"))
337 337              then throw("Not open for auction")
338 338              else if ((parseIntValue(getLastWinnerBidPrice) >= currentBidPrice))
339 339                  then throw("Bid is less then starting/highest Bid")
340 340                  else if ((getLastWinnerBidPrice == "0"))
341 341                      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)]
342 342                      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)]
343 343      }
344 344  
345 345  
346 346  
347 347  @Callable(i)
348 348  func acceptBidOffer (auctionId,nftId,bid_amount_from_user) = {
349 349      let txId = toBase58String(i.transactionId)
350 350      let caller = i.caller.bytes
351 351      let assetId = fromBase58String(nftId)
352 352      let getNftWinningPrice = getStringValue(this, (auctionId + "_highest_bid"))
353 353      let getAuctionWinner = getStringValue(this, (auctionId + "_winner_of_nft"))
354 354  [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")]
355 355      }
356 356  
357 357  
358 358  
359 359  @Callable(i)
360 360  func cancelAuction (auctionId) = {
361 361      let txId = toBase58String(i.transactionId)
362 362      let caller = i.caller.bytes
363 363      let auctionStatus = getStringValue(this, (auctionId + "_nft_status"))
364 364      let biddingWinner = getStringValue(this, (auctionId + "_winner_of_nft"))
365 365      let nftOwner = getStringValue(this, (auctionId + "_nft_owner"))
366 366      let nftId = getStringValue(this, (auctionId + "_nft_on_auction"))
367 367      let biddingPrice = getStringValue(this, (auctionId + "_highest_bid"))
368 368  [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)]
369 369      }
370 370  
371 371  
372 372  
373 373  @Callable(i)
374 374  func withdrawBid (bidTxId) = {
375 375      let caller = i.caller.bytes
376 376      let bidPrice = getStringValue(this, (bidTxId + "_highest_bid"))
377 377      let asBidder = getStringValue(this, (bidTxId + "_winner"))
378 378      let bidForNFT = getStringValue(this, (bidTxId + "_nft_id"))
379 379      if ((toBase58String(caller) != asBidder))
380 380          then throw("No bid")
381 381          else [StringEntry((bidTxId + "_nft_bid"), "WITHDRAW"), StringEntry((bidTxId + "_nft_id"), bidForNFT), StringEntry((bidTxId + "_bidding_price_refund_amount"), bidPrice), ScriptTransfer(i.caller, parseIntValue(bidPrice), unit)]
382 382      }
383 383  
384 384  
385 385  
386 386  @Callable(i)
387 387  func testBid (data) = [StringEntry("bid", data)]
388 388  
389 389

Old	New		Differences
315	315		then throw("NFT not attached")
316	316		else if ((checkNftAuctioned == true))
317	317		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), ~~IntegerEntry~~((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"), ~~toString(~~startPrice)), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
	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), StringEntry((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"), startPrice), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
319	319		}
320	320
321	321

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let separator = "_"
5	5
6	6		let kAuction = "auction"
7	7
8	8		let kSell = "sell"
9	9
10	10		let kTrusted = "trusted"
11	11
12	12		let kPrice = "price"
13	13
14	14		func getSlotKey (prefix,nftId) = ((prefix + separator) + toBase58String(nftId))
15	15
16	16
17	17		func getPriceKey (nftId) = ((kPrice + separator) + toBase58String(nftId))
18	18
19	19
20	20		func getSellKey (nftId) = ((kSell + separator) + toBase58String(nftId))
21	21
22	22
23	23		func getAuctionKey (nftId) = ((kAuction + separator) + toBase58String(nftId))
24	24
25	25
26	26		func getTrustedKey (issuer) = ((kTrusted + separator) + toString(issuer))
27	27
28	28
29	29		func addToList (accum,nextValue) = (accum ++ [nextValue])
30	30
31	31
32	32		func joinString (params) = {
33	33		let length = size(params)
34	34		if ((length == 0))
35	35		then throw("Empty params")
36	36		else if ((length == 1))
37	37		then makeString({
38	38		let $l = params
39	39		let $s = size($l)
40	40		let $acc0 = nil
41	41		func $f0_1 ($a,$i) = if (($i >= $s))
42	42		then $a
43	43		else addToList($a, $l[$i])
44	44
45	45		func $f0_2 ($a,$i) = if (($i >= $s))
46	46		then $a
47	47		else throw("List size exceeds 1")
48	48
49	49		$f0_2($f0_1($acc0, 0), 1)
50	50		}, separator)
51	51		else if ((length == 2))
52	52		then makeString({
53	53		let $l = params
54	54		let $s = size($l)
55	55		let $acc0 = nil
56	56		func $f0_1 ($a,$i) = if (($i >= $s))
57	57		then $a
58	58		else addToList($a, $l[$i])
59	59
60	60		func $f0_2 ($a,$i) = if (($i >= $s))
61	61		then $a
62	62		else throw("List size exceeds 2")
63	63
64	64		$f0_2($f0_1($f0_1($acc0, 0), 1), 2)
65	65		}, separator)
66	66		else if ((length == 3))
67	67		then makeString({
68	68		let $l = params
69	69		let $s = size($l)
70	70		let $acc0 = nil
71	71		func $f0_1 ($a,$i) = if (($i >= $s))
72	72		then $a
73	73		else addToList($a, $l[$i])
74	74
75	75		func $f0_2 ($a,$i) = if (($i >= $s))
76	76		then $a
77	77		else throw("List size exceeds 3")
78	78
79	79		$f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
80	80		}, separator)
81	81		else if ((length == 4))
82	82		then makeString({
83	83		let $l = params
84	84		let $s = size($l)
85	85		let $acc0 = nil
86	86		func $f0_1 ($a,$i) = if (($i >= $s))
87	87		then $a
88	88		else addToList($a, $l[$i])
89	89
90	90		func $f0_2 ($a,$i) = if (($i >= $s))
91	91		then $a
92	92		else throw("List size exceeds 4")
93	93
94	94		$f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
95	95		}, separator)
96	96		else if ((length == 5))
97	97		then makeString({
98	98		let $l = params
99	99		let $s = size($l)
100	100		let $acc0 = nil
101	101		func $f0_1 ($a,$i) = if (($i >= $s))
102	102		then $a
103	103		else addToList($a, $l[$i])
104	104
105	105		func $f0_2 ($a,$i) = if (($i >= $s))
106	106		then $a
107	107		else throw("List size exceeds 5")
108	108
109	109		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
110	110		}, separator)
111	111		else throw("Max number of parameters exceeded")
112	112		}
113	113
114	114
115	115		func parseAsAuction (details) = {
116	116		let res = split(details, separator)
117	117		$Tuple5(addressFromStringValue(res[0]), parseIntValue(res[1]), parseIntValue(res[2]), parseIntValue(res[3]), parseIntValue(res[4]))
118	118		}
119	119
120	120
121	121		func parseAsSell (details) = {
122	122		let res = split(details, separator)
123	123		$Tuple2(addressFromStringValue(res[0]), parseIntValue(res[1]))
124	124		}
125	125
126	126
127	127		func joinStruct (params) = match params {
128	128		case auction: (Address, Int, String, String) =>
129	129		joinString([toString(auction._1), toString(auction._2), auction._3, auction._4])
130	130		case sell: (Address, Int) =>
131	131		joinString([toString(sell._1), toString(sell._2)])
132	132		case _ =>
133	133		throw("Wrong params tupple")
134	134		}
135	135
136	136
137	137		func setAuction (seller,nftId,startPrice,start,end) = StringEntry(getAuctionKey(nftId), joinStruct($Tuple4(seller, startPrice, start, end)))
138	138
139	139
140	140		func setSell (nftId,celler,price) = StringEntry(getSellKey(nftId), joinStruct($Tuple2(celler, price)))
141	141
142	142
143	143		func getAuction (nftId) = value(getString(this, getAuctionKey(nftId)))
144	144
145	145
146	146		func getSell (nftId) = value(getString(this, getSellKey(nftId)))
147	147
148	148
149	149		func calcPriceAtCurrentMoment (assetId,moment) = {
150	150		let details = getAuction(assetId)
151	151		let $t027552859 = parseAsAuction(details)
152	152		let seller = $t027552859._1
153	153		let startPriceValue = $t027552859._2
154	154		let endPriceValue = $t027552859._3
155	155		let startPeriodValue = $t027552859._4
156	156		let endPeriodValue = $t027552859._5
157	157		if ((moment >= endPeriodValue))
158	158		then $Tuple2(seller, endPriceValue)
159	159		else {
160	160		let deltaPrice = (startPriceValue - endPriceValue)
161	161		let period = (endPeriodValue - startPeriodValue)
162	162		let spended = (moment - startPeriodValue)
163	163		$Tuple2(seller, (startPriceValue - fraction(spended, deltaPrice, period)))
164	164		}
165	165		}
166	166
167	167
168	168		func isNft (assetId) = match assetInfo(assetId) {
169	169		case token: Asset =>
170	170		if (if ((token.decimals == 0))
171	171		then (token.quantity == 1)
172	172		else false)
173	173		then (token.reissuable == false)
174	174		else false
175	175		case _ =>
176	176		false
177	177		}
178	178
179	179
180	180		func isTrustedNft (assetId) = {
181	181		let issuer = value(assetInfo(assetId)).issuer
182	182		valueOrElse(getBoolean(this, getTrustedKey(issuer)), false)
183	183		}
184	184
185	185
186	186		func isSellExist (assetId) = isDefined(getString(this, getSellKey(assetId)))
187	187
188	188
189	189		func isAuctionExist (assetId) = isDefined(getString(this, getAuctionKey(assetId)))
190	190
191	191
192	192		func isCorrectSellPrice (price) = (price > 0)
193	193
194	194
195	195		func isCorrectAuctionPrices (startPrice,endPrice) = (startPrice > endPrice)
196	196
197	197
198	198		func isAdmin (caller) = (caller == this)
199	199
200	200
201	201		func isValidCaller (caller,seller) = if ((caller == this))
202	202		then true
203	203		else (caller == seller)
204	204
205	205
206	206		func isAuctionEnded (now,end) = (now > end)
207	207
208	208
209	209		func isEnoughFunds (payment,currentMomentPrice) = (payment >= currentMomentPrice)
210	210
211	211
212	212		func isWawes (assetId) = (assetId == unit)
213	213
214	214
215	215		func isCorrectNft (nftId) = if (!(isNft(nftId)))
216	216		then throw("Token is not Nft")
217	217		else if (isSellExist(nftId))
218	218		then throw("Sell already exists")
219	219		else if (isAuctionExist(nftId))
220	220		then throw("Auction already exists")
221	221		else unit
222	222
223	223
224	224		func isCorrectPayments (paymentAsset,paymentAmount,price) = if (!(isWawes(paymentAsset)))
225	225		then throw("Payment must be at WAVES")
226	226		else if (!(isEnoughFunds(paymentAmount, price)))
227	227		then throw("Not enough funds")
228	228		else unit
229	229
230	230
231	231		func calcFee () = 0
232	232
233	233
234	234		func calcTrustedFee () = 0
235	235
236	236
237	237		func resultFundsAmounts (isTrusted,paymentAmount,actualPrice) = if (isTrusted)
238	238		then $Tuple2((actualPrice - calcTrustedFee()), (paymentAmount - actualPrice))
239	239		else $Tuple2((actualPrice - calcFee()), (paymentAmount - actualPrice))
240	240
241	241
242	242		func getSlot (nftId) = if (isSellExist(nftId))
243	243		then $Tuple2(kSell, getSell(nftId))
244	244		else if (isAuctionExist(nftId))
245	245		then $Tuple2(kAuction, getAuction(nftId))
246	246		else throw("Slot doesn`t exist")
247	247
248	248
249	249		let kBuy = "buy"
250	250
251	251		let kBid = "bid"
252	252
253	253		let statusForNFT = $Tuple4("OPEN", "CLOSED", "REWARDED", "CANCELED")
254	254
255	255		let dAppAddress = base58'3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq'
256	256
257	257		@Callable(i)
258	258		func createNft (nft_name,nft_owner,nft_dAppAddress,nft_type,nft_tags,nft_selling_price,nft_description,nft_onSell,nft_data) = {
259	259		let newToken = Issue(nft_name, nft_description, 1, 0, false)
260	260		let issueId = calculateAssetId(newToken)
261	261		let txId = i.transactionId
262	262		[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))]
263	263		}
264	264
265	265
266	266
267	267		@Callable(i)
268	268		func sellNFT (price) = {
269	269		let txId = i.transactionId
270	270		let seller = i.caller.bytes
271	271		let $t066056690 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
272	272		let token0 = $t066056690._1
273	273		let amount0 = $t066056690._2
274	274		if (!(isNft(token0)))
275	275		then throw("Token is not NFT")
276	276		else [StringEntry(((kPrice + separator) + toBase58String(value(i.payments[0].assetId))), toString(price)), StringEntry(((toString(i.caller) + separator) + kSell), ((toBase58String(token0) + separator) + toString(amount0)))]
277	277		}
278	278
279	279
280	280
281	281		@Callable(i)
282	282		func buyNFT (nftID,current_nft_owner) = {
283	283		let assetId = fromBase58String(nftID)
284	284		let amount = value(i.payments[0].amount)
285	285		let checkOwnerIsSame = match getString(this, (("nft_" + current_nft_owner) + "_owner")) {
286	286		case a: String =>
287	287		a
288	288		case _ =>
289	289		false
290	290		}
291	291		let price = getStringValue(((((kPrice + separator) + nftID) + "_") + current_nft_owner))
292	292		let owner = valueOrErrorMessage(getStringValue(((nftID + separator) + "Owner")), "No owner")
293	293		if ((i.payments[0].assetId != unit))
294	294		then throw("Pay in waves")
295	295		else if ((checkOwnerIsSame == toString(i.caller)))
296	296		then throw("Owner of NFT not able to purchase")
297	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"))]
298	298		}
299	299
300	300
301	301
302	302		@Callable(i)
303	303		func addAuction (start,end,startPrice,duration) = {
304	304		let txId = toBase58String(i.transactionId)
305	305		let nftId = value(i.payments[0].assetId)
306	306		let price = value(startPrice)
307	307		let caller = i.caller.bytes
308	308		let checkNftAuctioned = match getString(this, (((toBase58String(nftId) + separator) + "nft_status_") + toBase58String(caller))) {
309	309		case a: String =>
310	310		true
311	311		case _ =>
312	312		false
313	313		}
314	314		if ((i.payments[0].assetId == unit))
315	315		then throw("NFT not attached")
316	316		else if ((checkNftAuctioned == true))
317	317		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), ~~IntegerEntry~~((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"), ~~toString(~~startPrice)), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
	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), StringEntry((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"), startPrice), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
319	319		}
320	320
321	321
322	322
323	323		@Callable(i)
324	324		func placeBid (auctionId,nftId,nft_owner,bid_price) = {
325	325		let txId = toBase58String(i.transactionId)
326	326		let caller = i.caller.bytes
327	327		let assetId = fromBase58String(nftId)
328	328		let currentBidPrice = i.payments[0].amount
329	329		let getLastWinnerBidPrice = getStringValue(this, (auctionId + "_highest_bid"))
330	330		let getPreviousBidderAddress = getString(this, (auctionId + "_previous_bidder"))
331	331		let currentBidCount = getStringValue(this, (auctionId + "_bidder_count"))
332	332		let getLastWinnerAddress = getStringValue(this, (auctionId + "_winner_of_nft"))
333	333		let checkNftAuctioned = getStringValue(this, (auctionId + "_nft_status"))
334	334		if ((i.payments[0].assetId != unit))
335	335		then throw("Pay in waves")
336	336		else if ((checkNftAuctioned != "OPEN"))
337	337		then throw("Not open for auction")
338	338		else if ((parseIntValue(getLastWinnerBidPrice) >= currentBidPrice))
339	339		then throw("Bid is less then starting/highest Bid")
340	340		else if ((getLastWinnerBidPrice == "0"))
341	341		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)]
342	342		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)]
343	343		}
344	344
345	345
346	346
347	347		@Callable(i)
348	348		func acceptBidOffer (auctionId,nftId,bid_amount_from_user) = {
349	349		let txId = toBase58String(i.transactionId)
350	350		let caller = i.caller.bytes
351	351		let assetId = fromBase58String(nftId)
352	352		let getNftWinningPrice = getStringValue(this, (auctionId + "_highest_bid"))
353	353		let getAuctionWinner = getStringValue(this, (auctionId + "_winner_of_nft"))
354	354		[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")]
355	355		}
356	356
357	357
358	358
359	359		@Callable(i)
360	360		func cancelAuction (auctionId) = {
361	361		let txId = toBase58String(i.transactionId)
362	362		let caller = i.caller.bytes
363	363		let auctionStatus = getStringValue(this, (auctionId + "_nft_status"))
364	364		let biddingWinner = getStringValue(this, (auctionId + "_winner_of_nft"))
365	365		let nftOwner = getStringValue(this, (auctionId + "_nft_owner"))
366	366		let nftId = getStringValue(this, (auctionId + "_nft_on_auction"))
367	367		let biddingPrice = getStringValue(this, (auctionId + "_highest_bid"))
368	368		[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)]
369	369		}
370	370
371	371
372	372
373	373		@Callable(i)
374	374		func withdrawBid (bidTxId) = {
375	375		let caller = i.caller.bytes
376	376		let bidPrice = getStringValue(this, (bidTxId + "_highest_bid"))
377	377		let asBidder = getStringValue(this, (bidTxId + "_winner"))
378	378		let bidForNFT = getStringValue(this, (bidTxId + "_nft_id"))
379	379		if ((toBase58String(caller) != asBidder))
380	380		then throw("No bid")
381	381		else [StringEntry((bidTxId + "_nft_bid"), "WITHDRAW"), StringEntry((bidTxId + "_nft_id"), bidForNFT), StringEntry((bidTxId + "_bidding_price_refund_amount"), bidPrice), ScriptTransfer(i.caller, parseIntValue(bidPrice), unit)]
382	382		}
383	383
384	384
385	385
386	386		@Callable(i)
387	387		func testBid (data) = [StringEntry("bid", data)]
388	388
389	389

github/deemru/w8io/873ac7e 
71.50 ms ◑