tx · B3NsP5185fiQdSjXRKWFFS8q2AHeSVAXuz2rPDiVwE8A

3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv:  -0.01400000 Waves

2021.09.15 12:30 [2768895] smart account 3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "B3NsP5185fiQdSjXRKWFFS8q2AHeSVAXuz2rPDiVwE8A",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1631698218996,
    "version": 2,
    "chainId": 87,
    "sender": "3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv",
    "senderPublicKey": "EBHsV7TQYm4qS2V7iZXEXwcbUdEYQyCSLEdY2AMvLPns",
    "proofs": [
        "4t6iBDYyUGmKkWfTgVfv3c7XAV6iFimFbotJoZrS5cJiyb6PSPHapWrpHZ9VoKyvdsXfoGLgHXSu27fFz6FHu4TS"
    ],
    "script": "base64:AAIFAAAAAAAAAB8IAhIDCgEIEgMKAQgSBAoCCAgSBQoDCAgIEgQKAggIAAAAEwAAAAALZWdnc0Fzc2V0SWQBAAAAIP95R1BUUNh9HFX0EUDspUcxpBhcbNeBV9CDaUzAvZfwAAAAABBkZWxheUZvckhhdGNoaW5nAAAAAAAAAAACAAAAABNkaXNjb3VudENvZWZmaWNpZW50AAAAAAAAAAAKAAAAAAt0eXBlc0Ftb3VudAAAAAAAAAAABwAAAAAScmVmQ29udHJhY3RBZGRyZXNzAQAAABoBV0m6fUK8n7ARhcHKmKrWNO3wC83v6MPupQAAAAANUmVmZXJlclJld2FyZAAAAAAAAAAABQAAAAAPSGF0Y2hpbmdTdGFydGVkAgAAABBIQVRDSElOR19TVEFSVEVEAAAAABBIYXRjaGluZ0ZpbmlzaGVkAgAAABFIQVRDSElOR19GSU5JU0hFRAAAAAAOcmViaXJ0aEFkZHJlc3MBAAAAGgFXcJF11J7rej4f+WQAMMjcRl1cmkTfdcL3AQAAAAhpc0xvY2tlZAAAAAAEAAAADW1hc3RlckFkZHJlc3MJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVeIsgYh8IDKQaIyACMe/6mJIkg53XAWyQkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAANbWFzdGVyQWRkcmVzcwIAAAAHZWdnbG9jawMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAQAAABRnZXRIYXRjaGluZ1N0YXR1c0tleQAAAAIAAAAHYWRkcmVzcwAAAAR0eElkCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAdhZGRyZXNzAgAAAAFfCQACWAAAAAEFAAAABHR4SWQCAAAAB19zdGF0dXMBAAAAGmdldEhhdGNoaW5nRmluaXNoSGVpZ2h0S2V5AAAAAgAAAAdhZGRyZXNzAAAABHR4SWQJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAAB2FkZHJlc3MCAAAAAV8JAAJYAAAAAQUAAAAEdHhJZAIAAAADX2ZoAQAAAAxnZXREdWNrSWRLZXkAAAACAAAAB2FkZHJlc3MAAAAEdHhJZAkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAHYWRkcmVzcwIAAAABXwkAAlgAAAABBQAAAAR0eElkAgAAAANfZGkBAAAAD2dldER1Y2tTdGF0c0tleQAAAAEAAAAJZ2VuU3RyaW5nCQABLAAAAAIJAAEsAAAAAgIAAAAGc3RhdHNfBQAAAAlnZW5TdHJpbmcCAAAAB19hbW91bnQBAAAADXRyeUdldEludGVnZXIAAAABAAAAA2tleQQAAAADdmFsBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAABQAAAAN2YWwBAAAAD2dldFJhbmRvbU51bWJlcgAAAAQAAAAIdmFyaWFudHMAAAAEdHhJZAAAABRoYXRjaGluZ0ZpbmlzaEhlaWdodAAAAAZvZmZzZXQEAAAAD3JhbmRvbVNlZWRCbG9jawkBAAAABXZhbHVlAAAAAQkAA+0AAAABCQAAZQAAAAIFAAAAFGhhdGNoaW5nRmluaXNoSGVpZ2h0AAAAAAAAAAABBAAAAApyYW5kb21IYXNoCQAB9wAAAAEJAADLAAAAAgUAAAAEdHhJZAkBAAAABXZhbHVlAAAAAQgFAAAAD3JhbmRvbVNlZWRCbG9jawAAAAN2cmYJAABqAAAAAgkABLIAAAACBQAAAApyYW5kb21IYXNoCQAAaAAAAAIFAAAABm9mZnNldAAAAAAAAAAACAUAAAAIdmFyaWFudHMBAAAADXdhc1VuaXF1ZUJvcm4AAAABAAAAA2dlbgkBAAAADXRyeUdldEludGVnZXIAAAABCQEAAAAPZ2V0RHVja1N0YXRzS2V5AAAAAQUAAAADZ2VuAQAAAA1nZXRSYW5kb21OYW1lAAAAAgAAAAR0eElkAAAAFGhhdGNoaW5nRmluaXNoSGVpZ2h0BAAAAA1qYWNrcG90UmFuZG9tCQEAAAAPZ2V0UmFuZG9tTnVtYmVyAAAABAAAAAAAAAAB9AUAAAAEdHhJZAUAAAAUaGF0Y2hpbmdGaW5pc2hIZWlnaHQAAAAAAAAAAAADAwkAAAAAAAACBQAAAA1qYWNrcG90UmFuZG9tAAAAAAAAAABvCQAAAAAAAAIJAQAAAA13YXNVbmlxdWVCb3JuAAAAAQIAAAAQRFVDSy1XV1dXV1dXTS1KVQAAAAAAAAAAAAcJAAUUAAAAAgIAAAAQRFVDSy1XV1dXV1dXTS1KVQIAAAAEOFctSgQAAAAKdHlwZVJhbmRvbQkBAAAAD2dldFJhbmRvbU51bWJlcgAAAAQAAAAAAAAAAAQFAAAABHR4SWQFAAAAFGhhdGNoaW5nRmluaXNoSGVpZ2h0AAAAAAAAAAAABAAAAAtjb2xvclJhbmRvbQkBAAAAD2dldFJhbmRvbU51bWJlcgAAAAQAAAAAAAAAAAQFAAAABHR4SWQFAAAAFGhhdGNoaW5nRmluaXNoSGVpZ2h0AAAAAAAAAAABBAAAAAVjb2xvcgMJAAAAAAAAAgUAAAALY29sb3JSYW5kb20AAAAAAAAAAAACAAAAAVkDCQAAAAAAAAIFAAAAC2NvbG9yUmFuZG9tAAAAAAAAAAABAgAAAAFHAwkAAAAAAAACBQAAAAtjb2xvclJhbmRvbQAAAAAAAAAAAgIAAAABQgIAAAABUgMJAAAAAAAAAgUAAAAKdHlwZVJhbmRvbQAAAAAAAAAAAAkABRQAAAACCQABLAAAAAICAAAAD0RVQ0stRkZGRkZGRkYtRwUAAAAFY29sb3ICAAAABDhGLUcDCQAAAAAAAAIFAAAACnR5cGVSYW5kb20AAAAAAAAAAAEJAAUUAAAAAgkAASwAAAACAgAAAA9EVUNLLURERERERERELUcFAAAABWNvbG9yAgAAAAQ4RC1HAwkAAAAAAAACBQAAAAp0eXBlUmFuZG9tAAAAAAAAAAACCQAFFAAAAAIJAAEsAAAAAgIAAAAPRFVDSy1HR0dHR0dHRy1HBQAAAAVjb2xvcgIAAAAEOEctRwkABRQAAAACCQABLAAAAAICAAAAD0RVQ0stRUVFRUVFRUUtRwUAAAAFY29sb3ICAAAABDhFLUcBAAAAFWNvdW50RWdnc05lZWRlZEFtb3VudAAAAAEAAAAQdG90YWxEdWNrc0Ftb3VudAQAAAABbgUAAAAQdG90YWxEdWNrc0Ftb3VudAQAAAABZwUAAAATZGlzY291bnRDb2VmZmljaWVudAQAAAABdAUAAAALdHlwZXNBbW91bnQEAAAABXByaWNlCQAAbAAAAAYJAABkAAAAAgAAAAAAAAAAZAkAAGkAAAACCQAAaAAAAAIFAAAAAW4FAAAAAWcJAABoAAAAAgAAAAAAAAAACgUAAAABdAAAAAAAAAAAAgAAAAAAAAAABQAAAAAAAAAAAQAAAAAAAAAAAgUAAAAERE9XTgkAAGgAAAACBQAAAAVwcmljZQAAAAAAAA9CQAAAAAUAAAABaQEAAAARc3RhcnREdWNrSGF0Y2hpbmcAAAABAAAADnJlZmVyZXJBZGRyZXNzAwkAAGYAAAACCQEAAAAIaXNMb2NrZWQAAAAAAAAAAAAAAAAACQAAAgAAAAECAAAAJUVHRyBvcGVyYXRpb25zIGFyZSB0ZW1wb3JhcmlseSBsb2NrZWQEAAAAEHRvdGFsRHVja3NBbW91bnQJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQIAAAAMZHVja3NfYW1vdW50BAAAAAplZ2dzTmVlZGVkCQEAAAAVY291bnRFZ2dzTmVlZGVkQW1vdW50AAAAAQUAAAAQdG90YWxEdWNrc0Ftb3VudAQAAAAMZmlyc3RQYXltZW50CQEAAAAFdmFsdWUAAAABCQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAwkBAAAAAiE9AAAAAggFAAAADGZpcnN0UGF5bWVudAAAAAdhc3NldElkBQAAAAtlZ2dzQXNzZXRJZAkAAAIAAAABCQABLAAAAAICAAAAPFlvdSBjYW4gYXR0YWNoIG9ubHkgRUdHIHRva2VucyB3aXRoIHRoZSBmb2xsb3dpbmcgYXNzZXQgaWQ6IAkAAlgAAAABBQAAAAtlZ2dzQXNzZXRJZAMJAABmAAAAAgUAAAAKZWdnc05lZWRlZAgFAAAADGZpcnN0UGF5bWVudAAAAAZhbW91bnQJAAACAAAAAQkAASwAAAACAgAAAERUbyBoYXRjaCBhIGR1Y2sgeW91IGN1cnJlbnRseSBuZWVkIHRoZSBmb2xsb3dpbmcgYW1vdW50IG9mIEVHR2xldHM6IAkAAaQAAAABBQAAAAplZ2dzTmVlZGVkBAAAAA1yZWZlcmVyUmV3YXJkCQAAawAAAAMFAAAACmVnZ3NOZWVkZWQFAAAADVJlZmVyZXJSZXdhcmQAAAAAAAAAAGQEAAAAB3JlZkNhbGwJAAP8AAAABAkBAAAAB0FkZHJlc3MAAAABBQAAABJyZWZDb250cmFjdEFkZHJlc3MCAAAACnJlZlBheW1lbnQJAARMAAAAAgUAAAAOcmVmZXJlckFkZHJlc3MFAAAAA25pbAkABEwAAAACCQEAAAAPQXR0YWNoZWRQYXltZW50AAAAAgUAAAALZWdnc0Fzc2V0SWQFAAAADXJlZmVyZXJSZXdhcmQFAAAAA25pbAMJAAAAAAAAAgUAAAAHcmVmQ2FsbAUAAAAHcmVmQ2FsbAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAUZ2V0SGF0Y2hpbmdTdGF0dXNLZXkAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcggFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAUAAAAPSGF0Y2hpbmdTdGFydGVkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAAaZ2V0SGF0Y2hpbmdGaW5pc2hIZWlnaHRLZXkAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcggFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAkAAGQAAAACBQAAAAZoZWlnaHQFAAAAEGRlbGF5Rm9ySGF0Y2hpbmcJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADGR1Y2tzX2Ftb3VudAkAAGQAAAACBQAAABB0b3RhbER1Y2tzQW1vdW50AAAAAAAAAAABCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABBkdWNrc19sYXN0X3ByaWNlBQAAAAplZ2dzTmVlZGVkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGUAAAACCAUAAAAMZmlyc3RQYXltZW50AAAABmFtb3VudAUAAAAKZWdnc05lZWRlZAUAAAALZWdnc0Fzc2V0SWQFAAAAA25pbAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAASZmluaXNoRHVja0hhdGNoaW5nAAAAAQAAAAd0eElkU3RyBAAAAAR0eElkCQACWQAAAAEFAAAAB3R4SWRTdHIEAAAAEWhhdGNoaW5nU3RhdHVzS2V5CQEAAAAUZ2V0SGF0Y2hpbmdTdGF0dXNLZXkAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgUAAAAEdHhJZAQAAAAPZmluaXNoSGVpZ2h0S2V5CQEAAAAaZ2V0SGF0Y2hpbmdGaW5pc2hIZWlnaHRLZXkAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgUAAAAEdHhJZAQAAAAJZHVja0lkS2V5CQEAAAAMZ2V0RHVja0lkS2V5AAAAAgkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIFAAAABHR4SWQEAAAAEGhhdGNoaW5nVHhTdGF0dXMJAQAAABFAZXh0ck5hdGl2ZSgxMDUzKQAAAAIFAAAABHRoaXMFAAAAEWhhdGNoaW5nU3RhdHVzS2V5BAAAABRoYXRjaGluZ0ZpbmlzaEhlaWdodAkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwUAAAAPZmluaXNoSGVpZ2h0S2V5AwkAAAAAAAACBQAAABBoYXRjaGluZ1R4U3RhdHVzBQAAABBIYXRjaGluZ0ZpbmlzaGVkBAAAAAZkdWNrSWQJAQAAABFAZXh0ck5hdGl2ZSgxMDUzKQAAAAIFAAAABHRoaXMJAQAAAAxnZXREdWNrSWRLZXkAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgUAAAAEdHhJZAkAAAIAAAABCQABLAAAAAICAAAAQFRoZSBkdWNrIHdhcyBoYXRjaGVkIGFuZCBjbGFpbWVkIGFscmVhZHksIGhlcmUgaXMgdGhlIGZvbG93aW5nOiAFAAAABmR1Y2tJZAMJAABmAAAAAgUAAAAUaGF0Y2hpbmdGaW5pc2hIZWlnaHQFAAAABmhlaWdodAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAHUhhdGNoaW5nIGlzIG5vdCBmaW5pc2hlZCB5ZXQgCQABpAAAAAEJAABlAAAAAgUAAAAUaGF0Y2hpbmdGaW5pc2hIZWlnaHQFAAAABmhlaWdodAIAAAAnIGJsb2NrcyByZW1haW5pbmcsIGl0IHdpbGwgdGFrZSBhcm91bmQgCQABpAAAAAEJAABlAAAAAgUAAAAUaGF0Y2hpbmdGaW5pc2hIZWlnaHQFAAAABmhlaWdodAIAAAAIIG1pbnV0ZXMEAAAACyR0MDUwMjY1MDkyCQEAAAANZ2V0UmFuZG9tTmFtZQAAAAIFAAAABHR4SWQFAAAAFGhhdGNoaW5nRmluaXNoSGVpZ2h0BAAAAAdkdWNrR2VuCAUAAAALJHQwNTAyNjUwOTIAAAACXzEEAAAAB2Zhcm1HZW4IBQAAAAskdDA1MDI2NTA5MgAAAAJfMgQAAAALZGVzY3JpcHRpb24JAAEsAAAAAgkAASwAAAACAgAAAA57Imdlbm90eXBlIjogIgUAAAAHZHVja0dlbgIAAAAZIiwgImNyb3NzYnJlZWRpbmciOiB0cnVlfQQAAAAFYXNzZXQJAARDAAAABwUAAAAHZHVja0dlbgUAAAALZGVzY3JpcHRpb24AAAAAAAAAAAEAAAAAAAAAAAAHBQAAAAR1bml0BQAAABRoYXRjaGluZ0ZpbmlzaEhlaWdodAQAAAAHYXNzZXRJZAkABDgAAAABBQAAAAVhc3NldAQAAAAGYW1vdW50CQAAZAAAAAIJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkBAAAAD2dldER1Y2tTdGF0c0tleQAAAAEFAAAAB2R1Y2tHZW4AAAAAAAAAAAEJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAARaGF0Y2hpbmdTdGF0dXNLZXkFAAAAEEhhdGNoaW5nRmluaXNoZWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAJZHVja0lkS2V5CQACWAAAAAEFAAAAB2Fzc2V0SWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAAlgAAAABBQAAAAdhc3NldElkBQAAAAlkdWNrSWRLZXkJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAA9nZXREdWNrU3RhdHNLZXkAAAABBQAAAAdkdWNrR2VuBQAAAAZhbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAZzdGF0c18FAAAAB2Zhcm1HZW4CAAAACV9xdWFudGl0eQkAAGQAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAZzdGF0c18FAAAAB2Zhcm1HZW4CAAAACV9xdWFudGl0eQAAAAAAAAAAAQkABEwAAAACBQAAAAVhc3NldAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIAAAAAAAAAAAEFAAAAB2Fzc2V0SWQFAAAAA25pbAAAAAFpAQAAAA1pc3N1ZUZyZWVEdWNrAAAAAgAAAAdhZGRyZXNzAAAAB3R4SWRTdHIDCQEAAAACIT0AAAACCAUAAAABaQAAAAZjYWxsZXIJAQAAAAdBZGRyZXNzAAAAAQUAAAAOcmViaXJ0aEFkZHJlc3MJAAACAAAAAQIAAAAMcmViaXJ0aCBvbmx5BAAAAAR0eElkCQACWQAAAAEFAAAAB3R4SWRTdHIEAAAAEWhhdGNoaW5nU3RhdHVzS2V5CQEAAAAUZ2V0SGF0Y2hpbmdTdGF0dXNLZXkAAAACBQAAAAdhZGRyZXNzBQAAAAR0eElkBAAAAA9maW5pc2hIZWlnaHRLZXkJAQAAABpnZXRIYXRjaGluZ0ZpbmlzaEhlaWdodEtleQAAAAIFAAAAB2FkZHJlc3MFAAAABHR4SWQEAAAAEHRvdGFsRHVja3NBbW91bnQJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQIAAAAMZHVja3NfYW1vdW50BAAAAAplZ2dzTmVlZGVkCQEAAAAVY291bnRFZ2dzTmVlZGVkQW1vdW50AAAAAQUAAAAQdG90YWxEdWNrc0Ftb3VudAQAAAALJHQwNjI0ODYzMzMJAQAAAA1nZXRSYW5kb21OYW1lAAAAAgUAAAAEdHhJZAkAAGQAAAACCQEAAAAFdmFsdWUAAAABCQAD6QAAAAEFAAAABHR4SWQAAAAAAAAAAAEEAAAAB2R1Y2tHZW4IBQAAAAskdDA2MjQ4NjMzMwAAAAJfMQQAAAAHZmFybUdlbggFAAAACyR0MDYyNDg2MzMzAAAAAl8yBAAAAAtkZXNjcmlwdGlvbgkAASwAAAACCQABLAAAAAICAAAADnsiZ2Vub3R5cGUiOiAiBQAAAAdkdWNrR2VuAgAAABkiLCAiY3Jvc3NicmVlZGluZyI6IHRydWV9BAAAAAVhc3NldAkABEMAAAAHBQAAAAdkdWNrR2VuBQAAAAtkZXNjcmlwdGlvbgAAAAAAAAAAAQAAAAAAAAAAAAcFAAAABHVuaXQFAAAABmhlaWdodAQAAAAHYXNzZXRJZAkABDgAAAABBQAAAAVhc3NldAQAAAAGYW1vdW50CQAAZAAAAAIJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkBAAAAD2dldER1Y2tTdGF0c0tleQAAAAEFAAAAB2R1Y2tHZW4AAAAAAAAAAAEEAAAACWR1Y2tJZEtleQkBAAAADGdldER1Y2tJZEtleQAAAAIFAAAAB2FkZHJlc3MFAAAABHR4SWQJAAUUAAAAAgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAGmdldEhhdGNoaW5nRmluaXNoSGVpZ2h0S2V5AAAAAgUAAAAHYWRkcmVzcwUAAAAEdHhJZAUAAAAGaGVpZ2h0CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAxkdWNrc19hbW91bnQJAABkAAAAAgUAAAAQdG90YWxEdWNrc0Ftb3VudAAAAAAAAAAAAQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAQZHVja3NfbGFzdF9wcmljZQUAAAAKZWdnc05lZWRlZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAABFoYXRjaGluZ1N0YXR1c0tleQUAAAAQSGF0Y2hpbmdGaW5pc2hlZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAAlkdWNrSWRLZXkJAAJYAAAAAQUAAAAHYXNzZXRJZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQACWAAAAAEFAAAAB2Fzc2V0SWQFAAAACWR1Y2tJZEtleQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAD2dldER1Y2tTdGF0c0tleQAAAAEFAAAAB2R1Y2tHZW4FAAAABmFtb3VudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAABnN0YXRzXwUAAAAHZmFybUdlbgIAAAAJX3F1YW50aXR5CQAAZAAAAAIJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAABnN0YXRzXwUAAAAHZmFybUdlbgIAAAAJX3F1YW50aXR5AAAAAAAAAAABCQAETAAAAAIFAAAABWFzc2V0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAAAV2YWx1ZQAAAAEJAAQmAAAAAQUAAAAHYWRkcmVzcwAAAAAAAAAAAQUAAAAHYXNzZXRJZAUAAAADbmlsCQACWAAAAAEFAAAAB2Fzc2V0SWQAAAABaQEAAAAMaXNzdWVKYWNrcG90AAAAAwAAAAdhZGRyZXNzAAAAB3R4SWRTdHIAAAADZ2VuAwMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgkBAAAAB0FkZHJlc3MAAAABBQAAAA5yZWJpcnRoQWRkcmVzcwkBAAAAAiE9AAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAR0aGlzBwkAAAIAAAABAgAAABVhZG1pbiBvciByZWJpcnRoIG9ubHkEAAAABHR4SWQJAAJZAAAAAQUAAAAHdHhJZFN0cgQAAAARaGF0Y2hpbmdTdGF0dXNLZXkJAQAAABRnZXRIYXRjaGluZ1N0YXR1c0tleQAAAAIFAAAAB2FkZHJlc3MFAAAABHR4SWQEAAAAD2ZpbmlzaEhlaWdodEtleQkBAAAAGmdldEhhdGNoaW5nRmluaXNoSGVpZ2h0S2V5AAAAAgUAAAAHYWRkcmVzcwUAAAAEdHhJZAQAAAAQdG90YWxEdWNrc0Ftb3VudAkBAAAADXRyeUdldEludGVnZXIAAAABAgAAAAxkdWNrc19hbW91bnQEAAAACmVnZ3NOZWVkZWQJAQAAABVjb3VudEVnZ3NOZWVkZWRBbW91bnQAAAABBQAAABB0b3RhbER1Y2tzQW1vdW50BAAAAAskdDA3Nzc2NzgyOAkABRQAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAFRFVDSy0FAAAAA2dlbgIAAAADLUpVAgAAAAQ4Vy1KBAAAAAdkdWNrR2VuCAUAAAALJHQwNzc3Njc4MjgAAAACXzEEAAAAB2Zhcm1HZW4IBQAAAAskdDA3Nzc2NzgyOAAAAAJfMgQAAAALZGVzY3JpcHRpb24JAAEsAAAAAgkAASwAAAACAgAAAA57Imdlbm90eXBlIjogIgUAAAAHZHVja0dlbgIAAAAZIiwgImNyb3NzYnJlZWRpbmciOiB0cnVlfQQAAAAFYXNzZXQJAARDAAAABwUAAAAHZHVja0dlbgUAAAALZGVzY3JpcHRpb24AAAAAAAAAAAEAAAAAAAAAAAAHBQAAAAR1bml0BQAAAAZoZWlnaHQEAAAAB2Fzc2V0SWQJAAQ4AAAAAQUAAAAFYXNzZXQEAAAACWR1Y2tJZEtleQkBAAAADGdldER1Y2tJZEtleQAAAAIFAAAAB2FkZHJlc3MFAAAABHR4SWQJAAUUAAAAAgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAGmdldEhhdGNoaW5nRmluaXNoSGVpZ2h0S2V5AAAAAgUAAAAHYWRkcmVzcwUAAAAEdHhJZAUAAAAGaGVpZ2h0CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAxkdWNrc19hbW91bnQJAABkAAAAAgUAAAAQdG90YWxEdWNrc0Ftb3VudAAAAAAAAAAAAQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAQZHVja3NfbGFzdF9wcmljZQUAAAAKZWdnc05lZWRlZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAABFoYXRjaGluZ1N0YXR1c0tleQUAAAAQSGF0Y2hpbmdGaW5pc2hlZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAAlkdWNrSWRLZXkJAAJYAAAAAQUAAAAHYXNzZXRJZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQACWAAAAAEFAAAAB2Fzc2V0SWQFAAAACWR1Y2tJZEtleQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAD2dldER1Y2tTdGF0c0tleQAAAAEFAAAAB2R1Y2tHZW4JAABkAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABCQEAAAAPZ2V0RHVja1N0YXRzS2V5AAAAAQUAAAAHZHVja0dlbgAAAAAAAAAAAQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAABnN0YXRzXwUAAAAHZmFybUdlbgIAAAAJX3F1YW50aXR5CQAAZAAAAAIJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAABnN0YXRzXwUAAAAHZmFybUdlbgIAAAAJX3F1YW50aXR5AAAAAAAAAAABCQAETAAAAAIFAAAABWFzc2V0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAAAV2YWx1ZQAAAAEJAAQmAAAAAQUAAAAHYWRkcmVzcwAAAAAAAAAAAQUAAAAHYXNzZXRJZAUAAAADbmlsCQACWAAAAAEFAAAAB2Fzc2V0SWQAAAABaQEAAAAMcmVkdWNlUmFyaXR5AAAAAgAAAAdhc3NldElkAAAABGZHZW4EAAAABWFzc2V0CQACWQAAAAEFAAAAB2Fzc2V0SWQDAwkBAAAAAiE9AAAAAggFAAAAAWkAAAAGY2FsbGVyCQEAAAAHQWRkcmVzcwAAAAEFAAAADnJlYmlydGhBZGRyZXNzCQEAAAACIT0AAAACCAUAAAABaQAAAAZjYWxsZXIFAAAABHRoaXMHCQAAAgAAAAECAAAAFWFkbWluIG9yIHJlYmlydGggb25seQQAAAAHZHVja0dlbggJAQAAAAV2YWx1ZQAAAAEJAAPsAAAAAQUAAAAFYXNzZXQAAAAEbmFtZQQAAAAGbGV0dGVyCQEAAAAJdGFrZVJpZ2h0AAAAAgkAAS8AAAACBQAAAAdkdWNrR2VuAAAAAAAAAAAGAAAAAAAAAAABBAAAAAdmYXJtR2VuCQABLAAAAAIJAAEsAAAAAgIAAAABOAUAAAAGbGV0dGVyAgAAAAItRwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAD2dldER1Y2tTdGF0c0tleQAAAAEFAAAAB2R1Y2tHZW4JAABlAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABCQEAAAAPZ2V0RHVja1N0YXRzS2V5AAAAAQUAAAAHZHVja0dlbgAAAAAAAAAAAQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAABnN0YXRzXwUAAAAHZmFybUdlbgIAAAAJX3F1YW50aXR5CQAAZQAAAAIJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAABnN0YXRzXwUAAAAHZmFybUdlbgIAAAAJX3F1YW50aXR5AAAAAAAAAAABBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAACQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleRLfwNI=",
    "height": 2768895,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: JAo8YZcGChsHBiNuNS2addPbC6qbK5sSkWoYvtF9q8CR
Next: 49BToAL6svfuCppRVMAsSoZXKcXeK7xzGDHviyYAas6u

Diff: 

OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let eggsAssetId = base58'C1iWsKGqLwjHUndiQ7iXpdmPum9PeCDFfyXBdJJosDRS'
4+let eggsAssetId = base58'JCGDtrVy64cCJ1wCKfCaiNQMnyYwii71TbE5QeAHfxgF'
55 
6-let incubatorAddress = base58'3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv'
6+let delayForHatching = 2
77 
8-let farmingAddress = base58'3PAETTtuW7aSiyKtn9GuML3RgtV1xdq1mQW'
8+let discountCoefficient = 10
99 
10-let collectiveMasterAddress = base58'3PDktsxDVEcoobpEBJcausnKo4enhcWUDEF'
10+let typesAmount = 7
1111 
12-let ref20 = ["3PR66kMvUDE1QvYAg8r6e1xDX7QbnTV7JW5"]
12+let refContractAddress = base58'3P8ejTkfRpz9WqCwCuihesNXU5k3zmFFfVe'
1313 
14-func tryGetInteger (key) = match getInteger(this, key) {
15-    case b: Int => 
16-        b
17-    case _ => 
18-        0
19-}
14+let RefererReward = 5
15+
16+let HatchingStarted = "HATCHING_STARTED"
17+
18+let HatchingFinished = "HATCHING_FINISHED"
19+
20+let rebirthAddress = base58'3PCC6fVHNa6289DTDmcUo3RuLaFmteZZsmQ'
21+
22+func isLocked () = {
23+    let masterAddress = Address(base58'3PEPftf2kWZDmAaWBjs6BUJa9957kiA2PkU')
24+    match getInteger(masterAddress, "egglock") {
25+        case b: Int => 
26+            b
27+        case _ => 
28+            0
29+    }
30+    }
2031 
2132 
22-func masterTryGetBoolean (key) = match getBoolean(Address(collectiveMasterAddress), key) {
23-    case b: Boolean => 
24-        b
25-    case _ => 
26-        false
27-}
33+func getHatchingStatusKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_status")
2834 
2935 
30-func isValidAddress (address) = match addressFromString(address) {
31-    case a: Address => 
32-        true
33-    case _ => 
34-        false
35-}
36+func getHatchingFinishHeightKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_fh")
3637 
3738 
38-func tryGetString (key) = match getString(this, key) {
39-    case a: String => 
40-        a
41-    case _ => 
42-        ""
43-}
39+func getDuckIdKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_di")
4440 
4541 
46-func getRefMultiplier (refererAddress) = if ((indexOf(ref20, refererAddress) != unit))
47-    then 4
48-    else 1
42+func getDuckStatsKey (genString) = (("stats_" + genString) + "_amount")
43+
44+
45+func tryGetInteger (key) = {
46+    let val =     match getInteger(this, key) {
47+        case b: Int => 
48+            b
49+        case _ => 
50+            0
51+    }
52+    val
53+    }
54+
55+
56+func getRandomNumber (variants,txId,hatchingFinishHeight,offset) = {
57+    let randomSeedBlock = value(blockInfoByHeight((hatchingFinishHeight - 1)))
58+    let randomHash = sha256((txId + value(randomSeedBlock.vrf)))
59+    (toInt(randomHash, (offset * 8)) % variants)
60+    }
61+
62+
63+func wasUniqueBorn (gen) = tryGetInteger(getDuckStatsKey(gen))
64+
65+
66+func getRandomName (txId,hatchingFinishHeight) = {
67+    let jackpotRandom = getRandomNumber(500, txId, hatchingFinishHeight, 0)
68+    if (if ((jackpotRandom == 111))
69+        then (wasUniqueBorn("DUCK-WWWWWWWM-JU") == 0)
70+        else false)
71+        then $Tuple2("DUCK-WWWWWWWM-JU", "8W-J")
72+        else {
73+            let typeRandom = getRandomNumber(4, txId, hatchingFinishHeight, 0)
74+            let colorRandom = getRandomNumber(4, txId, hatchingFinishHeight, 1)
75+            let color = if ((colorRandom == 0))
76+                then "Y"
77+                else if ((colorRandom == 1))
78+                    then "G"
79+                    else if ((colorRandom == 2))
80+                        then "B"
81+                        else "R"
82+            if ((typeRandom == 0))
83+                then $Tuple2(("DUCK-FFFFFFFF-G" + color), "8F-G")
84+                else if ((typeRandom == 1))
85+                    then $Tuple2(("DUCK-DDDDDDDD-G" + color), "8D-G")
86+                    else if ((typeRandom == 2))
87+                        then $Tuple2(("DUCK-GGGGGGGG-G" + color), "8G-G")
88+                        else $Tuple2(("DUCK-EEEEEEEE-G" + color), "8E-G")
89+            }
90+    }
91+
92+
93+func countEggsNeededAmount (totalDucksAmount) = {
94+    let n = totalDucksAmount
95+    let g = discountCoefficient
96+    let t = typesAmount
97+    let price = pow((100 + ((n * g) / (10 * t))), 2, 5, 1, 2, DOWN)
98+    (price * 1000000)
99+    }
49100 
50101 
51102 @Callable(i)
52-func addRefKey (refererAddress,refererKey) = if ((i.caller != this))
53-    then throw("admin only")
103+func startDuckHatching (refererAddress) = if ((isLocked() > 0))
104+    then throw("EGG operations are temporarily locked")
54105     else {
55-        let refStateKey = (("key_" + refererKey) + "_refererAddress")
56-        if ((tryGetString(refStateKey) == ""))
57-            then [StringEntry(refStateKey, refererAddress), StringEntry(((("address_" + refererAddress) + "_refererKey_") + refererKey), refererKey)]
58-            else throw((("The ref key \"" + refererKey) + "\" is already registered"))
106+        let totalDucksAmount = tryGetInteger("ducks_amount")
107+        let eggsNeeded = countEggsNeededAmount(totalDucksAmount)
108+        let firstPayment = value(i.payments[0])
109+        if ((firstPayment.assetId != eggsAssetId))
110+            then throw(("You can attach only EGG tokens with the following asset id: " + toBase58String(eggsAssetId)))
111+            else if ((eggsNeeded > firstPayment.amount))
112+                then throw(("To hatch a duck you currently need the following amount of EGGlets: " + toString(eggsNeeded)))
113+                else {
114+                    let refererReward = fraction(eggsNeeded, RefererReward, 100)
115+                    let refCall = invoke(Address(refContractAddress), "refPayment", [refererAddress], [AttachedPayment(eggsAssetId, refererReward)])
116+                    if ((refCall == refCall))
117+                        then [StringEntry(getHatchingStatusKey(toString(i.caller), i.transactionId), HatchingStarted), IntegerEntry(getHatchingFinishHeightKey(toString(i.caller), i.transactionId), (height + delayForHatching)), IntegerEntry("ducks_amount", (totalDucksAmount + 1)), IntegerEntry("ducks_last_price", eggsNeeded), ScriptTransfer(i.caller, (firstPayment.amount - eggsNeeded), eggsAssetId)]
118+                        else throw("Strict value is not equal to itself.")
119+                    }
59120         }
60121 
61122 
62123 
63124 @Callable(i)
64-func refPayment (refererKey) = {
65-    let referalAddress = toString(i.originCaller)
66-    if (if ((i.caller.bytes != incubatorAddress))
67-        then (i.caller.bytes != farmingAddress)
125+func finishDuckHatching (txIdStr) = {
126+    let txId = fromBase58String(txIdStr)
127+    let hatchingStatusKey = getHatchingStatusKey(toString(i.caller), txId)
128+    let finishHeightKey = getHatchingFinishHeightKey(toString(i.caller), txId)
129+    let duckIdKey = getDuckIdKey(toString(i.caller), txId)
130+    let hatchingTxStatus = getStringValue(this, hatchingStatusKey)
131+    let hatchingFinishHeight = getIntegerValue(this, finishHeightKey)
132+    if ((hatchingTxStatus == HatchingFinished))
133+        then {
134+            let duckId = getStringValue(this, getDuckIdKey(toString(i.caller), txId))
135+            throw(("The duck was hatched and claimed already, here is the folowing: " + duckId))
136+            }
137+        else if ((hatchingFinishHeight > height))
138+            then throw((((("Hatching is not finished yet " + toString((hatchingFinishHeight - height))) + " blocks remaining, it will take around ") + toString((hatchingFinishHeight - height))) + " minutes"))
139+            else {
140+                let $t050265092 = getRandomName(txId, hatchingFinishHeight)
141+                let duckGen = $t050265092._1
142+                let farmGen = $t050265092._2
143+                let description = (("{\"genotype\": \"" + duckGen) + "\", \"crossbreeding\": true}")
144+                let asset = Issue(duckGen, description, 1, 0, false, unit, hatchingFinishHeight)
145+                let assetId = calculateAssetId(asset)
146+                let amount = (tryGetInteger(getDuckStatsKey(duckGen)) + 1)
147+[StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(duckIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), duckIdKey), IntegerEntry(getDuckStatsKey(duckGen), amount), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(i.caller, 1, assetId)]
148+                }
149+    }
150+
151+
152+
153+@Callable(i)
154+func issueFreeDuck (address,txIdStr) = if ((i.caller != Address(rebirthAddress)))
155+    then throw("rebirth only")
156+    else {
157+        let txId = fromBase58String(txIdStr)
158+        let hatchingStatusKey = getHatchingStatusKey(address, txId)
159+        let finishHeightKey = getHatchingFinishHeightKey(address, txId)
160+        let totalDucksAmount = tryGetInteger("ducks_amount")
161+        let eggsNeeded = countEggsNeededAmount(totalDucksAmount)
162+        let $t062486333 = getRandomName(txId, (value(transactionHeightById(txId)) + 1))
163+        let duckGen = $t062486333._1
164+        let farmGen = $t062486333._2
165+        let description = (("{\"genotype\": \"" + duckGen) + "\", \"crossbreeding\": true}")
166+        let asset = Issue(duckGen, description, 1, 0, false, unit, height)
167+        let assetId = calculateAssetId(asset)
168+        let amount = (tryGetInteger(getDuckStatsKey(duckGen)) + 1)
169+        let duckIdKey = getDuckIdKey(address, txId)
170+        $Tuple2([IntegerEntry(getHatchingFinishHeightKey(address, txId), height), IntegerEntry("ducks_amount", (totalDucksAmount + 1)), IntegerEntry("ducks_last_price", eggsNeeded), StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(duckIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), duckIdKey), IntegerEntry(getDuckStatsKey(duckGen), amount), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(value(addressFromString(address)), 1, assetId)], toBase58String(assetId))
171+        }
172+
173+
174+
175+@Callable(i)
176+func issueJackpot (address,txIdStr,gen) = if (if ((i.caller != Address(rebirthAddress)))
177+    then (i.caller != this)
178+    else false)
179+    then throw("admin or rebirth only")
180+    else {
181+        let txId = fromBase58String(txIdStr)
182+        let hatchingStatusKey = getHatchingStatusKey(address, txId)
183+        let finishHeightKey = getHatchingFinishHeightKey(address, txId)
184+        let totalDucksAmount = tryGetInteger("ducks_amount")
185+        let eggsNeeded = countEggsNeededAmount(totalDucksAmount)
186+        let $t077767828 = $Tuple2((("DUCK-" + gen) + "-JU"), "8W-J")
187+        let duckGen = $t077767828._1
188+        let farmGen = $t077767828._2
189+        let description = (("{\"genotype\": \"" + duckGen) + "\", \"crossbreeding\": true}")
190+        let asset = Issue(duckGen, description, 1, 0, false, unit, height)
191+        let assetId = calculateAssetId(asset)
192+        let duckIdKey = getDuckIdKey(address, txId)
193+        $Tuple2([IntegerEntry(getHatchingFinishHeightKey(address, txId), height), IntegerEntry("ducks_amount", (totalDucksAmount + 1)), IntegerEntry("ducks_last_price", eggsNeeded), StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(duckIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), duckIdKey), IntegerEntry(getDuckStatsKey(duckGen), (tryGetInteger(getDuckStatsKey(duckGen)) + 1)), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(value(addressFromString(address)), 1, assetId)], toBase58String(assetId))
194+        }
195+
196+
197+
198+@Callable(i)
199+func reduceRarity (assetId,fGen) = {
200+    let asset = fromBase58String(assetId)
201+    if (if ((i.caller != Address(rebirthAddress)))
202+        then (i.caller != this)
68203         else false)
69-        then throw("This method can be called only by farming and incubator dApps")
70-        else if (if ((refererKey == ""))
71-            then (tryGetString((("address_" + referalAddress) + "_referedBy")) == "")
72-            else false)
73-            then nil
74-            else if (masterTryGetBoolean(("farm_" + referalAddress)))
75-                then nil
76-                else {
77-                    let givenReferer =                     match getString(this, (("key_" + refererKey) + "_refererAddress")) {
78-                        case x: String => 
79-                            x
80-                        case _ => 
81-                            refererKey
82-                    }
83-                    let refererAddress =                     match getString(this, (("address_" + referalAddress) + "_referedBy")) {
84-                        case x: String => 
85-                            x
86-                        case _ => 
87-                            givenReferer
88-                    }
89-                    let refAmount = (i.payments[0].amount * getRefMultiplier(refererAddress))
90-                    if ((addressFromString(refererAddress) == unit))
91-                        then nil
92-                        else {
93-                            let refererAddressValue = addressFromStringValue(refererAddress)
94-                            let referalAddressValue = addressFromStringValue(referalAddress)
95-                            let paymentForReferer = refAmount
96-                            let refererEarnedReward = (("address_" + refererAddress) + "_earnedReward")
97-                            let referalDeliveredReward = (((("referer_" + refererAddress) + "_referal_") + referalAddress) + "_deliveredReward")
98-                            if ((refererAddress == referalAddress))
99-                                then nil
100-                                else [StringEntry((("address_" + referalAddress) + "_referedBy"), refererAddress), IntegerEntry(refererEarnedReward, (tryGetInteger(refererEarnedReward) + (paymentForReferer / 1000000))), IntegerEntry(referalDeliveredReward, (tryGetInteger(referalDeliveredReward) + (paymentForReferer / 1000000))), IntegerEntry((((("referer_" + refererAddress) + "_referal_") + referalAddress) + "_amount"), (tryGetInteger((((("referer_" + refererAddress) + "_referal_") + referalAddress) + "_amount")) + 1)), ScriptTransfer(refererAddressValue, paymentForReferer, eggsAssetId)]
101-                            }
102-                    }
204+        then throw("admin or rebirth only")
205+        else {
206+            let duckGen = value(assetInfo(asset)).name
207+            let letter = takeRight(take(duckGen, 6), 1)
208+            let farmGen = (("8" + letter) + "-G")
209+[IntegerEntry(getDuckStatsKey(duckGen), (tryGetInteger(getDuckStatsKey(duckGen)) - 1)), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) - 1))]
210+            }
103211     }
104212 
105213 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let eggsAssetId = base58'C1iWsKGqLwjHUndiQ7iXpdmPum9PeCDFfyXBdJJosDRS'
4+let eggsAssetId = base58'JCGDtrVy64cCJ1wCKfCaiNQMnyYwii71TbE5QeAHfxgF'
55 
6-let incubatorAddress = base58'3PEktVux2RhchSN63DsDo4b4mz4QqzKSeDv'
6+let delayForHatching = 2
77 
8-let farmingAddress = base58'3PAETTtuW7aSiyKtn9GuML3RgtV1xdq1mQW'
8+let discountCoefficient = 10
99 
10-let collectiveMasterAddress = base58'3PDktsxDVEcoobpEBJcausnKo4enhcWUDEF'
10+let typesAmount = 7
1111 
12-let ref20 = ["3PR66kMvUDE1QvYAg8r6e1xDX7QbnTV7JW5"]
12+let refContractAddress = base58'3P8ejTkfRpz9WqCwCuihesNXU5k3zmFFfVe'
1313 
14-func tryGetInteger (key) = match getInteger(this, key) {
15-    case b: Int => 
16-        b
17-    case _ => 
18-        0
19-}
14+let RefererReward = 5
15+
16+let HatchingStarted = "HATCHING_STARTED"
17+
18+let HatchingFinished = "HATCHING_FINISHED"
19+
20+let rebirthAddress = base58'3PCC6fVHNa6289DTDmcUo3RuLaFmteZZsmQ'
21+
22+func isLocked () = {
23+    let masterAddress = Address(base58'3PEPftf2kWZDmAaWBjs6BUJa9957kiA2PkU')
24+    match getInteger(masterAddress, "egglock") {
25+        case b: Int => 
26+            b
27+        case _ => 
28+            0
29+    }
30+    }
2031 
2132 
22-func masterTryGetBoolean (key) = match getBoolean(Address(collectiveMasterAddress), key) {
23-    case b: Boolean => 
24-        b
25-    case _ => 
26-        false
27-}
33+func getHatchingStatusKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_status")
2834 
2935 
30-func isValidAddress (address) = match addressFromString(address) {
31-    case a: Address => 
32-        true
33-    case _ => 
34-        false
35-}
36+func getHatchingFinishHeightKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_fh")
3637 
3738 
38-func tryGetString (key) = match getString(this, key) {
39-    case a: String => 
40-        a
41-    case _ => 
42-        ""
43-}
39+func getDuckIdKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_di")
4440 
4541 
46-func getRefMultiplier (refererAddress) = if ((indexOf(ref20, refererAddress) != unit))
47-    then 4
48-    else 1
42+func getDuckStatsKey (genString) = (("stats_" + genString) + "_amount")
43+
44+
45+func tryGetInteger (key) = {
46+    let val =     match getInteger(this, key) {
47+        case b: Int => 
48+            b
49+        case _ => 
50+            0
51+    }
52+    val
53+    }
54+
55+
56+func getRandomNumber (variants,txId,hatchingFinishHeight,offset) = {
57+    let randomSeedBlock = value(blockInfoByHeight((hatchingFinishHeight - 1)))
58+    let randomHash = sha256((txId + value(randomSeedBlock.vrf)))
59+    (toInt(randomHash, (offset * 8)) % variants)
60+    }
61+
62+
63+func wasUniqueBorn (gen) = tryGetInteger(getDuckStatsKey(gen))
64+
65+
66+func getRandomName (txId,hatchingFinishHeight) = {
67+    let jackpotRandom = getRandomNumber(500, txId, hatchingFinishHeight, 0)
68+    if (if ((jackpotRandom == 111))
69+        then (wasUniqueBorn("DUCK-WWWWWWWM-JU") == 0)
70+        else false)
71+        then $Tuple2("DUCK-WWWWWWWM-JU", "8W-J")
72+        else {
73+            let typeRandom = getRandomNumber(4, txId, hatchingFinishHeight, 0)
74+            let colorRandom = getRandomNumber(4, txId, hatchingFinishHeight, 1)
75+            let color = if ((colorRandom == 0))
76+                then "Y"
77+                else if ((colorRandom == 1))
78+                    then "G"
79+                    else if ((colorRandom == 2))
80+                        then "B"
81+                        else "R"
82+            if ((typeRandom == 0))
83+                then $Tuple2(("DUCK-FFFFFFFF-G" + color), "8F-G")
84+                else if ((typeRandom == 1))
85+                    then $Tuple2(("DUCK-DDDDDDDD-G" + color), "8D-G")
86+                    else if ((typeRandom == 2))
87+                        then $Tuple2(("DUCK-GGGGGGGG-G" + color), "8G-G")
88+                        else $Tuple2(("DUCK-EEEEEEEE-G" + color), "8E-G")
89+            }
90+    }
91+
92+
93+func countEggsNeededAmount (totalDucksAmount) = {
94+    let n = totalDucksAmount
95+    let g = discountCoefficient
96+    let t = typesAmount
97+    let price = pow((100 + ((n * g) / (10 * t))), 2, 5, 1, 2, DOWN)
98+    (price * 1000000)
99+    }
49100 
50101 
51102 @Callable(i)
52-func addRefKey (refererAddress,refererKey) = if ((i.caller != this))
53-    then throw("admin only")
103+func startDuckHatching (refererAddress) = if ((isLocked() > 0))
104+    then throw("EGG operations are temporarily locked")
54105     else {
55-        let refStateKey = (("key_" + refererKey) + "_refererAddress")
56-        if ((tryGetString(refStateKey) == ""))
57-            then [StringEntry(refStateKey, refererAddress), StringEntry(((("address_" + refererAddress) + "_refererKey_") + refererKey), refererKey)]
58-            else throw((("The ref key \"" + refererKey) + "\" is already registered"))
106+        let totalDucksAmount = tryGetInteger("ducks_amount")
107+        let eggsNeeded = countEggsNeededAmount(totalDucksAmount)
108+        let firstPayment = value(i.payments[0])
109+        if ((firstPayment.assetId != eggsAssetId))
110+            then throw(("You can attach only EGG tokens with the following asset id: " + toBase58String(eggsAssetId)))
111+            else if ((eggsNeeded > firstPayment.amount))
112+                then throw(("To hatch a duck you currently need the following amount of EGGlets: " + toString(eggsNeeded)))
113+                else {
114+                    let refererReward = fraction(eggsNeeded, RefererReward, 100)
115+                    let refCall = invoke(Address(refContractAddress), "refPayment", [refererAddress], [AttachedPayment(eggsAssetId, refererReward)])
116+                    if ((refCall == refCall))
117+                        then [StringEntry(getHatchingStatusKey(toString(i.caller), i.transactionId), HatchingStarted), IntegerEntry(getHatchingFinishHeightKey(toString(i.caller), i.transactionId), (height + delayForHatching)), IntegerEntry("ducks_amount", (totalDucksAmount + 1)), IntegerEntry("ducks_last_price", eggsNeeded), ScriptTransfer(i.caller, (firstPayment.amount - eggsNeeded), eggsAssetId)]
118+                        else throw("Strict value is not equal to itself.")
119+                    }
59120         }
60121 
61122 
62123 
63124 @Callable(i)
64-func refPayment (refererKey) = {
65-    let referalAddress = toString(i.originCaller)
66-    if (if ((i.caller.bytes != incubatorAddress))
67-        then (i.caller.bytes != farmingAddress)
125+func finishDuckHatching (txIdStr) = {
126+    let txId = fromBase58String(txIdStr)
127+    let hatchingStatusKey = getHatchingStatusKey(toString(i.caller), txId)
128+    let finishHeightKey = getHatchingFinishHeightKey(toString(i.caller), txId)
129+    let duckIdKey = getDuckIdKey(toString(i.caller), txId)
130+    let hatchingTxStatus = getStringValue(this, hatchingStatusKey)
131+    let hatchingFinishHeight = getIntegerValue(this, finishHeightKey)
132+    if ((hatchingTxStatus == HatchingFinished))
133+        then {
134+            let duckId = getStringValue(this, getDuckIdKey(toString(i.caller), txId))
135+            throw(("The duck was hatched and claimed already, here is the folowing: " + duckId))
136+            }
137+        else if ((hatchingFinishHeight > height))
138+            then throw((((("Hatching is not finished yet " + toString((hatchingFinishHeight - height))) + " blocks remaining, it will take around ") + toString((hatchingFinishHeight - height))) + " minutes"))
139+            else {
140+                let $t050265092 = getRandomName(txId, hatchingFinishHeight)
141+                let duckGen = $t050265092._1
142+                let farmGen = $t050265092._2
143+                let description = (("{\"genotype\": \"" + duckGen) + "\", \"crossbreeding\": true}")
144+                let asset = Issue(duckGen, description, 1, 0, false, unit, hatchingFinishHeight)
145+                let assetId = calculateAssetId(asset)
146+                let amount = (tryGetInteger(getDuckStatsKey(duckGen)) + 1)
147+[StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(duckIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), duckIdKey), IntegerEntry(getDuckStatsKey(duckGen), amount), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(i.caller, 1, assetId)]
148+                }
149+    }
150+
151+
152+
153+@Callable(i)
154+func issueFreeDuck (address,txIdStr) = if ((i.caller != Address(rebirthAddress)))
155+    then throw("rebirth only")
156+    else {
157+        let txId = fromBase58String(txIdStr)
158+        let hatchingStatusKey = getHatchingStatusKey(address, txId)
159+        let finishHeightKey = getHatchingFinishHeightKey(address, txId)
160+        let totalDucksAmount = tryGetInteger("ducks_amount")
161+        let eggsNeeded = countEggsNeededAmount(totalDucksAmount)
162+        let $t062486333 = getRandomName(txId, (value(transactionHeightById(txId)) + 1))
163+        let duckGen = $t062486333._1
164+        let farmGen = $t062486333._2
165+        let description = (("{\"genotype\": \"" + duckGen) + "\", \"crossbreeding\": true}")
166+        let asset = Issue(duckGen, description, 1, 0, false, unit, height)
167+        let assetId = calculateAssetId(asset)
168+        let amount = (tryGetInteger(getDuckStatsKey(duckGen)) + 1)
169+        let duckIdKey = getDuckIdKey(address, txId)
170+        $Tuple2([IntegerEntry(getHatchingFinishHeightKey(address, txId), height), IntegerEntry("ducks_amount", (totalDucksAmount + 1)), IntegerEntry("ducks_last_price", eggsNeeded), StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(duckIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), duckIdKey), IntegerEntry(getDuckStatsKey(duckGen), amount), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(value(addressFromString(address)), 1, assetId)], toBase58String(assetId))
171+        }
172+
173+
174+
175+@Callable(i)
176+func issueJackpot (address,txIdStr,gen) = if (if ((i.caller != Address(rebirthAddress)))
177+    then (i.caller != this)
178+    else false)
179+    then throw("admin or rebirth only")
180+    else {
181+        let txId = fromBase58String(txIdStr)
182+        let hatchingStatusKey = getHatchingStatusKey(address, txId)
183+        let finishHeightKey = getHatchingFinishHeightKey(address, txId)
184+        let totalDucksAmount = tryGetInteger("ducks_amount")
185+        let eggsNeeded = countEggsNeededAmount(totalDucksAmount)
186+        let $t077767828 = $Tuple2((("DUCK-" + gen) + "-JU"), "8W-J")
187+        let duckGen = $t077767828._1
188+        let farmGen = $t077767828._2
189+        let description = (("{\"genotype\": \"" + duckGen) + "\", \"crossbreeding\": true}")
190+        let asset = Issue(duckGen, description, 1, 0, false, unit, height)
191+        let assetId = calculateAssetId(asset)
192+        let duckIdKey = getDuckIdKey(address, txId)
193+        $Tuple2([IntegerEntry(getHatchingFinishHeightKey(address, txId), height), IntegerEntry("ducks_amount", (totalDucksAmount + 1)), IntegerEntry("ducks_last_price", eggsNeeded), StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(duckIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), duckIdKey), IntegerEntry(getDuckStatsKey(duckGen), (tryGetInteger(getDuckStatsKey(duckGen)) + 1)), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(value(addressFromString(address)), 1, assetId)], toBase58String(assetId))
194+        }
195+
196+
197+
198+@Callable(i)
199+func reduceRarity (assetId,fGen) = {
200+    let asset = fromBase58String(assetId)
201+    if (if ((i.caller != Address(rebirthAddress)))
202+        then (i.caller != this)
68203         else false)
69-        then throw("This method can be called only by farming and incubator dApps")
70-        else if (if ((refererKey == ""))
71-            then (tryGetString((("address_" + referalAddress) + "_referedBy")) == "")
72-            else false)
73-            then nil
74-            else if (masterTryGetBoolean(("farm_" + referalAddress)))
75-                then nil
76-                else {
77-                    let givenReferer =                     match getString(this, (("key_" + refererKey) + "_refererAddress")) {
78-                        case x: String => 
79-                            x
80-                        case _ => 
81-                            refererKey
82-                    }
83-                    let refererAddress =                     match getString(this, (("address_" + referalAddress) + "_referedBy")) {
84-                        case x: String => 
85-                            x
86-                        case _ => 
87-                            givenReferer
88-                    }
89-                    let refAmount = (i.payments[0].amount * getRefMultiplier(refererAddress))
90-                    if ((addressFromString(refererAddress) == unit))
91-                        then nil
92-                        else {
93-                            let refererAddressValue = addressFromStringValue(refererAddress)
94-                            let referalAddressValue = addressFromStringValue(referalAddress)
95-                            let paymentForReferer = refAmount
96-                            let refererEarnedReward = (("address_" + refererAddress) + "_earnedReward")
97-                            let referalDeliveredReward = (((("referer_" + refererAddress) + "_referal_") + referalAddress) + "_deliveredReward")
98-                            if ((refererAddress == referalAddress))
99-                                then nil
100-                                else [StringEntry((("address_" + referalAddress) + "_referedBy"), refererAddress), IntegerEntry(refererEarnedReward, (tryGetInteger(refererEarnedReward) + (paymentForReferer / 1000000))), IntegerEntry(referalDeliveredReward, (tryGetInteger(referalDeliveredReward) + (paymentForReferer / 1000000))), IntegerEntry((((("referer_" + refererAddress) + "_referal_") + referalAddress) + "_amount"), (tryGetInteger((((("referer_" + refererAddress) + "_referal_") + referalAddress) + "_amount")) + 1)), ScriptTransfer(refererAddressValue, paymentForReferer, eggsAssetId)]
101-                            }
102-                    }
204+        then throw("admin or rebirth only")
205+        else {
206+            let duckGen = value(assetInfo(asset)).name
207+            let letter = takeRight(take(duckGen, 6), 1)
208+            let farmGen = (("8" + letter) + "-G")
209+[IntegerEntry(getDuckStatsKey(duckGen), (tryGetInteger(getDuckStatsKey(duckGen)) - 1)), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) - 1))]
210+            }
103211     }
104212 
105213 
106214 @Verifier(tx)
107215 func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
108216 
github/deemru/w8io/6500d08 
53.90 ms ◑