w8 · tx · BHS···jTh

tx · BHS7T3d7L8P5SGsw35KEG62RYdZ9cBoGHvzMDxH9KjTh

3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX:  -0.01400000 Waves

2021.10.28 07:46 [2830705] smart account 3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "BHS7T3d7L8P5SGsw35KEG62RYdZ9cBoGHvzMDxH9KjTh",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1635396422284,
    "version": 2,
    "chainId": 87,
    "sender": "3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX",
    "senderPublicKey": "27DK15MykfnsVojpifD1gbr8kRr8rpY5mw6EH4zL8R25",
    "proofs": [
        "2RkqqV9fshD6PtUNbQtiCMsHdZtU1MDxEqT8s5yuec9J9eiVxGodCYJppSVFhfSnFmjxgMjzsbL8uhPwagYxsWqr"
    ],
    "script": "base64:AAIFAAAAAAAAABIIAhIECgIICBIGCgQICAgIEgAAAAAUAAAAAA5yZWJpcnRoQWRkcmVzcwEAAAAaAVe+4FzDtneMBo7i5BMYZS7q3y5wnzCPJvkAAAAADWJhY2tlbmRQdWJLZXkBAAAAIKAwsuKwn/NBBI3F39tU5E0/jIWMDU/yK1axkHX5ed41AAAAAA5TVEFSVFRJTUVTVEFNUAAAAAF8FwhqgAAAAAAJTEFQTEVOR1RIAAAAAAABSZcAAAAAAApFR0dBU1NFVElEAQAAACArUw61nWwxe7e9sWV0sV1YHdNa4fYrM30QZbs7HFieqAAAAAANRFVDS0xJTkdQUklDRQAAAAAABMS0AAAAAAAWcGVyY2VudEdyb3d0aFByZWNpc2lvbgAAI4byb8EAAAEAAAAMa2V5VG90YWxGZWVkAAAAAQAAAApkdWNrbGluZ0lkCQABLAAAAAIJAAEsAAAAAgIAAAAJZHVja2xpbmdfBQAAAApkdWNrbGluZ0lkAgAAAAVfZmVlZAEAAAARa2V5RHVja2xpbmdGZWRMYXAAAAABAAAACmR1Y2tsaW5nSWQJAAEsAAAAAgkAASwAAAACAgAAAAlkdWNrbGluZ18FAAAACmR1Y2tsaW5nSWQCAAAAB19mZWRMYXABAAAAEGtleUR1Y2tsaW5nTGV2ZWwAAAABAAAACmR1Y2tsaW5nSWQJAAEsAAAAAgkAASwAAAACAgAAAAlkdWNrbGluZ18FAAAACmR1Y2tsaW5nSWQCAAAABl9sZXZlbAEAAAANa2V5RmVlZEZvckxhcAAAAAIAAAAHYWRkcmVzcwAAAANsYXAJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAIYWRkcmVzc18FAAAAB2FkZHJlc3MCAAAABV9sYXBfCQABpAAAAAEFAAAAA2xhcAIAAAAFX2ZlZWQBAAAADXRyeUdldEludGVnZXIAAAABAAAAA2tleQQAAAADdmFsBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAABQAAAAN2YWwBAAAAB2dldEJvb2wAAAABAAAAA2tleQQAAAAHJG1hdGNoMAkABBsAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAB0Jvb2xlYW4EAAAAAWIFAAAAByRtYXRjaDAFAAAAAWIFAAAABHVuaXQBAAAAFWdldEN1cnJlbnRMZXZlbEJpZ0ludAAAAAEAAAAKZHVja2xpbmdJZAQAAAAKa0R1Y2tMZXZlbAkBAAAAEGtleUR1Y2tsaW5nTGV2ZWwAAAABBQAAAApkdWNrbGluZ0lkBAAAAAckbWF0Y2gwCQAEIgAAAAEFAAAACmtEdWNrTGV2ZWwDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABcwUAAAAHJG1hdGNoMAkAAacAAAABBQAAAAFzBAAAAAckbWF0Y2gxCQAEIAAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAlkdWNrbGluZ18FAAAACmR1Y2tsaW5nSWQCAAAAEV9pc3N1ZWRCeUZlZWRDYWxsAwkAAAEAAAACBQAAAAckbWF0Y2gxAgAAAAdCb29sZWFuBAAAAAFiBQAAAAckbWF0Y2gxCQABNgAAAAEAAAAAAAAAAAAJAAE2AAAAAQACxorwuxQAAAEAAAANZ2V0Q3VycmVudExhcAAAAAAJAABkAAAAAgkAAGkAAAACCQAAZQAAAAIIBQAAAAlsYXN0QmxvY2sAAAAJdGltZXN0YW1wBQAAAA5TVEFSVFRJTUVTVEFNUAUAAAAJTEFQTEVOR1RIAAAAAAAAAAABAQAAABljYWxjdWxhdGVOZXdEdWNrbGluZ0xldmVsAAAAAgAAAApkdWNrbGluZ0lkAAAADXBheW1lbnRBbW91bnQEAAAAB2tGZWRMYXAJAQAAABFrZXlEdWNrbGluZ0ZlZExhcAAAAAEFAAAACmR1Y2tsaW5nSWQEAAAAEGxhc3RGZWRMYXBOdW1iZXIJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQUAAAAHa0ZlZExhcAQAAAAKY3VycmVudGxhcAkBAAAADWdldEN1cnJlbnRMYXAAAAAABAAAAAdwZW5hbHR5AwkAAAAAAAACBQAAABBsYXN0RmVkTGFwTnVtYmVyAAAAAAAAAAAACQABNgAAAAEAAAAAAAAAAAAJAAE5AAAAAgkAATYAAAABCQAAaQAAAAIJAABlAAAAAgUAAAAKY3VycmVudGxhcAUAAAAQbGFzdEZlZExhcE51bWJlcgAAAAAAAAAABAkAATYAAAABBQAAABZwZXJjZW50R3Jvd3RoUHJlY2lzaW9uBAAAAAZncm93dGgJAAE8AAAAAwkAATYAAAABBQAAAA1wYXltZW50QW1vdW50CQABNgAAAAEFAAAAFnBlcmNlbnRHcm93dGhQcmVjaXNpb24JAAE2AAAAAQUAAAANRFVDS0xJTkdQUklDRQkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAOY3VycmVudExldmVsOiAJAAGmAAAAAQkBAAAAFWdldEN1cnJlbnRMZXZlbEJpZ0ludAAAAAEFAAAACmR1Y2tsaW5nSWQCAAAACiBwZW5hbHR5OiAJAAGmAAAAAQUAAAAHcGVuYWx0eQIAAAAIZ3Jvd3RoOiAJAAGmAAAAAQUAAAAGZ3Jvd3RoAQAAAAxnZXRGZWVkQnlMYXAAAAACAAAAB2FkZHJlc3MAAAADbGFwBAAAAAtrRmVlZEZvckxhcAkBAAAADWtleUZlZWRGb3JMYXAAAAACBQAAAAdhZGRyZXNzBQAAAANsYXAJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQUAAAALa0ZlZWRGb3JMYXABAAAAE3N0cmluZ0xpc3RUb0ludExpc3QAAAABAAAABGxpc3QKAQAAAAZwYXJzZXIAAAACAAAAA2FjYwAAAAN2YWwJAAROAAAAAgUAAAADYWNjCQAETAAAAAIJAQAAAAV2YWx1ZQAAAAEJAAS2AAAAAQUAAAADdmFsBQAAAANuaWwKAAAAAAIkbAUAAAAEbGlzdAoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAGcGFyc2VyAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAABMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAEyAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgEAAAAQZ2V0TWF4RmVlZEFtb3VudAAAAAMAAAAEbGFwcwAAAAdyZXdhcmRzAAAAB2FkZHJlc3MEAAAACmN1cnJlbnRMYXAJAQAAAA1nZXRDdXJyZW50TGFwAAAAAAMDAwMJAQAAAAIhPQAAAAIJAAGRAAAAAgUAAAAEbGFwcwAAAAAAAAAAAwkAAGUAAAACBQAAAApjdXJyZW50TGFwAAAAAAAAAAABBgkBAAAAAiE9AAAAAgkAAZEAAAACBQAAAARsYXBzAAAAAAAAAAACCQAAZQAAAAIFAAAACmN1cnJlbnRMYXAAAAAAAAAAAAIGCQEAAAACIT0AAAACCQABkQAAAAIFAAAABGxhcHMAAAAAAAAAAAEJAABlAAAAAgUAAAAKY3VycmVudExhcAAAAAAAAAAAAwYJAQAAAAIhPQAAAAIJAAGRAAAAAgUAAAAEbGFwcwAAAAAAAAAAAAkAAGUAAAACBQAAAApjdXJyZW50TGFwAAAAAAAAAAAECQAAAgAAAAECAAAAFk91dGRhdGVkIGRhdGEgZm9yIGxhcHMKAQAAAA1nZXRGZWVkRm9yTGFwAAAAAgAAAANhY2MAAAADbGFwCQAETQAAAAIFAAAAA2FjYwkBAAAADGdldEZlZWRCeUxhcAAAAAIFAAAAB2FkZHJlc3MFAAAAA2xhcAoBAAAAA3N1bQAAAAIAAAADYWNjAAAABnJld2FyZAkAAGQAAAACBQAAAANhY2MFAAAABnJld2FyZAQAAAAMZmVlZExhc3RMYXBzCgAAAAACJGwFAAAABGxhcHMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAANuaWwKAQAAAAExAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAADWdldEZlZWRGb3JMYXAAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAEyAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA0CQEAAAABMgAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQEAAAAB21heEZlZWQJAAGWAAAAAQUAAAAMZmVlZExhc3RMYXBzBAAAAAt0b3RhbFJld2FyZAoAAAAAAiRsBQAAAAdyZXdhcmRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAAAAAAAAAAAAAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAADc3VtAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAABMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAATTGlzdCBzaXplIGV4Y2VlZHMgNAkBAAAAATIAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAECQAAZQAAAAIFAAAAC3RvdGFsUmV3YXJkBQAAAAdtYXhGZWVkAQAAAA9nZXRCYWNrZW5kUHJvb2YAAAADAAAABGxhcHMAAAAHcmV3YXJkcwAAAAdhZGRyZXNzCgEAAAATSW50TGlzdFRvQnl0ZVZlY3RvcgAAAAIAAAADYWNjAAAABGl0ZW0JAAEsAAAAAgUAAAADYWNjBQAAAARpdGVtBAAAAA5sYXBzU3RyaW5nUGFydAoAAAAAAiRsBQAAAARsYXBzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAIAAAAACgEAAAABMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAABNJbnRMaXN0VG9CeXRlVmVjdG9yAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAABMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAEyAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgQAAAARcmV3YXJkc1N0cmluZ1BhcnQKAAAAAAIkbAUAAAAHcmV3YXJkcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzACAAAAAAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAATSW50TGlzdFRvQnl0ZVZlY3RvcgAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAAATIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAABMgAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoJAAEsAAAAAgkAASwAAAACBQAAAA5sYXBzU3RyaW5nUGFydAUAAAARcmV3YXJkc1N0cmluZ1BhcnQFAAAAB2FkZHJlc3MAAAADAAAAAWkBAAAAEWlzc3VlRnJlZUR1Y2tsaW5nAAAAAgAAAAdhZGRyZXNzAAAAB3R4SWRTdHIEAAAABWFzc2V0CQAEQwAAAAcCAAAAEEJBQlktMTExMTExMTEtR1oCAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAcFAAAABHVuaXQFAAAABmhlaWdodAQAAAAHYXNzZXRJZAkABDgAAAABBQAAAAVhc3NldAkABRQAAAACCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAAB2FkZHJlc3MCAAAAAV8FAAAAB3R4SWRTdHICAAAAA19kaQkAAlgAAAABBQAAAAdhc3NldElkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAxzdGF0c19hbW91bnQJAABkAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABAgAAAAxzdGF0c19hbW91bnQAAAAAAAAAAAEJAARMAAAAAgkBAAAADEJvb2xlYW5FbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAlkdWNrbGluZ18JAAJYAAAAAQUAAAAHYXNzZXRJZAIAAAARX2lzc3VlZEJ5RmVlZENhbGwJAAAAAAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAR0aGlzCQAETAAAAAIFAAAABWFzc2V0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAAAV2YWx1ZQAAAAEJAAQmAAAAAQUAAAAHYWRkcmVzcwAAAAAAAAAAAQUAAAAHYXNzZXRJZAUAAAADbmlsCQACWAAAAAEFAAAAB2Fzc2V0SWQAAAABaQEAAAAMZmVlZER1Y2tsaW5nAAAABAAAAApkdWNrbGluZ0lkAAAAEGJhY2tlbmRTaWduYXR1cmUAAAAIbGFwc0xpc3QAAAALcmV3YXJkc0xpc3QEAAAADWFkZHJlc3NTdHJpbmcJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBAAAAARsYXBzCQEAAAAFdmFsdWUAAAABCQAEtQAAAAIFAAAACGxhcHNMaXN0AgAAAAEsBAAAAAdyZXdhcmRzCQEAAAAFdmFsdWUAAAABCQAEtQAAAAIFAAAAC3Jld2FyZHNMaXN0AgAAAAEsBAAAAAxiYWNrZW5kUHJvb2YJAQAAAA9nZXRCYWNrZW5kUHJvb2YAAAADBQAAAARsYXBzBQAAAAdyZXdhcmRzBQAAAA1hZGRyZXNzU3RyaW5nBAAAAA5yZWFsRHVja2xpbmdJZAMJAQAAAAEhAAAAAQkACcQAAAADCQABmwAAAAEFAAAADGJhY2tlbmRQcm9vZgkAAlkAAAABBQAAABBiYWNrZW5kU2lnbmF0dXJlBQAAAA1iYWNrZW5kUHViS2V5CQAAAgAAAAECAAAAGkludmFsaWQgcHJvb2YgZnJvbSBiYWNrZW5kAwMJAQAAAAIhPQAAAAIJAAGQAAAAAQgFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAEGCQEAAAACIT0AAAACCAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBQAAAApFR0dBU1NFVElECQAAAgAAAAECAAAAKUJhZCBwYXltZW50IGF0dGFjaGVkIChhc3NldFtzXSBvciBhbW91bnQpAwkAAAAAAAACBQAAAApkdWNrbGluZ0lkAgAAAAAEAAAAD2R1Y2tsaW5nQXNzZXRJZAkAA/wAAAAEBQAAAAR0aGlzAgAAABFpc3N1ZUZyZWVEdWNrbGluZwkABEwAAAACCQAEJQAAAAEIBQAAAAFpAAAADG9yaWdpbkNhbGxlcgkABEwAAAACCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQFAAAAA25pbAUAAAADbmlsAwkAAAAAAAACBQAAAA9kdWNrbGluZ0Fzc2V0SWQFAAAAD2R1Y2tsaW5nQXNzZXRJZAQAAAACaWQEAAAAByRtYXRjaDAFAAAAD2R1Y2tsaW5nQXNzZXRJZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAF2BQAAAAckbWF0Y2gwBQAAAAF2CQAAAgAAAAECAAAAEkNhbid0IGdlbmVyYXRlIE5GVAUAAAACaWQJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAAAAA9kdWNrbGluZ0lkQ2hlY2sJAQAAAAV2YWx1ZQAAAAEJAAPsAAAAAQkAAlkAAAABBQAAAApkdWNrbGluZ0lkAwkBAAAAAiE9AAAAAgkAA/AAAAACCAUAAAABaQAAAAZjYWxsZXIIBQAAAA9kdWNrbGluZ0lkQ2hlY2sAAAACaWQAAAAAAAAAAAEJAAACAAAAAQIAAAAkWW91J3JlIG5vdCB0aGUgb3duZXIgb2YgdGhlIGR1Y2tsaW5nAwkBAAAAAiE9AAAAAggFAAAAD2R1Y2tsaW5nSWRDaGVjawAAAAZpc3N1ZXIFAAAABHRoaXMJAAACAAAAAQIAAAAfQ2FudCBmaW5kIGR1Y2tsaW5nIHdpdGggc3VjaCBpZAQAAAAQZHVja2xpbmdJZFN0cmluZwkAAlgAAAABCAUAAAAPZHVja2xpbmdJZENoZWNrAAAAAmlkBQAAABBkdWNrbGluZ0lkU3RyaW5nBAAAAAdpbnRMYXBzCQEAAAATc3RyaW5nTGlzdFRvSW50TGlzdAAAAAEFAAAABGxhcHMEAAAACmludFJld2FyZHMJAQAAABNzdHJpbmdMaXN0VG9JbnRMaXN0AAAAAQUAAAAHcmV3YXJkcwQAAAANbWF4RmVlZEFtb3VudAkBAAAAEGdldE1heEZlZWRBbW91bnQAAAADBQAAAAdpbnRMYXBzBQAAAAppbnRSZXdhcmRzCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgQAAAAPa0R1Y2tsaW5nRmVkTGFwCQEAAAARa2V5RHVja2xpbmdGZWRMYXAAAAABBQAAAA5yZWFsRHVja2xpbmdJZAQAAAAKbGFzdEZlZExhcAkBAAAADXRyeUdldEludGVnZXIAAAABBQAAAA9rRHVja2xpbmdGZWRMYXAEAAAADmN1cnJlbnRQYXltZW50CAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQEAAAACWtOZXdMZXZlbAkBAAAAEGtleUR1Y2tsaW5nTGV2ZWwAAAABBQAAAA5yZWFsRHVja2xpbmdJZAQAAAAKa1RvdGFsRmVlZAkBAAAADGtleVRvdGFsRmVlZAAAAAEFAAAADnJlYWxEdWNrbGluZ0lkBAAAAAl0b3RhbEZlZWQJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQUAAAAKa1RvdGFsRmVlZAQAAAALZmVlZFR4U3RhdHMJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACWR1Y2tsaW5nXwUAAAAOcmVhbER1Y2tsaW5nSWQCAAAABl9zdGF0XwkAAaQAAAABCAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAMJAABmAAAAAgUAAAAOY3VycmVudFBheW1lbnQFAAAADW1heEZlZWRBbW91bnQJAAACAAAAAQkAASwAAAACAgAAADpDYW5ub3QgZmVlZCBkdWNrbGluZyBmb3Igc3VjaCBhbW91bnQsIG1heCBmZWVkIGFtb3VudCBpczogCQABpAAAAAEFAAAADW1heEZlZWRBbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAD2tEdWNrbGluZ0ZlZExhcAkBAAAADWdldEN1cnJlbnRMYXAAAAAACQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAANa2V5RmVlZEZvckxhcAAAAAIFAAAADWFkZHJlc3NTdHJpbmcJAAGRAAAAAgUAAAAHaW50TGFwcwAAAAAAAAAAAAkAAGQAAAACCQEAAAAMZ2V0RmVlZEJ5TGFwAAAAAgUAAAANYWRkcmVzc1N0cmluZwkAAZEAAAACBQAAAAdpbnRMYXBzAAAAAAAAAAAABQAAAA5jdXJyZW50UGF5bWVudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAADWtleUZlZWRGb3JMYXAAAAACBQAAAA1hZGRyZXNzU3RyaW5nCQABkQAAAAIFAAAAB2ludExhcHMAAAAAAAAAAAEJAABkAAAAAgkBAAAADGdldEZlZWRCeUxhcAAAAAIFAAAADWFkZHJlc3NTdHJpbmcJAAGRAAAAAgUAAAAHaW50TGFwcwAAAAAAAAAAAQUAAAAOY3VycmVudFBheW1lbnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAA1rZXlGZWVkRm9yTGFwAAAAAgUAAAANYWRkcmVzc1N0cmluZwkAAZEAAAACBQAAAAdpbnRMYXBzAAAAAAAAAAACCQAAZAAAAAIJAQAAAAxnZXRGZWVkQnlMYXAAAAACBQAAAA1hZGRyZXNzU3RyaW5nCQABkQAAAAIFAAAAB2ludExhcHMAAAAAAAAAAAIFAAAADmN1cnJlbnRQYXltZW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAANa2V5RmVlZEZvckxhcAAAAAIFAAAADWFkZHJlc3NTdHJpbmcJAAGRAAAAAgUAAAAHaW50TGFwcwAAAAAAAAAAAwkAAGQAAAACCQEAAAAMZ2V0RmVlZEJ5TGFwAAAAAgUAAAANYWRkcmVzc1N0cmluZwkAAZEAAAACBQAAAAdpbnRMYXBzAAAAAAAAAAADBQAAAA5jdXJyZW50UGF5bWVudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAKa1RvdGFsRmVlZAkAAGQAAAACBQAAAAl0b3RhbEZlZWQFAAAADmN1cnJlbnRQYXltZW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAAtmZWVkVHhTdGF0cwUAAAAOY3VycmVudFBheW1lbnQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAJa05ld0xldmVsCQEAAAAZY2FsY3VsYXRlTmV3RHVja2xpbmdMZXZlbAAAAAIFAAAADnJlYWxEdWNrbGluZ0lkBQAAAA5jdXJyZW50UGF5bWVudAUAAAADbmlsAAAAAWkBAAAAFHR1cm5EdWNrbGluZ0ludG9EdWNrAAAAAAkAAAIAAAABAgAAABNOb3QgaW1wbGVtZW50ZWQgeWV0AAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXkvokg/",
    "height": 2830705,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: B2S12WJgkzNTkH1P3du17zJfP3F2mvtaPpoWAuvMeHut
Next: EtkAcdFkm3NyGdkGV5WjMx2e8imE51fnNdNtTThao3Wt

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

Old	New		Differences
69	69		let kFedLap = keyDucklingFedLap(ducklingId)
70	70		let lastFedLapNumber = tryGetInteger(kFedLap)
71	71		let currentlap = getCurrentLap()
72		-	let penalty = (toBigInt(((currentlap - lastFedLapNumber) / 4)) * toBigInt(percentGrowthPrecision))
	72	+	let penalty = if ((lastFedLapNumber == 0))
	73	+	then toBigInt(0)
	74	+	else (toBigInt(((currentlap - lastFedLapNumber) / 4)) * toBigInt(percentGrowthPrecision))
73	75		let growth = fraction(toBigInt(paymentAmount), toBigInt(percentGrowthPrecision), toBigInt(DUCKLINGPRICE))
74	76		throw(((((("currentLevel: " + toString(getCurrentLevelBigInt(ducklingId))) + " penalty: ") + toString(penalty)) + "growth: ") + toString(growth)))
75	77		}

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

github/deemru/w8io/3ef1775 
40.52 ms ◑