w8 · tx · 9BF···WDu

tx · 9BFYqEW5dHfR9dGVg5x3NuvPdncZFBW51HBEYoxKmWDu

3P3NVrhiyHBc4oUWNhtZRnJA5uLX9n39TK9:  -0.00700000 Waves

2022.08.26 15:24 [3266910] smart account 3P3NVrhiyHBc4oUWNhtZRnJA5uLX9n39TK9 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9BFYqEW5dHfR9dGVg5x3NuvPdncZFBW51HBEYoxKmWDu",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1661516720603,
    "version": 1,
    "sender": "3P3NVrhiyHBc4oUWNhtZRnJA5uLX9n39TK9",
    "senderPublicKey": "GeY4VJBhADH72vNVpDy6WUGW2rM2e2TjfnK8d4Kxzz59",
    "proofs": [
        "5NMpixbXPmUGs89xqMGvridEj4fGTs48jUyFmXSynoxGd7PyGiqAiXdGDpwTpKp4wDxifscL7Q8q9Ujk87gME94D"
    ],
    "script": "base64:BgIiCAISAwoBCBIDCgEIEgMKAQgSAwoBCBIDCgEIEgUKAwgBBBkBEHdyaXRlQ29uc3RTdHJpbmcCA2tleQV2YWx1ZQMJAQEhAQkBCWlzRGVmaW5lZAEJAJ0IAgUEdGhpcwUDa2V5CQELU3RyaW5nRW50cnkCBQNrZXkFBXZhbHVlCQACAQkArAICAhVhbHJlYWR5IGluaXRpYWxpemVkOiAFA2tleQEFYXNJbnQBBXZhbHVlBAckbWF0Y2gwBQV2YWx1ZQMJAAECBQckbWF0Y2gwAgNJbnQEA2ludAUHJG1hdGNoMAUDaW50CQACAQIEbTM6MQEGYXNJbnQyAQV2YWx1ZQQHJG1hdGNoMAUFdmFsdWUDCQABAgUHJG1hdGNoMAIKKEludCwgSW50KQQBeAUHJG1hdGNoMAUBeAQBdAUHJG1hdGNoMAkAAgECGndyb25nIHR5cGUsIGV4cGVjdGVkOiBJbnQyAAtjb25maWdTdG9yZQIGY29uZmlnAA1jb25maWdBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzBQtjb25maWdTdG9yZQAGbG9ja2VyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFDWNvbmZpZ0FkZHJlc3MCCWxwX2xvY2tlcgIebm8gbHBfbG9ja2VyIGFkZHJlc3MgaW4gY29uZmlnAh9iYWQgbHBfbG9ja2VyIGFkZHJlc3MgaW4gY29uZmlnAAtyZXNlcnZlc1N0cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFDWNvbmZpZ0FkZHJlc3MCE3Jld2FyZGFibGVfcmVzZXJ2ZXMCIW5vIHJld2FyZGFibGVfcmVzZXJ2ZXMgcmVnaXN0ZXJlZAAIcmVzZXJ2ZXMJALwJAgULcmVzZXJ2ZXNTdHICAXwAA21WRAQHJG1hdGNoMAkAnQgCBQ1jb25maWdBZGRyZXNzAhF2aXJlc19kaXN0cmlidXRvcgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAWQFByRtYXRjaDAJARFAZXh0ck5hdGl2ZSgxMDYyKQEFAWQFBHVuaXQAAlZECQETdmFsdWVPckVycm9yTWVzc2FnZQIFA21WRAIIbm8gZGlzdHIAAmRDCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFDWNvbmZpZ0FkZHJlc3MCEmRpdmlkZW5kc19jb250cmFjdAIVbm8gZGl2aWRlbmRzX2NvbnRyYWN0AgdiYWQgZGl2AAt2aXJlc01pbnRlcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ1jb25maWdBZGRyZXNzAgx2aXJlc19taW50ZXICFG1haW46IG5vIHZpcmVzTWludGVyAgpiYWQgbWludGVyABFtYXliZVZpcmVzQXNzZXRJZAkAnQgCBQt2aXJlc01pbnRlcgIHYXNzZXRJZAAMdmlyZXNBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJANkEAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBRFtYXliZVZpcmVzQXNzZXRJZAILbm8gdmlyZXMgaWQCEGludmFsaWQgdmlyZXMgaWQBCXJlc2VydmVCeQIFc3RvcmUFdmFsdWUKAQRmb2xkAgFhAXIEByRtYXRjaDAFAWEDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQFZm91bmQFByRtYXRjaDAFBWZvdW5kBANyc3IJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBBQFyAg9yc3IgYmFkIGFkZHJlc3MDCQAAAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFA3JzcgUFc3RvcmUJAKwCAgILcnNyIGhhcyBubyAFBXN0b3JlBQV2YWx1ZQUDcnNyBQR1bml0BAckbWF0Y2gwCgACJGwFCHJlc2VydmVzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUEdW5pdAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEZm9sZAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEBWZvdW5kBQckbWF0Y2gwBQVmb3VuZAkAAgEJAKwCAgIIdW5rbm93biAFBXN0b3JlAQN2bFIBAXIDCQEIY29udGFpbnMCBQtyZXNlcnZlc1N0cgUBcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEFAXICDW1haW46IGJhZCByc3IJAAIBCQCsAgICDHVua25vd24gcnNyOgUBcgAObWF5YmVQcm90ZWN0ZWQEByRtYXRjaDAJAJ0IAgUNY29uZmlnQWRkcmVzcwIRcHJvdGVjdGVkX3Jlc2VydmUDCQABAgUHJG1hdGNoMAIGU3RyaW5nBANwZHMFByRtYXRjaDAJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBBQNwZHMCDWJhZCBwcm90ZWN0ZWQFBHVuaXQAEHByb3RlY3RlZFJlc2VydmUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgUObWF5YmVQcm90ZWN0ZWQCEG5vIHByb3RlY3RlZCByc3IBEWVuc3VyZU5vUHJvdGVjdGVkAQR1c2VyBANoYXMEByRtYXRjaDAFDm1heWJlUHJvdGVjdGVkAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAnBhBQckbWF0Y2gwCQELdmFsdWVPckVsc2UCCQCbCAIFAnBhCQCsAgICFXByb3RlY3RlZF9jb2xsYXRlcmFsXwUEdXNlcgcHAwUDaGFzCQACAQIKZGlzYWxsb3dlZAUEdW5pdAAFYVRJZFMCCGFUb2tlbklkAQxsb2NrT3JQYXlvdXQDCXJlY2lwaWVudANhbXQEbG9jawMJAQEhAQUEbG9jawkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQlyZWNpcGllbnQFA2FtdAUMdmlyZXNBc3NldElkBQNuaWwEBmRvTG9jawkA/AcEBQJkQwIHbG9ja0ZvcgkAzAgCCQClCAEFCXJlY2lwaWVudAkAzAgCAAEFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUMdmlyZXNBc3NldElkBQNhbXQFA25pbAMJAAACBQZkb0xvY2sFBmRvTG9jawUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJzUgEDcnNyBAckbWF0Y2gwBQNtVkQDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAkA/AcEBQFhAgpzeW5jSGVpZ2h0CQDMCAIFA3JzcgUDbmlsBQNuaWwFBHVuaXQBAnVTBQNyc3IGYWN0aW9uBHVzZXIKdXNlckNoYW5nZQxzdHJlYW1DaGFuZ2UEByRtYXRjaDAFA21WRAMJAAECBQckbWF0Y2gwAgdBZGRyZXNzBAFhBQckbWF0Y2gwCQD8BwQFAWECCG9uQWN0aW9uCQDMCAIFA3JzcgkAzAgCBQZhY3Rpb24JAMwIAgUEdXNlcgkAzAgCBQp1c2VyQ2hhbmdlCQDMCAIFDHN0cmVhbUNoYW5nZQUDbmlsBQNuaWwFBHVuaXQAB2xpbWl0ZXIEByRtYXRjaDAJAJ0IAgUNY29uZmlnQWRkcmVzcwIHbGltaXRlcgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAWQFByRtYXRjaDAJARFAZXh0ck5hdGl2ZSgxMDYyKQEFAWQFBHVuaXQBC2Vuc3VyZUxpbWl0BAZhY3Rpb24DcnNyBHVzZXIGYW1vdW50BAckbWF0Y2gwBQdsaW1pdGVyAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWwFByRtYXRjaDAJAQVhc0ludAEJAPwHBAUBbAINdmFsaWRhdGVMaW1pdAkAzAgCBQZhY3Rpb24JAMwIAgkApQgBBQNyc3IJAMwIAgUEdXNlcgkAzAgCBQZhbW91bnQFA25pbAUDbmlsBgYBaQEKaW5pdGlhbGl6ZQECY2EJAMwIAgkBEHdyaXRlQ29uc3RTdHJpbmcCBQtjb25maWdTdG9yZQUCY2EFA25pbAFpARh3aXRoZHJhd1VubG9ja2VkTFBUb2tlbnMBCGFUb2tlbklkBAR1c2VyCQClCAEIBQFpBmNhbGxlcgQGY2hlY2tzCQEJcmVzZXJ2ZUJ5AgUFYVRJZFMFCGFUb2tlbklkAwkAAAIFBmNoZWNrcwUGY2hlY2tzBAFjCQD8BwQFBmxvY2tlcgIWY2xlYW5VcERpc3RyaWJ1dGlvbkZvcgkAzAgCBQR1c2VyCQDMCAIFCGFUb2tlbklkBQNuaWwFA25pbAMJAAACBQFjBQFjBAJ3ZAkBBWFzSW50AQkA/AcEBQZsb2NrZXICCHdpdGhkcmF3CQDMCAIFBHVzZXIJAMwIAgUIYVRva2VuSWQJAMwIAgUEdXNlcgUDbmlsBQNuaWwDCQAAAgUCd2QFAndkCQCUCgIFA25pbAUCd2QJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEdd2l0aGRyYXdTbGFzaGVkTG9ja2VkTFBUb2tlbnMBCGFUb2tlbklkBAR1c2VyCQClCAEIBQFpBmNhbGxlcgQGY2hlY2tzCQEJcmVzZXJ2ZUJ5AgUFYVRJZFMFCGFUb2tlbklkAwkAAAIFBmNoZWNrcwUGY2hlY2tzBAskdDA0Mzk4NDU0NQkBBmFzSW50MgEJAPwHBAUGbG9ja2VyAg93aXRoZHJhd1NsYXNoZWQJAMwIAgUEdXNlcgkAzAgCBQhhVG9rZW5JZAkAzAgCBQR1c2VyBQNuaWwFA25pbAMJAAACBQskdDA0Mzk4NDU0NQULJHQwNDM5ODQ1NDUEB3NsYXNoZWQIBQskdDA0Mzk4NDU0NQJfMgQCd2QIBQskdDA0Mzk4NDU0NQJfMQQIdHJlYXN1cnkJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ1jb25maWdBZGRyZXNzAgxkYW9fdHJlYXN1cnkCFm5vIHRyZWFzdXJ5IGNvbmZpZ3VyZWQJAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQh0cmVhc3VyeQUHc2xhc2hlZAkA2QQBBQhhVG9rZW5JZAUDbmlsBQJ3ZAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARZzdXBwbHlVbmxvY2tlZExQVG9rZW5zAQhhVG9rZW5JZAQEdXNlcgkApQgBCAUBaQZjYWxsZXIEA3JzcgkBCXJlc2VydmVCeQIFBWFUSWRTBQhhVG9rZW5JZAMJAAACBQNyc3IFA3JzcgQBYwkA/AcEBQZsb2NrZXICFmNsZWFuVXBEaXN0cmlidXRpb25Gb3IJAMwIAgUEdXNlcgkAzAgCBQhhVG9rZW5JZAUDbmlsBQNuaWwDCQAAAgUBYwUBYwQCd2QJAQVhc0ludAEJAPwHBAUGbG9ja2VyAgh3aXRoZHJhdwkAzAgCBQR1c2VyCQDMCAIFCGFUb2tlbklkCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQAAAgUCd2QFAndkBAZjaGVja3MJARFlbnN1cmVOb1Byb3RlY3RlZAEFBHVzZXIDCQAAAgUGY2hlY2tzBQZjaGVja3MEAnNoCQECc1IBCQClCAEFA3JzcgMJAAACBQJzaAUCc2gEDHJlcGxlbmlzaEFtdAkBBWFzSW50AQkA/AcEBQNyc3ICHnJlcGxlbmlzRm9yVW5sb2NrV2l0aEF0b2tlbkZvcgkAzAgCBQR1c2VyBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUIYVRva2VuSWQFAndkBQNuaWwDCQAAAgUMcmVwbGVuaXNoQW10BQxyZXBsZW5pc2hBbXQEA3BSdwkBAnVTBQkApQgBBQNyc3ICB2RlcG9zaXQFBHVzZXIFDHJlcGxlbmlzaEFtdAAAAwkAAAIFA3BSdwUDcFJ3CQCUCgIFA25pbAUCd2QJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEWcmVkZWVtVW5sb2NrZWRMUFRva2VucwEIYVRva2VuSWQEBHVzZXIJAKUIAQgFAWkGY2FsbGVyBANyc3IJAQlyZXNlcnZlQnkCBQVhVElkUwUIYVRva2VuSWQDCQAAAgUDcnNyBQNyc3IEAWMJAPwHBAUGbG9ja2VyAhZjbGVhblVwRGlzdHJpYnV0aW9uRm9yCQDMCAIFBHVzZXIJAMwIAgUIYVRva2VuSWQFA25pbAUDbmlsAwkAAAIFAWMFAWMEAndkCQEFYXNJbnQBCQD8BwQFBmxvY2tlcgIId2l0aGRyYXcJAMwIAgUEdXNlcgkAzAgCBQhhVG9rZW5JZAkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAAIFAndkBQJ3ZAQCc2gJAQJzUgEJAKUIAQUDcnNyAwkAAAIFAnNoBQJzaAQDYW10CQEFYXNJbnQBCQD8BwQFA3JzcgIQcmVkZWVtQXRva2Vuc0ZvcgkAzAgCBQR1c2VyBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUIYVRva2VuSWQFAndkBQNuaWwDCQAAAgUDYW10BQNhbXQEAWUJAQtlbnN1cmVMaW1pdAQCCHdpdGhkcmF3BQNyc3IFBHVzZXIFA2FtdAMJAAACBQFlBQFlBANwUncJAQJ1UwUJAKUIAQUDcnNyAgdkZXBvc2l0BQR1c2VyAAAJAQEtAQUDYW10AwkAAAIFA3BSdwUDcFJ3CQCUCgIFA25pbAUCd2QJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQENY2xhaW1McFJld2FyZAMDcnNyA2FtdARsb2NrBAF2CQEDdmxSAQUDcnNyAwkAAAIFAXYFAXYECGFUb2tlbklkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUBdgUFYVRJZFMCFm5vIGFUb2tlbklkIGluIHJlc2VydmUEBHVzZXIJAKUIAQgFAWkGY2FsbGVyBAFjCQEFYXNJbnQBCQD8BwQFBmxvY2tlcgIQY2xhaW1McFJld2FyZEZvcgkAzAgCBQR1c2VyCQDMCAIFCGFUb2tlbklkCQDMCAIFA2FtdAUDbmlsBQNuaWwDCQAAAgUBYwUBYwkBDGxvY2tPclBheW91dAMIBQFpBmNhbGxlcgUBYwUEbG9jawkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgBbK2fo",
    "chainId": 87,
    "height": 3266910,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FcGnZMLzf85ueyh6gMKVYNLiyzFY9kAKdDKEauwSnoWc
Next: DtN8YFe4AwWo2cJjPJWuWumjSoD4ATAWEWki4kdAc3ao

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

Old	New		Differences
215	215		let sh = sR(toString(rsr))
216	216		if ((sh == sh))
217	217		then {
218		-	let replenishAmt = asInt(invoke(rsr, "~~replenishWithAtokenFor~~", [user], [AttachedPayment(fromBase58String(aTokenId), wd)]))
	218	+	let replenishAmt = asInt(invoke(rsr, "replenisForUnlockWithAtokenFor", [user], [AttachedPayment(fromBase58String(aTokenId), wd)]))
219	219		if ((replenishAmt == replenishAmt))
220	220		then {
221	221		let pRw = uS(toString(rsr), "deposit", user, replenishAmt, 0)

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

github/deemru/w8io/6500d08 
33.57 ms ◑