w8 · tx · 4FB···KzE

tx · 4FBjktf1wH4zmU5V1Hx62jWHZTFRhvshQTptSMFgDKzE

3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq:  -0.50000000 Waves

2022.12.01 14:26 [2341214] smart account 3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4FBjktf1wH4zmU5V1Hx62jWHZTFRhvshQTptSMFgDKzE",
    "fee": 50000000,
    "feeAssetId": null,
    "timestamp": 1669894012923,
    "version": 2,
    "chainId": 84,
    "sender": "3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq",
    "senderPublicKey": "H6UqxUDcJamDRg1uykVcWMn4zhAMTV7i1nfPq1moLWmJ",
    "proofs": [
        "32V6CsLH9gtVLZBARSvcgbNLiiyviDy9XgGEkD8rA1jf89ejTfUHY4q8DsY5ptZEWftyCZ6rBRaraEpVzygZASMo"
    ],
    "script": "base64:BgJYCAISBgoECAgBARIFCgMICAESABIECgIICBILCgkICAgICAEICAgSBAoCCAgSBAoCCAgSAwoBCBIDCgEBEgUKAwgIARIDCgEIEgMKAQgSAwoBCBIECgIIASkACXNlcGFyYXRvcgIBXwAIa0F1Y3Rpb24CB2F1Y3Rpb24ABWtTZWxsAgRzZWxsAAhrVHJ1c3RlZAIHdHJ1c3RlZAAGa1ByaWNlAgVwcmljZQEKZ2V0U2xvdEtleQIGcHJlZml4BW5mdElkCQCsAgIJAKwCAgUGcHJlZml4BQlzZXBhcmF0b3IJANgEAQUFbmZ0SWQBC2dldFByaWNlS2V5AQVuZnRJZAkArAICCQCsAgIFBmtQcmljZQUJc2VwYXJhdG9yCQDYBAEFBW5mdElkAQpnZXRTZWxsS2V5AQVuZnRJZAkArAICCQCsAgIFBWtTZWxsBQlzZXBhcmF0b3IJANgEAQUFbmZ0SWQBDWdldEF1Y3Rpb25LZXkBBW5mdElkCQCsAgIJAKwCAgUIa0F1Y3Rpb24FCXNlcGFyYXRvcgkA2AQBBQVuZnRJZAENZ2V0VHJ1c3RlZEtleQEGaXNzdWVyCQCsAgIJAKwCAgUIa1RydXN0ZWQFCXNlcGFyYXRvcgkApQgBBQZpc3N1ZXIBCWFkZFRvTGlzdAIFYWNjdW0JbmV4dFZhbHVlCQDOCAIFBWFjY3VtCQDMCAIFCW5leHRWYWx1ZQUDbmlsAQpqb2luU3RyaW5nAQZwYXJhbXMEBmxlbmd0aAkAkAMBBQZwYXJhbXMDCQAAAgUGbGVuZ3RoAAAJAAIBAg1FbXB0eSAgcGFyYW1zAwkAAAIFBmxlbmd0aAABCQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDEJAQUkZjBfMgIJAQUkZjBfMQIFBSRhY2MwAAAAAQUJc2VwYXJhdG9yAwkAAAIFBmxlbmd0aAACCQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDIJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACBQlzZXBhcmF0b3IDCQAAAgUGbGVuZ3RoAAMJALkJAgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWFkZFRvTGlzdAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMwkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwUJc2VwYXJhdG9yAwkAAAIFBmxlbmd0aAAECQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDQJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAUJc2VwYXJhdG9yAwkAAAIFBmxlbmd0aAAFCQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFBQlzZXBhcmF0b3IJAAIBAiFNYXggbnVtYmVyIG9mIHBhcmFtZXRlcnMgZXhjZWVkZWQBDnBhcnNlQXNBdWN0aW9uAQdkZXRhaWxzBANyZXMJALUJAgUHZGV0YWlscwUJc2VwYXJhdG9yCQCXCgUJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUDcmVzAAAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNyZXMAAQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA3JlcwACCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDcmVzAAMJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNyZXMABAELcGFyc2VBc1NlbGwBB2RldGFpbHMEA3JlcwkAtQkCBQdkZXRhaWxzBQlzZXBhcmF0b3IJAJQKAgkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQNyZXMAAAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA3JlcwABAQpqb2luU3RydWN0AQZwYXJhbXMEByRtYXRjaDAFBnBhcmFtcwMJAAECBQckbWF0Y2gwAh4oQWRkcmVzcywgSW50LCBTdHJpbmcsIFN0cmluZykEB2F1Y3Rpb24FByRtYXRjaDAJAQpqb2luU3RyaW5nAQkAzAgCCQClCAEIBQdhdWN0aW9uAl8xCQDMCAIJAKQDAQgFB2F1Y3Rpb24CXzIJAMwIAggFB2F1Y3Rpb24CXzMJAMwIAggFB2F1Y3Rpb24CXzQFA25pbAMJAAECBQckbWF0Y2gwAg4oQWRkcmVzcywgSW50KQQEc2VsbAUHJG1hdGNoMAkBCmpvaW5TdHJpbmcBCQDMCAIJAKUIAQgFBHNlbGwCXzEJAMwIAgkApAMBCAUEc2VsbAJfMgUDbmlsCQACAQITV3JvbmcgcGFyYW1zIHR1cHBsZQEKc2V0QXVjdGlvbgUGc2VsbGVyBW5mdElkCnN0YXJ0UHJpY2UFc3RhcnQDZW5kCQELU3RyaW5nRW50cnkCCQENZ2V0QXVjdGlvbktleQEFBW5mdElkCQEKam9pblN0cnVjdAEJAJYKBAUGc2VsbGVyBQpzdGFydFByaWNlBQVzdGFydAUDZW5kAQdzZXRTZWxsAwVuZnRJZAZjZWxsZXIFcHJpY2UJAQtTdHJpbmdFbnRyeQIJAQpnZXRTZWxsS2V5AQUFbmZ0SWQJAQpqb2luU3RydWN0AQkAlAoCBQZjZWxsZXIFBXByaWNlAQpnZXRBdWN0aW9uAQVuZnRJZAkBBXZhbHVlAQkAnQgCBQR0aGlzCQENZ2V0QXVjdGlvbktleQEFBW5mdElkAQdnZXRTZWxsAQVuZnRJZAkBBXZhbHVlAQkAnQgCBQR0aGlzCQEKZ2V0U2VsbEtleQEFBW5mdElkARhjYWxjUHJpY2VBdEN1cnJlbnRNb21lbnQCB2Fzc2V0SWQGbW9tZW50BAdkZXRhaWxzCQEKZ2V0QXVjdGlvbgEFB2Fzc2V0SWQECyR0MDI3NTUyODU5CQEOcGFyc2VBc0F1Y3Rpb24BBQdkZXRhaWxzBAZzZWxsZXIIBQskdDAyNzU1Mjg1OQJfMQQPc3RhcnRQcmljZVZhbHVlCAULJHQwMjc1NTI4NTkCXzIEDWVuZFByaWNlVmFsdWUIBQskdDAyNzU1Mjg1OQJfMwQQc3RhcnRQZXJpb2RWYWx1ZQgFCyR0MDI3NTUyODU5Al80BA5lbmRQZXJpb2RWYWx1ZQgFCyR0MDI3NTUyODU5Al81AwkAZwIFBm1vbWVudAUOZW5kUGVyaW9kVmFsdWUJAJQKAgUGc2VsbGVyBQ1lbmRQcmljZVZhbHVlBApkZWx0YVByaWNlCQBlAgUPc3RhcnRQcmljZVZhbHVlBQ1lbmRQcmljZVZhbHVlBAZwZXJpb2QJAGUCBQ5lbmRQZXJpb2RWYWx1ZQUQc3RhcnRQZXJpb2RWYWx1ZQQHc3BlbmRlZAkAZQIFBm1vbWVudAUQc3RhcnRQZXJpb2RWYWx1ZQkAlAoCBQZzZWxsZXIJAGUCBQ9zdGFydFByaWNlVmFsdWUJAGsDBQdzcGVuZGVkBQpkZWx0YVByaWNlBQZwZXJpb2QBBWlzTmZ0AQdhc3NldElkBAckbWF0Y2gwCQDsBwEFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIFQXNzZXQEBXRva2VuBQckbWF0Y2gwAwMJAAACCAUFdG9rZW4IZGVjaW1hbHMAAAkAAAIIBQV0b2tlbghxdWFudGl0eQABBwkAAAIIBQV0b2tlbgpyZWlzc3VhYmxlBwcHAQxpc1RydXN0ZWROZnQBB2Fzc2V0SWQEBmlzc3VlcggJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAZpc3N1ZXIJAQt2YWx1ZU9yRWxzZQIJAJsIAgUEdGhpcwkBDWdldFRydXN0ZWRLZXkBBQZpc3N1ZXIHAQtpc1NlbGxFeGlzdAEHYXNzZXRJZAkBCWlzRGVmaW5lZAEJAJ0IAgUEdGhpcwkBCmdldFNlbGxLZXkBBQdhc3NldElkAQ5pc0F1Y3Rpb25FeGlzdAEHYXNzZXRJZAkBCWlzRGVmaW5lZAEJAJ0IAgUEdGhpcwkBDWdldEF1Y3Rpb25LZXkBBQdhc3NldElkARJpc0NvcnJlY3RTZWxsUHJpY2UBBXByaWNlCQBmAgUFcHJpY2UAAAEWaXNDb3JyZWN0QXVjdGlvblByaWNlcwIKc3RhcnRQcmljZQhlbmRQcmljZQkAZgIFCnN0YXJ0UHJpY2UFCGVuZFByaWNlAQdpc0FkbWluAQZjYWxsZXIJAAACBQZjYWxsZXIFBHRoaXMBDWlzVmFsaWRDYWxsZXICBmNhbGxlcgZzZWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBgkAAAIFBmNhbGxlcgUGc2VsbGVyAQ5pc0F1Y3Rpb25FbmRlZAIDbm93A2VuZAkAZgIFA25vdwUDZW5kAQ1pc0Vub3VnaEZ1bmRzAgdwYXltZW50EmN1cnJlbnRNb21lbnRQcmljZQkAZwIFB3BheW1lbnQFEmN1cnJlbnRNb21lbnRQcmljZQEHaXNXYXdlcwEHYXNzZXRJZAkAAAIFB2Fzc2V0SWQFBHVuaXQBDGlzQ29ycmVjdE5mdAEFbmZ0SWQDCQEBIQEJAQVpc05mdAEFBW5mdElkCQACAQIQVG9rZW4gaXMgbm90IE5mdAMJAQtpc1NlbGxFeGlzdAEFBW5mdElkCQACAQITU2VsbCBhbHJlYWR5IGV4aXN0cwMJAQ5pc0F1Y3Rpb25FeGlzdAEFBW5mdElkCQACAQIWQXVjdGlvbiBhbHJlYWR5IGV4aXN0cwUEdW5pdAERaXNDb3JyZWN0UGF5bWVudHMDDHBheW1lbnRBc3NldA1wYXltZW50QW1vdW50BXByaWNlAwkBASEBCQEHaXNXYXdlcwEFDHBheW1lbnRBc3NldAkAAgECGFBheW1lbnQgbXVzdCBiZSBhdCBXQVZFUwMJAQEhAQkBDWlzRW5vdWdoRnVuZHMCBQ1wYXltZW50QW1vdW50BQVwcmljZQkAAgECEE5vdCBlbm91Z2ggZnVuZHMFBHVuaXQBB2NhbGNGZWUAAAABDmNhbGNUcnVzdGVkRmVlAAAAARJyZXN1bHRGdW5kc0Ftb3VudHMDCWlzVHJ1c3RlZA1wYXltZW50QW1vdW50C2FjdHVhbFByaWNlAwUJaXNUcnVzdGVkCQCUCgIJAGUCBQthY3R1YWxQcmljZQkBDmNhbGNUcnVzdGVkRmVlAAkAZQIFDXBheW1lbnRBbW91bnQFC2FjdHVhbFByaWNlCQCUCgIJAGUCBQthY3R1YWxQcmljZQkBB2NhbGNGZWUACQBlAgUNcGF5bWVudEFtb3VudAULYWN0dWFsUHJpY2UBB2dldFNsb3QBBW5mdElkAwkBC2lzU2VsbEV4aXN0AQUFbmZ0SWQJAJQKAgUFa1NlbGwJAQdnZXRTZWxsAQUFbmZ0SWQDCQEOaXNBdWN0aW9uRXhpc3QBBQVuZnRJZAkAlAoCBQhrQXVjdGlvbgkBCmdldEF1Y3Rpb24BBQVuZnRJZAkAAgECElNsb3QgZG9lc25gdCBleGlzdAAEa0J1eQIDYnV5AARrQmlkAgNiaWQADHN0YXR1c0Zvck5GVAkAlgoEAgRPUEVOAgZDTE9TRUQCCFJFV0FSREVEAghDQU5DRUxFRAALZEFwcEFkZHJlc3MBGgFUSrhPbN7C2pPt9I7pSjb41U9/ldVVW12gDgFpAQhwbGFjZUJpZAQFbmZ0SWQJbmZ0X293bmVyCW1pbl9wcmljZQliaWRfcHJpY2UEBmNhbGxlcggFAWkGY2FsbGVyBAdhc3NldElkCQDZBAEFBW5mdElkBAZhbW91bnQJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BBFjaGVja05mdEF1Y3Rpb25lZAQHJG1hdGNoMAkAnQgCBQR0aGlzCQCsAgIJAKwCAgkArAICBQVuZnRJZAUJc2VwYXJhdG9yAgtuZnRfc3RhdHVzXwUJbmZ0X293bmVyAwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAUBYQcDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFBHVuaXQJAAIBAgxQYXkgaW4gd2F2ZXMDCQECIT0CBRFjaGVja05mdEF1Y3Rpb25lZAgFDHN0YXR1c0Zvck5GVAJfMQkAAgECGE5vdCBvcGVuIGluIGF1Y3Rpb24gbGlzdAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICAgduZnRfaWRfBQVuZnRJZAIBXwkA2AQBCAUGY2FsbGVyBWJ5dGVzBQVuZnRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICAgpuZnRfb3duZXJfBQVuZnRJZAIBXwkA2AQBCAUGY2FsbGVyBWJ5dGVzBQluZnRfb3duZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgIMYmlkZGluZ19mb3JfBQVuZnRJZAIEX2J5XwkA2AQBCAUGY2FsbGVyBWJ5dGVzCQDYBAEIBQZjYWxsZXIFYnl0ZXMJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgIObWluX3ByaWNlX2Zvcl8FBW5mdElkAgRfYnlfCQDYBAEIBQZjYWxsZXIFYnl0ZXMJAKQDAQUJbWluX3ByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgICDWJpZF9wcmljZV9mb3IFBW5mdElkAgRfYnlfCQDYBAEIBQZjYWxsZXIFYnl0ZXMJAKQDAQUJYmlkX3ByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgICJ3RyYW5zZmVyX25mdF90b19kYXBwd2l0aF9iaWRfcHJpY2VfZm9yXwUFbmZ0SWQCBF9ieV8JANgEAQgFBmNhbGxlcgVieXRlcwkA2AQBBQtkQXBwQWRkcmVzcwUDbmlsAWkBDmFjY2VwdEJpZE9mZmVyAwVuZnRJZBBhY2NlcHRlZF9hZGRyZXNzFGJpZF9hbW91bnRfZnJvbV91c2VyBAZjYWxsZXIICAUBaQZjYWxsZXIFYnl0ZXMEB2Fzc2V0SWQJANkEAQUFbmZ0SWQEF2FjY2VwdGVkQWRkcmVzc09mQmlkZGVyCQDZBAEFEGFjY2VwdGVkX2FkZHJlc3MJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCAgFAWkGY2FsbGVyBWJ5dGVzBRRiaWRfYW1vdW50X2Zyb21fdXNlcgUEdW5pdAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQEHQWRkcmVzcwEFF2FjY2VwdGVkQWRkcmVzc09mQmlkZGVyAAEFB2Fzc2V0SWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFBW5mdElkAg1fcmV3YXJkZWRfdG9fBRBhY2NlcHRlZF9hZGRyZXNzBRBhY2NlcHRlZF9hZGRyZXNzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgIYbmZ0X3RyYW5zZmVyX3N0YXR1c19mcm9tCQDYBAEFBmNhbGxlcggFDHN0YXR1c0Zvck5GVAJfMwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICAhRuZnRfdHJhbnNmZXJfc3RhdHVzXwUFbmZ0SWQCDV90cmFuc2Zlcl90b18FEGFjY2VwdGVkX2FkZHJlc3MFEGFjY2VwdGVkX2FkZHJlc3MJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICCQCsAgIJAKwCAgUFbmZ0SWQFCXNlcGFyYXRvcgILbmZ0X3N0YXR1c18JANgEAQUGY2FsbGVyBQNuaWwBaQEDcGF5AAQGYW1vdW50CQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAMJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUEdW5pdAkAAgECDFBheSBpbiB3YXZlcwUDbmlsAWkBCmNvbmZpcm1CaWQCBW5mdElkC3VzZXJBZGRyZXNzCQDMCAIJAQtTdHJpbmdFbnRyeQICCmJpZF93aW5uZXIFC3VzZXJBZGRyZXNzBQNuaWwBaQEJY3JlYXRlTmZ0CQhuZnRfbmFtZQluZnRfb3duZXIPbmZ0X2RBcHBBZGRyZXNzCG5mdF90eXBlCG5mdF90YWdzEW5mdF9zZWxsaW5nX3ByaWNlD25mdF9kZXNjcmlwdGlvbgpuZnRfb25TZWxsCG5mdF9kYXRhBAhuZXdUb2tlbgkAwggFBQhuZnRfbmFtZQUPbmZ0X2Rlc2NyaXB0aW9uAAEAAAcEB2lzc3VlSWQJALgIAQUIbmV3VG9rZW4EBHR4SWQIBQFpDXRyYW5zYWN0aW9uSWQJAMwIAgUIbmV3VG9rZW4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyAAEFB2lzc3VlSWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAgVPd25lcgkApQgBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAghuZnRfdHlwZQUIbmZ0X3R5cGUJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAghuZnRfdGFncwUIbmZ0X3RhZ3MJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAg9uZnRfZEFwcEFkZHJlc3MFD25mdF9kQXBwQWRkcmVzcwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAhFuZnRfc2VsbGluZ19wcmljZQURbmZ0X3NlbGxpbmdfcHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAgpuZnRfb25TZWxsBQpuZnRfb25TZWxsCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIIbmZ0X2RhdGEFCG5mdF9kYXRhCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFBHR4SWQFCXNlcGFyYXRvcgIJaXNzdWVfbmZ0CQDYBAEFB2lzc3VlSWQFA25pbAFpAQhpc3N1ZU5mdAIEbmFtZQRtZXRhBAhuZXdUb2tlbgkAwggFBQRuYW1lBQRtZXRhAAEAAAcEB2lzc3VlSWQJALgIAQUIbmV3VG9rZW4JAMwIAgUIbmV3VG9rZW4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyAAEFB2lzc3VlSWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAgVPd25lcgkApQgBCAUBaQZjYWxsZXIFA25pbAFpAQZidXlORlQCBW5mdElEEWN1cnJlbnRfbmZ0X293bmVyBAdhc3NldElkCQDZBAEFBW5mdElEBAZhbW91bnQJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BBBjaGVja093bmVySXNTYW1lBAckbWF0Y2gwCQCdCAIFBHRoaXMJAKwCAgkArAICAgRuZnRfBRFjdXJyZW50X25mdF9vd25lcgIGX293bmVyAwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAUBYQcEBXByaWNlCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAKwCAgkArAICCQCsAgIFBmtQcmljZQUJc2VwYXJhdG9yBQVuZnRJRAIBXwURY3VycmVudF9uZnRfb3duZXIEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkArAICBQVuZnRJRAUJc2VwYXJhdG9yAgVPd25lcgIITm8gb3duZXIDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFBHVuaXQJAAIBAgxQYXkgaW4gd2F2ZXMDCQAAAgUQY2hlY2tPd25lcklzU2FtZQkApQgBCAUBaQZjYWxsZXIJAAIBAiFPd25lciBvZiBORlQgbm90IGFibGUgdG8gcHVyY2hhc2UJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyAAEFB2Fzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCQDZBAEFBW93bmVyBQZhbW91bnQFBHVuaXQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKUIAQgFAWkGY2FsbGVyBQlzZXBhcmF0b3IFBGtCdXkJAKwCAgkArAICBQVuZnRJRAUJc2VwYXJhdG9yCQCkAwEFBmFtb3VudAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIJAKwCAgIEbmZ0XwURY3VycmVudF9uZnRfb3duZXICBl9vd25lcgUDbmlsAWkBB3NlbGxORlQBBXByaWNlBAZzZWxsZXIICAUBaQZjYWxsZXIFYnl0ZXMEDSR0MDEwMjQyMTAzMjcJAJQKAgkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAQGdG9rZW4wCAUNJHQwMTAyNDIxMDMyNwJfMQQHYW1vdW50MAgFDSR0MDEwMjQyMTAzMjcCXzIDCQEBIQEJAQVpc05mdAEFBnRva2VuMAkAAgECEFRva2VuIGlzIG5vdCBORlQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgICBG5mdF8JANgEAQUGc2VsbGVyAgZfb3duZXIJANgEAQUGc2VsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgIJAKwCAgUGa1ByaWNlBQlzZXBhcmF0b3IJANgEAQkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkAgFfCQClCAEIBQFpBmNhbGxlcgUFcHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKUIAQgFAWkGY2FsbGVyBQlzZXBhcmF0b3IFBWtTZWxsCQCsAgIJAKwCAgkA2AQBBQZ0b2tlbjAFCXNlcGFyYXRvcgkApAMBBQdhbW91bnQwBQNuaWwBaQEHYWRkU2VsbAEFcHJpY2UEBW5mdElkCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAQxpc0NvcnJlY3ROZnQBBQVuZnRJZAMJAQEhAQkBEmlzQ29ycmVjdFNlbGxQcmljZQEFBXByaWNlCQACAQIRUHJpY2UgbXVzdCBiZSA+IDAJAMwIAgkBB3NldFNlbGwDBQVuZnRJZAgFAWkGY2FsbGVyBQVwcmljZQUDbmlsAWkBCmFkZEF1Y3Rpb24DBXN0YXJ0A2VuZApzdGFydFByaWNlBAVuZnRJZAkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBAVwcmljZQkBBXZhbHVlAQUKc3RhcnRQcmljZQQHYXVjdGlvbgkAlgoECAUBaQZjYWxsZXIFBXByaWNlBQVzdGFydAUDZW5kBAZjYWxsZXIICAUBaQZjYWxsZXIFYnl0ZXMEEWNoZWNrTmZ0QXVjdGlvbmVkBAckbWF0Y2gwCQCdCAIFBHRoaXMJAKwCAgkArAICCQCsAgIJANgEAQUFbmZ0SWQFCXNlcGFyYXRvcgILbmZ0X3N0YXR1c18JANgEAQUGY2FsbGVyAwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAUBYQcDCQAAAgURY2hlY2tOZnRBdWN0aW9uZWQIBQxzdGF0dXNGb3JORlQCXzEJAAIBAhdBbHJlYWR5IGluIEF1Y3Rpb24gbGlzdAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQVuZnRJZAIYX25mdF9zdGFydF9hdWN0aW9uX2RhdGVfCQDYBAEFBmNhbGxlcgUFc3RhcnQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUFbmZ0SWQCFl9uZnRfZW5kX2F1Y3Rpb25fZGF0ZV8JANgEAQUGY2FsbGVyBQNlbmQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQDYBAEFBW5mdElkAhFfbmZ0X3N0YXJ0X3ByaWNlXwkA2AQBBQZjYWxsZXIFCnN0YXJ0UHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUFbmZ0SWQFCXNlcGFyYXRvcgIJbmZ0X293bmVyCQClCAEIBQFpBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICCQDYBAEFBW5mdElkBQlzZXBhcmF0b3ICC25mdF9zdGF0dXNfCQDYBAEFBmNhbGxlcggFDHN0YXR1c0Zvck5GVAJfMQUDbmlsAWkBC2J1eUZyb21TbG90AQVuZnRJZAQNJHQwMTIyMTkxMjMwOAkAlAoCCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BAxwYXltZW50QXNzZXQIBQ0kdDAxMjIxOTEyMzA4Al8xBA1wYXltZW50QW1vdW50CAUNJHQwMTIyMTkxMjMwOAJfMgQHYXNzZXRJZAkA2QQBBQVuZnRJZAQNJHQwMTIzNTIxMjM5MAkBB2dldFNsb3QBBQdhc3NldElkBAR0eXBlCAUNJHQwMTIzNTIxMjM5MAJfMQQHZGV0YWlscwgFDSR0MDEyMzUyMTIzOTACXzIEB2Jhc2VSZXMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyAAEFB2Fzc2V0SWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBCmdldFNsb3RLZXkCBQR0eXBlBQdhc3NldElkBQNuaWwDCQAAAgUEdHlwZQUFa1NlbGwEDSR0MDEyNTMyMTI1NzkJAQtwYXJzZUFzU2VsbAEFB2RldGFpbHMEBnNlbGxlcggFDSR0MDEyNTMyMTI1NzkCXzEECnByaWNlVmFsdWUIBQ0kdDAxMjUzMjEyNTc5Al8yCQELdmFsdWVPckVsc2UCCQERaXNDb3JyZWN0UGF5bWVudHMDBQxwYXltZW50QXNzZXQFDXBheW1lbnRBbW91bnQFCnByaWNlVmFsdWUEDSR0MDEyNjY0MTI3NjYJARJyZXN1bHRGdW5kc0Ftb3VudHMDCQEMaXNUcnVzdGVkTmZ0AQUHYXNzZXRJZAUNcGF5bWVudEFtb3VudAUKcHJpY2VWYWx1ZQQMc2VsbGVyQW1vdW50CAUNJHQwMTI2NjQxMjc2NgJfMQQLYnV5ZXJBbW91bnQIBQ0kdDAxMjY2NDEyNzY2Al8yBAp1cGRhdGVkUmVzCQDOCAIFB2Jhc2VSZXMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGc2VsbGVyBQxzZWxsZXJBbW91bnQFBHVuaXQFA25pbAMJAGYCBQtidXllckFtb3VudAAACQDOCAIFCnVwZGF0ZWRSZXMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQtidXllckFtb3VudAUEdW5pdAUDbmlsBQp1cGRhdGVkUmVzBA0kdDAxMjk4MzEzMDUyCQEYY2FsY1ByaWNlQXRDdXJyZW50TW9tZW50AgUHYXNzZXRJZAUGaGVpZ2h0BAZzZWxsZXIIBQ0kdDAxMjk4MzEzMDUyAl8xBAthY3R1YWxQcmljZQgFDSR0MDEyOTgzMTMwNTICXzIJAQt2YWx1ZU9yRWxzZQIJARFpc0NvcnJlY3RQYXltZW50cwMFDHBheW1lbnRBc3NldAUNcGF5bWVudEFtb3VudAULYWN0dWFsUHJpY2UEDSR0MDEzMTM4MTMyNDEJARJyZXN1bHRGdW5kc0Ftb3VudHMDCQEMaXNUcnVzdGVkTmZ0AQUHYXNzZXRJZAUNcGF5bWVudEFtb3VudAULYWN0dWFsUHJpY2UEDHNlbGxlckFtb3VudAgFDSR0MDEzMTM4MTMyNDECXzEEC2J1eWVyQW1vdW50CAUNJHQwMTMxMzgxMzI0MQJfMgQKdXBkYXRlZFJlcwkAzggCBQdiYXNlUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBnNlbGxlcgUMc2VsbGVyQW1vdW50BQR1bml0BQNuaWwDCQBmAgULYnV5ZXJBbW91bnQAAAkAzggCBQp1cGRhdGVkUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYnV5ZXJBbW91bnQFBHVuaXQFA25pbAUKdXBkYXRlZFJlcwFpAQtkZWNsaW5lU2xvdAEFbmZ0SWQEB2Fzc2V0SWQJANkEAQUFbmZ0SWQEDSR0MDEzNTQyMTM1ODAJAQdnZXRTbG90AQUHYXNzZXRJZAQEdHlwZQgFDSR0MDEzNTQyMTM1ODACXzEEB2RldGFpbHMIBQ0kdDAxMzU0MjEzNTgwAl8yBAdiYXNlUmVzCQDMCAIJAQtEZWxldGVFbnRyeQEJAQpnZXRTbG90S2V5AgUEdHlwZQUHYXNzZXRJZAUDbmlsAwkAAAIFBHR5cGUFBWtTZWxsBA0kdDAxMzY3MjEzNzE5CQELcGFyc2VBc1NlbGwBBQdkZXRhaWxzBAZzZWxsZXIIBQ0kdDAxMzY3MjEzNzE5Al8xBApwcmljZVZhbHVlCAUNJHQwMTM2NzIxMzcxOQJfMgMJAQEhAQkBDWlzVmFsaWRDYWxsZXICCAUBaQZjYWxsZXIFBnNlbGxlcgkAAgECDkludmFsaWQgY2FsbGVyCQDOCAIFB2Jhc2VSZXMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGc2VsbGVyAAEFB2Fzc2V0SWQFA25pbAQNJHQwMTM4NjQxMzk2OAkBDnBhcnNlQXNBdWN0aW9uAQUHZGV0YWlscwQGc2VsbGVyCAUNJHQwMTM4NjQxMzk2OAJfMQQPc3RhcnRQcmljZVZhbHVlCAUNJHQwMTM4NjQxMzk2OAJfMgQNZW5kUHJpY2VWYWx1ZQgFDSR0MDEzODY0MTM5NjgCXzMEEHN0YXJ0UGVyaW9kVmFsdWUIBQ0kdDAxMzg2NDEzOTY4Al80BA5lbmRQZXJpb2RWYWx1ZQgFDSR0MDEzODY0MTM5NjgCXzUDCQEBIQEJAQ1pc1ZhbGlkQ2FsbGVyAggFAWkGY2FsbGVyBQZzZWxsZXIJAAIBAg5JbnZhbGlkIGNhbGxlcgMJAQEhAQkBDmlzQXVjdGlvbkVuZGVkAgUGaGVpZ2h0BQ5lbmRQZXJpb2RWYWx1ZQkAAgECF1dhaXQgZm9yIGVuZCBvZiBhdWN0aW9uCQDOCAIFB2Jhc2VSZXMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGc2VsbGVyAAEFB2Fzc2V0SWQFA25pbAFpARBzZXRUcnVzdGVkSXNzdWVyAQt0cnVzdGVkQWRkcgMJAQEhAQkBB2lzQWRtaW4BCAUBaQZjYWxsZXIJAAIBAgpPbmx5IGFkbWluCQDMCAIJAQxCb29sZWFuRW50cnkCCQENZ2V0VHJ1c3RlZEtleQEJARFAZXh0ck5hdGl2ZSgxMDYyKQEFC3RydXN0ZWRBZGRyBgUDbmlsAWkBF2dldFByaWNlQXRDdXJyZW50TW9tZW50AgVuZnRJZAZtb21lbnQEB2Fzc2V0SWQJANkEAQUFbmZ0SWQEDSR0MDE0NTA5MTQ1NzIJARhjYWxjUHJpY2VBdEN1cnJlbnRNb21lbnQCBQdhc3NldElkBQZtb21lbnQEBnNlbGxlcggFDSR0MDE0NTA5MTQ1NzICXzEEBXByaWNlCAUNJHQwMTQ1MDkxNDU3MgJfMgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBC2dldFByaWNlS2V5AQUHYXNzZXRJZAUFcHJpY2UFA25pbACjrW1G",
    "height": 2341214,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5wXwhc4TjiiyX2gPnLQaLebjHpx95P3roRN9be9yXPVi
Next: FVXTWdRmihtuR3Liesjb7SU1Qs9a5rAvfFwWtmA7pFGo

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 placeBid (nftId,nft_owner,min_price,bid_price) = {
259 259      let caller = i.caller
260 260      let assetId = fromBase58String(nftId)
261 261      let amount = value(i.payments[0].amount)
262 262      let checkNftAuctioned =     match getString(this, (((nftId + separator) + "nft_status_") + nft_owner)) {
263 263          case a: String => 
264 264              a
265 265          case _ => 
266 266              false
267 267      }
268 268      if ((i.payments[0].assetId != unit))
269 269          then throw("Pay in waves")
270 270          else if ((checkNftAuctioned != statusForNFT._1))
271 271              then throw("Not open in auction list")
272 272              else [StringEntry(((("nft_id_" + nftId) + "_") + toBase58String(caller.bytes)), nftId), StringEntry(((("nft_owner_" + nftId) + "_") + toBase58String(caller.bytes)), nft_owner), StringEntry(((("bidding_for_" + nftId) + "_by_") + toBase58String(caller.bytes)), toBase58String(caller.bytes)), StringEntry(((("min_price_for_" + nftId) + "_by_") + toBase58String(caller.bytes)), toString(min_price)), StringEntry(((("bid_price_for" + nftId) + "_by_") + toBase58String(caller.bytes)), toString(bid_price)), StringEntry(((("transfer_nft_to_dappwith_bid_price_for_" + nftId) + "_by_") + toBase58String(caller.bytes)), toBase58String(dAppAddress))]
273 273      }
274 274  
275 275  
276 276  
277 277  @Callable(i)
278 278  func acceptBidOffer (nftId,accepted_address,bid_amount_from_user) = {
279 279      let caller = i.caller.bytes
280 280      let assetId = fromBase58String(nftId)
281 281      let acceptedAddressOfBidder = fromBase58String(accepted_address)
282 282  [ScriptTransfer(Address(i.caller.bytes), bid_amount_from_user, unit), ScriptTransfer(Address(acceptedAddressOfBidder), 1, assetId), StringEntry(((nftId + "_rewarded_to_") + accepted_address), accepted_address), StringEntry(("nft_transfer_status_from" + toBase58String(caller)), statusForNFT._3), StringEntry(((("nft_transfer_status_" + nftId) + "_transfer_to_") + accepted_address), accepted_address), DeleteEntry((((nftId + separator) + "nft_status_") + toBase58String(caller)))]
283 283      }
284 284  
285 285  
286 286  
287 287  @Callable(i)
288 288  func pay () = {
289 289      let amount = value(i.payments[0].amount)
290 290      if ((i.payments[0].assetId != unit))
291 291          then throw("Pay in waves")
292 292          else nil
293 293      }
294 294  
295 295  
296 296  
297 297  @Callable(i)
298 298  func confirmBid (nftId,userAddress) = [StringEntry("bid_winner", userAddress)]
299 299  
300 300  
301 301  
302 302  @Callable(i)
303 303  func createNft (nft_name,nft_owner,nft_dAppAddress,nft_type,nft_tags,nft_selling_price,nft_description,nft_onSell,nft_data) = {
304 304      let newToken = Issue(nft_name, nft_description, 1, 0, false)
305 305      let issueId = calculateAssetId(newToken)
306 306      let txId = i.transactionId
307 307  [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))]
308 308      }
309 309  
310 310  
311 311  
312 312  @Callable(i)
313 313  func issueNft (name,meta) = {
314 314      let newToken = Issue(name, meta, 1, 0, false)
315 315      let issueId = calculateAssetId(newToken)
316 316  [newToken, ScriptTransfer(i.caller, 1, issueId), StringEntry(((toBase58String(issueId) + separator) + "Owner"), toString(i.caller))]
317 317      }
318 318  
319 319  
320 320  
321 321  @Callable(i)
322 322  func buyNFT (nftID,current_nft_owner) = {
323 323      let assetId = fromBase58String(nftID)
324 324      let amount = value(i.payments[0].amount)
325 325      let checkOwnerIsSame =     match getString(this, (("nft_" + current_nft_owner) + "_owner")) {
326 326          case a: String => 
327 327              a
328 328          case _ => 
329 329              false
330 330      }
331 331      let price = getStringValue(((((kPrice + separator) + nftID) + "_") + current_nft_owner))
332 332      let owner = valueOrErrorMessage(getStringValue(((nftID + separator) + "Owner")), "No owner")
333 333      if ((i.payments[0].assetId != unit))
334 334          then throw("Pay in waves")
335 335          else if ((checkOwnerIsSame == toString(i.caller)))
336 336              then throw("Owner of NFT not able to purchase")
337 337              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"))]
338 338      }
339 339  
340 340  
341 341  
342 342  @Callable(i)
343 343  func sellNFT (price) = {
344 344      let seller = i.caller.bytes
345 345      let $t01024210327 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
346 346      let token0 = $t01024210327._1
347 347      let amount0 = $t01024210327._2
348 348      if (!(isNft(token0)))
349 349          then throw("Token is not NFT")
350 350          else [StringEntry((("nft_" + toBase58String(seller)) + "_owner"), toBase58String(seller)), StringEntry(((((kPrice + separator) + toBase58String(value(i.payments[0].assetId))) + "_") + toString(i.caller)), price), StringEntry(((toString(i.caller) + separator) + kSell), ((toBase58String(token0) + separator) + toString(amount0)))]
351 351      }
352 352  
353 353  
354 354  
355 355  @Callable(i)
356 356  func addSell (price) = {
357 357      let nftId = value(i.payments[0].assetId)
358 358      valueOrElse(isCorrectNft(nftId), if (!(isCorrectSellPrice(price)))
359 359          then throw("Price must be > 0")
360 360          else [setSell(nftId, i.caller, price)])
361 361      }
362 362  
363 363  
364 364  
365 365  @Callable(i)
366 366  func addAuction (start,end,startPrice) = {
367 367      let nftId = value(i.payments[0].assetId)
368 368      let price = value(startPrice)
369 369      let auction = $Tuple4(i.caller, price, start, end)
370 370      let caller = i.caller.bytes
371 371      let checkNftAuctioned =     match getString(this, (((toBase58String(nftId) + separator) + "nft_status_") + toBase58String(caller))) {
372 372          case a: String => 
373 373              a
374 374          case _ => 
375 375              false
376 376      }
377 377      if ((checkNftAuctioned == statusForNFT._1))
378 378          then throw("Already in Auction list")
379 379          else [StringEntry(((toBase58String(nftId) + "_nft_start_auction_date_") + toBase58String(caller)), start), StringEntry(((toBase58String(nftId) + "_nft_end_auction_date_") + toBase58String(caller)), end), IntegerEntry(((toBase58String(nftId) + "_nft_start_price_") + toBase58String(caller)), startPrice), StringEntry(((toBase58String(nftId) + separator) + "nft_owner"), toString(i.caller)), StringEntry((((toBase58String(nftId) + separator) + "nft_status_") + toBase58String(caller)), statusForNFT._1)]
380 380      }
381 381  
382 382  
383 383  
384 384  @Callable(i)
385 385  func buyFromSlot (nftId) = {
386 386      let $t01221912308 = $Tuple2(i.payments[0].assetId, value(i.payments[0].amount))
387 387      let paymentAsset = $t01221912308._1
388 388      let paymentAmount = $t01221912308._2
389 389      let assetId = fromBase58String(nftId)
390 390      let $t01235212390 = getSlot(assetId)
391 391      let type = $t01235212390._1
392 392      let details = $t01235212390._2
393 393      let baseRes = [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(getSlotKey(type, assetId))]
394 394      if ((type == kSell))
395 395          then {
396 396              let $t01253212579 = parseAsSell(details)
397 397              let seller = $t01253212579._1
398 398              let priceValue = $t01253212579._2
399 399              valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, priceValue), {
400 400                  let $t01266412766 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, priceValue)
401 401                  let sellerAmount = $t01266412766._1
402 402                  let buyerAmount = $t01266412766._2
403 403                  let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
404 404                  if ((buyerAmount > 0))
405 405                      then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
406 406                      else updatedRes
407 407                  })
408 408              }
409 409          else {
410 410              let $t01298313052 = calcPriceAtCurrentMoment(assetId, height)
411 411              let seller = $t01298313052._1
412 412              let actualPrice = $t01298313052._2
413 413              valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, actualPrice), {
414 414                  let $t01313813241 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, actualPrice)
415 415                  let sellerAmount = $t01313813241._1
416 416                  let buyerAmount = $t01313813241._2
417 417                  let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
418 418                  if ((buyerAmount > 0))
419 419                      then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
420 420                      else updatedRes
421 421                  })
422 422              }
423 423      }
424 424  
425 425  
426 426  
427 427  @Callable(i)
428 428  func declineSlot (nftId) = {
429 429      let assetId = fromBase58String(nftId)
430 430      let $t01354213580 = getSlot(assetId)
431 431      let type = $t01354213580._1
432 432      let details = $t01354213580._2
433 433      let baseRes = [DeleteEntry(getSlotKey(type, assetId))]
434 434      if ((type == kSell))
435 435          then {
436 436              let $t01367213719 = parseAsSell(details)
437 437              let seller = $t01367213719._1
438 438              let priceValue = $t01367213719._2
439 439              if (!(isValidCaller(i.caller, seller)))
440 440                  then throw("Invalid caller")
441 441                  else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
442 442              }
443 443          else {
444 444              let $t01386413968 = parseAsAuction(details)
445 445              let seller = $t01386413968._1
446 446              let startPriceValue = $t01386413968._2
447 447              let endPriceValue = $t01386413968._3
448 448              let startPeriodValue = $t01386413968._4
449 449              let endPeriodValue = $t01386413968._5
450 450              if (!(isValidCaller(i.caller, seller)))
451 451                  then throw("Invalid caller")
452 452                  else if (!(isAuctionEnded(height, endPeriodValue)))
453 453                      then throw("Wait for end of auction")
454 454                      else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
455 455              }
456 456      }
457 457  
458 458  
459 459  
460 460  @Callable(i)
461 461  func setTrustedIssuer (trustedAddr) = if (!(isAdmin(i.caller)))
462 462      then throw("Only admin")
463 463      else [BooleanEntry(getTrustedKey(addressFromStringValue(trustedAddr)), true)]
464 464  
465 465  
466 466  
467 467  @Callable(i)
468 468  func getPriceAtCurrentMoment (nftId,moment) = {
469 469      let assetId = fromBase58String(nftId)
470 470      let $t01450914572 = calcPriceAtCurrentMoment(assetId, moment)
471 471      let seller = $t01450914572._1
472 472      let price = $t01450914572._2
473 473  [IntegerEntry(getPriceKey(assetId), price)]
474 474      }
475 475  
476 476

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 placeBid (nftId,nft_owner,min_price,bid_price) = {
259	259	let caller = i.caller
260	260	let assetId = fromBase58String(nftId)
261	261	let amount = value(i.payments[0].amount)
262	262	let checkNftAuctioned = match getString(this, (((nftId + separator) + "nft_status_") + nft_owner)) {
263	263	case a: String =>
264	264	a
265	265	case _ =>
266	266	false
267	267	}
268	268	if ((i.payments[0].assetId != unit))
269	269	then throw("Pay in waves")
270	270	else if ((checkNftAuctioned != statusForNFT._1))
271	271	then throw("Not open in auction list")
272	272	else [StringEntry(((("nft_id_" + nftId) + "_") + toBase58String(caller.bytes)), nftId), StringEntry(((("nft_owner_" + nftId) + "_") + toBase58String(caller.bytes)), nft_owner), StringEntry(((("bidding_for_" + nftId) + "_by_") + toBase58String(caller.bytes)), toBase58String(caller.bytes)), StringEntry(((("min_price_for_" + nftId) + "_by_") + toBase58String(caller.bytes)), toString(min_price)), StringEntry(((("bid_price_for" + nftId) + "_by_") + toBase58String(caller.bytes)), toString(bid_price)), StringEntry(((("transfer_nft_to_dappwith_bid_price_for_" + nftId) + "_by_") + toBase58String(caller.bytes)), toBase58String(dAppAddress))]
273	273	}
274	274
275	275
276	276
277	277	@Callable(i)
278	278	func acceptBidOffer (nftId,accepted_address,bid_amount_from_user) = {
279	279	let caller = i.caller.bytes
280	280	let assetId = fromBase58String(nftId)
281	281	let acceptedAddressOfBidder = fromBase58String(accepted_address)
282	282	[ScriptTransfer(Address(i.caller.bytes), bid_amount_from_user, unit), ScriptTransfer(Address(acceptedAddressOfBidder), 1, assetId), StringEntry(((nftId + "_rewarded_to_") + accepted_address), accepted_address), StringEntry(("nft_transfer_status_from" + toBase58String(caller)), statusForNFT._3), StringEntry(((("nft_transfer_status_" + nftId) + "_transfer_to_") + accepted_address), accepted_address), DeleteEntry((((nftId + separator) + "nft_status_") + toBase58String(caller)))]
283	283	}
284	284
285	285
286	286
287	287	@Callable(i)
288	288	func pay () = {
289	289	let amount = value(i.payments[0].amount)
290	290	if ((i.payments[0].assetId != unit))
291	291	then throw("Pay in waves")
292	292	else nil
293	293	}
294	294
295	295
296	296
297	297	@Callable(i)
298	298	func confirmBid (nftId,userAddress) = [StringEntry("bid_winner", userAddress)]
299	299
300	300
301	301
302	302	@Callable(i)
303	303	func createNft (nft_name,nft_owner,nft_dAppAddress,nft_type,nft_tags,nft_selling_price,nft_description,nft_onSell,nft_data) = {
304	304	let newToken = Issue(nft_name, nft_description, 1, 0, false)
305	305	let issueId = calculateAssetId(newToken)
306	306	let txId = i.transactionId
307	307	[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))]
308	308	}
309	309
310	310
311	311
312	312	@Callable(i)
313	313	func issueNft (name,meta) = {
314	314	let newToken = Issue(name, meta, 1, 0, false)
315	315	let issueId = calculateAssetId(newToken)
316	316	[newToken, ScriptTransfer(i.caller, 1, issueId), StringEntry(((toBase58String(issueId) + separator) + "Owner"), toString(i.caller))]
317	317	}
318	318
319	319
320	320
321	321	@Callable(i)
322	322	func buyNFT (nftID,current_nft_owner) = {
323	323	let assetId = fromBase58String(nftID)
324	324	let amount = value(i.payments[0].amount)
325	325	let checkOwnerIsSame = match getString(this, (("nft_" + current_nft_owner) + "_owner")) {
326	326	case a: String =>
327	327	a
328	328	case _ =>
329	329	false
330	330	}
331	331	let price = getStringValue(((((kPrice + separator) + nftID) + "_") + current_nft_owner))
332	332	let owner = valueOrErrorMessage(getStringValue(((nftID + separator) + "Owner")), "No owner")
333	333	if ((i.payments[0].assetId != unit))
334	334	then throw("Pay in waves")
335	335	else if ((checkOwnerIsSame == toString(i.caller)))
336	336	then throw("Owner of NFT not able to purchase")
337	337	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"))]
338	338	}
339	339
340	340
341	341
342	342	@Callable(i)
343	343	func sellNFT (price) = {
344	344	let seller = i.caller.bytes
345	345	let $t01024210327 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
346	346	let token0 = $t01024210327._1
347	347	let amount0 = $t01024210327._2
348	348	if (!(isNft(token0)))
349	349	then throw("Token is not NFT")
350	350	else [StringEntry((("nft_" + toBase58String(seller)) + "_owner"), toBase58String(seller)), StringEntry(((((kPrice + separator) + toBase58String(value(i.payments[0].assetId))) + "_") + toString(i.caller)), price), StringEntry(((toString(i.caller) + separator) + kSell), ((toBase58String(token0) + separator) + toString(amount0)))]
351	351	}
352	352
353	353
354	354
355	355	@Callable(i)
356	356	func addSell (price) = {
357	357	let nftId = value(i.payments[0].assetId)
358	358	valueOrElse(isCorrectNft(nftId), if (!(isCorrectSellPrice(price)))
359	359	then throw("Price must be > 0")
360	360	else [setSell(nftId, i.caller, price)])
361	361	}
362	362
363	363
364	364
365	365	@Callable(i)
366	366	func addAuction (start,end,startPrice) = {
367	367	let nftId = value(i.payments[0].assetId)
368	368	let price = value(startPrice)
369	369	let auction = $Tuple4(i.caller, price, start, end)
370	370	let caller = i.caller.bytes
371	371	let checkNftAuctioned = match getString(this, (((toBase58String(nftId) + separator) + "nft_status_") + toBase58String(caller))) {
372	372	case a: String =>
373	373	a
374	374	case _ =>
375	375	false
376	376	}
377	377	if ((checkNftAuctioned == statusForNFT._1))
378	378	then throw("Already in Auction list")
379	379	else [StringEntry(((toBase58String(nftId) + "_nft_start_auction_date_") + toBase58String(caller)), start), StringEntry(((toBase58String(nftId) + "_nft_end_auction_date_") + toBase58String(caller)), end), IntegerEntry(((toBase58String(nftId) + "_nft_start_price_") + toBase58String(caller)), startPrice), StringEntry(((toBase58String(nftId) + separator) + "nft_owner"), toString(i.caller)), StringEntry((((toBase58String(nftId) + separator) + "nft_status_") + toBase58String(caller)), statusForNFT._1)]
380	380	}
381	381
382	382
383	383
384	384	@Callable(i)
385	385	func buyFromSlot (nftId) = {
386	386	let $t01221912308 = $Tuple2(i.payments[0].assetId, value(i.payments[0].amount))
387	387	let paymentAsset = $t01221912308._1
388	388	let paymentAmount = $t01221912308._2
389	389	let assetId = fromBase58String(nftId)
390	390	let $t01235212390 = getSlot(assetId)
391	391	let type = $t01235212390._1
392	392	let details = $t01235212390._2
393	393	let baseRes = [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(getSlotKey(type, assetId))]
394	394	if ((type == kSell))
395	395	then {
396	396	let $t01253212579 = parseAsSell(details)
397	397	let seller = $t01253212579._1
398	398	let priceValue = $t01253212579._2
399	399	valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, priceValue), {
400	400	let $t01266412766 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, priceValue)
401	401	let sellerAmount = $t01266412766._1
402	402	let buyerAmount = $t01266412766._2
403	403	let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
404	404	if ((buyerAmount > 0))
405	405	then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
406	406	else updatedRes
407	407	})
408	408	}
409	409	else {
410	410	let $t01298313052 = calcPriceAtCurrentMoment(assetId, height)
411	411	let seller = $t01298313052._1
412	412	let actualPrice = $t01298313052._2
413	413	valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, actualPrice), {
414	414	let $t01313813241 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, actualPrice)
415	415	let sellerAmount = $t01313813241._1
416	416	let buyerAmount = $t01313813241._2
417	417	let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
418	418	if ((buyerAmount > 0))
419	419	then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
420	420	else updatedRes
421	421	})
422	422	}
423	423	}
424	424
425	425
426	426
427	427	@Callable(i)
428	428	func declineSlot (nftId) = {
429	429	let assetId = fromBase58String(nftId)
430	430	let $t01354213580 = getSlot(assetId)
431	431	let type = $t01354213580._1
432	432	let details = $t01354213580._2
433	433	let baseRes = [DeleteEntry(getSlotKey(type, assetId))]
434	434	if ((type == kSell))
435	435	then {
436	436	let $t01367213719 = parseAsSell(details)
437	437	let seller = $t01367213719._1
438	438	let priceValue = $t01367213719._2
439	439	if (!(isValidCaller(i.caller, seller)))
440	440	then throw("Invalid caller")
441	441	else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
442	442	}
443	443	else {
444	444	let $t01386413968 = parseAsAuction(details)
445	445	let seller = $t01386413968._1
446	446	let startPriceValue = $t01386413968._2
447	447	let endPriceValue = $t01386413968._3
448	448	let startPeriodValue = $t01386413968._4
449	449	let endPeriodValue = $t01386413968._5
450	450	if (!(isValidCaller(i.caller, seller)))
451	451	then throw("Invalid caller")
452	452	else if (!(isAuctionEnded(height, endPeriodValue)))
453	453	then throw("Wait for end of auction")
454	454	else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
455	455	}
456	456	}
457	457
458	458
459	459
460	460	@Callable(i)
461	461	func setTrustedIssuer (trustedAddr) = if (!(isAdmin(i.caller)))
462	462	then throw("Only admin")
463	463	else [BooleanEntry(getTrustedKey(addressFromStringValue(trustedAddr)), true)]
464	464
465	465
466	466
467	467	@Callable(i)
468	468	func getPriceAtCurrentMoment (nftId,moment) = {
469	469	let assetId = fromBase58String(nftId)
470	470	let $t01450914572 = calcPriceAtCurrentMoment(assetId, moment)
471	471	let seller = $t01450914572._1
472	472	let price = $t01450914572._2
473	473	[IntegerEntry(getPriceKey(assetId), price)]
474	474	}
475	475
476	476

github/deemru/w8io/c3f4982 
62.05 ms ◑