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 pub = base58'6LfPuKJjLgekmncBhMg2LZyMTNVzZBccXR28ySXm9uXD'
43 43  
44 + let HEALCOST = 10000
45 + 
44 46  let LANDPREFIX = "LAND"
45 47  
46 48  let DUCKPREFIX = "DUCK"
47 49  
48 50  let DEFAULTLOCATION = "Africa_F_Africa"
49 51  
52 + let NUMRES = 6
53 + 
50 54  let DAILYRESBYPIECE = 3456000
51 55  
52 56  let DAYMILLIS = 86400000
53 57  
54 58  let FIVEMINUTESMILLIS = 300000
59 + 
60 + let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
55 61  
56 62  func keyAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
57 63  
119 125                              then 625
120 126                              else throw("Unknown land size")
121 127  }
128 + 
129 + 
130 + func subOneInList (aList,idx,amount) = {
131 +     func subber (acc,i) =     (acc :+ (if ((i == idx))
132 +         then toString((parseIntValue(aList[i]) - amount))
133 +         else aList[i]))
134 + 
135 +     let r = {
136 +         let $l = [0, 1, 2, 3, 4, 5]
137 +         let $s = size($l)
138 +         let $acc0 = nil
139 +         func $f0_1 ($a,$i) =         if (($i >= $s))
140 +             then $a
141 +             else subber($a, $l[$i])
142 + 
143 +         func $f0_2 ($a,$i) =         if (($i >= $s))
144 +             then $a
145 +             else throw("List size exceeds 6")
146 + 
147 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
148 +         }
149 +     makeString(r, "_")
150 +     }
122 151  
123 152  
124 153  func addRes (currentRes,terrainCounts,deltaTime,landSizeIndex) = {
240 269                                              then nil
241 270                                              else ([IntegerEntry(keyHealth, 100)] ++ (if (isDefined(backpack))
242 271                                                  then nil
243 -                                                 else [StringEntry(bpKey, "0:0_0_0_0_0_0::")]))))))
272 +                                                 else [StringEntry(bpKey, "0:0_0_0_0_0_0:0_0_0_0_0_0:")]))))))
244 273                                      }
245 274                          }
246 275              }
323 352                                                                      let newDeltaTime = fraction((availRes - amount), DAYMILLIS, (pieces * DAILYRESBYPIECE))
324 353                                                                      let newTimestamp = (lastBlock.timestamp - newDeltaTime)
325 354                                                                      let bpKey = keyBackpackByDuck(duckAssetIdStr)
326 -                                                                     let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0::"), ":")
355 +                                                                     let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
327 356                                                                      let currentRes = split(currentPack[bpIdxRes], "_")
328 357                                                                      let bpRes = addRes(currentRes, terrainCounts, (deltaTime - newDeltaTime), (pieces / 25))
329 358                                                                      let newPack = makeString([currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
379 408  
380 409  
381 410  @Callable(i)
382 - func setHealth (health,duckAssetId) = {
383 -     let duckAssetIdStr = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
384 -     if (if ((0 > health))
411 + func setHealth (health,duckAssetId) = if ((i.caller != this))
412 +     then throw("permission denied")
413 +     else if (if ((0 > health))
385 414          then true
386 415          else (health > 100))
387 416          then throw("HP should be within 0..100")
388 417          else [IntegerEntry(keyDuckHealth(duckAssetId), health)]
389 -     }
418 + 
419 + 
420 + 
421 + @Callable(i)
422 + func heal (matType,amount) = if (if ((0 > matType))
423 +     then true
424 +     else (matType >= NUMRES))
425 +     then throw(("Unknown material: " + toString(matType)))
426 +     else if ((0 >= amount))
427 +         then throw(("Amount should be positive! " + toString(amount)))
428 +         else {
429 +             let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
430 +             let keyHealth = keyDuckHealth(duckAssetId)
431 +             let oldHealth = valueOrElse(getInteger(keyHealth), 100)
432 +             if ((oldHealth >= 100))
433 +                 then throw("HP should be < 100 to heal")
434 +                 else {
435 +                     let bpKey = keyBackpackByDuck(duckAssetId)
436 +                     let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
437 +                     let matList = split(currentPack[bpIdxMat], "_")
438 +                     let mList = if ((size(matList) != NUMRES))
439 +                         then ["0", "0", "0", "0", "0", "0"]
440 +                         else matList
441 +                     let currentAmount = parseIntValue(mList[matType])
442 +                     let deltaHealth = min([(amount / HEALCOST), (100 - oldHealth)])
443 +                     let spendAmount = (deltaHealth * HEALCOST)
444 +                     if ((spendAmount > currentAmount))
445 +                         then throw(((((("You need " + toString(spendAmount)) + " of ") + matTypes[matType]) + " to heal, but you backpack contains ") + toString(currentAmount)))
446 +                         else {
447 +                             let newMat = subOneInList(mList, matType, spendAmount)
448 + [IntegerEntry(keyHealth, (oldHealth + deltaHealth)), StringEntry(bpKey, makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], newMat, currentPack[bpIdxProd]], ":"))]
449 +                             }
450 +                     }
451 +             }
390 452  
391 453  
392 454  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let chain = toUtf8String(take(drop(this.bytes, 1), 1))
5 5  
6 6  let usdnAssetId = match chain {
7 7      case _ => 
8 8          if (("W" == $match0))
9 9              then base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
10 10              else if (("T" == $match0))
11 11                  then base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
12 12                  else throw("Unknown chain")
13 13  }
14 14  
15 15  let incubatorAddr = match chain {
16 16      case _ => 
17 17          if (("W" == $match0))
18 18              then addressFromStringValue("3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv")
19 19              else if (("T" == $match0))
20 20                  then this
21 21                  else throw("Unknown chain")
22 22  }
23 23  
24 24  let breederAddr = match chain {
25 25      case _ => 
26 26          if (("W" == $match0))
27 27              then addressFromStringValue("3PDVuU45H7Eh5dmtNbnRNRStGwULA7NY6Hb")
28 28              else if (("T" == $match0))
29 29                  then this
30 30                  else throw("Unknown chain")
31 31  }
32 32  
33 33  let economyAddr = match chain {
34 34      case _ => 
35 35          if (("W" == $match0))
36 36              then addressFromStringValue("3P2sk1KncSxRaZs8b4CWGPw2jkvvav74u4D")
37 37              else if (("T" == $match0))
38 38                  then addressFromStringValue("3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep")
39 39                  else throw("Unknown chain")
40 40  }
41 41  
42 42  let pub = base58'6LfPuKJjLgekmncBhMg2LZyMTNVzZBccXR28ySXm9uXD'
43 43  
44 + let HEALCOST = 10000
45 + 
44 46  let LANDPREFIX = "LAND"
45 47  
46 48  let DUCKPREFIX = "DUCK"
47 49  
48 50  let DEFAULTLOCATION = "Africa_F_Africa"
49 51  
52 + let NUMRES = 6
53 + 
50 54  let DAILYRESBYPIECE = 3456000
51 55  
52 56  let DAYMILLIS = 86400000
53 57  
54 58  let FIVEMINUTESMILLIS = 300000
59 + 
60 + let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
55 61  
56 62  func keyAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
57 63  
58 64  
59 65  func keyDuckIdToOwner (assetId) = ("duckOwner_" + assetId)
60 66  
61 67  
62 68  func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
63 69  
64 70  
65 71  func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
66 72  
67 73  
68 74  func keyStakedTimeByTypeAssetIdAndOwner (nftType,assetId,ownerAddr) = ((((("stakedTimeByTypeAssetIdAndOwner_" + nftType) + "_") + assetId) + "_") + ownerAddr)
69 75  
70 76  
71 77  func keyLandToOwner (landNum) = ("landOwner_" + landNum)
72 78  
73 79  
74 80  func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
75 81  
76 82  
77 83  func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
78 84  
79 85  
80 86  func keyDuckHealth (duckAssetId) = ("duckHealth_" + duckAssetId)
81 87  
82 88  
83 89  let recLandNum = 0
84 90  
85 91  let recLandSize = 1
86 92  
87 93  let recTerrains = 2
88 94  
89 95  let recContinent = 3
90 96  
91 97  let locIdxContinent = 0
92 98  
93 99  let locIdxType = 1
94 100  
95 101  let locIdxId = 2
96 102  
97 103  let bpIdxLevel = 0
98 104  
99 105  let bpIdxRes = 1
100 106  
101 107  let bpIdxMat = 2
102 108  
103 109  let bpIdxProd = 3
104 110  
105 111  func countTerrains (terrains) = [(size(split(terrains, "A")) - 1), (size(split(terrains, "B")) - 1), (size(split(terrains, "C")) - 1), (size(split(terrains, "D")) - 1), (size(split(terrains, "E")) - 1), (size(split(terrains, "F")) - 1)]
106 112  
107 113  
108 114  func numPiecesBySize (landSize) = match landSize {
109 115      case _ => 
110 116          if (("S" == $match0))
111 117              then 25
112 118              else if (("M" == $match0))
113 119                  then 100
114 120                  else if (("L" == $match0))
115 121                      then 225
116 122                      else if (("XL" == $match0))
117 123                          then 400
118 124                          else if (("XXL" == $match0))
119 125                              then 625
120 126                              else throw("Unknown land size")
121 127  }
128 + 
129 + 
130 + func subOneInList (aList,idx,amount) = {
131 +     func subber (acc,i) =     (acc :+ (if ((i == idx))
132 +         then toString((parseIntValue(aList[i]) - amount))
133 +         else aList[i]))
134 + 
135 +     let r = {
136 +         let $l = [0, 1, 2, 3, 4, 5]
137 +         let $s = size($l)
138 +         let $acc0 = nil
139 +         func $f0_1 ($a,$i) =         if (($i >= $s))
140 +             then $a
141 +             else subber($a, $l[$i])
142 + 
143 +         func $f0_2 ($a,$i) =         if (($i >= $s))
144 +             then $a
145 +             else throw("List size exceeds 6")
146 + 
147 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
148 +         }
149 +     makeString(r, "_")
150 +     }
122 151  
123 152  
124 153  func addRes (currentRes,terrainCounts,deltaTime,landSizeIndex) = {
125 154      func adder (acc,i) =     {
126 155          let resOfType = ((fraction(deltaTime, DAILYRESBYPIECE, DAYMILLIS) * terrainCounts[i]) * landSizeIndex)
127 156          (acc :+ toString((parseIntValue(currentRes[i]) + resOfType)))
128 157          }
129 158  
130 159      let r = {
131 160          let $l = [0, 1, 2, 3, 4, 5]
132 161          let $s = size($l)
133 162          let $acc0 = nil
134 163          func $f0_1 ($a,$i) =         if (($i >= $s))
135 164              then $a
136 165              else adder($a, $l[$i])
137 166  
138 167          func $f0_2 ($a,$i) =         if (($i >= $s))
139 168              then $a
140 169              else throw("List size exceeds 6")
141 170  
142 171          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
143 172          }
144 173      makeString(r, "_")
145 174      }
146 175  
147 176  
148 177  @Callable(i)
149 178  func stakeLand () = {
150 179      let pmt = value(i.payments[0])
151 180      let assetId = value(pmt.assetId)
152 181      let address = toString(i.caller)
153 182      if ((pmt.amount != 1))
154 183          then throw((("NFT " + LANDPREFIX) + " token should be attached as payment"))
155 184          else {
156 185              let asset = value(assetInfo(assetId))
157 186              if ((asset.issuer != this))
158 187                  then throw("Unknown issuer of token")
159 188                  else if (!(contains(asset.name, LANDPREFIX)))
160 189                      then throw((("Only NFT " + LANDPREFIX) + " tokens are accepted"))
161 190                      else {
162 191                          let landNumSize = drop(asset.name, 4)
163 192                          let landNum = if (contains(landNumSize, "XXL"))
164 193                              then dropRight(landNumSize, 3)
165 194                              else if (contains(landNumSize, "XL"))
166 195                                  then dropRight(landNumSize, 2)
167 196                                  else dropRight(landNumSize, 1)
168 197                          if (!(isDefined(parseInt(landNum))))
169 198                              then throw(("Cannot parse land number from " + asset.name))
170 199                              else {
171 200                                  let timeKey = keyStakedTimeByAssetId(toBase58String(assetId))
172 201                                  if (isDefined(getInteger(timeKey)))
173 202                                      then throw((("NFT " + asset.name) + " is already staked"))
174 203                                      else [IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, toBase58String(assetId), address), lastBlock.timestamp), StringEntry(keyAssetIdToOwner(toBase58String(assetId)), address), StringEntry(keyLandToOwner(landNum), address)]
175 204                                  }
176 205                          }
177 206              }
178 207      }
179 208  
180 209  
181 210  
182 211  @Callable(i)
183 212  func unstakeLand (landAssetId) = if ((size(i.payments) != 0))
184 213      then throw("unstake doesn't require any payments")
185 214      else {
186 215          let assetId = fromBase58String(landAssetId)
187 216          let address = toString(i.caller)
188 217          let asset = value(assetInfo(assetId))
189 218          if ((asset.issuer != this))
190 219              then throw("Unknown issuer of token")
191 220              else if (!(contains(asset.name, LANDPREFIX)))
192 221                  then throw((("Only NFT " + LANDPREFIX) + " tokens can be unstaked"))
193 222                  else {
194 223                      let timeKey = keyStakedTimeByAssetId(landAssetId)
195 224                      if (!(isDefined(timeKey)))
196 225                          then throw((("NFT " + asset.name) + " is not staked"))
197 226                          else {
198 227                              let owner = valueOrErrorMessage(getString(keyAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
199 228                              if ((owner != address))
200 229                                  then throw("Staked NFT is not yours")
201 230                                  else [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(timeKey), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, address))]
202 231                              }
203 232                      }
204 233          }
205 234  
206 235  
207 236  
208 237  @Callable(i)
209 238  func stakeDuck () = {
210 239      let pmt = value(i.payments[0])
211 240      let assetId = value(pmt.assetId)
212 241      let address = toString(i.caller)
213 242      if ((pmt.amount != 1))
214 243          then throw((("NFT " + DUCKPREFIX) + " token should be attached as payment"))
215 244          else {
216 245              let asset = value(assetInfo(assetId))
217 246              if (if ((asset.issuer != incubatorAddr))
218 247                  then (asset.issuer != breederAddr)
219 248                  else false)
220 249                  then throw((("Unknown issuer of " + DUCKPREFIX) + " token"))
221 250                  else if (!(contains(asset.name, DUCKPREFIX)))
222 251                      then throw((("Only NFT " + DUCKPREFIX) + " tokens are accepted"))
223 252                      else {
224 253                          let assetIdStr = toBase58String(assetId)
225 254                          let timeKey = keyStakedTimeByAssetId(assetIdStr)
226 255                          if (isDefined(getInteger(timeKey)))
227 256                              then throw((("NFT " + asset.name) + " is already staked"))
228 257                              else if (isDefined(getString(keyStakedDuckByOwner(address))))
229 258                                  then throw(("You already staked one duck: " + asset.name))
230 259                                  else {
231 260                                      let locKey = keyDuckLocation(assetIdStr)
232 261                                      let location = getString(locKey)
233 262                                      let keyHealth = keyDuckHealth(assetIdStr)
234 263                                      let health = getInteger(keyHealth)
235 264                                      let bpKey = keyBackpackByDuck(assetIdStr)
236 265                                      let backpack = getString(bpKey)
237 266                                      ([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(DUCKPREFIX, toBase58String(assetId), address), lastBlock.timestamp), StringEntry(keyDuckIdToOwner(assetIdStr), address), StringEntry(keyStakedDuckByOwner(address), assetIdStr)] ++ (if (isDefined(location))
238 267                                          then nil
239 268                                          else ([StringEntry(locKey, DEFAULTLOCATION)] ++ (if (isDefined(health))
240 269                                              then nil
241 270                                              else ([IntegerEntry(keyHealth, 100)] ++ (if (isDefined(backpack))
242 271                                                  then nil
243 -                                                 else [StringEntry(bpKey, "0:0_0_0_0_0_0::")]))))))
272 +                                                 else [StringEntry(bpKey, "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 280  @Callable(i)
252 281  func unstakeDuck (assetIdStr) = if ((size(i.payments) != 0))
253 282      then throw("unstake doesn't require any payments")
254 283      else {
255 284          let assetId = fromBase58String(assetIdStr)
256 285          let address = toString(i.caller)
257 286          let asset = value(assetInfo(assetId))
258 287          if (if ((asset.issuer != incubatorAddr))
259 288              then (asset.issuer != breederAddr)
260 289              else false)
261 290              then throw((("Unknown issuer of " + DUCKPREFIX) + " token"))
262 291              else if (!(contains(asset.name, DUCKPREFIX)))
263 292                  then throw((("Only NFT " + DUCKPREFIX) + " tokens can be unstaked"))
264 293                  else {
265 294                      let timeKey = keyStakedTimeByAssetId(toBase58String(assetId))
266 295                      if (!(isDefined(timeKey)))
267 296                          then throw((("NFT " + asset.name) + " is not staked"))
268 297                          else if (!(isDefined(keyStakedDuckByOwner(address))))
269 298                              then throw((("The duck " + asset.name) + " is not staked"))
270 299                              else {
271 300                                  let owner = valueOrErrorMessage(getString(keyDuckIdToOwner(toBase58String(assetId))), (("NFT " + asset.name) + " is orphaned"))
272 301                                  if ((owner != address))
273 302                                      then throw("Staked NFT is not yours")
274 303                                      else [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(timeKey), DeleteEntry(keyDuckLocation(assetIdStr)), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(DUCKPREFIX, assetIdStr, address)), DeleteEntry(keyStakedDuckByOwner(address))]
275 304                                  }
276 305                      }
277 306          }
278 307  
279 308  
280 309  
281 310  @Callable(i)
282 311  func claimRes (amount,landAssetId) = if ((size(i.payments) != 0))
283 312      then throw("claimRes doesn't require any payments")
284 313      else {
285 314          let addr = toString(i.caller)
286 315          let asset = value(assetInfo(fromBase58String(landAssetId)))
287 316          if (!(contains(asset.name, LANDPREFIX)))
288 317              then throw((("NFT " + LANDPREFIX) + " token should be passed as param"))
289 318              else {
290 319                  let timeKey = keyStakedTimeByAssetId(landAssetId)
291 320                  let savedTime = getInteger(timeKey)
292 321                  if (!(isDefined(savedTime)))
293 322                      then throw((("NFT " + asset.name) + " is not staked"))
294 323                      else {
295 324                          let owner = getStringValue(keyAssetIdToOwner(landAssetId))
296 325                          if ((owner != addr))
297 326                              then throw((LANDPREFIX + " is not yours"))
298 327                              else {
299 328                                  let d = split(asset.description, "_")
300 329                                  let landSize = d[recLandSize]
301 330                                  let terrainCounts = countTerrains(d[recTerrains])
302 331                                  let duck = getString(keyStakedDuckByOwner(addr))
303 332                                  if (!(isDefined(duck)))
304 333                                      then throw("You don't have a duck staked")
305 334                                      else {
306 335                                          let duckAssetIdStr = value(duck)
307 336                                          let curLocation = valueOrElse(getString(keyDuckLocation(duckAssetIdStr)), DEFAULTLOCATION)
308 337                                          let loc = split(value(curLocation), "_")
309 338                                          if ((loc[locIdxType] != "L"))
310 339                                              then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
311 340                                              else if ((loc[locIdxId] != landAssetId))
312 341                                                  then throw(((("Duck location id is " + loc[locIdxId]) + ", but should be ") + landAssetId))
313 342                                                  else {
314 343                                                      let deltaTime = (lastBlock.timestamp - value(savedTime))
315 344                                                      if ((0 > deltaTime))
316 345                                                          then throw(((("Saved timestamp is in future, saved = " + toString(value(savedTime))) + ", current = ") + toString(lastBlock.timestamp)))
317 346                                                          else {
318 347                                                              let pieces = numPiecesBySize(landSize)
319 348                                                              let availRes = (fraction(deltaTime, DAILYRESBYPIECE, DAYMILLIS) * pieces)
320 349                                                              if ((amount > availRes))
321 350                                                                  then throw(((("Not enough resources, available = " + toString(availRes)) + ", requested = ") + toString(amount)))
322 351                                                                  else {
323 352                                                                      let newDeltaTime = fraction((availRes - amount), DAYMILLIS, (pieces * DAILYRESBYPIECE))
324 353                                                                      let newTimestamp = (lastBlock.timestamp - newDeltaTime)
325 354                                                                      let bpKey = keyBackpackByDuck(duckAssetIdStr)
326 -                                                                     let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0::"), ":")
355 +                                                                     let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
327 356                                                                      let currentRes = split(currentPack[bpIdxRes], "_")
328 357                                                                      let bpRes = addRes(currentRes, terrainCounts, (deltaTime - newDeltaTime), (pieces / 25))
329 358                                                                      let newPack = makeString([currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
330 359                                                                      $Tuple2([StringEntry(bpKey, newPack), IntegerEntry(timeKey, newTimestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, owner), newTimestamp)], unit)
331 360                                                                      }
332 361                                                              }
333 362                                                      }
334 363                                          }
335 364                                  }
336 365                          }
337 366                  }
338 367          }
339 368  
340 369  
341 370  
342 371  @Callable(i)
343 372  func flight (message,sig) = if (!(sigVerify_8Kb(message, sig, pub)))
344 373      then throw("signature does not match")
345 374      else if ((size(i.payments) != 0))
346 375          then throw("flight doesn't require any payments")
347 376          else {
348 377              let parts = split(toUtf8String(message), ";")
349 378              let hp = split(split(parts[0], "|")[0], "_")
350 379              let curHP = parseIntValue(hp[0])
351 380              let newHP = parseIntValue(hp[1])
352 381              let newLocAndTime = split(parts[1], ":")
353 382              let newLocation = newLocAndTime[0]
354 383              let time = parseIntValue(newLocAndTime[1])
355 384              if (if ((time > (lastBlock.timestamp + FIVEMINUTESMILLIS)))
356 385                  then true
357 386                  else ((lastBlock.timestamp - FIVEMINUTESMILLIS) > time))
358 387                  then throw("signature outdated")
359 388                  else {
360 389                      let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
361 390                      let keyHealth = keyDuckHealth(duckAssetId)
362 391                      let oldFromState = valueOrElse(getInteger(keyHealth), 100)
363 392                      if ((oldFromState != curHP))
364 393                          then throw(((("oldHealth=" + toString(valueOrElse(getInteger(keyHealth), 100))) + " from state does not match one from flight log=") + toString(curHP)))
365 394                          else if ((0 >= curHP))
366 395                              then throw("You can't fly with zero health")
367 396                              else {
368 397                                  let locKey = keyDuckLocation(duckAssetId)
369 398                                  let curLocation = valueOrElse(getString(locKey), DEFAULTLOCATION)
370 399                                  if ((newLocation == curLocation))
371 400                                      then throw("You can't fly to the same location")
372 401                                      else $Tuple2([StringEntry(locKey, if ((newHP > 0))
373 402                                          then newLocation
374 403                                          else curLocation), IntegerEntry(keyHealth, newHP)], unit)
375 404                                  }
376 405                      }
377 406              }
378 407  
379 408  
380 409  
381 410  @Callable(i)
382 - func setHealth (health,duckAssetId) = {
383 -     let duckAssetIdStr = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
384 -     if (if ((0 > health))
411 + func setHealth (health,duckAssetId) = if ((i.caller != this))
412 +     then throw("permission denied")
413 +     else if (if ((0 > health))
385 414          then true
386 415          else (health > 100))
387 416          then throw("HP should be within 0..100")
388 417          else [IntegerEntry(keyDuckHealth(duckAssetId), health)]
389 -     }
418 + 
419 + 
420 + 
421 + @Callable(i)
422 + func heal (matType,amount) = if (if ((0 > matType))
423 +     then true
424 +     else (matType >= NUMRES))
425 +     then throw(("Unknown material: " + toString(matType)))
426 +     else if ((0 >= amount))
427 +         then throw(("Amount should be positive! " + toString(amount)))
428 +         else {
429 +             let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
430 +             let keyHealth = keyDuckHealth(duckAssetId)
431 +             let oldHealth = valueOrElse(getInteger(keyHealth), 100)
432 +             if ((oldHealth >= 100))
433 +                 then throw("HP should be < 100 to heal")
434 +                 else {
435 +                     let bpKey = keyBackpackByDuck(duckAssetId)
436 +                     let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
437 +                     let matList = split(currentPack[bpIdxMat], "_")
438 +                     let mList = if ((size(matList) != NUMRES))
439 +                         then ["0", "0", "0", "0", "0", "0"]
440 +                         else matList
441 +                     let currentAmount = parseIntValue(mList[matType])
442 +                     let deltaHealth = min([(amount / HEALCOST), (100 - oldHealth)])
443 +                     let spendAmount = (deltaHealth * HEALCOST)
444 +                     if ((spendAmount > currentAmount))
445 +                         then throw(((((("You need " + toString(spendAmount)) + " of ") + matTypes[matType]) + " to heal, but you backpack contains ") + toString(currentAmount)))
446 +                         else {
447 +                             let newMat = subOneInList(mList, matType, spendAmount)
448 + [IntegerEntry(keyHealth, (oldHealth + deltaHealth)), StringEntry(bpKey, makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], newMat, currentPack[bpIdxProd]], ":"))]
449 +                             }
450 +                     }
451 +             }
390 452  
391 453  
392 454  
393 455  @Callable(i)
394 456  func updateBackpack (duckAssetId,newPack) = if ((i.caller != economyAddr))
395 457      then throw("permission denied")
396 458      else $Tuple2([StringEntry(keyBackpackByDuck(duckAssetId), newPack)], newPack)
397 459  
398 460

Old	New		Differences
41	41
42	42		let pub = base58'6LfPuKJjLgekmncBhMg2LZyMTNVzZBccXR28ySXm9uXD'
43	43
	44	+	let HEALCOST = 10000
	45	+
44	46		let LANDPREFIX = "LAND"
45	47
46	48		let DUCKPREFIX = "DUCK"
47	49
48	50		let DEFAULTLOCATION = "Africa_F_Africa"
49	51
	52	+	let NUMRES = 6
	53	+
50	54		let DAILYRESBYPIECE = 3456000
51	55
52	56		let DAYMILLIS = 86400000
53	57
54	58		let FIVEMINUTESMILLIS = 300000
	59	+
	60	+	let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
55	61
56	62		func keyAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
57	63

119	125		then 625
120	126		else throw("Unknown land size")
121	127		}
	128	+
	129	+
	130	+	func subOneInList (aList,idx,amount) = {
	131	+	func subber (acc,i) = (acc :+ (if ((i == idx))
	132	+	then toString((parseIntValue(aList[i]) - amount))
	133	+	else aList[i]))
	134	+
	135	+	let r = {
	136	+	let $l = [0, 1, 2, 3, 4, 5]
	137	+	let $s = size($l)
	138	+	let $acc0 = nil
	139	+	func $f0_1 ($a,$i) = if (($i >= $s))
	140	+	then $a
	141	+	else subber($a, $l[$i])
	142	+
	143	+	func $f0_2 ($a,$i) = if (($i >= $s))
	144	+	then $a
	145	+	else throw("List size exceeds 6")
	146	+
	147	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
	148	+	}
	149	+	makeString(r, "_")
	150	+	}
122	151
123	152
124	153		func addRes (currentRes,terrainCounts,deltaTime,landSizeIndex) = {

240	269		then nil
241	270		else ([IntegerEntry(keyHealth, 100)] ++ (if (isDefined(backpack))
242	271		then nil
243		-	else [StringEntry(bpKey, "0:0_0_0_0_0_0::")]))))))
	272	+	else [StringEntry(bpKey, "0:0_0_0_0_0_0:0_0_0_0_0_0:")]))))))
244	273		}
245	274		}
246	275		}

323	352		let newDeltaTime = fraction((availRes - amount), DAYMILLIS, (pieces * DAILYRESBYPIECE))
324	353		let newTimestamp = (lastBlock.timestamp - newDeltaTime)
325	354		let bpKey = keyBackpackByDuck(duckAssetIdStr)
326		-	let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0::"), ":")
	355	+	let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
327	356		let currentRes = split(currentPack[bpIdxRes], "_")
328	357		let bpRes = addRes(currentRes, terrainCounts, (deltaTime - newDeltaTime), (pieces / 25))
329	358		let newPack = makeString([currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")

379	408
380	409
381	410		@Callable(i)
382		-	func setHealth (health,duckAssetId) = {
383		-	~~let duckAssetIdStr = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked~~")
384		-	if (if ((0 > health))
	411	+	func setHealth (health,duckAssetId) = if ((i.caller != this))
	412	+	then throw("permission denied")
	413	+	else if (if ((0 > health))
385	414		then true
386	415		else (health > 100))
387	416		then throw("HP should be within 0..100")
388	417		else [IntegerEntry(keyDuckHealth(duckAssetId), health)]
389		-	}
	418	+
	419	+
	420	+
	421	+	@Callable(i)
	422	+	func heal (matType,amount) = if (if ((0 > matType))
	423	+	then true
	424	+	else (matType >= NUMRES))
	425	+	then throw(("Unknown material: " + toString(matType)))
	426	+	else if ((0 >= amount))
	427	+	then throw(("Amount should be positive! " + toString(amount)))
	428	+	else {
	429	+	let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
	430	+	let keyHealth = keyDuckHealth(duckAssetId)
	431	+	let oldHealth = valueOrElse(getInteger(keyHealth), 100)
	432	+	if ((oldHealth >= 100))
	433	+	then throw("HP should be < 100 to heal")
	434	+	else {
	435	+	let bpKey = keyBackpackByDuck(duckAssetId)
	436	+	let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
	437	+	let matList = split(currentPack[bpIdxMat], "_")
	438	+	let mList = if ((size(matList) != NUMRES))
	439	+	then ["0", "0", "0", "0", "0", "0"]
	440	+	else matList
	441	+	let currentAmount = parseIntValue(mList[matType])
	442	+	let deltaHealth = min([(amount / HEALCOST), (100 - oldHealth)])
	443	+	let spendAmount = (deltaHealth * HEALCOST)
	444	+	if ((spendAmount > currentAmount))
	445	+	then throw(((((("You need " + toString(spendAmount)) + " of ") + matTypes[matType]) + " to heal, but you backpack contains ") + toString(currentAmount)))
	446	+	else {
	447	+	let newMat = subOneInList(mList, matType, spendAmount)
	448	+	[IntegerEntry(keyHealth, (oldHealth + deltaHealth)), StringEntry(bpKey, makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], newMat, currentPack[bpIdxProd]], ":"))]
	449	+	}
	450	+	}
	451	+	}
390	452
391	453
392	454

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let chain = toUtf8String(take(drop(this.bytes, 1), 1))
5	5
6	6		let usdnAssetId = match chain {
7	7		case _ =>
8	8		if (("W" == $match0))
9	9		then base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
10	10		else if (("T" == $match0))
11	11		then base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
12	12		else throw("Unknown chain")
13	13		}
14	14
15	15		let incubatorAddr = match chain {
16	16		case _ =>
17	17		if (("W" == $match0))
18	18		then addressFromStringValue("3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv")
19	19		else if (("T" == $match0))
20	20		then this
21	21		else throw("Unknown chain")
22	22		}
23	23
24	24		let breederAddr = match chain {
25	25		case _ =>
26	26		if (("W" == $match0))
27	27		then addressFromStringValue("3PDVuU45H7Eh5dmtNbnRNRStGwULA7NY6Hb")
28	28		else if (("T" == $match0))
29	29		then this
30	30		else throw("Unknown chain")
31	31		}
32	32
33	33		let economyAddr = match chain {
34	34		case _ =>
35	35		if (("W" == $match0))
36	36		then addressFromStringValue("3P2sk1KncSxRaZs8b4CWGPw2jkvvav74u4D")
37	37		else if (("T" == $match0))
38	38		then addressFromStringValue("3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep")
39	39		else throw("Unknown chain")
40	40		}
41	41
42	42		let pub = base58'6LfPuKJjLgekmncBhMg2LZyMTNVzZBccXR28ySXm9uXD'
43	43
	44	+	let HEALCOST = 10000
	45	+
44	46		let LANDPREFIX = "LAND"
45	47
46	48		let DUCKPREFIX = "DUCK"
47	49
48	50		let DEFAULTLOCATION = "Africa_F_Africa"
49	51
	52	+	let NUMRES = 6
	53	+
50	54		let DAILYRESBYPIECE = 3456000
51	55
52	56		let DAYMILLIS = 86400000
53	57
54	58		let FIVEMINUTESMILLIS = 300000
	59	+
	60	+	let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"]
55	61
56	62		func keyAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
57	63
58	64
59	65		func keyDuckIdToOwner (assetId) = ("duckOwner_" + assetId)
60	66
61	67
62	68		func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
63	69
64	70
65	71		func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
66	72
67	73
68	74		func keyStakedTimeByTypeAssetIdAndOwner (nftType,assetId,ownerAddr) = ((((("stakedTimeByTypeAssetIdAndOwner_" + nftType) + "_") + assetId) + "_") + ownerAddr)
69	75
70	76
71	77		func keyLandToOwner (landNum) = ("landOwner_" + landNum)
72	78
73	79
74	80		func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
75	81
76	82
77	83		func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
78	84
79	85
80	86		func keyDuckHealth (duckAssetId) = ("duckHealth_" + duckAssetId)
81	87
82	88
83	89		let recLandNum = 0
84	90
85	91		let recLandSize = 1
86	92
87	93		let recTerrains = 2
88	94
89	95		let recContinent = 3
90	96
91	97		let locIdxContinent = 0
92	98
93	99		let locIdxType = 1
94	100
95	101		let locIdxId = 2
96	102
97	103		let bpIdxLevel = 0
98	104
99	105		let bpIdxRes = 1
100	106
101	107		let bpIdxMat = 2
102	108
103	109		let bpIdxProd = 3
104	110
105	111		func countTerrains (terrains) = [(size(split(terrains, "A")) - 1), (size(split(terrains, "B")) - 1), (size(split(terrains, "C")) - 1), (size(split(terrains, "D")) - 1), (size(split(terrains, "E")) - 1), (size(split(terrains, "F")) - 1)]
106	112
107	113
108	114		func numPiecesBySize (landSize) = match landSize {
109	115		case _ =>
110	116		if (("S" == $match0))
111	117		then 25
112	118		else if (("M" == $match0))
113	119		then 100
114	120		else if (("L" == $match0))
115	121		then 225
116	122		else if (("XL" == $match0))
117	123		then 400
118	124		else if (("XXL" == $match0))
119	125		then 625
120	126		else throw("Unknown land size")
121	127		}
	128	+
	129	+
	130	+	func subOneInList (aList,idx,amount) = {
	131	+	func subber (acc,i) = (acc :+ (if ((i == idx))
	132	+	then toString((parseIntValue(aList[i]) - amount))
	133	+	else aList[i]))
	134	+
	135	+	let r = {
	136	+	let $l = [0, 1, 2, 3, 4, 5]
	137	+	let $s = size($l)
	138	+	let $acc0 = nil
	139	+	func $f0_1 ($a,$i) = if (($i >= $s))
	140	+	then $a
	141	+	else subber($a, $l[$i])
	142	+
	143	+	func $f0_2 ($a,$i) = if (($i >= $s))
	144	+	then $a
	145	+	else throw("List size exceeds 6")
	146	+
	147	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
	148	+	}
	149	+	makeString(r, "_")
	150	+	}
122	151
123	152
124	153		func addRes (currentRes,terrainCounts,deltaTime,landSizeIndex) = {
125	154		func adder (acc,i) = {
126	155		let resOfType = ((fraction(deltaTime, DAILYRESBYPIECE, DAYMILLIS) * terrainCounts[i]) * landSizeIndex)
127	156		(acc :+ toString((parseIntValue(currentRes[i]) + resOfType)))
128	157		}
129	158
130	159		let r = {
131	160		let $l = [0, 1, 2, 3, 4, 5]
132	161		let $s = size($l)
133	162		let $acc0 = nil
134	163		func $f0_1 ($a,$i) = if (($i >= $s))
135	164		then $a
136	165		else adder($a, $l[$i])
137	166
138	167		func $f0_2 ($a,$i) = if (($i >= $s))
139	168		then $a
140	169		else throw("List size exceeds 6")
141	170
142	171		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
143	172		}
144	173		makeString(r, "_")
145	174		}
146	175
147	176
148	177		@Callable(i)
149	178		func stakeLand () = {
150	179		let pmt = value(i.payments[0])
151	180		let assetId = value(pmt.assetId)
152	181		let address = toString(i.caller)
153	182		if ((pmt.amount != 1))
154	183		then throw((("NFT " + LANDPREFIX) + " token should be attached as payment"))
155	184		else {
156	185		let asset = value(assetInfo(assetId))
157	186		if ((asset.issuer != this))
158	187		then throw("Unknown issuer of token")
159	188		else if (!(contains(asset.name, LANDPREFIX)))
160	189		then throw((("Only NFT " + LANDPREFIX) + " tokens are accepted"))
161	190		else {
162	191		let landNumSize = drop(asset.name, 4)
163	192		let landNum = if (contains(landNumSize, "XXL"))
164	193		then dropRight(landNumSize, 3)
165	194		else if (contains(landNumSize, "XL"))
166	195		then dropRight(landNumSize, 2)
167	196		else dropRight(landNumSize, 1)
168	197		if (!(isDefined(parseInt(landNum))))
169	198		then throw(("Cannot parse land number from " + asset.name))
170	199		else {
171	200		let timeKey = keyStakedTimeByAssetId(toBase58String(assetId))
172	201		if (isDefined(getInteger(timeKey)))
173	202		then throw((("NFT " + asset.name) + " is already staked"))
174	203		else [IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, toBase58String(assetId), address), lastBlock.timestamp), StringEntry(keyAssetIdToOwner(toBase58String(assetId)), address), StringEntry(keyLandToOwner(landNum), address)]
175	204		}
176	205		}
177	206		}
178	207		}
179	208
180	209
181	210
182	211		@Callable(i)
183	212		func unstakeLand (landAssetId) = if ((size(i.payments) != 0))
184	213		then throw("unstake doesn't require any payments")
185	214		else {
186	215		let assetId = fromBase58String(landAssetId)
187	216		let address = toString(i.caller)
188	217		let asset = value(assetInfo(assetId))
189	218		if ((asset.issuer != this))
190	219		then throw("Unknown issuer of token")
191	220		else if (!(contains(asset.name, LANDPREFIX)))
192	221		then throw((("Only NFT " + LANDPREFIX) + " tokens can be unstaked"))
193	222		else {
194	223		let timeKey = keyStakedTimeByAssetId(landAssetId)
195	224		if (!(isDefined(timeKey)))
196	225		then throw((("NFT " + asset.name) + " is not staked"))
197	226		else {
198	227		let owner = valueOrErrorMessage(getString(keyAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned"))
199	228		if ((owner != address))
200	229		then throw("Staked NFT is not yours")
201	230		else [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(timeKey), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, address))]
202	231		}
203	232		}
204	233		}
205	234
206	235
207	236
208	237		@Callable(i)
209	238		func stakeDuck () = {
210	239		let pmt = value(i.payments[0])
211	240		let assetId = value(pmt.assetId)
212	241		let address = toString(i.caller)
213	242		if ((pmt.amount != 1))
214	243		then throw((("NFT " + DUCKPREFIX) + " token should be attached as payment"))
215	244		else {
216	245		let asset = value(assetInfo(assetId))
217	246		if (if ((asset.issuer != incubatorAddr))
218	247		then (asset.issuer != breederAddr)
219	248		else false)
220	249		then throw((("Unknown issuer of " + DUCKPREFIX) + " token"))
221	250		else if (!(contains(asset.name, DUCKPREFIX)))
222	251		then throw((("Only NFT " + DUCKPREFIX) + " tokens are accepted"))
223	252		else {
224	253		let assetIdStr = toBase58String(assetId)
225	254		let timeKey = keyStakedTimeByAssetId(assetIdStr)
226	255		if (isDefined(getInteger(timeKey)))
227	256		then throw((("NFT " + asset.name) + " is already staked"))
228	257		else if (isDefined(getString(keyStakedDuckByOwner(address))))
229	258		then throw(("You already staked one duck: " + asset.name))
230	259		else {
231	260		let locKey = keyDuckLocation(assetIdStr)
232	261		let location = getString(locKey)
233	262		let keyHealth = keyDuckHealth(assetIdStr)
234	263		let health = getInteger(keyHealth)
235	264		let bpKey = keyBackpackByDuck(assetIdStr)
236	265		let backpack = getString(bpKey)
237	266		([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(DUCKPREFIX, toBase58String(assetId), address), lastBlock.timestamp), StringEntry(keyDuckIdToOwner(assetIdStr), address), StringEntry(keyStakedDuckByOwner(address), assetIdStr)] ++ (if (isDefined(location))
238	267		then nil
239	268		else ([StringEntry(locKey, DEFAULTLOCATION)] ++ (if (isDefined(health))
240	269		then nil
241	270		else ([IntegerEntry(keyHealth, 100)] ++ (if (isDefined(backpack))
242	271		then nil
243		-	else [StringEntry(bpKey, "0:0_0_0_0_0_0::")]))))))
	272	+	else [StringEntry(bpKey, "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	280		@Callable(i)
252	281		func unstakeDuck (assetIdStr) = if ((size(i.payments) != 0))
253	282		then throw("unstake doesn't require any payments")
254	283		else {
255	284		let assetId = fromBase58String(assetIdStr)
256	285		let address = toString(i.caller)
257	286		let asset = value(assetInfo(assetId))
258	287		if (if ((asset.issuer != incubatorAddr))
259	288		then (asset.issuer != breederAddr)
260	289		else false)
261	290		then throw((("Unknown issuer of " + DUCKPREFIX) + " token"))
262	291		else if (!(contains(asset.name, DUCKPREFIX)))
263	292		then throw((("Only NFT " + DUCKPREFIX) + " tokens can be unstaked"))
264	293		else {
265	294		let timeKey = keyStakedTimeByAssetId(toBase58String(assetId))
266	295		if (!(isDefined(timeKey)))
267	296		then throw((("NFT " + asset.name) + " is not staked"))
268	297		else if (!(isDefined(keyStakedDuckByOwner(address))))
269	298		then throw((("The duck " + asset.name) + " is not staked"))
270	299		else {
271	300		let owner = valueOrErrorMessage(getString(keyDuckIdToOwner(toBase58String(assetId))), (("NFT " + asset.name) + " is orphaned"))
272	301		if ((owner != address))
273	302		then throw("Staked NFT is not yours")
274	303		else [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(timeKey), DeleteEntry(keyDuckLocation(assetIdStr)), DeleteEntry(keyStakedTimeByTypeAssetIdAndOwner(DUCKPREFIX, assetIdStr, address)), DeleteEntry(keyStakedDuckByOwner(address))]
275	304		}
276	305		}
277	306		}
278	307
279	308
280	309
281	310		@Callable(i)
282	311		func claimRes (amount,landAssetId) = if ((size(i.payments) != 0))
283	312		then throw("claimRes doesn't require any payments")
284	313		else {
285	314		let addr = toString(i.caller)
286	315		let asset = value(assetInfo(fromBase58String(landAssetId)))
287	316		if (!(contains(asset.name, LANDPREFIX)))
288	317		then throw((("NFT " + LANDPREFIX) + " token should be passed as param"))
289	318		else {
290	319		let timeKey = keyStakedTimeByAssetId(landAssetId)
291	320		let savedTime = getInteger(timeKey)
292	321		if (!(isDefined(savedTime)))
293	322		then throw((("NFT " + asset.name) + " is not staked"))
294	323		else {
295	324		let owner = getStringValue(keyAssetIdToOwner(landAssetId))
296	325		if ((owner != addr))
297	326		then throw((LANDPREFIX + " is not yours"))
298	327		else {
299	328		let d = split(asset.description, "_")
300	329		let landSize = d[recLandSize]
301	330		let terrainCounts = countTerrains(d[recTerrains])
302	331		let duck = getString(keyStakedDuckByOwner(addr))
303	332		if (!(isDefined(duck)))
304	333		then throw("You don't have a duck staked")
305	334		else {
306	335		let duckAssetIdStr = value(duck)
307	336		let curLocation = valueOrElse(getString(keyDuckLocation(duckAssetIdStr)), DEFAULTLOCATION)
308	337		let loc = split(value(curLocation), "_")
309	338		if ((loc[locIdxType] != "L"))
310	339		then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L"))
311	340		else if ((loc[locIdxId] != landAssetId))
312	341		then throw(((("Duck location id is " + loc[locIdxId]) + ", but should be ") + landAssetId))
313	342		else {
314	343		let deltaTime = (lastBlock.timestamp - value(savedTime))
315	344		if ((0 > deltaTime))
316	345		then throw(((("Saved timestamp is in future, saved = " + toString(value(savedTime))) + ", current = ") + toString(lastBlock.timestamp)))
317	346		else {
318	347		let pieces = numPiecesBySize(landSize)
319	348		let availRes = (fraction(deltaTime, DAILYRESBYPIECE, DAYMILLIS) * pieces)
320	349		if ((amount > availRes))
321	350		then throw(((("Not enough resources, available = " + toString(availRes)) + ", requested = ") + toString(amount)))
322	351		else {
323	352		let newDeltaTime = fraction((availRes - amount), DAYMILLIS, (pieces * DAILYRESBYPIECE))
324	353		let newTimestamp = (lastBlock.timestamp - newDeltaTime)
325	354		let bpKey = keyBackpackByDuck(duckAssetIdStr)
326		-	let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0::"), ":")
	355	+	let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
327	356		let currentRes = split(currentPack[bpIdxRes], "_")
328	357		let bpRes = addRes(currentRes, terrainCounts, (deltaTime - newDeltaTime), (pieces / 25))
329	358		let newPack = makeString([currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
330	359		$Tuple2([StringEntry(bpKey, newPack), IntegerEntry(timeKey, newTimestamp), IntegerEntry(keyStakedTimeByTypeAssetIdAndOwner(LANDPREFIX, landAssetId, owner), newTimestamp)], unit)
331	360		}
332	361		}
333	362		}
334	363		}
335	364		}
336	365		}
337	366		}
338	367		}
339	368
340	369
341	370
342	371		@Callable(i)
343	372		func flight (message,sig) = if (!(sigVerify_8Kb(message, sig, pub)))
344	373		then throw("signature does not match")
345	374		else if ((size(i.payments) != 0))
346	375		then throw("flight doesn't require any payments")
347	376		else {
348	377		let parts = split(toUtf8String(message), ";")
349	378		let hp = split(split(parts[0], "\|")[0], "_")
350	379		let curHP = parseIntValue(hp[0])
351	380		let newHP = parseIntValue(hp[1])
352	381		let newLocAndTime = split(parts[1], ":")
353	382		let newLocation = newLocAndTime[0]
354	383		let time = parseIntValue(newLocAndTime[1])
355	384		if (if ((time > (lastBlock.timestamp + FIVEMINUTESMILLIS)))
356	385		then true
357	386		else ((lastBlock.timestamp - FIVEMINUTESMILLIS) > time))
358	387		then throw("signature outdated")
359	388		else {
360	389		let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
361	390		let keyHealth = keyDuckHealth(duckAssetId)
362	391		let oldFromState = valueOrElse(getInteger(keyHealth), 100)
363	392		if ((oldFromState != curHP))
364	393		then throw(((("oldHealth=" + toString(valueOrElse(getInteger(keyHealth), 100))) + " from state does not match one from flight log=") + toString(curHP)))
365	394		else if ((0 >= curHP))
366	395		then throw("You can't fly with zero health")
367	396		else {
368	397		let locKey = keyDuckLocation(duckAssetId)
369	398		let curLocation = valueOrElse(getString(locKey), DEFAULTLOCATION)
370	399		if ((newLocation == curLocation))
371	400		then throw("You can't fly to the same location")
372	401		else $Tuple2([StringEntry(locKey, if ((newHP > 0))
373	402		then newLocation
374	403		else curLocation), IntegerEntry(keyHealth, newHP)], unit)
375	404		}
376	405		}
377	406		}
378	407
379	408
380	409
381	410		@Callable(i)
382		-	func setHealth (health,duckAssetId) = {
383		-	~~let duckAssetIdStr = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked~~")
384		-	if (if ((0 > health))
	411	+	func setHealth (health,duckAssetId) = if ((i.caller != this))
	412	+	then throw("permission denied")
	413	+	else if (if ((0 > health))
385	414		then true
386	415		else (health > 100))
387	416		then throw("HP should be within 0..100")
388	417		else [IntegerEntry(keyDuckHealth(duckAssetId), health)]
389		-	}
	418	+
	419	+
	420	+
	421	+	@Callable(i)
	422	+	func heal (matType,amount) = if (if ((0 > matType))
	423	+	then true
	424	+	else (matType >= NUMRES))
	425	+	then throw(("Unknown material: " + toString(matType)))
	426	+	else if ((0 >= amount))
	427	+	then throw(("Amount should be positive! " + toString(amount)))
	428	+	else {
	429	+	let duckAssetId = valueOrErrorMessage(getString(keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
	430	+	let keyHealth = keyDuckHealth(duckAssetId)
	431	+	let oldHealth = valueOrElse(getInteger(keyHealth), 100)
	432	+	if ((oldHealth >= 100))
	433	+	then throw("HP should be < 100 to heal")
	434	+	else {
	435	+	let bpKey = keyBackpackByDuck(duckAssetId)
	436	+	let currentPack = split(valueOrElse(getString(bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":")
	437	+	let matList = split(currentPack[bpIdxMat], "_")
	438	+	let mList = if ((size(matList) != NUMRES))
	439	+	then ["0", "0", "0", "0", "0", "0"]
	440	+	else matList
	441	+	let currentAmount = parseIntValue(mList[matType])
	442	+	let deltaHealth = min([(amount / HEALCOST), (100 - oldHealth)])
	443	+	let spendAmount = (deltaHealth * HEALCOST)
	444	+	if ((spendAmount > currentAmount))
	445	+	then throw(((((("You need " + toString(spendAmount)) + " of ") + matTypes[matType]) + " to heal, but you backpack contains ") + toString(currentAmount)))
	446	+	else {
	447	+	let newMat = subOneInList(mList, matType, spendAmount)
	448	+	[IntegerEntry(keyHealth, (oldHealth + deltaHealth)), StringEntry(bpKey, makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], newMat, currentPack[bpIdxProd]], ":"))]
	449	+	}
	450	+	}
	451	+	}
390	452
391	453
392	454
393	455		@Callable(i)
394	456		func updateBackpack (duckAssetId,newPack) = if ((i.caller != economyAddr))
395	457		then throw("permission denied")
396	458		else $Tuple2([StringEntry(keyBackpackByDuck(duckAssetId), newPack)], newPack)
397	459
398	460

github/deemru/w8io/169f3d6 
109.35 ms ◑