tx · 9SdeqA3FmwtsvH8H7BLa5mqP7ynsbE96oh2tZpZ8Tnw1

3PDgvpAd6ufQi36vcJZEAqpR3ACe6apAhb8:  -0.01200000 Waves

2023.11.16 15:33 [3911764] smart account 3PDgvpAd6ufQi36vcJZEAqpR3ACe6apAhb8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9SdeqA3FmwtsvH8H7BLa5mqP7ynsbE96oh2tZpZ8Tnw1",
    "fee": 1200000,
    "feeAssetId": null,
    "timestamp": 1700138040687,
    "version": 2,
    "chainId": 87,
    "sender": "3PDgvpAd6ufQi36vcJZEAqpR3ACe6apAhb8",
    "senderPublicKey": "5MF7hzCqJYjxyYVvdh4AsyjUtLLtGPeQrH7XcLsK4Wgy",
    "proofs": [
        "jUqDoSFnS6SB9r8vi549ddTKuhnRZcTg2NyTvvRKRShDMZP69DrJBygTrsVjF8sQCDQ5DAtgLL91GGp9239nRAK"
    ],
    "script": "base64:BgIeCAISAwoBGBIDCgEYEgQKAgIYEgQKAgIYEgQKAgIYJwAJc2VwYXJhdG9yAgJfXwAHY2hhaW5JZAkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQAIY2hhaW5JZFQBAVQACGNoYWluSWRXAQFXAQttdXN0QWRkcmVzcwIBaQdhZGRyZXNzAwkAAAIIBQFpBmNhbGxlcgUHYWRkcmVzcwYJAAIBAhFwZXJtaXNzaW9uIGRlbmllZAEIbXVzdFRoaXMBAWkJAQttdXN0QWRkcmVzcwIFAWkFBHRoaXMAA1NFUAICX18ABVdBVkVTAgVXQVZFUwAQY29udHJhY3RGaWxlbmFtZQIVd3hkYW9fY2FsY3VsYXRvci5yaWRlAAVtdWx0OACAwtcvAAZtdWx0MTgJALYCAQCAgJC7utat8A0ADXdhdmVzRGVjaW1hbHMACAAMdXNkdERlY2ltYWxzAAYBBXRvWDE4AgdvcmlnVmFsDW9yaWdTY2FsZU11bHQJALwCAwkAtgIBBQdvcmlnVmFsBQZtdWx0MTgJALYCAQUNb3JpZ1NjYWxlTXVsdAEHZnJvbVgxOAIDdmFsD3Jlc3VsdFNjYWxlTXVsdAkAoAMBCQC8AgMFA3ZhbAkAtgIBBQ9yZXN1bHRTY2FsZU11bHQFBm11bHQxOAEHd3JhcEVycgEBcwkArAICCQCsAgIFEGNvbnRyYWN0RmlsZW5hbWUCAjogBQFzAQh0aHJvd0VycgEBcwkAAgEJAQd3cmFwRXJyAQUBcwEQa2V5Q3VycmVudFBlcmlvZAAJALkJAgkAzAgCAgIlcwkAzAgCAg1jdXJyZW50UGVyaW9kBQNuaWwFA1NFUAEWa2V5U3RhcnRIZWlnaHRCeVBlcmlvZAEGcGVyaW9kCQC5CQIJAMwIAgIEJXMlZAkAzAgCAgtzdGFydEhlaWdodAkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABD2tleVBlcmlvZExlbmd0aAAJALkJAgkAzAgCAgIlcwkAzAgCAgxwZXJpb2RMZW5ndGgFA25pbAUDU0VQARhrZXlUcmVhc3VyeVZhbHVlQnlQZXJpb2QBBnBlcmlvZAkAuQkCCQDMCAICBCVzJWQJAMwIAgINdHJlYXN1cnlWYWx1ZQkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABFWtleVBvd2VyQ29uZmlnQWRkcmVzcwACFiVzX19wb3dlckNvbmZpZ0FkZHJlc3MBEnBvd2VyQ29uZmlnQWRkcmVzcwEOZmFjdG9yeUFkZHJlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgQHJG1hdGNoMAkAnQgCBQ5mYWN0b3J5QWRkcmVzcwkBFWtleVBvd2VyQ29uZmlnQWRkcmVzcwADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQCmCAEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yCQEHd3JhcEVycgECHGludmFsaWQgcG93ZXIgY29uZmlnIGFkZHJlc3MBD2tleVBvd2VyQXNzZXRJZAACDHBvd2VyQXNzZXRJZAEPZ2V0UG93ZXJBc3NldElkAQ5mYWN0b3J5QWRkcmVzcwkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgkBEnBvd2VyQ29uZmlnQWRkcmVzcwEFDmZhY3RvcnlBZGRyZXNzCQEPa2V5UG93ZXJBc3NldElkAAkBB3dyYXBFcnIBAhZpbnZhbGlkIHBvd2VyIGFzc2V0IGlkARdrZXlQb3dlckNvbnRyYWN0QWRkcmVzcwACGCVzX19wb3dlckNvbnRyYWN0QWRkcmVzcwEUcG93ZXJDb250cmFjdEFkZHJlc3MBDmZhY3RvcnlBZGRyZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIEByRtYXRjaDAJAJ0IAgUOZmFjdG9yeUFkZHJlc3MJARdrZXlQb3dlckNvbnRyYWN0QWRkcmVzcwADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQCmCAEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yCQEHd3JhcEVycgECHmludmFsaWQgcG93ZXIgY29udHJhY3QgYWRkcmVzcwEWa2V5UG9vbHNGYWN0b3J5QWRkcmVzcwACFyVzX19wb29sc0ZhY3RvcnlBZGRyZXNzARZnZXRQb29sc0ZhY3RvcnlBZGRyZXNzAQ5mYWN0b3J5QWRkcmVzcwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBAckbWF0Y2gwCQCdCAIFDmZhY3RvcnlBZGRyZXNzCQEWa2V5UG9vbHNGYWN0b3J5QWRkcmVzcwADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQCmCAEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yCQEHd3JhcEVycgECHWludmFsaWQgcG9vbHMgZmFjdG9yeSBhZGRyZXNzARJrZXlUcmVhc3VyeUFkZHJlc3MAAhMlc19fdHJlYXN1cnlBZGRyZXNzARJnZXRUcmVhc3VyeUFkZHJlc3MBDmZhY3RvcnlBZGRyZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIEByRtYXRjaDAJAJ0IAgUOZmFjdG9yeUFkZHJlc3MJARJrZXlUcmVhc3VyeUFkZHJlc3MAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkApggBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgkBB3dyYXBFcnIBAhhpbnZhbGlkIHRyZWFzdXJ5IGFkZHJlc3MBCWtleUFzc2V0cwACCiVzX19hc3NldHMBDGdldEFzc2V0c1N0cgEOZmFjdG9yeUFkZHJlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ5mYWN0b3J5QWRkcmVzcwkBCWtleUFzc2V0cwAJAQd3cmFwRXJyAQIOaW52YWxpZCBhc3NldHMBDGtleUxwQXNzZXRJZAACDSVzX19scEFzc2V0SWQBDGdldExwQXNzZXRJZAEOZmFjdG9yeUFkZHJlc3MJANkEAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFDmZhY3RvcnlBZGRyZXNzCQEMa2V5THBBc3NldElkAAkBB3dyYXBFcnIBAhNpbnZhbGlkIGxwIGFzc2V0IGlkARJnZXRBc3NldEluZm9PckZhaWwBB2Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQdhc3NldElkCQEHd3JhcEVycgECEmludmFsaWQgYXNzZXQgaW5mbwERZ2V0QXNzZXRzQmFsYW5jZXMCDXRhcmdldEFkZHJlc3MLYXNzZXRJZExpc3QKAQNtYXACA2FjYw5uZXh0QXNzZXRJZFN0cgQHYmFsYW5jZQMJAAACBQ5uZXh0QXNzZXRJZFN0cgUFV0FWRVMJAQV0b1gxOAIICQDvBwEFDXRhcmdldEFkZHJlc3MJYXZhaWxhYmxlBQ13YXZlc0RlY2ltYWxzBAdhc3NldElkCQDZBAEFDm5leHRBc3NldElkU3RyBA1hc3NldERlY2ltYWxzCAkBEmdldEFzc2V0SW5mb09yRmFpbAEFB2Fzc2V0SWQIZGVjaW1hbHMJAQV0b1gxOAIJAPAHAgUNdGFyZ2V0QWRkcmVzcwUHYXNzZXRJZAUNYXNzZXREZWNpbWFscwkAzQgCBQNhY2MFB2JhbGFuY2UKAAIkbAULYXNzZXRJZExpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA21hcAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgEPZ2V0QXNzZXRzUHJpY2VzAhNwb29sc0ZhY3RvcnlBZGRyZXNzC2Fzc2V0SWRMaXN0AwkAAAIFB2NoYWluSWQFCGNoYWluSWRXBBN3YXZlc1VzZHRBZGRyZXNzU3RyAiMzUEtmcnVwRXlkVTJuWkFnaFZqWkFmdkN3TUJrenVSMUY1MgQOd2F2ZXNVc2R0UHJpY2UJAKcDAQoAAUAJAPwHBAUTcG9vbHNGYWN0b3J5QWRkcmVzcwIIZ2V0UHJpY2UJAMwIAgUTd2F2ZXNVc2R0QWRkcmVzc1N0cgUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBBJ3YXZlc1h0bkFkZHJlc3NTdHICIzNQUFpXZ0ZOUktITHZNNTFwd1M5MzRDOFZaN2QyRjRaNThnBA13YXZlc1h0blByaWNlCQCnAwEKAAFACQD8BwQFE3Bvb2xzRmFjdG9yeUFkZHJlc3MCCGdldFByaWNlCQDMCAIFEndhdmVzWHRuQWRkcmVzc1N0cgUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBAx4dG5Vc2R0UHJpY2UJALwCAwUOd2F2ZXNVc2R0UHJpY2UFBm11bHQxOAUNd2F2ZXNYdG5QcmljZQoBA21hcAIDYWNjC25leHRBc3NldElkBAVwcmljZQQHJG1hdGNoMAULbmV4dEFzc2V0SWQDCQAAAgIsMnRoc0FDdUhtekRNdU5lelBNMzJ3ZzlhM0J3VXpCV0RlU0tha2d6M2N3MjEFByRtYXRjaDAEEnB3cldhdmVzQWRkcmVzc1N0cgIjM1BEaTdRcThwTFFZdnRLeVRmUXVxcVBVV3lob1liVTk1N3QEDXB3cldhdmVzUHJpY2UJAKcDAQoAAUAJAPwHBAUTcG9vbHNGYWN0b3J5QWRkcmVzcwIIZ2V0UHJpY2UJAMwIAgUScHdyV2F2ZXNBZGRyZXNzU3RyBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcJALwCAwUNcHdyV2F2ZXNQcmljZQUOd2F2ZXNVc2R0UHJpY2UFBm11bHQxOAMJAAACAixBdHF2NTlFWXpqRkd1aXRLVm5NUms2SDhGdWtqb1Yza3RQb3JiRXlzMjVvbgUHJG1hdGNoMAQRd3hXYXZlc0FkZHJlc3NTdHICIzNQRnphSDJnaHB3QU5IRmdqZXZhODNOMXl4ekVyRUx4MmVoBAx3eFdhdmVzUHJpY2UJAKcDAQoAAUAJAPwHBAUTcG9vbHNGYWN0b3J5QWRkcmVzcwIIZ2V0UHJpY2UJAMwIAgURd3hXYXZlc0FkZHJlc3NTdHIFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwkAuQICBQx3eFdhdmVzUHJpY2UFDndhdmVzVXNkdFByaWNlAwkAAAICLDM0TjlZY0VFVExXbjkzcVlRNjRFc1AxeDg5dFNydUpVNDRSckVNU1hYRVBKBQckbWF0Y2gwBBR1c2R0d3hnWHRuQWRkcmVzc1N0cgIjM1A4S015QUpDUFdOY3llZHFybXlteGFlV29udm1raEdhdXoED3VzZHR3eGdYdG5QcmljZQkApwMBCgABQAkA/AcEBRNwb29sc0ZhY3RvcnlBZGRyZXNzAghnZXRQcmljZQkAzAgCBRR1c2R0d3hnWHRuQWRkcmVzc1N0cgUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nCQC8AgMFD3VzZHR3eGdYdG5QcmljZQUMeHRuVXNkdFByaWNlBQZtdWx0MTgDCQAAAgIsNlh0SGpwWGJzOVJSSlAyU3I5R1V5VnF6QUNjYnk5VGtUaEhYbmpWQzVDREoFByRtYXRjaDAEFndhdmVzVXNkY3d4Z0FkZHJlc3NTdHICIzNQM2czZWlwZkcyTlpLS1FFOERaWHQyRTl0UkpxaWk5amNYBA91c2Rjd3hnWHRuUHJpY2UJAKcDAQoAAUAJAPwHBAUTcG9vbHNGYWN0b3J5QWRkcmVzcwIIZ2V0UHJpY2UJAMwIAgUWd2F2ZXNVc2Rjd3hnQWRkcmVzc1N0cgUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nCQC8AgMFDndhdmVzVXNkdFByaWNlBQZtdWx0MTgFD3VzZGN3eGdYdG5QcmljZQMJAAACAixIWmsxbWJmdUpwbXhVMUZzNEFYNU1XTFZZdGN0c05jZzZlMkM2VktxSzh6awUHJG1hdGNoMAQTbHRjd3hnWHRuQWRkcmVzc1N0cgIjM1A5NHd2dTVnQTdWaGpQZ0FCM3R3YWVxZHdIQ3dOSzJ2c24EDmx0Y3d4Z1h0blByaWNlCQCnAwEKAAFACQD8BwQFE3Bvb2xzRmFjdG9yeUFkZHJlc3MCCGdldFByaWNlCQDMCAIFE2x0Y3d4Z1h0bkFkZHJlc3NTdHIFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwkAvAIDBQ5sdGN3eGdYdG5QcmljZQUMeHRuVXNkdFByaWNlBQZtdWx0MTgDCQAAAgIsNDc0alRlWXgycjJWYTM1Nzk0dENTY0FYV0pHOWhVMkhjZ3h6TW93YVpVbnUFByRtYXRjaDAEE2V0aHd4Z1h0bkFkZHJlc3NTdHICIzNQM1hHVE42czI5Mmc5aXdZaHMzVEVxSnFIaWZmUVlvanVFBA5ldGh3eGdYdG5QcmljZQkApwMBCgABQAkA/AcEBRNwb29sc0ZhY3RvcnlBZGRyZXNzAghnZXRQcmljZQkAzAgCBRNldGh3eGdYdG5BZGRyZXNzU3RyBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcJALwCAwUOZXRod3hnWHRuUHJpY2UFDndhdmVzVXNkdFByaWNlBQZtdWx0MTgDCQAAAgIsOExRVzhmN1A1ZDVQWk03R3RaRUJnYXFSUEdTelMzRGZQdWlYclVSSjRBSlMFByRtYXRjaDAEE2J0Y3d4Z1h0bkFkZHJlc3NTdHICIzNQQ0JXRFRBNmpyRnN3ZDdnUWdhRTNYazdnTE01UktvZnZwBA5idGN3eGdYdG5QcmljZQkApwMBCgABQAkA/AcEBRNwb29sc0ZhY3RvcnlBZGRyZXNzAghnZXRQcmljZQkAzAgCBRNidGN3eGdYdG5BZGRyZXNzU3RyBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcJALwCAwUOYnRjd3hnWHRuUHJpY2UFDndhdmVzVXNkdFByaWNlBQZtdWx0MTgJAQh0aHJvd0VycgECEGludmFsaWQgYXNzZXQgaWQJAM0IAgUDYWNjBQVwcmljZQoAAiRsBQthc3NldElkTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEDbWFwAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAwkAAAIFB2NoYWluSWQFCGNoYWluSWRUCgEDbWFwAgNhY2MLbmV4dEFzc2V0SWQEBXByaWNlBAckbWF0Y2gwBQtuZXh0QXNzZXRJZAMJAAACAixFTUFNTHhEbnYzeGl6OFJYZzhCdGozM2pjRXczd0xjekwzSktZWW11dWJwYwUHJG1hdGNoMAQQd3hVc2R0QWRkcmVzc1N0cgIjM01yVUxRUkxjNTJHV3JKRjF0TWNBbTRNNzhmUGU1N285S3QEC3d4VXNkdFByaWNlCQCnAwEKAAFACQD8BwQFE3Bvb2xzRmFjdG9yeUFkZHJlc3MCCGdldFByaWNlCQDMCAIFEHd4VXNkdEFkZHJlc3NTdHIFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwULd3hVc2R0UHJpY2UDCQAAAgIsQTdLc2g3Zlh5cW0xS2hLQWlLM2JBQjJhaVBTaXRRUUY2djFweXU5U1MzRlIFByRtYXRjaDAEEnVzZGNVc2R0QWRkcmVzc1N0cgIjM016S1NkVEgyakZieXBMc29OZnJIN1Fna3pTYngzRVl3Q0EEDXVzZGNVc2R0UHJpY2UJAKcDAQoAAUAJAPwHBAUTcG9vbHNGYWN0b3J5QWRkcmVzcwIIZ2V0UHJpY2UJAMwIAgUSdXNkY1VzZHRBZGRyZXNzU3RyBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcFDXVzZGNVc2R0UHJpY2UDCQAAAgIsOFE2U0UyQU5lYnVmdzhKdVBqSlZSalpENmRyRDhpaGpOak04eGFHVVNmZFIFByRtYXRjaDAEBXByaWNlAIDC1y8FBXByaWNlCQEIdGhyb3dFcnIBAhBpbnZhbGlkIGFzc2V0IGlkCQDNCAIFA2FjYwUFcHJpY2UKAAIkbAULYXNzZXRJZExpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA21hcAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgkBCHRocm93RXJyAQIQaW52YWxpZCBjaGFpbiBpZAERY2FsY1RyZWFzdXJ5VmFsdWUBDmZhY3RvcnlBZGRyZXNzBA90cmVhc3VyeUFkZHJlc3MJARJnZXRUcmVhc3VyeUFkZHJlc3MBBQ5mYWN0b3J5QWRkcmVzcwQTcG9vbHNGYWN0b3J5QWRkcmVzcwkBFmdldFBvb2xzRmFjdG9yeUFkZHJlc3MBBQ5mYWN0b3J5QWRkcmVzcwQJYXNzZXRzU3RyCQC1CQIJAQxnZXRBc3NldHNTdHIBBQ5mYWN0b3J5QWRkcmVzcwUDU0VQBA5hc3NldHNCYWxhbmNlcwkBEWdldEFzc2V0c0JhbGFuY2VzAgUPdHJlYXN1cnlBZGRyZXNzBQlhc3NldHNTdHIEDGFzc2V0c1ByaWNlcwkBD2dldEFzc2V0c1ByaWNlcwIFE3Bvb2xzRmFjdG9yeUFkZHJlc3MFCWFzc2V0c1N0cgoBBnJlZHVjZQIDYWNjDm5leHRBc3NldElkU3RyBAdhc3NldElkCQDZBAEFDm5leHRBc3NldElkU3RyBAVpbmRleAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDPCAIFCWFzc2V0c1N0cgUObmV4dEFzc2V0SWRTdHIJAQd3cmFwRXJyAQIQaW52YWxpZCBhc3NldCBpZAQHYmFsYW5jZQkAkQMCBQ5hc3NldHNCYWxhbmNlcwUFaW5kZXgEBXByaWNlCQCRAwIFDGFzc2V0c1ByaWNlcwUFaW5kZXgECmFzc2V0VmFsdWUJALwCAwUHYmFsYW5jZQUFcHJpY2UFBm11bHQxOAkAtwICBQNhY2MFCmFzc2V0VmFsdWUEDXRyZWFzdXJ5VmFsdWUKAAIkbAUJYXNzZXRzU3RyCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAtgIBAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBnJlZHVjZQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgUNdHJlYXN1cnlWYWx1ZQUBaQEId2l0aGRyYXcBBGFyZ3MECXJlY2lwaWVudAkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQRhcmdzAAAEBmFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBGFyZ3MAAQQGcmVzdWx0CQD8BwQIBQFpBmNhbGxlcgINdHJhbnNmZXJXYXZlcwkAzAgCCAUJcmVjaXBpZW50BWJ5dGVzCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwJAJQKAgUDbmlsBQZyZXN1bHQBaQELc2V0SW50UGFyYW0BBGFyZ3MEA2tleQkAkQMCBQRhcmdzAAAEA3ZhbAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBGFyZ3MAAQQGcmVzdWx0CQD8BwQIBQFpBmNhbGxlcgIMaW50ZWdlckVudHJ5CQDMCAIFA2tleQkAzAgCBQN2YWwFA25pbAUDbmlsCQCUCgIFA25pbAUGcmVzdWx0AWkBBHN3YXACD2NhbGxlclB1YmxpY0tleQRhcmdzBA5mYWN0b3J5QWRkcmVzcwgFAWkGY2FsbGVyBAt1c2VyQWRkcmVzcwkApwgBBQ9jYWxsZXJQdWJsaWNLZXkEB3BheW1lbnQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAQh0aHJvd0VycgECFTEgcGF5bWVudCBpcyByZXF1aXJlZAQDZXJyCQEHd3JhcEVycgECGGludmFsaWQgcGF5bWVudCBhc3NldCBpZAQOcGF5bWVudEFzc2V0SWQDCQAAAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUHcGF5bWVudAdhc3NldElkBQNlcnIJAQxnZXRMcEFzc2V0SWQBBQ5mYWN0b3J5QWRkcmVzcwkBBXZhbHVlAQgFB3BheW1lbnQHYXNzZXRJZAkBCHRocm93RXJyAQUDZXJyBAhwd3JQcmljZQBkBAlwd3JBbW91bnQJAGkCCAUHcGF5bWVudAZhbW91bnQFCHB3clByaWNlBAlhc3NldHNTdHIJALUJAgkBDGdldEFzc2V0c1N0cgEFDmZhY3RvcnlBZGRyZXNzBQNTRVAECnB3ckJhbGFuY2UJAPAHAgUOZmFjdG9yeUFkZHJlc3MJAQ9nZXRQb3dlckFzc2V0SWQBBQ5mYWN0b3J5QWRkcmVzcwMJAAACBQpwd3JCYWxhbmNlBQpwd3JCYWxhbmNlBA90cmVhc3VyeUFkZHJlc3MJARJnZXRUcmVhc3VyeUFkZHJlc3MBBQ5mYWN0b3J5QWRkcmVzcwQOYXNzZXRzQmFsYW5jZXMJARFnZXRBc3NldHNCYWxhbmNlcwIFD3RyZWFzdXJ5QWRkcmVzcwUJYXNzZXRzU3RyCgEDbWFwAgNhY2MObmV4dEFzc2V0SWRTdHIEB2Fzc2V0SWQJANkEAQUObmV4dEFzc2V0SWRTdHIEBWluZGV4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAM8IAgUJYXNzZXRzU3RyBQ5uZXh0QXNzZXRJZFN0cgkBB3dyYXBFcnIBAhVpbnZhbGlkIGFzc2V0IGJhbGFuY2UEDWFzc2V0RGVjaW1hbHMICQESZ2V0QXNzZXRJbmZvT3JGYWlsAQUHYXNzZXRJZAhkZWNpbWFscwQHYmFsYW5jZQkBB2Zyb21YMTgCCQCRAwIFDmFzc2V0c0JhbGFuY2VzBQVpbmRleAUNYXNzZXREZWNpbWFscwQGYW1vdW50CQBrAwUHYmFsYW5jZQUJcHdyQW1vdW50BQpwd3JCYWxhbmNlAwkAZgIFBmFtb3VudAAACQCUCgIJAM0IAggFA2FjYwJfMQUHYXNzZXRJZAkAzQgCCAUDYWNjAl8yBQZhbW91bnQFA2FjYwQJdHJhbnNmZXJzCgACJGwFCWFzc2V0c1N0cgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA21hcAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgMJAAACBQl0cmFuc2ZlcnMFCXRyYW5zZmVycwQUYWRkaXRpb25hbExvY2tSb3VuZHMAAAQOZmFjdG9yeUFjdGlvbnMJAM4IAgkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAiBjb21taXRBZnRlclN0YXJ0V2l0aExvY2tSb3VuZEZvcgkAzAgCCQClCAEJARRwb3dlckNvbnRyYWN0QWRkcmVzcwEFDmZhY3RvcnlBZGRyZXNzCQDMCAIJAKUIAQUOZmFjdG9yeUFkZHJlc3MJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwkAzAgCBRRhZGRpdGlvbmFsTG9ja1JvdW5kcwkAzAgCCQEPZ2V0UG93ZXJBc3NldElkAQUOZmFjdG9yeUFkZHJlc3MJAMwIAgUJcHdyQW1vdW50BQNuaWwFA25pbAUDbmlsAwkAAAIJAJADAQgFCXRyYW5zZmVycwJfMQAABQNuaWwJAMwIAgkA/AcEBQ5mYWN0b3J5QWRkcmVzcwIOdHJhbnNmZXJBc3NldHMJAMwIAggFC3VzZXJBZGRyZXNzBWJ5dGVzCQDMCAIIBQl0cmFuc2ZlcnMCXzEJAMwIAggFCXRyYW5zZmVycwJfMgUDbmlsBQNuaWwFA25pbAkAlAoCCQDMCAIJAQRCdXJuAgUOcGF5bWVudEFzc2V0SWQIBQdwYXltZW50BmFtb3VudAUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQVwcmljZQIPY2FsbGVyUHVibGljS2V5BGFyZ3MEDmZhY3RvcnlBZGRyZXNzCAUBaQZjYWxsZXIEE3Bvb2xzRmFjdG9yeUFkZHJlc3MJARZnZXRQb29sc0ZhY3RvcnlBZGRyZXNzAQUOZmFjdG9yeUFkZHJlc3MEDWN1cnJlbnRQZXJpb2QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQ5mYWN0b3J5QWRkcmVzcwkBEGtleUN1cnJlbnRQZXJpb2QACQEHd3JhcEVycgECFmludmFsaWQgY3VycmVudCBwZXJpb2QEEnN0YXJ0VHJlYXN1cnlWYWx1ZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFDmZhY3RvcnlBZGRyZXNzCQEYa2V5VHJlYXN1cnlWYWx1ZUJ5UGVyaW9kAQUNY3VycmVudFBlcmlvZAkBB3dyYXBFcnIBCQCsAgICImludmFsaWQgdHJlYXN1cnkgdmFsdWUgZm9yIHBlcmlvZCAJAKQDAQUNY3VycmVudFBlcmlvZAQNdHJlYXN1cnlWYWx1ZQkBB2Zyb21YMTgCCQERY2FsY1RyZWFzdXJ5VmFsdWUBBQ5mYWN0b3J5QWRkcmVzcwUMdXNkdERlY2ltYWxzBBF0cmVhc3VyeVZhbHVlRGlmZgkAZQIFDXRyZWFzdXJ5VmFsdWUFEnN0YXJ0VHJlYXN1cnlWYWx1ZQQLcHdyUHJpY2VSYXcJAJEDAgkBD2dldEFzc2V0c1ByaWNlcwIFE3Bvb2xzRmFjdG9yeUFkZHJlc3MJAMwIAgkA2AQBCQEPZ2V0UG93ZXJBc3NldElkAQUOZmFjdG9yeUFkZHJlc3MFA25pbAAABAhwd3JQcmljZQMJAL8CAgULcHdyUHJpY2VSYXcJALYCAQAACQEHZnJvbVgxOAIFC3B3clByaWNlUmF3BQx1c2R0RGVjaW1hbHMJAQh0aHJvd0VycgECEWludmFsaWQgUFdSIHByaWNlBAVwcmljZQMJAGYCAAAFEXRyZWFzdXJ5VmFsdWVEaWZmCQBpAgUIcHdyUHJpY2UAZAkAaQIJAGQCCQBrAwURdHJlYXN1cnlWYWx1ZURpZmYAAgCQTgUIcHdyUHJpY2UAZAkAlAoCBQNuaWwFBXByaWNlAWkBEGdldFRyZWFzdXJ5VmFsdWUCD2NhbGxlclB1YmxpY0tleQRhcmdzBA5mYWN0b3J5QWRkcmVzcwgFAWkGY2FsbGVyBA10cmVhc3VyeVZhbHVlCQERY2FsY1RyZWFzdXJ5VmFsdWUBBQ5mYWN0b3J5QWRkcmVzcwkAlAoCBQNuaWwFDXRyZWFzdXJ5VmFsdWUABV8jcg==",
    "height": 3911764,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: F5XQTqP8ui48NGDKMLbSUtref1JgWKWzYFT5tt7BBYak
Next: 267G9EdzA2XLT1cPtjLx8R9Mqx8V4C1ezB18WA3wXeFQ

Diff: 

OldNewDifferences
2121 
2222 let WAVES = "WAVES"
2323 
24-let contractFilename = "wxdao_factory.ride"
24+let contractFilename = "wxdao_calculator.ride"
25+
26+let mult8 = 100000000
27+
28+let mult18 = toBigInt(1000000000000000000)
29+
30+let wavesDecimals = 8
31+
32+let usdtDecimals = 6
33+
34+func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), mult18, toBigInt(origScaleMult))
35+
36+
37+func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), mult18))
38+
2539 
2640 func wrapErr (s) = ((contractFilename + ": ") + s)
2741 
2842 
2943 func throwErr (s) = throw(wrapErr(s))
30-
31-
32-func stringToAssetId (s) = if ((s == WAVES))
33-    then unit
34-    else fromBase58String(s)
35-
36-
37-let ADMIN_LIST_SIZE = 5
38-
39-let QUORUM = 3
40-
41-let TXID_BYTES_LENGTH = 32
42-
43-func keyAllowedTxIdVotePrefix (txId) = makeString(["%s%s%s", "allowTxId", txId], SEP)
44-
45-
46-func keyFullAdminVote (prefix,adminAddress) = makeString([prefix, adminAddress], SEP)
47-
48-
49-func keyAdminAddressList () = makeString(["%s", "adminAddressList"], SEP)
50-
51-
52-func keyAllowedTxId () = makeString(["%s", "txId"], SEP)
53-
54-
55-func getAdminVote (prefix,admin) = {
56-    let voteKey = keyFullAdminVote(prefix, admin)
57-    valueOrElse(getInteger(voteKey), 0)
58-    }
59-
60-
61-func getAdminsList () = match getString(this, keyAdminAddressList()) {
62-    case s: String => 
63-        split(s, SEP)
64-    case _ => 
65-        nil
66-}
67-
68-
69-func isInAdminList (address) = containsElement(getAdminsList(), address)
70-
71-
72-func genVotesKeysHelper (a,adminAddress) = {
73-    let $t014801504 = a
74-    let result = $t014801504._1
75-    let prefix = $t014801504._2
76-    $Tuple2((result :+ keyFullAdminVote(prefix, adminAddress)), prefix)
77-    }
78-
79-
80-func genVotesKeys (keyPrefix) = {
81-    let adminList = keyAdminAddressList()
82-    let $t016511735 = {
83-        let $l = getAdminsList()
84-        let $s = size($l)
85-        let $acc0 = $Tuple2(nil, keyPrefix)
86-        func $f0_1 ($a,$i) =         if (($i >= $s))
87-            then $a
88-            else genVotesKeysHelper($a, $l[$i])
89-
90-        func $f0_2 ($a,$i) =         if (($i >= $s))
91-            then $a
92-            else throw("List size exceeds 5")
93-
94-        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
95-        }
96-    let result = $t016511735._1
97-    let prefix = $t016511735._2
98-    result
99-    }
100-
101-
102-func countVotesHelper (result,voteKey) = (result + valueOrElse(getInteger(voteKey), 0))
103-
104-
105-func countVotes (prefix) = {
106-    let votes = genVotesKeys(prefix)
107-    let $l = votes
108-    let $s = size($l)
109-    let $acc0 = 0
110-    func $f0_1 ($a,$i) =     if (($i >= $s))
111-        then $a
112-        else countVotesHelper($a, $l[$i])
113-
114-    func $f0_2 ($a,$i) =     if (($i >= $s))
115-        then $a
116-        else throw("List size exceeds 5")
117-
118-    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
119-    }
120-
121-
122-func clearVotesHelper (result,key) = (result :+ DeleteEntry(key))
123-
124-
125-func getClearVoteEntries (prefix) = {
126-    let votes = genVotesKeys(prefix)
127-    let $l = votes
128-    let $s = size($l)
129-    let $acc0 = nil
130-    func $f0_1 ($a,$i) =     if (($i >= $s))
131-        then $a
132-        else clearVotesHelper($a, $l[$i])
133-
134-    func $f0_2 ($a,$i) =     if (($i >= $s))
135-        then $a
136-        else throw("List size exceeds 5")
137-
138-    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
139-    }
140-
141-
142-func voteINTERNAL (callerAddressString,keyPrefix,minVotes,voteResult) = {
143-    let voteKey = keyFullAdminVote(keyPrefix, callerAddressString)
144-    let adminCurrentVote = getAdminVote(keyPrefix, callerAddressString)
145-    let err = if (!(isInAdminList(callerAddressString)))
146-        then throwErr((("Address: " + callerAddressString) + " not in Admin list"))
147-        else if ((adminCurrentVote == 1))
148-            then throwErr((voteKey + " you already voted"))
149-            else unit
150-    if ((err == err))
151-        then {
152-            let votes = countVotes(keyPrefix)
153-            if (((votes + 1) >= minVotes))
154-                then {
155-                    let clearVoteEntries = getClearVoteEntries(keyPrefix)
156-                    (clearVoteEntries ++ voteResult)
157-                    }
158-                else [IntegerEntry(voteKey, 1)]
159-            }
160-        else throw("Strict value is not equal to itself.")
161-    }
162-
163-
164-func keyCalculatorAddress () = "%s__calculatorAddress"
165-
166-
167-func keyPoolsFactoryAddress () = "%s__poolsFactoryAddress"
168-
169-
170-func keyTreasuryAddress () = "%s__treasuryAddress"
171-
172-
173-func keyLpAssetId () = "%s__lpAssetId"
17444 
17545 
17646 func keyCurrentPeriod () = makeString(["%s", "currentPeriod"], SEP)
18555 func keyTreasuryValueByPeriod (period) = makeString(["%s%d", "treasuryValue", toString(period)], SEP)
18656 
18757 
188-let calculatorAddressOption = match getString(this, keyCalculatorAddress()) {
58+func keyPowerConfigAddress () = "%s__powerConfigAddress"
59+
60+
61+func powerConfigAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPowerConfigAddress()) {
18962     case s: String => 
19063         addressFromString(s)
19164     case _: Unit => 
19265         unit
19366     case _ => 
19467         throw("Match error")
195-}
68+}, wrapErr("invalid power config address"))
19669 
197-let calculatorAddressOrFail = valueOrErrorMessage(calculatorAddressOption, wrapErr("invalid calculator address"))
19870 
199-func keyPowerConfigAddress () = "%s__powerConfigAddress"
71+func keyPowerAssetId () = "powerAssetId"
72+
73+
74+func getPowerAssetId (factoryAddress) = fromBase58String(valueOrErrorMessage(getString(powerConfigAddress(factoryAddress), keyPowerAssetId()), wrapErr("invalid power asset id")))
20075 
20176 
20277 func keyPowerContractAddress () = "%s__powerContractAddress"
20378 
20479 
205-func keyAssets () = "%s__assets"
206-
207-
208-func keyVotingResultAddress () = "contract_voting_result"
209-
210-
211-func keyProposalAllowBroadcast (address,txId) = ((("proposal_allow_broadcast_" + toString(address)) + "_") + toBase58String(txId))
212-
213-
214-let configAddressOption = match getString(this, keyPowerConfigAddress()) {
80+func powerContractAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPowerContractAddress()) {
21581     case s: String => 
21682         addressFromString(s)
21783     case _: Unit => 
21884         unit
21985     case _ => 
22086         throw("Match error")
221-}
87+}, wrapErr("invalid power contract address"))
22288 
223-let votingResultAddressOption = match configAddressOption {
224-    case a: Address => 
225-        match getString(a, keyVotingResultAddress()) {
226-            case s: String => 
227-                addressFromString(s)
228-            case _: Unit => 
229-                unit
230-            case _ => 
231-                throw("Match error")
232-        }
89+
90+func keyPoolsFactoryAddress () = "%s__poolsFactoryAddress"
91+
92+
93+func getPoolsFactoryAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPoolsFactoryAddress()) {
94+    case s: String => 
95+        addressFromString(s)
23396     case _: Unit => 
23497         unit
23598     case _ => 
23699         throw("Match error")
237-}
100+}, wrapErr("invalid pools factory address"))
238101 
239-let votingResultAddressOrFail = valueOrErrorMessage(votingResultAddressOption, wrapErr("invalid voting result address"))
240102 
241-let lpAssetIdOption = match getString(this, keyLpAssetId()) {
103+func keyTreasuryAddress () = "%s__treasuryAddress"
104+
105+
106+func getTreasuryAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyTreasuryAddress()) {
242107     case s: String => 
243-        fromBase58String(s)
108+        addressFromString(s)
244109     case _: Unit => 
245110         unit
246111     case _ => 
247112         throw("Match error")
248-}
249-
250-let lpAssetIdOrFail = valueOrErrorMessage(lpAssetIdOption, wrapErr("invalid lpAssetId"))
251-
252-func onlyAddress (i,address) = if ((i.caller == address))
253-    then true
254-    else throwErr("permission denied")
113+}, wrapErr("invalid treasury address"))
255114 
256115 
257-func onlyThis (i) = onlyAddress(i, this)
116+func keyAssets () = "%s__assets"
258117 
259118 
260-func onlyCalculator (i) = onlyAddress(i, calculatorAddressOrFail)
119+func getAssetsStr (factoryAddress) = valueOrErrorMessage(getString(factoryAddress, keyAssets()), wrapErr("invalid assets"))
261120 
262121 
263-@Callable(i)
264-func stringEntry (key,val) = if (onlyCalculator(i))
265-    then $Tuple2([StringEntry(key, val)], key)
266-    else $Tuple2(nil, unit)
122+func keyLpAssetId () = "%s__lpAssetId"
267123 
268124 
269-
270-@Callable(i)
271-func integerEntry (key,val) = if (onlyCalculator(i))
272-    then $Tuple2([IntegerEntry(key, val)], key)
273-    else $Tuple2(nil, unit)
125+func getLpAssetId (factoryAddress) = fromBase58String(valueOrErrorMessage(getString(factoryAddress, keyLpAssetId()), wrapErr("invalid lp asset id")))
274126 
275127 
276-
277-@Callable(i)
278-func booleanEntry (key,val) = if (onlyCalculator(i))
279-    then $Tuple2([BooleanEntry(key, val)], key)
280-    else $Tuple2(nil, unit)
128+func getAssetInfoOrFail (assetId) = valueOrErrorMessage(assetInfo(assetId), wrapErr("invalid asset info"))
281129 
282130 
131+func getAssetsBalances (targetAddress,assetIdList) = {
132+    func map (acc,nextAssetIdStr) =     {
133+        let balance = if ((nextAssetIdStr == WAVES))
134+            then toX18(wavesBalance(targetAddress).available, wavesDecimals)
135+            else {
136+                let assetId = fromBase58String(nextAssetIdStr)
137+                let assetDecimals = getAssetInfoOrFail(assetId).decimals
138+                toX18(assetBalance(targetAddress, assetId), assetDecimals)
139+                }
140+        (acc :+ balance)
141+        }
283142 
284-@Callable(i)
285-func binaryEntry (key,val) = if (onlyCalculator(i))
286-    then $Tuple2([BinaryEntry(key, val)], key)
287-    else $Tuple2(nil, unit)
143+    let $l = assetIdList
144+    let $s = size($l)
145+    let $acc0 = nil
146+    func $f0_1 ($a,$i) =     if (($i >= $s))
147+        then $a
148+        else map($a, $l[$i])
149+
150+    func $f0_2 ($a,$i) =     if (($i >= $s))
151+        then $a
152+        else throw("List size exceeds 10")
153+
154+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
155+    }
288156 
289157 
290-
291-@Callable(i)
292-func deleteEntry (key) = if (onlyCalculator(i))
293-    then $Tuple2([DeleteEntry(key)], key)
294-    else $Tuple2(nil, unit)
295-
296-
297-
298-@Callable(i)
299-func reissue (assetId,amount,reissuable) = if (onlyCalculator(i))
300-    then $Tuple2([Reissue(assetId, amount, reissuable)], amount)
301-    else $Tuple2(nil, unit)
302-
303-
304-
305-@Callable(i)
306-func burn (assetId,amount) = if (onlyCalculator(i))
307-    then $Tuple2([Burn(assetId, amount)], amount)
308-    else $Tuple2(nil, unit)
309-
310-
311-
312-@Callable(i)
313-func transferAsset (recipientBytes,amount,assetId) = if (onlyCalculator(i))
314-    then $Tuple2([ScriptTransfer(Address(recipientBytes), amount, assetId)], amount)
315-    else $Tuple2(nil, unit)
316-
317-
318-
319-@Callable(i)
320-func transferAssets (recipientBytes,assetsList,amountsList) = if (onlyCalculator(i))
158+func getAssetsPrices (poolsFactoryAddress,assetIdList) = if ((chainId == chainIdW))
321159     then {
322-        func addNewTransfer (acc,nextAssetId) =         {
323-            let $t065416565 = acc
324-            let transfers = $t065416565._1
325-            let j = $t065416565._2
326-            let newTransfer = ScriptTransfer(Address(recipientBytes), amountsList[j], assetsList[j])
327-            let updatedTransfers = (transfers :+ newTransfer)
328-            $Tuple2(updatedTransfers, (j + 1))
160+        let wavesUsdtAddressStr = "3PKfrupEydU2nZAghVjZAfvCwMBkzuR1F52"
161+        let wavesUsdtPrice = parseBigIntValue({
162+            let @ = invoke(poolsFactoryAddress, "getPrice", [wavesUsdtAddressStr], nil)
163+            if ($isInstanceOf(@, "String"))
164+                then @
165+                else throw(($getType(@) + " couldn't be cast to String"))
166+            })
167+        let wavesXtnAddressStr = "3PPZWgFNRKHLvM51pwS934C8VZ7d2F4Z58g"
168+        let wavesXtnPrice = parseBigIntValue({
169+            let @ = invoke(poolsFactoryAddress, "getPrice", [wavesXtnAddressStr], nil)
170+            if ($isInstanceOf(@, "String"))
171+                then @
172+                else throw(($getType(@) + " couldn't be cast to String"))
173+            })
174+        let xtnUsdtPrice = fraction(wavesUsdtPrice, mult18, wavesXtnPrice)
175+        func map (acc,nextAssetId) =         {
176+            let price =             match nextAssetId {
177+                case _ => 
178+                    if (("2thsACuHmzDMuNezPM32wg9a3BwUzBWDeSKakgz3cw21" == $match0))
179+                        then {
180+                            let pwrWavesAddressStr = "3PDi7Qq8pLQYvtKyTfQuqqPUWyhoYbU957t"
181+                            let pwrWavesPrice = parseBigIntValue({
182+                                let @ = invoke(poolsFactoryAddress, "getPrice", [pwrWavesAddressStr], nil)
183+                                if ($isInstanceOf(@, "String"))
184+                                    then @
185+                                    else throw(($getType(@) + " couldn't be cast to String"))
186+                                })
187+                            fraction(pwrWavesPrice, wavesUsdtPrice, mult18)
188+                            }
189+                        else if (("Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on" == $match0))
190+                            then {
191+                                let wxWavesAddressStr = "3PFzaH2ghpwANHFgjeva83N1yxzErELx2eh"
192+                                let wxWavesPrice = parseBigIntValue({
193+                                    let @ = invoke(poolsFactoryAddress, "getPrice", [wxWavesAddressStr], nil)
194+                                    if ($isInstanceOf(@, "String"))
195+                                        then @
196+                                        else throw(($getType(@) + " couldn't be cast to String"))
197+                                    })
198+                                (wxWavesPrice * wavesUsdtPrice)
199+                                }
200+                            else if (("34N9YcEETLWn93qYQ64EsP1x89tSruJU44RrEMSXXEPJ" == $match0))
201+                                then {
202+                                    let usdtwxgXtnAddressStr = "3P8KMyAJCPWNcyedqrmymxaeWonvmkhGauz"
203+                                    let usdtwxgXtnPrice = parseBigIntValue({
204+                                        let @ = invoke(poolsFactoryAddress, "getPrice", [usdtwxgXtnAddressStr], nil)
205+                                        if ($isInstanceOf(@, "String"))
206+                                            then @
207+                                            else throw(($getType(@) + " couldn't be cast to String"))
208+                                        })
209+                                    fraction(usdtwxgXtnPrice, xtnUsdtPrice, mult18)
210+                                    }
211+                                else if (("6XtHjpXbs9RRJP2Sr9GUyVqzACcby9TkThHXnjVC5CDJ" == $match0))
212+                                    then {
213+                                        let wavesUsdcwxgAddressStr = "3P3g3eipfG2NZKKQE8DZXt2E9tRJqii9jcX"
214+                                        let usdcwxgXtnPrice = parseBigIntValue({
215+                                            let @ = invoke(poolsFactoryAddress, "getPrice", [wavesUsdcwxgAddressStr], nil)
216+                                            if ($isInstanceOf(@, "String"))
217+                                                then @
218+                                                else throw(($getType(@) + " couldn't be cast to String"))
219+                                            })
220+                                        fraction(wavesUsdtPrice, mult18, usdcwxgXtnPrice)
221+                                        }
222+                                    else if (("HZk1mbfuJpmxU1Fs4AX5MWLVYtctsNcg6e2C6VKqK8zk" == $match0))
223+                                        then {
224+                                            let ltcwxgXtnAddressStr = "3P94wvu5gA7VhjPgAB3twaeqdwHCwNK2vsn"
225+                                            let ltcwxgXtnPrice = parseBigIntValue({
226+                                                let @ = invoke(poolsFactoryAddress, "getPrice", [ltcwxgXtnAddressStr], nil)
227+                                                if ($isInstanceOf(@, "String"))
228+                                                    then @
229+                                                    else throw(($getType(@) + " couldn't be cast to String"))
230+                                                })
231+                                            fraction(ltcwxgXtnPrice, xtnUsdtPrice, mult18)
232+                                            }
233+                                        else if (("474jTeYx2r2Va35794tCScAXWJG9hU2HcgxzMowaZUnu" == $match0))
234+                                            then {
235+                                                let ethwxgXtnAddressStr = "3P3XGTN6s292g9iwYhs3TEqJqHiffQYojuE"
236+                                                let ethwxgXtnPrice = parseBigIntValue({
237+                                                    let @ = invoke(poolsFactoryAddress, "getPrice", [ethwxgXtnAddressStr], nil)
238+                                                    if ($isInstanceOf(@, "String"))
239+                                                        then @
240+                                                        else throw(($getType(@) + " couldn't be cast to String"))
241+                                                    })
242+                                                fraction(ethwxgXtnPrice, wavesUsdtPrice, mult18)
243+                                                }
244+                                            else if (("8LQW8f7P5d5PZM7GtZEBgaqRPGSzS3DfPuiXrURJ4AJS" == $match0))
245+                                                then {
246+                                                    let btcwxgXtnAddressStr = "3PCBWDTA6jrFswd7gQgaE3Xk7gLM5RKofvp"
247+                                                    let btcwxgXtnPrice = parseBigIntValue({
248+                                                        let @ = invoke(poolsFactoryAddress, "getPrice", [btcwxgXtnAddressStr], nil)
249+                                                        if ($isInstanceOf(@, "String"))
250+                                                            then @
251+                                                            else throw(($getType(@) + " couldn't be cast to String"))
252+                                                        })
253+                                                    fraction(btcwxgXtnPrice, wavesUsdtPrice, mult18)
254+                                                    }
255+                                                else throwErr("invalid asset id")
256+            }
257+            (acc :+ price)
329258             }
330259 
331-        let $t067916872 = {
332-            let $l = assetsList
260+        let $l = assetIdList
261+        let $s = size($l)
262+        let $acc0 = nil
263+        func $f0_1 ($a,$i) =         if (($i >= $s))
264+            then $a
265+            else map($a, $l[$i])
266+
267+        func $f0_2 ($a,$i) =         if (($i >= $s))
268+            then $a
269+            else throw("List size exceeds 10")
270+
271+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
272+        }
273+    else if ((chainId == chainIdT))
274+        then {
275+            func map (acc,nextAssetId) =             {
276+                let price =                 match nextAssetId {
277+                    case _ => 
278+                        if (("EMAMLxDnv3xiz8RXg8Btj33jcEw3wLczL3JKYYmuubpc" == $match0))
279+                            then {
280+                                let wxUsdtAddressStr = "3MrULQRLc52GWrJF1tMcAm4M78fPe57o9Kt"
281+                                let wxUsdtPrice = parseBigIntValue({
282+                                    let @ = invoke(poolsFactoryAddress, "getPrice", [wxUsdtAddressStr], nil)
283+                                    if ($isInstanceOf(@, "String"))
284+                                        then @
285+                                        else throw(($getType(@) + " couldn't be cast to String"))
286+                                    })
287+                                wxUsdtPrice
288+                                }
289+                            else if (("A7Ksh7fXyqm1KhKAiK3bAB2aiPSitQQF6v1pyu9SS3FR" == $match0))
290+                                then {
291+                                    let usdcUsdtAddressStr = "3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA"
292+                                    let usdcUsdtPrice = parseBigIntValue({
293+                                        let @ = invoke(poolsFactoryAddress, "getPrice", [usdcUsdtAddressStr], nil)
294+                                        if ($isInstanceOf(@, "String"))
295+                                            then @
296+                                            else throw(($getType(@) + " couldn't be cast to String"))
297+                                        })
298+                                    usdcUsdtPrice
299+                                    }
300+                                else if (("8Q6SE2ANebufw8JuPjJVRjZD6drD8ihjNjM8xaGUSfdR" == $match0))
301+                                    then {
302+                                        let price = 100000000
303+                                        price
304+                                        }
305+                                    else throwErr("invalid asset id")
306+                }
307+                (acc :+ price)
308+                }
309+
310+            let $l = assetIdList
333311             let $s = size($l)
334-            let $acc0 = $Tuple2(nil, 0)
312+            let $acc0 = nil
335313             func $f0_1 ($a,$i) =             if (($i >= $s))
336314                 then $a
337-                else addNewTransfer($a, $l[$i])
315+                else map($a, $l[$i])
338316 
339317             func $f0_2 ($a,$i) =             if (($i >= $s))
340318                 then $a
342320 
343321             $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
344322             }
345-        let assetsTransfers = $t067916872._1
346-        let _lastIndex = $t067916872._2
347-        $Tuple2(assetsTransfers, unit)
323+        else throwErr("invalid chain id")
324+
325+
326+func calcTreasuryValue (factoryAddress) = {
327+    let treasuryAddress = getTreasuryAddress(factoryAddress)
328+    let poolsFactoryAddress = getPoolsFactoryAddress(factoryAddress)
329+    let assetsStr = split(getAssetsStr(factoryAddress), SEP)
330+    let assetsBalances = getAssetsBalances(treasuryAddress, assetsStr)
331+    let assetsPrices = getAssetsPrices(poolsFactoryAddress, assetsStr)
332+    func reduce (acc,nextAssetIdStr) =     {
333+        let assetId = fromBase58String(nextAssetIdStr)
334+        let index = valueOrErrorMessage(indexOf(assetsStr, nextAssetIdStr), wrapErr("invalid asset id"))
335+        let balance = assetsBalances[index]
336+        let price = assetsPrices[index]
337+        let assetValue = fraction(balance, price, mult18)
338+        (acc + assetValue)
348339         }
349-    else $Tuple2(nil, unit)
340+
341+    let treasuryValue = {
342+        let $l = assetsStr
343+        let $s = size($l)
344+        let $acc0 = toBigInt(0)
345+        func $f0_1 ($a,$i) =         if (($i >= $s))
346+            then $a
347+            else reduce($a, $l[$i])
348+
349+        func $f0_2 ($a,$i) =         if (($i >= $s))
350+            then $a
351+            else throw("List size exceeds 10")
352+
353+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
354+        }
355+    treasuryValue
356+    }
357+
358+
359+@Callable(i)
360+func withdraw (args) = {
361+    let recipient = addressFromStringValue(args[0])
362+    let amount = parseIntValue(args[1])
363+    let result = invoke(i.caller, "transferWaves", [recipient.bytes, amount], nil)
364+    $Tuple2(nil, result)
365+    }
350366 
351367 
352368 
353369 @Callable(i)
354-func transferWaves (recipientBytes,amount) = if (onlyCalculator(i))
355-    then $Tuple2([ScriptTransfer(Address(recipientBytes), amount, unit)], amount)
356-    else $Tuple2(nil, unit)
370+func setIntParam (args) = {
371+    let key = args[0]
372+    let val = parseIntValue(args[1])
373+    let result = invoke(i.caller, "integerEntry", [key, val], nil)
374+    $Tuple2(nil, result)
375+    }
357376 
358377 
359378 
360379 @Callable(i)
361-func init (lpAssetIdStr,treasuryAddressStr,calculatorAddressStr,powerConfigAddressStr,powerContractAddress,poolsFactoryAddressStr,periodLength,treasuryValue,assets) = {
362-    let checkCaller = mustThis(i)
363-    if ((checkCaller == checkCaller))
364-        then $Tuple2([StringEntry(keyLpAssetId(), lpAssetIdStr), StringEntry(keyTreasuryAddress(), treasuryAddressStr), StringEntry(keyCalculatorAddress(), calculatorAddressStr), StringEntry(keyPowerConfigAddress(), powerConfigAddressStr), StringEntry(keyPowerContractAddress(), powerContractAddress), StringEntry(keyPoolsFactoryAddress(), poolsFactoryAddressStr), IntegerEntry(keyPeriodLength(), periodLength), IntegerEntry(keyTreasuryValueByPeriod(0), treasuryValue), IntegerEntry(keyCurrentPeriod(), 0), IntegerEntry(keyStartHeightByPeriod(0), height), StringEntry(keyAssets(), makeString(assets, SEP))], unit)
380+func swap (callerPublicKey,args) = {
381+    let factoryAddress = i.caller
382+    let userAddress = addressFromPublicKey(callerPublicKey)
383+    let payment = if ((size(i.payments) == 1))
384+        then i.payments[0]
385+        else throwErr("1 payment is required")
386+    let err = wrapErr("invalid payment asset id")
387+    let paymentAssetId = if ((valueOrErrorMessage(payment.assetId, err) == getLpAssetId(factoryAddress)))
388+        then value(payment.assetId)
389+        else throwErr(err)
390+    let pwrPrice = 100
391+    let pwrAmount = (payment.amount / pwrPrice)
392+    let assetsStr = split(getAssetsStr(factoryAddress), SEP)
393+    let pwrBalance = assetBalance(factoryAddress, getPowerAssetId(factoryAddress))
394+    if ((pwrBalance == pwrBalance))
395+        then {
396+            let treasuryAddress = getTreasuryAddress(factoryAddress)
397+            let assetsBalances = getAssetsBalances(treasuryAddress, assetsStr)
398+            func map (acc,nextAssetIdStr) =             {
399+                let assetId = fromBase58String(nextAssetIdStr)
400+                let index = valueOrErrorMessage(indexOf(assetsStr, nextAssetIdStr), wrapErr("invalid asset balance"))
401+                let assetDecimals = getAssetInfoOrFail(assetId).decimals
402+                let balance = fromX18(assetsBalances[index], assetDecimals)
403+                let amount = fraction(balance, pwrAmount, pwrBalance)
404+                if ((amount > 0))
405+                    then $Tuple2((acc._1 :+ assetId), (acc._2 :+ amount))
406+                    else acc
407+                }
408+
409+            let transfers = {
410+                let $l = assetsStr
411+                let $s = size($l)
412+                let $acc0 = $Tuple2(nil, nil)
413+                func $f0_1 ($a,$i) =                 if (($i >= $s))
414+                    then $a
415+                    else map($a, $l[$i])
416+
417+                func $f0_2 ($a,$i) =                 if (($i >= $s))
418+                    then $a
419+                    else throw("List size exceeds 6")
420+
421+                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
422+                }
423+            if ((transfers == transfers))
424+                then {
425+                    let additionalLockRounds = 0
426+                    let factoryActions = ([invoke(factoryAddress, "commitAfterStartWithLockRoundFor", [toString(powerContractAddress(factoryAddress)), toString(factoryAddress), toString(userAddress), additionalLockRounds, getPowerAssetId(factoryAddress), pwrAmount], nil)] ++ (if ((size(transfers._1) == 0))
427+                        then nil
428+                        else [invoke(factoryAddress, "transferAssets", [userAddress.bytes, transfers._1, transfers._2], nil)]))
429+                    $Tuple2([Burn(paymentAssetId, payment.amount)], factoryActions)
430+                    }
431+                else throw("Strict value is not equal to itself.")
432+            }
365433         else throw("Strict value is not equal to itself.")
366434     }
367435 
368436 
369437 
370438 @Callable(i)
371-func commitAfterStartWithLockRoundFor (contract,child,address,additionalLockRounds,paymentAssetId,paymentAmount) = $Tuple2(nil, invoke(addressFromStringValue(contract), "commitAfterStartWithLockRoundFor", [child, address, additionalLockRounds], [AttachedPayment(paymentAssetId, paymentAmount)]))
372-
373-
374-
375-@Callable(i)
376-func call (function,args) = {
377-    let result = reentrantInvoke(calculatorAddressOrFail, function, [i.callerPublicKey, args], i.payments)
378-    $Tuple2(nil, result)
439+func price (callerPublicKey,args) = {
440+    let factoryAddress = i.caller
441+    let poolsFactoryAddress = getPoolsFactoryAddress(factoryAddress)
442+    let currentPeriod = valueOrErrorMessage(getInteger(factoryAddress, keyCurrentPeriod()), wrapErr("invalid current period"))
443+    let startTreasuryValue = valueOrErrorMessage(getInteger(factoryAddress, keyTreasuryValueByPeriod(currentPeriod)), wrapErr(("invalid treasury value for period " + toString(currentPeriod))))
444+    let treasuryValue = fromX18(calcTreasuryValue(factoryAddress), usdtDecimals)
445+    let treasuryValueDiff = (treasuryValue - startTreasuryValue)
446+    let pwrPriceRaw = getAssetsPrices(poolsFactoryAddress, [toBase58String(getPowerAssetId(factoryAddress))])[0]
447+    let pwrPrice = if ((pwrPriceRaw > toBigInt(0)))
448+        then fromX18(pwrPriceRaw, usdtDecimals)
449+        else throwErr("invalid PWR price")
450+    let price = if ((0 > treasuryValueDiff))
451+        then (pwrPrice / 100)
452+        else ((fraction(treasuryValueDiff, 2, 10000) + pwrPrice) / 100)
453+    $Tuple2(nil, price)
379454     }
380455 
381456 
382457 
383458 @Callable(i)
384-func voteForTxId (txId) = {
385-    let callerAddressString = toBase58String(i.caller.bytes)
386-    let keyPrefix = keyAllowedTxIdVotePrefix(txId)
387-    let result = [StringEntry(keyAllowedTxId(), txId)]
388-    let allowedTxIdOption = getString(this, keyAllowedTxId())
389-    let err = [if ((size(fromBase58String(txId)) == TXID_BYTES_LENGTH))
390-        then true
391-        else throwErr((txId + " is not valid txId")), if (if ((allowedTxIdOption == unit))
392-        then true
393-        else (value(allowedTxIdOption) != txId))
394-        then true
395-        else throwErr((txId + " is already allowed"))]
396-    if ((err == err))
397-        then voteINTERNAL(callerAddressString, keyPrefix, QUORUM, result)
398-        else throw("Strict value is not equal to itself.")
459+func getTreasuryValue (callerPublicKey,args) = {
460+    let factoryAddress = i.caller
461+    let treasuryValue = calcTreasuryValue(factoryAddress)
462+    $Tuple2(nil, treasuryValue)
399463     }
400464 
401465 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let separator = "__"
55 
66 let chainId = take(drop(this.bytes, 1), 1)
77 
88 let chainIdT = base58'2T'
99 
1010 let chainIdW = base58'2W'
1111 
1212 func mustAddress (i,address) = if ((i.caller == address))
1313     then true
1414     else throw("permission denied")
1515 
1616 
1717 func mustThis (i) = mustAddress(i, this)
1818 
1919 
2020 let SEP = "__"
2121 
2222 let WAVES = "WAVES"
2323 
24-let contractFilename = "wxdao_factory.ride"
24+let contractFilename = "wxdao_calculator.ride"
25+
26+let mult8 = 100000000
27+
28+let mult18 = toBigInt(1000000000000000000)
29+
30+let wavesDecimals = 8
31+
32+let usdtDecimals = 6
33+
34+func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), mult18, toBigInt(origScaleMult))
35+
36+
37+func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), mult18))
38+
2539 
2640 func wrapErr (s) = ((contractFilename + ": ") + s)
2741 
2842 
2943 func throwErr (s) = throw(wrapErr(s))
30-
31-
32-func stringToAssetId (s) = if ((s == WAVES))
33-    then unit
34-    else fromBase58String(s)
35-
36-
37-let ADMIN_LIST_SIZE = 5
38-
39-let QUORUM = 3
40-
41-let TXID_BYTES_LENGTH = 32
42-
43-func keyAllowedTxIdVotePrefix (txId) = makeString(["%s%s%s", "allowTxId", txId], SEP)
44-
45-
46-func keyFullAdminVote (prefix,adminAddress) = makeString([prefix, adminAddress], SEP)
47-
48-
49-func keyAdminAddressList () = makeString(["%s", "adminAddressList"], SEP)
50-
51-
52-func keyAllowedTxId () = makeString(["%s", "txId"], SEP)
53-
54-
55-func getAdminVote (prefix,admin) = {
56-    let voteKey = keyFullAdminVote(prefix, admin)
57-    valueOrElse(getInteger(voteKey), 0)
58-    }
59-
60-
61-func getAdminsList () = match getString(this, keyAdminAddressList()) {
62-    case s: String => 
63-        split(s, SEP)
64-    case _ => 
65-        nil
66-}
67-
68-
69-func isInAdminList (address) = containsElement(getAdminsList(), address)
70-
71-
72-func genVotesKeysHelper (a,adminAddress) = {
73-    let $t014801504 = a
74-    let result = $t014801504._1
75-    let prefix = $t014801504._2
76-    $Tuple2((result :+ keyFullAdminVote(prefix, adminAddress)), prefix)
77-    }
78-
79-
80-func genVotesKeys (keyPrefix) = {
81-    let adminList = keyAdminAddressList()
82-    let $t016511735 = {
83-        let $l = getAdminsList()
84-        let $s = size($l)
85-        let $acc0 = $Tuple2(nil, keyPrefix)
86-        func $f0_1 ($a,$i) =         if (($i >= $s))
87-            then $a
88-            else genVotesKeysHelper($a, $l[$i])
89-
90-        func $f0_2 ($a,$i) =         if (($i >= $s))
91-            then $a
92-            else throw("List size exceeds 5")
93-
94-        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
95-        }
96-    let result = $t016511735._1
97-    let prefix = $t016511735._2
98-    result
99-    }
100-
101-
102-func countVotesHelper (result,voteKey) = (result + valueOrElse(getInteger(voteKey), 0))
103-
104-
105-func countVotes (prefix) = {
106-    let votes = genVotesKeys(prefix)
107-    let $l = votes
108-    let $s = size($l)
109-    let $acc0 = 0
110-    func $f0_1 ($a,$i) =     if (($i >= $s))
111-        then $a
112-        else countVotesHelper($a, $l[$i])
113-
114-    func $f0_2 ($a,$i) =     if (($i >= $s))
115-        then $a
116-        else throw("List size exceeds 5")
117-
118-    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
119-    }
120-
121-
122-func clearVotesHelper (result,key) = (result :+ DeleteEntry(key))
123-
124-
125-func getClearVoteEntries (prefix) = {
126-    let votes = genVotesKeys(prefix)
127-    let $l = votes
128-    let $s = size($l)
129-    let $acc0 = nil
130-    func $f0_1 ($a,$i) =     if (($i >= $s))
131-        then $a
132-        else clearVotesHelper($a, $l[$i])
133-
134-    func $f0_2 ($a,$i) =     if (($i >= $s))
135-        then $a
136-        else throw("List size exceeds 5")
137-
138-    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
139-    }
140-
141-
142-func voteINTERNAL (callerAddressString,keyPrefix,minVotes,voteResult) = {
143-    let voteKey = keyFullAdminVote(keyPrefix, callerAddressString)
144-    let adminCurrentVote = getAdminVote(keyPrefix, callerAddressString)
145-    let err = if (!(isInAdminList(callerAddressString)))
146-        then throwErr((("Address: " + callerAddressString) + " not in Admin list"))
147-        else if ((adminCurrentVote == 1))
148-            then throwErr((voteKey + " you already voted"))
149-            else unit
150-    if ((err == err))
151-        then {
152-            let votes = countVotes(keyPrefix)
153-            if (((votes + 1) >= minVotes))
154-                then {
155-                    let clearVoteEntries = getClearVoteEntries(keyPrefix)
156-                    (clearVoteEntries ++ voteResult)
157-                    }
158-                else [IntegerEntry(voteKey, 1)]
159-            }
160-        else throw("Strict value is not equal to itself.")
161-    }
162-
163-
164-func keyCalculatorAddress () = "%s__calculatorAddress"
165-
166-
167-func keyPoolsFactoryAddress () = "%s__poolsFactoryAddress"
168-
169-
170-func keyTreasuryAddress () = "%s__treasuryAddress"
171-
172-
173-func keyLpAssetId () = "%s__lpAssetId"
17444 
17545 
17646 func keyCurrentPeriod () = makeString(["%s", "currentPeriod"], SEP)
17747 
17848 
17949 func keyStartHeightByPeriod (period) = makeString(["%s%d", "startHeight", toString(period)], SEP)
18050 
18151 
18252 func keyPeriodLength () = makeString(["%s", "periodLength"], SEP)
18353 
18454 
18555 func keyTreasuryValueByPeriod (period) = makeString(["%s%d", "treasuryValue", toString(period)], SEP)
18656 
18757 
188-let calculatorAddressOption = match getString(this, keyCalculatorAddress()) {
58+func keyPowerConfigAddress () = "%s__powerConfigAddress"
59+
60+
61+func powerConfigAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPowerConfigAddress()) {
18962     case s: String => 
19063         addressFromString(s)
19164     case _: Unit => 
19265         unit
19366     case _ => 
19467         throw("Match error")
195-}
68+}, wrapErr("invalid power config address"))
19669 
197-let calculatorAddressOrFail = valueOrErrorMessage(calculatorAddressOption, wrapErr("invalid calculator address"))
19870 
199-func keyPowerConfigAddress () = "%s__powerConfigAddress"
71+func keyPowerAssetId () = "powerAssetId"
72+
73+
74+func getPowerAssetId (factoryAddress) = fromBase58String(valueOrErrorMessage(getString(powerConfigAddress(factoryAddress), keyPowerAssetId()), wrapErr("invalid power asset id")))
20075 
20176 
20277 func keyPowerContractAddress () = "%s__powerContractAddress"
20378 
20479 
205-func keyAssets () = "%s__assets"
206-
207-
208-func keyVotingResultAddress () = "contract_voting_result"
209-
210-
211-func keyProposalAllowBroadcast (address,txId) = ((("proposal_allow_broadcast_" + toString(address)) + "_") + toBase58String(txId))
212-
213-
214-let configAddressOption = match getString(this, keyPowerConfigAddress()) {
80+func powerContractAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPowerContractAddress()) {
21581     case s: String => 
21682         addressFromString(s)
21783     case _: Unit => 
21884         unit
21985     case _ => 
22086         throw("Match error")
221-}
87+}, wrapErr("invalid power contract address"))
22288 
223-let votingResultAddressOption = match configAddressOption {
224-    case a: Address => 
225-        match getString(a, keyVotingResultAddress()) {
226-            case s: String => 
227-                addressFromString(s)
228-            case _: Unit => 
229-                unit
230-            case _ => 
231-                throw("Match error")
232-        }
89+
90+func keyPoolsFactoryAddress () = "%s__poolsFactoryAddress"
91+
92+
93+func getPoolsFactoryAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPoolsFactoryAddress()) {
94+    case s: String => 
95+        addressFromString(s)
23396     case _: Unit => 
23497         unit
23598     case _ => 
23699         throw("Match error")
237-}
100+}, wrapErr("invalid pools factory address"))
238101 
239-let votingResultAddressOrFail = valueOrErrorMessage(votingResultAddressOption, wrapErr("invalid voting result address"))
240102 
241-let lpAssetIdOption = match getString(this, keyLpAssetId()) {
103+func keyTreasuryAddress () = "%s__treasuryAddress"
104+
105+
106+func getTreasuryAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyTreasuryAddress()) {
242107     case s: String => 
243-        fromBase58String(s)
108+        addressFromString(s)
244109     case _: Unit => 
245110         unit
246111     case _ => 
247112         throw("Match error")
248-}
249-
250-let lpAssetIdOrFail = valueOrErrorMessage(lpAssetIdOption, wrapErr("invalid lpAssetId"))
251-
252-func onlyAddress (i,address) = if ((i.caller == address))
253-    then true
254-    else throwErr("permission denied")
113+}, wrapErr("invalid treasury address"))
255114 
256115 
257-func onlyThis (i) = onlyAddress(i, this)
116+func keyAssets () = "%s__assets"
258117 
259118 
260-func onlyCalculator (i) = onlyAddress(i, calculatorAddressOrFail)
119+func getAssetsStr (factoryAddress) = valueOrErrorMessage(getString(factoryAddress, keyAssets()), wrapErr("invalid assets"))
261120 
262121 
263-@Callable(i)
264-func stringEntry (key,val) = if (onlyCalculator(i))
265-    then $Tuple2([StringEntry(key, val)], key)
266-    else $Tuple2(nil, unit)
122+func keyLpAssetId () = "%s__lpAssetId"
267123 
268124 
269-
270-@Callable(i)
271-func integerEntry (key,val) = if (onlyCalculator(i))
272-    then $Tuple2([IntegerEntry(key, val)], key)
273-    else $Tuple2(nil, unit)
125+func getLpAssetId (factoryAddress) = fromBase58String(valueOrErrorMessage(getString(factoryAddress, keyLpAssetId()), wrapErr("invalid lp asset id")))
274126 
275127 
276-
277-@Callable(i)
278-func booleanEntry (key,val) = if (onlyCalculator(i))
279-    then $Tuple2([BooleanEntry(key, val)], key)
280-    else $Tuple2(nil, unit)
128+func getAssetInfoOrFail (assetId) = valueOrErrorMessage(assetInfo(assetId), wrapErr("invalid asset info"))
281129 
282130 
131+func getAssetsBalances (targetAddress,assetIdList) = {
132+    func map (acc,nextAssetIdStr) =     {
133+        let balance = if ((nextAssetIdStr == WAVES))
134+            then toX18(wavesBalance(targetAddress).available, wavesDecimals)
135+            else {
136+                let assetId = fromBase58String(nextAssetIdStr)
137+                let assetDecimals = getAssetInfoOrFail(assetId).decimals
138+                toX18(assetBalance(targetAddress, assetId), assetDecimals)
139+                }
140+        (acc :+ balance)
141+        }
283142 
284-@Callable(i)
285-func binaryEntry (key,val) = if (onlyCalculator(i))
286-    then $Tuple2([BinaryEntry(key, val)], key)
287-    else $Tuple2(nil, unit)
143+    let $l = assetIdList
144+    let $s = size($l)
145+    let $acc0 = nil
146+    func $f0_1 ($a,$i) =     if (($i >= $s))
147+        then $a
148+        else map($a, $l[$i])
149+
150+    func $f0_2 ($a,$i) =     if (($i >= $s))
151+        then $a
152+        else throw("List size exceeds 10")
153+
154+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
155+    }
288156 
289157 
290-
291-@Callable(i)
292-func deleteEntry (key) = if (onlyCalculator(i))
293-    then $Tuple2([DeleteEntry(key)], key)
294-    else $Tuple2(nil, unit)
295-
296-
297-
298-@Callable(i)
299-func reissue (assetId,amount,reissuable) = if (onlyCalculator(i))
300-    then $Tuple2([Reissue(assetId, amount, reissuable)], amount)
301-    else $Tuple2(nil, unit)
302-
303-
304-
305-@Callable(i)
306-func burn (assetId,amount) = if (onlyCalculator(i))
307-    then $Tuple2([Burn(assetId, amount)], amount)
308-    else $Tuple2(nil, unit)
309-
310-
311-
312-@Callable(i)
313-func transferAsset (recipientBytes,amount,assetId) = if (onlyCalculator(i))
314-    then $Tuple2([ScriptTransfer(Address(recipientBytes), amount, assetId)], amount)
315-    else $Tuple2(nil, unit)
316-
317-
318-
319-@Callable(i)
320-func transferAssets (recipientBytes,assetsList,amountsList) = if (onlyCalculator(i))
158+func getAssetsPrices (poolsFactoryAddress,assetIdList) = if ((chainId == chainIdW))
321159     then {
322-        func addNewTransfer (acc,nextAssetId) =         {
323-            let $t065416565 = acc
324-            let transfers = $t065416565._1
325-            let j = $t065416565._2
326-            let newTransfer = ScriptTransfer(Address(recipientBytes), amountsList[j], assetsList[j])
327-            let updatedTransfers = (transfers :+ newTransfer)
328-            $Tuple2(updatedTransfers, (j + 1))
160+        let wavesUsdtAddressStr = "3PKfrupEydU2nZAghVjZAfvCwMBkzuR1F52"
161+        let wavesUsdtPrice = parseBigIntValue({
162+            let @ = invoke(poolsFactoryAddress, "getPrice", [wavesUsdtAddressStr], nil)
163+            if ($isInstanceOf(@, "String"))
164+                then @
165+                else throw(($getType(@) + " couldn't be cast to String"))
166+            })
167+        let wavesXtnAddressStr = "3PPZWgFNRKHLvM51pwS934C8VZ7d2F4Z58g"
168+        let wavesXtnPrice = parseBigIntValue({
169+            let @ = invoke(poolsFactoryAddress, "getPrice", [wavesXtnAddressStr], nil)
170+            if ($isInstanceOf(@, "String"))
171+                then @
172+                else throw(($getType(@) + " couldn't be cast to String"))
173+            })
174+        let xtnUsdtPrice = fraction(wavesUsdtPrice, mult18, wavesXtnPrice)
175+        func map (acc,nextAssetId) =         {
176+            let price =             match nextAssetId {
177+                case _ => 
178+                    if (("2thsACuHmzDMuNezPM32wg9a3BwUzBWDeSKakgz3cw21" == $match0))
179+                        then {
180+                            let pwrWavesAddressStr = "3PDi7Qq8pLQYvtKyTfQuqqPUWyhoYbU957t"
181+                            let pwrWavesPrice = parseBigIntValue({
182+                                let @ = invoke(poolsFactoryAddress, "getPrice", [pwrWavesAddressStr], nil)
183+                                if ($isInstanceOf(@, "String"))
184+                                    then @
185+                                    else throw(($getType(@) + " couldn't be cast to String"))
186+                                })
187+                            fraction(pwrWavesPrice, wavesUsdtPrice, mult18)
188+                            }
189+                        else if (("Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on" == $match0))
190+                            then {
191+                                let wxWavesAddressStr = "3PFzaH2ghpwANHFgjeva83N1yxzErELx2eh"
192+                                let wxWavesPrice = parseBigIntValue({
193+                                    let @ = invoke(poolsFactoryAddress, "getPrice", [wxWavesAddressStr], nil)
194+                                    if ($isInstanceOf(@, "String"))
195+                                        then @
196+                                        else throw(($getType(@) + " couldn't be cast to String"))
197+                                    })
198+                                (wxWavesPrice * wavesUsdtPrice)
199+                                }
200+                            else if (("34N9YcEETLWn93qYQ64EsP1x89tSruJU44RrEMSXXEPJ" == $match0))
201+                                then {
202+                                    let usdtwxgXtnAddressStr = "3P8KMyAJCPWNcyedqrmymxaeWonvmkhGauz"
203+                                    let usdtwxgXtnPrice = parseBigIntValue({
204+                                        let @ = invoke(poolsFactoryAddress, "getPrice", [usdtwxgXtnAddressStr], nil)
205+                                        if ($isInstanceOf(@, "String"))
206+                                            then @
207+                                            else throw(($getType(@) + " couldn't be cast to String"))
208+                                        })
209+                                    fraction(usdtwxgXtnPrice, xtnUsdtPrice, mult18)
210+                                    }
211+                                else if (("6XtHjpXbs9RRJP2Sr9GUyVqzACcby9TkThHXnjVC5CDJ" == $match0))
212+                                    then {
213+                                        let wavesUsdcwxgAddressStr = "3P3g3eipfG2NZKKQE8DZXt2E9tRJqii9jcX"
214+                                        let usdcwxgXtnPrice = parseBigIntValue({
215+                                            let @ = invoke(poolsFactoryAddress, "getPrice", [wavesUsdcwxgAddressStr], nil)
216+                                            if ($isInstanceOf(@, "String"))
217+                                                then @
218+                                                else throw(($getType(@) + " couldn't be cast to String"))
219+                                            })
220+                                        fraction(wavesUsdtPrice, mult18, usdcwxgXtnPrice)
221+                                        }
222+                                    else if (("HZk1mbfuJpmxU1Fs4AX5MWLVYtctsNcg6e2C6VKqK8zk" == $match0))
223+                                        then {
224+                                            let ltcwxgXtnAddressStr = "3P94wvu5gA7VhjPgAB3twaeqdwHCwNK2vsn"
225+                                            let ltcwxgXtnPrice = parseBigIntValue({
226+                                                let @ = invoke(poolsFactoryAddress, "getPrice", [ltcwxgXtnAddressStr], nil)
227+                                                if ($isInstanceOf(@, "String"))
228+                                                    then @
229+                                                    else throw(($getType(@) + " couldn't be cast to String"))
230+                                                })
231+                                            fraction(ltcwxgXtnPrice, xtnUsdtPrice, mult18)
232+                                            }
233+                                        else if (("474jTeYx2r2Va35794tCScAXWJG9hU2HcgxzMowaZUnu" == $match0))
234+                                            then {
235+                                                let ethwxgXtnAddressStr = "3P3XGTN6s292g9iwYhs3TEqJqHiffQYojuE"
236+                                                let ethwxgXtnPrice = parseBigIntValue({
237+                                                    let @ = invoke(poolsFactoryAddress, "getPrice", [ethwxgXtnAddressStr], nil)
238+                                                    if ($isInstanceOf(@, "String"))
239+                                                        then @
240+                                                        else throw(($getType(@) + " couldn't be cast to String"))
241+                                                    })
242+                                                fraction(ethwxgXtnPrice, wavesUsdtPrice, mult18)
243+                                                }
244+                                            else if (("8LQW8f7P5d5PZM7GtZEBgaqRPGSzS3DfPuiXrURJ4AJS" == $match0))
245+                                                then {
246+                                                    let btcwxgXtnAddressStr = "3PCBWDTA6jrFswd7gQgaE3Xk7gLM5RKofvp"
247+                                                    let btcwxgXtnPrice = parseBigIntValue({
248+                                                        let @ = invoke(poolsFactoryAddress, "getPrice", [btcwxgXtnAddressStr], nil)
249+                                                        if ($isInstanceOf(@, "String"))
250+                                                            then @
251+                                                            else throw(($getType(@) + " couldn't be cast to String"))
252+                                                        })
253+                                                    fraction(btcwxgXtnPrice, wavesUsdtPrice, mult18)
254+                                                    }
255+                                                else throwErr("invalid asset id")
256+            }
257+            (acc :+ price)
329258             }
330259 
331-        let $t067916872 = {
332-            let $l = assetsList
260+        let $l = assetIdList
261+        let $s = size($l)
262+        let $acc0 = nil
263+        func $f0_1 ($a,$i) =         if (($i >= $s))
264+            then $a
265+            else map($a, $l[$i])
266+
267+        func $f0_2 ($a,$i) =         if (($i >= $s))
268+            then $a
269+            else throw("List size exceeds 10")
270+
271+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
272+        }
273+    else if ((chainId == chainIdT))
274+        then {
275+            func map (acc,nextAssetId) =             {
276+                let price =                 match nextAssetId {
277+                    case _ => 
278+                        if (("EMAMLxDnv3xiz8RXg8Btj33jcEw3wLczL3JKYYmuubpc" == $match0))
279+                            then {
280+                                let wxUsdtAddressStr = "3MrULQRLc52GWrJF1tMcAm4M78fPe57o9Kt"
281+                                let wxUsdtPrice = parseBigIntValue({
282+                                    let @ = invoke(poolsFactoryAddress, "getPrice", [wxUsdtAddressStr], nil)
283+                                    if ($isInstanceOf(@, "String"))
284+                                        then @
285+                                        else throw(($getType(@) + " couldn't be cast to String"))
286+                                    })
287+                                wxUsdtPrice
288+                                }
289+                            else if (("A7Ksh7fXyqm1KhKAiK3bAB2aiPSitQQF6v1pyu9SS3FR" == $match0))
290+                                then {
291+                                    let usdcUsdtAddressStr = "3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA"
292+                                    let usdcUsdtPrice = parseBigIntValue({
293+                                        let @ = invoke(poolsFactoryAddress, "getPrice", [usdcUsdtAddressStr], nil)
294+                                        if ($isInstanceOf(@, "String"))
295+                                            then @
296+                                            else throw(($getType(@) + " couldn't be cast to String"))
297+                                        })
298+                                    usdcUsdtPrice
299+                                    }
300+                                else if (("8Q6SE2ANebufw8JuPjJVRjZD6drD8ihjNjM8xaGUSfdR" == $match0))
301+                                    then {
302+                                        let price = 100000000
303+                                        price
304+                                        }
305+                                    else throwErr("invalid asset id")
306+                }
307+                (acc :+ price)
308+                }
309+
310+            let $l = assetIdList
333311             let $s = size($l)
334-            let $acc0 = $Tuple2(nil, 0)
312+            let $acc0 = nil
335313             func $f0_1 ($a,$i) =             if (($i >= $s))
336314                 then $a
337-                else addNewTransfer($a, $l[$i])
315+                else map($a, $l[$i])
338316 
339317             func $f0_2 ($a,$i) =             if (($i >= $s))
340318                 then $a
341319                 else throw("List size exceeds 10")
342320 
343321             $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
344322             }
345-        let assetsTransfers = $t067916872._1
346-        let _lastIndex = $t067916872._2
347-        $Tuple2(assetsTransfers, unit)
323+        else throwErr("invalid chain id")
324+
325+
326+func calcTreasuryValue (factoryAddress) = {
327+    let treasuryAddress = getTreasuryAddress(factoryAddress)
328+    let poolsFactoryAddress = getPoolsFactoryAddress(factoryAddress)
329+    let assetsStr = split(getAssetsStr(factoryAddress), SEP)
330+    let assetsBalances = getAssetsBalances(treasuryAddress, assetsStr)
331+    let assetsPrices = getAssetsPrices(poolsFactoryAddress, assetsStr)
332+    func reduce (acc,nextAssetIdStr) =     {
333+        let assetId = fromBase58String(nextAssetIdStr)
334+        let index = valueOrErrorMessage(indexOf(assetsStr, nextAssetIdStr), wrapErr("invalid asset id"))
335+        let balance = assetsBalances[index]
336+        let price = assetsPrices[index]
337+        let assetValue = fraction(balance, price, mult18)
338+        (acc + assetValue)
348339         }
349-    else $Tuple2(nil, unit)
340+
341+    let treasuryValue = {
342+        let $l = assetsStr
343+        let $s = size($l)
344+        let $acc0 = toBigInt(0)
345+        func $f0_1 ($a,$i) =         if (($i >= $s))
346+            then $a
347+            else reduce($a, $l[$i])
348+
349+        func $f0_2 ($a,$i) =         if (($i >= $s))
350+            then $a
351+            else throw("List size exceeds 10")
352+
353+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
354+        }
355+    treasuryValue
356+    }
357+
358+
359+@Callable(i)
360+func withdraw (args) = {
361+    let recipient = addressFromStringValue(args[0])
362+    let amount = parseIntValue(args[1])
363+    let result = invoke(i.caller, "transferWaves", [recipient.bytes, amount], nil)
364+    $Tuple2(nil, result)
365+    }
350366 
351367 
352368 
353369 @Callable(i)
354-func transferWaves (recipientBytes,amount) = if (onlyCalculator(i))
355-    then $Tuple2([ScriptTransfer(Address(recipientBytes), amount, unit)], amount)
356-    else $Tuple2(nil, unit)
370+func setIntParam (args) = {
371+    let key = args[0]
372+    let val = parseIntValue(args[1])
373+    let result = invoke(i.caller, "integerEntry", [key, val], nil)
374+    $Tuple2(nil, result)
375+    }
357376 
358377 
359378 
360379 @Callable(i)
361-func init (lpAssetIdStr,treasuryAddressStr,calculatorAddressStr,powerConfigAddressStr,powerContractAddress,poolsFactoryAddressStr,periodLength,treasuryValue,assets) = {
362-    let checkCaller = mustThis(i)
363-    if ((checkCaller == checkCaller))
364-        then $Tuple2([StringEntry(keyLpAssetId(), lpAssetIdStr), StringEntry(keyTreasuryAddress(), treasuryAddressStr), StringEntry(keyCalculatorAddress(), calculatorAddressStr), StringEntry(keyPowerConfigAddress(), powerConfigAddressStr), StringEntry(keyPowerContractAddress(), powerContractAddress), StringEntry(keyPoolsFactoryAddress(), poolsFactoryAddressStr), IntegerEntry(keyPeriodLength(), periodLength), IntegerEntry(keyTreasuryValueByPeriod(0), treasuryValue), IntegerEntry(keyCurrentPeriod(), 0), IntegerEntry(keyStartHeightByPeriod(0), height), StringEntry(keyAssets(), makeString(assets, SEP))], unit)
380+func swap (callerPublicKey,args) = {
381+    let factoryAddress = i.caller
382+    let userAddress = addressFromPublicKey(callerPublicKey)
383+    let payment = if ((size(i.payments) == 1))
384+        then i.payments[0]
385+        else throwErr("1 payment is required")
386+    let err = wrapErr("invalid payment asset id")
387+    let paymentAssetId = if ((valueOrErrorMessage(payment.assetId, err) == getLpAssetId(factoryAddress)))
388+        then value(payment.assetId)
389+        else throwErr(err)
390+    let pwrPrice = 100
391+    let pwrAmount = (payment.amount / pwrPrice)
392+    let assetsStr = split(getAssetsStr(factoryAddress), SEP)
393+    let pwrBalance = assetBalance(factoryAddress, getPowerAssetId(factoryAddress))
394+    if ((pwrBalance == pwrBalance))
395+        then {
396+            let treasuryAddress = getTreasuryAddress(factoryAddress)
397+            let assetsBalances = getAssetsBalances(treasuryAddress, assetsStr)
398+            func map (acc,nextAssetIdStr) =             {
399+                let assetId = fromBase58String(nextAssetIdStr)
400+                let index = valueOrErrorMessage(indexOf(assetsStr, nextAssetIdStr), wrapErr("invalid asset balance"))
401+                let assetDecimals = getAssetInfoOrFail(assetId).decimals
402+                let balance = fromX18(assetsBalances[index], assetDecimals)
403+                let amount = fraction(balance, pwrAmount, pwrBalance)
404+                if ((amount > 0))
405+                    then $Tuple2((acc._1 :+ assetId), (acc._2 :+ amount))
406+                    else acc
407+                }
408+
409+            let transfers = {
410+                let $l = assetsStr
411+                let $s = size($l)
412+                let $acc0 = $Tuple2(nil, nil)
413+                func $f0_1 ($a,$i) =                 if (($i >= $s))
414+                    then $a
415+                    else map($a, $l[$i])
416+
417+                func $f0_2 ($a,$i) =                 if (($i >= $s))
418+                    then $a
419+                    else throw("List size exceeds 6")
420+
421+                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
422+                }
423+            if ((transfers == transfers))
424+                then {
425+                    let additionalLockRounds = 0
426+                    let factoryActions = ([invoke(factoryAddress, "commitAfterStartWithLockRoundFor", [toString(powerContractAddress(factoryAddress)), toString(factoryAddress), toString(userAddress), additionalLockRounds, getPowerAssetId(factoryAddress), pwrAmount], nil)] ++ (if ((size(transfers._1) == 0))
427+                        then nil
428+                        else [invoke(factoryAddress, "transferAssets", [userAddress.bytes, transfers._1, transfers._2], nil)]))
429+                    $Tuple2([Burn(paymentAssetId, payment.amount)], factoryActions)
430+                    }
431+                else throw("Strict value is not equal to itself.")
432+            }
365433         else throw("Strict value is not equal to itself.")
366434     }
367435 
368436 
369437 
370438 @Callable(i)
371-func commitAfterStartWithLockRoundFor (contract,child,address,additionalLockRounds,paymentAssetId,paymentAmount) = $Tuple2(nil, invoke(addressFromStringValue(contract), "commitAfterStartWithLockRoundFor", [child, address, additionalLockRounds], [AttachedPayment(paymentAssetId, paymentAmount)]))
372-
373-
374-
375-@Callable(i)
376-func call (function,args) = {
377-    let result = reentrantInvoke(calculatorAddressOrFail, function, [i.callerPublicKey, args], i.payments)
378-    $Tuple2(nil, result)
439+func price (callerPublicKey,args) = {
440+    let factoryAddress = i.caller
441+    let poolsFactoryAddress = getPoolsFactoryAddress(factoryAddress)
442+    let currentPeriod = valueOrErrorMessage(getInteger(factoryAddress, keyCurrentPeriod()), wrapErr("invalid current period"))
443+    let startTreasuryValue = valueOrErrorMessage(getInteger(factoryAddress, keyTreasuryValueByPeriod(currentPeriod)), wrapErr(("invalid treasury value for period " + toString(currentPeriod))))
444+    let treasuryValue = fromX18(calcTreasuryValue(factoryAddress), usdtDecimals)
445+    let treasuryValueDiff = (treasuryValue - startTreasuryValue)
446+    let pwrPriceRaw = getAssetsPrices(poolsFactoryAddress, [toBase58String(getPowerAssetId(factoryAddress))])[0]
447+    let pwrPrice = if ((pwrPriceRaw > toBigInt(0)))
448+        then fromX18(pwrPriceRaw, usdtDecimals)
449+        else throwErr("invalid PWR price")
450+    let price = if ((0 > treasuryValueDiff))
451+        then (pwrPrice / 100)
452+        else ((fraction(treasuryValueDiff, 2, 10000) + pwrPrice) / 100)
453+    $Tuple2(nil, price)
379454     }
380455 
381456 
382457 
383458 @Callable(i)
384-func voteForTxId (txId) = {
385-    let callerAddressString = toBase58String(i.caller.bytes)
386-    let keyPrefix = keyAllowedTxIdVotePrefix(txId)
387-    let result = [StringEntry(keyAllowedTxId(), txId)]
388-    let allowedTxIdOption = getString(this, keyAllowedTxId())
389-    let err = [if ((size(fromBase58String(txId)) == TXID_BYTES_LENGTH))
390-        then true
391-        else throwErr((txId + " is not valid txId")), if (if ((allowedTxIdOption == unit))
392-        then true
393-        else (value(allowedTxIdOption) != txId))
394-        then true
395-        else throwErr((txId + " is already allowed"))]
396-    if ((err == err))
397-        then voteINTERNAL(callerAddressString, keyPrefix, QUORUM, result)
398-        else throw("Strict value is not equal to itself.")
459+func getTreasuryValue (callerPublicKey,args) = {
460+    let factoryAddress = i.caller
461+    let treasuryValue = calcTreasuryValue(factoryAddress)
462+    $Tuple2(nil, treasuryValue)
399463     }
400464 
401465 
github/deemru/w8io/3ef1775 
62.03 ms ◑