w8 · tx · 9Nv···Kna

tx · 9NvQUNr7JXtcjJ8YMXtG1TPK9JiJgq6YhLnmbEj5fKna

3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX:  -0.01400000 Waves

2021.11.06 01:24 [2843313] smart account 3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9NvQUNr7JXtcjJ8YMXtG1TPK9JiJgq6YhLnmbEj5fKna",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1636151114699,
    "version": 2,
    "chainId": 87,
    "sender": "3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX",
    "senderPublicKey": "27DK15MykfnsVojpifD1gbr8kRr8rpY5mw6EH4zL8R25",
    "proofs": [
        "5ix7jSayCCQ1jAzumidrCchpHcd5j59UsHvRfaygVyEqc7LEtPc4NLJj63rUAaejuGP3AH7f7dVUipWddyUs59Kx"
    ],
    "script": "base64:AAIFAAAAAAAAABcIAhIECgIICBIGCgQICAgIEgMKAQgSAAAAABUAAAAADnJlYmlydGhBZGRyZXNzAQAAABoBV77gXMO2d4wGjuLkExhlLurfLnCfMI8m+QAAAAANYmFja2VuZFB1YktleQEAAAAgoDCy4rCf80EEjcXf21TkTT+MhYwNT/IrVrGQdfl53jUAAAAADlNUQVJUVElNRVNUQU1QAAAAAXwXCGqAAAAAAAlMQVBMRU5HVEgAAAAAAAFJlwAAAAAACkVHR0FTU0VUSUQBAAAAICtTDrWdbDF7t72xZXSxXVgd01rh9iszfRBluzscWJ6oAAAAAA1EVUNLTElOR1BSSUNFAAAAAAAExLQAAAAAABZwZXJjZW50R3Jvd3RoUHJlY2lzaW9uAAAjhvJvwQAAAAAAABVleGlzdGluZ0R1Y2tQcmVjaXNpb24AAABa8xB6QAABAAAADGtleVRvdGFsRmVlZAAAAAEAAAAKZHVja2xpbmdJZAkAASwAAAACCQABLAAAAAICAAAACWR1Y2tsaW5nXwUAAAAKZHVja2xpbmdJZAIAAAAFX2ZlZWQBAAAAEWtleUR1Y2tsaW5nRmVkTGFwAAAAAQAAAApkdWNrbGluZ0lkCQABLAAAAAIJAAEsAAAAAgIAAAAJZHVja2xpbmdfBQAAAApkdWNrbGluZ0lkAgAAAAdfZmVkTGFwAQAAABBrZXlEdWNrbGluZ0xldmVsAAAAAQAAAApkdWNrbGluZ0lkCQABLAAAAAIJAAEsAAAAAgIAAAAJZHVja2xpbmdfBQAAAApkdWNrbGluZ0lkAgAAAAZfbGV2ZWwBAAAADWtleUZlZWRGb3JMYXAAAAACAAAAB2FkZHJlc3MAAAADbGFwCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACGFkZHJlc3NfBQAAAAdhZGRyZXNzAgAAAAVfbGFwXwkAAaQAAAABBQAAAANsYXACAAAABV9mZWVkAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQAAAANrZXkEAAAAA3ZhbAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYgUAAAAHJG1hdGNoMAUAAAABYgAAAAAAAAAAAAUAAAADdmFsAQAAAAdnZXRCb29sAAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQbAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAdCb29sZWFuBAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiBQAAAAR1bml0AQAAABVnZXRDdXJyZW50TGV2ZWxCaWdJbnQAAAABAAAACmR1Y2tsaW5nSWQEAAAACmtEdWNrTGV2ZWwJAQAAABBrZXlEdWNrbGluZ0xldmVsAAAAAQUAAAAKZHVja2xpbmdJZAQAAAAHJG1hdGNoMAkABCIAAAABBQAAAAprRHVja0xldmVsAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXMFAAAAByRtYXRjaDAJAAGnAAAAAQUAAAABcwQAAAAHJG1hdGNoMQkABCAAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAJZHVja2xpbmdfBQAAAApkdWNrbGluZ0lkAgAAABFfaXNzdWVkQnlGZWVkQ2FsbAMJAAABAAAAAgUAAAAHJG1hdGNoMQIAAAAHQm9vbGVhbgQAAAABYgUAAAAHJG1hdGNoMQkAATYAAAABAAAAAAAAAAAACQABNgAAAAEJAABoAAAAAgAAAAAAAAAAFAUAAAAVZXhpc3RpbmdEdWNrUHJlY2lzaW9uAQAAAA1nZXRDdXJyZW50TGFwAAAAAAkAAGQAAAACCQAAaQAAAAIJAABlAAAAAggFAAAACWxhc3RCbG9jawAAAAl0aW1lc3RhbXAFAAAADlNUQVJUVElNRVNUQU1QBQAAAAlMQVBMRU5HVEgAAAAAAAAAAAEBAAAAGWNhbGN1bGF0ZU5ld0R1Y2tsaW5nTGV2ZWwAAAACAAAACmR1Y2tsaW5nSWQAAAANcGF5bWVudEFtb3VudAQAAAAHa0ZlZExhcAkBAAAAEWtleUR1Y2tsaW5nRmVkTGFwAAAAAQUAAAAKZHVja2xpbmdJZAQAAAAQbGFzdEZlZExhcE51bWJlcgkBAAAADXRyeUdldEludGVnZXIAAAABBQAAAAdrRmVkTGFwBAAAAApjdXJyZW50bGFwCQEAAAANZ2V0Q3VycmVudExhcAAAAAAEAAAACmxhcEZlZERpZmYJAABlAAAAAgUAAAAKY3VycmVudGxhcAkAAGUAAAACBQAAABBsYXN0RmVkTGFwTnVtYmVyAAAAAAAAAAABBAAAAAdwZW5hbHR5AwMJAAAAAAAAAgUAAAAQbGFzdEZlZExhcE51bWJlcgAAAAAAAAAAAAYJAABnAAAAAgAAAAAAAAAABAUAAAAKbGFwRmVkRGlmZgkAATYAAAABAAAAAAAAAAAACQABOQAAAAIJAAE2AAAAAQkAAGkAAAACBQAAAApsYXBGZWREaWZmAAAAAAAAAAAECQABNgAAAAEFAAAAFWV4aXN0aW5nRHVja1ByZWNpc2lvbgQAAAAGZ3Jvd3RoCQABPAAAAAMJAAE2AAAAAQUAAAANcGF5bWVudEFtb3VudAkAATYAAAABBQAAABZwZXJjZW50R3Jvd3RoUHJlY2lzaW9uCQABNgAAAAEFAAAADURVQ0tMSU5HUFJJQ0UDCQAAAAAAAAIGBgkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAlDdXJyZW50OiAJAAGmAAAAAQkBAAAAFWdldEN1cnJlbnRMZXZlbEJpZ0ludAAAAAEFAAAACmR1Y2tsaW5nSWQCAAAABiBQZW46IAkAAaYAAAABBQAAAAdwZW5hbHR5AgAAAAosIGdyb3d0aDogCQABpgAAAAEFAAAABmdyb3d0aAIAAAAOLCBjdXJyZW50bGFwOiAJAAGkAAAAAQUAAAAKY3VycmVudGxhcAIAAAATIGxhc3RGZWRMYXBOdW1iZXI6IAkAAaQAAAABBQAAABBsYXN0RmVkTGFwTnVtYmVyBAAAAAhuZXdMZXZlbAkAATcAAAACCQABOAAAAAIJAQAAABVnZXRDdXJyZW50TGV2ZWxCaWdJbnQAAAABBQAAAApkdWNrbGluZ0lkBQAAAAdwZW5hbHR5BQAAAAZncm93dGgDCQABPwAAAAIJAAE2AAAAAQAAAAAAAAAAAAUAAAAIbmV3TGV2ZWwJAAGmAAAAAQUAAAAGZ3Jvd3RoCQABpgAAAAEFAAAACG5ld0xldmVsAQAAAAxnZXRGZWVkQnlMYXAAAAACAAAAB2FkZHJlc3MAAAADbGFwBAAAAAtrRmVlZEZvckxhcAkBAAAADWtleUZlZWRGb3JMYXAAAAACBQAAAAdhZGRyZXNzBQAAAANsYXAJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQUAAAALa0ZlZWRGb3JMYXABAAAAE3N0cmluZ0xpc3RUb0ludExpc3QAAAABAAAABGxpc3QKAQAAAAZwYXJzZXIAAAACAAAAA2FjYwAAAAN2YWwJAAROAAAAAgUAAAADYWNjCQAETAAAAAIJAQAAAAV2YWx1ZQAAAAEJAAS2AAAAAQUAAAADdmFsBQAAAANuaWwKAAAAAAIkbAUAAAAEbGlzdAoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAGcGFyc2VyAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAABMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAEyAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgEAAAAQZ2V0TWF4RmVlZEFtb3VudAAAAAMAAAAEbGFwcwAAAAdyZXdhcmRzAAAAB2FkZHJlc3MEAAAACmN1cnJlbnRMYXAJAQAAAA1nZXRDdXJyZW50TGFwAAAAAAMDAwMJAQAAAAIhPQAAAAIJAAGRAAAAAgUAAAAEbGFwcwAAAAAAAAAAAwkAAGUAAAACBQAAAApjdXJyZW50TGFwAAAAAAAAAAABBgkBAAAAAiE9AAAAAgkAAZEAAAACBQAAAARsYXBzAAAAAAAAAAACCQAAZQAAAAIFAAAACmN1cnJlbnRMYXAAAAAAAAAAAAIGCQEAAAACIT0AAAACCQABkQAAAAIFAAAABGxhcHMAAAAAAAAAAAEJAABlAAAAAgUAAAAKY3VycmVudExhcAAAAAAAAAAAAwYJAQAAAAIhPQAAAAIJAAGRAAAAAgUAAAAEbGFwcwAAAAAAAAAAAAkAAGUAAAACBQAAAApjdXJyZW50TGFwAAAAAAAAAAAECQAAAgAAAAECAAAAFk91dGRhdGVkIGRhdGEgZm9yIGxhcHMKAQAAAA1nZXRGZWVkRm9yTGFwAAAAAgAAAANhY2MAAAADbGFwCQAETQAAAAIFAAAAA2FjYwkBAAAADGdldEZlZWRCeUxhcAAAAAIFAAAAB2FkZHJlc3MFAAAAA2xhcAoBAAAAA3N1bQAAAAIAAAADYWNjAAAABnJld2FyZAkAAGQAAAACBQAAAANhY2MFAAAABnJld2FyZAQAAAAMZmVlZExhc3RMYXBzCgAAAAACJGwFAAAABGxhcHMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAANuaWwKAQAAAAExAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAADWdldEZlZWRGb3JMYXAAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAEyAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA0CQEAAAABMgAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQEAAAAB21heEZlZWQJAAGWAAAAAQUAAAAMZmVlZExhc3RMYXBzBAAAAAt0b3RhbFJld2FyZAoAAAAAAiRsBQAAAAdyZXdhcmRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAAAAAAAAAAAAAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAADc3VtAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAABMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAATTGlzdCBzaXplIGV4Y2VlZHMgNAkBAAAAATIAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAECQAAZQAAAAIFAAAAC3RvdGFsUmV3YXJkBQAAAAdtYXhGZWVkAQAAAA9nZXRCYWNrZW5kUHJvb2YAAAADAAAABGxhcHMAAAAHcmV3YXJkcwAAAAdhZGRyZXNzCgEAAAATSW50TGlzdFRvQnl0ZVZlY3RvcgAAAAIAAAADYWNjAAAABGl0ZW0JAAEsAAAAAgUAAAADYWNjBQAAAARpdGVtBAAAAA5sYXBzU3RyaW5nUGFydAoAAAAAAiRsBQAAAARsYXBzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAIAAAAACgEAAAABMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAABNJbnRMaXN0VG9CeXRlVmVjdG9yAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAABMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAEyAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgQAAAARcmV3YXJkc1N0cmluZ1BhcnQKAAAAAAIkbAUAAAAHcmV3YXJkcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzACAAAAAAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAATSW50TGlzdFRvQnl0ZVZlY3RvcgAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAAATIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAABMgAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoJAAEsAAAAAgkAASwAAAACBQAAAA5sYXBzU3RyaW5nUGFydAUAAAARcmV3YXJkc1N0cmluZ1BhcnQFAAAAB2FkZHJlc3MAAAAEAAAAAWkBAAAAEWlzc3VlRnJlZUR1Y2tsaW5nAAAAAgAAAAdhZGRyZXNzAAAAB3R4SWRTdHIEAAAABWFzc2V0CQAEQwAAAAcCAAAAEEJBQlktMTExMTExMTEtR1oCAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAcFAAAABHVuaXQFAAAABmhlaWdodAQAAAAHYXNzZXRJZAkABDgAAAABBQAAAAVhc3NldAkABRQAAAACCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAAB2FkZHJlc3MCAAAAAV8FAAAAB3R4SWRTdHICAAAAA19kaQkAAlgAAAABBQAAAAdhc3NldElkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAxzdGF0c19hbW91bnQJAABkAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABAgAAAAxzdGF0c19hbW91bnQAAAAAAAAAAAEJAARMAAAAAgkBAAAADEJvb2xlYW5FbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAlkdWNrbGluZ18JAAJYAAAAAQUAAAAHYXNzZXRJZAIAAAARX2lzc3VlZEJ5RmVlZENhbGwJAAAAAAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAR0aGlzCQAETAAAAAIFAAAABWFzc2V0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAAAV2YWx1ZQAAAAEJAAQmAAAAAQUAAAAHYWRkcmVzcwAAAAAAAAAAAQUAAAAHYXNzZXRJZAUAAAADbmlsCQACWAAAAAEFAAAAB2Fzc2V0SWQAAAABaQEAAAAMZmVlZER1Y2tsaW5nAAAABAAAAApkdWNrbGluZ0lkAAAAEGJhY2tlbmRTaWduYXR1cmUAAAAIbGFwc0xpc3QAAAALcmV3YXJkc0xpc3QEAAAADWFkZHJlc3NTdHJpbmcJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBAAAAARsYXBzCQEAAAAFdmFsdWUAAAABCQAEtQAAAAIFAAAACGxhcHNMaXN0AgAAAAEsBAAAAAdyZXdhcmRzCQEAAAAFdmFsdWUAAAABCQAEtQAAAAIFAAAAC3Jld2FyZHNMaXN0AgAAAAEsBAAAAAxiYWNrZW5kUHJvb2YJAQAAAA9nZXRCYWNrZW5kUHJvb2YAAAADBQAAAARsYXBzBQAAAAdyZXdhcmRzBQAAAA1hZGRyZXNzU3RyaW5nBAAAAA5yZWFsRHVja2xpbmdJZAMJAQAAAAEhAAAAAQkACcQAAAADCQABmwAAAAEFAAAADGJhY2tlbmRQcm9vZgkAAlkAAAABBQAAABBiYWNrZW5kU2lnbmF0dXJlBQAAAA1iYWNrZW5kUHViS2V5CQAAAgAAAAECAAAAGkludmFsaWQgcHJvb2YgZnJvbSBiYWNrZW5kAwMJAQAAAAIhPQAAAAIJAAGQAAAAAQgFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAEGCQEAAAACIT0AAAACCAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBQAAAApFR0dBU1NFVElECQAAAgAAAAECAAAAKUJhZCBwYXltZW50IGF0dGFjaGVkIChhc3NldFtzXSBvciBhbW91bnQpAwkAAAAAAAACBQAAAApkdWNrbGluZ0lkAgAAAAAEAAAAD2R1Y2tsaW5nQXNzZXRJZAkAA/wAAAAEBQAAAAR0aGlzAgAAABFpc3N1ZUZyZWVEdWNrbGluZwkABEwAAAACCQAEJQAAAAEIBQAAAAFpAAAADG9yaWdpbkNhbGxlcgkABEwAAAACCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQFAAAAA25pbAUAAAADbmlsAwkAAAAAAAACBQAAAA9kdWNrbGluZ0Fzc2V0SWQFAAAAD2R1Y2tsaW5nQXNzZXRJZAQAAAACaWQEAAAAByRtYXRjaDAFAAAAD2R1Y2tsaW5nQXNzZXRJZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAF2BQAAAAckbWF0Y2gwBQAAAAF2CQAAAgAAAAECAAAAEkNhbid0IGdlbmVyYXRlIE5GVAUAAAACaWQJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAAAAA9kdWNrbGluZ0lkQ2hlY2sJAQAAAAV2YWx1ZQAAAAEJAAPsAAAAAQkAAlkAAAABBQAAAApkdWNrbGluZ0lkAwkBAAAAAiE9AAAAAgkAA/AAAAACCAUAAAABaQAAAAZjYWxsZXIIBQAAAA9kdWNrbGluZ0lkQ2hlY2sAAAACaWQAAAAAAAAAAAEJAAACAAAAAQIAAAAkWW91J3JlIG5vdCB0aGUgb3duZXIgb2YgdGhlIGR1Y2tsaW5nAwkBAAAAAiE9AAAAAggFAAAAD2R1Y2tsaW5nSWRDaGVjawAAAAZpc3N1ZXIFAAAABHRoaXMJAAACAAAAAQIAAAAfQ2FudCBmaW5kIGR1Y2tsaW5nIHdpdGggc3VjaCBpZAQAAAAQZHVja2xpbmdJZFN0cmluZwkAAlgAAAABCAUAAAAPZHVja2xpbmdJZENoZWNrAAAAAmlkBQAAABBkdWNrbGluZ0lkU3RyaW5nBAAAAAdpbnRMYXBzCQEAAAATc3RyaW5nTGlzdFRvSW50TGlzdAAAAAEFAAAABGxhcHMEAAAACmludFJld2FyZHMJAQAAABNzdHJpbmdMaXN0VG9JbnRMaXN0AAAAAQUAAAAHcmV3YXJkcwQAAAANbWF4RmVlZEFtb3VudAkBAAAAEGdldE1heEZlZWRBbW91bnQAAAADBQAAAAdpbnRMYXBzBQAAAAppbnRSZXdhcmRzCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgQAAAAPa0R1Y2tsaW5nRmVkTGFwCQEAAAARa2V5RHVja2xpbmdGZWRMYXAAAAABBQAAAA5yZWFsRHVja2xpbmdJZAQAAAAKbGFzdEZlZExhcAkBAAAADXRyeUdldEludGVnZXIAAAABBQAAAA9rRHVja2xpbmdGZWRMYXAEAAAADmN1cnJlbnRQYXltZW50CAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQEAAAACWtOZXdMZXZlbAkBAAAAEGtleUR1Y2tsaW5nTGV2ZWwAAAABBQAAAA5yZWFsRHVja2xpbmdJZAQAAAAKa1RvdGFsRmVlZAkBAAAADGtleVRvdGFsRmVlZAAAAAEFAAAADnJlYWxEdWNrbGluZ0lkBAAAAAl0b3RhbEZlZWQJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQUAAAAKa1RvdGFsRmVlZAQAAAALZmVlZFR4U3RhdHMJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACWR1Y2tsaW5nXwUAAAAOcmVhbER1Y2tsaW5nSWQCAAAABl9zdGF0XwkAAaQAAAABCAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAMJAABmAAAAAgUAAAAOY3VycmVudFBheW1lbnQFAAAADW1heEZlZWRBbW91bnQJAAACAAAAAQkAASwAAAACAgAAADpDYW5ub3QgZmVlZCBkdWNrbGluZyBmb3Igc3VjaCBhbW91bnQsIG1heCBmZWVkIGFtb3VudCBpczogCQABpAAAAAEFAAAADW1heEZlZWRBbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAD2tEdWNrbGluZ0ZlZExhcAkBAAAADWdldEN1cnJlbnRMYXAAAAAACQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAANa2V5RmVlZEZvckxhcAAAAAIFAAAADWFkZHJlc3NTdHJpbmcJAAGRAAAAAgUAAAAHaW50TGFwcwAAAAAAAAAAAAkAAGQAAAACCQEAAAAMZ2V0RmVlZEJ5TGFwAAAAAgUAAAANYWRkcmVzc1N0cmluZwkAAZEAAAACBQAAAAdpbnRMYXBzAAAAAAAAAAAABQAAAA5jdXJyZW50UGF5bWVudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAADWtleUZlZWRGb3JMYXAAAAACBQAAAA1hZGRyZXNzU3RyaW5nCQABkQAAAAIFAAAAB2ludExhcHMAAAAAAAAAAAEJAABkAAAAAgkBAAAADGdldEZlZWRCeUxhcAAAAAIFAAAADWFkZHJlc3NTdHJpbmcJAAGRAAAAAgUAAAAHaW50TGFwcwAAAAAAAAAAAQUAAAAOY3VycmVudFBheW1lbnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAA1rZXlGZWVkRm9yTGFwAAAAAgUAAAANYWRkcmVzc1N0cmluZwkAAZEAAAACBQAAAAdpbnRMYXBzAAAAAAAAAAACCQAAZAAAAAIJAQAAAAxnZXRGZWVkQnlMYXAAAAACBQAAAA1hZGRyZXNzU3RyaW5nCQABkQAAAAIFAAAAB2ludExhcHMAAAAAAAAAAAIFAAAADmN1cnJlbnRQYXltZW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAANa2V5RmVlZEZvckxhcAAAAAIFAAAADWFkZHJlc3NTdHJpbmcJAAGRAAAAAgUAAAAHaW50TGFwcwAAAAAAAAAAAwkAAGQAAAACCQEAAAAMZ2V0RmVlZEJ5TGFwAAAAAgUAAAANYWRkcmVzc1N0cmluZwkAAZEAAAACBQAAAAdpbnRMYXBzAAAAAAAAAAADBQAAAA5jdXJyZW50UGF5bWVudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAKa1RvdGFsRmVlZAkAAGQAAAACBQAAAAl0b3RhbEZlZWQFAAAADmN1cnJlbnRQYXltZW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAAtmZWVkVHhTdGF0cwUAAAAOY3VycmVudFBheW1lbnQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAJa05ld0xldmVsCQEAAAAZY2FsY3VsYXRlTmV3RHVja2xpbmdMZXZlbAAAAAIFAAAADnJlYWxEdWNrbGluZ0lkBQAAAA5jdXJyZW50UGF5bWVudAUAAAADbmlsAAAAAWkBAAAACWZpeExldmVscwAAAAEAAAALZHVja2xpbmdJZHMDCQEAAAACIT0AAAACCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkBAAAAIOIwq0GkmkWPbmj2/4iNXcv8XILAIjgWlJLBdqQCQFYiCQAAAgAAAAECAAAAAAQAAAAPZHVja2xpbmdJZHNMaXN0CQEAAAAFdmFsdWUAAAABCQAEtQAAAAIFAAAAC2R1Y2tsaW5nSWRzAgAAAAEsCgEAAAAIaGFuZGxlSWQAAAACAAAAA2FjYwAAAAJpZAQAAAAKa1RvdGFsRmVlZAkBAAAADGtleVRvdGFsRmVlZAAAAAEFAAAAAmlkBAAAAAl0b3RhbEZlZWQJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQUAAAAKa1RvdGFsRmVlZAQAAAAJa05ld0xldmVsCQEAAAAQa2V5RHVja2xpbmdMZXZlbAAAAAEFAAAAAmlkBAAAAA1zdGFydGluZ0xldmVsBAAAAAckbWF0Y2gwCQAEIAAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAlkdWNrbGluZ18FAAAAAmlkAgAAABFfaXNzdWVkQnlGZWVkQ2FsbAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAHQm9vbGVhbgQAAAABYgUAAAAHJG1hdGNoMAkAATYAAAABAAAAAAAAAAAACQABNgAAAAEJAABoAAAAAgAAAAAAAAAAFAUAAAAVZXhpc3RpbmdEdWNrUHJlY2lzaW9uBAAAAAZncm93dGgJAAE8AAAAAwkAATYAAAABBQAAAAl0b3RhbEZlZWQJAAE2AAAAAQUAAAAWcGVyY2VudEdyb3d0aFByZWNpc2lvbgkAATYAAAABBQAAAA1EVUNLTElOR1BSSUNFCQAETgAAAAIFAAAAA2FjYwkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAAlrTmV3TGV2ZWwJAAGmAAAAAQkAATcAAAACBQAAAA1zdGFydGluZ0xldmVsBQAAAAZncm93dGgFAAAAA25pbAoAAAAAAiRsBQAAAA9kdWNrbGluZ0lkc0xpc3QKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAANuaWwKAQAAAAExAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAACGhhbmRsZUlkAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAABMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQAAAAEyAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAAAAAAAAAAALAAAAAAAAAAAMAAAAAAAAAAANAAAAAAAAAAAOAAAAAAAAAAAPAAAAAAAAAAAQAAAAAAAAAAARAAAAAAAAAAASAAAAAAAAAAATAAAAAAAAAAAUAAAAAWkBAAAAFHR1cm5EdWNrbGluZ0ludG9EdWNrAAAAAAkAAAIAAAABAgAAABNOb3QgaW1wbGVtZW50ZWQgeWV0AAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXm8RjKh",
    "height": 2843313,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: H57GaSdSYQtgn64xyBhhs2oJDQzACib3h3sMaYLRJkr7
Next: 2JxanPcVehFRgfXpuZhXaUzNsPBR78MHyHRknBN9NtLL

Diff: 
Old New Differences
71 71      let kFedLap = keyDucklingFedLap(ducklingId)
72 72      let lastFedLapNumber = tryGetInteger(kFedLap)
73 73      let currentlap = getCurrentLap()
74 -     let penalty = if ((lastFedLapNumber == 0))
74 +     let lapFedDiff = (currentlap - (lastFedLapNumber - 1))
75 +     let penalty = if (if ((lastFedLapNumber == 0))
76 +         then true
77 +         else (4 >= lapFedDiff))
75 78          then toBigInt(0)
76 -         else (toBigInt((((currentlap - lastFedLapNumber) - 1) / 4)) * toBigInt(existingDuckPrecision))
79 +         else (toBigInt((lapFedDiff / 4)) * toBigInt(existingDuckPrecision))
77 80      let growth = fraction(toBigInt(paymentAmount), toBigInt(percentGrowthPrecision), toBigInt(DUCKLINGPRICE))
78 81      if ((true == true))
79 82          then throw(((((((((("Current: " + toString(getCurrentLevelBigInt(ducklingId))) + " Pen: ") + toString(penalty)) + ", growth: ") + toString(growth)) + ", currentlap: ") + toString(currentlap)) + " lastFedLapNumber: ") + toString(lastFedLapNumber)))
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let rebirthAddress = base58'3PKL9tfUmNciXvbSA3zpXr6PnDNnhn936ba'
5 5  
6 6  let backendPubKey = base58'BnKJTqkWD69SotKhJXdKu76NRtkdQJEpThqGGeFwF9EL'
7 7  
8 8  let STARTTIMESTAMP = 1632474000000
9 9  
10 10  let LAPLENGTH = 21600000
11 11  
12 12  let EGGASSETID = base58'3v7zGkeHS6KrsvmTRzEzvCxm5cdzkCtM7z5cM6efcjCB'
13 13  
14 14  let DUCKLINGPRICE = 80000000
15 15  
16 16  let percentGrowthPrecision = 10000000000000000
17 17  
18 18  let existingDuckPrecision = 100000000000000
19 19  
20 20  func keyTotalFeed (ducklingId) = (("duckling_" + ducklingId) + "_feed")
21 21  
22 22  
23 23  func keyDucklingFedLap (ducklingId) = (("duckling_" + ducklingId) + "_fedLap")
24 24  
25 25  
26 26  func keyDucklingLevel (ducklingId) = (("duckling_" + ducklingId) + "_level")
27 27  
28 28  
29 29  func keyFeedForLap (address,lap) = (((("address_" + address) + "_lap_") + toString(lap)) + "_feed")
30 30  
31 31  
32 32  func tryGetInteger (key) = {
33 33      let val =     match getInteger(this, key) {
34 34          case b: Int => 
35 35              b
36 36          case _ => 
37 37              0
38 38      }
39 39      val
40 40      }
41 41  
42 42  
43 43  func getBool (key) = match getBoolean(this, key) {
44 44      case b: Boolean => 
45 45          b
46 46      case _ => 
47 47          unit
48 48  }
49 49  
50 50  
51 51  func getCurrentLevelBigInt (ducklingId) = {
52 52      let kDuckLevel = keyDucklingLevel(ducklingId)
53 53      match getString(kDuckLevel) {
54 54          case s: String => 
55 55              parseBigIntValue(s)
56 56          case _ => 
57 57              match getBoolean((("duckling_" + ducklingId) + "_issuedByFeedCall")) {
58 58                  case b: Boolean => 
59 59                      toBigInt(0)
60 60                  case _ => 
61 61                      toBigInt((20 * existingDuckPrecision))
62 62              }
63 63      }
64 64      }
65 65  
66 66  
67 67  func getCurrentLap () = (((lastBlock.timestamp - STARTTIMESTAMP) / LAPLENGTH) + 1)
68 68  
69 69  
70 70  func calculateNewDucklingLevel (ducklingId,paymentAmount) = {
71 71      let kFedLap = keyDucklingFedLap(ducklingId)
72 72      let lastFedLapNumber = tryGetInteger(kFedLap)
73 73      let currentlap = getCurrentLap()
74 -     let penalty = if ((lastFedLapNumber == 0))
74 +     let lapFedDiff = (currentlap - (lastFedLapNumber - 1))
75 +     let penalty = if (if ((lastFedLapNumber == 0))
76 +         then true
77 +         else (4 >= lapFedDiff))
75 78          then toBigInt(0)
76 -         else (toBigInt((((currentlap - lastFedLapNumber) - 1) / 4)) * toBigInt(existingDuckPrecision))
79 +         else (toBigInt((lapFedDiff / 4)) * toBigInt(existingDuckPrecision))
77 80      let growth = fraction(toBigInt(paymentAmount), toBigInt(percentGrowthPrecision), toBigInt(DUCKLINGPRICE))
78 81      if ((true == true))
79 82          then throw(((((((((("Current: " + toString(getCurrentLevelBigInt(ducklingId))) + " Pen: ") + toString(penalty)) + ", growth: ") + toString(growth)) + ", currentlap: ") + toString(currentlap)) + " lastFedLapNumber: ") + toString(lastFedLapNumber)))
80 83          else {
81 84              let newLevel = ((getCurrentLevelBigInt(ducklingId) - penalty) + growth)
82 85              if ((toBigInt(0) > newLevel))
83 86                  then toString(growth)
84 87                  else toString(newLevel)
85 88              }
86 89      }
87 90  
88 91  
89 92  func getFeedByLap (address,lap) = {
90 93      let kFeedForLap = keyFeedForLap(address, lap)
91 94      tryGetInteger(kFeedForLap)
92 95      }
93 96  
94 97  
95 98  func stringListToIntList (list) = {
96 99      func parser (acc,val) =     (acc ++ [value(parseInt(val))])
97 100  
98 101      let $l = list
99 102      let $s = size($l)
100 103      let $acc0 = nil
101 104      func 1 ($a,$i) =     if (($i >= $s))
102 105          then $a
103 106          else parser($a, $l[$i])
104 107  
105 108      func 2 ($a,$i) =     if (($i >= $s))
106 109          then $a
107 110          else throw("List size exceeds 10")
108 111  
109 112      2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
110 113      }
111 114  
112 115  
113 116  func getMaxFeedAmount (laps,rewards,address) = {
114 117      let currentLap = getCurrentLap()
115 118      if (if (if (if ((laps[3] != (currentLap - 1)))
116 119          then true
117 120          else (laps[2] != (currentLap - 2)))
118 121          then true
119 122          else (laps[1] != (currentLap - 3)))
120 123          then true
121 124          else (laps[0] != (currentLap - 4)))
122 125          then throw("Outdated data for laps")
123 126          else {
124 127              func getFeedForLap (acc,lap) =             (acc :+ getFeedByLap(address, lap))
125 128  
126 129              func sum (acc,reward) =             (acc + reward)
127 130  
128 131              let feedLastLaps = {
129 132                  let $l = laps
130 133                  let $s = size($l)
131 134                  let $acc0 = nil
132 135                  func 1 ($a,$i) =                 if (($i >= $s))
133 136                      then $a
134 137                      else getFeedForLap($a, $l[$i])
135 138  
136 139                  func 2 ($a,$i) =                 if (($i >= $s))
137 140                      then $a
138 141                      else throw("List size exceeds 4")
139 142  
140 143                  2(1(1(1(1($acc0, 0), 1), 2), 3), 4)
141 144                  }
142 145              let maxFeed = max(feedLastLaps)
143 146              let totalReward = {
144 147                  let $l = rewards
145 148                  let $s = size($l)
146 149                  let $acc0 = 0
147 150                  func 1 ($a,$i) =                 if (($i >= $s))
148 151                      then $a
149 152                      else sum($a, $l[$i])
150 153  
151 154                  func 2 ($a,$i) =                 if (($i >= $s))
152 155                      then $a
153 156                      else throw("List size exceeds 4")
154 157  
155 158                  2(1(1(1(1($acc0, 0), 1), 2), 3), 4)
156 159                  }
157 160              (totalReward - maxFeed)
158 161              }
159 162      }
160 163  
161 164  
162 165  func getBackendProof (laps,rewards,address) = {
163 166      func IntListToByteVector (acc,item) =     (acc + item)
164 167  
165 168      let lapsStringPart = {
166 169          let $l = laps
167 170          let $s = size($l)
168 171          let $acc0 = ""
169 172          func 1 ($a,$i) =         if (($i >= $s))
170 173              then $a
171 174              else IntListToByteVector($a, $l[$i])
172 175  
173 176          func 2 ($a,$i) =         if (($i >= $s))
174 177              then $a
175 178              else throw("List size exceeds 10")
176 179  
177 180          2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
178 181          }
179 182      let rewardsStringPart = {
180 183          let $l = rewards
181 184          let $s = size($l)
182 185          let $acc0 = ""
183 186          func 1 ($a,$i) =         if (($i >= $s))
184 187              then $a
185 188              else IntListToByteVector($a, $l[$i])
186 189  
187 190          func 2 ($a,$i) =         if (($i >= $s))
188 191              then $a
189 192              else throw("List size exceeds 10")
190 193  
191 194          2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
192 195          }
193 196      ((lapsStringPart + rewardsStringPart) + address)
194 197      }
195 198  
196 199  
197 200  @Callable(i)
198 201  func issueFreeDuckling (address,txIdStr) = {
199 202      let asset = Issue("BABY-11111111-GZ", "", 1, 0, false, unit, height)
200 203      let assetId = calculateAssetId(asset)
201 204      $Tuple2([StringEntry((((address + "_") + txIdStr) + "_di"), toBase58String(assetId)), IntegerEntry("stats_amount", (tryGetInteger("stats_amount") + 1)), BooleanEntry((("duckling_" + toBase58String(assetId)) + "_issuedByFeedCall"), (i.caller == this)), asset, ScriptTransfer(value(addressFromString(address)), 1, assetId)], toBase58String(assetId))
202 205      }
203 206  
204 207  
205 208  
206 209  @Callable(i)
207 210  func feedDuckling (ducklingId,backendSignature,lapsList,rewardsList) = {
208 211      let addressString = toString(i.caller)
209 212      let laps = value(split(lapsList, ","))
210 213      let rewards = value(split(rewardsList, ","))
211 214      let backendProof = getBackendProof(laps, rewards, addressString)
212 215      let realDucklingId = if (!(sigVerify_8Kb(toBytes(backendProof), fromBase58String(backendSignature), backendPubKey)))
213 216          then throw("Invalid proof from backend")
214 217          else if (if ((size(i.payments) != 1))
215 218              then true
216 219              else (value(i.payments[0]).assetId != EGGASSETID))
217 220              then throw("Bad payment attached (asset[s] or amount)")
218 221              else if ((ducklingId == ""))
219 222                  then {
220 223                      let ducklingAssetId = invoke(this, "issueFreeDuckling", [toString(i.originCaller), toBase58String(i.transactionId)], nil)
221 224                      if ((ducklingAssetId == ducklingAssetId))
222 225                          then {
223 226                              let id =                             match ducklingAssetId {
224 227                                  case v: String => 
225 228                                      v
226 229                                  case _ => 
227 230                                      throw("Can't generate NFT")
228 231                              }
229 232                              id
230 233                              }
231 234                          else throw("Strict value is not equal to itself.")
232 235                      }
233 236                  else {
234 237                      let ducklingIdCheck = value(assetInfo(fromBase58String(ducklingId)))
235 238                      if ((assetBalance(i.caller, ducklingIdCheck.id) != 1))
236 239                          then throw("You're not the owner of the duckling")
237 240                          else if ((ducklingIdCheck.issuer != this))
238 241                              then throw("Cant find duckling with such id")
239 242                              else {
240 243                                  let ducklingIdString = toBase58String(ducklingIdCheck.id)
241 244                                  ducklingIdString
242 245                                  }
243 246                      }
244 247      let intLaps = stringListToIntList(laps)
245 248      let intRewards = stringListToIntList(rewards)
246 249      let maxFeedAmount = getMaxFeedAmount(intLaps, intRewards, toString(i.caller))
247 250      let kDucklingFedLap = keyDucklingFedLap(realDucklingId)
248 251      let lastFedLap = tryGetInteger(kDucklingFedLap)
249 252      let currentPayment = value(i.payments[0]).amount
250 253      let kNewLevel = keyDucklingLevel(realDucklingId)
251 254      let kTotalFeed = keyTotalFeed(realDucklingId)
252 255      let totalFeed = tryGetInteger(kTotalFeed)
253 256      let feedTxStats = ((("duckling_" + realDucklingId) + "_stat_") + toString(lastBlock.timestamp))
254 257      if ((currentPayment > maxFeedAmount))
255 258          then throw(("Cannot feed duckling for such amount, max feed amount is: " + toString(maxFeedAmount)))
256 259          else [IntegerEntry(kDucklingFedLap, getCurrentLap()), IntegerEntry(keyFeedForLap(addressString, intLaps[0]), (getFeedByLap(addressString, intLaps[0]) + currentPayment)), IntegerEntry(keyFeedForLap(addressString, intLaps[1]), (getFeedByLap(addressString, intLaps[1]) + currentPayment)), IntegerEntry(keyFeedForLap(addressString, intLaps[2]), (getFeedByLap(addressString, intLaps[2]) + currentPayment)), IntegerEntry(keyFeedForLap(addressString, intLaps[3]), (getFeedByLap(addressString, intLaps[3]) + currentPayment)), IntegerEntry(kTotalFeed, (totalFeed + currentPayment)), IntegerEntry(feedTxStats, currentPayment), StringEntry(kNewLevel, calculateNewDucklingLevel(realDucklingId, currentPayment))]
257 260      }
258 261  
259 262  
260 263  
261 264  @Callable(i)
262 265  func fixLevels (ducklingIds) = if ((i.callerPublicKey != base58'GDxBbsDRmeY39quNrDsTXKJzFWbQVtjxHseF4ikxZ7n9'))
263 266      then throw("")
264 267      else {
265 268          let ducklingIdsList = value(split(ducklingIds, ","))
266 269          func handleId (acc,id) =         {
267 270              let kTotalFeed = keyTotalFeed(id)
268 271              let totalFeed = tryGetInteger(kTotalFeed)
269 272              let kNewLevel = keyDucklingLevel(id)
270 273              let startingLevel =             match getBoolean((("duckling_" + id) + "_issuedByFeedCall")) {
271 274                  case b: Boolean => 
272 275                      toBigInt(0)
273 276                  case _ => 
274 277                      toBigInt((20 * existingDuckPrecision))
275 278              }
276 279              let growth = fraction(toBigInt(totalFeed), toBigInt(percentGrowthPrecision), toBigInt(DUCKLINGPRICE))
277 280              (acc ++ [StringEntry(kNewLevel, toString((startingLevel + growth)))])
278 281              }
279 282  
280 283          let $l = ducklingIdsList
281 284          let $s = size($l)
282 285          let $acc0 = nil
283 286          func 1 ($a,$i) =         if (($i >= $s))
284 287              then $a
285 288              else handleId($a, $l[$i])
286 289  
287 290          func 2 ($a,$i) =         if (($i >= $s))
288 291              then $a
289 292              else throw("List size exceeds 20")
290 293  
291 294          2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
292 295          }
293 296  
294 297  
295 298  
296 299  @Callable(i)
297 300  func turnDucklingIntoDuck () = throw("Not implemented yet")
298 301  
299 302  
300 303  @Verifier(tx)
301 304  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
302 305

Old	New		Differences
71	71		let kFedLap = keyDucklingFedLap(ducklingId)
72	72		let lastFedLapNumber = tryGetInteger(kFedLap)
73	73		let currentlap = getCurrentLap()
74		-	let penalty = if ((lastFedLapNumber == 0))
	74	+	let lapFedDiff = (currentlap - (lastFedLapNumber - 1))
	75	+	let penalty = if (if ((lastFedLapNumber == 0))
	76	+	then true
	77	+	else (4 >= lapFedDiff))
75	78		then toBigInt(0)
76		-	else (toBigInt((~~((currentlap - lastFedLapNumber) - 1)~~ / 4)) * toBigInt(existingDuckPrecision))
	79	+	else (toBigInt((lapFedDiff / 4)) * toBigInt(existingDuckPrecision))
77	80		let growth = fraction(toBigInt(paymentAmount), toBigInt(percentGrowthPrecision), toBigInt(DUCKLINGPRICE))
78	81		if ((true == true))
79	82		then throw(((((((((("Current: " + toString(getCurrentLevelBigInt(ducklingId))) + " Pen: ") + toString(penalty)) + ", growth: ") + toString(growth)) + ", currentlap: ") + toString(currentlap)) + " lastFedLapNumber: ") + toString(lastFedLapNumber)))

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let rebirthAddress = base58'3PKL9tfUmNciXvbSA3zpXr6PnDNnhn936ba'
5	5
6	6		let backendPubKey = base58'BnKJTqkWD69SotKhJXdKu76NRtkdQJEpThqGGeFwF9EL'
7	7
8	8		let STARTTIMESTAMP = 1632474000000
9	9
10	10		let LAPLENGTH = 21600000
11	11
12	12		let EGGASSETID = base58'3v7zGkeHS6KrsvmTRzEzvCxm5cdzkCtM7z5cM6efcjCB'
13	13
14	14		let DUCKLINGPRICE = 80000000
15	15
16	16		let percentGrowthPrecision = 10000000000000000
17	17
18	18		let existingDuckPrecision = 100000000000000
19	19
20	20		func keyTotalFeed (ducklingId) = (("duckling_" + ducklingId) + "_feed")
21	21
22	22
23	23		func keyDucklingFedLap (ducklingId) = (("duckling_" + ducklingId) + "_fedLap")
24	24
25	25
26	26		func keyDucklingLevel (ducklingId) = (("duckling_" + ducklingId) + "_level")
27	27
28	28
29	29		func keyFeedForLap (address,lap) = (((("address_" + address) + "_lap_") + toString(lap)) + "_feed")
30	30
31	31
32	32		func tryGetInteger (key) = {
33	33		let val = match getInteger(this, key) {
34	34		case b: Int =>
35	35		b
36	36		case _ =>
37	37		0
38	38		}
39	39		val
40	40		}
41	41
42	42
43	43		func getBool (key) = match getBoolean(this, key) {
44	44		case b: Boolean =>
45	45		b
46	46		case _ =>
47	47		unit
48	48		}
49	49
50	50
51	51		func getCurrentLevelBigInt (ducklingId) = {
52	52		let kDuckLevel = keyDucklingLevel(ducklingId)
53	53		match getString(kDuckLevel) {
54	54		case s: String =>
55	55		parseBigIntValue(s)
56	56		case _ =>
57	57		match getBoolean((("duckling_" + ducklingId) + "_issuedByFeedCall")) {
58	58		case b: Boolean =>
59	59		toBigInt(0)
60	60		case _ =>
61	61		toBigInt((20 * existingDuckPrecision))
62	62		}
63	63		}
64	64		}
65	65
66	66
67	67		func getCurrentLap () = (((lastBlock.timestamp - STARTTIMESTAMP) / LAPLENGTH) + 1)
68	68
69	69
70	70		func calculateNewDucklingLevel (ducklingId,paymentAmount) = {
71	71		let kFedLap = keyDucklingFedLap(ducklingId)
72	72		let lastFedLapNumber = tryGetInteger(kFedLap)
73	73		let currentlap = getCurrentLap()
74		-	let penalty = if ((lastFedLapNumber == 0))
	74	+	let lapFedDiff = (currentlap - (lastFedLapNumber - 1))
	75	+	let penalty = if (if ((lastFedLapNumber == 0))
	76	+	then true
	77	+	else (4 >= lapFedDiff))
75	78		then toBigInt(0)
76		-	else (toBigInt((~~((currentlap - lastFedLapNumber) - 1)~~ / 4)) * toBigInt(existingDuckPrecision))
	79	+	else (toBigInt((lapFedDiff / 4)) * toBigInt(existingDuckPrecision))
77	80		let growth = fraction(toBigInt(paymentAmount), toBigInt(percentGrowthPrecision), toBigInt(DUCKLINGPRICE))
78	81		if ((true == true))
79	82		then throw(((((((((("Current: " + toString(getCurrentLevelBigInt(ducklingId))) + " Pen: ") + toString(penalty)) + ", growth: ") + toString(growth)) + ", currentlap: ") + toString(currentlap)) + " lastFedLapNumber: ") + toString(lastFedLapNumber)))
80	83		else {
81	84		let newLevel = ((getCurrentLevelBigInt(ducklingId) - penalty) + growth)
82	85		if ((toBigInt(0) > newLevel))
83	86		then toString(growth)
84	87		else toString(newLevel)
85	88		}
86	89		}
87	90
88	91
89	92		func getFeedByLap (address,lap) = {
90	93		let kFeedForLap = keyFeedForLap(address, lap)
91	94		tryGetInteger(kFeedForLap)
92	95		}
93	96
94	97
95	98		func stringListToIntList (list) = {
96	99		func parser (acc,val) = (acc ++ [value(parseInt(val))])
97	100
98	101		let $l = list
99	102		let $s = size($l)
100	103		let $acc0 = nil
101	104		func 1 ($a,$i) = if (($i >= $s))
102	105		then $a
103	106		else parser($a, $l[$i])
104	107
105	108		func 2 ($a,$i) = if (($i >= $s))
106	109		then $a
107	110		else throw("List size exceeds 10")
108	111
109	112		2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
110	113		}
111	114
112	115
113	116		func getMaxFeedAmount (laps,rewards,address) = {
114	117		let currentLap = getCurrentLap()
115	118		if (if (if (if ((laps[3] != (currentLap - 1)))
116	119		then true
117	120		else (laps[2] != (currentLap - 2)))
118	121		then true
119	122		else (laps[1] != (currentLap - 3)))
120	123		then true
121	124		else (laps[0] != (currentLap - 4)))
122	125		then throw("Outdated data for laps")
123	126		else {
124	127		func getFeedForLap (acc,lap) = (acc :+ getFeedByLap(address, lap))
125	128
126	129		func sum (acc,reward) = (acc + reward)
127	130
128	131		let feedLastLaps = {
129	132		let $l = laps
130	133		let $s = size($l)
131	134		let $acc0 = nil
132	135		func 1 ($a,$i) = if (($i >= $s))
133	136		then $a
134	137		else getFeedForLap($a, $l[$i])
135	138
136	139		func 2 ($a,$i) = if (($i >= $s))
137	140		then $a
138	141		else throw("List size exceeds 4")
139	142
140	143		2(1(1(1(1($acc0, 0), 1), 2), 3), 4)
141	144		}
142	145		let maxFeed = max(feedLastLaps)
143	146		let totalReward = {
144	147		let $l = rewards
145	148		let $s = size($l)
146	149		let $acc0 = 0
147	150		func 1 ($a,$i) = if (($i >= $s))
148	151		then $a
149	152		else sum($a, $l[$i])
150	153
151	154		func 2 ($a,$i) = if (($i >= $s))
152	155		then $a
153	156		else throw("List size exceeds 4")
154	157
155	158		2(1(1(1(1($acc0, 0), 1), 2), 3), 4)
156	159		}
157	160		(totalReward - maxFeed)
158	161		}
159	162		}
160	163
161	164
162	165		func getBackendProof (laps,rewards,address) = {
163	166		func IntListToByteVector (acc,item) = (acc + item)
164	167
165	168		let lapsStringPart = {
166	169		let $l = laps
167	170		let $s = size($l)
168	171		let $acc0 = ""
169	172		func 1 ($a,$i) = if (($i >= $s))
170	173		then $a
171	174		else IntListToByteVector($a, $l[$i])
172	175
173	176		func 2 ($a,$i) = if (($i >= $s))
174	177		then $a
175	178		else throw("List size exceeds 10")
176	179
177	180		2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
178	181		}
179	182		let rewardsStringPart = {
180	183		let $l = rewards
181	184		let $s = size($l)
182	185		let $acc0 = ""
183	186		func 1 ($a,$i) = if (($i >= $s))
184	187		then $a
185	188		else IntListToByteVector($a, $l[$i])
186	189
187	190		func 2 ($a,$i) = if (($i >= $s))
188	191		then $a
189	192		else throw("List size exceeds 10")
190	193
191	194		2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
192	195		}
193	196		((lapsStringPart + rewardsStringPart) + address)
194	197		}
195	198
196	199
197	200		@Callable(i)
198	201		func issueFreeDuckling (address,txIdStr) = {
199	202		let asset = Issue("BABY-11111111-GZ", "", 1, 0, false, unit, height)
200	203		let assetId = calculateAssetId(asset)
201	204		$Tuple2([StringEntry((((address + "_") + txIdStr) + "_di"), toBase58String(assetId)), IntegerEntry("stats_amount", (tryGetInteger("stats_amount") + 1)), BooleanEntry((("duckling_" + toBase58String(assetId)) + "_issuedByFeedCall"), (i.caller == this)), asset, ScriptTransfer(value(addressFromString(address)), 1, assetId)], toBase58String(assetId))
202	205		}
203	206
204	207
205	208
206	209		@Callable(i)
207	210		func feedDuckling (ducklingId,backendSignature,lapsList,rewardsList) = {
208	211		let addressString = toString(i.caller)
209	212		let laps = value(split(lapsList, ","))
210	213		let rewards = value(split(rewardsList, ","))
211	214		let backendProof = getBackendProof(laps, rewards, addressString)
212	215		let realDucklingId = if (!(sigVerify_8Kb(toBytes(backendProof), fromBase58String(backendSignature), backendPubKey)))
213	216		then throw("Invalid proof from backend")
214	217		else if (if ((size(i.payments) != 1))
215	218		then true
216	219		else (value(i.payments[0]).assetId != EGGASSETID))
217	220		then throw("Bad payment attached (asset[s] or amount)")
218	221		else if ((ducklingId == ""))
219	222		then {
220	223		let ducklingAssetId = invoke(this, "issueFreeDuckling", [toString(i.originCaller), toBase58String(i.transactionId)], nil)
221	224		if ((ducklingAssetId == ducklingAssetId))
222	225		then {
223	226		let id = match ducklingAssetId {
224	227		case v: String =>
225	228		v
226	229		case _ =>
227	230		throw("Can't generate NFT")
228	231		}
229	232		id
230	233		}
231	234		else throw("Strict value is not equal to itself.")
232	235		}
233	236		else {
234	237		let ducklingIdCheck = value(assetInfo(fromBase58String(ducklingId)))
235	238		if ((assetBalance(i.caller, ducklingIdCheck.id) != 1))
236	239		then throw("You're not the owner of the duckling")
237	240		else if ((ducklingIdCheck.issuer != this))
238	241		then throw("Cant find duckling with such id")
239	242		else {
240	243		let ducklingIdString = toBase58String(ducklingIdCheck.id)
241	244		ducklingIdString
242	245		}
243	246		}
244	247		let intLaps = stringListToIntList(laps)
245	248		let intRewards = stringListToIntList(rewards)
246	249		let maxFeedAmount = getMaxFeedAmount(intLaps, intRewards, toString(i.caller))
247	250		let kDucklingFedLap = keyDucklingFedLap(realDucklingId)
248	251		let lastFedLap = tryGetInteger(kDucklingFedLap)
249	252		let currentPayment = value(i.payments[0]).amount
250	253		let kNewLevel = keyDucklingLevel(realDucklingId)
251	254		let kTotalFeed = keyTotalFeed(realDucklingId)
252	255		let totalFeed = tryGetInteger(kTotalFeed)
253	256		let feedTxStats = ((("duckling_" + realDucklingId) + "_stat_") + toString(lastBlock.timestamp))
254	257		if ((currentPayment > maxFeedAmount))
255	258		then throw(("Cannot feed duckling for such amount, max feed amount is: " + toString(maxFeedAmount)))
256	259		else [IntegerEntry(kDucklingFedLap, getCurrentLap()), IntegerEntry(keyFeedForLap(addressString, intLaps[0]), (getFeedByLap(addressString, intLaps[0]) + currentPayment)), IntegerEntry(keyFeedForLap(addressString, intLaps[1]), (getFeedByLap(addressString, intLaps[1]) + currentPayment)), IntegerEntry(keyFeedForLap(addressString, intLaps[2]), (getFeedByLap(addressString, intLaps[2]) + currentPayment)), IntegerEntry(keyFeedForLap(addressString, intLaps[3]), (getFeedByLap(addressString, intLaps[3]) + currentPayment)), IntegerEntry(kTotalFeed, (totalFeed + currentPayment)), IntegerEntry(feedTxStats, currentPayment), StringEntry(kNewLevel, calculateNewDucklingLevel(realDucklingId, currentPayment))]
257	260		}
258	261
259	262
260	263
261	264		@Callable(i)
262	265		func fixLevels (ducklingIds) = if ((i.callerPublicKey != base58'GDxBbsDRmeY39quNrDsTXKJzFWbQVtjxHseF4ikxZ7n9'))
263	266		then throw("")
264	267		else {
265	268		let ducklingIdsList = value(split(ducklingIds, ","))
266	269		func handleId (acc,id) = {
267	270		let kTotalFeed = keyTotalFeed(id)
268	271		let totalFeed = tryGetInteger(kTotalFeed)
269	272		let kNewLevel = keyDucklingLevel(id)
270	273		let startingLevel = match getBoolean((("duckling_" + id) + "_issuedByFeedCall")) {
271	274		case b: Boolean =>
272	275		toBigInt(0)
273	276		case _ =>
274	277		toBigInt((20 * existingDuckPrecision))
275	278		}
276	279		let growth = fraction(toBigInt(totalFeed), toBigInt(percentGrowthPrecision), toBigInt(DUCKLINGPRICE))
277	280		(acc ++ [StringEntry(kNewLevel, toString((startingLevel + growth)))])
278	281		}
279	282
280	283		let $l = ducklingIdsList
281	284		let $s = size($l)
282	285		let $acc0 = nil
283	286		func 1 ($a,$i) = if (($i >= $s))
284	287		then $a
285	288		else handleId($a, $l[$i])
286	289
287	290		func 2 ($a,$i) = if (($i >= $s))
288	291		then $a
289	292		else throw("List size exceeds 20")
290	293
291	294		2(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
292	295		}
293	296
294	297
295	298
296	299		@Callable(i)
297	300		func turnDucklingIntoDuck () = throw("Not implemented yet")
298	301
299	302
300	303		@Verifier(tx)
301	304		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
302	305

github/deemru/w8io/873ac7e 
54.81 ms ◑