w8 · tx · H57···kr7

tx · H57GaSdSYQtgn64xyBhhs2oJDQzACib3h3sMaYLRJkr7

3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX:  -0.01400000 Waves

2021.11.06 01:21 [2843311] smart account 3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "H57GaSdSYQtgn64xyBhhs2oJDQzACib3h3sMaYLRJkr7",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1636150937666,
    "version": 2,
    "chainId": 87,
    "sender": "3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX",
    "senderPublicKey": "27DK15MykfnsVojpifD1gbr8kRr8rpY5mw6EH4zL8R25",
    "proofs": [
        "5J1zaQH3veMdp4z3aMMtA9fJ3q29MiNwMBRvANRZG5jKCCETCPzxgHhUnr4Y9jvQhfK56SBRzawGDx2g3SLHdq7i"
    ],
    "script": "base64:AAIFAAAAAAAAABcIAhIECgIICBIGCgQICAgIEgMKAQgSAAAAABUAAAAADnJlYmlydGhBZGRyZXNzAQAAABoBV77gXMO2d4wGjuLkExhlLurfLnCfMI8m+QAAAAANYmFja2VuZFB1YktleQEAAAAgoDCy4rCf80EEjcXf21TkTT+MhYwNT/IrVrGQdfl53jUAAAAADlNUQVJUVElNRVNUQU1QAAAAAXwXCGqAAAAAAAlMQVBMRU5HVEgAAAAAAAFJlwAAAAAACkVHR0FTU0VUSUQBAAAAICtTDrWdbDF7t72xZXSxXVgd01rh9iszfRBluzscWJ6oAAAAAA1EVUNLTElOR1BSSUNFAAAAAAAExLQAAAAAABZwZXJjZW50R3Jvd3RoUHJlY2lzaW9uAAAjhvJvwQAAAAAAABVleGlzdGluZ0R1Y2tQcmVjaXNpb24AAABa8xB6QAABAAAADGtleVRvdGFsRmVlZAAAAAEAAAAKZHVja2xpbmdJZAkAASwAAAACCQABLAAAAAICAAAACWR1Y2tsaW5nXwUAAAAKZHVja2xpbmdJZAIAAAAFX2ZlZWQBAAAAEWtleUR1Y2tsaW5nRmVkTGFwAAAAAQAAAApkdWNrbGluZ0lkCQABLAAAAAIJAAEsAAAAAgIAAAAJZHVja2xpbmdfBQAAAApkdWNrbGluZ0lkAgAAAAdfZmVkTGFwAQAAABBrZXlEdWNrbGluZ0xldmVsAAAAAQAAAApkdWNrbGluZ0lkCQABLAAAAAIJAAEsAAAAAgIAAAAJZHVja2xpbmdfBQAAAApkdWNrbGluZ0lkAgAAAAZfbGV2ZWwBAAAADWtleUZlZWRGb3JMYXAAAAACAAAAB2FkZHJlc3MAAAADbGFwCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACGFkZHJlc3NfBQAAAAdhZGRyZXNzAgAAAAVfbGFwXwkAAaQAAAABBQAAAANsYXACAAAABV9mZWVkAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQAAAANrZXkEAAAAA3ZhbAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYgUAAAAHJG1hdGNoMAUAAAABYgAAAAAAAAAAAAUAAAADdmFsAQAAAAdnZXRCb29sAAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQbAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAdCb29sZWFuBAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiBQAAAAR1bml0AQAAABVnZXRDdXJyZW50TGV2ZWxCaWdJbnQAAAABAAAACmR1Y2tsaW5nSWQEAAAACmtEdWNrTGV2ZWwJAQAAABBrZXlEdWNrbGluZ0xldmVsAAAAAQUAAAAKZHVja2xpbmdJZAQAAAAHJG1hdGNoMAkABCIAAAABBQAAAAprRHVja0xldmVsAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXMFAAAAByRtYXRjaDAJAAGnAAAAAQUAAAABcwQAAAAHJG1hdGNoMQkABCAAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAJZHVja2xpbmdfBQAAAApkdWNrbGluZ0lkAgAAABFfaXNzdWVkQnlGZWVkQ2FsbAMJAAABAAAAAgUAAAAHJG1hdGNoMQIAAAAHQm9vbGVhbgQAAAABYgUAAAAHJG1hdGNoMQkAATYAAAABAAAAAAAAAAAACQABNgAAAAEJAABoAAAAAgAAAAAAAAAAFAUAAAAVZXhpc3RpbmdEdWNrUHJlY2lzaW9uAQAAAA1nZXRDdXJyZW50TGFwAAAAAAkAAGQAAAACCQAAaQAAAAIJAABlAAAAAggFAAAACWxhc3RCbG9jawAAAAl0aW1lc3RhbXAFAAAADlNUQVJUVElNRVNUQU1QBQAAAAlMQVBMRU5HVEgAAAAAAAAAAAEBAAAAGWNhbGN1bGF0ZU5ld0R1Y2tsaW5nTGV2ZWwAAAACAAAACmR1Y2tsaW5nSWQAAAANcGF5bWVudEFtb3VudAQAAAAHa0ZlZExhcAkBAAAAEWtleUR1Y2tsaW5nRmVkTGFwAAAAAQUAAAAKZHVja2xpbmdJZAQAAAAQbGFzdEZlZExhcE51bWJlcgkBAAAADXRyeUdldEludGVnZXIAAAABBQAAAAdrRmVkTGFwBAAAAApjdXJyZW50bGFwCQEAAAANZ2V0Q3VycmVudExhcAAAAAAEAAAAB3BlbmFsdHkDCQAAAAAAAAIFAAAAEGxhc3RGZWRMYXBOdW1iZXIAAAAAAAAAAAAJAAE2AAAAAQAAAAAAAAAAAAkAATkAAAACCQABNgAAAAEJAABpAAAAAgkAAGUAAAACCQAAZQAAAAIFAAAACmN1cnJlbnRsYXAFAAAAEGxhc3RGZWRMYXBOdW1iZXIAAAAAAAAAAAEAAAAAAAAAAAQJAAE2AAAAAQUAAAAVZXhpc3RpbmdEdWNrUHJlY2lzaW9uBAAAAAZncm93dGgJAAE8AAAAAwkAATYAAAABBQAAAA1wYXltZW50QW1vdW50CQABNgAAAAEFAAAAFnBlcmNlbnRHcm93dGhQcmVjaXNpb24JAAE2AAAAAQUAAAANRFVDS0xJTkdQUklDRQMJAAAAAAAAAgYGCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACUN1cnJlbnQ6IAkAAaYAAAABCQEAAAAVZ2V0Q3VycmVudExldmVsQmlnSW50AAAAAQUAAAAKZHVja2xpbmdJZAIAAAAGIFBlbjogCQABpgAAAAEFAAAAB3BlbmFsdHkCAAAACiwgZ3Jvd3RoOiAJAAGmAAAAAQUAAAAGZ3Jvd3RoAgAAAA4sIGN1cnJlbnRsYXA6IAkAAaQAAAABBQAAAApjdXJyZW50bGFwAgAAABMgbGFzdEZlZExhcE51bWJlcjogCQABpAAAAAEFAAAAEGxhc3RGZWRMYXBOdW1iZXIEAAAACG5ld0xldmVsCQABNwAAAAIJAAE4AAAAAgkBAAAAFWdldEN1cnJlbnRMZXZlbEJpZ0ludAAAAAEFAAAACmR1Y2tsaW5nSWQFAAAAB3BlbmFsdHkFAAAABmdyb3d0aAMJAAE/AAAAAgkAATYAAAABAAAAAAAAAAAABQAAAAhuZXdMZXZlbAkAAaYAAAABBQAAAAZncm93dGgJAAGmAAAAAQUAAAAIbmV3TGV2ZWwBAAAADGdldEZlZWRCeUxhcAAAAAIAAAAHYWRkcmVzcwAAAANsYXAEAAAAC2tGZWVkRm9yTGFwCQEAAAANa2V5RmVlZEZvckxhcAAAAAIFAAAAB2FkZHJlc3MFAAAAA2xhcAkBAAAADXRyeUdldEludGVnZXIAAAABBQAAAAtrRmVlZEZvckxhcAEAAAATc3RyaW5nTGlzdFRvSW50TGlzdAAAAAEAAAAEbGlzdAoBAAAABnBhcnNlcgAAAAIAAAADYWNjAAAAA3ZhbAkABE4AAAACBQAAAANhY2MJAARMAAAAAgkBAAAABXZhbHVlAAAAAQkABLYAAAABBQAAAAN2YWwFAAAAA25pbAoAAAAAAiRsBQAAAARsaXN0CgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAABMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAAZwYXJzZXIAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAEyAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAAATIAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAQAAABBnZXRNYXhGZWVkQW1vdW50AAAAAwAAAARsYXBzAAAAB3Jld2FyZHMAAAAHYWRkcmVzcwQAAAAKY3VycmVudExhcAkBAAAADWdldEN1cnJlbnRMYXAAAAAAAwMDAwkBAAAAAiE9AAAAAgkAAZEAAAACBQAAAARsYXBzAAAAAAAAAAADCQAAZQAAAAIFAAAACmN1cnJlbnRMYXAAAAAAAAAAAAEGCQEAAAACIT0AAAACCQABkQAAAAIFAAAABGxhcHMAAAAAAAAAAAIJAABlAAAAAgUAAAAKY3VycmVudExhcAAAAAAAAAAAAgYJAQAAAAIhPQAAAAIJAAGRAAAAAgUAAAAEbGFwcwAAAAAAAAAAAQkAAGUAAAACBQAAAApjdXJyZW50TGFwAAAAAAAAAAADBgkBAAAAAiE9AAAAAgkAAZEAAAACBQAAAARsYXBzAAAAAAAAAAAACQAAZQAAAAIFAAAACmN1cnJlbnRMYXAAAAAAAAAAAAQJAAACAAAAAQIAAAAWT3V0ZGF0ZWQgZGF0YSBmb3IgbGFwcwoBAAAADWdldEZlZWRGb3JMYXAAAAACAAAAA2FjYwAAAANsYXAJAARNAAAAAgUAAAADYWNjCQEAAAAMZ2V0RmVlZEJ5TGFwAAAAAgUAAAAHYWRkcmVzcwUAAAADbGFwCgEAAAADc3VtAAAAAgAAAANhY2MAAAAGcmV3YXJkCQAAZAAAAAIFAAAAA2FjYwUAAAAGcmV3YXJkBAAAAAxmZWVkTGFzdExhcHMKAAAAAAIkbAUAAAAEbGFwcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAANZ2V0RmVlZEZvckxhcAAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAAATIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAE0xpc3Qgc2l6ZSBleGNlZWRzIDQJAQAAAAEyAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAQAAAAHbWF4RmVlZAkAAZYAAAABBQAAAAxmZWVkTGFzdExhcHMEAAAAC3RvdGFsUmV3YXJkCgAAAAACJGwFAAAAB3Jld2FyZHMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwAAAAAAAAAAAACgEAAAABMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAANzdW0AAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAEyAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA0CQEAAAABMgAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQJAABlAAAAAgUAAAALdG90YWxSZXdhcmQFAAAAB21heEZlZWQBAAAAD2dldEJhY2tlbmRQcm9vZgAAAAMAAAAEbGFwcwAAAAdyZXdhcmRzAAAAB2FkZHJlc3MKAQAAABNJbnRMaXN0VG9CeXRlVmVjdG9yAAAAAgAAAANhY2MAAAAEaXRlbQkAASwAAAACBQAAAANhY2MFAAAABGl0ZW0EAAAADmxhcHNTdHJpbmdQYXJ0CgAAAAACJGwFAAAABGxhcHMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwAgAAAAAKAQAAAAExAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAE0ludExpc3RUb0J5dGVWZWN0b3IAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAEyAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAAATIAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKBAAAABFyZXdhcmRzU3RyaW5nUGFydAoAAAAAAiRsBQAAAAdyZXdhcmRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAIAAAAACgEAAAABMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAABNJbnRMaXN0VG9CeXRlVmVjdG9yAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAABMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAEyAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgkAASwAAAACCQABLAAAAAIFAAAADmxhcHNTdHJpbmdQYXJ0BQAAABFyZXdhcmRzU3RyaW5nUGFydAUAAAAHYWRkcmVzcwAAAAQAAAABaQEAAAARaXNzdWVGcmVlRHVja2xpbmcAAAACAAAAB2FkZHJlc3MAAAAHdHhJZFN0cgQAAAAFYXNzZXQJAARDAAAABwIAAAAQQkFCWS0xMTExMTExMS1HWgIAAAAAAAAAAAAAAAABAAAAAAAAAAAABwUAAAAEdW5pdAUAAAAGaGVpZ2h0BAAAAAdhc3NldElkCQAEOAAAAAEFAAAABWFzc2V0CQAFFAAAAAIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAHYWRkcmVzcwIAAAABXwUAAAAHdHhJZFN0cgIAAAADX2RpCQACWAAAAAEFAAAAB2Fzc2V0SWQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADHN0YXRzX2Ftb3VudAkAAGQAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAADHN0YXRzX2Ftb3VudAAAAAAAAAAAAQkABEwAAAACCQEAAAAMQm9vbGVhbkVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAACWR1Y2tsaW5nXwkAAlgAAAABBQAAAAdhc3NldElkAgAAABFfaXNzdWVkQnlGZWVkQ2FsbAkAAAAAAAACCAUAAAABaQAAAAZjYWxsZXIFAAAABHRoaXMJAARMAAAAAgUAAAAFYXNzZXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAABXZhbHVlAAAAAQkABCYAAAABBQAAAAdhZGRyZXNzAAAAAAAAAAABBQAAAAdhc3NldElkBQAAAANuaWwJAAJYAAAAAQUAAAAHYXNzZXRJZAAAAAFpAQAAAAxmZWVkRHVja2xpbmcAAAAEAAAACmR1Y2tsaW5nSWQAAAAQYmFja2VuZFNpZ25hdHVyZQAAAAhsYXBzTGlzdAAAAAtyZXdhcmRzTGlzdAQAAAANYWRkcmVzc1N0cmluZwkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIEAAAABGxhcHMJAQAAAAV2YWx1ZQAAAAEJAAS1AAAAAgUAAAAIbGFwc0xpc3QCAAAAASwEAAAAB3Jld2FyZHMJAQAAAAV2YWx1ZQAAAAEJAAS1AAAAAgUAAAALcmV3YXJkc0xpc3QCAAAAASwEAAAADGJhY2tlbmRQcm9vZgkBAAAAD2dldEJhY2tlbmRQcm9vZgAAAAMFAAAABGxhcHMFAAAAB3Jld2FyZHMFAAAADWFkZHJlc3NTdHJpbmcEAAAADnJlYWxEdWNrbGluZ0lkAwkBAAAAASEAAAABCQAJxAAAAAMJAAGbAAAAAQUAAAAMYmFja2VuZFByb29mCQACWQAAAAEFAAAAEGJhY2tlbmRTaWduYXR1cmUFAAAADWJhY2tlbmRQdWJLZXkJAAACAAAAAQIAAAAaSW52YWxpZCBwcm9vZiBmcm9tIGJhY2tlbmQDAwkBAAAAAiE9AAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQYJAQAAAAIhPQAAAAIICQEAAAAFdmFsdWUAAAABCQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQFAAAACkVHR0FTU0VUSUQJAAACAAAAAQIAAAApQmFkIHBheW1lbnQgYXR0YWNoZWQgKGFzc2V0W3NdIG9yIGFtb3VudCkDCQAAAAAAAAIFAAAACmR1Y2tsaW5nSWQCAAAAAAQAAAAPZHVja2xpbmdBc3NldElkCQAD/AAAAAQFAAAABHRoaXMCAAAAEWlzc3VlRnJlZUR1Y2tsaW5nCQAETAAAAAIJAAQlAAAAAQgFAAAAAWkAAAAMb3JpZ2luQ2FsbGVyCQAETAAAAAIJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAUAAAADbmlsBQAAAANuaWwDCQAAAAAAAAIFAAAAD2R1Y2tsaW5nQXNzZXRJZAUAAAAPZHVja2xpbmdBc3NldElkBAAAAAJpZAQAAAAHJG1hdGNoMAUAAAAPZHVja2xpbmdBc3NldElkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXYFAAAAByRtYXRjaDAFAAAAAXYJAAACAAAAAQIAAAASQ2FuJ3QgZ2VuZXJhdGUgTkZUBQAAAAJpZAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EAAAAD2R1Y2tsaW5nSWRDaGVjawkBAAAABXZhbHVlAAAAAQkAA+wAAAABCQACWQAAAAEFAAAACmR1Y2tsaW5nSWQDCQEAAAACIT0AAAACCQAD8AAAAAIIBQAAAAFpAAAABmNhbGxlcggFAAAAD2R1Y2tsaW5nSWRDaGVjawAAAAJpZAAAAAAAAAAAAQkAAAIAAAABAgAAACRZb3UncmUgbm90IHRoZSBvd25lciBvZiB0aGUgZHVja2xpbmcDCQEAAAACIT0AAAACCAUAAAAPZHVja2xpbmdJZENoZWNrAAAABmlzc3VlcgUAAAAEdGhpcwkAAAIAAAABAgAAAB9DYW50IGZpbmQgZHVja2xpbmcgd2l0aCBzdWNoIGlkBAAAABBkdWNrbGluZ0lkU3RyaW5nCQACWAAAAAEIBQAAAA9kdWNrbGluZ0lkQ2hlY2sAAAACaWQFAAAAEGR1Y2tsaW5nSWRTdHJpbmcEAAAAB2ludExhcHMJAQAAABNzdHJpbmdMaXN0VG9JbnRMaXN0AAAAAQUAAAAEbGFwcwQAAAAKaW50UmV3YXJkcwkBAAAAE3N0cmluZ0xpc3RUb0ludExpc3QAAAABBQAAAAdyZXdhcmRzBAAAAA1tYXhGZWVkQW1vdW50CQEAAAAQZ2V0TWF4RmVlZEFtb3VudAAAAAMFAAAAB2ludExhcHMFAAAACmludFJld2FyZHMJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBAAAAA9rRHVja2xpbmdGZWRMYXAJAQAAABFrZXlEdWNrbGluZ0ZlZExhcAAAAAEFAAAADnJlYWxEdWNrbGluZ0lkBAAAAApsYXN0RmVkTGFwCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEFAAAAD2tEdWNrbGluZ0ZlZExhcAQAAAAOY3VycmVudFBheW1lbnQICQEAAAAFdmFsdWUAAAABCQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAQAAAAJa05ld0xldmVsCQEAAAAQa2V5RHVja2xpbmdMZXZlbAAAAAEFAAAADnJlYWxEdWNrbGluZ0lkBAAAAAprVG90YWxGZWVkCQEAAAAMa2V5VG90YWxGZWVkAAAAAQUAAAAOcmVhbER1Y2tsaW5nSWQEAAAACXRvdGFsRmVlZAkBAAAADXRyeUdldEludGVnZXIAAAABBQAAAAprVG90YWxGZWVkBAAAAAtmZWVkVHhTdGF0cwkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAJZHVja2xpbmdfBQAAAA5yZWFsRHVja2xpbmdJZAIAAAAGX3N0YXRfCQABpAAAAAEIBQAAAAlsYXN0QmxvY2sAAAAJdGltZXN0YW1wAwkAAGYAAAACBQAAAA5jdXJyZW50UGF5bWVudAUAAAANbWF4RmVlZEFtb3VudAkAAAIAAAABCQABLAAAAAICAAAAOkNhbm5vdCBmZWVkIGR1Y2tsaW5nIGZvciBzdWNoIGFtb3VudCwgbWF4IGZlZWQgYW1vdW50IGlzOiAJAAGkAAAAAQUAAAANbWF4RmVlZEFtb3VudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAPa0R1Y2tsaW5nRmVkTGFwCQEAAAANZ2V0Q3VycmVudExhcAAAAAAJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAA1rZXlGZWVkRm9yTGFwAAAAAgUAAAANYWRkcmVzc1N0cmluZwkAAZEAAAACBQAAAAdpbnRMYXBzAAAAAAAAAAAACQAAZAAAAAIJAQAAAAxnZXRGZWVkQnlMYXAAAAACBQAAAA1hZGRyZXNzU3RyaW5nCQABkQAAAAIFAAAAB2ludExhcHMAAAAAAAAAAAAFAAAADmN1cnJlbnRQYXltZW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAANa2V5RmVlZEZvckxhcAAAAAIFAAAADWFkZHJlc3NTdHJpbmcJAAGRAAAAAgUAAAAHaW50TGFwcwAAAAAAAAAAAQkAAGQAAAACCQEAAAAMZ2V0RmVlZEJ5TGFwAAAAAgUAAAANYWRkcmVzc1N0cmluZwkAAZEAAAACBQAAAAdpbnRMYXBzAAAAAAAAAAABBQAAAA5jdXJyZW50UGF5bWVudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAADWtleUZlZWRGb3JMYXAAAAACBQAAAA1hZGRyZXNzU3RyaW5nCQABkQAAAAIFAAAAB2ludExhcHMAAAAAAAAAAAIJAABkAAAAAgkBAAAADGdldEZlZWRCeUxhcAAAAAIFAAAADWFkZHJlc3NTdHJpbmcJAAGRAAAAAgUAAAAHaW50TGFwcwAAAAAAAAAAAgUAAAAOY3VycmVudFBheW1lbnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAA1rZXlGZWVkRm9yTGFwAAAAAgUAAAANYWRkcmVzc1N0cmluZwkAAZEAAAACBQAAAAdpbnRMYXBzAAAAAAAAAAADCQAAZAAAAAIJAQAAAAxnZXRGZWVkQnlMYXAAAAACBQAAAA1hZGRyZXNzU3RyaW5nCQABkQAAAAIFAAAAB2ludExhcHMAAAAAAAAAAAMFAAAADmN1cnJlbnRQYXltZW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAAprVG90YWxGZWVkCQAAZAAAAAIFAAAACXRvdGFsRmVlZAUAAAAOY3VycmVudFBheW1lbnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAC2ZlZWRUeFN0YXRzBQAAAA5jdXJyZW50UGF5bWVudAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAAlrTmV3TGV2ZWwJAQAAABljYWxjdWxhdGVOZXdEdWNrbGluZ0xldmVsAAAAAgUAAAAOcmVhbER1Y2tsaW5nSWQFAAAADmN1cnJlbnRQYXltZW50BQAAAANuaWwAAAABaQEAAAAJZml4TGV2ZWxzAAAAAQAAAAtkdWNrbGluZ0lkcwMJAQAAAAIhPQAAAAIIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQEAAAAg4jCrQaSaRY9uaPb/iI1dy/xcgsAiOBaUksF2pAJAViIJAAACAAAAAQIAAAAABAAAAA9kdWNrbGluZ0lkc0xpc3QJAQAAAAV2YWx1ZQAAAAEJAAS1AAAAAgUAAAALZHVja2xpbmdJZHMCAAAAASwKAQAAAAhoYW5kbGVJZAAAAAIAAAADYWNjAAAAAmlkBAAAAAprVG90YWxGZWVkCQEAAAAMa2V5VG90YWxGZWVkAAAAAQUAAAACaWQEAAAACXRvdGFsRmVlZAkBAAAADXRyeUdldEludGVnZXIAAAABBQAAAAprVG90YWxGZWVkBAAAAAlrTmV3TGV2ZWwJAQAAABBrZXlEdWNrbGluZ0xldmVsAAAAAQUAAAACaWQEAAAADXN0YXJ0aW5nTGV2ZWwEAAAAByRtYXRjaDAJAAQgAAAAAQkAASwAAAACCQABLAAAAAICAAAACWR1Y2tsaW5nXwUAAAACaWQCAAAAEV9pc3N1ZWRCeUZlZWRDYWxsAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAdCb29sZWFuBAAAAAFiBQAAAAckbWF0Y2gwCQABNgAAAAEAAAAAAAAAAAAJAAE2AAAAAQkAAGgAAAACAAAAAAAAAAAUBQAAABVleGlzdGluZ0R1Y2tQcmVjaXNpb24EAAAABmdyb3d0aAkAATwAAAADCQABNgAAAAEFAAAACXRvdGFsRmVlZAkAATYAAAABBQAAABZwZXJjZW50R3Jvd3RoUHJlY2lzaW9uCQABNgAAAAEFAAAADURVQ0tMSU5HUFJJQ0UJAAROAAAAAgUAAAADYWNjCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIFAAAACWtOZXdMZXZlbAkAAaYAAAABCQABNwAAAAIFAAAADXN0YXJ0aW5nTGV2ZWwFAAAABmdyb3d0aAUAAAADbmlsCgAAAAACJGwFAAAAD2R1Y2tsaW5nSWRzTGlzdAoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAIaGFuZGxlSWQAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAEyAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAyMAkBAAAAATIAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoAAAAAAAAAAAsAAAAAAAAAAAwAAAAAAAAAAA0AAAAAAAAAAA4AAAAAAAAAAA8AAAAAAAAAABAAAAAAAAAAABEAAAAAAAAAABIAAAAAAAAAABMAAAAAAAAAABQAAAABaQEAAAAUdHVybkR1Y2tsaW5nSW50b0R1Y2sAAAAACQAAAgAAAAECAAAAE05vdCBpbXBsZW1lbnRlZCB5ZXQAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAACQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleQudlxk=",
    "height": 2843311,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8tYB7BY1F5AEP3H14cPigS7JrEfGunrGqnhZyUmYixi4
Next: 9NvQUNr7JXtcjJ8YMXtG1TPK9JiJgq6YhLnmbEj5fKna

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

Old	New		Differences
76	76		else (toBigInt((((currentlap - lastFedLapNumber) - 1) / 4)) * toBigInt(existingDuckPrecision))
77	77		let growth = fraction(toBigInt(paymentAmount), toBigInt(percentGrowthPrecision), toBigInt(DUCKLINGPRICE))
78	78		if ((true == true))
79		-	then throw(((((("Current: " + toString(getCurrentLevelBigInt(ducklingId))) + " Pen: ") + toString(penalty)) + ", growth: ") + toString(growth)))
	79	+	then throw(((((((((("Current: " + toString(getCurrentLevelBigInt(ducklingId))) + " Pen: ") + toString(penalty)) + ", growth: ") + toString(growth)) + ", currentlap: ") + toString(currentlap)) + " lastFedLapNumber: ") + toString(lastFedLapNumber)))
80	80		else {
81	81		let newLevel = ((getCurrentLevelBigInt(ducklingId) - penalty) + growth)
82	82		if ((toBigInt(0) > newLevel))

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	74		let penalty = if ((lastFedLapNumber == 0))
75	75		then toBigInt(0)
76	76		else (toBigInt((((currentlap - lastFedLapNumber) - 1) / 4)) * toBigInt(existingDuckPrecision))
77	77		let growth = fraction(toBigInt(paymentAmount), toBigInt(percentGrowthPrecision), toBigInt(DUCKLINGPRICE))
78	78		if ((true == true))
79		-	then throw(((((("Current: " + toString(getCurrentLevelBigInt(ducklingId))) + " Pen: ") + toString(penalty)) + ", growth: ") + toString(growth)))
	79	+	then throw(((((((((("Current: " + toString(getCurrentLevelBigInt(ducklingId))) + " Pen: ") + toString(penalty)) + ", growth: ") + toString(growth)) + ", currentlap: ") + toString(currentlap)) + " lastFedLapNumber: ") + toString(lastFedLapNumber)))
80	80		else {
81	81		let newLevel = ((getCurrentLevelBigInt(ducklingId) - penalty) + growth)
82	82		if ((toBigInt(0) > newLevel))
83	83		then toString(growth)
84	84		else toString(newLevel)
85	85		}
86	86		}
87	87
88	88
89	89		func getFeedByLap (address,lap) = {
90	90		let kFeedForLap = keyFeedForLap(address, lap)
91	91		tryGetInteger(kFeedForLap)
92	92		}
93	93
94	94
95	95		func stringListToIntList (list) = {
96	96		func parser (acc,val) = (acc ++ [value(parseInt(val))])
97	97
98	98		let $l = list
99	99		let $s = size($l)
100	100		let $acc0 = nil
101	101		func 1 ($a,$i) = if (($i >= $s))
102	102		then $a
103	103		else parser($a, $l[$i])
104	104
105	105		func 2 ($a,$i) = if (($i >= $s))
106	106		then $a
107	107		else throw("List size exceeds 10")
108	108
109	109		2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
110	110		}
111	111
112	112
113	113		func getMaxFeedAmount (laps,rewards,address) = {
114	114		let currentLap = getCurrentLap()
115	115		if (if (if (if ((laps[3] != (currentLap - 1)))
116	116		then true
117	117		else (laps[2] != (currentLap - 2)))
118	118		then true
119	119		else (laps[1] != (currentLap - 3)))
120	120		then true
121	121		else (laps[0] != (currentLap - 4)))
122	122		then throw("Outdated data for laps")
123	123		else {
124	124		func getFeedForLap (acc,lap) = (acc :+ getFeedByLap(address, lap))
125	125
126	126		func sum (acc,reward) = (acc + reward)
127	127
128	128		let feedLastLaps = {
129	129		let $l = laps
130	130		let $s = size($l)
131	131		let $acc0 = nil
132	132		func 1 ($a,$i) = if (($i >= $s))
133	133		then $a
134	134		else getFeedForLap($a, $l[$i])
135	135
136	136		func 2 ($a,$i) = if (($i >= $s))
137	137		then $a
138	138		else throw("List size exceeds 4")
139	139
140	140		2(1(1(1(1($acc0, 0), 1), 2), 3), 4)
141	141		}
142	142		let maxFeed = max(feedLastLaps)
143	143		let totalReward = {
144	144		let $l = rewards
145	145		let $s = size($l)
146	146		let $acc0 = 0
147	147		func 1 ($a,$i) = if (($i >= $s))
148	148		then $a
149	149		else sum($a, $l[$i])
150	150
151	151		func 2 ($a,$i) = if (($i >= $s))
152	152		then $a
153	153		else throw("List size exceeds 4")
154	154
155	155		2(1(1(1(1($acc0, 0), 1), 2), 3), 4)
156	156		}
157	157		(totalReward - maxFeed)
158	158		}
159	159		}
160	160
161	161
162	162		func getBackendProof (laps,rewards,address) = {
163	163		func IntListToByteVector (acc,item) = (acc + item)
164	164
165	165		let lapsStringPart = {
166	166		let $l = laps
167	167		let $s = size($l)
168	168		let $acc0 = ""
169	169		func 1 ($a,$i) = if (($i >= $s))
170	170		then $a
171	171		else IntListToByteVector($a, $l[$i])
172	172
173	173		func 2 ($a,$i) = if (($i >= $s))
174	174		then $a
175	175		else throw("List size exceeds 10")
176	176
177	177		2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
178	178		}
179	179		let rewardsStringPart = {
180	180		let $l = rewards
181	181		let $s = size($l)
182	182		let $acc0 = ""
183	183		func 1 ($a,$i) = if (($i >= $s))
184	184		then $a
185	185		else IntListToByteVector($a, $l[$i])
186	186
187	187		func 2 ($a,$i) = if (($i >= $s))
188	188		then $a
189	189		else throw("List size exceeds 10")
190	190
191	191		2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
192	192		}
193	193		((lapsStringPart + rewardsStringPart) + address)
194	194		}
195	195
196	196
197	197		@Callable(i)
198	198		func issueFreeDuckling (address,txIdStr) = {
199	199		let asset = Issue("BABY-11111111-GZ", "", 1, 0, false, unit, height)
200	200		let assetId = calculateAssetId(asset)
201	201		$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	202		}
203	203
204	204
205	205
206	206		@Callable(i)
207	207		func feedDuckling (ducklingId,backendSignature,lapsList,rewardsList) = {
208	208		let addressString = toString(i.caller)
209	209		let laps = value(split(lapsList, ","))
210	210		let rewards = value(split(rewardsList, ","))
211	211		let backendProof = getBackendProof(laps, rewards, addressString)
212	212		let realDucklingId = if (!(sigVerify_8Kb(toBytes(backendProof), fromBase58String(backendSignature), backendPubKey)))
213	213		then throw("Invalid proof from backend")
214	214		else if (if ((size(i.payments) != 1))
215	215		then true
216	216		else (value(i.payments[0]).assetId != EGGASSETID))
217	217		then throw("Bad payment attached (asset[s] or amount)")
218	218		else if ((ducklingId == ""))
219	219		then {
220	220		let ducklingAssetId = invoke(this, "issueFreeDuckling", [toString(i.originCaller), toBase58String(i.transactionId)], nil)
221	221		if ((ducklingAssetId == ducklingAssetId))
222	222		then {
223	223		let id = match ducklingAssetId {
224	224		case v: String =>
225	225		v
226	226		case _ =>
227	227		throw("Can't generate NFT")
228	228		}
229	229		id
230	230		}
231	231		else throw("Strict value is not equal to itself.")
232	232		}
233	233		else {
234	234		let ducklingIdCheck = value(assetInfo(fromBase58String(ducklingId)))
235	235		if ((assetBalance(i.caller, ducklingIdCheck.id) != 1))
236	236		then throw("You're not the owner of the duckling")
237	237		else if ((ducklingIdCheck.issuer != this))
238	238		then throw("Cant find duckling with such id")
239	239		else {
240	240		let ducklingIdString = toBase58String(ducklingIdCheck.id)
241	241		ducklingIdString
242	242		}
243	243		}
244	244		let intLaps = stringListToIntList(laps)
245	245		let intRewards = stringListToIntList(rewards)
246	246		let maxFeedAmount = getMaxFeedAmount(intLaps, intRewards, toString(i.caller))
247	247		let kDucklingFedLap = keyDucklingFedLap(realDucklingId)
248	248		let lastFedLap = tryGetInteger(kDucklingFedLap)
249	249		let currentPayment = value(i.payments[0]).amount
250	250		let kNewLevel = keyDucklingLevel(realDucklingId)
251	251		let kTotalFeed = keyTotalFeed(realDucklingId)
252	252		let totalFeed = tryGetInteger(kTotalFeed)
253	253		let feedTxStats = ((("duckling_" + realDucklingId) + "_stat_") + toString(lastBlock.timestamp))
254	254		if ((currentPayment > maxFeedAmount))
255	255		then throw(("Cannot feed duckling for such amount, max feed amount is: " + toString(maxFeedAmount)))
256	256		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	257		}
258	258
259	259
260	260
261	261		@Callable(i)
262	262		func fixLevels (ducklingIds) = if ((i.callerPublicKey != base58'GDxBbsDRmeY39quNrDsTXKJzFWbQVtjxHseF4ikxZ7n9'))
263	263		then throw("")
264	264		else {
265	265		let ducklingIdsList = value(split(ducklingIds, ","))
266	266		func handleId (acc,id) = {
267	267		let kTotalFeed = keyTotalFeed(id)
268	268		let totalFeed = tryGetInteger(kTotalFeed)
269	269		let kNewLevel = keyDucklingLevel(id)
270	270		let startingLevel = match getBoolean((("duckling_" + id) + "_issuedByFeedCall")) {
271	271		case b: Boolean =>
272	272		toBigInt(0)
273	273		case _ =>
274	274		toBigInt((20 * existingDuckPrecision))
275	275		}
276	276		let growth = fraction(toBigInt(totalFeed), toBigInt(percentGrowthPrecision), toBigInt(DUCKLINGPRICE))
277	277		(acc ++ [StringEntry(kNewLevel, toString((startingLevel + growth)))])
278	278		}
279	279
280	280		let $l = ducklingIdsList
281	281		let $s = size($l)
282	282		let $acc0 = nil
283	283		func 1 ($a,$i) = if (($i >= $s))
284	284		then $a
285	285		else handleId($a, $l[$i])
286	286
287	287		func 2 ($a,$i) = if (($i >= $s))
288	288		then $a
289	289		else throw("List size exceeds 20")
290	290
291	291		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	292		}
293	293
294	294
295	295
296	296		@Callable(i)
297	297		func turnDucklingIntoDuck () = throw("Not implemented yet")
298	298
299	299
300	300		@Verifier(tx)
301	301		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
302	302

github/deemru/w8io/3ef1775 
60.90 ms ◑