w8 · tx · 5Kc···Ch6

tx · 5KcT4xXUZVYQvXbnho3Vpc9Qt8aJnW7u3fDe8r8y7Ch6

3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy:  -0.01000000 Waves

2023.01.18 13:56 [2410280] smart account 3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5KcT4xXUZVYQvXbnho3Vpc9Qt8aJnW7u3fDe8r8y7Ch6",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1674039442114,
    "version": 2,
    "chainId": 84,
    "sender": "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy",
    "senderPublicKey": "C3PaRKeL8AUKbwUqdniMQtThgcTh5DYHV1777Hkxy7rp",
    "proofs": [
        "2V1mSCdDDEBcmt8hsTunjHVwgumHvbB67g7o7CKAi3Y8Z7vxCvdQ8sbxwDAZJhsVeENLc6HG7Tu7km8hcTuovmHB"
    ],
    "script": "base64:BgITCAISAwoBCBIECgIICBIECgIICCQABWNoYWluCQCwCQEJAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZG5Bc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAgFXBQckbWF0Y2gwASC2JinDBPXOU5GkDkt1JC9kjFGx+t+vVCm9SNIdKrKq0QMJAAACAgFUBQckbWF0Y2gwASD3dur394PKZdtuE+4CO89YKZWpwdGN8kvabNgdYoDI3gkAAgECDVVua25vd24gY2hhaW4AD2Vjb25vbXlDb250cmFjdAkBEUBleHRyTmF0aXZlKDEwNjIpAQQHJG1hdGNoMAUFY2hhaW4DCQAAAgIBVwUHJG1hdGNoMAIjM1Ayc2sxS25jU3hSYVpzOGI0Q1dHUHcyamt2dmF2NzR1NEQDCQAAAgIBVAUHJG1hdGNoMAIjM044eTR3eFgzSkM0VGRyQ0pCWFgxNlNqV2Y2WDI1NmhyZXAJAAIBAg1Vbmtub3duIGNoYWluAA9zdGFraW5nQ29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEEByRtYXRjaDAFBWNoYWluAwkAAAICAVcFByRtYXRjaDACIzNQTG5jWHRTMVU4M0Q2Y1FiRkQzSDhyQkhQTGd6eFNGS1oxAwkAAAICAVQFByRtYXRjaDACIzNOREN5Qkc1cTg1SnVhUmlpZ1VlRXRhaW55akNRVDNYcFptCQACAQINVW5rbm93biBjaGFpbgARSW5mcmFVcGdyYWRlQ29zdFMEByRtYXRjaDAFBWNoYWluAwkAAAICAVcFByRtYXRjaDAAxuvAvxcDCQAAAgIBVAUHJG1hdGNoMADwzYkeCQACAQINVW5rbm93biBjaGFpbgAKTEFORFBSRUZJWAIETEFORAAKRFVDS1BSRUZJWAIERFVDSwADU0VQAgJfXwAKQVJUUFJFU0FMRQIHUFJFU0FMRQAPREFJTFlSRVNCWVBJRUNFAID40gEACURBWU1JTExJUwCAuJkpAAZOVU1SRVMABgAFU1NJWkUAGQAFTVNJWkUAZAAFTFNJWkUA4QEABlhMU0laRQCQAwAHWFhMU0laRQDxBAAKcmVjTGFuZE51bQAAAAtyZWNMYW5kU2l6ZQABAAtyZWNUZXJyYWlucwACAAxyZWNDb250aW5lbnQAAwEQa2V5RHVja0lkVG9Pd25lcgEHYXNzZXRJZAkArAICAgpkdWNrT3duZXJfBQdhc3NldElkARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQdhc3NldElkCQCsAgICC3N0YWtlZFRpbWVfBQdhc3NldElkARRrZXlTdGFrZWREdWNrQnlPd25lcgEJb3duZXJBZGRyCQCsAgICEnN0YWtlZER1Y2tCeU93bmVyXwUJb3duZXJBZGRyASJrZXlTdGFrZWRUaW1lQnlUeXBlQXNzZXRJZEFuZE93bmVyAwduZnRUeXBlB2Fzc2V0SWQJb3duZXJBZGRyCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIgc3Rha2VkVGltZUJ5VHlwZUFzc2V0SWRBbmRPd25lcl8FB25mdFR5cGUCAV8FB2Fzc2V0SWQCAV8FCW93bmVyQWRkcgERa2V5QmFja3BhY2tCeUR1Y2sBC2R1Y2tBc3NldElkCQCsAgICCWJhY2tQYWNrXwULZHVja0Fzc2V0SWQBD2tleUR1Y2tMb2NhdGlvbgELZHVja0Fzc2V0SWQJAKwCAgINZHVja0xvY2F0aW9uXwULZHVja0Fzc2V0SWQBDWtleUR1Y2tIZWFsdGgBC2R1Y2tBc3NldElkCQCsAgICC2R1Y2tIZWFsdGhfBQtkdWNrQXNzZXRJZAEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQdhc3NldElkCQCsAgICCW5mdE93bmVyXwUHYXNzZXRJZAEWa2V5SW5mcmFMZXZlbEJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgtpbmZyYUxldmVsXwUHYXNzZXRJZAEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBHR5cGUHYXNzZXRJZAkAuQkCCQDMCAICDWxhbmRBcnRTdGF0dXMJAMwIAgUEdHlwZQkAzAgCBQdhc3NldElkBQNuaWwCAV8BH2tleVByZXNhbGVBcnRBY3RpdmF0ZWRCeUFzc2V0SWQBB2Fzc2V0SWQJAKwCAgIUcHJlc2FsZUFydEFjdGl2YXRlZF8FB2Fzc2V0SWQBEmFzTGlzdEludENvbXBhY3RlZAEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIJTGlzdFtBbnldBAp2YWxBbnlMaXN0BQckbWF0Y2gwAwkBAiE9AgkAkAMBBQp2YWxBbnlMaXN0BQZOVU1SRVMJAAIBCQCsAgICDkFycmF5IHNpemUgaXMgCQCkAwEJAJADAQUKdmFsQW55TGlzdAoBBGNvbnYCA2FjYwRpdGVtBAckbWF0Y2gxBQRpdGVtAwkAAQIFByRtYXRjaDECA0ludAQCaXQFByRtYXRjaDEJAM0IAgUDYWNjCQCkAwEFAml0CQACAQIUTGlzdCB0eXBlIGlzIG5vdCBJbnQEAXIKAAIkbAUKdmFsQW55TGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEY29udgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgkAuQkCBQFyAgFfCQACAQIWZmFpbCB0byBjYXN0IGludG8gTGlzdAEOd2FsbGV0SW50ZXJuYWwBDnVzZXJBZGRyZXNzT3B0BARhZGRyCQCmCAEFDnVzZXJBZGRyZXNzT3B0BAdiYWxhbmNlAwkBCWlzRGVmaW5lZAEFBGFkZHIJAO8HAQkBBXZhbHVlAQUEYWRkcgkBDkJhbGFuY2VEZXRhaWxzBAAAAAAAAAAABAt1c2RuQmFsYW5jZQMJAQlpc0RlZmluZWQBBQRhZGRyCQDwBwIJAQV2YWx1ZQEFBGFkZHIFC3VzZG5Bc3NldElkAAAJAMwIAggFB2JhbGFuY2UJYXZhaWxhYmxlCQDMCAIFC3VzZG5CYWxhbmNlBQNuaWwBDGFwcGx5Qm9udXNlcwILbGFuZEFzc2V0SWQGcGllY2VzBAppbmZyYUxldmVsCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAAABAlhcnRQaWVjZXMJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBQpBUlRQUkVTQUxFBQtsYW5kQXNzZXRJZAMJAQt2YWx1ZU9yRWxzZQIJAJsIAgUPc3Rha2luZ0NvbnRyYWN0CQEfa2V5UHJlc2FsZUFydEFjdGl2YXRlZEJ5QXNzZXRJZAEFC2xhbmRBc3NldElkBwUGcGllY2VzAAAJAJUKAwUKaW5mcmFMZXZlbAUJYXJ0UGllY2VzCQBkAgkAZAIFD0RBSUxZUkVTQllQSUVDRQkAawMFD0RBSUxZUkVTQllQSUVDRQUKaW5mcmFMZXZlbAAECQBrAwUPREFJTFlSRVNCWVBJRUNFCQBoAgUJYXJ0UGllY2VzAAMJAGgCBQZwaWVjZXMAFAEPbnVtUGllY2VzQnlTaXplAQhsYW5kU2l6ZQQHJG1hdGNoMAUIbGFuZFNpemUDCQAAAgIBUwUHJG1hdGNoMAUFU1NJWkUDCQAAAgIBTQUHJG1hdGNoMAUFTVNJWkUDCQAAAgIBTAUHJG1hdGNoMAUFTFNJWkUDCQAAAgICWEwFByRtYXRjaDAFBlhMU0laRQMJAAACAgNYWEwFByRtYXRjaDAFB1hYTFNJWkUJAAIBAhFVbmtub3duIGxhbmQgc2l6ZQMBaQESd2FsbGV0SW5mb1JFQURPTkxZAQ51c2VyQWRkcmVzc09wdAQIYmFsYW5jZXMJAQ53YWxsZXRJbnRlcm5hbAEFDnVzZXJBZGRyZXNzT3B0CQCUCgIFA25pbAkAuQkCCQDMCAICBiVzJWQlZAkAzAgCAgZ3YWxsZXQJAMwIAgkApAMBCQCRAwIFCGJhbGFuY2VzAAAJAMwIAgkApAMBCQCRAwIFCGJhbGFuY2VzAAEFA25pbAUDU0VQAWkBEGR1Y2tJbmZvUkVBRE9OTFkCC2R1Y2tBc3NldElkDnVzZXJBZGRyZXNzT3B0BARhZGRyCQCmCAEFDnVzZXJBZGRyZXNzT3B0BAlkdWNrQXNzZXQJANkEAQULZHVja0Fzc2V0SWQDCQAAAgULZHVja0Fzc2V0SWQCAAkAAgECF2R1Y2tBc3NldElkIGlzIHJlcXVpcmVkBApzdGFrZWRUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtkdWNrQXNzZXRJZAAABAVvd25lcgMJAGYCBQpzdGFrZWRUaW1lAAAJAQV2YWx1ZQEJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEQa2V5RHVja0lkVG9Pd25lcgEFC2R1Y2tBc3NldElkAwMJAQlpc0RlZmluZWQBBQRhZGRyCQAAAgkA8AcCCQEFdmFsdWUBBQRhZGRyBQlkdWNrQXNzZXQAAQcFDnVzZXJBZGRyZXNzT3B0CQACAQINdW5rbm93biBvd25lcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUJZHVja0Fzc2V0BARuYW1lCAUFYXNzZXQEbmFtZQQLY3VyTG9jYXRpb24JAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQCAAQGaGVhbHRoCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBDWtleUR1Y2tIZWFsdGgBBQtkdWNrQXNzZXRJZAD///////////8BBAhiYWNrcGFjawkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkAhowOjBfMF8wXzBfMF8wOjBfMF8wXzBfMF8wOgQIYmFsYW5jZXMJAQ53YWxsZXRJbnRlcm5hbAEFDnVzZXJBZGRyZXNzT3B0CQCUCgIFA25pbAkAzAgCCQCsAgICEiVzJWRfX3N0YWtlZFRpbWVfXwkApAMBBQpzdGFrZWRUaW1lCQDMCAIJAKwCAgINJXMlc19fb3duZXJfXwUFb3duZXIJAMwIAgkArAICAgwlcyVzX19uYW1lX18FBG5hbWUJAMwIAgkArAICAhAlcyVzX19sb2NhdGlvbl9fBQtjdXJMb2NhdGlvbgkAzAgCCQCsAgICDiVzJWRfX2hlYWx0aF9fCQCkAwEFBmhlYWx0aAkAzAgCCQCsAgICECVzJXNfX2JhY2tQYWNrX18FCGJhY2twYWNrCQDMCAIJALkJAgkAzAgCAgYlcyVkJWQJAMwIAgIGd2FsbGV0CQDMCAIJAKQDAQkAkQMCBQhiYWxhbmNlcwAACQDMCAIJAKQDAQkAkQMCBQhiYWxhbmNlcwABBQNuaWwFA1NFUAUDbmlsAWkBEGxhbmRJbmZvUkVBRE9OTFkCC2xhbmRBc3NldElkDnVzZXJBZGRyZXNzT3B0BARhZGRyCQCmCAEFDnVzZXJBZGRyZXNzT3B0BAlsYW5kQXNzZXQJANkEAQULbGFuZEFzc2V0SWQDCQAAAgULbGFuZEFzc2V0SWQCAAkAAgECF2xhbmRBc3NldElkIGlzIHJlcXVpcmVkBApzdGFrZWRUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAAABAVvd25lcgMJAGYCBQpzdGFrZWRUaW1lAAAJAQV2YWx1ZQEJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQDAwkBCWlzRGVmaW5lZAEFBGFkZHIJAAACCQDwBwIJAQV2YWx1ZQEFBGFkZHIFCWxhbmRBc3NldAABBwUOdXNlckFkZHJlc3NPcHQCAAQFZGVzY3IICQEFdmFsdWUBCQDsBwEFCWxhbmRBc3NldAtkZXNjcmlwdGlvbgQGcGllY2VzCQEPbnVtUGllY2VzQnlTaXplAQkAkQMCCQC1CQIFBWRlc2NyAgFfBQtyZWNMYW5kU2l6ZQQMcHJvZHVjdGl2aXR5CQEMYXBwbHlCb251c2VzAgULbGFuZEFzc2V0SWQFBnBpZWNlcwQJZGVsdGFUaW1lCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFCnN0YWtlZFRpbWUECGF2YWlsUmVzCQBrAwUJZGVsdGFUaW1lCQBoAggFDHByb2R1Y3Rpdml0eQJfMwUGcGllY2VzBQlEQVlNSUxMSVMEBnJlc1N0cgMJAGYCBQpzdGFrZWRUaW1lAAAJARJhc0xpc3RJbnRDb21wYWN0ZWQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIac3BsaXRCeVByb3BvcnRpb25zUkVBRE9OTFkJAMwIAgUIYXZhaWxSZXMFA25pbAUDbmlsAgAEB25lZWRNYXQJAGsDBRFJbmZyYVVwZ3JhZGVDb3N0UwkAaAIFBnBpZWNlcwkAZAIIBQxwcm9kdWN0aXZpdHkCXzEAAQUFU1NJWkUECm5lZWRNYXRTdHIJARJhc0xpc3RJbnRDb21wYWN0ZWQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIac3BsaXRCeVByb3BvcnRpb25zUkVBRE9OTFkJAMwIAgUHbmVlZE1hdAUDbmlsBQNuaWwECGR1Y2tJbmZvAwkBCWlzRGVmaW5lZAEFBGFkZHIEC2R1Y2tBc3NldElkCQEFdmFsdWUBCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUOdXNlckFkZHJlc3NPcHQJAJYKBAULZHVja0Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQCAAkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJAQ1rZXlEdWNrSGVhbHRoAQULZHVja0Fzc2V0SWQA////////////AQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkAhowOjBfMF8wXzBfMF8wOjBfMF8wXzBfMF8wOgkAlgoEAgACAAD///////////8BAgAECGJhbGFuY2VzCQEOd2FsbGV0SW50ZXJuYWwBBQ51c2VyQWRkcmVzc09wdAkAlAoCBQNuaWwJAMwIAgkArAICAhIlcyVkX19zdGFrZWRUaW1lX18JAKQDAQUKc3Rha2VkVGltZQkAzAgCCQCsAgICDSVzJXNfX293bmVyX18FBW93bmVyCQDMCAIJAKwCAgITJXMlc19fZGVzY3JpcHRpb25fXwUFZGVzY3IJAMwIAgkArAICAhIlcyVkX19pbmZyYUxldmVsX18JAKQDAQgFDHByb2R1Y3Rpdml0eQJfMQkAzAgCCQCsAgICESVzJWRfX2FydFBpZWNlc19fCQCkAwEIBQxwcm9kdWN0aXZpdHkCXzIJAMwIAgkArAICAhAlcyVzX19hdmFpbFJlc19fBQZyZXNTdHIJAMwIAgkArAICAhQlcyVzX19uZWVkTWF0ZXJpYWxfXwUKbmVlZE1hdFN0cgkAzAgCCQCsAgICEyVzJXNfX2R1Y2tBc3NldElkX18IBQhkdWNrSW5mbwJfMQkAzAgCCQCsAgICECVzJXNfX2xvY2F0aW9uX18IBQhkdWNrSW5mbwJfMgkAzAgCCQCsAgICDiVzJWRfX2hlYWx0aF9fCQCkAwEIBQhkdWNrSW5mbwJfMwkAzAgCCQCsAgICECVzJXNfX2JhY2tQYWNrX18IBQhkdWNrSW5mbwJfNAkAzAgCCQC5CQIJAMwIAgIGJXMlZCVkCQDMCAICBndhbGxldAkAzAgCCQCkAwEJAJEDAgUIYmFsYW5jZXMAAAkAzAgCCQCkAwEJAJEDAgUIYmFsYW5jZXMAAQUDbmlsBQNTRVAFA25pbADPw5iz",
    "height": 2410280,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: CNbGmGxXbT51HmW5T9HnLSpvLXU6Wi2qEsdeMGo9eySy
Next: 6Fsf4AyN7k7jZsBU6N3xK5o4xTobqC8gFWEDqCM1oMfM

Diff: 
Old New Differences
223 223                      then (assetBalance(value(addr), landAsset) == 1)
224 224                      else false)
225 225                      then userAddressOpt
226 -                     else throw("unknown owner")
226 +                     else ""
227 227              let descr = value(assetInfo(landAsset)).description
228 228              let pieces = numPiecesBySize(split(descr, "_")[recLandSize])
229 229              let productivity = applyBonuses(landAssetId, pieces)
230 230              let deltaTime = (lastBlock.timestamp - stakedTime)
231 231              let availRes = fraction(deltaTime, (productivity._3 * pieces), DAYMILLIS)
232 -             let resStr = asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [availRes], nil))
232 +             let resStr = if ((stakedTime > 0))
233 +                 then asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [availRes], nil))
234 +                 else ""
233 235              let needMat = fraction(InfraUpgradeCostS, (pieces * (productivity._1 + 1)), SSIZE)
234 236              let needMatStr = asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [needMat], nil))
235 237              let duckInfo = if (isDefined(addr))
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let chain = toUtf8String(take(drop(this.bytes, 1), 1))
5 5  
6 6  let usdnAssetId = match chain {
7 7      case _ => 
8 8          if (("W" == $match0))
9 9              then base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
10 10              else if (("T" == $match0))
11 11                  then base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
12 12                  else throw("Unknown chain")
13 13  }
14 14  
15 15  let economyContract = addressFromStringValue(match chain {
16 16      case _ => 
17 17          if (("W" == $match0))
18 18              then "3P2sk1KncSxRaZs8b4CWGPw2jkvvav74u4D"
19 19              else if (("T" == $match0))
20 20                  then "3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep"
21 21                  else throw("Unknown chain")
22 22  })
23 23  
24 24  let stakingContract = addressFromStringValue(match chain {
25 25      case _ => 
26 26          if (("W" == $match0))
27 27              then "3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1"
28 28              else if (("T" == $match0))
29 29                  then "3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm"
30 30                  else throw("Unknown chain")
31 31  })
32 32  
33 33  let InfraUpgradeCostS = match chain {
34 34      case _ => 
35 35          if (("W" == $match0))
36 36              then 6307198406
37 37              else if (("T" == $match0))
38 38                  then 63071984
39 39                  else throw("Unknown chain")
40 40  }
41 41  
42 42  let LANDPREFIX = "LAND"
43 43  
44 44  let DUCKPREFIX = "DUCK"
45 45  
46 46  let SEP = "__"
47 47  
48 48  let ARTPRESALE = "PRESALE"
49 49  
50 50  let DAILYRESBYPIECE = 3456000
51 51  
52 52  let DAYMILLIS = 86400000
53 53  
54 54  let NUMRES = 6
55 55  
56 56  let SSIZE = 25
57 57  
58 58  let MSIZE = 100
59 59  
60 60  let LSIZE = 225
61 61  
62 62  let XLSIZE = 400
63 63  
64 64  let XXLSIZE = 625
65 65  
66 66  let recLandNum = 0
67 67  
68 68  let recLandSize = 1
69 69  
70 70  let recTerrains = 2
71 71  
72 72  let recContinent = 3
73 73  
74 74  func keyDuckIdToOwner (assetId) = ("duckOwner_" + assetId)
75 75  
76 76  
77 77  func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
78 78  
79 79  
80 80  func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
81 81  
82 82  
83 83  func keyStakedTimeByTypeAssetIdAndOwner (nftType,assetId,ownerAddr) = ((((("stakedTimeByTypeAssetIdAndOwner_" + nftType) + "_") + assetId) + "_") + ownerAddr)
84 84  
85 85  
86 86  func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
87 87  
88 88  
89 89  func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
90 90  
91 91  
92 92  func keyDuckHealth (duckAssetId) = ("duckHealth_" + duckAssetId)
93 93  
94 94  
95 95  func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
96 96  
97 97  
98 98  func keyInfraLevelByAssetId (assetId) = ("infraLevel_" + assetId)
99 99  
100 100  
101 101  func keyLandArtStatusByTypeAndAssetId (type,assetId) = makeString(["landArtStatus", type, assetId], "_")
102 102  
103 103  
104 104  func keyPresaleArtActivatedByAssetId (assetId) = ("presaleArtActivated_" + assetId)
105 105  
106 106  
107 107  func asListIntCompacted (val) = match val {
108 108      case valAnyList: List[Any] => 
109 109          if ((size(valAnyList) != NUMRES))
110 110              then throw(("Array size is " + toString(size(valAnyList))))
111 111              else {
112 112                  func conv (acc,item) =                                 match item {
113 113                      case it: Int => 
114 114                          (acc :+ toString(it))
115 115                      case _ => 
116 116                          throw("List type is not Int")
117 117                  }
118 118  
119 119                  let r = {
120 120                      let $l = valAnyList
121 121                      let $s = size($l)
122 122                      let $acc0 = nil
123 123                      func $f0_1 ($a,$i) =                     if (($i >= $s))
124 124                          then $a
125 125                          else conv($a, $l[$i])
126 126  
127 127                      func $f0_2 ($a,$i) =                     if (($i >= $s))
128 128                          then $a
129 129                          else throw("List size exceeds 6")
130 130  
131 131                      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
132 132                      }
133 133                  makeString(r, "_")
134 134                  }
135 135      case _ => 
136 136          throw("fail to cast into List")
137 137  }
138 138  
139 139  
140 140  func walletInternal (userAddressOpt) = {
141 141      let addr = addressFromString(userAddressOpt)
142 142      let balance = if (isDefined(addr))
143 143          then wavesBalance(value(addr))
144 144          else BalanceDetails(0, 0, 0, 0)
145 145      let usdnBalance = if (isDefined(addr))
146 146          then assetBalance(value(addr), usdnAssetId)
147 147          else 0
148 148  [balance.available, usdnBalance]
149 149      }
150 150  
151 151  
152 152  func applyBonuses (landAssetId,pieces) = {
153 153      let infraLevel = valueOrElse(getInteger(stakingContract, keyInfraLevelByAssetId(landAssetId)), 0)
154 154      let artPieces = valueOrElse(getInteger(stakingContract, keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), if (valueOrElse(getBoolean(stakingContract, keyPresaleArtActivatedByAssetId(landAssetId)), false))
155 155          then pieces
156 156          else 0)
157 157      $Tuple3(infraLevel, artPieces, ((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, infraLevel, 4)) + fraction(DAILYRESBYPIECE, (artPieces * 3), (pieces * 20))))
158 158      }
159 159  
160 160  
161 161  func numPiecesBySize (landSize) = match landSize {
162 162      case _ => 
163 163          if (("S" == $match0))
164 164              then SSIZE
165 165              else if (("M" == $match0))
166 166                  then MSIZE
167 167                  else if (("L" == $match0))
168 168                      then LSIZE
169 169                      else if (("XL" == $match0))
170 170                          then XLSIZE
171 171                          else if (("XXL" == $match0))
172 172                              then XXLSIZE
173 173                              else throw("Unknown land size")
174 174  }
175 175  
176 176  
177 177  @Callable(i)
178 178  func walletInfoREADONLY (userAddressOpt) = {
179 179      let balances = walletInternal(userAddressOpt)
180 180      $Tuple2(nil, makeString(["%s%d%d", "wallet", toString(balances[0]), toString(balances[1])], SEP))
181 181      }
182 182  
183 183  
184 184  
185 185  @Callable(i)
186 186  func duckInfoREADONLY (duckAssetId,userAddressOpt) = {
187 187      let addr = addressFromString(userAddressOpt)
188 188      let duckAsset = fromBase58String(duckAssetId)
189 189      if ((duckAssetId == ""))
190 190          then throw("duckAssetId is required")
191 191          else {
192 192              let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(duckAssetId)), 0)
193 193              let owner = if ((stakedTime > 0))
194 194                  then value(getString(stakingContract, keyDuckIdToOwner(duckAssetId)))
195 195                  else if (if (isDefined(addr))
196 196                      then (assetBalance(value(addr), duckAsset) == 1)
197 197                      else false)
198 198                      then userAddressOpt
199 199                      else throw("unknown owner")
200 200              let asset = value(assetInfo(duckAsset))
201 201              let name = asset.name
202 202              let curLocation = valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), "")
203 203              let health = valueOrElse(getInteger(stakingContract, keyDuckHealth(duckAssetId)), -1)
204 204              let backpack = valueOrElse(getString(stakingContract, keyBackpackByDuck(duckAssetId)), "0:0_0_0_0_0_0:0_0_0_0_0_0:")
205 205              let balances = walletInternal(userAddressOpt)
206 206              $Tuple2(nil, [("%s%d__stakedTime__" + toString(stakedTime)), ("%s%s__owner__" + owner), ("%s%s__name__" + name), ("%s%s__location__" + curLocation), ("%s%d__health__" + toString(health)), ("%s%s__backPack__" + backpack), makeString(["%s%d%d", "wallet", toString(balances[0]), toString(balances[1])], SEP)])
207 207              }
208 208      }
209 209  
210 210  
211 211  
212 212  @Callable(i)
213 213  func landInfoREADONLY (landAssetId,userAddressOpt) = {
214 214      let addr = addressFromString(userAddressOpt)
215 215      let landAsset = fromBase58String(landAssetId)
216 216      if ((landAssetId == ""))
217 217          then throw("landAssetId is required")
218 218          else {
219 219              let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), 0)
220 220              let owner = if ((stakedTime > 0))
221 221                  then value(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)))
222 222                  else if (if (isDefined(addr))
223 223                      then (assetBalance(value(addr), landAsset) == 1)
224 224                      else false)
225 225                      then userAddressOpt
226 -                     else throw("unknown owner")
226 +                     else ""
227 227              let descr = value(assetInfo(landAsset)).description
228 228              let pieces = numPiecesBySize(split(descr, "_")[recLandSize])
229 229              let productivity = applyBonuses(landAssetId, pieces)
230 230              let deltaTime = (lastBlock.timestamp - stakedTime)
231 231              let availRes = fraction(deltaTime, (productivity._3 * pieces), DAYMILLIS)
232 -             let resStr = asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [availRes], nil))
232 +             let resStr = if ((stakedTime > 0))
233 +                 then asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [availRes], nil))
234 +                 else ""
233 235              let needMat = fraction(InfraUpgradeCostS, (pieces * (productivity._1 + 1)), SSIZE)
234 236              let needMatStr = asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [needMat], nil))
235 237              let duckInfo = if (isDefined(addr))
236 238                  then {
237 239                      let duckAssetId = value(getString(stakingContract, keyStakedDuckByOwner(userAddressOpt)))
238 240                      $Tuple4(duckAssetId, valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), ""), valueOrElse(getInteger(stakingContract, keyDuckHealth(duckAssetId)), -1), valueOrElse(getString(stakingContract, keyBackpackByDuck(duckAssetId)), "0:0_0_0_0_0_0:0_0_0_0_0_0:"))
239 241                      }
240 242                  else $Tuple4("", "", -1, "")
241 243              let balances = walletInternal(userAddressOpt)
242 244              $Tuple2(nil, [("%s%d__stakedTime__" + toString(stakedTime)), ("%s%s__owner__" + owner), ("%s%s__description__" + descr), ("%s%d__infraLevel__" + toString(productivity._1)), ("%s%d__artPieces__" + toString(productivity._2)), ("%s%s__availRes__" + resStr), ("%s%s__needMaterial__" + needMatStr), ("%s%s__duckAssetId__" + duckInfo._1), ("%s%s__location__" + duckInfo._2), ("%s%d__health__" + toString(duckInfo._3)), ("%s%s__backPack__" + duckInfo._4), makeString(["%s%d%d", "wallet", toString(balances[0]), toString(balances[1])], SEP)])
243 245              }
244 246      }
245 247  
246 248

Old	New		Differences
223	223		then (assetBalance(value(addr), landAsset) == 1)
224	224		else false)
225	225		then userAddressOpt
226		-	else ~~throw(~~"~~unknown owner~~")
	226	+	else ""
227	227		let descr = value(assetInfo(landAsset)).description
228	228		let pieces = numPiecesBySize(split(descr, "_")[recLandSize])
229	229		let productivity = applyBonuses(landAssetId, pieces)
230	230		let deltaTime = (lastBlock.timestamp - stakedTime)
231	231		let availRes = fraction(deltaTime, (productivity._3 * pieces), DAYMILLIS)
232		-	let resStr = asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [availRes], nil))
	232	+	let resStr = if ((stakedTime > 0))
	233	+	then asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [availRes], nil))
	234	+	else ""
233	235		let needMat = fraction(InfraUpgradeCostS, (pieces * (productivity._1 + 1)), SSIZE)
234	236		let needMatStr = asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [needMat], nil))
235	237		let duckInfo = if (isDefined(addr))

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let chain = toUtf8String(take(drop(this.bytes, 1), 1))
5	5
6	6		let usdnAssetId = match chain {
7	7		case _ =>
8	8		if (("W" == $match0))
9	9		then base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
10	10		else if (("T" == $match0))
11	11		then base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
12	12		else throw("Unknown chain")
13	13		}
14	14
15	15		let economyContract = addressFromStringValue(match chain {
16	16		case _ =>
17	17		if (("W" == $match0))
18	18		then "3P2sk1KncSxRaZs8b4CWGPw2jkvvav74u4D"
19	19		else if (("T" == $match0))
20	20		then "3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep"
21	21		else throw("Unknown chain")
22	22		})
23	23
24	24		let stakingContract = addressFromStringValue(match chain {
25	25		case _ =>
26	26		if (("W" == $match0))
27	27		then "3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1"
28	28		else if (("T" == $match0))
29	29		then "3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm"
30	30		else throw("Unknown chain")
31	31		})
32	32
33	33		let InfraUpgradeCostS = match chain {
34	34		case _ =>
35	35		if (("W" == $match0))
36	36		then 6307198406
37	37		else if (("T" == $match0))
38	38		then 63071984
39	39		else throw("Unknown chain")
40	40		}
41	41
42	42		let LANDPREFIX = "LAND"
43	43
44	44		let DUCKPREFIX = "DUCK"
45	45
46	46		let SEP = "__"
47	47
48	48		let ARTPRESALE = "PRESALE"
49	49
50	50		let DAILYRESBYPIECE = 3456000
51	51
52	52		let DAYMILLIS = 86400000
53	53
54	54		let NUMRES = 6
55	55
56	56		let SSIZE = 25
57	57
58	58		let MSIZE = 100
59	59
60	60		let LSIZE = 225
61	61
62	62		let XLSIZE = 400
63	63
64	64		let XXLSIZE = 625
65	65
66	66		let recLandNum = 0
67	67
68	68		let recLandSize = 1
69	69
70	70		let recTerrains = 2
71	71
72	72		let recContinent = 3
73	73
74	74		func keyDuckIdToOwner (assetId) = ("duckOwner_" + assetId)
75	75
76	76
77	77		func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
78	78
79	79
80	80		func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
81	81
82	82
83	83		func keyStakedTimeByTypeAssetIdAndOwner (nftType,assetId,ownerAddr) = ((((("stakedTimeByTypeAssetIdAndOwner_" + nftType) + "_") + assetId) + "_") + ownerAddr)
84	84
85	85
86	86		func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
87	87
88	88
89	89		func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
90	90
91	91
92	92		func keyDuckHealth (duckAssetId) = ("duckHealth_" + duckAssetId)
93	93
94	94
95	95		func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
96	96
97	97
98	98		func keyInfraLevelByAssetId (assetId) = ("infraLevel_" + assetId)
99	99
100	100
101	101		func keyLandArtStatusByTypeAndAssetId (type,assetId) = makeString(["landArtStatus", type, assetId], "_")
102	102
103	103
104	104		func keyPresaleArtActivatedByAssetId (assetId) = ("presaleArtActivated_" + assetId)
105	105
106	106
107	107		func asListIntCompacted (val) = match val {
108	108		case valAnyList: List[Any] =>
109	109		if ((size(valAnyList) != NUMRES))
110	110		then throw(("Array size is " + toString(size(valAnyList))))
111	111		else {
112	112		func conv (acc,item) = match item {
113	113		case it: Int =>
114	114		(acc :+ toString(it))
115	115		case _ =>
116	116		throw("List type is not Int")
117	117		}
118	118
119	119		let r = {
120	120		let $l = valAnyList
121	121		let $s = size($l)
122	122		let $acc0 = nil
123	123		func $f0_1 ($a,$i) = if (($i >= $s))
124	124		then $a
125	125		else conv($a, $l[$i])
126	126
127	127		func $f0_2 ($a,$i) = if (($i >= $s))
128	128		then $a
129	129		else throw("List size exceeds 6")
130	130
131	131		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
132	132		}
133	133		makeString(r, "_")
134	134		}
135	135		case _ =>
136	136		throw("fail to cast into List")
137	137		}
138	138
139	139
140	140		func walletInternal (userAddressOpt) = {
141	141		let addr = addressFromString(userAddressOpt)
142	142		let balance = if (isDefined(addr))
143	143		then wavesBalance(value(addr))
144	144		else BalanceDetails(0, 0, 0, 0)
145	145		let usdnBalance = if (isDefined(addr))
146	146		then assetBalance(value(addr), usdnAssetId)
147	147		else 0
148	148		[balance.available, usdnBalance]
149	149		}
150	150
151	151
152	152		func applyBonuses (landAssetId,pieces) = {
153	153		let infraLevel = valueOrElse(getInteger(stakingContract, keyInfraLevelByAssetId(landAssetId)), 0)
154	154		let artPieces = valueOrElse(getInteger(stakingContract, keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), if (valueOrElse(getBoolean(stakingContract, keyPresaleArtActivatedByAssetId(landAssetId)), false))
155	155		then pieces
156	156		else 0)
157	157		$Tuple3(infraLevel, artPieces, ((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, infraLevel, 4)) + fraction(DAILYRESBYPIECE, (artPieces * 3), (pieces * 20))))
158	158		}
159	159
160	160
161	161		func numPiecesBySize (landSize) = match landSize {
162	162		case _ =>
163	163		if (("S" == $match0))
164	164		then SSIZE
165	165		else if (("M" == $match0))
166	166		then MSIZE
167	167		else if (("L" == $match0))
168	168		then LSIZE
169	169		else if (("XL" == $match0))
170	170		then XLSIZE
171	171		else if (("XXL" == $match0))
172	172		then XXLSIZE
173	173		else throw("Unknown land size")
174	174		}
175	175
176	176
177	177		@Callable(i)
178	178		func walletInfoREADONLY (userAddressOpt) = {
179	179		let balances = walletInternal(userAddressOpt)
180	180		$Tuple2(nil, makeString(["%s%d%d", "wallet", toString(balances[0]), toString(balances[1])], SEP))
181	181		}
182	182
183	183
184	184
185	185		@Callable(i)
186	186		func duckInfoREADONLY (duckAssetId,userAddressOpt) = {
187	187		let addr = addressFromString(userAddressOpt)
188	188		let duckAsset = fromBase58String(duckAssetId)
189	189		if ((duckAssetId == ""))
190	190		then throw("duckAssetId is required")
191	191		else {
192	192		let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(duckAssetId)), 0)
193	193		let owner = if ((stakedTime > 0))
194	194		then value(getString(stakingContract, keyDuckIdToOwner(duckAssetId)))
195	195		else if (if (isDefined(addr))
196	196		then (assetBalance(value(addr), duckAsset) == 1)
197	197		else false)
198	198		then userAddressOpt
199	199		else throw("unknown owner")
200	200		let asset = value(assetInfo(duckAsset))
201	201		let name = asset.name
202	202		let curLocation = valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), "")
203	203		let health = valueOrElse(getInteger(stakingContract, keyDuckHealth(duckAssetId)), -1)
204	204		let backpack = valueOrElse(getString(stakingContract, keyBackpackByDuck(duckAssetId)), "0:0_0_0_0_0_0:0_0_0_0_0_0:")
205	205		let balances = walletInternal(userAddressOpt)
206	206		$Tuple2(nil, [("%s%d__stakedTime__" + toString(stakedTime)), ("%s%s__owner__" + owner), ("%s%s__name__" + name), ("%s%s__location__" + curLocation), ("%s%d__health__" + toString(health)), ("%s%s__backPack__" + backpack), makeString(["%s%d%d", "wallet", toString(balances[0]), toString(balances[1])], SEP)])
207	207		}
208	208		}
209	209
210	210
211	211
212	212		@Callable(i)
213	213		func landInfoREADONLY (landAssetId,userAddressOpt) = {
214	214		let addr = addressFromString(userAddressOpt)
215	215		let landAsset = fromBase58String(landAssetId)
216	216		if ((landAssetId == ""))
217	217		then throw("landAssetId is required")
218	218		else {
219	219		let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), 0)
220	220		let owner = if ((stakedTime > 0))
221	221		then value(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)))
222	222		else if (if (isDefined(addr))
223	223		then (assetBalance(value(addr), landAsset) == 1)
224	224		else false)
225	225		then userAddressOpt
226		-	else ~~throw(~~"~~unknown owner~~")
	226	+	else ""
227	227		let descr = value(assetInfo(landAsset)).description
228	228		let pieces = numPiecesBySize(split(descr, "_")[recLandSize])
229	229		let productivity = applyBonuses(landAssetId, pieces)
230	230		let deltaTime = (lastBlock.timestamp - stakedTime)
231	231		let availRes = fraction(deltaTime, (productivity._3 * pieces), DAYMILLIS)
232		-	let resStr = asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [availRes], nil))
	232	+	let resStr = if ((stakedTime > 0))
	233	+	then asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [availRes], nil))
	234	+	else ""
233	235		let needMat = fraction(InfraUpgradeCostS, (pieces * (productivity._1 + 1)), SSIZE)
234	236		let needMatStr = asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [needMat], nil))
235	237		let duckInfo = if (isDefined(addr))
236	238		then {
237	239		let duckAssetId = value(getString(stakingContract, keyStakedDuckByOwner(userAddressOpt)))
238	240		$Tuple4(duckAssetId, valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), ""), valueOrElse(getInteger(stakingContract, keyDuckHealth(duckAssetId)), -1), valueOrElse(getString(stakingContract, keyBackpackByDuck(duckAssetId)), "0:0_0_0_0_0_0:0_0_0_0_0_0:"))
239	241		}
240	242		else $Tuple4("", "", -1, "")
241	243		let balances = walletInternal(userAddressOpt)
242	244		$Tuple2(nil, [("%s%d__stakedTime__" + toString(stakedTime)), ("%s%s__owner__" + owner), ("%s%s__description__" + descr), ("%s%d__infraLevel__" + toString(productivity._1)), ("%s%d__artPieces__" + toString(productivity._2)), ("%s%s__availRes__" + resStr), ("%s%s__needMaterial__" + needMatStr), ("%s%s__duckAssetId__" + duckInfo._1), ("%s%s__location__" + duckInfo._2), ("%s%d__health__" + toString(duckInfo._3)), ("%s%s__backPack__" + duckInfo._4), makeString(["%s%d%d", "wallet", toString(balances[0]), toString(balances[1])], SEP)])
243	245		}
244	246		}
245	247
246	248

github/deemru/w8io/026f985 
34.97 ms ◑