tx · CNbGmGxXbT51HmW5T9HnLSpvLXU6Wi2qEsdeMGo9eySy

3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy:  -0.01000000 Waves

2023.01.17 20:13 [2409216] smart account 3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CNbGmGxXbT51HmW5T9HnLSpvLXU6Wi2qEsdeMGo9eySy",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1673975605998,
    "version": 2,
    "chainId": 84,
    "sender": "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy",
    "senderPublicKey": "C3PaRKeL8AUKbwUqdniMQtThgcTh5DYHV1777Hkxy7rp",
    "proofs": [
        "CQQFVpe4p9AwKNavvEfCCCpGHwKHq7WK9HKtbZbQfGxiCH7jnKxNfKV11yMfVQhXXb9ry7XjiasEicwmjkEWwFA"
    ],
    "script": "base64:BgITCAISAwoBCBIECgIICBIECgIICCQABWNoYWluCQCwCQEJAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZG5Bc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAgFXBQckbWF0Y2gwASC2JinDBPXOU5GkDkt1JC9kjFGx+t+vVCm9SNIdKrKq0QMJAAACAgFUBQckbWF0Y2gwASD3dur394PKZdtuE+4CO89YKZWpwdGN8kvabNgdYoDI3gkAAgECDVVua25vd24gY2hhaW4AD2Vjb25vbXlDb250cmFjdAkBEUBleHRyTmF0aXZlKDEwNjIpAQQHJG1hdGNoMAUFY2hhaW4DCQAAAgIBVwUHJG1hdGNoMAIjM1Ayc2sxS25jU3hSYVpzOGI0Q1dHUHcyamt2dmF2NzR1NEQDCQAAAgIBVAUHJG1hdGNoMAIjM044eTR3eFgzSkM0VGRyQ0pCWFgxNlNqV2Y2WDI1NmhyZXAJAAIBAg1Vbmtub3duIGNoYWluAA9zdGFraW5nQ29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEEByRtYXRjaDAFBWNoYWluAwkAAAICAVcFByRtYXRjaDACIzNQTG5jWHRTMVU4M0Q2Y1FiRkQzSDhyQkhQTGd6eFNGS1oxAwkAAAICAVQFByRtYXRjaDACIzNOREN5Qkc1cTg1SnVhUmlpZ1VlRXRhaW55akNRVDNYcFptCQACAQINVW5rbm93biBjaGFpbgARSW5mcmFVcGdyYWRlQ29zdFMEByRtYXRjaDAFBWNoYWluAwkAAAICAVcFByRtYXRjaDAAxuvAvxcDCQAAAgIBVAUHJG1hdGNoMADwzYkeCQACAQINVW5rbm93biBjaGFpbgAKTEFORFBSRUZJWAIETEFORAAKRFVDS1BSRUZJWAIERFVDSwADU0VQAgJfXwAKQVJUUFJFU0FMRQIHUFJFU0FMRQAPREFJTFlSRVNCWVBJRUNFAID40gEACURBWU1JTExJUwCAuJkpAAZOVU1SRVMABgAFU1NJWkUAGQAFTVNJWkUAZAAFTFNJWkUA4QEABlhMU0laRQCQAwAHWFhMU0laRQDxBAAKcmVjTGFuZE51bQAAAAtyZWNMYW5kU2l6ZQABAAtyZWNUZXJyYWlucwACAAxyZWNDb250aW5lbnQAAwEQa2V5RHVja0lkVG9Pd25lcgEHYXNzZXRJZAkArAICAgpkdWNrT3duZXJfBQdhc3NldElkARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQdhc3NldElkCQCsAgICC3N0YWtlZFRpbWVfBQdhc3NldElkARRrZXlTdGFrZWREdWNrQnlPd25lcgEJb3duZXJBZGRyCQCsAgICEnN0YWtlZER1Y2tCeU93bmVyXwUJb3duZXJBZGRyASJrZXlTdGFrZWRUaW1lQnlUeXBlQXNzZXRJZEFuZE93bmVyAwduZnRUeXBlB2Fzc2V0SWQJb3duZXJBZGRyCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIgc3Rha2VkVGltZUJ5VHlwZUFzc2V0SWRBbmRPd25lcl8FB25mdFR5cGUCAV8FB2Fzc2V0SWQCAV8FCW93bmVyQWRkcgERa2V5QmFja3BhY2tCeUR1Y2sBC2R1Y2tBc3NldElkCQCsAgICCWJhY2tQYWNrXwULZHVja0Fzc2V0SWQBD2tleUR1Y2tMb2NhdGlvbgELZHVja0Fzc2V0SWQJAKwCAgINZHVja0xvY2F0aW9uXwULZHVja0Fzc2V0SWQBDWtleUR1Y2tIZWFsdGgBC2R1Y2tBc3NldElkCQCsAgICC2R1Y2tIZWFsdGhfBQtkdWNrQXNzZXRJZAEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQdhc3NldElkCQCsAgICCW5mdE93bmVyXwUHYXNzZXRJZAEWa2V5SW5mcmFMZXZlbEJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgtpbmZyYUxldmVsXwUHYXNzZXRJZAEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBHR5cGUHYXNzZXRJZAkAuQkCCQDMCAICDWxhbmRBcnRTdGF0dXMJAMwIAgUEdHlwZQkAzAgCBQdhc3NldElkBQNuaWwCAV8BH2tleVByZXNhbGVBcnRBY3RpdmF0ZWRCeUFzc2V0SWQBB2Fzc2V0SWQJAKwCAgIUcHJlc2FsZUFydEFjdGl2YXRlZF8FB2Fzc2V0SWQBEmFzTGlzdEludENvbXBhY3RlZAEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIJTGlzdFtBbnldBAp2YWxBbnlMaXN0BQckbWF0Y2gwAwkBAiE9AgkAkAMBBQp2YWxBbnlMaXN0BQZOVU1SRVMJAAIBCQCsAgICDkFycmF5IHNpemUgaXMgCQCkAwEJAJADAQUKdmFsQW55TGlzdAoBBGNvbnYCA2FjYwRpdGVtBAckbWF0Y2gxBQRpdGVtAwkAAQIFByRtYXRjaDECA0ludAQCaXQFByRtYXRjaDEJAM0IAgUDYWNjCQCkAwEFAml0CQACAQIUTGlzdCB0eXBlIGlzIG5vdCBJbnQEAXIKAAIkbAUKdmFsQW55TGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEY29udgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgkAuQkCBQFyAgFfCQACAQIWZmFpbCB0byBjYXN0IGludG8gTGlzdAEOd2FsbGV0SW50ZXJuYWwBDnVzZXJBZGRyZXNzT3B0BARhZGRyCQCmCAEFDnVzZXJBZGRyZXNzT3B0BAdiYWxhbmNlAwkBCWlzRGVmaW5lZAEFBGFkZHIJAO8HAQkBBXZhbHVlAQUEYWRkcgkBDkJhbGFuY2VEZXRhaWxzBAAAAAAAAAAABAt1c2RuQmFsYW5jZQMJAQlpc0RlZmluZWQBBQRhZGRyCQDwBwIJAQV2YWx1ZQEFBGFkZHIFC3VzZG5Bc3NldElkAAAJAMwIAggFB2JhbGFuY2UJYXZhaWxhYmxlCQDMCAIFC3VzZG5CYWxhbmNlBQNuaWwBDGFwcGx5Qm9udXNlcwILbGFuZEFzc2V0SWQGcGllY2VzBAppbmZyYUxldmVsCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleUluZnJhTGV2ZWxCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAAABAlhcnRQaWVjZXMJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEga2V5TGFuZEFydFN0YXR1c0J5VHlwZUFuZEFzc2V0SWQCBQpBUlRQUkVTQUxFBQtsYW5kQXNzZXRJZAMJAQt2YWx1ZU9yRWxzZQIJAJsIAgUPc3Rha2luZ0NvbnRyYWN0CQEfa2V5UHJlc2FsZUFydEFjdGl2YXRlZEJ5QXNzZXRJZAEFC2xhbmRBc3NldElkBwUGcGllY2VzAAAJAJUKAwUKaW5mcmFMZXZlbAUJYXJ0UGllY2VzCQBkAgkAZAIFD0RBSUxZUkVTQllQSUVDRQkAawMFD0RBSUxZUkVTQllQSUVDRQUKaW5mcmFMZXZlbAAECQBrAwUPREFJTFlSRVNCWVBJRUNFCQBoAgUJYXJ0UGllY2VzAAMJAGgCBQZwaWVjZXMAFAEPbnVtUGllY2VzQnlTaXplAQhsYW5kU2l6ZQQHJG1hdGNoMAUIbGFuZFNpemUDCQAAAgIBUwUHJG1hdGNoMAUFU1NJWkUDCQAAAgIBTQUHJG1hdGNoMAUFTVNJWkUDCQAAAgIBTAUHJG1hdGNoMAUFTFNJWkUDCQAAAgICWEwFByRtYXRjaDAFBlhMU0laRQMJAAACAgNYWEwFByRtYXRjaDAFB1hYTFNJWkUJAAIBAhFVbmtub3duIGxhbmQgc2l6ZQMBaQESd2FsbGV0SW5mb1JFQURPTkxZAQ51c2VyQWRkcmVzc09wdAQIYmFsYW5jZXMJAQ53YWxsZXRJbnRlcm5hbAEFDnVzZXJBZGRyZXNzT3B0CQCUCgIFA25pbAkAuQkCCQDMCAICBiVzJWQlZAkAzAgCAgZ3YWxsZXQJAMwIAgkApAMBCQCRAwIFCGJhbGFuY2VzAAAJAMwIAgkApAMBCQCRAwIFCGJhbGFuY2VzAAEFA25pbAUDU0VQAWkBEGR1Y2tJbmZvUkVBRE9OTFkCC2R1Y2tBc3NldElkDnVzZXJBZGRyZXNzT3B0BARhZGRyCQCmCAEFDnVzZXJBZGRyZXNzT3B0BAlkdWNrQXNzZXQJANkEAQULZHVja0Fzc2V0SWQDCQAAAgULZHVja0Fzc2V0SWQCAAkAAgECF2R1Y2tBc3NldElkIGlzIHJlcXVpcmVkBApzdGFrZWRUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtkdWNrQXNzZXRJZAAABAVvd25lcgMJAGYCBQpzdGFrZWRUaW1lAAAJAQV2YWx1ZQEJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEQa2V5RHVja0lkVG9Pd25lcgEFC2R1Y2tBc3NldElkAwMJAQlpc0RlZmluZWQBBQRhZGRyCQAAAgkA8AcCCQEFdmFsdWUBBQRhZGRyBQlkdWNrQXNzZXQAAQcFDnVzZXJBZGRyZXNzT3B0CQACAQINdW5rbm93biBvd25lcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUJZHVja0Fzc2V0BARuYW1lCAUFYXNzZXQEbmFtZQQLY3VyTG9jYXRpb24JAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQCAAQGaGVhbHRoCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBDWtleUR1Y2tIZWFsdGgBBQtkdWNrQXNzZXRJZAD///////////8BBAhiYWNrcGFjawkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkAhowOjBfMF8wXzBfMF8wOjBfMF8wXzBfMF8wOgQIYmFsYW5jZXMJAQ53YWxsZXRJbnRlcm5hbAEFDnVzZXJBZGRyZXNzT3B0CQCUCgIFA25pbAkAzAgCCQCsAgICEiVzJWRfX3N0YWtlZFRpbWVfXwkApAMBBQpzdGFrZWRUaW1lCQDMCAIJAKwCAgINJXMlc19fb3duZXJfXwUFb3duZXIJAMwIAgkArAICAgwlcyVzX19uYW1lX18FBG5hbWUJAMwIAgkArAICAhAlcyVzX19sb2NhdGlvbl9fBQtjdXJMb2NhdGlvbgkAzAgCCQCsAgICDiVzJWRfX2hlYWx0aF9fCQCkAwEFBmhlYWx0aAkAzAgCCQCsAgICECVzJXNfX2JhY2tQYWNrX18FCGJhY2twYWNrCQDMCAIJALkJAgkAzAgCAgYlcyVkJWQJAMwIAgIGd2FsbGV0CQDMCAIJAKQDAQkAkQMCBQhiYWxhbmNlcwAACQDMCAIJAKQDAQkAkQMCBQhiYWxhbmNlcwABBQNuaWwFA1NFUAUDbmlsAWkBEGxhbmRJbmZvUkVBRE9OTFkCC2xhbmRBc3NldElkDnVzZXJBZGRyZXNzT3B0BARhZGRyCQCmCAEFDnVzZXJBZGRyZXNzT3B0BAlsYW5kQXNzZXQJANkEAQULbGFuZEFzc2V0SWQDCQAAAgULbGFuZEFzc2V0SWQCAAkAAgECF2xhbmRBc3NldElkIGlzIHJlcXVpcmVkBApzdGFrZWRUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAAABAVvd25lcgMJAGYCBQpzdGFrZWRUaW1lAAAJAQV2YWx1ZQEJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQDAwkBCWlzRGVmaW5lZAEFBGFkZHIJAAACCQDwBwIJAQV2YWx1ZQEFBGFkZHIFCWxhbmRBc3NldAABBwUOdXNlckFkZHJlc3NPcHQJAAIBAg11bmtub3duIG93bmVyBAVkZXNjcggJAQV2YWx1ZQEJAOwHAQUJbGFuZEFzc2V0C2Rlc2NyaXB0aW9uBAZwaWVjZXMJAQ9udW1QaWVjZXNCeVNpemUBCQCRAwIJALUJAgUFZGVzY3ICAV8FC3JlY0xhbmRTaXplBAxwcm9kdWN0aXZpdHkJAQxhcHBseUJvbnVzZXMCBQtsYW5kQXNzZXRJZAUGcGllY2VzBAlkZWx0YVRpbWUJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUKc3Rha2VkVGltZQQIYXZhaWxSZXMJAGsDBQlkZWx0YVRpbWUJAGgCCAUMcHJvZHVjdGl2aXR5Al8zBQZwaWVjZXMFCURBWU1JTExJUwQGcmVzU3RyCQESYXNMaXN0SW50Q29tcGFjdGVkAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCGnNwbGl0QnlQcm9wb3J0aW9uc1JFQURPTkxZCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAQHbmVlZE1hdAkAawMFEUluZnJhVXBncmFkZUNvc3RTCQBoAgUGcGllY2VzCQBkAggFDHByb2R1Y3Rpdml0eQJfMQABBQVTU0laRQQKbmVlZE1hdFN0cgkBEmFzTGlzdEludENvbXBhY3RlZAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AhpzcGxpdEJ5UHJvcG9ydGlvbnNSRUFET05MWQkAzAgCBQduZWVkTWF0BQNuaWwFA25pbAQIZHVja0luZm8DCQEJaXNEZWZpbmVkAQUEYWRkcgQLZHVja0Fzc2V0SWQJAQV2YWx1ZQEJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQ51c2VyQWRkcmVzc09wdAkAlgoEBQtkdWNrQXNzZXRJZAkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAIACQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBDWtleUR1Y2tIZWFsdGgBBQtkdWNrQXNzZXRJZAD///////////8BCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQCGjA6MF8wXzBfMF8wXzA6MF8wXzBfMF8wXzA6CQCWCgQCAAIAAP///////////wECAAQIYmFsYW5jZXMJAQ53YWxsZXRJbnRlcm5hbAEFDnVzZXJBZGRyZXNzT3B0CQCUCgIFA25pbAkAzAgCCQCsAgICEiVzJWRfX3N0YWtlZFRpbWVfXwkApAMBBQpzdGFrZWRUaW1lCQDMCAIJAKwCAgINJXMlc19fb3duZXJfXwUFb3duZXIJAMwIAgkArAICAhMlcyVzX19kZXNjcmlwdGlvbl9fBQVkZXNjcgkAzAgCCQCsAgICEiVzJWRfX2luZnJhTGV2ZWxfXwkApAMBCAUMcHJvZHVjdGl2aXR5Al8xCQDMCAIJAKwCAgIRJXMlZF9fYXJ0UGllY2VzX18JAKQDAQgFDHByb2R1Y3Rpdml0eQJfMgkAzAgCCQCsAgICECVzJXNfX2F2YWlsUmVzX18FBnJlc1N0cgkAzAgCCQCsAgICFCVzJXNfX25lZWRNYXRlcmlhbF9fBQpuZWVkTWF0U3RyCQDMCAIJAKwCAgITJXMlc19fZHVja0Fzc2V0SWRfXwgFCGR1Y2tJbmZvAl8xCQDMCAIJAKwCAgIQJXMlc19fbG9jYXRpb25fXwgFCGR1Y2tJbmZvAl8yCQDMCAIJAKwCAgIOJXMlZF9faGVhbHRoX18JAKQDAQgFCGR1Y2tJbmZvAl8zCQDMCAIJAKwCAgIQJXMlc19fYmFja1BhY2tfXwgFCGR1Y2tJbmZvAl80CQDMCAIJALkJAgkAzAgCAgYlcyVkJWQJAMwIAgIGd2FsbGV0CQDMCAIJAKQDAQkAkQMCBQhiYWxhbmNlcwAACQDMCAIJAKQDAQkAkQMCBQhiYWxhbmNlcwABBQNuaWwFA1NFUAUDbmlsAMzMgz4=",
    "height": 2409216,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8HMZYJMs9UXbDHsgvNRp6HwckFteiC9jLyBofqXirWQy
Next: 5KcT4xXUZVYQvXbnho3Vpc9Qt8aJnW7u3fDe8r8y7Ch6

Diff: 
Old
New
Differences
30
30
 
                else throw("Unknown chain")
31
31
 
})
32
32
 
33
+
let InfraUpgradeCostS = match chain {
34
+
    case _ => 
35
+
        if (("W" == $match0))
36
+
            then 6307198406
37
+
            else if (("T" == $match0))
38
+
                then 63071984
39
+
                else throw("Unknown chain")
40
+
}
41
+
33
42
 
let LANDPREFIX = "LAND"
34
43
 
35
44
 
let DUCKPREFIX = "DUCK"
36
45
 
37
46
 
let SEP = "__"
47
+
48
+
let ARTPRESALE = "PRESALE"
49
+
50
+
let DAILYRESBYPIECE = 3456000
51
+
52
+
let DAYMILLIS = 86400000
53
+
54
+
let NUMRES = 6
55
+
56
+
let SSIZE = 25
57
+
58
+
let MSIZE = 100
59
+
60
+
let LSIZE = 225
61
+
62
+
let XLSIZE = 400
63
+
64
+
let XXLSIZE = 625
65
+
66
+
let recLandNum = 0
67
+
68
+
let recLandSize = 1
69
+
70
+
let recTerrains = 2
71
+
72
+
let recContinent = 3
38
73
 
39
74
 
func keyDuckIdToOwner (assetId) = ("duckOwner_" + assetId)
40
75
 
57
92
 
func keyDuckHealth (duckAssetId) = ("duckHealth_" + duckAssetId)
58
93
 
59
94
 
95
+
func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
96
+
97
+
98
+
func keyInfraLevelByAssetId (assetId) = ("infraLevel_" + assetId)
99
+
100
+
101
+
func keyLandArtStatusByTypeAndAssetId (type,assetId) = makeString(["landArtStatus", type, assetId], "_")
102
+
103
+
104
+
func keyPresaleArtActivatedByAssetId (assetId) = ("presaleArtActivated_" + assetId)
105
+
106
+
107
+
func asListIntCompacted (val) = match val {
108
+
    case valAnyList: List[Any] => 
109
+
        if ((size(valAnyList) != NUMRES))
110
+
            then throw(("Array size is " + toString(size(valAnyList))))
111
+
            else {
112
+
                func conv (acc,item) =                                 match item {
113
+
                    case it: Int => 
114
+
                        (acc :+ toString(it))
115
+
                    case _ => 
116
+
                        throw("List type is not Int")
117
+
                }
118
+
119
+
                let r = {
120
+
                    let $l = valAnyList
121
+
                    let $s = size($l)
122
+
                    let $acc0 = nil
123
+
                    func $f0_1 ($a,$i) =                     if (($i >= $s))
124
+
                        then $a
125
+
                        else conv($a, $l[$i])
126
+
127
+
                    func $f0_2 ($a,$i) =                     if (($i >= $s))
128
+
                        then $a
129
+
                        else throw("List size exceeds 6")
130
+
131
+
                    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
132
+
                    }
133
+
                makeString(r, "_")
134
+
                }
135
+
    case _ => 
136
+
        throw("fail to cast into List")
137
+
}
138
+
139
+
60
140
 
func walletInternal (userAddressOpt) = {
61
141
 
    let addr = addressFromString(userAddressOpt)
62
142
 
    let balance = if (isDefined(addr))
67
147
 
        else 0
68
148
 
[balance.available, usdnBalance]
69
149
 
    }
150
+
151
+
152
+
func applyBonuses (landAssetId,pieces) = {
153
+
    let infraLevel = valueOrElse(getInteger(stakingContract, keyInfraLevelByAssetId(landAssetId)), 0)
154
+
    let artPieces = valueOrElse(getInteger(stakingContract, keyLandArtStatusByTypeAndAssetId(ARTPRESALE, landAssetId)), if (valueOrElse(getBoolean(stakingContract, keyPresaleArtActivatedByAssetId(landAssetId)), false))
155
+
        then pieces
156
+
        else 0)
157
+
    $Tuple3(infraLevel, artPieces, ((DAILYRESBYPIECE + fraction(DAILYRESBYPIECE, infraLevel, 4)) + fraction(DAILYRESBYPIECE, (artPieces * 3), (pieces * 20))))
158
+
    }
159
+
160
+
161
+
func numPiecesBySize (landSize) = match landSize {
162
+
    case _ => 
163
+
        if (("S" == $match0))
164
+
            then SSIZE
165
+
            else if (("M" == $match0))
166
+
                then MSIZE
167
+
                else if (("L" == $match0))
168
+
                    then LSIZE
169
+
                    else if (("XL" == $match0))
170
+
                        then XLSIZE
171
+
                        else if (("XXL" == $match0))
172
+
                            then XXLSIZE
173
+
                            else throw("Unknown land size")
174
+
}
70
175
 
71
176
 
72
177
 
@Callable(i)
103
208
 
    }
104
209
 
105
210
 
211
+
212
+
@Callable(i)
213
+
func landInfoREADONLY (landAssetId,userAddressOpt) = {
214
+
    let addr = addressFromString(userAddressOpt)
215
+
    let landAsset = fromBase58String(landAssetId)
216
+
    if ((landAssetId == ""))
217
+
        then throw("landAssetId is required")
218
+
        else {
219
+
            let stakedTime = valueOrElse(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId)), 0)
220
+
            let owner = if ((stakedTime > 0))
221
+
                then value(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)))
222
+
                else if (if (isDefined(addr))
223
+
                    then (assetBalance(value(addr), landAsset) == 1)
224
+
                    else false)
225
+
                    then userAddressOpt
226
+
                    else throw("unknown owner")
227
+
            let descr = value(assetInfo(landAsset)).description
228
+
            let pieces = numPiecesBySize(split(descr, "_")[recLandSize])
229
+
            let productivity = applyBonuses(landAssetId, pieces)
230
+
            let deltaTime = (lastBlock.timestamp - stakedTime)
231
+
            let availRes = fraction(deltaTime, (productivity._3 * pieces), DAYMILLIS)
232
+
            let resStr = asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [availRes], nil))
233
+
            let needMat = fraction(InfraUpgradeCostS, (pieces * (productivity._1 + 1)), SSIZE)
234
+
            let needMatStr = asListIntCompacted(invoke(stakingContract, "splitByProportionsREADONLY", [needMat], nil))
235
+
            let duckInfo = if (isDefined(addr))
236
+
                then {
237
+
                    let duckAssetId = value(getString(stakingContract, keyStakedDuckByOwner(userAddressOpt)))
238
+
                    $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
+
                    }
240
+
                else $Tuple4("", "", -1, "")
241
+
            let balances = walletInternal(userAddressOpt)
242
+
            $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
+
            }
244
+
    }
245
+
246
+

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

github/deemru/w8io/169f3d6 
97.80 ms ◑