w8 · tx · GUL···LH2

tx · GULLEXUBbfTbErtqqDXY8KNzgMdavh3myzqQFFKGkLH2

3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm:  -0.01300000 Waves

2022.12.14 23:11 [2360450] smart account 3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GULLEXUBbfTbErtqqDXY8KNzgMdavh3myzqQFFKGkLH2",
    "fee": 1300000,
    "feeAssetId": null,
    "timestamp": 1671048730528,
    "version": 2,
    "chainId": 84,
    "sender": "3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm",
    "senderPublicKey": "EVooykMNV691Venwp1dHUTBd7KWequzUcda57Wd3LQEX",
    "proofs": [
        "5HfuMXy7dFhgGSVEkMGbAh1YcQszQJyvAEQgPvVt7WMsj9G8gmnCYtM4Hfd16rRi1u1NjUzJyrg4KpSqpJtkZfZb"
    ],
    "script": "base64:BgIuCAISABIDCgEIEgASAwoBCBIECgIBCBIECgICAhIECgIBCBIECgIBARIECgIICCcABWNoYWluCQCwCQEJAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZG5Bc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAgFXBQckbWF0Y2gwASC2JinDBPXOU5GkDkt1JC9kjFGx+t+vVCm9SNIdKrKq0QMJAAACAgFUBQckbWF0Y2gwASD3dur394PKZdtuE+4CO89YKZWpwdGN8kvabNgdYoDI3gkAAgECDVVua25vd24gY2hhaW4ADWluY3ViYXRvckFkZHIEByRtYXRjaDAFBWNoYWluAwkAAAICAVcFByRtYXRjaDAJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNQRWt0VnV4MlJoY2hTTjYzRHNEbzRiNG16NFFxektTZUR2AwkAAAICAVQFByRtYXRjaDAFBHRoaXMJAAIBAg1Vbmtub3duIGNoYWluAAticmVlZGVyQWRkcgQHJG1hdGNoMAUFY2hhaW4DCQAAAgIBVwUHJG1hdGNoMAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM1BEVnVVNDVIN0VoNWRtdE5iblJOUlN0R3dVTEE3Tlk2SGIDCQAAAgIBVAUHJG1hdGNoMAUEdGhpcwkAAgECDVVua25vd24gY2hhaW4AC2Vjb25vbXlBZGRyBAckbWF0Y2gwBQVjaGFpbgMJAAACAgFXBQckbWF0Y2gwCQERQGV4dHJOYXRpdmUoMTA2MikBAiMzUDJzazFLbmNTeFJhWnM4YjRDV0dQdzJqa3Z2YXY3NHU0RAMJAAACAgFUBQckbWF0Y2gwCQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjh5NHd4WDNKQzRUZHJDSkJYWDE2U2pXZjZYMjU2aHJlcAkAAgECDVVua25vd24gY2hhaW4AA3B1YgEgT1PiGj9UqNadUk4THUYnVb2zU/Mse8lUVLD/Q8G0FCgACEhFQUxDT1NUAJBOAApMQU5EUFJFRklYAgRMQU5EAApEVUNLUFJFRklYAgREVUNLAA9ERUZBVUxUTE9DQVRJT04CD0FmcmljYV9GX0FmcmljYQAGTlVNUkVTAAYAD0RBSUxZUkVTQllQSUVDRQCA+NIBAAlEQVlNSUxMSVMAgLiZKQARRklWRU1JTlVURVNNSUxMSVMA4KcSAAhtYXRUeXBlcwkAzAgCAgRGdWVsCQDMCAICBU1ldGFsCQDMCAICBVBsYW5rCQDMCAICBUdsYXNzCQDMCAICB1BsYXN0aWMJAMwIAgIHUHJvdGVpbgUDbmlsARFrZXlBc3NldElkVG9Pd25lcgEHYXNzZXRJZAkArAICAgluZnRPd25lcl8FB2Fzc2V0SWQBEGtleUR1Y2tJZFRvT3duZXIBB2Fzc2V0SWQJAKwCAgIKZHVja093bmVyXwUHYXNzZXRJZAEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgtzdGFrZWRUaW1lXwUHYXNzZXRJZAEUa2V5U3Rha2VkRHVja0J5T3duZXIBCW93bmVyQWRkcgkArAICAhJzdGFrZWREdWNrQnlPd25lcl8FCW93bmVyQWRkcgEia2V5U3Rha2VkVGltZUJ5VHlwZUFzc2V0SWRBbmRPd25lcgMHbmZ0VHlwZQdhc3NldElkCW93bmVyQWRkcgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICIHN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXJfBQduZnRUeXBlAgFfBQdhc3NldElkAgFfBQlvd25lckFkZHIBDmtleUxhbmRUb093bmVyAQdsYW5kTnVtCQCsAgICCmxhbmRPd25lcl8FB2xhbmROdW0BEWtleUJhY2twYWNrQnlEdWNrAQtkdWNrQXNzZXRJZAkArAICAgliYWNrUGFja18FC2R1Y2tBc3NldElkAQ9rZXlEdWNrTG9jYXRpb24BC2R1Y2tBc3NldElkCQCsAgICDWR1Y2tMb2NhdGlvbl8FC2R1Y2tBc3NldElkAQ1rZXlEdWNrSGVhbHRoAQtkdWNrQXNzZXRJZAkArAICAgtkdWNrSGVhbHRoXwULZHVja0Fzc2V0SWQACnJlY0xhbmROdW0AAAALcmVjTGFuZFNpemUAAQALcmVjVGVycmFpbnMAAgAMcmVjQ29udGluZW50AAMAD2xvY0lkeENvbnRpbmVudAAAAApsb2NJZHhUeXBlAAEACGxvY0lkeElkAAIACmJwSWR4TGV2ZWwAAAAIYnBJZHhSZXMAAQAIYnBJZHhNYXQAAgAJYnBJZHhQcm9kAAMBDWNvdW50VGVycmFpbnMBCHRlcnJhaW5zCQDMCAIJAGUCCQCQAwEJALUJAgUIdGVycmFpbnMCAUEAAQkAzAgCCQBlAgkAkAMBCQC1CQIFCHRlcnJhaW5zAgFCAAEJAMwIAgkAZQIJAJADAQkAtQkCBQh0ZXJyYWlucwIBQwABCQDMCAIJAGUCCQCQAwEJALUJAgUIdGVycmFpbnMCAUQAAQkAzAgCCQBlAgkAkAMBCQC1CQIFCHRlcnJhaW5zAgFFAAEJAMwIAgkAZQIJAJADAQkAtQkCBQh0ZXJyYWlucwIBRgABBQNuaWwBD251bVBpZWNlc0J5U2l6ZQEIbGFuZFNpemUEByRtYXRjaDAFCGxhbmRTaXplAwkAAAICAVMFByRtYXRjaDAAGQMJAAACAgFNBQckbWF0Y2gwAGQDCQAAAgIBTAUHJG1hdGNoMADhAQMJAAACAgJYTAUHJG1hdGNoMACQAwMJAAACAgNYWEwFByRtYXRjaDAA8QQJAAIBAhFVbmtub3duIGxhbmQgc2l6ZQEMc3ViT25lSW5MaXN0AwVhTGlzdANpZHgGYW1vdW50CgEGc3ViYmVyAgNhY2MBaQkAzQgCBQNhY2MDCQAAAgUBaQUDaWR4CQCkAwEJAGUCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUFYUxpc3QFAWkFBmFtb3VudAkAkQMCBQVhTGlzdAUBaQQBcgoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBnN1YmJlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgkAuQkCBQFyAgFfAQZhZGRSZXMECmN1cnJlbnRSZXMNdGVycmFpbkNvdW50cwlkZWx0YVRpbWUNbGFuZFNpemVJbmRleAoBBWFkZGVyAgNhY2MBaQQJcmVzT2ZUeXBlCQBoAgkAaAIJAGsDBQlkZWx0YVRpbWUFD0RBSUxZUkVTQllQSUVDRQUJREFZTUlMTElTCQCRAwIFDXRlcnJhaW5Db3VudHMFAWkFDWxhbmRTaXplSW5kZXgJAM0IAgUDYWNjCQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKY3VycmVudFJlcwUBaQUJcmVzT2ZUeXBlBAFyCgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEFYWRkZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYJALkJAgUBcgIBXwkBaQEJc3Rha2VMYW5kAAQDcG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAEB2Fzc2V0SWQJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCAUDcG10BmFtb3VudAABCQACAQkArAICCQCsAgICBE5GVCAFCkxBTkRQUkVGSVgCJCB0b2tlbiBzaG91bGQgYmUgYXR0YWNoZWQgYXMgcGF5bWVudAQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAMJAQIhPQIIBQVhc3NldAZpc3N1ZXIFBHRoaXMJAAIBAhdVbmtub3duIGlzc3VlciBvZiB0b2tlbgMJAQEhAQkBCGNvbnRhaW5zAggFBWFzc2V0BG5hbWUFCkxBTkRQUkVGSVgJAAIBCQCsAgIJAKwCAgIJT25seSBORlQgBQpMQU5EUFJFRklYAhQgdG9rZW5zIGFyZSBhY2NlcHRlZAQLbGFuZE51bVNpemUJALACAggFBWFzc2V0BG5hbWUABAQHbGFuZE51bQMJAQhjb250YWlucwIFC2xhbmROdW1TaXplAgNYWEwJALMCAgULbGFuZE51bVNpemUAAwMJAQhjb250YWlucwIFC2xhbmROdW1TaXplAgJYTAkAswICBQtsYW5kTnVtU2l6ZQACCQCzAgIFC2xhbmROdW1TaXplAAEDCQEBIQEJAQlpc0RlZmluZWQBCQC2CQEFB2xhbmROdW0JAAIBCQCsAgICHkNhbm5vdCBwYXJzZSBsYW5kIG51bWJlciBmcm9tIAgFBWFzc2V0BG5hbWUEB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQkA2AQBBQdhc3NldElkAwkBCWlzRGVmaW5lZAEJAJ8IAQUHdGltZUtleQkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQISIGlzIGFscmVhZHkgc3Rha2VkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBImtleVN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXIDBQpMQU5EUFJFRklYCQDYBAEFB2Fzc2V0SWQFB2FkZHJlc3MIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQtTdHJpbmdFbnRyeQIJARFrZXlBc3NldElkVG9Pd25lcgEJANgEAQUHYXNzZXRJZAUHYWRkcmVzcwkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5TGFuZFRvT3duZXIBBQdsYW5kTnVtBQdhZGRyZXNzBQNuaWwBaQELdW5zdGFrZUxhbmQBC2xhbmRBc3NldElkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIkdW5zdGFrZSBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBAdhc3NldElkCQDZBAEFC2xhbmRBc3NldElkBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAMJAQIhPQIIBQVhc3NldAZpc3N1ZXIFBHRoaXMJAAIBAhdVbmtub3duIGlzc3VlciBvZiB0b2tlbgMJAQEhAQkBCGNvbnRhaW5zAggFBWFzc2V0BG5hbWUFCkxBTkRQUkVGSVgJAAIBCQCsAgIJAKwCAgIJT25seSBORlQgBQpMQU5EUFJFRklYAhcgdG9rZW5zIGNhbiBiZSB1bnN0YWtlZAQHdGltZUtleQkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQtsYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEFB3RpbWVLZXkJAAIBCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARFrZXlBc3NldElkVG9Pd25lcgEFC2xhbmRBc3NldElkCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMJAQIhPQIFBW93bmVyBQdhZGRyZXNzCQACAQIXU3Rha2VkIE5GVCBpcyBub3QgeW91cnMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyAAEFB2Fzc2V0SWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQUHdGltZUtleQkAzAgCCQELRGVsZXRlRW50cnkBCQEia2V5U3Rha2VkVGltZUJ5VHlwZUFzc2V0SWRBbmRPd25lcgMFCkxBTkRQUkVGSVgFC2xhbmRBc3NldElkBQdhZGRyZXNzBQNuaWwBaQEJc3Rha2VEdWNrAAQDcG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAEB2Fzc2V0SWQJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCAUDcG10BmFtb3VudAABCQACAQkArAICCQCsAgICBE5GVCAFCkRVQ0tQUkVGSVgCJCB0b2tlbiBzaG91bGQgYmUgYXR0YWNoZWQgYXMgcGF5bWVudAQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAMDCQECIT0CCAUFYXNzZXQGaXNzdWVyBQ1pbmN1YmF0b3JBZGRyCQECIT0CCAUFYXNzZXQGaXNzdWVyBQticmVlZGVyQWRkcgcJAAIBCQCsAgIJAKwCAgISVW5rbm93biBpc3N1ZXIgb2YgBQpEVUNLUFJFRklYAgYgdG9rZW4DCQEBIQEJAQhjb250YWlucwIIBQVhc3NldARuYW1lBQpEVUNLUFJFRklYCQACAQkArAICCQCsAgICCU9ubHkgTkZUIAUKRFVDS1BSRUZJWAIUIHRva2VucyBhcmUgYWNjZXB0ZWQECmFzc2V0SWRTdHIJANgEAQUHYXNzZXRJZAQHdGltZUtleQkBFmtleVN0YWtlZFRpbWVCeUFzc2V0SWQBBQphc3NldElkU3RyAwkBCWlzRGVmaW5lZAEJAJ8IAQUHdGltZUtleQkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQISIGlzIGFscmVhZHkgc3Rha2VkAwkBCWlzRGVmaW5lZAEJAKIIAQkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUHYWRkcmVzcwkAAgEJAKwCAgIdWW91IGFscmVhZHkgc3Rha2VkIG9uZSBkdWNrOiAIBQVhc3NldARuYW1lBAZsb2NLZXkJAQ9rZXlEdWNrTG9jYXRpb24BBQphc3NldElkU3RyBAhsb2NhdGlvbgkAoggBBQZsb2NLZXkECWtleUhlYWx0aAkBDWtleUR1Y2tIZWFsdGgBBQphc3NldElkU3RyBAZoZWFsdGgJAJ8IAQUJa2V5SGVhbHRoBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQUKYXNzZXRJZFN0cgQIYmFja3BhY2sJAKIIAQUFYnBLZXkJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUHdGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJASJrZXlTdGFrZWRUaW1lQnlUeXBlQXNzZXRJZEFuZE93bmVyAwUKRFVDS1BSRUZJWAkA2AQBBQdhc3NldElkBQdhZGRyZXNzCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQELU3RyaW5nRW50cnkCCQEQa2V5RHVja0lkVG9Pd25lcgEFCmFzc2V0SWRTdHIFB2FkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUHYWRkcmVzcwUKYXNzZXRJZFN0cgUDbmlsAwkBCWlzRGVmaW5lZAEFCGxvY2F0aW9uBQNuaWwJAM4IAgkAzAgCCQELU3RyaW5nRW50cnkCBQZsb2NLZXkFD0RFRkFVTFRMT0NBVElPTgUDbmlsAwkBCWlzRGVmaW5lZAEFBmhlYWx0aAUDbmlsCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtleUhlYWx0aABkBQNuaWwDCQEJaXNEZWZpbmVkAQUIYmFja3BhY2sFA25pbAkAzAgCCQELU3RyaW5nRW50cnkCBQVicEtleQIaMDowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDoFA25pbAFpAQt1bnN0YWtlRHVjawEKYXNzZXRJZFN0cgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECJHVuc3Rha2UgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQHYXNzZXRJZAkA2QQBBQphc3NldElkU3RyBAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAMDCQECIT0CCAUFYXNzZXQGaXNzdWVyBQ1pbmN1YmF0b3JBZGRyCQECIT0CCAUFYXNzZXQGaXNzdWVyBQticmVlZGVyQWRkcgcJAAIBCQCsAgIJAKwCAgISVW5rbm93biBpc3N1ZXIgb2YgBQpEVUNLUFJFRklYAgYgdG9rZW4DCQEBIQEJAQhjb250YWlucwIIBQVhc3NldARuYW1lBQpEVUNLUFJFRklYCQACAQkArAICCQCsAgICCU9ubHkgTkZUIAUKRFVDS1BSRUZJWAIXIHRva2VucyBjYW4gYmUgdW5zdGFrZWQEB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQkA2AQBBQdhc3NldElkAwkBASEBCQEJaXNEZWZpbmVkAQUHdGltZUtleQkAAgEJAKwCAgkArAICAgRORlQgCAUFYXNzZXQEbmFtZQIOIGlzIG5vdCBzdGFrZWQDCQEBIQEJAQlpc0RlZmluZWQBCQEUa2V5U3Rha2VkRHVja0J5T3duZXIBBQdhZGRyZXNzCQACAQkArAICCQCsAgICCVRoZSBkdWNrIAgFBWFzc2V0BG5hbWUCDiBpcyBub3Qgc3Rha2VkBAVvd25lcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARBrZXlEdWNrSWRUb093bmVyAQkA2AQBBQdhc3NldElkCQCsAgIJAKwCAgIETkZUIAgFBWFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMJAQIhPQIFBW93bmVyBQdhZGRyZXNzCQACAQIXU3Rha2VkIE5GVCBpcyBub3QgeW91cnMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyAAEFB2Fzc2V0SWQJAMwIAgkBC0RlbGV0ZUVudHJ5AQUHdGltZUtleQkAzAgCCQELRGVsZXRlRW50cnkBCQEPa2V5RHVja0xvY2F0aW9uAQUKYXNzZXRJZFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQEia2V5U3Rha2VkVGltZUJ5VHlwZUFzc2V0SWRBbmRPd25lcgMFCkRVQ0tQUkVGSVgFCmFzc2V0SWRTdHIFB2FkZHJlc3MJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQUHYWRkcmVzcwUDbmlsAWkBCGNsYWltUmVzAgZhbW91bnQLbGFuZEFzc2V0SWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAiVjbGFpbVJlcyBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBARhZGRyCQClCAEIBQFpBmNhbGxlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAMJAQEhAQkBCGNvbnRhaW5zAggFBWFzc2V0BG5hbWUFCkxBTkRQUkVGSVgJAAIBCQCsAgIJAKwCAgIETkZUIAUKTEFORFBSRUZJWAIgIHRva2VuIHNob3VsZCBiZSBwYXNzZWQgYXMgcGFyYW0EB3RpbWVLZXkJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQECXNhdmVkVGltZQkAnwgBBQd0aW1lS2V5AwkBASEBCQEJaXNEZWZpbmVkAQUJc2F2ZWRUaW1lCQACAQkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAg4gaXMgbm90IHN0YWtlZAQFb3duZXIJARFAZXh0ck5hdGl2ZSgxMDU4KQEJARFrZXlBc3NldElkVG9Pd25lcgEFC2xhbmRBc3NldElkAwkBAiE9AgUFb3duZXIFBGFkZHIJAAIBCQCsAgIFCkxBTkRQUkVGSVgCDSBpcyBub3QgeW91cnMEAWQJALUJAggFBWFzc2V0C2Rlc2NyaXB0aW9uAgFfBAhsYW5kU2l6ZQkAkQMCBQFkBQtyZWNMYW5kU2l6ZQQNdGVycmFpbkNvdW50cwkBDWNvdW50VGVycmFpbnMBCQCRAwIFAWQFC3JlY1RlcnJhaW5zBARkdWNrCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFBGFkZHIDCQEBIQEJAQlpc0RlZmluZWQBBQRkdWNrCQACAQIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAQOZHVja0Fzc2V0SWRTdHIJAQV2YWx1ZQEFBGR1Y2sEC2N1ckxvY2F0aW9uCQELdmFsdWVPckVsc2UCCQCiCAEJAQ9rZXlEdWNrTG9jYXRpb24BBQ5kdWNrQXNzZXRJZFN0cgUPREVGQVVMVExPQ0FUSU9OBANsb2MJALUJAgkBBXZhbHVlAQULY3VyTG9jYXRpb24CAV8DCQECIT0CCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIBTAkAAgEJAKwCAgkArAICAhZEdWNrIGxvY2F0aW9uIHR5cGUgaXMgCQCRAwIFA2xvYwUKbG9jSWR4VHlwZQIRLCBidXQgc2hvdWxkIGJlIEwDCQECIT0CCQCRAwIFA2xvYwUIbG9jSWR4SWQFC2xhbmRBc3NldElkCQACAQkArAICCQCsAgIJAKwCAgIURHVjayBsb2NhdGlvbiBpZCBpcyAJAJEDAgUDbG9jBQhsb2NJZHhJZAIQLCBidXQgc2hvdWxkIGJlIAULbGFuZEFzc2V0SWQECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQEFdmFsdWUBBQlzYXZlZFRpbWUDCQBmAgAABQlkZWx0YVRpbWUJAAIBCQCsAgIJAKwCAgkArAICAiZTYXZlZCB0aW1lc3RhbXAgaXMgaW4gZnV0dXJlLCBzYXZlZCA9IAkApAMBCQEFdmFsdWUBBQlzYXZlZFRpbWUCDCwgY3VycmVudCA9IAkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQGcGllY2VzCQEPbnVtUGllY2VzQnlTaXplAQUIbGFuZFNpemUECGF2YWlsUmVzCQBoAgkAawMFCWRlbHRhVGltZQUPREFJTFlSRVNCWVBJRUNFBQlEQVlNSUxMSVMFBnBpZWNlcwMJAGYCBQZhbW91bnQFCGF2YWlsUmVzCQACAQkArAICCQCsAgIJAKwCAgIiTm90IGVub3VnaCByZXNvdXJjZXMsIGF2YWlsYWJsZSA9IAkApAMBBQhhdmFpbFJlcwIOLCByZXF1ZXN0ZWQgPSAJAKQDAQUGYW1vdW50BAxuZXdEZWx0YVRpbWUJAGsDCQBlAgUIYXZhaWxSZXMFBmFtb3VudAUJREFZTUlMTElTCQBoAgUGcGllY2VzBQ9EQUlMWVJFU0JZUElFQ0UEDG5ld1RpbWVzdGFtcAkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQxuZXdEZWx0YVRpbWUEBWJwS2V5CQERa2V5QmFja3BhY2tCeUR1Y2sBBQ5kdWNrQXNzZXRJZFN0cgQLY3VycmVudFBhY2sJALUJAgkBC3ZhbHVlT3JFbHNlAgkAoggBBQVicEtleQIaMDowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDoCAToECmN1cnJlbnRSZXMJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMCAV8EBWJwUmVzCQEGYWRkUmVzBAUKY3VycmVudFJlcwUNdGVycmFpbkNvdW50cwkAZQIFCWRlbHRhVGltZQUMbmV3RGVsdGFUaW1lCQBpAgUGcGllY2VzABkEB25ld1BhY2sJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIFBWJwUmVzCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0CQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6CQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgUFYnBLZXkFB25ld1BhY2sJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkFDG5ld1RpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBImtleVN0YWtlZFRpbWVCeVR5cGVBc3NldElkQW5kT3duZXIDBQpMQU5EUFJFRklYBQtsYW5kQXNzZXRJZAUFb3duZXIFDG5ld1RpbWVzdGFtcAUDbmlsBQR1bml0AWkBBmZsaWdodAIHbWVzc2FnZQNzaWcDCQEBIQEJAMQTAwUHbWVzc2FnZQUDc2lnBQNwdWIJAAIBAhhzaWduYXR1cmUgZG9lcyBub3QgbWF0Y2gDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAiNmbGlnaHQgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQFcGFydHMJALUJAgkAsAkBBQdtZXNzYWdlAgE7BAJocAkAtQkCCQCRAwIJALUJAgkAkQMCBQVwYXJ0cwAAAgF8AAACAV8EBWN1ckhQCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCaHAAAAQFbmV3SFAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJocAABBA1uZXdMb2NBbmRUaW1lCQC1CQIJAJEDAgUFcGFydHMAAQIBOgQLbmV3TG9jYXRpb24JAJEDAgUNbmV3TG9jQW5kVGltZQAABAR0aW1lCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUNbmV3TG9jQW5kVGltZQABAwMJAGYCBQR0aW1lCQBkAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFEUZJVkVNSU5VVEVTTUlMTElTBgkAZgIJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAURRklWRU1JTlVURVNNSUxMSVMFBHRpbWUJAAIBAhJzaWduYXR1cmUgb3V0ZGF0ZWQEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKIIAQkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQECWtleUhlYWx0aAkBDWtleUR1Y2tIZWFsdGgBBQtkdWNrQXNzZXRJZAQMb2xkRnJvbVN0YXRlCQELdmFsdWVPckVsc2UCCQCfCAEFCWtleUhlYWx0aABkAwkBAiE9AgUMb2xkRnJvbVN0YXRlBQVjdXJIUAkAAgEJAKwCAgkArAICCQCsAgICCm9sZEhlYWx0aD0JAKQDAQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlrZXlIZWFsdGgAZAIvIGZyb20gc3RhdGUgZG9lcyBub3QgbWF0Y2ggb25lIGZyb20gZmxpZ2h0IGxvZz0JAKQDAQUFY3VySFADCQBnAgAABQVjdXJIUAkAAgECHllvdSBjYW4ndCBmbHkgd2l0aCB6ZXJvIGhlYWx0aAQGbG9jS2V5CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQEC2N1ckxvY2F0aW9uCQELdmFsdWVPckVsc2UCCQCiCAEFBmxvY0tleQUPREVGQVVMVExPQ0FUSU9OAwkAAAIFC25ld0xvY2F0aW9uBQtjdXJMb2NhdGlvbgkAAgECIllvdSBjYW4ndCBmbHkgdG8gdGhlIHNhbWUgbG9jYXRpb24JAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCBQZsb2NLZXkDCQBmAgUFbmV3SFAAAAULbmV3TG9jYXRpb24FC2N1ckxvY2F0aW9uCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlrZXlIZWFsdGgFBW5ld0hQBQNuaWwFBHVuaXQBaQEJc2V0SGVhbHRoAgZoZWFsdGgLZHVja0Fzc2V0SWQDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFwZXJtaXNzaW9uIGRlbmllZAMDCQBmAgAABQZoZWFsdGgGCQBmAgUGaGVhbHRoAGQJAAIBAhpIUCBzaG91bGQgYmUgd2l0aGluIDAuLjEwMAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDWtleUR1Y2tIZWFsdGgBBQtkdWNrQXNzZXRJZAUGaGVhbHRoBQNuaWwBaQEEaGVhbAIHbWF0VHlwZQZhbW91bnQDAwkAZgIAAAUHbWF0VHlwZQYJAGcCBQdtYXRUeXBlBQZOVU1SRVMJAAIBCQCsAgICElVua25vd24gbWF0ZXJpYWw6IAkApAMBBQdtYXRUeXBlAwkAZwIAAAUGYW1vdW50CQACAQkArAICAhtBbW91bnQgc2hvdWxkIGJlIHBvc2l0aXZlISAJAKQDAQUGYW1vdW50BAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkBAlrZXlIZWFsdGgJAQ1rZXlEdWNrSGVhbHRoAQULZHVja0Fzc2V0SWQECW9sZEhlYWx0aAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlrZXlIZWFsdGgAZAMJAGcCBQlvbGRIZWFsdGgAZAkAAgECGkhQIHNob3VsZCBiZSA8IDEwMCB0byBoZWFsBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAKIIAQUFYnBLZXkCGjA6MF8wXzBfMF8wXzA6MF8wXzBfMF8wXzA6AgE6BAdtYXRMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0AgFfBAVtTGlzdAMJAQIhPQIJAJADAQUHbWF0TGlzdAUGTlVNUkVTCQDMCAICATAJAMwIAgIBMAkAzAgCAgEwCQDMCAICATAJAMwIAgIBMAkAzAgCAgEwBQNuaWwFB21hdExpc3QEDWN1cnJlbnRBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVtTGlzdAUHbWF0VHlwZQQLZGVsdGFIZWFsdGgJAJcDAQkAzAgCCQBpAgUGYW1vdW50BQhIRUFMQ09TVAkAzAgCCQBlAgBkBQlvbGRIZWFsdGgFA25pbAQLc3BlbmRBbW91bnQJAGgCBQtkZWx0YUhlYWx0aAUISEVBTENPU1QDCQBmAgULc3BlbmRBbW91bnQFDWN1cnJlbnRBbW91bnQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IG5lZWQgCQCkAwEFC3NwZW5kQW1vdW50AgQgb2YgCQCRAwIFCG1hdFR5cGVzBQdtYXRUeXBlAiQgdG8gaGVhbCwgYnV0IHlvdSBiYWNrcGFjayBjb250YWlucyAJAKQDAQUNY3VycmVudEFtb3VudAQGbmV3TWF0CQEMc3ViT25lSW5MaXN0AwUFbUxpc3QFB21hdFR5cGUFC3NwZW5kQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlrZXlIZWFsdGgJAGQCBQlvbGRIZWFsdGgFC2RlbHRhSGVhbHRoCQDMCAIJAQtTdHJpbmdFbnRyeQIFBWJwS2V5CQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCBQZuZXdNYXQJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToFA25pbAFpAQ51cGRhdGVCYWNrcGFjawILZHVja0Fzc2V0SWQHbmV3UGFjawMJAQIhPQIIBQFpBmNhbGxlcgULZWNvbm9teUFkZHIJAAIBAhFwZXJtaXNzaW9uIGRlbmllZAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkBQduZXdQYWNrBQNuaWwFB25ld1BhY2sA3pHcvQ==",
    "height": 2360450,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: BwKWg2rUe1s9N6SWBVFtnctpqZGMxHsAwSqUjp2fV2sf
Next: 7wP2j5BUYgypJyKj5Jfj2m6vHu2X8fzCScUFfYcwZnES

Diff: 
Old New Differences
41 41  
42 42  let g = base58'6LfPuKJjLgekmncBhMg2LZyMTNVzZBccXR28ySXm9uXD'
43 43  
44 - let h = "LAND"
44 + let h = 10000
45 45  
46 - let i = "DUCK"
46 + let i = "LAND"
47 47  
48 - let j = "Africa_F_Africa"
48 + let j = "DUCK"
49 49  
50 - let k = 3456000
50 + let k = "Africa_F_Africa"
51 51  
52 - let l = 86400000
52 + let l = 6
53 53  
54 - let m = 300000
54 + let m = 3456000
55 55  
56 - func n (o) = ("nftOwner_" + o)
56 + let n = 86400000
57 + 
58 + let o = 300000
59 + 
60 + let p = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
61 + 
62 + func q (r) = ("nftOwner_" + r)
57 63  
58 64  
59 - func p (o) = ("duckOwner_" + o)
65 + func s (r) = ("duckOwner_" + r)
60 66  
61 67  
62 - func q (o) = ("stakedTime_" + o)
68 + func t (r) = ("stakedTime_" + r)
63 69  
64 70  
65 - func r (s) = ("stakedDuckByOwner_" + s)
71 + func u (v) = ("stakedDuckByOwner_" + v)
66 72  
67 73  
68 - func t (u,o,s) = ((((("stakedTimeByTypeAssetIdAndOwner_" + u) + "_") + o) + "_") + s)
74 + func w (x,r,v) = ((((("stakedTimeByTypeAssetIdAndOwner_" + x) + "_") + r) + "_") + v)
69 75  
70 76  
71 - func v (w) = ("landOwner_" + w)
77 + func y (z) = ("landOwner_" + z)
72 78  
73 79  
74 - func x (y) = ("backPack_" + y)
80 + func A (B) = ("backPack_" + B)
75 81  
76 82  
77 - func z (y) = ("duckLocation_" + y)
83 + func C (B) = ("duckLocation_" + B)
78 84  
79 85  
80 - func A (y) = ("duckHealth_" + y)
86 + func D (B) = ("duckHealth_" + B)
81 87  
82 88  
83 - let B = 0
89 + let E = 0
84 90  
85 - let C = 1
91 + let F = 1
86 92  
87 - let D = 2
93 + let G = 2
88 94  
89 - let E = 3
90 - 
91 - let F = 0
92 - 
93 - let G = 1
94 - 
95 - let H = 2
95 + let H = 3
96 96  
97 97  let I = 0
98 98  
100 100  
101 101  let K = 2
102 102  
103 - let L = 3
103 + let L = 0
104 104  
105 - func M (N) = [(size(split(N, "A")) - 1), (size(split(N, "B")) - 1), (size(split(N, "C")) - 1), (size(split(N, "D")) - 1), (size(split(N, "E")) - 1), (size(split(N, "F")) - 1)]
105 + let M = 1
106 + 
107 + let N = 2
108 + 
109 + let O = 3
110 + 
111 + func P (Q) = [(size(split(Q, "A")) - 1), (size(split(Q, "B")) - 1), (size(split(Q, "C")) - 1), (size(split(Q, "D")) - 1), (size(split(Q, "E")) - 1), (size(split(Q, "F")) - 1)]
106 112  
107 113  
108 - func O (P) = {
109 -     let c = P
114 + func R (S) = {
115 +     let c = S
110 116      if (("S" == c))
111 117          then 25
112 118          else if (("M" == c))
121 127      }
122 128  
123 129  
124 - func Q (R,S,T,U) = {
125 -     func V (W,X) =     {
126 -         let Y = ((fraction(T, k, l) * S[X]) * U)
127 -         (W :+ toString((parseIntValue(R[X]) + Y)))
128 -         }
130 + func T (U,V,W) = {
131 +     func X (Y,Z) =     (Y :+ (if ((Z == V))
132 +         then toString((parseIntValue(U[Z]) - W))
133 +         else U[Z]))
129 134  
130 -     let Z = {
131 -         let aa = [0, 1, 2, 3, 4, 5]
132 -         let ab = size(aa)
133 -         let ac = nil
134 -         func ad (ae,af) =         if ((af >= ab))
135 -             then ae
136 -             else V(ae, aa[af])
135 +     let aa = {
136 +         let ab = [0, 1, 2, 3, 4, 5]
137 +         let ac = size(ab)
138 +         let ad = nil
139 +         func ae (af,ag) =         if ((ag >= ac))
140 +             then af
141 +             else X(af, ab[ag])
137 142  
138 -         func ag (ae,af) =         if ((af >= ab))
139 -             then ae
143 +         func ah (af,ag) =         if ((ag >= ac))
144 +             then af
140 145              else throw("List size exceeds 6")
141 146  
142 -         ag(ad(ad(ad(ad(ad(ad(ac, 0), 1), 2), 3), 4), 5), 6)
147 +         ah(ae(ae(ae(ae(ae(ae(ad, 0), 1), 2), 3), 4), 5), 6)
143 148          }
144 -     makeString(Z, "_")
149 +     makeString(aa, "_")
145 150      }
146 151  
147 152  
148 - @Callable(X)
153 + func ai (aj,ak,al,am) = {
154 +     func an (Y,Z) =     {
155 +         let ao = ((fraction(al, m, n) * ak[Z]) * am)
156 +         (Y :+ toString((parseIntValue(aj[Z]) + ao)))
157 +         }
158 + 
159 +     let aa = {
160 +         let ab = [0, 1, 2, 3, 4, 5]
161 +         let ac = size(ab)
162 +         let ad = nil
163 +         func ae (af,ag) =         if ((ag >= ac))
164 +             then af
165 +             else an(af, ab[ag])
166 + 
167 +         func ah (af,ag) =         if ((ag >= ac))
168 +             then af
169 +             else throw("List size exceeds 6")
170 + 
171 +         ah(ae(ae(ae(ae(ae(ae(ad, 0), 1), 2), 3), 4), 5), 6)
172 +         }
173 +     makeString(aa, "_")
174 +     }
175 + 
176 + 
177 + @Callable(Z)
149 178  func stakeLand () = {
150 -     let ah = value(X.payments[0])
151 -     let o = value(ah.assetId)
152 -     let ai = toString(X.caller)
153 -     if ((ah.amount != 1))
154 -         then throw((("NFT " + h) + " token should be attached as payment"))
179 +     let ap = value(Z.payments[0])
180 +     let r = value(ap.assetId)
181 +     let aq = toString(Z.caller)
182 +     if ((ap.amount != 1))
183 +         then throw((("NFT " + i) + " token should be attached as payment"))
155 184          else {
156 -             let aj = value(assetInfo(o))
157 -             if ((aj.issuer != this))
185 +             let ar = value(assetInfo(r))
186 +             if ((ar.issuer != this))
158 187                  then throw("Unknown issuer of token")
159 -                 else if (!(contains(aj.name, h)))
160 -                     then throw((("Only NFT " + h) + " tokens are accepted"))
188 +                 else if (!(contains(ar.name, i)))
189 +                     then throw((("Only NFT " + i) + " tokens are accepted"))
161 190                      else {
162 -                         let ak = drop(aj.name, 4)
163 -                         let w = if (contains(ak, "XXL"))
164 -                             then dropRight(ak, 3)
165 -                             else if (contains(ak, "XL"))
166 -                                 then dropRight(ak, 2)
167 -                                 else dropRight(ak, 1)
168 -                         if (!(isDefined(parseInt(w))))
169 -                             then throw(("Cannot parse land number from " + aj.name))
191 +                         let as = drop(ar.name, 4)
192 +                         let z = if (contains(as, "XXL"))
193 +                             then dropRight(as, 3)
194 +                             else if (contains(as, "XL"))
195 +                                 then dropRight(as, 2)
196 +                                 else dropRight(as, 1)
197 +                         if (!(isDefined(parseInt(z))))
198 +                             then throw(("Cannot parse land number from " + ar.name))
170 199                              else {
171 -                                 let al = q(toBase58String(o))
172 -                                 if (isDefined(getInteger(al)))
173 -                                     then throw((("NFT " + aj.name) + " is already staked"))
174 -                                     else [IntegerEntry(al, lastBlock.timestamp), IntegerEntry(t(h, toBase58String(o), ai), lastBlock.timestamp), StringEntry(n(toBase58String(o)), ai), StringEntry(v(w), ai)]
200 +                                 let at = t(toBase58String(r))
201 +                                 if (isDefined(getInteger(at)))
202 +                                     then throw((("NFT " + ar.name) + " is already staked"))
203 +                                     else [IntegerEntry(at, lastBlock.timestamp), IntegerEntry(w(i, toBase58String(r), aq), lastBlock.timestamp), StringEntry(q(toBase58String(r)), aq), StringEntry(y(z), aq)]
175 204                                  }
176 205                          }
177 206              }
179 208  
180 209  
181 210  
182 - @Callable(X)
183 - func unstakeLand (am) = if ((size(X.payments) != 0))
211 + @Callable(Z)
212 + func unstakeLand (au) = if ((size(Z.payments) != 0))
184 213      then throw("unstake doesn't require any payments")
185 214      else {
186 -         let o = fromBase58String(am)
187 -         let ai = toString(X.caller)
188 -         let aj = value(assetInfo(o))
189 -         if ((aj.issuer != this))
215 +         let r = fromBase58String(au)
216 +         let aq = toString(Z.caller)
217 +         let ar = value(assetInfo(r))
218 +         if ((ar.issuer != this))
190 219              then throw("Unknown issuer of token")
191 -             else if (!(contains(aj.name, h)))
192 -                 then throw((("Only NFT " + h) + " tokens can be unstaked"))
220 +             else if (!(contains(ar.name, i)))
221 +                 then throw((("Only NFT " + i) + " tokens can be unstaked"))
193 222                  else {
194 -                     let al = q(am)
195 -                     if (!(isDefined(al)))
196 -                         then throw((("NFT " + aj.name) + " is not staked"))
223 +                     let at = t(au)
224 +                     if (!(isDefined(at)))
225 +                         then throw((("NFT " + ar.name) + " is not staked"))
197 226                          else {
198 -                             let an = valueOrErrorMessage(getString(n(am)), (("NFT " + aj.name) + " is orphaned"))
199 -                             if ((an != ai))
227 +                             let av = valueOrErrorMessage(getString(q(au)), (("NFT " + ar.name) + " is orphaned"))
228 +                             if ((av != aq))
200 229                                  then throw("Staked NFT is not yours")
201 -                                 else [ScriptTransfer(X.caller, 1, o), DeleteEntry(al), DeleteEntry(t(h, am, ai))]
230 +                                 else [ScriptTransfer(Z.caller, 1, r), DeleteEntry(at), DeleteEntry(w(i, au, aq))]
202 231                              }
203 232                      }
204 233          }
205 234  
206 235  
207 236  
208 - @Callable(X)
237 + @Callable(Z)
209 238  func stakeDuck () = {
210 -     let ah = value(X.payments[0])
211 -     let o = value(ah.assetId)
212 -     let ai = toString(X.caller)
213 -     if ((ah.amount != 1))
214 -         then throw((("NFT " + i) + " token should be attached as payment"))
239 +     let ap = value(Z.payments[0])
240 +     let r = value(ap.assetId)
241 +     let aq = toString(Z.caller)
242 +     if ((ap.amount != 1))
243 +         then throw((("NFT " + j) + " token should be attached as payment"))
215 244          else {
216 -             let aj = value(assetInfo(o))
217 -             if (if ((aj.issuer != d))
218 -                 then (aj.issuer != e)
245 +             let ar = value(assetInfo(r))
246 +             if (if ((ar.issuer != d))
247 +                 then (ar.issuer != e)
219 248                  else false)
220 -                 then throw((("Unknown issuer of " + i) + " token"))
221 -                 else if (!(contains(aj.name, i)))
222 -                     then throw((("Only NFT " + i) + " tokens are accepted"))
249 +                 then throw((("Unknown issuer of " + j) + " token"))
250 +                 else if (!(contains(ar.name, j)))
251 +                     then throw((("Only NFT " + j) + " tokens are accepted"))
223 252                      else {
224 -                         let ao = toBase58String(o)
225 -                         let al = q(ao)
226 -                         if (isDefined(getInteger(al)))
227 -                             then throw((("NFT " + aj.name) + " is already staked"))
228 -                             else if (isDefined(getString(r(ai))))
229 -                                 then throw(("You already staked one duck: " + aj.name))
253 +                         let aw = toBase58String(r)
254 +                         let at = t(aw)
255 +                         if (isDefined(getInteger(at)))
256 +                             then throw((("NFT " + ar.name) + " is already staked"))
257 +                             else if (isDefined(getString(u(aq))))
258 +                                 then throw(("You already staked one duck: " + ar.name))
230 259                                  else {
231 -                                     let ap = z(ao)
232 -                                     let aq = getString(ap)
233 -                                     let ar = A(ao)
234 -                                     let as = getInteger(ar)
235 -                                     let at = x(ao)
236 -                                     let au = getString(at)
237 -                                     ([IntegerEntry(al, lastBlock.timestamp), IntegerEntry(t(i, toBase58String(o), ai), lastBlock.timestamp), StringEntry(p(ao), ai), StringEntry(r(ai), ao)] ++ (if (isDefined(aq))
260 +                                     let ax = C(aw)
261 +                                     let ay = getString(ax)
262 +                                     let az = D(aw)
263 +                                     let aA = getInteger(az)
264 +                                     let aB = A(aw)
265 +                                     let aC = getString(aB)
266 +                                     ([IntegerEntry(at, lastBlock.timestamp), IntegerEntry(w(j, toBase58String(r), aq), lastBlock.timestamp), StringEntry(s(aw), aq), StringEntry(u(aq), aw)] ++ (if (isDefined(ay))
238 267                                          then nil
239 -                                         else ([StringEntry(ap, j)] ++ (if (isDefined(as))
268 +                                         else ([StringEntry(ax, k)] ++ (if (isDefined(aA))
240 269                                              then nil
241 -                                             else ([IntegerEntry(ar, 100)] ++ (if (isDefined(au))
270 +                                             else ([IntegerEntry(az, 100)] ++ (if (isDefined(aC))
242 271                                                  then nil
243 -                                                 else [StringEntry(at, "0:0_0_0_0_0_0::")]))))))
272 +                                                 else [StringEntry(aB, "0:0_0_0_0_0_0:0_0_0_0_0_0:")]))))))
244 273                                      }
245 274                          }
246 275              }
248 277  
249 278  
250 279  
251 - @Callable(X)
252 - func unstakeDuck (ao) = if ((size(X.payments) != 0))
280 + @Callable(Z)
281 + func unstakeDuck (aw) = if ((size(Z.payments) != 0))
253 282      then throw("unstake doesn't require any payments")
254 283      else {
255 -         let o = fromBase58String(ao)
256 -         let ai = toString(X.caller)
257 -         let aj = value(assetInfo(o))
258 -         if (if ((aj.issuer != d))
259 -             then (aj.issuer != e)
284 +         let r = fromBase58String(aw)
285 +         let aq = toString(Z.caller)
286 +         let ar = value(assetInfo(r))
287 +         if (if ((ar.issuer != d))
288 +             then (ar.issuer != e)
260 289              else false)
261 -             then throw((("Unknown issuer of " + i) + " token"))
262 -             else if (!(contains(aj.name, i)))
263 -                 then throw((("Only NFT " + i) + " tokens can be unstaked"))
290 +             then throw((("Unknown issuer of " + j) + " token"))
291 +             else if (!(contains(ar.name, j)))
292 +                 then throw((("Only NFT " + j) + " tokens can be unstaked"))
264 293                  else {
265 -                     let al = q(toBase58String(o))
266 -                     if (!(isDefined(al)))
267 -                         then throw((("NFT " + aj.name) + " is not staked"))
268 -                         else if (!(isDefined(r(ai))))
269 -                             then throw((("The duck " + aj.name) + " is not staked"))
294 +                     let at = t(toBase58String(r))
295 +                     if (!(isDefined(at)))
296 +                         then throw((("NFT " + ar.name) + " is not staked"))
297 +                         else if (!(isDefined(u(aq))))
298 +                             then throw((("The duck " + ar.name) + " is not staked"))
270 299                              else {
271 -                                 let an = valueOrErrorMessage(getString(p(toBase58String(o))), (("NFT " + aj.name) + " is orphaned"))
272 -                                 if ((an != ai))
300 +                                 let av = valueOrErrorMessage(getString(s(toBase58String(r))), (("NFT " + ar.name) + " is orphaned"))
301 +                                 if ((av != aq))
273 302                                      then throw("Staked NFT is not yours")
274 -                                     else [ScriptTransfer(X.caller, 1, o), DeleteEntry(al), DeleteEntry(z(ao)), DeleteEntry(t(i, ao, ai)), DeleteEntry(r(ai))]
303 +                                     else [ScriptTransfer(Z.caller, 1, r), DeleteEntry(at), DeleteEntry(C(aw)), DeleteEntry(w(j, aw, aq)), DeleteEntry(u(aq))]
275 304                                  }
276 305                      }
277 306          }
278 307  
279 308  
280 309  
281 - @Callable(X)
282 - func claimRes (av,am) = if ((size(X.payments) != 0))
310 + @Callable(Z)
311 + func claimRes (W,au) = if ((size(Z.payments) != 0))
283 312      then throw("claimRes doesn't require any payments")
284 313      else {
285 -         let aw = toString(X.caller)
286 -         let aj = value(assetInfo(fromBase58String(am)))
287 -         if (!(contains(aj.name, h)))
288 -             then throw((("NFT " + h) + " token should be passed as param"))
314 +         let aD = toString(Z.caller)
315 +         let ar = value(assetInfo(fromBase58String(au)))
316 +         if (!(contains(ar.name, i)))
317 +             then throw((("NFT " + i) + " token should be passed as param"))
289 318              else {
290 -                 let al = q(am)
291 -                 let ax = getInteger(al)
292 -                 if (!(isDefined(ax)))
293 -                     then throw((("NFT " + aj.name) + " is not staked"))
319 +                 let at = t(au)
320 +                 let aE = getInteger(at)
321 +                 if (!(isDefined(aE)))
322 +                     then throw((("NFT " + ar.name) + " is not staked"))
294 323                      else {
295 -                         let an = getStringValue(n(am))
296 -                         if ((an != aw))
297 -                             then throw((h + " is not yours"))
324 +                         let av = getStringValue(q(au))
325 +                         if ((av != aD))
326 +                             then throw((i + " is not yours"))
298 327                              else {
299 -                                 let ay = split(aj.description, "_")
300 -                                 let P = ay[C]
301 -                                 let S = M(ay[D])
302 -                                 let az = getString(r(aw))
303 -                                 if (!(isDefined(az)))
328 +                                 let aF = split(ar.description, "_")
329 +                                 let S = aF[F]
330 +                                 let ak = P(aF[G])
331 +                                 let aG = getString(u(aD))
332 +                                 if (!(isDefined(aG)))
304 333                                      then throw("You don't have a duck staked")
305 334                                      else {
306 -                                         let aA = value(az)
307 -                                         let aB = valueOrElse(getString(z(aA)), j)
308 -                                         let aC = split(value(aB), "_")
309 -                                         if ((aC[G] != "L"))
310 -                                             then throw((("Duck location type is " + aC[G]) + ", but should be L"))
311 -                                             else if ((aC[H] != am))
312 -                                                 then throw(((("Duck location id is " + aC[H]) + ", but should be ") + am))
335 +                                         let aH = value(aG)
336 +                                         let aI = valueOrElse(getString(C(aH)), k)
337 +                                         let aJ = split(value(aI), "_")
338 +                                         if ((aJ[J] != "L"))
339 +                                             then throw((("Duck location type is " + aJ[J]) + ", but should be L"))
340 +                                             else if ((aJ[K] != au))
341 +                                                 then throw(((("Duck location id is " + aJ[K]) + ", but should be ") + au))
313 342                                                  else {
314 -                                                     let T = (lastBlock.timestamp - value(ax))
315 -                                                     if ((0 > T))
316 -                                                         then throw(((("Saved timestamp is in future, saved = " + toString(value(ax))) + ", current = ") + toString(lastBlock.timestamp)))
343 +                                                     let al = (lastBlock.timestamp - value(aE))
344 +                                                     if ((0 > al))
345 +                                                         then throw(((("Saved timestamp is in future, saved = " + toString(value(aE))) + ", current = ") + toString(lastBlock.timestamp)))
317 346                                                          else {
318 -                                                             let aD = O(P)
319 -                                                             let aE = (fraction(T, k, l) * aD)
320 -                                                             if ((av > aE))
321 -                                                                 then throw(((("Not enough resources, available = " + toString(aE)) + ", requested = ") + toString(av)))
347 +                                                             let aK = R(S)
348 +                                                             let aL = (fraction(al, m, n) * aK)
349 +                                                             if ((W > aL))
350 +                                                                 then throw(((("Not enough resources, available = " + toString(aL)) + ", requested = ") + toString(W)))
322 351                                                                  else {
323 -                                                                     let aF = fraction((aE - av), l, (aD * k))
324 -                                                                     let aG = (lastBlock.timestamp - aF)
325 -                                                                     let at = x(aA)
326 -                                                                     let aH = split(valueOrElse(getString(at), "0:0_0_0_0_0_0::"), ":")
327 -                                                                     let R = split(aH[J], "_")
328 -                                                                     let aI = Q(R, S, (T - aF), (aD / 25))
329 -                                                                     let aJ = makeString([aH[I], aI, aH[K], aH[L]], ":")
330 -                                                                     $Tuple2([StringEntry(at, aJ), IntegerEntry(al, aG), IntegerEntry(t(h, am, an), aG)], unit)
352 +                                                                     let aM = fraction((aL - W), n, (aK * m))
353 +                                                                     let aN = (lastBlock.timestamp - aM)
354 +                                                                     let aB = A(aH)
355 +                                                                     let aO = split(valueOrElse(getString(aB), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
356 +                                                                     let aj = split(aO[M], "_")
357 +                                                                     let aP = ai(aj, ak, (al - aM), (aK / 25))
358 +                                                                     let aQ = makeString([aO[L], aP, aO[N], aO[O]], ":")
359 +                                                                     $Tuple2([StringEntry(aB, aQ), IntegerEntry(at, aN), IntegerEntry(w(i, au, av), aN)], unit)
331 360                                                                      }
332 361                                                              }
333 362                                                      }
339 368  
340 369  
341 370  
342 - @Callable(X)
343 - func flight (aK,aL) = if (!(sigVerify_8Kb(aK, aL, g)))
371 + @Callable(Z)
372 + func flight (aR,aS) = if (!(sigVerify_8Kb(aR, aS, g)))
344 373      then throw("signature does not match")
345 -     else if ((size(X.payments) != 0))
374 +     else if ((size(Z.payments) != 0))
346 375          then throw("flight doesn't require any payments")
347 376          else {
348 -             let aM = split(toUtf8String(aK), ";")
349 -             let aN = split(split(aM[0], "|")[0], "_")
350 -             let aO = parseIntValue(aN[0])
351 -             let aP = parseIntValue(aN[1])
352 -             let aQ = split(aM[1], ":")
353 -             let aR = aQ[0]
354 -             let aS = parseIntValue(aQ[1])
355 -             if (if ((aS > (lastBlock.timestamp + m)))
377 +             let aT = split(toUtf8String(aR), ";")
378 +             let aU = split(split(aT[0], "|")[0], "_")
379 +             let aV = parseIntValue(aU[0])
380 +             let aW = parseIntValue(aU[1])
381 +             let aX = split(aT[1], ":")
382 +             let aY = aX[0]
383 +             let aZ = parseIntValue(aX[1])
384 +             if (if ((aZ > (lastBlock.timestamp + o)))
356 385                  then true
357 -                 else ((lastBlock.timestamp - m) > aS))
386 +                 else ((lastBlock.timestamp - o) > aZ))
358 387                  then throw("signature outdated")
359 388                  else {
360 -                     let y = valueOrErrorMessage(getString(r(toString(X.caller))), "You don't have a duck staked")
361 -                     let ar = A(y)
362 -                     let aT = valueOrElse(getInteger(ar), 100)
363 -                     if ((aT != aO))
364 -                         then throw(((("oldHealth=" + toString(valueOrElse(getInteger(ar), 100))) + " from state does not match one from flight log=") + toString(aO)))
365 -                         else if ((0 >= aO))
389 +                     let B = valueOrErrorMessage(getString(u(toString(Z.caller))), "You don't have a duck staked")
390 +                     let az = D(B)
391 +                     let ba = valueOrElse(getInteger(az), 100)
392 +                     if ((ba != aV))
393 +                         then throw(((("oldHealth=" + toString(valueOrElse(getInteger(az), 100))) + " from state does not match one from flight log=") + toString(aV)))
394 +                         else if ((0 >= aV))
366 395                              then throw("You can't fly with zero health")
367 396                              else {
368 -                                 let ap = z(y)
369 -                                 let aB = valueOrElse(getString(ap), j)
370 -                                 if ((aR == aB))
397 +                                 let ax = C(B)
398 +                                 let aI = valueOrElse(getString(ax), k)
399 +                                 if ((aY == aI))
371 400                                      then throw("You can't fly to the same location")
372 -                                     else $Tuple2([StringEntry(ap, if ((aP > 0))
373 -                                         then aR
374 -                                         else aB), IntegerEntry(ar, aP)], unit)
401 +                                     else $Tuple2([StringEntry(ax, if ((aW > 0))
402 +                                         then aY
403 +                                         else aI), IntegerEntry(az, aW)], unit)
375 404                                  }
376 405                      }
377 406              }
378 407  
379 408  
380 409  
381 - @Callable(X)
382 - func setHealth (as,y) = {
383 -     let aA = valueOrErrorMessage(getString(r(toString(X.caller))), "You don't have a duck staked")
384 -     if (if ((0 > as))
410 + @Callable(Z)
411 + func setHealth (aA,B) = if ((Z.caller != this))
412 +     then throw("permission denied")
413 +     else if (if ((0 > aA))
385 414          then true
386 -         else (as > 100))
415 +         else (aA > 100))
387 416          then throw("HP should be within 0..100")
388 -         else [IntegerEntry(A(y), as)]
389 -     }
417 +         else [IntegerEntry(D(B), aA)]
390 418  
391 419  
392 420  
393 - @Callable(X)
394 - func updateBackpack (y,aJ) = if ((X.caller != f))
421 + @Callable(Z)
422 + func heal (bb,W) = if (if ((0 > bb))
423 +     then true
424 +     else (bb >= l))
425 +     then throw(("Unknown material: " + toString(bb)))
426 +     else if ((0 >= W))
427 +         then throw(("Amount should be positive! " + toString(W)))
428 +         else {
429 +             let B = valueOrErrorMessage(getString(u(toString(Z.caller))), "You don't have a duck staked")
430 +             let az = D(B)
431 +             let bc = valueOrElse(getInteger(az), 100)
432 +             if ((bc >= 100))
433 +                 then throw("HP should be < 100 to heal")
434 +                 else {
435 +                     let aB = A(B)
436 +                     let aO = split(valueOrElse(getString(aB), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
437 +                     let bd = split(aO[N], "_")
438 +                     let be = if ((size(bd) != l))
439 +                         then ["0", "0", "0", "0", "0", "0"]
440 +                         else bd
441 +                     let bf = parseIntValue(be[bb])
442 +                     let bg = min([(W / h), (100 - bc)])
443 +                     let bh = (bg * h)
444 +                     if ((bh > bf))
445 +                         then throw(((((("You need " + toString(bh)) + " of ") + p[bb]) + " to heal, but you backpack contains ") + toString(bf)))
446 +                         else {
447 +                             let bi = T(be, bb, bh)
448 + [IntegerEntry(az, (bc + bg)), StringEntry(aB, makeString([aO[L], aO[M], bi, aO[O]], ":"))]
449 +                             }
450 +                     }
451 +             }
452 + 
453 + 
454 + 
455 + @Callable(Z)
456 + func updateBackpack (B,aQ) = if ((Z.caller != f))
395 457      then throw("permission denied")
396 -     else $Tuple2([StringEntry(x(y), aJ)], aJ)
458 +     else $Tuple2([StringEntry(A(B), aQ)], aQ)
397 459  
398 460  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let a = toUtf8String(take(drop(this.bytes, 1), 1))
5 5  
6 6  let b = {
7 7      let c = a
8 8      if (("W" == c))
9 9          then base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
10 10          else if (("T" == c))
11 11              then base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
12 12              else throw("Unknown chain")
13 13      }
14 14  
15 15  let d = {
16 16      let c = a
17 17      if (("W" == c))
18 18          then addressFromStringValue("3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv")
19 19          else if (("T" == c))
20 20              then this
21 21              else throw("Unknown chain")
22 22      }
23 23  
24 24  let e = {
25 25      let c = a
26 26      if (("W" == c))
27 27          then addressFromStringValue("3PDVuU45H7Eh5dmtNbnRNRStGwULA7NY6Hb")
28 28          else if (("T" == c))
29 29              then this
30 30              else throw("Unknown chain")
31 31      }
32 32  
33 33  let f = {
34 34      let c = a
35 35      if (("W" == c))
36 36          then addressFromStringValue("3P2sk1KncSxRaZs8b4CWGPw2jkvvav74u4D")
37 37          else if (("T" == c))
38 38              then addressFromStringValue("3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep")
39 39              else throw("Unknown chain")
40 40      }
41 41  
42 42  let g = base58'6LfPuKJjLgekmncBhMg2LZyMTNVzZBccXR28ySXm9uXD'
43 43  
44 - let h = "LAND"
44 + let h = 10000
45 45  
46 - let i = "DUCK"
46 + let i = "LAND"
47 47  
48 - let j = "Africa_F_Africa"
48 + let j = "DUCK"
49 49  
50 - let k = 3456000
50 + let k = "Africa_F_Africa"
51 51  
52 - let l = 86400000
52 + let l = 6
53 53  
54 - let m = 300000
54 + let m = 3456000
55 55  
56 - func n (o) = ("nftOwner_" + o)
56 + let n = 86400000
57 + 
58 + let o = 300000
59 + 
60 + let p = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
61 + 
62 + func q (r) = ("nftOwner_" + r)
57 63  
58 64  
59 - func p (o) = ("duckOwner_" + o)
65 + func s (r) = ("duckOwner_" + r)
60 66  
61 67  
62 - func q (o) = ("stakedTime_" + o)
68 + func t (r) = ("stakedTime_" + r)
63 69  
64 70  
65 - func r (s) = ("stakedDuckByOwner_" + s)
71 + func u (v) = ("stakedDuckByOwner_" + v)
66 72  
67 73  
68 - func t (u,o,s) = ((((("stakedTimeByTypeAssetIdAndOwner_" + u) + "_") + o) + "_") + s)
74 + func w (x,r,v) = ((((("stakedTimeByTypeAssetIdAndOwner_" + x) + "_") + r) + "_") + v)
69 75  
70 76  
71 - func v (w) = ("landOwner_" + w)
77 + func y (z) = ("landOwner_" + z)
72 78  
73 79  
74 - func x (y) = ("backPack_" + y)
80 + func A (B) = ("backPack_" + B)
75 81  
76 82  
77 - func z (y) = ("duckLocation_" + y)
83 + func C (B) = ("duckLocation_" + B)
78 84  
79 85  
80 - func A (y) = ("duckHealth_" + y)
86 + func D (B) = ("duckHealth_" + B)
81 87  
82 88  
83 - let B = 0
89 + let E = 0
84 90  
85 - let C = 1
91 + let F = 1
86 92  
87 - let D = 2
93 + let G = 2
88 94  
89 - let E = 3
90 - 
91 - let F = 0
92 - 
93 - let G = 1
94 - 
95 - let H = 2
95 + let H = 3
96 96  
97 97  let I = 0
98 98  
99 99  let J = 1
100 100  
101 101  let K = 2
102 102  
103 - let L = 3
103 + let L = 0
104 104  
105 - func M (N) = [(size(split(N, "A")) - 1), (size(split(N, "B")) - 1), (size(split(N, "C")) - 1), (size(split(N, "D")) - 1), (size(split(N, "E")) - 1), (size(split(N, "F")) - 1)]
105 + let M = 1
106 + 
107 + let N = 2
108 + 
109 + let O = 3
110 + 
111 + func P (Q) = [(size(split(Q, "A")) - 1), (size(split(Q, "B")) - 1), (size(split(Q, "C")) - 1), (size(split(Q, "D")) - 1), (size(split(Q, "E")) - 1), (size(split(Q, "F")) - 1)]
106 112  
107 113  
108 - func O (P) = {
109 -     let c = P
114 + func R (S) = {
115 +     let c = S
110 116      if (("S" == c))
111 117          then 25
112 118          else if (("M" == c))
113 119              then 100
114 120              else if (("L" == c))
115 121                  then 225
116 122                  else if (("XL" == c))
117 123                      then 400
118 124                      else if (("XXL" == c))
119 125                          then 625
120 126                          else throw("Unknown land size")
121 127      }
122 128  
123 129  
124 - func Q (R,S,T,U) = {
125 -     func V (W,X) =     {
126 -         let Y = ((fraction(T, k, l) * S[X]) * U)
127 -         (W :+ toString((parseIntValue(R[X]) + Y)))
128 -         }
130 + func T (U,V,W) = {
131 +     func X (Y,Z) =     (Y :+ (if ((Z == V))
132 +         then toString((parseIntValue(U[Z]) - W))
133 +         else U[Z]))
129 134  
130 -     let Z = {
131 -         let aa = [0, 1, 2, 3, 4, 5]
132 -         let ab = size(aa)
133 -         let ac = nil
134 -         func ad (ae,af) =         if ((af >= ab))
135 -             then ae
136 -             else V(ae, aa[af])
135 +     let aa = {
136 +         let ab = [0, 1, 2, 3, 4, 5]
137 +         let ac = size(ab)
138 +         let ad = nil
139 +         func ae (af,ag) =         if ((ag >= ac))
140 +             then af
141 +             else X(af, ab[ag])
137 142  
138 -         func ag (ae,af) =         if ((af >= ab))
139 -             then ae
143 +         func ah (af,ag) =         if ((ag >= ac))
144 +             then af
140 145              else throw("List size exceeds 6")
141 146  
142 -         ag(ad(ad(ad(ad(ad(ad(ac, 0), 1), 2), 3), 4), 5), 6)
147 +         ah(ae(ae(ae(ae(ae(ae(ad, 0), 1), 2), 3), 4), 5), 6)
143 148          }
144 -     makeString(Z, "_")
149 +     makeString(aa, "_")
145 150      }
146 151  
147 152  
148 - @Callable(X)
153 + func ai (aj,ak,al,am) = {
154 +     func an (Y,Z) =     {
155 +         let ao = ((fraction(al, m, n) * ak[Z]) * am)
156 +         (Y :+ toString((parseIntValue(aj[Z]) + ao)))
157 +         }
158 + 
159 +     let aa = {
160 +         let ab = [0, 1, 2, 3, 4, 5]
161 +         let ac = size(ab)
162 +         let ad = nil
163 +         func ae (af,ag) =         if ((ag >= ac))
164 +             then af
165 +             else an(af, ab[ag])
166 + 
167 +         func ah (af,ag) =         if ((ag >= ac))
168 +             then af
169 +             else throw("List size exceeds 6")
170 + 
171 +         ah(ae(ae(ae(ae(ae(ae(ad, 0), 1), 2), 3), 4), 5), 6)
172 +         }
173 +     makeString(aa, "_")
174 +     }
175 + 
176 + 
177 + @Callable(Z)
149 178  func stakeLand () = {
150 -     let ah = value(X.payments[0])
151 -     let o = value(ah.assetId)
152 -     let ai = toString(X.caller)
153 -     if ((ah.amount != 1))
154 -         then throw((("NFT " + h) + " token should be attached as payment"))
179 +     let ap = value(Z.payments[0])
180 +     let r = value(ap.assetId)
181 +     let aq = toString(Z.caller)
182 +     if ((ap.amount != 1))
183 +         then throw((("NFT " + i) + " token should be attached as payment"))
155 184          else {
156 -             let aj = value(assetInfo(o))
157 -             if ((aj.issuer != this))
185 +             let ar = value(assetInfo(r))
186 +             if ((ar.issuer != this))
158 187                  then throw("Unknown issuer of token")
159 -                 else if (!(contains(aj.name, h)))
160 -                     then throw((("Only NFT " + h) + " tokens are accepted"))
188 +                 else if (!(contains(ar.name, i)))
189 +                     then throw((("Only NFT " + i) + " tokens are accepted"))
161 190                      else {
162 -                         let ak = drop(aj.name, 4)
163 -                         let w = if (contains(ak, "XXL"))
164 -                             then dropRight(ak, 3)
165 -                             else if (contains(ak, "XL"))
166 -                                 then dropRight(ak, 2)
167 -                                 else dropRight(ak, 1)
168 -                         if (!(isDefined(parseInt(w))))
169 -                             then throw(("Cannot parse land number from " + aj.name))
191 +                         let as = drop(ar.name, 4)
192 +                         let z = if (contains(as, "XXL"))
193 +                             then dropRight(as, 3)
194 +                             else if (contains(as, "XL"))
195 +                                 then dropRight(as, 2)
196 +                                 else dropRight(as, 1)
197 +                         if (!(isDefined(parseInt(z))))
198 +                             then throw(("Cannot parse land number from " + ar.name))
170 199                              else {
171 -                                 let al = q(toBase58String(o))
172 -                                 if (isDefined(getInteger(al)))
173 -                                     then throw((("NFT " + aj.name) + " is already staked"))
174 -                                     else [IntegerEntry(al, lastBlock.timestamp), IntegerEntry(t(h, toBase58String(o), ai), lastBlock.timestamp), StringEntry(n(toBase58String(o)), ai), StringEntry(v(w), ai)]
200 +                                 let at = t(toBase58String(r))
201 +                                 if (isDefined(getInteger(at)))
202 +                                     then throw((("NFT " + ar.name) + " is already staked"))
203 +                                     else [IntegerEntry(at, lastBlock.timestamp), IntegerEntry(w(i, toBase58String(r), aq), lastBlock.timestamp), StringEntry(q(toBase58String(r)), aq), StringEntry(y(z), aq)]
175 204                                  }
176 205                          }
177 206              }
178 207      }
179 208  
180 209  
181 210  
182 - @Callable(X)
183 - func unstakeLand (am) = if ((size(X.payments) != 0))
211 + @Callable(Z)
212 + func unstakeLand (au) = if ((size(Z.payments) != 0))
184 213      then throw("unstake doesn't require any payments")
185 214      else {
186 -         let o = fromBase58String(am)
187 -         let ai = toString(X.caller)
188 -         let aj = value(assetInfo(o))
189 -         if ((aj.issuer != this))
215 +         let r = fromBase58String(au)
216 +         let aq = toString(Z.caller)
217 +         let ar = value(assetInfo(r))
218 +         if ((ar.issuer != this))
190 219              then throw("Unknown issuer of token")
191 -             else if (!(contains(aj.name, h)))
192 -                 then throw((("Only NFT " + h) + " tokens can be unstaked"))
220 +             else if (!(contains(ar.name, i)))
221 +                 then throw((("Only NFT " + i) + " tokens can be unstaked"))
193 222                  else {
194 -                     let al = q(am)
195 -                     if (!(isDefined(al)))
196 -                         then throw((("NFT " + aj.name) + " is not staked"))
223 +                     let at = t(au)
224 +                     if (!(isDefined(at)))
225 +                         then throw((("NFT " + ar.name) + " is not staked"))
197 226                          else {
198 -                             let an = valueOrErrorMessage(getString(n(am)), (("NFT " + aj.name) + " is orphaned"))
199 -                             if ((an != ai))
227 +                             let av = valueOrErrorMessage(getString(q(au)), (("NFT " + ar.name) + " is orphaned"))
228 +                             if ((av != aq))
200 229                                  then throw("Staked NFT is not yours")
201 -                                 else [ScriptTransfer(X.caller, 1, o), DeleteEntry(al), DeleteEntry(t(h, am, ai))]
230 +                                 else [ScriptTransfer(Z.caller, 1, r), DeleteEntry(at), DeleteEntry(w(i, au, aq))]
202 231                              }
203 232                      }
204 233          }
205 234  
206 235  
207 236  
208 - @Callable(X)
237 + @Callable(Z)
209 238  func stakeDuck () = {
210 -     let ah = value(X.payments[0])
211 -     let o = value(ah.assetId)
212 -     let ai = toString(X.caller)
213 -     if ((ah.amount != 1))
214 -         then throw((("NFT " + i) + " token should be attached as payment"))
239 +     let ap = value(Z.payments[0])
240 +     let r = value(ap.assetId)
241 +     let aq = toString(Z.caller)
242 +     if ((ap.amount != 1))
243 +         then throw((("NFT " + j) + " token should be attached as payment"))
215 244          else {
216 -             let aj = value(assetInfo(o))
217 -             if (if ((aj.issuer != d))
218 -                 then (aj.issuer != e)
245 +             let ar = value(assetInfo(r))
246 +             if (if ((ar.issuer != d))
247 +                 then (ar.issuer != e)
219 248                  else false)
220 -                 then throw((("Unknown issuer of " + i) + " token"))
221 -                 else if (!(contains(aj.name, i)))
222 -                     then throw((("Only NFT " + i) + " tokens are accepted"))
249 +                 then throw((("Unknown issuer of " + j) + " token"))
250 +                 else if (!(contains(ar.name, j)))
251 +                     then throw((("Only NFT " + j) + " tokens are accepted"))
223 252                      else {
224 -                         let ao = toBase58String(o)
225 -                         let al = q(ao)
226 -                         if (isDefined(getInteger(al)))
227 -                             then throw((("NFT " + aj.name) + " is already staked"))
228 -                             else if (isDefined(getString(r(ai))))
229 -                                 then throw(("You already staked one duck: " + aj.name))
253 +                         let aw = toBase58String(r)
254 +                         let at = t(aw)
255 +                         if (isDefined(getInteger(at)))
256 +                             then throw((("NFT " + ar.name) + " is already staked"))
257 +                             else if (isDefined(getString(u(aq))))
258 +                                 then throw(("You already staked one duck: " + ar.name))
230 259                                  else {
231 -                                     let ap = z(ao)
232 -                                     let aq = getString(ap)
233 -                                     let ar = A(ao)
234 -                                     let as = getInteger(ar)
235 -                                     let at = x(ao)
236 -                                     let au = getString(at)
237 -                                     ([IntegerEntry(al, lastBlock.timestamp), IntegerEntry(t(i, toBase58String(o), ai), lastBlock.timestamp), StringEntry(p(ao), ai), StringEntry(r(ai), ao)] ++ (if (isDefined(aq))
260 +                                     let ax = C(aw)
261 +                                     let ay = getString(ax)
262 +                                     let az = D(aw)
263 +                                     let aA = getInteger(az)
264 +                                     let aB = A(aw)
265 +                                     let aC = getString(aB)
266 +                                     ([IntegerEntry(at, lastBlock.timestamp), IntegerEntry(w(j, toBase58String(r), aq), lastBlock.timestamp), StringEntry(s(aw), aq), StringEntry(u(aq), aw)] ++ (if (isDefined(ay))
238 267                                          then nil
239 -                                         else ([StringEntry(ap, j)] ++ (if (isDefined(as))
268 +                                         else ([StringEntry(ax, k)] ++ (if (isDefined(aA))
240 269                                              then nil
241 -                                             else ([IntegerEntry(ar, 100)] ++ (if (isDefined(au))
270 +                                             else ([IntegerEntry(az, 100)] ++ (if (isDefined(aC))
242 271                                                  then nil
243 -                                                 else [StringEntry(at, "0:0_0_0_0_0_0::")]))))))
272 +                                                 else [StringEntry(aB, "0:0_0_0_0_0_0:0_0_0_0_0_0:")]))))))
244 273                                      }
245 274                          }
246 275              }
247 276      }
248 277  
249 278  
250 279  
251 - @Callable(X)
252 - func unstakeDuck (ao) = if ((size(X.payments) != 0))
280 + @Callable(Z)
281 + func unstakeDuck (aw) = if ((size(Z.payments) != 0))
253 282      then throw("unstake doesn't require any payments")
254 283      else {
255 -         let o = fromBase58String(ao)
256 -         let ai = toString(X.caller)
257 -         let aj = value(assetInfo(o))
258 -         if (if ((aj.issuer != d))
259 -             then (aj.issuer != e)
284 +         let r = fromBase58String(aw)
285 +         let aq = toString(Z.caller)
286 +         let ar = value(assetInfo(r))
287 +         if (if ((ar.issuer != d))
288 +             then (ar.issuer != e)
260 289              else false)
261 -             then throw((("Unknown issuer of " + i) + " token"))
262 -             else if (!(contains(aj.name, i)))
263 -                 then throw((("Only NFT " + i) + " tokens can be unstaked"))
290 +             then throw((("Unknown issuer of " + j) + " token"))
291 +             else if (!(contains(ar.name, j)))
292 +                 then throw((("Only NFT " + j) + " tokens can be unstaked"))
264 293                  else {
265 -                     let al = q(toBase58String(o))
266 -                     if (!(isDefined(al)))
267 -                         then throw((("NFT " + aj.name) + " is not staked"))
268 -                         else if (!(isDefined(r(ai))))
269 -                             then throw((("The duck " + aj.name) + " is not staked"))
294 +                     let at = t(toBase58String(r))
295 +                     if (!(isDefined(at)))
296 +                         then throw((("NFT " + ar.name) + " is not staked"))
297 +                         else if (!(isDefined(u(aq))))
298 +                             then throw((("The duck " + ar.name) + " is not staked"))
270 299                              else {
271 -                                 let an = valueOrErrorMessage(getString(p(toBase58String(o))), (("NFT " + aj.name) + " is orphaned"))
272 -                                 if ((an != ai))
300 +                                 let av = valueOrErrorMessage(getString(s(toBase58String(r))), (("NFT " + ar.name) + " is orphaned"))
301 +                                 if ((av != aq))
273 302                                      then throw("Staked NFT is not yours")
274 -                                     else [ScriptTransfer(X.caller, 1, o), DeleteEntry(al), DeleteEntry(z(ao)), DeleteEntry(t(i, ao, ai)), DeleteEntry(r(ai))]
303 +                                     else [ScriptTransfer(Z.caller, 1, r), DeleteEntry(at), DeleteEntry(C(aw)), DeleteEntry(w(j, aw, aq)), DeleteEntry(u(aq))]
275 304                                  }
276 305                      }
277 306          }
278 307  
279 308  
280 309  
281 - @Callable(X)
282 - func claimRes (av,am) = if ((size(X.payments) != 0))
310 + @Callable(Z)
311 + func claimRes (W,au) = if ((size(Z.payments) != 0))
283 312      then throw("claimRes doesn't require any payments")
284 313      else {
285 -         let aw = toString(X.caller)
286 -         let aj = value(assetInfo(fromBase58String(am)))
287 -         if (!(contains(aj.name, h)))
288 -             then throw((("NFT " + h) + " token should be passed as param"))
314 +         let aD = toString(Z.caller)
315 +         let ar = value(assetInfo(fromBase58String(au)))
316 +         if (!(contains(ar.name, i)))
317 +             then throw((("NFT " + i) + " token should be passed as param"))
289 318              else {
290 -                 let al = q(am)
291 -                 let ax = getInteger(al)
292 -                 if (!(isDefined(ax)))
293 -                     then throw((("NFT " + aj.name) + " is not staked"))
319 +                 let at = t(au)
320 +                 let aE = getInteger(at)
321 +                 if (!(isDefined(aE)))
322 +                     then throw((("NFT " + ar.name) + " is not staked"))
294 323                      else {
295 -                         let an = getStringValue(n(am))
296 -                         if ((an != aw))
297 -                             then throw((h + " is not yours"))
324 +                         let av = getStringValue(q(au))
325 +                         if ((av != aD))
326 +                             then throw((i + " is not yours"))
298 327                              else {
299 -                                 let ay = split(aj.description, "_")
300 -                                 let P = ay[C]
301 -                                 let S = M(ay[D])
302 -                                 let az = getString(r(aw))
303 -                                 if (!(isDefined(az)))
328 +                                 let aF = split(ar.description, "_")
329 +                                 let S = aF[F]
330 +                                 let ak = P(aF[G])
331 +                                 let aG = getString(u(aD))
332 +                                 if (!(isDefined(aG)))
304 333                                      then throw("You don't have a duck staked")
305 334                                      else {
306 -                                         let aA = value(az)
307 -                                         let aB = valueOrElse(getString(z(aA)), j)
308 -                                         let aC = split(value(aB), "_")
309 -                                         if ((aC[G] != "L"))
310 -                                             then throw((("Duck location type is " + aC[G]) + ", but should be L"))
311 -                                             else if ((aC[H] != am))
312 -                                                 then throw(((("Duck location id is " + aC[H]) + ", but should be ") + am))
335 +                                         let aH = value(aG)
336 +                                         let aI = valueOrElse(getString(C(aH)), k)
337 +                                         let aJ = split(value(aI), "_")
338 +                                         if ((aJ[J] != "L"))
339 +                                             then throw((("Duck location type is " + aJ[J]) + ", but should be L"))
340 +                                             else if ((aJ[K] != au))
341 +                                                 then throw(((("Duck location id is " + aJ[K]) + ", but should be ") + au))
313 342                                                  else {
314 -                                                     let T = (lastBlock.timestamp - value(ax))
315 -                                                     if ((0 > T))
316 -                                                         then throw(((("Saved timestamp is in future, saved = " + toString(value(ax))) + ", current = ") + toString(lastBlock.timestamp)))
343 +                                                     let al = (lastBlock.timestamp - value(aE))
344 +                                                     if ((0 > al))
345 +                                                         then throw(((("Saved timestamp is in future, saved = " + toString(value(aE))) + ", current = ") + toString(lastBlock.timestamp)))
317 346                                                          else {
318 -                                                             let aD = O(P)
319 -                                                             let aE = (fraction(T, k, l) * aD)
320 -                                                             if ((av > aE))
321 -                                                                 then throw(((("Not enough resources, available = " + toString(aE)) + ", requested = ") + toString(av)))
347 +                                                             let aK = R(S)
348 +                                                             let aL = (fraction(al, m, n) * aK)
349 +                                                             if ((W > aL))
350 +                                                                 then throw(((("Not enough resources, available = " + toString(aL)) + ", requested = ") + toString(W)))
322 351                                                                  else {
323 -                                                                     let aF = fraction((aE - av), l, (aD * k))
324 -                                                                     let aG = (lastBlock.timestamp - aF)
325 -                                                                     let at = x(aA)
326 -                                                                     let aH = split(valueOrElse(getString(at), "0:0_0_0_0_0_0::"), ":")
327 -                                                                     let R = split(aH[J], "_")
328 -                                                                     let aI = Q(R, S, (T - aF), (aD / 25))
329 -                                                                     let aJ = makeString([aH[I], aI, aH[K], aH[L]], ":")
330 -                                                                     $Tuple2([StringEntry(at, aJ), IntegerEntry(al, aG), IntegerEntry(t(h, am, an), aG)], unit)
352 +                                                                     let aM = fraction((aL - W), n, (aK * m))
353 +                                                                     let aN = (lastBlock.timestamp - aM)
354 +                                                                     let aB = A(aH)
355 +                                                                     let aO = split(valueOrElse(getString(aB), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
356 +                                                                     let aj = split(aO[M], "_")
357 +                                                                     let aP = ai(aj, ak, (al - aM), (aK / 25))
358 +                                                                     let aQ = makeString([aO[L], aP, aO[N], aO[O]], ":")
359 +                                                                     $Tuple2([StringEntry(aB, aQ), IntegerEntry(at, aN), IntegerEntry(w(i, au, av), aN)], unit)
331 360                                                                      }
332 361                                                              }
333 362                                                      }
334 363                                          }
335 364                                  }
336 365                          }
337 366                  }
338 367          }
339 368  
340 369  
341 370  
342 - @Callable(X)
343 - func flight (aK,aL) = if (!(sigVerify_8Kb(aK, aL, g)))
371 + @Callable(Z)
372 + func flight (aR,aS) = if (!(sigVerify_8Kb(aR, aS, g)))
344 373      then throw("signature does not match")
345 -     else if ((size(X.payments) != 0))
374 +     else if ((size(Z.payments) != 0))
346 375          then throw("flight doesn't require any payments")
347 376          else {
348 -             let aM = split(toUtf8String(aK), ";")
349 -             let aN = split(split(aM[0], "|")[0], "_")
350 -             let aO = parseIntValue(aN[0])
351 -             let aP = parseIntValue(aN[1])
352 -             let aQ = split(aM[1], ":")
353 -             let aR = aQ[0]
354 -             let aS = parseIntValue(aQ[1])
355 -             if (if ((aS > (lastBlock.timestamp + m)))
377 +             let aT = split(toUtf8String(aR), ";")
378 +             let aU = split(split(aT[0], "|")[0], "_")
379 +             let aV = parseIntValue(aU[0])
380 +             let aW = parseIntValue(aU[1])
381 +             let aX = split(aT[1], ":")
382 +             let aY = aX[0]
383 +             let aZ = parseIntValue(aX[1])
384 +             if (if ((aZ > (lastBlock.timestamp + o)))
356 385                  then true
357 -                 else ((lastBlock.timestamp - m) > aS))
386 +                 else ((lastBlock.timestamp - o) > aZ))
358 387                  then throw("signature outdated")
359 388                  else {
360 -                     let y = valueOrErrorMessage(getString(r(toString(X.caller))), "You don't have a duck staked")
361 -                     let ar = A(y)
362 -                     let aT = valueOrElse(getInteger(ar), 100)
363 -                     if ((aT != aO))
364 -                         then throw(((("oldHealth=" + toString(valueOrElse(getInteger(ar), 100))) + " from state does not match one from flight log=") + toString(aO)))
365 -                         else if ((0 >= aO))
389 +                     let B = valueOrErrorMessage(getString(u(toString(Z.caller))), "You don't have a duck staked")
390 +                     let az = D(B)
391 +                     let ba = valueOrElse(getInteger(az), 100)
392 +                     if ((ba != aV))
393 +                         then throw(((("oldHealth=" + toString(valueOrElse(getInteger(az), 100))) + " from state does not match one from flight log=") + toString(aV)))
394 +                         else if ((0 >= aV))
366 395                              then throw("You can't fly with zero health")
367 396                              else {
368 -                                 let ap = z(y)
369 -                                 let aB = valueOrElse(getString(ap), j)
370 -                                 if ((aR == aB))
397 +                                 let ax = C(B)
398 +                                 let aI = valueOrElse(getString(ax), k)
399 +                                 if ((aY == aI))
371 400                                      then throw("You can't fly to the same location")
372 -                                     else $Tuple2([StringEntry(ap, if ((aP > 0))
373 -                                         then aR
374 -                                         else aB), IntegerEntry(ar, aP)], unit)
401 +                                     else $Tuple2([StringEntry(ax, if ((aW > 0))
402 +                                         then aY
403 +                                         else aI), IntegerEntry(az, aW)], unit)
375 404                                  }
376 405                      }
377 406              }
378 407  
379 408  
380 409  
381 - @Callable(X)
382 - func setHealth (as,y) = {
383 -     let aA = valueOrErrorMessage(getString(r(toString(X.caller))), "You don't have a duck staked")
384 -     if (if ((0 > as))
410 + @Callable(Z)
411 + func setHealth (aA,B) = if ((Z.caller != this))
412 +     then throw("permission denied")
413 +     else if (if ((0 > aA))
385 414          then true
386 -         else (as > 100))
415 +         else (aA > 100))
387 416          then throw("HP should be within 0..100")
388 -         else [IntegerEntry(A(y), as)]
389 -     }
417 +         else [IntegerEntry(D(B), aA)]
390 418  
391 419  
392 420  
393 - @Callable(X)
394 - func updateBackpack (y,aJ) = if ((X.caller != f))
421 + @Callable(Z)
422 + func heal (bb,W) = if (if ((0 > bb))
423 +     then true
424 +     else (bb >= l))
425 +     then throw(("Unknown material: " + toString(bb)))
426 +     else if ((0 >= W))
427 +         then throw(("Amount should be positive! " + toString(W)))
428 +         else {
429 +             let B = valueOrErrorMessage(getString(u(toString(Z.caller))), "You don't have a duck staked")
430 +             let az = D(B)
431 +             let bc = valueOrElse(getInteger(az), 100)
432 +             if ((bc >= 100))
433 +                 then throw("HP should be < 100 to heal")
434 +                 else {
435 +                     let aB = A(B)
436 +                     let aO = split(valueOrElse(getString(aB), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
437 +                     let bd = split(aO[N], "_")
438 +                     let be = if ((size(bd) != l))
439 +                         then ["0", "0", "0", "0", "0", "0"]
440 +                         else bd
441 +                     let bf = parseIntValue(be[bb])
442 +                     let bg = min([(W / h), (100 - bc)])
443 +                     let bh = (bg * h)
444 +                     if ((bh > bf))
445 +                         then throw(((((("You need " + toString(bh)) + " of ") + p[bb]) + " to heal, but you backpack contains ") + toString(bf)))
446 +                         else {
447 +                             let bi = T(be, bb, bh)
448 + [IntegerEntry(az, (bc + bg)), StringEntry(aB, makeString([aO[L], aO[M], bi, aO[O]], ":"))]
449 +                             }
450 +                     }
451 +             }
452 + 
453 + 
454 + 
455 + @Callable(Z)
456 + func updateBackpack (B,aQ) = if ((Z.caller != f))
395 457      then throw("permission denied")
396 -     else $Tuple2([StringEntry(x(y), aJ)], aJ)
458 +     else $Tuple2([StringEntry(A(B), aQ)], aQ)
397 459  
398 460

Old	New		Differences
41	41
42	42		let g = base58'6LfPuKJjLgekmncBhMg2LZyMTNVzZBccXR28ySXm9uXD'
43	43
44		-	let h = ~~"LAND"~~
	44	+	let h = 10000
45	45
46		-	let i = "~~DUCK~~"
	46	+	let i = "LAND"
47	47
48		-	let j = "~~Africa_F_Africa~~"
	48	+	let j = "DUCK"
49	49
50		-	let k = ~~3456000~~
	50	+	let k = "Africa_F_Africa"
51	51
52		-	let l = ~~86400000~~
	52	+	let l = 6
53	53
54		-	let m = ~~300000~~
	54	+	let m = 3456000
55	55
56		-	func n (o) = ("nftOwner_" + o)
	56	+	let n = 86400000
	57	+
	58	+	let o = 300000
	59	+
	60	+	let p = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
	61	+
	62	+	func q (r) = ("nftOwner_" + r)
57	63
58	64
59		-	func p (o) = ("duckOwner_" + o)
	65	+	func s (r) = ("duckOwner_" + r)
60	66
61	67
62		-	func q (o) = ("stakedTime_" + o)
	68	+	func t (r) = ("stakedTime_" + r)
63	69
64	70
65		-	func r (s) = ("stakedDuckByOwner_" + s)
	71	+	func u (v) = ("stakedDuckByOwner_" + v)
66	72
67	73
68		-	func t (u,o,s) = ((((("stakedTimeByTypeAssetIdAndOwner_" + u) + "_") + o) + "_") + s)
	74	+	func w (x,r,v) = ((((("stakedTimeByTypeAssetIdAndOwner_" + x) + "_") + r) + "_") + v)
69	75
70	76
71		-	func v (w) = ("landOwner_" + w)
	77	+	func y (z) = ("landOwner_" + z)
72	78
73	79
74		-	func x (y) = ("backPack_" + y)
	80	+	func A (B) = ("backPack_" + B)
75	81
76	82
77		-	func z (y) = ("duckLocation_" + y)
	83	+	func C (B) = ("duckLocation_" + B)
78	84
79	85
80		-	func A (y) = ("duckHealth_" + y)
	86	+	func D (B) = ("duckHealth_" + B)
81	87
82	88
83		-	let B = 0
	89	+	let E = 0
84	90
85		-	let C = 1
	91	+	let F = 1
86	92
87		-	let D = 2
	93	+	let G = 2
88	94
89		-	let E = 3
90		-
91		-	let F = 0
92		-
93		-	let G = 1
94		-
95		-	let H = 2
	95	+	let H = 3
96	96
97	97		let I = 0
98	98

100	100
101	101		let K = 2
102	102
103		-	let L = 3
	103	+	let L = 0
104	104
105		-	func M (N) = [(size(split(N, "A")) - 1), (size(split(N, "B")) - 1), (size(split(N, "C")) - 1), (size(split(N, "D")) - 1), (size(split(N, "E")) - 1), (size(split(N, "F")) - 1)]
	105	+	let M = 1
	106	+
	107	+	let N = 2
	108	+
	109	+	let O = 3
	110	+
	111	+	func P (Q) = [(size(split(Q, "A")) - 1), (size(split(Q, "B")) - 1), (size(split(Q, "C")) - 1), (size(split(Q, "D")) - 1), (size(split(Q, "E")) - 1), (size(split(Q, "F")) - 1)]
106	112
107	113
108		-	func O (P) = {
109		-	let c = P
	114	+	func R (S) = {
	115	+	let c = S
110	116		if (("S" == c))
111	117		then 25
112	118		else if (("M" == c))

121	127		}
122	128
123	129
124		-	func Q (R,S,T,U) = {
125		-	func V (W,X) = {
126		-	let Y = ((fraction(T, k, l) * S[X]) * U)
127		-	(W :+ toString((parseIntValue(R[X]) + Y)))
128		-	}
	130	+	func T (U,V,W) = {
	131	+	func X (Y,Z) = (Y :+ (if ((Z == V))
	132	+	then toString((parseIntValue(U[Z]) - W))
	133	+	else U[Z]))
129	134
130		-	let Z = {
131		-	let aa = [0, 1, 2, 3, 4, 5]
132		-	let ab = size(aa)
133		-	let ac = nil
134		-	func ad (ae,af) = if ((af >= ab))
135		-	then ae
136		-	else V(ae, aa[af])
	135	+	let aa = {
	136	+	let ab = [0, 1, 2, 3, 4, 5]
	137	+	let ac = size(ab)
	138	+	let ad = nil
	139	+	func ae (af,ag) = if ((ag >= ac))
	140	+	then af
	141	+	else X(af, ab[ag])
137	142
138		-	func ag (ae,af) = if ((af >= ab))
139		-	then ae
	143	+	func ah (af,ag) = if ((ag >= ac))
	144	+	then af
140	145		else throw("List size exceeds 6")
141	146
142		-	ag(ad~~(ad(ad(ad(ad(ad(ac~~, 0), 1), 2), 3), 4), 5), 6)
	147	+	ah(ae(ae(ae(ae(ae(ae(ad, 0), 1), 2), 3), 4), 5), 6)
143	148		}
144		-	makeString(Z, "_")
	149	+	makeString(aa, "_")
145	150		}
146	151
147	152
148		-	@Callable(X)
	153	+	func ai (aj,ak,al,am) = {
	154	+	func an (Y,Z) = {
	155	+	let ao = ((fraction(al, m, n) * ak[Z]) * am)
	156	+	(Y :+ toString((parseIntValue(aj[Z]) + ao)))
	157	+	}
	158	+
	159	+	let aa = {
	160	+	let ab = [0, 1, 2, 3, 4, 5]
	161	+	let ac = size(ab)
	162	+	let ad = nil
	163	+	func ae (af,ag) = if ((ag >= ac))
	164	+	then af
	165	+	else an(af, ab[ag])
	166	+
	167	+	func ah (af,ag) = if ((ag >= ac))
	168	+	then af
	169	+	else throw("List size exceeds 6")
	170	+
	171	+	ah(ae(ae(ae(ae(ae(ae(ad, 0), 1), 2), 3), 4), 5), 6)
	172	+	}
	173	+	makeString(aa, "_")
	174	+	}
	175	+
	176	+
	177	+	@Callable(Z)
149	178		func stakeLand () = {
150		-	let ah = value(X.payments[0])
151		-	let o = value(ah.assetId)
152		-	let ai = toString(X.caller)
153		-	if ((ah.amount != 1))
154		-	then throw((("NFT " + h) + " token should be attached as payment"))
	179	+	let ap = value(Z.payments[0])
	180	+	let r = value(ap.assetId)
	181	+	let aq = toString(Z.caller)
	182	+	if ((ap.amount != 1))
	183	+	then throw((("NFT " + i) + " token should be attached as payment"))
155	184		else {
156		-	let aj = value(assetInfo(o))
157		-	if ((aj.issuer != this))
	185	+	let ar = value(assetInfo(r))
	186	+	if ((ar.issuer != this))
158	187		then throw("Unknown issuer of token")
159		-	else if (!(contains(aj.name, h)))
160		-	then throw((("Only NFT " + h) + " tokens are accepted"))
	188	+	else if (!(contains(ar.name, i)))
	189	+	then throw((("Only NFT " + i) + " tokens are accepted"))
161	190		else {
162		-	let ak = drop(aj.name, 4)
163		-	let w = if (contains(ak, "XXL"))
164		-	then dropRight(ak, 3)
165		-	else if (contains(ak, "XL"))
166		-	then dropRight(ak, 2)
167		-	else dropRight(ak, 1)
168		-	if (!(isDefined(parseInt(w))))
169		-	then throw(("Cannot parse land number from " + aj.name))
	191	+	let as = drop(ar.name, 4)
	192	+	let z = if (contains(as, "XXL"))
	193	+	then dropRight(as, 3)
	194	+	else if (contains(as, "XL"))
	195	+	then dropRight(as, 2)
	196	+	else dropRight(as, 1)
	197	+	if (!(isDefined(parseInt(z))))
	198	+	then throw(("Cannot parse land number from " + ar.name))
170	199		else {
171		-	let al = q(toBase58String(o))
172		-	if (isDefined(getInteger(al)))
173		-	then throw((("NFT " + aj.name) + " is already staked"))
174		-	else [IntegerEntry(al, lastBlock.timestamp), IntegerEntry(t(h, toBase58String(o), ai), lastBlock.timestamp), StringEntry(n(toBase58String(o)), ai), StringEntry(v(w), ai)]
	200	+	let at = t(toBase58String(r))
	201	+	if (isDefined(getInteger(at)))
	202	+	then throw((("NFT " + ar.name) + " is already staked"))
	203	+	else [IntegerEntry(at, lastBlock.timestamp), IntegerEntry(w(i, toBase58String(r), aq), lastBlock.timestamp), StringEntry(q(toBase58String(r)), aq), StringEntry(y(z), aq)]
175	204		}
176	205		}
177	206		}

179	208
180	209
181	210
182		-	@Callable(X)
183		-	func unstakeLand (am) = if ((size(X.payments) != 0))
	211	+	@Callable(Z)
	212	+	func unstakeLand (au) = if ((size(Z.payments) != 0))
184	213		then throw("unstake doesn't require any payments")
185	214		else {
186		-	let o = fromBase58String(am)
187		-	let ai = toString(X.caller)
188		-	let aj = value(assetInfo(o))
189		-	if ((aj.issuer != this))
	215	+	let r = fromBase58String(au)
	216	+	let aq = toString(Z.caller)
	217	+	let ar = value(assetInfo(r))
	218	+	if ((ar.issuer != this))
190	219		then throw("Unknown issuer of token")
191		-	else if (!(contains(aj.name, h)))
192		-	then throw((("Only NFT " + h) + " tokens can be unstaked"))
	220	+	else if (!(contains(ar.name, i)))
	221	+	then throw((("Only NFT " + i) + " tokens can be unstaked"))
193	222		else {
194		-	let al = q(am)
195		-	if (!(isDefined(al)))
196		-	then throw((("NFT " + aj.name) + " is not staked"))
	223	+	let at = t(au)
	224	+	if (!(isDefined(at)))
	225	+	then throw((("NFT " + ar.name) + " is not staked"))
197	226		else {
198		-	let an = valueOrErrorMessage(getString(n(am)), (("NFT " + aj.name) + " is orphaned"))
199		-	if ((an != ai))
	227	+	let av = valueOrErrorMessage(getString(q(au)), (("NFT " + ar.name) + " is orphaned"))
	228	+	if ((av != aq))
200	229		then throw("Staked NFT is not yours")
201		-	else [ScriptTransfer(X.caller, 1, o), DeleteEntry(al), DeleteEntry(t(h, am, ai))]
	230	+	else [ScriptTransfer(Z.caller, 1, r), DeleteEntry(at), DeleteEntry(w(i, au, aq))]
202	231		}
203	232		}
204	233		}
205	234
206	235
207	236
208		-	@Callable(X)
	237	+	@Callable(Z)
209	238		func stakeDuck () = {
210		-	let ah = value(X.payments[0])
211		-	let o = value(ah.assetId)
212		-	let ai = toString(X.caller)
213		-	if ((ah.amount != 1))
214		-	then throw((("NFT " + i) + " token should be attached as payment"))
	239	+	let ap = value(Z.payments[0])
	240	+	let r = value(ap.assetId)
	241	+	let aq = toString(Z.caller)
	242	+	if ((ap.amount != 1))
	243	+	then throw((("NFT " + j) + " token should be attached as payment"))
215	244		else {
216		-	let aj = value(assetInfo(o))
217		-	if (if ((aj.issuer != d))
218		-	then (aj.issuer != e)
	245	+	let ar = value(assetInfo(r))
	246	+	if (if ((ar.issuer != d))
	247	+	then (ar.issuer != e)
219	248		else false)
220		-	then throw((("Unknown issuer of " + i) + " token"))
221		-	else if (!(contains(aj.name, i)))
222		-	then throw((("Only NFT " + i) + " tokens are accepted"))
	249	+	then throw((("Unknown issuer of " + j) + " token"))
	250	+	else if (!(contains(ar.name, j)))
	251	+	then throw((("Only NFT " + j) + " tokens are accepted"))
223	252		else {
224		-	let ao = toBase58String(o)
225		-	let al = q(ao)
226		-	if (isDefined(getInteger(al)))
227		-	then throw((("NFT " + aj.name) + " is already staked"))
228		-	else if (isDefined(getString(r(ai))))
229		-	then throw(("You already staked one duck: " + aj.name))
	253	+	let aw = toBase58String(r)
	254	+	let at = t(aw)
	255	+	if (isDefined(getInteger(at)))
	256	+	then throw((("NFT " + ar.name) + " is already staked"))
	257	+	else if (isDefined(getString(u(aq))))
	258	+	then throw(("You already staked one duck: " + ar.name))
230	259		else {
231		-	let ap = z(ao)
232		-	let aq = getString(ap)
233		-	let ar = A(ao)
234		-	let as = getInteger(ar)
235		-	let at = x(ao)
236		-	let au = getString(at)
237		-	([IntegerEntry(al, lastBlock.timestamp), IntegerEntry(t(i, toBase58String(o), ai), lastBlock.timestamp), StringEntry(p(ao), ai), StringEntry(r(ai), ao)] ++ (if (isDefined(aq))
	260	+	let ax = C(aw)
	261	+	let ay = getString(ax)
	262	+	let az = D(aw)
	263	+	let aA = getInteger(az)
	264	+	let aB = A(aw)
	265	+	let aC = getString(aB)
	266	+	([IntegerEntry(at, lastBlock.timestamp), IntegerEntry(w(j, toBase58String(r), aq), lastBlock.timestamp), StringEntry(s(aw), aq), StringEntry(u(aq), aw)] ++ (if (isDefined(ay))
238	267		then nil
239		-	else ([StringEntry(ap, j)] ++ (if (isDefined(as))
	268	+	else ([StringEntry(ax, k)] ++ (if (isDefined(aA))
240	269		then nil
241		-	else ([IntegerEntry(ar, 100)] ++ (if (isDefined(au))
	270	+	else ([IntegerEntry(az, 100)] ++ (if (isDefined(aC))
242	271		then nil
243		-	else [StringEntry(at, "0:0_0_0_0_0_0::")]))))))
	272	+	else [StringEntry(aB, "0:0_0_0_0_0_0:0_0_0_0_0_0:")]))))))
244	273		}
245	274		}
246	275		}

248	277
249	278
250	279
251		-	@Callable(X)
252		-	func unstakeDuck (ao) = if ((size(X.payments) != 0))
	280	+	@Callable(Z)
	281	+	func unstakeDuck (aw) = if ((size(Z.payments) != 0))
253	282		then throw("unstake doesn't require any payments")
254	283		else {
255		-	let o = fromBase58String(ao)
256		-	let ai = toString(X.caller)
257		-	let aj = value(assetInfo(o))
258		-	if (if ((aj.issuer != d))
259		-	then (aj.issuer != e)
	284	+	let r = fromBase58String(aw)
	285	+	let aq = toString(Z.caller)
	286	+	let ar = value(assetInfo(r))
	287	+	if (if ((ar.issuer != d))
	288	+	then (ar.issuer != e)
260	289		else false)
261		-	then throw((("Unknown issuer of " + i) + " token"))
262		-	else if (!(contains(aj.name, i)))
263		-	then throw((("Only NFT " + i) + " tokens can be unstaked"))
	290	+	then throw((("Unknown issuer of " + j) + " token"))
	291	+	else if (!(contains(ar.name, j)))
	292	+	then throw((("Only NFT " + j) + " tokens can be unstaked"))
264	293		else {
265		-	let al = q(toBase58String(o))
266		-	if (!(isDefined(al)))
267		-	then throw((("NFT " + aj.name) + " is not staked"))
268		-	else if (!(isDefined(r(ai))))
269		-	then throw((("The duck " + aj.name) + " is not staked"))
	294	+	let at = t(toBase58String(r))
	295	+	if (!(isDefined(at)))
	296	+	then throw((("NFT " + ar.name) + " is not staked"))
	297	+	else if (!(isDefined(u(aq))))
	298	+	then throw((("The duck " + ar.name) + " is not staked"))
270	299		else {
271		-	let an = valueOrErrorMessage(getString(p(toBase58String(o))), (("NFT " + aj.name) + " is orphaned"))
272		-	if ((an != ai))
	300	+	let av = valueOrErrorMessage(getString(s(toBase58String(r))), (("NFT " + ar.name) + " is orphaned"))
	301	+	if ((av != aq))
273	302		then throw("Staked NFT is not yours")
274		-	else [ScriptTransfer(X.caller, 1, o), DeleteEntry(al), DeleteEntry(z(ao)), DeleteEntry(t(i, ao, ai)), DeleteEntry(r(ai))]
	303	+	else [ScriptTransfer(Z.caller, 1, r), DeleteEntry(at), DeleteEntry(C(aw)), DeleteEntry(w(j, aw, aq)), DeleteEntry(u(aq))]
275	304		}
276	305		}
277	306		}
278	307
279	308
280	309
281		-	@Callable(X)
282		-	func claimRes (av,am) = if ((size(X.payments) != 0))
	310	+	@Callable(Z)
	311	+	func claimRes (W,au) = if ((size(Z.payments) != 0))
283	312		then throw("claimRes doesn't require any payments")
284	313		else {
285		-	let aw = toString(X.caller)
286		-	let aj = value(assetInfo(fromBase58String(am)))
287		-	if (!(contains(aj.name, h)))
288		-	then throw((("NFT " + h) + " token should be passed as param"))
	314	+	let aD = toString(Z.caller)
	315	+	let ar = value(assetInfo(fromBase58String(au)))
	316	+	if (!(contains(ar.name, i)))
	317	+	then throw((("NFT " + i) + " token should be passed as param"))
289	318		else {
290		-	let al = q(am)
291		-	let ax = getInteger(al)
292		-	if (!(isDefined(ax)))
293		-	then throw((("NFT " + aj.name) + " is not staked"))
	319	+	let at = t(au)
	320	+	let aE = getInteger(at)
	321	+	if (!(isDefined(aE)))
	322	+	then throw((("NFT " + ar.name) + " is not staked"))
294	323		else {
295		-	let an = getStringValue(n(am))
296		-	if ((an != aw))
297		-	then throw((h + " is not yours"))
	324	+	let av = getStringValue(q(au))
	325	+	if ((av != aD))
	326	+	then throw((i + " is not yours"))
298	327		else {
299		-	let ay = split(aj.description, "_")
300		-	let P = ay[C]
301		-	let S = M(ay[D])
302		-	let az = getString(r(aw))
303		-	if (!(isDefined(az)))
	328	+	let aF = split(ar.description, "_")
	329	+	let S = aF[F]
	330	+	let ak = P(aF[G])
	331	+	let aG = getString(u(aD))
	332	+	if (!(isDefined(aG)))
304	333		then throw("You don't have a duck staked")
305	334		else {
306		-	let aA = value(az)
307		-	let aB = valueOrElse(getString(z(aA)), j)
308		-	let aC = split(value(aB), "_")
309		-	if ((aC[G] != "L"))
310		-	then throw((("Duck location type is " + aC[G]) + ", but should be L"))
311		-	else if ((aC[H] != am))
312		-	then throw(((("Duck location id is " + aC[H]) + ", but should be ") + am))
	335	+	let aH = value(aG)
	336	+	let aI = valueOrElse(getString(C(aH)), k)
	337	+	let aJ = split(value(aI), "_")
	338	+	if ((aJ[J] != "L"))
	339	+	then throw((("Duck location type is " + aJ[J]) + ", but should be L"))
	340	+	else if ((aJ[K] != au))
	341	+	then throw(((("Duck location id is " + aJ[K]) + ", but should be ") + au))
313	342		else {
314		-	let T = (lastBlock.timestamp - value(ax))
315		-	if ((0 > T))
316		-	then throw(((("Saved timestamp is in future, saved = " + toString(value(ax))) + ", current = ") + toString(lastBlock.timestamp)))
	343	+	let al = (lastBlock.timestamp - value(aE))
	344	+	if ((0 > al))
	345	+	then throw(((("Saved timestamp is in future, saved = " + toString(value(aE))) + ", current = ") + toString(lastBlock.timestamp)))
317	346		else {
318		-	let aD = O(P)
319		-	let aE = (fraction(T, k, l) * aD)
320		-	if ((av > aE))
321		-	then throw(((("Not enough resources, available = " + toString(aE)) + ", requested = ") + toString(av)))
	347	+	let aK = R(S)
	348	+	let aL = (fraction(al, m, n) * aK)
	349	+	if ((W > aL))
	350	+	then throw(((("Not enough resources, available = " + toString(aL)) + ", requested = ") + toString(W)))
322	351		else {
323		-	let aF = fraction((~~aE - av~~), l, (aD * k))
324		-	let aG = (lastBlock.timestamp - aF)
325		-	let at = x(aA)
326		-	let aH = split(valueOrElse(getString(at), "0:0_0_0_0_0_0::"), ":")
327		-	let R = split(aH[J], "_")
328		-	let aI = Q(R, S, (~~T - aF~~), (aD / 25))
329		-	let aJ = makeString([aH[I], aI, aH[K], aH[L]], ":")
330		-	$Tuple2([StringEntry(at, aJ), IntegerEntry(al, aG), IntegerEntry(t(h, am, an), aG)], unit)
	352	+	let aM = fraction((aL - W), n, (aK * m))
	353	+	let aN = (lastBlock.timestamp - aM)
	354	+	let aB = A(aH)
	355	+	let aO = split(valueOrElse(getString(aB), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
	356	+	let aj = split(aO[M], "_")
	357	+	let aP = ai(aj, ak, (al - aM), (aK / 25))
	358	+	let aQ = makeString([aO[L], aP, aO[N], aO[O]], ":")
	359	+	$Tuple2([StringEntry(aB, aQ), IntegerEntry(at, aN), IntegerEntry(w(i, au, av), aN)], unit)
331	360		}
332	361		}
333	362		}

339	368
340	369
341	370
342		-	@Callable(X)
343		-	func flight (aK,aL) = if (!(sigVerify_8Kb(aK, aL, g)))
	371	+	@Callable(Z)
	372	+	func flight (aR,aS) = if (!(sigVerify_8Kb(aR, aS, g)))
344	373		then throw("signature does not match")
345		-	else if ((size(X.payments) != 0))
	374	+	else if ((size(Z.payments) != 0))
346	375		then throw("flight doesn't require any payments")
347	376		else {
348		-	let aM = split(toUtf8String(aK), ";")
349		-	let aN = split(split(aM[0], "\|")[0], "_")
350		-	let aO = parseIntValue(aN[0])
351		-	let aP = parseIntValue(aN[1])
352		-	let aQ = split(aM[1], ":")

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let a = toUtf8String(take(drop(this.bytes, 1), 1))
5	5
6	6		let b = {
7	7		let c = a
8	8		if (("W" == c))
9	9		then base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
10	10		else if (("T" == c))
11	11		then base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
12	12		else throw("Unknown chain")
13	13		}
14	14
15	15		let d = {
16	16		let c = a
17	17		if (("W" == c))
18	18		then addressFromStringValue("3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv")
19	19		else if (("T" == c))
20	20		then this
21	21		else throw("Unknown chain")
22	22		}
23	23
24	24		let e = {
25	25		let c = a
26	26		if (("W" == c))
27	27		then addressFromStringValue("3PDVuU45H7Eh5dmtNbnRNRStGwULA7NY6Hb")
28	28		else if (("T" == c))
29	29		then this
30	30		else throw("Unknown chain")
31	31		}
32	32
33	33		let f = {
34	34		let c = a
35	35		if (("W" == c))
36	36		then addressFromStringValue("3P2sk1KncSxRaZs8b4CWGPw2jkvvav74u4D")
37	37		else if (("T" == c))
38	38		then addressFromStringValue("3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep")
39	39		else throw("Unknown chain")
40	40		}
41	41
42	42		let g = base58'6LfPuKJjLgekmncBhMg2LZyMTNVzZBccXR28ySXm9uXD'
43	43
44		-	let h = ~~"LAND"~~
	44	+	let h = 10000
45	45
46		-	let i = "~~DUCK~~"
	46	+	let i = "LAND"
47	47
48		-	let j = "~~Africa_F_Africa~~"
	48	+	let j = "DUCK"
49	49
50		-	let k = ~~3456000~~
	50	+	let k = "Africa_F_Africa"
51	51
52		-	let l = ~~86400000~~
	52	+	let l = 6
53	53
54		-	let m = ~~300000~~
	54	+	let m = 3456000
55	55
56		-	func n (o) = ("nftOwner_" + o)
	56	+	let n = 86400000
	57	+
	58	+	let o = 300000
	59	+
	60	+	let p = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
	61	+
	62	+	func q (r) = ("nftOwner_" + r)
57	63
58	64
59		-	func p (o) = ("duckOwner_" + o)
	65	+	func s (r) = ("duckOwner_" + r)
60	66
61	67
62		-	func q (o) = ("stakedTime_" + o)
	68	+	func t (r) = ("stakedTime_" + r)
63	69
64	70
65		-	func r (s) = ("stakedDuckByOwner_" + s)
	71	+	func u (v) = ("stakedDuckByOwner_" + v)
66	72
67	73
68		-	func t (u,o,s) = ((((("stakedTimeByTypeAssetIdAndOwner_" + u) + "_") + o) + "_") + s)
	74	+	func w (x,r,v) = ((((("stakedTimeByTypeAssetIdAndOwner_" + x) + "_") + r) + "_") + v)
69	75
70	76
71		-	func v (w) = ("landOwner_" + w)
	77	+	func y (z) = ("landOwner_" + z)
72	78
73	79
74		-	func x (y) = ("backPack_" + y)
	80	+	func A (B) = ("backPack_" + B)
75	81
76	82
77		-	func z (y) = ("duckLocation_" + y)
	83	+	func C (B) = ("duckLocation_" + B)
78	84
79	85
80		-	func A (y) = ("duckHealth_" + y)
	86	+	func D (B) = ("duckHealth_" + B)
81	87
82	88
83		-	let B = 0
	89	+	let E = 0
84	90
85		-	let C = 1
	91	+	let F = 1
86	92
87		-	let D = 2
	93	+	let G = 2
88	94
89		-	let E = 3
90		-
91		-	let F = 0
92		-
93		-	let G = 1
94		-
95		-	let H = 2
	95	+	let H = 3
96	96
97	97		let I = 0
98	98
99	99		let J = 1
100	100
101	101		let K = 2
102	102
103		-	let L = 3
	103	+	let L = 0
104	104
105		-	func M (N) = [(size(split(N, "A")) - 1), (size(split(N, "B")) - 1), (size(split(N, "C")) - 1), (size(split(N, "D")) - 1), (size(split(N, "E")) - 1), (size(split(N, "F")) - 1)]
	105	+	let M = 1
	106	+
	107	+	let N = 2
	108	+
	109	+	let O = 3
	110	+
	111	+	func P (Q) = [(size(split(Q, "A")) - 1), (size(split(Q, "B")) - 1), (size(split(Q, "C")) - 1), (size(split(Q, "D")) - 1), (size(split(Q, "E")) - 1), (size(split(Q, "F")) - 1)]
106	112
107	113
108		-	func O (P) = {
109		-	let c = P
	114	+	func R (S) = {
	115	+	let c = S
110	116		if (("S" == c))
111	117		then 25
112	118		else if (("M" == c))
113	119		then 100
114	120		else if (("L" == c))
115	121		then 225
116	122		else if (("XL" == c))
117	123		then 400
118	124		else if (("XXL" == c))
119	125		then 625
120	126		else throw("Unknown land size")
121	127		}
122	128
123	129
124		-	func Q (R,S,T,U) = {
125		-	func V (W,X) = {
126		-	let Y = ((fraction(T, k, l) * S[X]) * U)
127		-	(W :+ toString((parseIntValue(R[X]) + Y)))
128		-	}
	130	+	func T (U,V,W) = {
	131	+	func X (Y,Z) = (Y :+ (if ((Z == V))
	132	+	then toString((parseIntValue(U[Z]) - W))
	133	+	else U[Z]))
129	134
130		-	let Z = {
131		-	let aa = [0, 1, 2, 3, 4, 5]
132		-	let ab = size(aa)
133		-	let ac = nil
134		-	func ad (ae,af) = if ((af >= ab))
135		-	then ae
136		-	else V(ae, aa[af])
	135	+	let aa = {
	136	+	let ab = [0, 1, 2, 3, 4, 5]
	137	+	let ac = size(ab)
	138	+	let ad = nil
	139	+	func ae (af,ag) = if ((ag >= ac))
	140	+	then af
	141	+	else X(af, ab[ag])
137	142
138		-	func ag (ae,af) = if ((af >= ab))
139		-	then ae
	143	+	func ah (af,ag) = if ((ag >= ac))
	144	+	then af
140	145		else throw("List size exceeds 6")
141	146
142		-	ag(ad~~(ad(ad(ad(ad(ad(ac~~, 0), 1), 2), 3), 4), 5), 6)
	147	+	ah(ae(ae(ae(ae(ae(ae(ad, 0), 1), 2), 3), 4), 5), 6)
143	148		}
144		-	makeString(Z, "_")
	149	+	makeString(aa, "_")
145	150		}
146	151
147	152
148		-	@Callable(X)
	153	+	func ai (aj,ak,al,am) = {
	154	+	func an (Y,Z) = {
	155	+	let ao = ((fraction(al, m, n) * ak[Z]) * am)
	156	+	(Y :+ toString((parseIntValue(aj[Z]) + ao)))
	157	+	}
	158	+
	159	+	let aa = {
	160	+	let ab = [0, 1, 2, 3, 4, 5]
	161	+	let ac = size(ab)
	162	+	let ad = nil
	163	+	func ae (af,ag) = if ((ag >= ac))
	164	+	then af
	165	+	else an(af, ab[ag])
	166	+
	167	+	func ah (af,ag) = if ((ag >= ac))
	168	+	then af
	169	+	else throw("List size exceeds 6")
	170	+
	171	+	ah(ae(ae(ae(ae(ae(ae(ad, 0), 1), 2), 3), 4), 5), 6)
	172	+	}
	173	+	makeString(aa, "_")
	174	+	}
	175	+
	176	+
	177	+	@Callable(Z)
149	178		func stakeLand () = {
150		-	let ah = value(X.payments[0])
151		-	let o = value(ah.assetId)
152		-	let ai = toString(X.caller)
153		-	if ((ah.amount != 1))
154		-	then throw((("NFT " + h) + " token should be attached as payment"))
	179	+	let ap = value(Z.payments[0])
	180	+	let r = value(ap.assetId)
	181	+	let aq = toString(Z.caller)
	182	+	if ((ap.amount != 1))
	183	+	then throw((("NFT " + i) + " token should be attached as payment"))
155	184		else {
156		-	let aj = value(assetInfo(o))
157		-	if ((aj.issuer != this))
	185	+	let ar = value(assetInfo(r))
	186	+	if ((ar.issuer != this))
158	187		then throw("Unknown issuer of token")
159		-	else if (!(contains(aj.name, h)))
160		-	then throw((("Only NFT " + h) + " tokens are accepted"))
	188	+	else if (!(contains(ar.name, i)))
	189	+	then throw((("Only NFT " + i) + " tokens are accepted"))
161	190		else {
162		-	let ak = drop(aj.name, 4)
163		-	let w = if (contains(ak, "XXL"))
164		-	then dropRight(ak, 3)
165		-	else if (contains(ak, "XL"))
166		-	then dropRight(ak, 2)
167		-	else dropRight(ak, 1)
168		-	if (!(isDefined(parseInt(w))))
169		-	then throw(("Cannot parse land number from " + aj.name))
	191	+	let as = drop(ar.name, 4)
	192	+	let z = if (contains(as, "XXL"))
	193	+	then dropRight(as, 3)
	194	+	else if (contains(as, "XL"))
	195	+	then dropRight(as, 2)
	196	+	else dropRight(as, 1)
	197	+	if (!(isDefined(parseInt(z))))
	198	+	then throw(("Cannot parse land number from " + ar.name))
170	199		else {
171		-	let al = q(toBase58String(o))
172		-	if (isDefined(getInteger(al)))
173		-	then throw((("NFT " + aj.name) + " is already staked"))
174		-	else [IntegerEntry(al, lastBlock.timestamp), IntegerEntry(t(h, toBase58String(o), ai), lastBlock.timestamp), StringEntry(n(toBase58String(o)), ai), StringEntry(v(w), ai)]
	200	+	let at = t(toBase58String(r))
	201	+	if (isDefined(getInteger(at)))
	202	+	then throw((("NFT " + ar.name) + " is already staked"))
	203	+	else [IntegerEntry(at, lastBlock.timestamp), IntegerEntry(w(i, toBase58String(r), aq), lastBlock.timestamp), StringEntry(q(toBase58String(r)), aq), StringEntry(y(z), aq)]
175	204		}
176	205		}
177	206		}
178	207		}
179	208
180	209
181	210
182		-	@Callable(X)
183		-	func unstakeLand (am) = if ((size(X.payments) != 0))
	211	+	@Callable(Z)
	212	+	func unstakeLand (au) = if ((size(Z.payments) != 0))
184	213		then throw("unstake doesn't require any payments")
185	214		else {
186		-	let o = fromBase58String(am)
187		-	let ai = toString(X.caller)
188		-	let aj = value(assetInfo(o))
189		-	if ((aj.issuer != this))
	215	+	let r = fromBase58String(au)
	216	+	let aq = toString(Z.caller)
	217	+	let ar = value(assetInfo(r))
	218	+	if ((ar.issuer != this))
190	219		then throw("Unknown issuer of token")
191		-	else if (!(contains(aj.name, h)))
192		-	then throw((("Only NFT " + h) + " tokens can be unstaked"))
	220	+	else if (!(contains(ar.name, i)))
	221	+	then throw((("Only NFT " + i) + " tokens can be unstaked"))
193	222		else {
194		-	let al = q(am)
195		-	if (!(isDefined(al)))
196		-	then throw((("NFT " + aj.name) + " is not staked"))
	223	+	let at = t(au)
	224	+	if (!(isDefined(at)))
	225	+	then throw((("NFT " + ar.name) + " is not staked"))
197	226		else {
198		-	let an = valueOrErrorMessage(getString(n(am)), (("NFT " + aj.name) + " is orphaned"))
199		-	if ((an != ai))
	227	+	let av = valueOrErrorMessage(getString(q(au)), (("NFT " + ar.name) + " is orphaned"))
	228	+	if ((av != aq))
200	229		then throw("Staked NFT is not yours")
201		-	else [ScriptTransfer(X.caller, 1, o), DeleteEntry(al), DeleteEntry(t(h, am, ai))]
	230	+	else [ScriptTransfer(Z.caller, 1, r), DeleteEntry(at), DeleteEntry(w(i, au, aq))]
202	231		}
203	232		}
204	233		}
205	234
206	235
207	236
208		-	@Callable(X)
	237	+	@Callable(Z)
209	238		func stakeDuck () = {
210		-	let ah = value(X.payments[0])
211		-	let o = value(ah.assetId)
212		-	let ai = toString(X.caller)
213		-	if ((ah.amount != 1))
214		-	then throw((("NFT " + i) + " token should be attached as payment"))
	239	+	let ap = value(Z.payments[0])
	240	+	let r = value(ap.assetId)
	241	+	let aq = toString(Z.caller)
	242	+	if ((ap.amount != 1))
	243	+	then throw((("NFT " + j) + " token should be attached as payment"))
215	244		else {
216		-	let aj = value(assetInfo(o))
217		-	if (if ((aj.issuer != d))
218		-	then (aj.issuer != e)
	245	+	let ar = value(assetInfo(r))
	246	+	if (if ((ar.issuer != d))
	247	+	then (ar.issuer != e)
219	248		else false)
220		-	then throw((("Unknown issuer of " + i) + " token"))
221		-	else if (!(contains(aj.name, i)))
222		-	then throw((("Only NFT " + i) + " tokens are accepted"))
	249	+	then throw((("Unknown issuer of " + j) + " token"))
	250	+	else if (!(contains(ar.name, j)))
	251	+	then throw((("Only NFT " + j) + " tokens are accepted"))
223	252		else {
224		-	let ao = toBase58String(o)
225		-	let al = q(ao)
226		-	if (isDefined(getInteger(al)))
227		-	then throw((("NFT " + aj.name) + " is already staked"))
228		-	else if (isDefined(getString(r(ai))))
229		-	then throw(("You already staked one duck: " + aj.name))
	253	+	let aw = toBase58String(r)
	254	+	let at = t(aw)
	255	+	if (isDefined(getInteger(at)))
	256	+	then throw((("NFT " + ar.name) + " is already staked"))
	257	+	else if (isDefined(getString(u(aq))))
	258	+	then throw(("You already staked one duck: " + ar.name))
230	259		else {
231		-	let ap = z(ao)
232		-	let aq = getString(ap)
233		-	let ar = A(ao)
234		-	let as = getInteger(ar)
235		-	let at = x(ao)
236		-	let au = getString(at)
237		-	([IntegerEntry(al, lastBlock.timestamp), IntegerEntry(t(i, toBase58String(o), ai), lastBlock.timestamp), StringEntry(p(ao), ai), StringEntry(r(ai), ao)] ++ (if (isDefined(aq))
	260	+	let ax = C(aw)
	261	+	let ay = getString(ax)
	262	+	let az = D(aw)
	263	+	let aA = getInteger(az)
	264	+	let aB = A(aw)
	265	+	let aC = getString(aB)
	266	+	([IntegerEntry(at, lastBlock.timestamp), IntegerEntry(w(j, toBase58String(r), aq), lastBlock.timestamp), StringEntry(s(aw), aq), StringEntry(u(aq), aw)] ++ (if (isDefined(ay))
238	267		then nil
239		-	else ([StringEntry(ap, j)] ++ (if (isDefined(as))
	268	+	else ([StringEntry(ax, k)] ++ (if (isDefined(aA))
240	269		then nil
241		-	else ([IntegerEntry(ar, 100)] ++ (if (isDefined(au))
	270	+	else ([IntegerEntry(az, 100)] ++ (if (isDefined(aC))
242	271		then nil
243		-	else [StringEntry(at, "0:0_0_0_0_0_0::")]))))))
	272	+	else [StringEntry(aB, "0:0_0_0_0_0_0:0_0_0_0_0_0:")]))))))
244	273		}
245	274		}
246	275		}
247	276		}
248	277
249	278
250	279
251		-	@Callable(X)
252		-	func unstakeDuck (ao) = if ((size(X.payments) != 0))
	280	+	@Callable(Z)
	281	+	func unstakeDuck (aw) = if ((size(Z.payments) != 0))
253	282		then throw("unstake doesn't require any payments")
254	283		else {
255		-	let o = fromBase58String(ao)
256		-	let ai = toString(X.caller)
257		-	let aj = value(assetInfo(o))
258		-	if (if ((aj.issuer != d))
259		-	then (aj.issuer != e)
	284	+	let r = fromBase58String(aw)
	285	+	let aq = toString(Z.caller)
	286	+	let ar = value(assetInfo(r))
	287	+	if (if ((ar.issuer != d))
	288	+	then (ar.issuer != e)
260	289		else false)
261		-	then throw((("Unknown issuer of " + i) + " token"))
262		-	else if (!(contains(aj.name, i)))
263		-	then throw((("Only NFT " + i) + " tokens can be unstaked"))
	290	+	then throw((("Unknown issuer of " + j) + " token"))
	291	+	else if (!(contains(ar.name, j)))
	292	+	then throw((("Only NFT " + j) + " tokens can be unstaked"))
264	293		else {
265		-	let al = q(toBase58String(o))
266		-	if (!(isDefined(al)))
267		-	then throw((("NFT " + aj.name) + " is not staked"))
268		-	else if (!(isDefined(r(ai))))
269		-	then throw((("The duck " + aj.name) + " is not staked"))
	294	+	let at = t(toBase58String(r))
	295	+	if (!(isDefined(at)))
	296	+	then throw((("NFT " + ar.name) + " is not staked"))
	297	+	else if (!(isDefined(u(aq))))
	298	+	then throw((("The duck " + ar.name) + " is not staked"))
270	299		else {
271		-	let an = valueOrErrorMessage(getString(p(toBase58String(o))), (("NFT " + aj.name) + " is orphaned"))
272		-	if ((an != ai))
	300	+	let av = valueOrErrorMessage(getString(s(toBase58String(r))), (("NFT " + ar.name) + " is orphaned"))
	301	+	if ((av != aq))
273	302		then throw("Staked NFT is not yours")
274		-	else [ScriptTransfer(X.caller, 1, o), DeleteEntry(al), DeleteEntry(z(ao)), DeleteEntry(t(i, ao, ai)), DeleteEntry(r(ai))]
	303	+	else [ScriptTransfer(Z.caller, 1, r), DeleteEntry(at), DeleteEntry(C(aw)), DeleteEntry(w(j, aw, aq)), DeleteEntry(u(aq))]
275	304		}
276	305		}
277	306		}
278	307
279	308
280	309
281		-	@Callable(X)
282		-	func claimRes (av,am) = if ((size(X.payments) != 0))
	310	+	@Callable(Z)
	311	+	func claimRes (W,au) = if ((size(Z.payments) != 0))
283	312		then throw("claimRes doesn't require any payments")
284	313		else {
285		-	let aw = toString(X.caller)
286		-	let aj = value(assetInfo(fromBase58String(am)))
287		-	if (!(contains(aj.name, h)))
288		-	then throw((("NFT " + h) + " token should be passed as param"))
	314	+	let aD = toString(Z.caller)
	315	+	let ar = value(assetInfo(fromBase58String(au)))
	316	+	if (!(contains(ar.name, i)))
	317	+	then throw((("NFT " + i) + " token should be passed as param"))
289	318		else {
290		-	let al = q(am)
291		-	let ax = getInteger(al)
292		-	if (!(isDefined(ax)))
293		-	then throw((("NFT " + aj.name) + " is not staked"))
	319	+	let at = t(au)
	320	+	let aE = getInteger(at)
	321	+	if (!(isDefined(aE)))
	322	+	then throw((("NFT " + ar.name) + " is not staked"))
294	323		else {
295		-	let an = getStringValue(n(am))
296		-	if ((an != aw))
297		-	then throw((h + " is not yours"))
	324	+	let av = getStringValue(q(au))
	325	+	if ((av != aD))
	326	+	then throw((i + " is not yours"))
298	327		else {
299		-	let ay = split(aj.description, "_")
300		-	let P = ay[C]
301		-	let S = M(ay[D])
302		-	let az = getString(r(aw))
303		-	if (!(isDefined(az)))
	328	+	let aF = split(ar.description, "_")
	329	+	let S = aF[F]
	330	+	let ak = P(aF[G])
	331	+	let aG = getString(u(aD))
	332	+	if (!(isDefined(aG)))
304	333		then throw("You don't have a duck staked")
305	334		else {
306		-	let aA = value(az)
307		-	let aB = valueOrElse(getString(z(aA)), j)
308		-	let aC = split(value(aB), "_")
309		-	if ((aC[G] != "L"))
310		-	then throw((("Duck location type is " + aC[G]) + ", but should be L"))
311		-	else if ((aC[H] != am))
312		-	then throw(((("Duck location id is " + aC[H]) + ", but should be ") + am))
	335	+	let aH = value(aG)
	336	+	let aI = valueOrElse(getString(C(aH)), k)
	337	+	let aJ = split(value(aI), "_")
	338	+	if ((aJ[J] != "L"))
	339	+	then throw((("Duck location type is " + aJ[J]) + ", but should be L"))
	340	+	else if ((aJ[K] != au))
	341	+	then throw(((("Duck location id is " + aJ[K]) + ", but should be ") + au))
313	342		else {
314		-	let T = (lastBlock.timestamp - value(ax))
315		-	if ((0 > T))
316		-	then throw(((("Saved timestamp is in future, saved = " + toString(value(ax))) + ", current = ") + toString(lastBlock.timestamp)))
	343	+	let al = (lastBlock.timestamp - value(aE))
	344	+	if ((0 > al))
	345	+	then throw(((("Saved timestamp is in future, saved = " + toString(value(aE))) + ", current = ") + toString(lastBlock.timestamp)))

github/deemru/w8io/169f3d6 
170.17 ms ◑