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 a = "_"
5 5  
6 6  let b = "auction"
7 7  
8 8  let c = "sell"
9 9  
10 10  let d = "trusted"
11 11  
12 12  let e = "price"
13 13  
14 14  func f (g,h) = ((g + a) + toBase58String(h))
15 15  
16 16  
17 17  func i (h) = ((e + a) + toBase58String(h))
18 18  
19 19  
20 20  func j (h) = ((c + a) + toBase58String(h))
21 21  
22 22  
23 23  func k (h) = ((b + a) + toBase58String(h))
24 24  
25 25  
26 26  func l (m) = ((d + a) + toString(m))
27 27  
28 28  
29 29  func n (o,p) = (o ++ [p])
30 30  
31 31  
32 32  func q (r) = {
33 33      let s = size(r)
34 34      if ((s == 0))
35 35          then throw("Empty  params")
36 36          else if ((s == 1))
37 37              then makeString({
38 38                  let t = r
39 39                  let u = size(t)
40 40                  let v = nil
41 41                  func w (x,y) =                 if ((y >= u))
42 42                      then x
43 43                      else n(x, t[y])
44 44  
45 45                  func z (x,y) =                 if ((y >= u))
46 46                      then x
47 47                      else throw("List size exceeds 1")
48 48  
49 49                  z(w(v, 0), 1)
50 50                  }, a)
51 51              else if ((s == 2))
52 52                  then makeString({
53 53                      let t = r
54 54                      let u = size(t)
55 55                      let v = nil
56 56                      func w (x,y) =                     if ((y >= u))
57 57                          then x
58 58                          else n(x, t[y])
59 59  
60 60                      func z (x,y) =                     if ((y >= u))
61 61                          then x
62 62                          else throw("List size exceeds 2")
63 63  
64 64                      z(w(w(v, 0), 1), 2)
65 65                      }, a)
66 66                  else if ((s == 3))
67 67                      then makeString({
68 68                          let t = r
69 69                          let u = size(t)
70 70                          let v = nil
71 71                          func w (x,y) =                         if ((y >= u))
72 72                              then x
73 73                              else n(x, t[y])
74 74  
75 75                          func z (x,y) =                         if ((y >= u))
76 76                              then x
77 77                              else throw("List size exceeds 3")
78 78  
79 79                          z(w(w(w(v, 0), 1), 2), 3)
80 80                          }, a)
81 81                      else if ((s == 4))
82 82                          then makeString({
83 83                              let t = r
84 84                              let u = size(t)
85 85                              let v = nil
86 86                              func w (x,y) =                             if ((y >= u))
87 87                                  then x
88 88                                  else n(x, t[y])
89 89  
90 90                              func z (x,y) =                             if ((y >= u))
91 91                                  then x
92 92                                  else throw("List size exceeds 4")
93 93  
94 94                              z(w(w(w(w(v, 0), 1), 2), 3), 4)
95 95                              }, a)
96 96                          else if ((s == 5))
97 97                              then makeString({
98 98                                  let t = r
99 99                                  let u = size(t)
100 100                                  let v = nil
101 101                                  func w (x,y) =                                 if ((y >= u))
102 102                                      then x
103 103                                      else n(x, t[y])
104 104  
105 105                                  func z (x,y) =                                 if ((y >= u))
106 106                                      then x
107 107                                      else throw("List size exceeds 5")
108 108  
109 109                                  z(w(w(w(w(w(v, 0), 1), 2), 3), 4), 5)
110 110                                  }, a)
111 111                              else throw("Max number of parameters exceeded")
112 112      }
113 113  
114 114  
115 115  func A (B) = {
116 116      let C = split(B, a)
117 117      $Tuple5(addressFromStringValue(C[0]), parseIntValue(C[1]), parseIntValue(C[2]), parseIntValue(C[3]), parseIntValue(C[4]))
118 118      }
119 119  
120 120  
121 121  func D (B) = {
122 122      let C = split(B, a)
123 123      $Tuple2(addressFromStringValue(C[0]), parseIntValue(C[1]))
124 124      }
125 125  
126 126  
127 127  func E (r) = {
128 128      let F = r
129 129      if ($isInstanceOf(F, "(Address, Int, String, String)"))
130 130          then {
131 131              let G = F
132 132              q([toString(G._1), toString(G._2), G._3, G._4])
133 133              }
134 134          else if ($isInstanceOf(F, "(Address, Int)"))
135 135              then {
136 136                  let H = F
137 137                  q([toString(H._1), toString(H._2)])
138 138                  }
139 139              else throw("Wrong params tupple")
140 140      }
141 141  
142 142  
143 143  func I (J,h,K,L,M) = StringEntry(k(h), E($Tuple4(J, K, L, M)))
144 144  
145 145  
146 146  func N (h,O,P) = StringEntry(j(h), E($Tuple2(O, P)))
147 147  
148 148  
149 149  func Q (h) = value(getString(this, k(h)))
150 150  
151 151  
152 152  func R (h) = value(getString(this, j(h)))
153 153  
154 154  
155 155  func S (T,U) = {
156 156      let B = Q(T)
157 157      let V = A(B)
158 158      let J = V._1
159 159      let W = V._2
160 160      let X = V._3
161 161      let Y = V._4
162 162      let Z = V._5
163 163      if ((U >= Z))
164 164          then $Tuple2(J, X)
165 165          else {
166 166              let aa = (W - X)
167 167              let ab = (Z - Y)
168 168              let ac = (U - Y)
169 169              $Tuple2(J, (W - fraction(ac, aa, ab)))
170 170              }
171 171      }
172 172  
173 173  
174 174  func ad (T) = {
175 175      let F = assetInfo(T)
176 176      if ($isInstanceOf(F, "Asset"))
177 177          then {
178 178              let ae = F
179 179              if (if ((ae.decimals == 0))
180 180                  then (ae.quantity == 1)
181 181                  else false)
182 182                  then (ae.reissuable == false)
183 183                  else false
184 184              }
185 185          else false
186 186      }
187 187  
188 188  
189 189  func af (T) = {
190 190      let m = value(assetInfo(T)).issuer
191 191      valueOrElse(getBoolean(this, l(m)), false)
192 192      }
193 193  
194 194  
195 195  func ag (T) = isDefined(getString(this, j(T)))
196 196  
197 197  
198 198  func ah (T) = isDefined(getString(this, k(T)))
199 199  
200 200  
201 201  func ai (P) = (P > 0)
202 202  
203 203  
204 204  func aj (K,ak) = (K > ak)
205 205  
206 206  
207 207  func al (am) = (am == this)
208 208  
209 209  
210 210  func an (am,J) = if ((am == this))
211 211      then true
212 212      else (am == J)
213 213  
214 214  
215 215  func ao (ap,M) = (ap > M)
216 216  
217 217  
218 218  func aq (ar,as) = (ar >= as)
219 219  
220 220  
221 221  func at (T) = (T == unit)
222 222  
223 223  
224 224  func au (h) = if (!(ad(h)))
225 225      then throw("Token is not Nft")
226 226      else if (ag(h))
227 227          then throw("Sell already exists")
228 228          else if (ah(h))
229 229              then throw("Auction already exists")
230 230              else unit
231 231  
232 232  
233 233  func av (aw,ax,P) = if (!(at(aw)))
234 234      then throw("Payment must be at WAVES")
235 235      else if (!(aq(ax, P)))
236 236          then throw("Not enough funds")
237 237          else unit
238 238  
239 239  
240 240  func ay () = 0
241 241  
242 242  
243 243  func az () = 0
244 244  
245 245  
246 246  func aA (aB,ax,aC) = if (aB)
247 247      then $Tuple2((aC - az()), (ax - aC))
248 248      else $Tuple2((aC - ay()), (ax - aC))
249 249  
250 250  
251 251  func aD (h) = if (ag(h))
252 252      then $Tuple2(c, R(h))
253 253      else if (ah(h))
254 254          then $Tuple2(b, Q(h))
255 255          else throw("Slot doesn`t exist")
256 256  
257 257  
258 258  let aE = "buy"
259 259  
260 260  let aF = "bid"
261 261  
262 262  let aG = $Tuple4("OPEN", "CLOSED", "REWARDED", "CANCELED")
263 263  
264 264  let aH = base58'3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq'
265 265  
266 266  @Callable(aI)
267 267  func placeBid (h,aJ,aK,aL) = {
268 268      let am = aI.caller
269 269      let T = fromBase58String(h)
270 270      let aM = value(aI.payments[0].amount)
271 271      let aN = {
272 272          let F = getString(this, (((h + a) + "nft_status_") + aJ))
273 273          if ($isInstanceOf(F, "String"))
274 274              then {
275 275                  let aO = F
276 276                  aO
277 277                  }
278 278              else false
279 279          }
280 280      if ((aI.payments[0].assetId != unit))
281 281          then throw("Pay in waves")
282 282          else if ((aN != aG._1))
283 283              then throw("Not open in auction list")
284 284              else [StringEntry(((("nft_id_" + h) + "_") + toBase58String(am.bytes)), h), StringEntry(((("nft_owner_" + h) + "_") + toBase58String(am.bytes)), aJ), StringEntry(((("bidding_for_" + h) + "_by_") + toBase58String(am.bytes)), toBase58String(am.bytes)), StringEntry(((("min_price_for_" + h) + "_by_") + toBase58String(am.bytes)), toString(aK)), StringEntry(((("bid_price_for" + h) + "_by_") + toBase58String(am.bytes)), toString(aL)), StringEntry(((("transfer_nft_to_dappwith_bid_price_for_" + h) + "_by_") + toBase58String(am.bytes)), toBase58String(aH))]
285 285      }
286 286  
287 287  
288 288  
289 289  @Callable(aI)
290 290  func acceptBidOffer (h,aP,aQ) = {
291 291      let am = aI.caller.bytes
292 292      let T = fromBase58String(h)
293 293      let aR = fromBase58String(aP)
294 294  [ScriptTransfer(Address(aI.caller.bytes), aQ, unit), ScriptTransfer(Address(aR), 1, T), StringEntry(((h + "_rewarded_to_") + aP), aP), StringEntry(("nft_transfer_status_from" + toBase58String(am)), aG._3), StringEntry(((("nft_transfer_status_" + h) + "_transfer_to_") + aP), aP), DeleteEntry((((h + a) + "nft_status_") + toBase58String(am)))]
295 295      }
296 296  
297 297  
298 298  
299 299  @Callable(aI)
300 300  func pay () = {
301 301      let aM = value(aI.payments[0].amount)
302 302      if ((aI.payments[0].assetId != unit))
303 303          then throw("Pay in waves")
304 304          else nil
305 305      }
306 306  
307 307  
308 308  
309 309  @Callable(aI)
310 310  func confirmBid (h,aS) = [StringEntry("bid_winner", aS)]
311 311  
312 312  
313 313  
314 314  @Callable(aI)
315 315  func createNft (aT,aJ,aU,aV,aW,aX,aY,aZ,ba) = {
316 316      let bb = Issue(aT, aY, 1, 0, false)
317 317      let bc = calculateAssetId(bb)
318 318      let bd = aI.transactionId
319 319  [bb, ScriptTransfer(aI.caller, 1, bc), StringEntry(((toBase58String(bc) + a) + "Owner"), toString(aI.caller)), StringEntry(((toBase58String(bc) + a) + "nft_type"), aV), StringEntry(((toBase58String(bc) + a) + "nft_tags"), aW), StringEntry(((toBase58String(bc) + a) + "nft_dAppAddress"), aU), IntegerEntry(((toBase58String(bc) + a) + "nft_selling_price"), aX), StringEntry(((toBase58String(bc) + a) + "nft_onSell"), aZ), StringEntry(((toBase58String(bc) + a) + "nft_data"), ba), StringEntry(((toBase58String(bd) + a) + "issue_nft"), toBase58String(bc))]
320 320      }
321 321  
322 322  
323 323  
324 324  @Callable(aI)
325 325  func issueNft (be,bf) = {
326 326      let bb = Issue(be, bf, 1, 0, false)
327 327      let bc = calculateAssetId(bb)
328 328  [bb, ScriptTransfer(aI.caller, 1, bc), StringEntry(((toBase58String(bc) + a) + "Owner"), toString(aI.caller))]
329 329      }
330 330  
331 331  
332 332  
333 333  @Callable(aI)
334 334  func buyNFT (bg,bh) = {
335 335      let T = fromBase58String(bg)
336 336      let aM = value(aI.payments[0].amount)
337 337      let bi = {
338 338          let F = getString(this, (("nft_" + bh) + "_owner"))
339 339          if ($isInstanceOf(F, "String"))
340 340              then {
341 341                  let aO = F
342 342                  aO
343 343                  }
344 344              else false
345 345          }
346 346      let P = getStringValue(((((e + a) + bg) + "_") + bh))
347 347      let bj = valueOrErrorMessage(getStringValue(((bg + a) + "Owner")), "No owner")
348 348      if ((aI.payments[0].assetId != unit))
349 349          then throw("Pay in waves")
350 350          else if ((bi == toString(aI.caller)))
351 351              then throw("Owner of NFT not able to purchase")
352 352              else [ScriptTransfer(aI.caller, 1, T), ScriptTransfer(Address(fromBase58String(bj)), aM, unit), StringEntry(((toString(aI.caller) + a) + aE), ((bg + a) + toString(aM))), DeleteEntry((("nft_" + bh) + "_owner"))]
353 353      }
354 354  
355 355  
356 356  
357 357  @Callable(aI)
358 358  func sellNFT (P) = {
359 359      let J = aI.caller.bytes
360 360      let bk = $Tuple2(value(aI.payments[0].assetId), value(aI.payments[0].amount))
361 361      let bl = bk._1
362 362      let bm = bk._2
363 363      if (!(ad(bl)))
364 364          then throw("Token is not NFT")
365 365          else [StringEntry((("nft_" + toBase58String(J)) + "_owner"), toBase58String(J)), StringEntry(((((e + a) + toBase58String(value(aI.payments[0].assetId))) + "_") + toString(aI.caller)), P), StringEntry(((toString(aI.caller) + a) + c), ((toBase58String(bl) + a) + toString(bm)))]
366 366      }
367 367  
368 368  
369 369  
370 370  @Callable(aI)
371 371  func addSell (P) = {
372 372      let h = value(aI.payments[0].assetId)
373 373      valueOrElse(au(h), if (!(ai(P)))
374 374          then throw("Price must be > 0")
375 375          else [N(h, aI.caller, P)])
376 376      }
377 377  
378 378  
379 379  
380 380  @Callable(aI)
381 381  func addAuction (L,M,K) = {
382 382      let h = value(aI.payments[0].assetId)
383 383      let P = value(K)
384 384      let G = $Tuple4(aI.caller, P, L, M)
385 385      let am = aI.caller.bytes
386 386      let aN = {
387 387          let F = getString(this, (((toBase58String(h) + a) + "nft_status_") + toBase58String(am)))
388 388          if ($isInstanceOf(F, "String"))
389 389              then {
390 390                  let aO = F
391 391                  aO
392 392                  }
393 393              else false
394 394          }
395 395      if ((aN == aG._1))
396 396          then throw("Already in Auction list")
397 397          else [StringEntry(((toBase58String(h) + "_nft_start_auction_date_") + toBase58String(am)), L), StringEntry(((toBase58String(h) + "_nft_end_auction_date_") + toBase58String(am)), M), IntegerEntry(((toBase58String(h) + "_nft_start_price_") + toBase58String(am)), K), StringEntry(((toBase58String(h) + a) + "nft_owner"), toString(aI.caller)), StringEntry((((toBase58String(h) + a) + "nft_status_") + toBase58String(am)), aG._1)]
398 398      }
399 399  
400 400  
401 401  
402 402  @Callable(aI)
403 403  func buyFromSlot (h) = {
404 404      let bn = $Tuple2(aI.payments[0].assetId, value(aI.payments[0].amount))
405 405      let aw = bn._1
406 406      let ax = bn._2
407 407      let T = fromBase58String(h)
408 408      let bo = aD(T)
409 409      let bp = bo._1
410 410      let B = bo._2
411 411      let bq = [ScriptTransfer(aI.caller, 1, T), DeleteEntry(f(bp, T))]
412 412      if ((bp == c))
413 413          then {
414 414              let br = D(B)
415 415              let J = br._1
416 416              let bs = br._2
417 417              valueOrElse(av(aw, ax, bs), {
418 418                  let bt = aA(af(T), ax, bs)
419 419                  let bu = bt._1
420 420                  let bv = bt._2
421 421                  let bw = (bq ++ [ScriptTransfer(J, bu, unit)])
422 422                  if ((bv > 0))
423 423                      then (bw ++ [ScriptTransfer(aI.caller, bv, unit)])
424 424                      else bw
425 425                  })
426 426              }
427 427          else {
428 428              let bx = S(T, height)
429 429              let J = bx._1
430 430              let aC = bx._2
431 431              valueOrElse(av(aw, ax, aC), {
432 432                  let by = aA(af(T), ax, aC)
433 433                  let bu = by._1
434 434                  let bv = by._2
435 435                  let bw = (bq ++ [ScriptTransfer(J, bu, unit)])
436 436                  if ((bv > 0))
437 437                      then (bw ++ [ScriptTransfer(aI.caller, bv, unit)])
438 438                      else bw
439 439                  })
440 440              }
441 441      }
442 442  
443 443  
444 444  
445 445  @Callable(aI)
446 446  func declineSlot (h) = {
447 447      let T = fromBase58String(h)
448 448      let bz = aD(T)
449 449      let bp = bz._1
450 450      let B = bz._2
451 451      let bq = [DeleteEntry(f(bp, T))]
452 452      if ((bp == c))
453 453          then {
454 454              let bA = D(B)
455 455              let J = bA._1
456 456              let bs = bA._2
457 457              if (!(an(aI.caller, J)))
458 458                  then throw("Invalid caller")
459 459                  else (bq ++ [ScriptTransfer(J, 1, T)])
460 460              }
461 461          else {
462 462              let bB = A(B)
463 463              let J = bB._1
464 464              let W = bB._2
465 465              let X = bB._3
466 466              let Y = bB._4
467 467              let Z = bB._5
468 468              if (!(an(aI.caller, J)))
469 469                  then throw("Invalid caller")
470 470                  else if (!(ao(height, Z)))
471 471                      then throw("Wait for end of auction")
472 472                      else (bq ++ [ScriptTransfer(J, 1, T)])
473 473              }
474 474      }
475 475  
476 476  
477 477  
478 478  @Callable(aI)
479 479  func setTrustedIssuer (bC) = if (!(al(aI.caller)))
480 480      then throw("Only admin")
481 481      else [BooleanEntry(l(addressFromStringValue(bC)), true)]
482 482  
483 483  
484 484  
485 485  @Callable(aI)
486 486  func getPriceAtCurrentMoment (h,U) = {
487 487      let T = fromBase58String(h)
488 488      let bD = S(T, U)
489 489      let J = bD._1
490 490      let P = bD._2
491 491  [IntegerEntry(i(T), P)]
492 492      }
493 493  
494 494

Old	New	Differences
1	1	{-# STDLIB_VERSION 6 #-}
2	2	{-# SCRIPT_TYPE ACCOUNT #-}
3	3	{-# CONTENT_TYPE DAPP #-}
4	4	let a = "_"
5	5
6	6	let b = "auction"
7	7
8	8	let c = "sell"
9	9
10	10	let d = "trusted"
11	11
12	12	let e = "price"
13	13
14	14	func f (g,h) = ((g + a) + toBase58String(h))
15	15
16	16
17	17	func i (h) = ((e + a) + toBase58String(h))
18	18
19	19
20	20	func j (h) = ((c + a) + toBase58String(h))
21	21
22	22
23	23	func k (h) = ((b + a) + toBase58String(h))
24	24
25	25
26	26	func l (m) = ((d + a) + toString(m))
27	27
28	28
29	29	func n (o,p) = (o ++ [p])
30	30
31	31
32	32	func q (r) = {
33	33	let s = size(r)
34	34	if ((s == 0))
35	35	then throw("Empty params")
36	36	else if ((s == 1))
37	37	then makeString({
38	38	let t = r
39	39	let u = size(t)
40	40	let v = nil
41	41	func w (x,y) = if ((y >= u))
42	42	then x
43	43	else n(x, t[y])
44	44
45	45	func z (x,y) = if ((y >= u))
46	46	then x
47	47	else throw("List size exceeds 1")
48	48
49	49	z(w(v, 0), 1)
50	50	}, a)
51	51	else if ((s == 2))
52	52	then makeString({
53	53	let t = r
54	54	let u = size(t)
55	55	let v = nil
56	56	func w (x,y) = if ((y >= u))
57	57	then x
58	58	else n(x, t[y])
59	59
60	60	func z (x,y) = if ((y >= u))
61	61	then x
62	62	else throw("List size exceeds 2")
63	63
64	64	z(w(w(v, 0), 1), 2)
65	65	}, a)
66	66	else if ((s == 3))
67	67	then makeString({
68	68	let t = r
69	69	let u = size(t)
70	70	let v = nil
71	71	func w (x,y) = if ((y >= u))
72	72	then x
73	73	else n(x, t[y])
74	74
75	75	func z (x,y) = if ((y >= u))
76	76	then x
77	77	else throw("List size exceeds 3")
78	78
79	79	z(w(w(w(v, 0), 1), 2), 3)
80	80	}, a)
81	81	else if ((s == 4))
82	82	then makeString({
83	83	let t = r
84	84	let u = size(t)
85	85	let v = nil
86	86	func w (x,y) = if ((y >= u))
87	87	then x
88	88	else n(x, t[y])
89	89
90	90	func z (x,y) = if ((y >= u))
91	91	then x
92	92	else throw("List size exceeds 4")
93	93
94	94	z(w(w(w(w(v, 0), 1), 2), 3), 4)
95	95	}, a)
96	96	else if ((s == 5))
97	97	then makeString({
98	98	let t = r
99	99	let u = size(t)
100	100	let v = nil
101	101	func w (x,y) = if ((y >= u))
102	102	then x
103	103	else n(x, t[y])
104	104
105	105	func z (x,y) = if ((y >= u))
106	106	then x
107	107	else throw("List size exceeds 5")
108	108
109	109	z(w(w(w(w(w(v, 0), 1), 2), 3), 4), 5)
110	110	}, a)
111	111	else throw("Max number of parameters exceeded")
112	112	}
113	113
114	114
115	115	func A (B) = {
116	116	let C = split(B, a)
117	117	$Tuple5(addressFromStringValue(C[0]), parseIntValue(C[1]), parseIntValue(C[2]), parseIntValue(C[3]), parseIntValue(C[4]))
118	118	}
119	119
120	120
121	121	func D (B) = {
122	122	let C = split(B, a)
123	123	$Tuple2(addressFromStringValue(C[0]), parseIntValue(C[1]))
124	124	}
125	125
126	126
127	127	func E (r) = {
128	128	let F = r
129	129	if ($isInstanceOf(F, "(Address, Int, String, String)"))
130	130	then {
131	131	let G = F
132	132	q([toString(G._1), toString(G._2), G._3, G._4])
133	133	}
134	134	else if ($isInstanceOf(F, "(Address, Int)"))
135	135	then {
136	136	let H = F
137	137	q([toString(H._1), toString(H._2)])
138	138	}
139	139	else throw("Wrong params tupple")
140	140	}
141	141
142	142
143	143	func I (J,h,K,L,M) = StringEntry(k(h), E($Tuple4(J, K, L, M)))
144	144
145	145
146	146	func N (h,O,P) = StringEntry(j(h), E($Tuple2(O, P)))
147	147
148	148
149	149	func Q (h) = value(getString(this, k(h)))
150	150
151	151
152	152	func R (h) = value(getString(this, j(h)))
153	153
154	154
155	155	func S (T,U) = {
156	156	let B = Q(T)
157	157	let V = A(B)
158	158	let J = V._1
159	159	let W = V._2
160	160	let X = V._3
161	161	let Y = V._4
162	162	let Z = V._5
163	163	if ((U >= Z))
164	164	then $Tuple2(J, X)
165	165	else {
166	166	let aa = (W - X)
167	167	let ab = (Z - Y)
168	168	let ac = (U - Y)
169	169	$Tuple2(J, (W - fraction(ac, aa, ab)))
170	170	}
171	171	}
172	172
173	173
174	174	func ad (T) = {
175	175	let F = assetInfo(T)
176	176	if ($isInstanceOf(F, "Asset"))
177	177	then {
178	178	let ae = F
179	179	if (if ((ae.decimals == 0))
180	180	then (ae.quantity == 1)
181	181	else false)
182	182	then (ae.reissuable == false)
183	183	else false
184	184	}
185	185	else false
186	186	}
187	187
188	188
189	189	func af (T) = {
190	190	let m = value(assetInfo(T)).issuer
191	191	valueOrElse(getBoolean(this, l(m)), false)
192	192	}
193	193
194	194
195	195	func ag (T) = isDefined(getString(this, j(T)))
196	196
197	197
198	198	func ah (T) = isDefined(getString(this, k(T)))
199	199
200	200
201	201	func ai (P) = (P > 0)
202	202
203	203
204	204	func aj (K,ak) = (K > ak)
205	205
206	206
207	207	func al (am) = (am == this)
208	208
209	209
210	210	func an (am,J) = if ((am == this))
211	211	then true
212	212	else (am == J)
213	213
214	214
215	215	func ao (ap,M) = (ap > M)
216	216
217	217
218	218	func aq (ar,as) = (ar >= as)
219	219
220	220
221	221	func at (T) = (T == unit)
222	222
223	223
224	224	func au (h) = if (!(ad(h)))
225	225	then throw("Token is not Nft")
226	226	else if (ag(h))
227	227	then throw("Sell already exists")
228	228	else if (ah(h))
229	229	then throw("Auction already exists")
230	230	else unit
231	231
232	232
233	233	func av (aw,ax,P) = if (!(at(aw)))
234	234	then throw("Payment must be at WAVES")
235	235	else if (!(aq(ax, P)))
236	236	then throw("Not enough funds")
237	237	else unit
238	238
239	239
240	240	func ay () = 0
241	241
242	242
243	243	func az () = 0
244	244
245	245
246	246	func aA (aB,ax,aC) = if (aB)
247	247	then $Tuple2((aC - az()), (ax - aC))
248	248	else $Tuple2((aC - ay()), (ax - aC))
249	249
250	250
251	251	func aD (h) = if (ag(h))
252	252	then $Tuple2(c, R(h))
253	253	else if (ah(h))
254	254	then $Tuple2(b, Q(h))
255	255	else throw("Slot doesn`t exist")
256	256
257	257
258	258	let aE = "buy"
259	259
260	260	let aF = "bid"
261	261
262	262	let aG = $Tuple4("OPEN", "CLOSED", "REWARDED", "CANCELED")
263	263
264	264	let aH = base58'3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq'
265	265
266	266	@Callable(aI)
267	267	func placeBid (h,aJ,aK,aL) = {
268	268	let am = aI.caller
269	269	let T = fromBase58String(h)
270	270	let aM = value(aI.payments[0].amount)
271	271	let aN = {
272	272	let F = getString(this, (((h + a) + "nft_status_") + aJ))
273	273	if ($isInstanceOf(F, "String"))
274	274	then {
275	275	let aO = F
276	276	aO
277	277	}
278	278	else false
279	279	}
280	280	if ((aI.payments[0].assetId != unit))
281	281	then throw("Pay in waves")
282	282	else if ((aN != aG._1))
283	283	then throw("Not open in auction list")
284	284	else [StringEntry(((("nft_id_" + h) + "_") + toBase58String(am.bytes)), h), StringEntry(((("nft_owner_" + h) + "_") + toBase58String(am.bytes)), aJ), StringEntry(((("bidding_for_" + h) + "_by_") + toBase58String(am.bytes)), toBase58String(am.bytes)), StringEntry(((("min_price_for_" + h) + "_by_") + toBase58String(am.bytes)), toString(aK)), StringEntry(((("bid_price_for" + h) + "_by_") + toBase58String(am.bytes)), toString(aL)), StringEntry(((("transfer_nft_to_dappwith_bid_price_for_" + h) + "_by_") + toBase58String(am.bytes)), toBase58String(aH))]
285	285	}
286	286
287	287
288	288
289	289	@Callable(aI)
290	290	func acceptBidOffer (h,aP,aQ) = {
291	291	let am = aI.caller.bytes
292	292	let T = fromBase58String(h)
293	293	let aR = fromBase58String(aP)
294	294	[ScriptTransfer(Address(aI.caller.bytes), aQ, unit), ScriptTransfer(Address(aR), 1, T), StringEntry(((h + "_rewarded_to_") + aP), aP), StringEntry(("nft_transfer_status_from" + toBase58String(am)), aG._3), StringEntry(((("nft_transfer_status_" + h) + "_transfer_to_") + aP), aP), DeleteEntry((((h + a) + "nft_status_") + toBase58String(am)))]
295	295	}
296	296
297	297
298	298
299	299	@Callable(aI)
300	300	func pay () = {
301	301	let aM = value(aI.payments[0].amount)
302	302	if ((aI.payments[0].assetId != unit))
303	303	then throw("Pay in waves")
304	304	else nil
305	305	}
306	306
307	307
308	308
309	309	@Callable(aI)
310	310	func confirmBid (h,aS) = [StringEntry("bid_winner", aS)]
311	311
312	312
313	313
314	314	@Callable(aI)
315	315	func createNft (aT,aJ,aU,aV,aW,aX,aY,aZ,ba) = {
316	316	let bb = Issue(aT, aY, 1, 0, false)
317	317	let bc = calculateAssetId(bb)
318	318	let bd = aI.transactionId
319	319	[bb, ScriptTransfer(aI.caller, 1, bc), StringEntry(((toBase58String(bc) + a) + "Owner"), toString(aI.caller)), StringEntry(((toBase58String(bc) + a) + "nft_type"), aV), StringEntry(((toBase58String(bc) + a) + "nft_tags"), aW), StringEntry(((toBase58String(bc) + a) + "nft_dAppAddress"), aU), IntegerEntry(((toBase58String(bc) + a) + "nft_selling_price"), aX), StringEntry(((toBase58String(bc) + a) + "nft_onSell"), aZ), StringEntry(((toBase58String(bc) + a) + "nft_data"), ba), StringEntry(((toBase58String(bd) + a) + "issue_nft"), toBase58String(bc))]
320	320	}
321	321
322	322
323	323
324	324	@Callable(aI)
325	325	func issueNft (be,bf) = {
326	326	let bb = Issue(be, bf, 1, 0, false)
327	327	let bc = calculateAssetId(bb)
328	328	[bb, ScriptTransfer(aI.caller, 1, bc), StringEntry(((toBase58String(bc) + a) + "Owner"), toString(aI.caller))]
329	329	}
330	330
331	331
332	332
333	333	@Callable(aI)
334	334	func buyNFT (bg,bh) = {
335	335	let T = fromBase58String(bg)
336	336	let aM = value(aI.payments[0].amount)
337	337	let bi = {
338	338	let F = getString(this, (("nft_" + bh) + "_owner"))
339	339	if ($isInstanceOf(F, "String"))
340	340	then {
341	341	let aO = F
342	342	aO
343	343	}
344	344	else false
345	345	}
346	346	let P = getStringValue(((((e + a) + bg) + "_") + bh))
347	347	let bj = valueOrErrorMessage(getStringValue(((bg + a) + "Owner")), "No owner")
348	348	if ((aI.payments[0].assetId != unit))
349	349	then throw("Pay in waves")
350	350	else if ((bi == toString(aI.caller)))
351	351	then throw("Owner of NFT not able to purchase")
352	352	else [ScriptTransfer(aI.caller, 1, T), ScriptTransfer(Address(fromBase58String(bj)), aM, unit), StringEntry(((toString(aI.caller) + a) + aE), ((bg + a) + toString(aM))), DeleteEntry((("nft_" + bh) + "_owner"))]
353	353	}
354	354
355	355
356	356
357	357	@Callable(aI)
358	358	func sellNFT (P) = {
359	359	let J = aI.caller.bytes
360	360	let bk = $Tuple2(value(aI.payments[0].assetId), value(aI.payments[0].amount))
361	361	let bl = bk._1
362	362	let bm = bk._2
363	363	if (!(ad(bl)))
364	364	then throw("Token is not NFT")
365	365	else [StringEntry((("nft_" + toBase58String(J)) + "_owner"), toBase58String(J)), StringEntry(((((e + a) + toBase58String(value(aI.payments[0].assetId))) + "_") + toString(aI.caller)), P), StringEntry(((toString(aI.caller) + a) + c), ((toBase58String(bl) + a) + toString(bm)))]
366	366	}
367	367
368	368
369	369
370	370	@Callable(aI)
371	371	func addSell (P) = {
372	372	let h = value(aI.payments[0].assetId)
373	373	valueOrElse(au(h), if (!(ai(P)))
374	374	then throw("Price must be > 0")
375	375	else [N(h, aI.caller, P)])
376	376	}
377	377
378	378
379	379
380	380	@Callable(aI)
381	381	func addAuction (L,M,K) = {
382	382	let h = value(aI.payments[0].assetId)
383	383	let P = value(K)
384	384	let G = $Tuple4(aI.caller, P, L, M)
385	385	let am = aI.caller.bytes
386	386	let aN = {
387	387	let F = getString(this, (((toBase58String(h) + a) + "nft_status_") + toBase58String(am)))
388	388	if ($isInstanceOf(F, "String"))
389	389	then {
390	390	let aO = F
391	391	aO
392	392	}
393	393	else false
394	394	}
395	395	if ((aN == aG._1))
396	396	then throw("Already in Auction list")
397	397	else [StringEntry(((toBase58String(h) + "_nft_start_auction_date_") + toBase58String(am)), L), StringEntry(((toBase58String(h) + "_nft_end_auction_date_") + toBase58String(am)), M), IntegerEntry(((toBase58String(h) + "_nft_start_price_") + toBase58String(am)), K), StringEntry(((toBase58String(h) + a) + "nft_owner"), toString(aI.caller)), StringEntry((((toBase58String(h) + a) + "nft_status_") + toBase58String(am)), aG._1)]
398	398	}
399	399
400	400
401	401
402	402	@Callable(aI)
403	403	func buyFromSlot (h) = {
404	404	let bn = $Tuple2(aI.payments[0].assetId, value(aI.payments[0].amount))
405	405	let aw = bn._1
406	406	let ax = bn._2
407	407	let T = fromBase58String(h)
408	408	let bo = aD(T)
409	409	let bp = bo._1
410	410	let B = bo._2
411	411	let bq = [ScriptTransfer(aI.caller, 1, T), DeleteEntry(f(bp, T))]
412	412	if ((bp == c))
413	413	then {
414	414	let br = D(B)
415	415	let J = br._1
416	416	let bs = br._2
417	417	valueOrElse(av(aw, ax, bs), {
418	418	let bt = aA(af(T), ax, bs)
419	419	let bu = bt._1
420	420	let bv = bt._2
421	421	let bw = (bq ++ [ScriptTransfer(J, bu, unit)])
422	422	if ((bv > 0))
423	423	then (bw ++ [ScriptTransfer(aI.caller, bv, unit)])
424	424	else bw
425	425	})
426	426	}
427	427	else {
428	428	let bx = S(T, height)
429	429	let J = bx._1
430	430	let aC = bx._2
431	431	valueOrElse(av(aw, ax, aC), {
432	432	let by = aA(af(T), ax, aC)
433	433	let bu = by._1
434	434	let bv = by._2
435	435	let bw = (bq ++ [ScriptTransfer(J, bu, unit)])
436	436	if ((bv > 0))
437	437	then (bw ++ [ScriptTransfer(aI.caller, bv, unit)])
438	438	else bw
439	439	})
440	440	}
441	441	}
442	442
443	443
444	444
445	445	@Callable(aI)
446	446	func declineSlot (h) = {
447	447	let T = fromBase58String(h)
448	448	let bz = aD(T)
449	449	let bp = bz._1
450	450	let B = bz._2
451	451	let bq = [DeleteEntry(f(bp, T))]
452	452	if ((bp == c))
453	453	then {
454	454	let bA = D(B)
455	455	let J = bA._1
456	456	let bs = bA._2
457	457	if (!(an(aI.caller, J)))
458	458	then throw("Invalid caller")
459	459	else (bq ++ [ScriptTransfer(J, 1, T)])
460	460	}
461	461	else {
462	462	let bB = A(B)
463	463	let J = bB._1
464	464	let W = bB._2
465	465	let X = bB._3
466	466	let Y = bB._4
467	467	let Z = bB._5
468	468	if (!(an(aI.caller, J)))
469	469	then throw("Invalid caller")
470	470	else if (!(ao(height, Z)))
471	471	then throw("Wait for end of auction")
472	472	else (bq ++ [ScriptTransfer(J, 1, T)])
473	473	}
474	474	}
475	475
476	476
477	477
478	478	@Callable(aI)
479	479	func setTrustedIssuer (bC) = if (!(al(aI.caller)))
480	480	then throw("Only admin")
481	481	else [BooleanEntry(l(addressFromStringValue(bC)), true)]
482	482
483	483
484	484
485	485	@Callable(aI)
486	486	func getPriceAtCurrentMoment (h,U) = {
487	487	let T = fromBase58String(h)
488	488	let bD = S(T, U)
489	489	let J = bD._1
490	490	let P = bD._2
491	491	[IntegerEntry(i(T), P)]
492	492	}
493	493
494	494

github/deemru/w8io/169f3d6 
64.15 ms ◑