tx · FcGnZMLzf85ueyh6gMKVYNLiyzFY9kAKdDKEauwSnoWc

3P3NVrhiyHBc4oUWNhtZRnJA5uLX9n39TK9:  -0.01000000 Waves

2022.07.05 18:50 [3192163] smart account 3P3NVrhiyHBc4oUWNhtZRnJA5uLX9n39TK9 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FcGnZMLzf85ueyh6gMKVYNLiyzFY9kAKdDKEauwSnoWc",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1657036132756,
    "version": 1,
    "sender": "3P3NVrhiyHBc4oUWNhtZRnJA5uLX9n39TK9",
    "senderPublicKey": "GeY4VJBhADH72vNVpDy6WUGW2rM2e2TjfnK8d4Kxzz59",
    "proofs": [
        "45ZDcNdVLrYhFfgjBffWymniKzKP4ZkJqbwrLYZPurQx4RMQNNqHUF6c3ZHQesQzD4Pcbox47mTEmDgS1BZ5YMYK"
    ],
    "script": "base64:BgIiCAISAwoBCBIDCgEIEgMKAQgSAwoBCBIDCgEIEgUKAwgBBBkBEHdyaXRlQ29uc3RTdHJpbmcCA2tleQV2YWx1ZQMJAQEhAQkBCWlzRGVmaW5lZAEJAJ0IAgUEdGhpcwUDa2V5CQELU3RyaW5nRW50cnkCBQNrZXkFBXZhbHVlCQACAQkArAICAhVhbHJlYWR5IGluaXRpYWxpemVkOiAFA2tleQEFYXNJbnQBBXZhbHVlBAckbWF0Y2gwBQV2YWx1ZQMJAAECBQckbWF0Y2gwAgNJbnQEA2ludAUHJG1hdGNoMAUDaW50CQACAQIEbTM6MQEGYXNJbnQyAQV2YWx1ZQQHJG1hdGNoMAUFdmFsdWUDCQABAgUHJG1hdGNoMAIKKEludCwgSW50KQQBeAUHJG1hdGNoMAUBeAQBdAUHJG1hdGNoMAkAAgECGndyb25nIHR5cGUsIGV4cGVjdGVkOiBJbnQyAAtjb25maWdTdG9yZQIGY29uZmlnAA1jb25maWdBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzBQtjb25maWdTdG9yZQAGbG9ja2VyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFDWNvbmZpZ0FkZHJlc3MCCWxwX2xvY2tlcgIebm8gbHBfbG9ja2VyIGFkZHJlc3MgaW4gY29uZmlnAh9iYWQgbHBfbG9ja2VyIGFkZHJlc3MgaW4gY29uZmlnAAtyZXNlcnZlc1N0cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFDWNvbmZpZ0FkZHJlc3MCE3Jld2FyZGFibGVfcmVzZXJ2ZXMCIW5vIHJld2FyZGFibGVfcmVzZXJ2ZXMgcmVnaXN0ZXJlZAAIcmVzZXJ2ZXMJALwJAgULcmVzZXJ2ZXNTdHICAXwAA21WRAQHJG1hdGNoMAkAnQgCBQ1jb25maWdBZGRyZXNzAhF2aXJlc19kaXN0cmlidXRvcgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAWQFByRtYXRjaDAJARFAZXh0ck5hdGl2ZSgxMDYyKQEFAWQFBHVuaXQAAlZECQETdmFsdWVPckVycm9yTWVzc2FnZQIFA21WRAIIbm8gZGlzdHIAAmRDCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFDWNvbmZpZ0FkZHJlc3MCEmRpdmlkZW5kc19jb250cmFjdAIVbm8gZGl2aWRlbmRzX2NvbnRyYWN0AgdiYWQgZGl2AAt2aXJlc01pbnRlcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ1jb25maWdBZGRyZXNzAgx2aXJlc19taW50ZXICFG1haW46IG5vIHZpcmVzTWludGVyAgpiYWQgbWludGVyABFtYXliZVZpcmVzQXNzZXRJZAkAnQgCBQt2aXJlc01pbnRlcgIHYXNzZXRJZAAMdmlyZXNBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJANkEAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBRFtYXliZVZpcmVzQXNzZXRJZAILbm8gdmlyZXMgaWQCEGludmFsaWQgdmlyZXMgaWQBCXJlc2VydmVCeQIFc3RvcmUFdmFsdWUKAQRmb2xkAgFhAXIEByRtYXRjaDAFAWEDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQFZm91bmQFByRtYXRjaDAFBWZvdW5kBANyc3IJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBBQFyAg9yc3IgYmFkIGFkZHJlc3MDCQAAAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFA3JzcgUFc3RvcmUJAKwCAgILcnNyIGhhcyBubyAFBXN0b3JlBQV2YWx1ZQUDcnNyBQR1bml0BAckbWF0Y2gwCgACJGwFCHJlc2VydmVzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUEdW5pdAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEZm9sZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEBWZvdW5kBQckbWF0Y2gwBQVmb3VuZAkAAgEJAKwCAgIIdW5rbm93biAFBXN0b3JlAQN2bFIBAXIDCQEIY29udGFpbnMCBQtyZXNlcnZlc1N0cgUBcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEFAXICDW1haW46IGJhZCByc3IJAAIBCQCsAgICDHVua25vd24gcnNyOgUBcgAObWF5YmVQcm90ZWN0ZWQEByRtYXRjaDAJAJ0IAgUNY29uZmlnQWRkcmVzcwIRcHJvdGVjdGVkX3Jlc2VydmUDCQABAgUHJG1hdGNoMAIGU3RyaW5nBANwZHMFByRtYXRjaDAJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBBQNwZHMCDWJhZCBwcm90ZWN0ZWQFBHVuaXQAEHByb3RlY3RlZFJlc2VydmUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgUObWF5YmVQcm90ZWN0ZWQCEG5vIHByb3RlY3RlZCByc3IBEWVuc3VyZU5vUHJvdGVjdGVkAQR1c2VyBANoYXMEByRtYXRjaDAFDm1heWJlUHJvdGVjdGVkAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAnBhBQckbWF0Y2gwCQELdmFsdWVPckVsc2UCCQCbCAIFAnBhCQCsAgICFXByb3RlY3RlZF9jb2xsYXRlcmFsXwUEdXNlcgcHAwUDaGFzCQACAQIKZGlzYWxsb3dlZAUEdW5pdAAFYVRJZFMCCGFUb2tlbklkAQxsb2NrT3JQYXlvdXQDCXJlY2lwaWVudANhbXQEbG9jawMJAQEhAQUEbG9jawkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQlyZWNpcGllbnQFA2FtdAUMdmlyZXNBc3NldElkBQNuaWwEBmRvTG9jawkA/AcEBQJkQwIHbG9ja0ZvcgkAzAgCCQClCAEFCXJlY2lwaWVudAkAzAgCAAEFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUMdmlyZXNBc3NldElkBQNhbXQFA25pbAMJAAACBQZkb0xvY2sFBmRvTG9jawUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJzUgEDcnNyBAckbWF0Y2gwBQNtVkQDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAkA/AcEBQFhAgpzeW5jSGVpZ2h0CQDMCAIFA3JzcgUDbmlsBQNuaWwFBHVuaXQBAnVTBQNyc3IGYWN0aW9uBHVzZXIKdXNlckNoYW5nZQxzdHJlYW1DaGFuZ2UEByRtYXRjaDAFA21WRAMJAAECBQckbWF0Y2gwAgdBZGRyZXNzBAFhBQckbWF0Y2gwCQD8BwQFAWECCG9uQWN0aW9uCQDMCAIFA3JzcgkAzAgCBQZhY3Rpb24JAMwIAgUEdXNlcgkAzAgCBQp1c2VyQ2hhbmdlCQDMCAIFDHN0cmVhbUNoYW5nZQUDbmlsBQNuaWwFBHVuaXQAB2xpbWl0ZXIEByRtYXRjaDAJAJ0IAgUNY29uZmlnQWRkcmVzcwIHbGltaXRlcgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAWQFByRtYXRjaDAJARFAZXh0ck5hdGl2ZSgxMDYyKQEFAWQFBHVuaXQBC2Vuc3VyZUxpbWl0BAZhY3Rpb24DcnNyBHVzZXIGYW1vdW50BAckbWF0Y2gwBQdsaW1pdGVyAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWwFByRtYXRjaDAJAQVhc0ludAEJAPwHBAUBbAINdmFsaWRhdGVMaW1pdAkAzAgCBQZhY3Rpb24JAMwIAgkApQgBBQNyc3IJAMwIAgUEdXNlcgkAzAgCBQZhbW91bnQFA25pbAUDbmlsBgYBaQEKaW5pdGlhbGl6ZQECY2EJAMwIAgkBEHdyaXRlQ29uc3RTdHJpbmcCBQtjb25maWdTdG9yZQUCY2EFA25pbAFpARh3aXRoZHJhd1VubG9ja2VkTFBUb2tlbnMBCGFUb2tlbklkBAR1c2VyCQClCAEIBQFpBmNhbGxlcgQGY2hlY2tzCQEJcmVzZXJ2ZUJ5AgUFYVRJZFMFCGFUb2tlbklkAwkAAAIFBmNoZWNrcwUGY2hlY2tzBAFjCQD8BwQFBmxvY2tlcgIWY2xlYW5VcERpc3RyaWJ1dGlvbkZvcgkAzAgCBQR1c2VyCQDMCAIFCGFUb2tlbklkBQNuaWwFA25pbAMJAAACBQFjBQFjBAJ3ZAkBBWFzSW50AQkA/AcEBQZsb2NrZXICCHdpdGhkcmF3CQDMCAIFBHVzZXIJAMwIAgUIYVRva2VuSWQJAMwIAgUEdXNlcgUDbmlsBQNuaWwDCQAAAgUCd2QFAndkCQCUCgIFA25pbAUCd2QJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEdd2l0aGRyYXdTbGFzaGVkTG9ja2VkTFBUb2tlbnMBCGFUb2tlbklkBAR1c2VyCQClCAEIBQFpBmNhbGxlcgQGY2hlY2tzCQEJcmVzZXJ2ZUJ5AgUFYVRJZFMFCGFUb2tlbklkAwkAAAIFBmNoZWNrcwUGY2hlY2tzBAskdDA0Mzk4NDU0NQkBBmFzSW50MgEJAPwHBAUGbG9ja2VyAg93aXRoZHJhd1NsYXNoZWQJAMwIAgUEdXNlcgkAzAgCBQhhVG9rZW5JZAkAzAgCBQR1c2VyBQNuaWwFA25pbAMJAAACBQskdDA0Mzk4NDU0NQULJHQwNDM5ODQ1NDUEB3NsYXNoZWQIBQskdDA0Mzk4NDU0NQJfMgQCd2QIBQskdDA0Mzk4NDU0NQJfMQQIdHJlYXN1cnkJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ1jb25maWdBZGRyZXNzAgxkYW9fdHJlYXN1cnkCFm5vIHRyZWFzdXJ5IGNvbmZpZ3VyZWQJAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQh0cmVhc3VyeQUHc2xhc2hlZAkA2QQBBQhhVG9rZW5JZAUDbmlsBQJ3ZAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARZzdXBwbHlVbmxvY2tlZExQVG9rZW5zAQhhVG9rZW5JZAQEdXNlcgkApQgBCAUBaQZjYWxsZXIEA3JzcgkBCXJlc2VydmVCeQIFBWFUSWRTBQhhVG9rZW5JZAMJAAACBQNyc3IFA3JzcgQBYwkA/AcEBQZsb2NrZXICFmNsZWFuVXBEaXN0cmlidXRpb25Gb3IJAMwIAgUEdXNlcgkAzAgCBQhhVG9rZW5JZAUDbmlsBQNuaWwDCQAAAgUBYwUBYwQCd2QJAQVhc0ludAEJAPwHBAUGbG9ja2VyAgh3aXRoZHJhdwkAzAgCBQR1c2VyCQDMCAIFCGFUb2tlbklkCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQAAAgUCd2QFAndkBAZjaGVja3MJARFlbnN1cmVOb1Byb3RlY3RlZAEFBHVzZXIDCQAAAgUGY2hlY2tzBQZjaGVja3MEAnNoCQECc1IBCQClCAEFA3JzcgMJAAACBQJzaAUCc2gEDHJlcGxlbmlzaEFtdAkBBWFzSW50AQkA/AcEBQNyc3ICFnJlcGxlbmlzaFdpdGhBdG9rZW5Gb3IJAMwIAgUEdXNlcgUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFCGFUb2tlbklkBQJ3ZAUDbmlsAwkAAAIFDHJlcGxlbmlzaEFtdAUMcmVwbGVuaXNoQW10BANwUncJAQJ1UwUJAKUIAQUDcnNyAgdkZXBvc2l0BQR1c2VyBQxyZXBsZW5pc2hBbXQAAAMJAAACBQNwUncFA3BSdwkAlAoCBQNuaWwFAndkCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBFnJlZGVlbVVubG9ja2VkTFBUb2tlbnMBCGFUb2tlbklkBAR1c2VyCQClCAEIBQFpBmNhbGxlcgQDcnNyCQEJcmVzZXJ2ZUJ5AgUFYVRJZFMFCGFUb2tlbklkAwkAAAIFA3JzcgUDcnNyBAFjCQD8BwQFBmxvY2tlcgIWY2xlYW5VcERpc3RyaWJ1dGlvbkZvcgkAzAgCBQR1c2VyCQDMCAIFCGFUb2tlbklkBQNuaWwFA25pbAMJAAACBQFjBQFjBAJ3ZAkBBWFzSW50AQkA/AcEBQZsb2NrZXICCHdpdGhkcmF3CQDMCAIFBHVzZXIJAMwIAgUIYVRva2VuSWQJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAACBQJ3ZAUCd2QEAnNoCQECc1IBCQClCAEFA3JzcgMJAAACBQJzaAUCc2gEA2FtdAkBBWFzSW50AQkA/AcEBQNyc3ICEHJlZGVlbUF0b2tlbnNGb3IJAMwIAgUEdXNlcgUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFCGFUb2tlbklkBQJ3ZAUDbmlsAwkAAAIFA2FtdAUDYW10BAFlCQELZW5zdXJlTGltaXQEAgh3aXRoZHJhdwUDcnNyBQR1c2VyBQNhbXQDCQAAAgUBZQUBZQQDcFJ3CQECdVMFCQClCAEFA3JzcgIHZGVwb3NpdAUEdXNlcgAACQEBLQEFA2FtdAMJAAACBQNwUncFA3BSdwkAlAoCBQNuaWwFAndkCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDWNsYWltTHBSZXdhcmQDA3JzcgNhbXQEbG9jawQBdgkBA3ZsUgEFA3JzcgMJAAACBQF2BQF2BAhhVG9rZW5JZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFAXYFBWFUSWRTAhZubyBhVG9rZW5JZCBpbiByZXNlcnZlBAR1c2VyCQClCAEIBQFpBmNhbGxlcgQBYwkBBWFzSW50AQkA/AcEBQZsb2NrZXICEGNsYWltTHBSZXdhcmRGb3IJAMwIAgUEdXNlcgkAzAgCBQhhVG9rZW5JZAkAzAgCBQNhbXQFA25pbAUDbmlsAwkAAAIFAWMFAWMJAQxsb2NrT3JQYXlvdXQDCAUBaQZjYWxsZXIFAWMFBGxvY2sJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AMXPrxQ==",
    "chainId": 87,
    "height": 3192163,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GKMWzcsZDL5awfmDMA6ZgbQUirL8weiuvgTFHMnGQ2v2
Next: 9BFYqEW5dHfR9dGVg5x3NuvPdncZFBW51HBEYoxKmWDu

Diff: 
Old
New
Differences
1
-
{-# STDLIB_VERSION 5 #-}
1
+
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
func writeConstString (key,value) = if (!(isDefined(getString(this, key))))
10
10
 
    case int: Int => 
11
11
 
        int
12
12
 
    case _ => 
13
-
        throw("1")
13
+
        throw("m3:1")
14
+
}
15
+
16
+
17
+
func asInt2 (value) = match value {
18
+
    case x: (Int, Int) => 
19
+
        x
20
+
    case t => 
21
+
        throw("wrong type, expected: Int2")
14
22
 
}
15
23
 
16
24
 
22
30
 
23
31
 
let reservesStr = valueOrErrorMessage(getString(configAddress, "rewardable_reserves"), "no rewardable_reserves registered")
24
32
 
25
-
let reserves = split(reservesStr, "|")
33
+
let reserves = split_4C(reservesStr, "|")
26
34
 
27
35
 
let mVD = match getString(configAddress, "vires_distributor") {
28
36
 
    case d: String => 
61
69
 
62
70
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
63
71
 
            then $a
64
-
            else throw("List size exceeds 7")
72
+
            else throw("List size exceeds 20")
65
73
 
66
-
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7) {
74
+
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20) {
67
75
 
        case found: Address => 
68
76
 
            found
69
77
 
        case _ => 
160
168
 
                    if ((wd == wd))
161
169
 
                        then $Tuple2(nil, wd)
162
170
 
                        else throw("Strict value is not equal to itself.")
171
+
                    }
172
+
                else throw("Strict value is not equal to itself.")
173
+
            }
174
+
        else throw("Strict value is not equal to itself.")
175
+
    }
176
+
177
+
178
+
179
+
@Callable(i)
180
+
func withdrawSlashedLockedLPTokens (aTokenId) = {
181
+
    let user = toString(i.caller)
182
+
    let checks = reserveBy(aTIdS, aTokenId)
183
+
    if ((checks == checks))
184
+
        then {
185
+
            let $t043984545 = asInt2(invoke(locker, "withdrawSlashed", [user, aTokenId, user], nil))
186
+
            if (($t043984545 == $t043984545))
187
+
                then {
188
+
                    let slashed = $t043984545._2
189
+
                    let wd = $t043984545._1
190
+
                    let treasury = addressFromStringValue(valueOrErrorMessage(getString(configAddress, "dao_treasury"), "no treasury configured"))
191
+
                    $Tuple2([ScriptTransfer(treasury, slashed, fromBase58String(aTokenId))], wd)
163
192
 
                    }
164
193
 
                else throw("Strict value is not equal to itself.")
165
194
 
            }
Full: 
Old
New
Differences
1
-
{-# STDLIB_VERSION 5 #-}
1
+
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
func writeConstString (key,value) = if (!(isDefined(getString(this, key))))
5
5
 
    then StringEntry(key, value)
6
6
 
    else throw(("already initialized: " + key))
7
7
 
8
8
 
9
9
 
func asInt (value) = match value {
10
10
 
    case int: Int => 
11
11
 
        int
12
12
 
    case _ => 
13
-
        throw("1")
13
+
        throw("m3:1")
14
+
}
15
+
16
+
17
+
func asInt2 (value) = match value {
18
+
    case x: (Int, Int) => 
19
+
        x
20
+
    case t => 
21
+
        throw("wrong type, expected: Int2")
14
22
 
}
15
23
 
16
24
 
17
25
 
let configStore = "config"
18
26
 
19
27
 
let configAddress = addressFromStringValue(getStringValue(this, configStore))
20
28
 
21
29
 
let locker = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(configAddress, "lp_locker"), "no lp_locker address in config")), "bad lp_locker address in config")
22
30
 
23
31
 
let reservesStr = valueOrErrorMessage(getString(configAddress, "rewardable_reserves"), "no rewardable_reserves registered")
24
32
 
25
-
let reserves = split(reservesStr, "|")
33
+
let reserves = split_4C(reservesStr, "|")
26
34
 
27
35
 
let mVD = match getString(configAddress, "vires_distributor") {
28
36
 
    case d: String => 
29
37
 
        addressFromStringValue(d)
30
38
 
    case _ => 
31
39
 
        unit
32
40
 
}
33
41
 
34
42
 
let VD = valueOrErrorMessage(mVD, "no distr")
35
43
 
36
44
 
let dC = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(configAddress, "dividends_contract"), "no dividends_contract")), "bad div")
37
45
 
38
46
 
let viresMinter = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(configAddress, "vires_minter"), "main: no viresMinter")), "bad minter")
39
47
 
40
48
 
let maybeViresAssetId = getString(viresMinter, "assetId")
41
49
 
42
50
 
let viresAssetId = valueOrErrorMessage(fromBase58String(valueOrErrorMessage(maybeViresAssetId, "no vires id")), "invalid vires id")
43
51
 
44
52
 
func reserveBy (store,value) = {
45
53
 
    func fold (a,r) =         match a {
46
54
 
        case found: Address => 
47
55
 
            found
48
56
 
        case _ => 
49
57
 
            let rsr = valueOrErrorMessage(addressFromString(r), "rsr bad address")
50
58
 
            if ((valueOrErrorMessage(getString(rsr, store), ("rsr has no " + store)) == value))
51
59
 
                then rsr
52
60
 
                else unit
53
61
 
    }
54
62
 
55
63
 
    match         let $l = reserves
56
64
 
        let $s = size($l)
57
65
 
        let $acc0 = unit
58
66
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
59
67
 
            then $a
60
68
 
            else fold($a, $l[$i])
61
69
 
62
70
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
63
71
 
            then $a
64
-
            else throw("List size exceeds 7")
72
+
            else throw("List size exceeds 20")
65
73
 
66
-
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7) {
74
+
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20) {
67
75
 
        case found: Address => 
68
76
 
            found
69
77
 
        case _ => 
70
78
 
            throw(("unknown " + store))
71
79
 
    }
72
80
 
    }
73
81
 
74
82
 
75
83
 
func vlR (r) = if (contains(reservesStr, r))
76
84
 
    then valueOrErrorMessage(addressFromString(r), "main: bad rsr")
77
85
 
    else throw(("unknown rsr:" + r))
78
86
 
79
87
 
80
88
 
let maybeProtected = match getString(configAddress, "protected_reserve") {
81
89
 
    case pds: String => 
82
90
 
        valueOrErrorMessage(addressFromString(pds), "bad protected")
83
91
 
    case _ => 
84
92
 
        unit
85
93
 
}
86
94
 
87
95
 
let protectedReserve = valueOrErrorMessage(maybeProtected, "no protected rsr")
88
96
 
89
97
 
func ensureNoProtected (user) = {
90
98
 
    let has =     match maybeProtected {
91
99
 
        case pa: Address => 
92
100
 
            valueOrElse(getBoolean(pa, ("protected_collateral_" + user)), false)
93
101
 
        case _ => 
94
102
 
            false
95
103
 
    }
96
104
 
    if (has)
97
105
 
        then throw("disallowed")
98
106
 
        else unit
99
107
 
    }
100
108
 
101
109
 
102
110
 
let aTIdS = "aTokenId"
103
111
 
104
112
 
func lockOrPayout (recipient,amt,lock) = if (!(lock))
105
113
 
    then [ScriptTransfer(recipient, amt, viresAssetId)]
106
114
 
    else {
107
115
 
        let doLock = invoke(dC, "lockFor", [toString(recipient), 1], [AttachedPayment(viresAssetId, amt)])
108
116
 
        if ((doLock == doLock))
109
117
 
            then nil
110
118
 
            else throw("Strict value is not equal to itself.")
111
119
 
        }
112
120
 
113
121
 
114
122
 
func sR (rsr) = match mVD {
115
123
 
    case a: Address => 
116
124
 
        invoke(a, "syncHeight", [rsr], nil)
117
125
 
    case _ => 
118
126
 
        unit
119
127
 
}
120
128
 
121
129
 
122
130
 
func uS (rsr,action,user,userChange,streamChange) = match mVD {
123
131
 
    case a: Address => 
124
132
 
        invoke(a, "onAction", [rsr, action, user, userChange, streamChange], nil)
125
133
 
    case _ => 
126
134
 
        unit
127
135
 
}
128
136
 
129
137
 
130
138
 
let limiter = match getString(configAddress, "limiter") {
131
139
 
    case d: String => 
132
140
 
        addressFromStringValue(d)
133
141
 
    case _ => 
134
142
 
        unit
135
143
 
}
136
144
 
137
145
 
func ensureLimit (action,rsr,user,amount) = match limiter {
138
146
 
    case l: Address => 
139
147
 
        asInt(invoke(l, "validateLimit", [action, toString(rsr), user, amount], nil))
140
148
 
    case _ => 
141
149
 
        true
142
150
 
}
143
151
 
144
152
 
145
153
 
@Callable(i)
146
154
 
func initialize (ca) = [writeConstString(configStore, ca)]
147
155
 
148
156
 
149
157
 
150
158
 
@Callable(i)
151
159
 
func withdrawUnlockedLPTokens (aTokenId) = {
152
160
 
    let user = toString(i.caller)
153
161
 
    let checks = reserveBy(aTIdS, aTokenId)
154
162
 
    if ((checks == checks))
155
163
 
        then {
156
164
 
            let c = invoke(locker, "cleanUpDistributionFor", [user, aTokenId], nil)
157
165
 
            if ((c == c))
158
166
 
                then {
159
167
 
                    let wd = asInt(invoke(locker, "withdraw", [user, aTokenId, user], nil))
160
168
 
                    if ((wd == wd))
161
169
 
                        then $Tuple2(nil, wd)
162
170
 
                        else throw("Strict value is not equal to itself.")
171
+
                    }
172
+
                else throw("Strict value is not equal to itself.")
173
+
            }
174
+
        else throw("Strict value is not equal to itself.")
175
+
    }
176
+
177
+
178
+
179
+
@Callable(i)
180
+
func withdrawSlashedLockedLPTokens (aTokenId) = {
181
+
    let user = toString(i.caller)
182
+
    let checks = reserveBy(aTIdS, aTokenId)
183
+
    if ((checks == checks))
184
+
        then {
185
+
            let $t043984545 = asInt2(invoke(locker, "withdrawSlashed", [user, aTokenId, user], nil))
186
+
            if (($t043984545 == $t043984545))
187
+
                then {
188
+
                    let slashed = $t043984545._2
189
+
                    let wd = $t043984545._1
190
+
                    let treasury = addressFromStringValue(valueOrErrorMessage(getString(configAddress, "dao_treasury"), "no treasury configured"))
191
+
                    $Tuple2([ScriptTransfer(treasury, slashed, fromBase58String(aTokenId))], wd)
163
192
 
                    }
164
193
 
                else throw("Strict value is not equal to itself.")
165
194
 
            }
166
195
 
        else throw("Strict value is not equal to itself.")
167
196
 
    }
168
197
 
169
198
 
170
199
 
171
200
 
@Callable(i)
172
201
 
func supplyUnlockedLPTokens (aTokenId) = {
173
202
 
    let user = toString(i.caller)
174
203
 
    let rsr = reserveBy(aTIdS, aTokenId)
175
204
 
    if ((rsr == rsr))
176
205
 
        then {
177
206
 
            let c = invoke(locker, "cleanUpDistributionFor", [user, aTokenId], nil)
178
207
 
            if ((c == c))
179
208
 
                then {
180
209
 
                    let wd = asInt(invoke(locker, "withdraw", [user, aTokenId, toString(this)], nil))
181
210
 
                    if ((wd == wd))
182
211
 
                        then {
183
212
 
                            let checks = ensureNoProtected(user)
184
213
 
                            if ((checks == checks))
185
214
 
                                then {
186
215
 
                                    let sh = sR(toString(rsr))
187
216
 
                                    if ((sh == sh))
188
217
 
                                        then {
189
218
 
                                            let replenishAmt = asInt(invoke(rsr, "replenishWithAtokenFor", [user], [AttachedPayment(fromBase58String(aTokenId), wd)]))
190
219
 
                                            if ((replenishAmt == replenishAmt))
191
220
 
                                                then {
192
221
 
                                                    let pRw = uS(toString(rsr), "deposit", user, replenishAmt, 0)
193
222
 
                                                    if ((pRw == pRw))
194
223
 
                                                        then $Tuple2(nil, wd)
195
224
 
                                                        else throw("Strict value is not equal to itself.")
196
225
 
                                                    }
197
226
 
                                                else throw("Strict value is not equal to itself.")
198
227
 
                                            }
199
228
 
                                        else throw("Strict value is not equal to itself.")
200
229
 
                                    }
201
230
 
                                else throw("Strict value is not equal to itself.")
202
231
 
                            }
203
232
 
                        else throw("Strict value is not equal to itself.")
204
233
 
                    }
205
234
 
                else throw("Strict value is not equal to itself.")
206
235
 
            }
207
236
 
        else throw("Strict value is not equal to itself.")
208
237
 
    }
209
238
 
210
239
 
211
240
 
212
241
 
@Callable(i)
213
242
 
func redeemUnlockedLPTokens (aTokenId) = {
214
243
 
    let user = toString(i.caller)
215
244
 
    let rsr = reserveBy(aTIdS, aTokenId)
216
245
 
    if ((rsr == rsr))
217
246
 
        then {
218
247
 
            let c = invoke(locker, "cleanUpDistributionFor", [user, aTokenId], nil)
219
248
 
            if ((c == c))
220
249
 
                then {
221
250
 
                    let wd = asInt(invoke(locker, "withdraw", [user, aTokenId, toString(this)], nil))
222
251
 
                    if ((wd == wd))
223
252
 
                        then {
224
253
 
                            let sh = sR(toString(rsr))
225
254
 
                            if ((sh == sh))
226
255
 
                                then {
227
256
 
                                    let amt = asInt(invoke(rsr, "redeemAtokensFor", [user], [AttachedPayment(fromBase58String(aTokenId), wd)]))
228
257
 
                                    if ((amt == amt))
229
258
 
                                        then {
230
259
 
                                            let e = ensureLimit("withdraw", rsr, user, amt)
231
260
 
                                            if ((e == e))
232
261
 
                                                then {
233
262
 
                                                    let pRw = uS(toString(rsr), "deposit", user, 0, -(amt))
234
263
 
                                                    if ((pRw == pRw))
235
264
 
                                                        then $Tuple2(nil, wd)
236
265
 
                                                        else throw("Strict value is not equal to itself.")
237
266
 
                                                    }
238
267
 
                                                else throw("Strict value is not equal to itself.")
239
268
 
                                            }
240
269
 
                                        else throw("Strict value is not equal to itself.")
241
270
 
                                    }
242
271
 
                                else throw("Strict value is not equal to itself.")
243
272
 
                            }
244
273
 
                        else throw("Strict value is not equal to itself.")
245
274
 
                    }
246
275
 
                else throw("Strict value is not equal to itself.")
247
276
 
            }
248
277
 
        else throw("Strict value is not equal to itself.")
249
278
 
    }
250
279
 
251
280
 
252
281
 
253
282
 
@Callable(i)
254
283
 
func claimLpReward (rsr,amt,lock) = {
255
284
 
    let v = vlR(rsr)
256
285
 
    if ((v == v))
257
286
 
        then {
258
287
 
            let aTokenId = valueOrErrorMessage(getString(v, aTIdS), "no aTokenId in reserve")
259
288
 
            let user = toString(i.caller)
260
289
 
            let c = asInt(invoke(locker, "claimLpRewardFor", [user, aTokenId, amt], nil))
261
290
 
            if ((c == c))
262
291
 
                then lockOrPayout(i.caller, c, lock)
263
292
 
                else throw("Strict value is not equal to itself.")
264
293
 
            }
265
294
 
        else throw("Strict value is not equal to itself.")
266
295
 
    }
267
296
 
268
297
 

github/deemru/w8io/3ef1775 
48.96 ms ◑