w8 · tx · 2PJ···U7j

tx · 2PJZQNcRpjQerAmFKMPkhXprr1zc78Ep5wzkW6sHdU7j

3PGvfeMaCezvCWyz4RGeoQpmwzrWwv7NLYU:  -0.01600000 Waves

2023.09.15 23:57 [3822774] smart account 3PGvfeMaCezvCWyz4RGeoQpmwzrWwv7NLYU > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2PJZQNcRpjQerAmFKMPkhXprr1zc78Ep5wzkW6sHdU7j",
    "fee": 1600000,
    "feeAssetId": null,
    "timestamp": 1694811447358,
    "version": 2,
    "chainId": 87,
    "sender": "3PGvfeMaCezvCWyz4RGeoQpmwzrWwv7NLYU",
    "senderPublicKey": "Un4PmpFshNAiDG32eEAyePX7JHvuxkwyMAYYpP4cFtg",
    "proofs": [
        "3VdyZieVPCDmCmEr5GMoWRhLznvB3Jr78Z1e4xt1YjJtUtobGD7AYLSesV2Bi84K6hpBRPhQuiKkrg3eweY6yN9E"
    ],
    "script": "base64:AAIFAAAAAAAAABwIAhIDCgEIEgQKAggIEgMKAQESAwoBCBIDCgEIAAAAHgEAAAAUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwAAAACAAAAB2FkZHJlc3MAAAADa2V5BAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAAB2FkZHJlc3MFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAgAAAAABAAAADHRyeUdldFN0cmluZwAAAAEAAAADa2V5CQEAAAAUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwAAAACBQAAAAR0aGlzBQAAAANrZXkBAAAAF3N0YXRpY0tleV9vcmFjbGVBZGRyZXNzAAAAAAIAAAAUc3RhdGljX29yYWNsZUFkZHJlc3MBAAAAEnN0YXRpY0tleV9leHRyYUZlZQAAAAACAAAAD3N0YXRpY19leHRyYUZlZQEAAAAXc3RhdGljS2V5X2ZlZUFnZ3JlZ2F0b3IAAAAAAgAAABRzdGF0aWNfZmVlQWdncmVnYXRvcgEAAAAUc3RhdGljS2V5X2VnZ0Fzc2V0SWQAAAAAAgAAABFzdGF0aWNfZWdnQXNzZXRJZAEAAAAcc3RhdGljS2V5X3JlZkNvbnRyYWN0QWRkcmVzcwAAAAACAAAAGXN0YXRpY19yZWZDb250cmFjdEFkZHJlc3MBAAAAHnN0YXRpY0tleV90dXJ0bGVSZWJpcnRoQWRkcmVzcwAAAAACAAAAG3N0YXRpY190dXJ0bGVSZWJpcnRoQWRkcmVzcwEAAAAJZ2V0T3JhY2xlAAAAAAkBAAAAB0FkZHJlc3MAAAABCQACWQAAAAEJAQAAAAx0cnlHZXRTdHJpbmcAAAABCQEAAAAXc3RhdGljS2V5X29yYWNsZUFkZHJlc3MAAAAAAQAAABBnZXRGZWVBZ2dyZWdhdG9yAAAAAAkBAAAAB0FkZHJlc3MAAAABCQACWQAAAAEJAQAAABR0cnlHZXRTdHJpbmdFeHRlcm5hbAAAAAIJAQAAAAlnZXRPcmFjbGUAAAAACQEAAAAXc3RhdGljS2V5X2ZlZUFnZ3JlZ2F0b3IAAAAAAQAAAA1nZXRFZ2dBc3NldElkAAAAAAkAAlkAAAABCQEAAAAUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwAAAACCQEAAAAJZ2V0T3JhY2xlAAAAAAkBAAAAFHN0YXRpY0tleV9lZ2dBc3NldElkAAAAAAEAAAAOZ2V0QnVybkFkZHJlc3MAAAAACQEAAAAHQWRkcmVzcwAAAAEJAAJZAAAAAQkBAAAAFHRyeUdldFN0cmluZ0V4dGVybmFsAAAAAgkBAAAACWdldE9yYWNsZQAAAAACAAAAEnN0YXRpY19idXJuQWRkcmVzcwEAAAAVZ2V0UmVmQ29udHJhY3RBZGRyZXNzAAAAAAkBAAAAB0FkZHJlc3MAAAABCQACWQAAAAEJAQAAABR0cnlHZXRTdHJpbmdFeHRlcm5hbAAAAAIJAQAAAAlnZXRPcmFjbGUAAAAACQEAAAAcc3RhdGljS2V5X3JlZkNvbnRyYWN0QWRkcmVzcwAAAAABAAAAF2dldFR1cnRsZVJlYmlydGhBZGRyZXNzAAAAAAkBAAAAB0FkZHJlc3MAAAABCQACWQAAAAEJAQAAABR0cnlHZXRTdHJpbmdFeHRlcm5hbAAAAAIJAQAAAAlnZXRPcmFjbGUAAAAACQEAAAAec3RhdGljS2V5X3R1cnRsZVJlYmlydGhBZGRyZXNzAAAAAAEAAAAWY2hlY2tBZGRpdGlvbmFsUGF5bWVudAAAAAEAAAAHcGF5bWVudAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAAHcGF5bWVudAAAAAdhc3NldElkCQAAAgAAAAECAAAAGkJEQ0FQOiBQbGVhc2UgYXR0YWNoIHdhdmVzBAAAAAlmZWVBbW91bnQJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIJAQAAAAlnZXRPcmFjbGUAAAAACQEAAAASc3RhdGljS2V5X2V4dHJhRmVlAAAAAAMJAQAAAAIhPQAAAAIIBQAAAAdwYXltZW50AAAABmFtb3VudAUAAAAJZmVlQW1vdW50CQAAAgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAB1CRENBUDogUGxlYXNlIGF0dGFjaCBleGFjdGx5IAkAAaQAAAABBQAAAAlmZWVBbW91bnQCAAAAEyBhbW91bnQgb2Ygd2F2ZWxldHMJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEGdldEZlZUFnZ3JlZ2F0b3IAAAAABQAAAAlmZWVBbW91bnQFAAAABHVuaXQFAAAAA25pbAAAAAAQZGVsYXlGb3JIYXRjaGluZwAAAAAAAAAAAgAAAAALdHlwZXNBbW91bnQAAAAAAAAAAAQAAAAAD0hhdGNoaW5nU3RhcnRlZAIAAAAQSEFUQ0hJTkdfU1RBUlRFRAAAAAAQSGF0Y2hpbmdGaW5pc2hlZAIAAAARSEFUQ0hJTkdfRklOSVNIRUQBAAAACGlzTG9ja2VkAAAAAAQAAAANbWFzdGVyQWRkcmVzcwkBAAAAB0FkZHJlc3MAAAABAQAAABoBV4iyBiHwgMpBojIAIx7/qYkiSDndcBbJCQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAA1tYXN0ZXJBZGRyZXNzAgAAAAdlZ2dsb2NrAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWIFAAAAByRtYXRjaDAFAAAAAWIAAAAAAAAAAAABAAAAFGdldEhhdGNoaW5nU3RhdHVzS2V5AAAAAgAAAAdhZGRyZXNzAAAABHR4SWQJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAAB2FkZHJlc3MCAAAAAV8JAAJYAAAAAQUAAAAEdHhJZAIAAAAHX3N0YXR1cwEAAAAaZ2V0SGF0Y2hpbmdGaW5pc2hIZWlnaHRLZXkAAAACAAAAB2FkZHJlc3MAAAAEdHhJZAkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAHYWRkcmVzcwIAAAABXwkAAlgAAAABBQAAAAR0eElkAgAAAANfZmgBAAAADGdldFRSVExJZEtleQAAAAIAAAAHYWRkcmVzcwAAAAR0eElkCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAdhZGRyZXNzAgAAAAFfCQACWAAAAAEFAAAABHR4SWQCAAAAA19kaQEAAAAPZ2V0VFJUTFN0YXRzS2V5AAAAAQAAAAlnZW5TdHJpbmcJAAEsAAAAAgkAASwAAAACAgAAAAZzdGF0c18FAAAACWdlblN0cmluZwIAAAAHX2Ftb3VudAEAAAANdHJ5R2V0SW50ZWdlcgAAAAEAAAADa2V5BAAAAAN2YWwEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWIFAAAAByRtYXRjaDAFAAAAAWIAAAAAAAAAAAAFAAAAA3ZhbAAAAAATZGlzY291bnRDb2VmZmljaWVudAkBAAAADXRyeUdldEludGVnZXIAAAABAgAAABNkaXNjb3VudENvZWZmaWNpZW50AQAAAA9nZXRSYW5kb21OdW1iZXIAAAAEAAAACHZhcmlhbnRzAAAABHR4SWQAAAAUaGF0Y2hpbmdGaW5pc2hIZWlnaHQAAAAGb2Zmc2V0BAAAAA9yYW5kb21TZWVkQmxvY2sJAQAAAAV2YWx1ZQAAAAEJAAPtAAAAAQkAAGUAAAACBQAAABRoYXRjaGluZ0ZpbmlzaEhlaWdodAAAAAAAAAAAAQQAAAAKcmFuZG9tSGFzaAkAAfcAAAABCQAAywAAAAIFAAAABHR4SWQJAQAAAAV2YWx1ZQAAAAEIBQAAAA9yYW5kb21TZWVkQmxvY2sAAAADdnJmCQAAagAAAAIJAASyAAAAAgUAAAAKcmFuZG9tSGFzaAkAAGgAAAACBQAAAAZvZmZzZXQAAAAAAAAAAAgFAAAACHZhcmlhbnRzAQAAAA1nZXRSYW5kb21OYW1lAAAAAgAAAAR0eElkAAAAFGhhdGNoaW5nRmluaXNoSGVpZ2h0BAAAAAp0eXBlUmFuZG9tCQEAAAAPZ2V0UmFuZG9tTnVtYmVyAAAABAAAAAAAAAAABQUAAAAEdHhJZAUAAAAUaGF0Y2hpbmdGaW5pc2hIZWlnaHQAAAAAAAAAAAAEAAAAC2NvbG9yUmFuZG9tCQEAAAAPZ2V0UmFuZG9tTnVtYmVyAAAABAAAAAAAAAAABAUAAAAEdHhJZAUAAAAUaGF0Y2hpbmdGaW5pc2hIZWlnaHQAAAAAAAAAAAEEAAAABWNvbG9yAwkAAAAAAAACBQAAAAtjb2xvclJhbmRvbQAAAAAAAAAAAAIAAAABUgMJAAAAAAAAAgUAAAALY29sb3JSYW5kb20AAAAAAAAAAAECAAAAAUQDCQAAAAAAAAIFAAAAC2NvbG9yUmFuZG9tAAAAAAAAAAACAgAAAAFTAgAAAAFHAwkAAAAAAAACBQAAAAp0eXBlUmFuZG9tAAAAAAAAAAAACQAFFAAAAAIJAAEsAAAAAgIAAAAPVFJUTC1BQUFBQUFBQS1HBQAAAAVjb2xvcgIAAAAEOEEtRwMJAAAAAAAAAgUAAAAKdHlwZVJhbmRvbQAAAAAAAAAAAQkABRQAAAACCQABLAAAAAICAAAAD1RSVEwtQkJCQkJCQkItRwUAAAAFY29sb3ICAAAABDhCLUcDCQAAAAAAAAIFAAAACnR5cGVSYW5kb20AAAAAAAAAAAIJAAUUAAAAAgkAASwAAAACAgAAAA9UUlRMLUNDQ0NDQ0NDLUcFAAAABWNvbG9yAgAAAAQ4Qy1HAwkAAAAAAAACBQAAAAp0eXBlUmFuZG9tAAAAAAAAAAADCQAFFAAAAAIJAAEsAAAAAgIAAAAPVFJUTC1ERERERERERC1HBQAAAAVjb2xvcgIAAAAEOEQtRwkABRQAAAACCQABLAAAAAICAAAAD1RSVEwtRUVFRUVFRUUtRwUAAAAFY29sb3ICAAAABDhFLUcBAAAAFWNvdW50RWdnc05lZWRlZEFtb3VudAAAAAEAAAAQdG90YWxUUlRMc0Ftb3VudAQAAAABbgUAAAAQdG90YWxUUlRMc0Ftb3VudAQAAAABZwUAAAATZGlzY291bnRDb2VmZmljaWVudAQAAAABdAUAAAALdHlwZXNBbW91bnQEAAAABXByaWNlCQAAbAAAAAYJAABkAAAAAgAAAAAAAAAAZAkAAGkAAAACCQAAaAAAAAIFAAAAAW4FAAAAAWcJAABoAAAAAgAAAAAAAAAACgUAAAABdAAAAAAAAAAAAgAAAAAAAAAABQAAAAAAAAAAAQAAAAAAAAAAAgUAAAAERE9XTgkAAGgAAAACBQAAAAVwcmljZQAAAAAAABbjYAEAAAAJYXNCb29sZWFuAAAAAQAAAAV2YWx1ZQQAAAAHJG1hdGNoMAUAAAAFdmFsdWUDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAB0Jvb2xlYW4EAAAAB2Jvb2xlYW4FAAAAByRtYXRjaDAFAAAAB2Jvb2xlYW4JAAACAAAAAQIAAAAhVEk6IHdyb25nIHR5cGUsIGV4cGVjdGVkOiBCb29sZWFuAAAABQAAAAFpAQAAAA9jb25maWd1cmVPcmFjbGUAAAABAAAABm9yYWNsZQMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAAA9JQ1U6IGFkbWluIG9ubHkJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAAUc3RhdGljX29yYWNsZUFkZHJlc3MFAAAABm9yYWNsZQUAAAADbmlsAAAAAWkBAAAAD2lzc3VlRnJlZVR1cnRsZQAAAAIAAAAHYWRkcmVzcwAAAAd0eElkU3RyAwkBAAAAAiE9AAAAAggFAAAAAWkAAAAGY2FsbGVyCQEAAAAXZ2V0VHVydGxlUmViaXJ0aEFkZHJlc3MAAAAACQAAAgAAAAECAAAAEklTRkQ6IHJlYmlydGggb25seQQAAAAEdHhJZAkAAlkAAAABBQAAAAd0eElkU3RyBAAAABFoYXRjaGluZ1N0YXR1c0tleQkBAAAAFGdldEhhdGNoaW5nU3RhdHVzS2V5AAAAAgUAAAAHYWRkcmVzcwUAAAAEdHhJZAQAAAAPZmluaXNoSGVpZ2h0S2V5CQEAAAAaZ2V0SGF0Y2hpbmdGaW5pc2hIZWlnaHRLZXkAAAACBQAAAAdhZGRyZXNzBQAAAAR0eElkBAAAABB0b3RhbER1Y2tzQW1vdW50CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAADXR1cnRsZV9hbW91bnQEAAAACmVnZ3NOZWVkZWQJAQAAABVjb3VudEVnZ3NOZWVkZWRBbW91bnQAAAABBQAAABB0b3RhbER1Y2tzQW1vdW50BAAAAAskdDA1MTg4NTMzMAkBAAAADWdldFJhbmRvbU5hbWUAAAACBQAAAAR0eElkCQAAZAAAAAIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkAA+kAAAABBQAAAAR0eElkCQABLAAAAAIJAAEsAAAAAgUAAAAHdHhJZFN0cgIAAAALIG5vdCBmb3VuZCAJAAJYAAAAAQUAAAAEdHhJZAAAAAAAAAAAAQQAAAAHVFJUTEdlbggFAAAACyR0MDUxODg1MzMwAAAAAl8xBAAAAAdmYXJtR2VuCAUAAAALJHQwNTE4ODUzMzAAAAACXzIEAAAAC2Rlc2NyaXB0aW9uCQABLAAAAAIJAAEsAAAAAgIAAAAOeyJnZW5vdHlwZSI6ICIFAAAAB1RSVExHZW4CAAAAGSIsICJjcm9zc2JyZWVkaW5nIjogdHJ1ZX0EAAAABWFzc2V0CQAEQwAAAAcFAAAAB1RSVExHZW4FAAAAC2Rlc2NyaXB0aW9uAAAAAAAAAAABAAAAAAAAAAAABwUAAAAEdW5pdAUAAAAGaGVpZ2h0BAAAAAdhc3NldElkCQAEOAAAAAEFAAAABWFzc2V0BAAAAAZhbW91bnQJAABkAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABCQEAAAAPZ2V0VFJUTFN0YXRzS2V5AAAAAQUAAAAHVFJUTEdlbgAAAAAAAAAAAQQAAAAJZHVja0lkS2V5CQEAAAAMZ2V0VFJUTElkS2V5AAAAAgUAAAAHYWRkcmVzcwUAAAAEdHhJZAkABRQAAAACCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAAaZ2V0SGF0Y2hpbmdGaW5pc2hIZWlnaHRLZXkAAAACBQAAAAdhZGRyZXNzBQAAAAR0eElkBQAAAAZoZWlnaHQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADXR1cnRsZV9hbW91bnQJAABkAAAAAgUAAAAQdG90YWxEdWNrc0Ftb3VudAAAAAAAAAAAAQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAARdHVydGxlX2xhc3RfcHJpY2UJAABpAAAAAgUAAAAKZWdnc05lZWRlZAAAAAAAABbjYAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAABFoYXRjaGluZ1N0YXR1c0tleQUAAAAQSGF0Y2hpbmdGaW5pc2hlZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAAlkdWNrSWRLZXkJAAJYAAAAAQUAAAAHYXNzZXRJZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQACWAAAAAEFAAAAB2Fzc2V0SWQFAAAACWR1Y2tJZEtleQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAD2dldFRSVExTdGF0c0tleQAAAAEFAAAAB1RSVExHZW4FAAAABmFtb3VudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAABnN0YXRzXwUAAAAHZmFybUdlbgIAAAAJX3F1YW50aXR5CQAAZAAAAAIJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAABnN0YXRzXwUAAAAHZmFybUdlbgIAAAAJX3F1YW50aXR5AAAAAAAAAAABCQAETAAAAAIFAAAABWFzc2V0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAAAV2YWx1ZQAAAAEJAAQmAAAAAQUAAAAHYWRkcmVzcwAAAAAAAAAAAQUAAAAHYXNzZXRJZAUAAAADbmlsCQACWAAAAAEFAAAAB2Fzc2V0SWQAAAABaQEAAAALc2V0RGlzY291bnQAAAABAAAAA3ZhbAMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAAAphZG1pbl9vbmx5CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABNkaXNjb3VudENvZWZmaWNpZW50BQAAAAN2YWwFAAAAA25pbAAAAAFpAQAAABFzdGFydFRSVExIYXRjaGluZwAAAAEAAAAOcmVmZXJlckFkZHJlc3MEAAAAC2ZlZVZhbGlkYXRlCQEAAAAWY2hlY2tBZGRpdGlvbmFsUGF5bWVudAAAAAEJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAADCQAAAAAAAAIFAAAAC2ZlZVZhbGlkYXRlBQAAAAtmZWVWYWxpZGF0ZQMJAABmAAAAAgkBAAAACGlzTG9ja2VkAAAAAAAAAAAAAAAAAAkAAAIAAAABAgAAACVFR0cgb3BlcmF0aW9ucyBhcmUgdGVtcG9yYXJpbHkgbG9ja2VkBAAAABF0b3RhbFR1cnRsZUFtb3VudAkBAAAADXRyeUdldEludGVnZXIAAAABAgAAAA10dXJ0bGVfYW1vdW50BAAAAAplZ2dzTmVlZGVkCQEAAAAVY291bnRFZ2dzTmVlZGVkQW1vdW50AAAAAQUAAAARdG90YWxUdXJ0bGVBbW91bnQEAAAAB3Jlc3VsdHMJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAFGdldEhhdGNoaW5nU3RhdHVzS2V5AAAAAgkABCUAAAABCAUAAAABaQAAAAxvcmlnaW5DYWxsZXIIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQFAAAAD0hhdGNoaW5nU3RhcnRlZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAGmdldEhhdGNoaW5nRmluaXNoSGVpZ2h0S2V5AAAAAgkABCUAAAABCAUAAAABaQAAAAxvcmlnaW5DYWxsZXIIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQJAABkAAAAAgUAAAAGaGVpZ2h0BQAAABBkZWxheUZvckhhdGNoaW5nCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA10dXJ0bGVfYW1vdW50CQAAZAAAAAIFAAAAEXRvdGFsVHVydGxlQW1vdW50AAAAAAAAAAABCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABF0dXJ0bGVfbGFzdF9wcmljZQkAAGkAAAACBQAAAAplZ2dzTmVlZGVkAAAAAAAAFuNgBQAAAANuaWwEAAAACWxlZnRUb1BheQUAAAAKZWdnc05lZWRlZAQAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIFAAAACWxlZnRUb1BheQAAAAAAAAAAAAQAAAAMZmlyc3RQYXltZW50CQEAAAAFdmFsdWUAAAABCQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAABAwkBAAAAAiE9AAAAAggFAAAADGZpcnN0UGF5bWVudAAAAAdhc3NldElkCQEAAAANZ2V0RWdnQXNzZXRJZAAAAAAJAAACAAAAAQkAASwAAAACAgAAAEBUSTogWW91IGNhbiBhdHRhY2ggb25seSBFR0cgdG9rZW5zIHdpdGggdGhlIGZvbGxvd2luZyBhc3NldCBpZDogCQACWAAAAAEJAQAAAA1nZXRFZ2dBc3NldElkAAAAAAMJAABmAAAAAgUAAAAJbGVmdFRvUGF5CAUAAAAMZmlyc3RQYXltZW50AAAABmFtb3VudAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAEdUSTogVG8gYnV5IGEgYmVhY2ggeW91IGN1cnJlbnRseSBuZWVkIHRoZSBmb2xsb3dpbmcgYW1vdW50IG9mIEVHR2xldHM6IAkAAaQAAAABBQAAAAlsZWZ0VG9QYXkCAAAAASAJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBAAAABVyZWZlcmVyUmV3YXJkRm9yYmVhY2gJAABrAAAAAwUAAAAJbGVmdFRvUGF5AAAAAAAAAAAFAAAAAAAAAABkBAAAAAdyZWZDYWxsCQEAAAAJYXNCb29sZWFuAAAAAQkAA/wAAAAECQEAAAAVZ2V0UmVmQ29udHJhY3RBZGRyZXNzAAAAAAIAAAAKcmVmUGF5bWVudAkABEwAAAACBQAAAA5yZWZlcmVyQWRkcmVzcwUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACCQEAAAANZ2V0RWdnQXNzZXRJZAAAAAAFAAAAFXJlZmVyZXJSZXdhcmRGb3JiZWFjaAUAAAADbmlsAwkAAAAAAAACBQAAAAdyZWZDYWxsBQAAAAdyZWZDYWxsBAAAAAZ0b0J1cm4DBQAAAAdyZWZDYWxsCQAAZQAAAAIFAAAACWxlZnRUb1BheQUAAAAVcmVmZXJlclJld2FyZEZvcmJlYWNoBQAAAAlsZWZ0VG9QYXkEAAAACGJ1cm5DYWxsCQAD/AAAAAQJAQAAAA5nZXRCdXJuQWRkcmVzcwAAAAACAAAAFGJ1cm5BdHRhY2hlZFBheW1lbnRzBQAAAANuaWwJAARMAAAAAgkBAAAAD0F0dGFjaGVkUGF5bWVudAAAAAIJAQAAAA1nZXRFZ2dBc3NldElkAAAAAAUAAAAGdG9CdXJuBQAAAANuaWwDCQAAAAAAAAIFAAAACGJ1cm5DYWxsBQAAAAhidXJuQ2FsbAUAAAAJbGVmdFRvUGF5CQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAAAAAAAAAADCQAAAAAAAAIFAAAAB3BheW1lbnQFAAAAB3BheW1lbnQEAAAABnJlZnVuZAMJAAAAAAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABlAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAEAAAAGYW1vdW50BQAAAAlsZWZ0VG9QYXkJAQAAAA1nZXRFZ2dBc3NldElkAAAAAAUAAAADbmlsBQAAAANuaWwJAAROAAAAAgkABE4AAAACBQAAAAdyZXN1bHRzBQAAAAZyZWZ1bmQFAAAAC2ZlZVZhbGlkYXRlCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAASZmluaXNoVFJUTEhhdGNoaW5nAAAAAQAAAAd0eElkU3RyBAAAAAtmZWVWYWxpZGF0ZQkBAAAAFmNoZWNrQWRkaXRpb25hbFBheW1lbnQAAAABCQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAwkAAAAAAAACBQAAAAtmZWVWYWxpZGF0ZQUAAAALZmVlVmFsaWRhdGUEAAAABHR4SWQJAAJZAAAAAQUAAAAHdHhJZFN0cgQAAAARaGF0Y2hpbmdTdGF0dXNLZXkJAQAAABRnZXRIYXRjaGluZ1N0YXR1c0tleQAAAAIJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBQAAAAR0eElkBAAAAA9maW5pc2hIZWlnaHRLZXkJAQAAABpnZXRIYXRjaGluZ0ZpbmlzaEhlaWdodEtleQAAAAIJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBQAAAAR0eElkBAAAAAlUUlRMSWRLZXkJAQAAAAxnZXRUUlRMSWRLZXkAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgUAAAAEdHhJZAQAAAAQaGF0Y2hpbmdUeFN0YXR1cwkBAAAAEUBleHRyTmF0aXZlKDEwNTMpAAAAAgUAAAAEdGhpcwUAAAARaGF0Y2hpbmdTdGF0dXNLZXkEAAAAFGhhdGNoaW5nRmluaXNoSGVpZ2h0CQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAA9maW5pc2hIZWlnaHRLZXkDCQAAAAAAAAIFAAAAEGhhdGNoaW5nVHhTdGF0dXMFAAAAEEhhdGNoaW5nRmluaXNoZWQEAAAABlRSVExJZAkBAAAAEUBleHRyTmF0aXZlKDEwNTMpAAAAAgUAAAAEdGhpcwkBAAAADGdldFRSVExJZEtleQAAAAIJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBQAAAAR0eElkCQAAAgAAAAEJAAEsAAAAAgIAAABCVGhlIFR1cnRsZSB3YXMgaGF0Y2hlZCBhbmQgY2xhaW1lZCBhbHJlYWR5LCBoZXJlIGlzIHRoZSBmb2xvd2luZzogBQAAAAZUUlRMSWQDCQAAZgAAAAIFAAAAFGhhdGNoaW5nRmluaXNoSGVpZ2h0BQAAAAZoZWlnaHQJAAACAAAAAQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAB1IYXRjaGluZyBpcyBub3QgZmluaXNoZWQgeWV0IAkAAaQAAAABCQAAZQAAAAIFAAAAFGhhdGNoaW5nRmluaXNoSGVpZ2h0BQAAAAZoZWlnaHQCAAAAJyBibG9ja3MgcmVtYWluaW5nLCBpdCB3aWxsIHRha2UgYXJvdW5kIAkAAaQAAAABCQAAZQAAAAIFAAAAFGhhdGNoaW5nRmluaXNoSGVpZ2h0BQAAAAZoZWlnaHQCAAAACCBtaW51dGVzBAAAAAskdDA5NDI3OTQ5MwkBAAAADWdldFJhbmRvbU5hbWUAAAACBQAAAAR0eElkBQAAABRoYXRjaGluZ0ZpbmlzaEhlaWdodAQAAAAHVFJUTEdlbggFAAAACyR0MDk0Mjc5NDkzAAAAAl8xBAAAAAdmYXJtR2VuCAUAAAALJHQwOTQyNzk0OTMAAAACXzIEAAAAC2Rlc2NyaXB0aW9uCQABLAAAAAIJAAEsAAAAAgIAAAAOeyJnZW5vdHlwZSI6ICIFAAAAB1RSVExHZW4CAAAAGSIsICJjcm9zc2JyZWVkaW5nIjogdHJ1ZX0EAAAABWFzc2V0CQAEQwAAAAcFAAAAB1RSVExHZW4FAAAAC2Rlc2NyaXB0aW9uAAAAAAAAAAABAAAAAAAAAAAABwUAAAAEdW5pdAUAAAAUaGF0Y2hpbmdGaW5pc2hIZWlnaHQEAAAAB2Fzc2V0SWQJAAQ4AAAAAQUAAAAFYXNzZXQEAAAABmFtb3VudAkAAGQAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAQAAAA9nZXRUUlRMU3RhdHNLZXkAAAABBQAAAAdUUlRMR2VuAAAAAAAAAAABCQAETgAAAAIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAARaGF0Y2hpbmdTdGF0dXNLZXkFAAAAEEhhdGNoaW5nRmluaXNoZWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAJVFJUTElkS2V5CQACWAAAAAEFAAAAB2Fzc2V0SWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAAlgAAAABBQAAAAdhc3NldElkBQAAAAlUUlRMSWRLZXkJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAA9nZXRUUlRMU3RhdHNLZXkAAAABBQAAAAdUUlRMR2VuBQAAAAZhbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAZzdGF0c18FAAAAB2Zhcm1HZW4CAAAACV9xdWFudGl0eQkAAGQAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAZzdGF0c18FAAAAB2Zhcm1HZW4CAAAACV9xdWFudGl0eQAAAAAAAAAAAQkABEwAAAACBQAAAAVhc3NldAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIAAAAAAAAAAAEFAAAAB2Fzc2V0SWQFAAAAA25pbAUAAAALZmVlVmFsaWRhdGUJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXmIBA7q",
    "height": 3822774,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2miuenrLRNSYyqVDpPsD8NP2w7jdZvfpDHtnvkWXBZop
Next: Hk7bPr43hVs46BbqTbvrthsr5aXixpHPrphow61Dsc1L

Diff: 
Old New Differences
27 27  func staticKey_refContractAddress () = "static_refContractAddress"
28 28  
29 29  
30 + func staticKey_turtleRebirthAddress () = "static_turtleRebirthAddress"
31 + 
32 + 
30 33  func getOracle () = Address(fromBase58String(tryGetString(staticKey_oracleAddress())))
31 34  
32 35  
40 43  
41 44  
42 45  func getRefContractAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_refContractAddress())))
46 + 
47 + 
48 + func getTurtleRebirthAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_turtleRebirthAddress())))
43 49  
44 50  
45 51  func checkAdditionalPayment (payment) = if (isDefined(payment.assetId))
150 156  
151 157  
152 158  @Callable(i)
159 + func issueFreeTurtle (address,txIdStr) = if ((i.caller != getTurtleRebirthAddress()))
160 +     then throw("ISFD: rebirth only")
161 +     else {
162 +         let txId = fromBase58String(txIdStr)
163 +         let hatchingStatusKey = getHatchingStatusKey(address, txId)
164 +         let finishHeightKey = getHatchingFinishHeightKey(address, txId)
165 +         let totalDucksAmount = tryGetInteger("turtle_amount")
166 +         let eggsNeeded = countEggsNeededAmount(totalDucksAmount)
167 +         let $t051885330 = getRandomName(txId, (valueOrErrorMessage(transactionHeightById(txId), ((txIdStr + " not found ") + toBase58String(txId))) + 1))
168 +         let TRTLGen = $t051885330._1
169 +         let farmGen = $t051885330._2
170 +         let description = (("{\"genotype\": \"" + TRTLGen) + "\", \"crossbreeding\": true}")
171 +         let asset = Issue(TRTLGen, description, 1, 0, false, unit, height)
172 +         let assetId = calculateAssetId(asset)
173 +         let amount = (tryGetInteger(getTRTLStatsKey(TRTLGen)) + 1)
174 +         let duckIdKey = getTRTLIdKey(address, txId)
175 +         $Tuple2([IntegerEntry(getHatchingFinishHeightKey(address, txId), height), IntegerEntry("turtle_amount", (totalDucksAmount + 1)), IntegerEntry("turtle_last_price", (eggsNeeded / 1500000)), StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(duckIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), duckIdKey), IntegerEntry(getTRTLStatsKey(TRTLGen), amount), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(value(addressFromString(address)), 1, assetId)], toBase58String(assetId))
176 +         }
177 + 
178 + 
179 + 
180 + @Callable(i)
153 181  func setDiscount (val) = if ((i.caller != this))
154 182      then throw("admin_only")
155 183      else [IntegerEntry("discountCoefficient", val)]
224 252                  else if ((hatchingFinishHeight > height))
225 253                      then throw((((("Hatching is not finished yet " + toString((hatchingFinishHeight - height))) + " blocks remaining, it will take around ") + toString((hatchingFinishHeight - height))) + " minutes"))
226 254                      else {
227 -                         let $t076217687 = getRandomName(txId, hatchingFinishHeight)
228 -                         let TRTLGen = $t076217687._1
229 -                         let farmGen = $t076217687._2
255 +                         let $t094279493 = getRandomName(txId, hatchingFinishHeight)
256 +                         let TRTLGen = $t094279493._1
257 +                         let farmGen = $t094279493._2
230 258                          let description = (("{\"genotype\": \"" + TRTLGen) + "\", \"crossbreeding\": true}")
231 259                          let asset = Issue(TRTLGen, description, 1, 0, false, unit, hatchingFinishHeight)
232 260                          let assetId = calculateAssetId(asset)
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  func tryGetStringExternal (address,key) = match getString(address, key) {
5 5      case a: String => 
6 6          a
7 7      case _ => 
8 8          ""
9 9  }
10 10  
11 11  
12 12  func tryGetString (key) = tryGetStringExternal(this, key)
13 13  
14 14  
15 15  func staticKey_oracleAddress () = "static_oracleAddress"
16 16  
17 17  
18 18  func staticKey_extraFee () = "static_extraFee"
19 19  
20 20  
21 21  func staticKey_feeAggregator () = "static_feeAggregator"
22 22  
23 23  
24 24  func staticKey_eggAssetId () = "static_eggAssetId"
25 25  
26 26  
27 27  func staticKey_refContractAddress () = "static_refContractAddress"
28 28  
29 29  
30 + func staticKey_turtleRebirthAddress () = "static_turtleRebirthAddress"
31 + 
32 + 
30 33  func getOracle () = Address(fromBase58String(tryGetString(staticKey_oracleAddress())))
31 34  
32 35  
33 36  func getFeeAggregator () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_feeAggregator())))
34 37  
35 38  
36 39  func getEggAssetId () = fromBase58String(tryGetStringExternal(getOracle(), staticKey_eggAssetId()))
37 40  
38 41  
39 42  func getBurnAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_burnAddress")))
40 43  
41 44  
42 45  func getRefContractAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_refContractAddress())))
46 + 
47 + 
48 + func getTurtleRebirthAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_turtleRebirthAddress())))
43 49  
44 50  
45 51  func checkAdditionalPayment (payment) = if (isDefined(payment.assetId))
46 52      then throw("BDCAP: Please attach waves")
47 53      else {
48 54          let feeAmount = getIntegerValue(getOracle(), staticKey_extraFee())
49 55          if ((payment.amount != feeAmount))
50 56              then throw((("BDCAP: Please attach exactly " + toString(feeAmount)) + " amount of wavelets"))
51 57              else [ScriptTransfer(getFeeAggregator(), feeAmount, unit)]
52 58          }
53 59  
54 60  
55 61  let delayForHatching = 2
56 62  
57 63  let typesAmount = 4
58 64  
59 65  let HatchingStarted = "HATCHING_STARTED"
60 66  
61 67  let HatchingFinished = "HATCHING_FINISHED"
62 68  
63 69  func isLocked () = {
64 70      let masterAddress = Address(base58'3PEPftf2kWZDmAaWBjs6BUJa9957kiA2PkU')
65 71      match getInteger(masterAddress, "egglock") {
66 72          case b: Int => 
67 73              b
68 74          case _ => 
69 75              0
70 76      }
71 77      }
72 78  
73 79  
74 80  func getHatchingStatusKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_status")
75 81  
76 82  
77 83  func getHatchingFinishHeightKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_fh")
78 84  
79 85  
80 86  func getTRTLIdKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_di")
81 87  
82 88  
83 89  func getTRTLStatsKey (genString) = (("stats_" + genString) + "_amount")
84 90  
85 91  
86 92  func tryGetInteger (key) = {
87 93      let val =     match getInteger(this, key) {
88 94          case b: Int => 
89 95              b
90 96          case _ => 
91 97              0
92 98      }
93 99      val
94 100      }
95 101  
96 102  
97 103  let discountCoefficient = tryGetInteger("discountCoefficient")
98 104  
99 105  func getRandomNumber (variants,txId,hatchingFinishHeight,offset) = {
100 106      let randomSeedBlock = value(blockInfoByHeight((hatchingFinishHeight - 1)))
101 107      let randomHash = sha256((txId + value(randomSeedBlock.vrf)))
102 108      (toInt(randomHash, (offset * 8)) % variants)
103 109      }
104 110  
105 111  
106 112  func getRandomName (txId,hatchingFinishHeight) = {
107 113      let typeRandom = getRandomNumber(5, txId, hatchingFinishHeight, 0)
108 114      let colorRandom = getRandomNumber(4, txId, hatchingFinishHeight, 1)
109 115      let color = if ((colorRandom == 0))
110 116          then "R"
111 117          else if ((colorRandom == 1))
112 118              then "D"
113 119              else if ((colorRandom == 2))
114 120                  then "S"
115 121                  else "G"
116 122      if ((typeRandom == 0))
117 123          then $Tuple2(("TRTL-AAAAAAAA-G" + color), "8A-G")
118 124          else if ((typeRandom == 1))
119 125              then $Tuple2(("TRTL-BBBBBBBB-G" + color), "8B-G")
120 126              else if ((typeRandom == 2))
121 127                  then $Tuple2(("TRTL-CCCCCCCC-G" + color), "8C-G")
122 128                  else if ((typeRandom == 3))
123 129                      then $Tuple2(("TRTL-DDDDDDDD-G" + color), "8D-G")
124 130                      else $Tuple2(("TRTL-EEEEEEEE-G" + color), "8E-G")
125 131      }
126 132  
127 133  
128 134  func countEggsNeededAmount (totalTRTLsAmount) = {
129 135      let n = totalTRTLsAmount
130 136      let g = discountCoefficient
131 137      let t = typesAmount
132 138      let price = pow((100 + ((n * g) / (10 * t))), 2, 5, 1, 2, DOWN)
133 139      (price * 1500000)
134 140      }
135 141  
136 142  
137 143  func asBoolean (value) = match value {
138 144      case boolean: Boolean => 
139 145          boolean
140 146      case _ => 
141 147          throw("TI: wrong type, expected: Boolean")
142 148  }
143 149  
144 150  
145 151  @Callable(i)
146 152  func configureOracle (oracle) = if ((i.caller != this))
147 153      then throw("ICU: admin only")
148 154      else [StringEntry("static_oracleAddress", oracle)]
149 155  
150 156  
151 157  
152 158  @Callable(i)
159 + func issueFreeTurtle (address,txIdStr) = if ((i.caller != getTurtleRebirthAddress()))
160 +     then throw("ISFD: rebirth only")
161 +     else {
162 +         let txId = fromBase58String(txIdStr)
163 +         let hatchingStatusKey = getHatchingStatusKey(address, txId)
164 +         let finishHeightKey = getHatchingFinishHeightKey(address, txId)
165 +         let totalDucksAmount = tryGetInteger("turtle_amount")
166 +         let eggsNeeded = countEggsNeededAmount(totalDucksAmount)
167 +         let $t051885330 = getRandomName(txId, (valueOrErrorMessage(transactionHeightById(txId), ((txIdStr + " not found ") + toBase58String(txId))) + 1))
168 +         let TRTLGen = $t051885330._1
169 +         let farmGen = $t051885330._2
170 +         let description = (("{\"genotype\": \"" + TRTLGen) + "\", \"crossbreeding\": true}")
171 +         let asset = Issue(TRTLGen, description, 1, 0, false, unit, height)
172 +         let assetId = calculateAssetId(asset)
173 +         let amount = (tryGetInteger(getTRTLStatsKey(TRTLGen)) + 1)
174 +         let duckIdKey = getTRTLIdKey(address, txId)
175 +         $Tuple2([IntegerEntry(getHatchingFinishHeightKey(address, txId), height), IntegerEntry("turtle_amount", (totalDucksAmount + 1)), IntegerEntry("turtle_last_price", (eggsNeeded / 1500000)), StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(duckIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), duckIdKey), IntegerEntry(getTRTLStatsKey(TRTLGen), amount), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(value(addressFromString(address)), 1, assetId)], toBase58String(assetId))
176 +         }
177 + 
178 + 
179 + 
180 + @Callable(i)
153 181  func setDiscount (val) = if ((i.caller != this))
154 182      then throw("admin_only")
155 183      else [IntegerEntry("discountCoefficient", val)]
156 184  
157 185  
158 186  
159 187  @Callable(i)
160 188  func startTRTLHatching (refererAddress) = {
161 189      let feeValidate = checkAdditionalPayment(i.payments[0])
162 190      if ((feeValidate == feeValidate))
163 191          then if ((isLocked() > 0))
164 192              then throw("EGG operations are temporarily locked")
165 193              else {
166 194                  let totalTurtleAmount = tryGetInteger("turtle_amount")
167 195                  let eggsNeeded = countEggsNeededAmount(totalTurtleAmount)
168 196                  let results = [StringEntry(getHatchingStatusKey(toString(i.originCaller), i.transactionId), HatchingStarted), IntegerEntry(getHatchingFinishHeightKey(toString(i.originCaller), i.transactionId), (height + delayForHatching)), IntegerEntry("turtle_amount", (totalTurtleAmount + 1)), IntegerEntry("turtle_last_price", (eggsNeeded / 1500000))]
169 197                  let leftToPay = eggsNeeded
170 198                  let payment = if ((leftToPay != 0))
171 199                      then {
172 200                          let firstPayment = value(i.payments[1])
173 201                          if ((firstPayment.assetId != getEggAssetId()))
174 202                              then throw(("TI: You can attach only EGG tokens with the following asset id: " + toBase58String(getEggAssetId())))
175 203                              else if ((leftToPay > firstPayment.amount))
176 204                                  then throw(((("TI: To buy a beach you currently need the following amount of EGGlets: " + toString(leftToPay)) + " ") + toString(i.caller)))
177 205                                  else {
178 206                                      let refererRewardForbeach = fraction(leftToPay, 5, 100)
179 207                                      let refCall = asBoolean(invoke(getRefContractAddress(), "refPayment", [refererAddress], [AttachedPayment(getEggAssetId(), refererRewardForbeach)]))
180 208                                      if ((refCall == refCall))
181 209                                          then {
182 210                                              let toBurn = if (refCall)
183 211                                                  then (leftToPay - refererRewardForbeach)
184 212                                                  else leftToPay
185 213                                              let burnCall = invoke(getBurnAddress(), "burnAttachedPayments", nil, [AttachedPayment(getEggAssetId(), toBurn)])
186 214                                              if ((burnCall == burnCall))
187 215                                                  then leftToPay
188 216                                                  else throw("Strict value is not equal to itself.")
189 217                                              }
190 218                                          else throw("Strict value is not equal to itself.")
191 219                                      }
192 220                          }
193 221                      else 0
194 222                  if ((payment == payment))
195 223                      then {
196 224                          let refund = if ((size(i.payments) == 2))
197 225                              then [ScriptTransfer(i.caller, (i.payments[1].amount - leftToPay), getEggAssetId())]
198 226                              else nil
199 227                          ((results ++ refund) ++ feeValidate)
200 228                          }
201 229                      else throw("Strict value is not equal to itself.")
202 230                  }
203 231          else throw("Strict value is not equal to itself.")
204 232      }
205 233  
206 234  
207 235  
208 236  @Callable(i)
209 237  func finishTRTLHatching (txIdStr) = {
210 238      let feeValidate = checkAdditionalPayment(i.payments[0])
211 239      if ((feeValidate == feeValidate))
212 240          then {
213 241              let txId = fromBase58String(txIdStr)
214 242              let hatchingStatusKey = getHatchingStatusKey(toString(i.caller), txId)
215 243              let finishHeightKey = getHatchingFinishHeightKey(toString(i.caller), txId)
216 244              let TRTLIdKey = getTRTLIdKey(toString(i.caller), txId)
217 245              let hatchingTxStatus = getStringValue(this, hatchingStatusKey)
218 246              let hatchingFinishHeight = getIntegerValue(this, finishHeightKey)
219 247              if ((hatchingTxStatus == HatchingFinished))
220 248                  then {
221 249                      let TRTLId = getStringValue(this, getTRTLIdKey(toString(i.caller), txId))
222 250                      throw(("The Turtle was hatched and claimed already, here is the folowing: " + TRTLId))
223 251                      }
224 252                  else if ((hatchingFinishHeight > height))
225 253                      then throw((((("Hatching is not finished yet " + toString((hatchingFinishHeight - height))) + " blocks remaining, it will take around ") + toString((hatchingFinishHeight - height))) + " minutes"))
226 254                      else {
227 -                         let $t076217687 = getRandomName(txId, hatchingFinishHeight)
228 -                         let TRTLGen = $t076217687._1
229 -                         let farmGen = $t076217687._2
255 +                         let $t094279493 = getRandomName(txId, hatchingFinishHeight)
256 +                         let TRTLGen = $t094279493._1
257 +                         let farmGen = $t094279493._2
230 258                          let description = (("{\"genotype\": \"" + TRTLGen) + "\", \"crossbreeding\": true}")
231 259                          let asset = Issue(TRTLGen, description, 1, 0, false, unit, hatchingFinishHeight)
232 260                          let assetId = calculateAssetId(asset)
233 261                          let amount = (tryGetInteger(getTRTLStatsKey(TRTLGen)) + 1)
234 262                          ([StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(TRTLIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), TRTLIdKey), IntegerEntry(getTRTLStatsKey(TRTLGen), amount), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(i.caller, 1, assetId)] ++ feeValidate)
235 263                          }
236 264              }
237 265          else throw("Strict value is not equal to itself.")
238 266      }
239 267  
240 268  
241 269  @Verifier(tx)
242 270  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
243 271

Old	New		Differences
27	27		func staticKey_refContractAddress () = "static_refContractAddress"
28	28
29	29
	30	+	func staticKey_turtleRebirthAddress () = "static_turtleRebirthAddress"
	31	+
	32	+
30	33		func getOracle () = Address(fromBase58String(tryGetString(staticKey_oracleAddress())))
31	34
32	35

40	43
41	44
42	45		func getRefContractAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_refContractAddress())))
	46	+
	47	+
	48	+	func getTurtleRebirthAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_turtleRebirthAddress())))
43	49
44	50
45	51		func checkAdditionalPayment (payment) = if (isDefined(payment.assetId))

150	156
151	157
152	158		@Callable(i)
	159	+	func issueFreeTurtle (address,txIdStr) = if ((i.caller != getTurtleRebirthAddress()))
	160	+	then throw("ISFD: rebirth only")
	161	+	else {
	162	+	let txId = fromBase58String(txIdStr)
	163	+	let hatchingStatusKey = getHatchingStatusKey(address, txId)
	164	+	let finishHeightKey = getHatchingFinishHeightKey(address, txId)
	165	+	let totalDucksAmount = tryGetInteger("turtle_amount")
	166	+	let eggsNeeded = countEggsNeededAmount(totalDucksAmount)
	167	+	let $t051885330 = getRandomName(txId, (valueOrErrorMessage(transactionHeightById(txId), ((txIdStr + " not found ") + toBase58String(txId))) + 1))
	168	+	let TRTLGen = $t051885330._1
	169	+	let farmGen = $t051885330._2
	170	+	let description = (("{\"genotype\": \"" + TRTLGen) + "\", \"crossbreeding\": true}")
	171	+	let asset = Issue(TRTLGen, description, 1, 0, false, unit, height)
	172	+	let assetId = calculateAssetId(asset)
	173	+	let amount = (tryGetInteger(getTRTLStatsKey(TRTLGen)) + 1)
	174	+	let duckIdKey = getTRTLIdKey(address, txId)
	175	+	$Tuple2([IntegerEntry(getHatchingFinishHeightKey(address, txId), height), IntegerEntry("turtle_amount", (totalDucksAmount + 1)), IntegerEntry("turtle_last_price", (eggsNeeded / 1500000)), StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(duckIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), duckIdKey), IntegerEntry(getTRTLStatsKey(TRTLGen), amount), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(value(addressFromString(address)), 1, assetId)], toBase58String(assetId))
	176	+	}
	177	+
	178	+
	179	+
	180	+	@Callable(i)
153	181		func setDiscount (val) = if ((i.caller != this))
154	182		then throw("admin_only")
155	183		else [IntegerEntry("discountCoefficient", val)]

224	252		else if ((hatchingFinishHeight > height))
225	253		then throw((((("Hatching is not finished yet " + toString((hatchingFinishHeight - height))) + " blocks remaining, it will take around ") + toString((hatchingFinishHeight - height))) + " minutes"))
226	254		else {
227		-	let $~~t076217687~~ = getRandomName(txId, hatchingFinishHeight)
228		-	let TRTLGen = $~~t076217687~~._1
229		-	let farmGen = $~~t076217687~~._2
	255	+	let $t094279493 = getRandomName(txId, hatchingFinishHeight)
	256	+	let TRTLGen = $t094279493._1
	257	+	let farmGen = $t094279493._2
230	258		let description = (("{\"genotype\": \"" + TRTLGen) + "\", \"crossbreeding\": true}")
231	259		let asset = Issue(TRTLGen, description, 1, 0, false, unit, hatchingFinishHeight)
232	260		let assetId = calculateAssetId(asset)

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		func tryGetStringExternal (address,key) = match getString(address, key) {
5	5		case a: String =>
6	6		a
7	7		case _ =>
8	8		""
9	9		}
10	10
11	11
12	12		func tryGetString (key) = tryGetStringExternal(this, key)
13	13
14	14
15	15		func staticKey_oracleAddress () = "static_oracleAddress"
16	16
17	17
18	18		func staticKey_extraFee () = "static_extraFee"
19	19
20	20
21	21		func staticKey_feeAggregator () = "static_feeAggregator"
22	22
23	23
24	24		func staticKey_eggAssetId () = "static_eggAssetId"
25	25
26	26
27	27		func staticKey_refContractAddress () = "static_refContractAddress"
28	28
29	29
	30	+	func staticKey_turtleRebirthAddress () = "static_turtleRebirthAddress"
	31	+
	32	+
30	33		func getOracle () = Address(fromBase58String(tryGetString(staticKey_oracleAddress())))
31	34
32	35
33	36		func getFeeAggregator () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_feeAggregator())))
34	37
35	38
36	39		func getEggAssetId () = fromBase58String(tryGetStringExternal(getOracle(), staticKey_eggAssetId()))
37	40
38	41
39	42		func getBurnAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_burnAddress")))
40	43
41	44
42	45		func getRefContractAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_refContractAddress())))
	46	+
	47	+
	48	+	func getTurtleRebirthAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_turtleRebirthAddress())))
43	49
44	50
45	51		func checkAdditionalPayment (payment) = if (isDefined(payment.assetId))
46	52		then throw("BDCAP: Please attach waves")
47	53		else {
48	54		let feeAmount = getIntegerValue(getOracle(), staticKey_extraFee())
49	55		if ((payment.amount != feeAmount))
50	56		then throw((("BDCAP: Please attach exactly " + toString(feeAmount)) + " amount of wavelets"))
51	57		else [ScriptTransfer(getFeeAggregator(), feeAmount, unit)]
52	58		}
53	59
54	60
55	61		let delayForHatching = 2
56	62
57	63		let typesAmount = 4
58	64
59	65		let HatchingStarted = "HATCHING_STARTED"
60	66
61	67		let HatchingFinished = "HATCHING_FINISHED"
62	68
63	69		func isLocked () = {
64	70		let masterAddress = Address(base58'3PEPftf2kWZDmAaWBjs6BUJa9957kiA2PkU')
65	71		match getInteger(masterAddress, "egglock") {
66	72		case b: Int =>
67	73		b
68	74		case _ =>
69	75		0
70	76		}
71	77		}
72	78
73	79
74	80		func getHatchingStatusKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_status")
75	81
76	82
77	83		func getHatchingFinishHeightKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_fh")
78	84
79	85
80	86		func getTRTLIdKey (address,txId) = (((address + "_") + toBase58String(txId)) + "_di")
81	87
82	88
83	89		func getTRTLStatsKey (genString) = (("stats_" + genString) + "_amount")
84	90
85	91
86	92		func tryGetInteger (key) = {
87	93		let val = match getInteger(this, key) {
88	94		case b: Int =>
89	95		b
90	96		case _ =>
91	97		0
92	98		}
93	99		val
94	100		}
95	101
96	102
97	103		let discountCoefficient = tryGetInteger("discountCoefficient")
98	104
99	105		func getRandomNumber (variants,txId,hatchingFinishHeight,offset) = {
100	106		let randomSeedBlock = value(blockInfoByHeight((hatchingFinishHeight - 1)))
101	107		let randomHash = sha256((txId + value(randomSeedBlock.vrf)))
102	108		(toInt(randomHash, (offset * 8)) % variants)
103	109		}
104	110
105	111
106	112		func getRandomName (txId,hatchingFinishHeight) = {
107	113		let typeRandom = getRandomNumber(5, txId, hatchingFinishHeight, 0)
108	114		let colorRandom = getRandomNumber(4, txId, hatchingFinishHeight, 1)
109	115		let color = if ((colorRandom == 0))
110	116		then "R"
111	117		else if ((colorRandom == 1))
112	118		then "D"
113	119		else if ((colorRandom == 2))
114	120		then "S"
115	121		else "G"
116	122		if ((typeRandom == 0))
117	123		then $Tuple2(("TRTL-AAAAAAAA-G" + color), "8A-G")
118	124		else if ((typeRandom == 1))
119	125		then $Tuple2(("TRTL-BBBBBBBB-G" + color), "8B-G")
120	126		else if ((typeRandom == 2))
121	127		then $Tuple2(("TRTL-CCCCCCCC-G" + color), "8C-G")
122	128		else if ((typeRandom == 3))
123	129		then $Tuple2(("TRTL-DDDDDDDD-G" + color), "8D-G")
124	130		else $Tuple2(("TRTL-EEEEEEEE-G" + color), "8E-G")
125	131		}
126	132
127	133
128	134		func countEggsNeededAmount (totalTRTLsAmount) = {
129	135		let n = totalTRTLsAmount
130	136		let g = discountCoefficient
131	137		let t = typesAmount
132	138		let price = pow((100 + ((n * g) / (10 * t))), 2, 5, 1, 2, DOWN)
133	139		(price * 1500000)
134	140		}
135	141
136	142
137	143		func asBoolean (value) = match value {
138	144		case boolean: Boolean =>
139	145		boolean
140	146		case _ =>
141	147		throw("TI: wrong type, expected: Boolean")
142	148		}
143	149
144	150
145	151		@Callable(i)
146	152		func configureOracle (oracle) = if ((i.caller != this))
147	153		then throw("ICU: admin only")
148	154		else [StringEntry("static_oracleAddress", oracle)]
149	155
150	156
151	157
152	158		@Callable(i)
	159	+	func issueFreeTurtle (address,txIdStr) = if ((i.caller != getTurtleRebirthAddress()))
	160	+	then throw("ISFD: rebirth only")
	161	+	else {
	162	+	let txId = fromBase58String(txIdStr)
	163	+	let hatchingStatusKey = getHatchingStatusKey(address, txId)
	164	+	let finishHeightKey = getHatchingFinishHeightKey(address, txId)
	165	+	let totalDucksAmount = tryGetInteger("turtle_amount")
	166	+	let eggsNeeded = countEggsNeededAmount(totalDucksAmount)
	167	+	let $t051885330 = getRandomName(txId, (valueOrErrorMessage(transactionHeightById(txId), ((txIdStr + " not found ") + toBase58String(txId))) + 1))
	168	+	let TRTLGen = $t051885330._1
	169	+	let farmGen = $t051885330._2
	170	+	let description = (("{\"genotype\": \"" + TRTLGen) + "\", \"crossbreeding\": true}")
	171	+	let asset = Issue(TRTLGen, description, 1, 0, false, unit, height)
	172	+	let assetId = calculateAssetId(asset)
	173	+	let amount = (tryGetInteger(getTRTLStatsKey(TRTLGen)) + 1)
	174	+	let duckIdKey = getTRTLIdKey(address, txId)
	175	+	$Tuple2([IntegerEntry(getHatchingFinishHeightKey(address, txId), height), IntegerEntry("turtle_amount", (totalDucksAmount + 1)), IntegerEntry("turtle_last_price", (eggsNeeded / 1500000)), StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(duckIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), duckIdKey), IntegerEntry(getTRTLStatsKey(TRTLGen), amount), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(value(addressFromString(address)), 1, assetId)], toBase58String(assetId))
	176	+	}
	177	+
	178	+
	179	+
	180	+	@Callable(i)
153	181		func setDiscount (val) = if ((i.caller != this))
154	182		then throw("admin_only")
155	183		else [IntegerEntry("discountCoefficient", val)]
156	184
157	185
158	186
159	187		@Callable(i)
160	188		func startTRTLHatching (refererAddress) = {
161	189		let feeValidate = checkAdditionalPayment(i.payments[0])
162	190		if ((feeValidate == feeValidate))
163	191		then if ((isLocked() > 0))
164	192		then throw("EGG operations are temporarily locked")
165	193		else {
166	194		let totalTurtleAmount = tryGetInteger("turtle_amount")
167	195		let eggsNeeded = countEggsNeededAmount(totalTurtleAmount)
168	196		let results = [StringEntry(getHatchingStatusKey(toString(i.originCaller), i.transactionId), HatchingStarted), IntegerEntry(getHatchingFinishHeightKey(toString(i.originCaller), i.transactionId), (height + delayForHatching)), IntegerEntry("turtle_amount", (totalTurtleAmount + 1)), IntegerEntry("turtle_last_price", (eggsNeeded / 1500000))]
169	197		let leftToPay = eggsNeeded
170	198		let payment = if ((leftToPay != 0))
171	199		then {
172	200		let firstPayment = value(i.payments[1])
173	201		if ((firstPayment.assetId != getEggAssetId()))
174	202		then throw(("TI: You can attach only EGG tokens with the following asset id: " + toBase58String(getEggAssetId())))
175	203		else if ((leftToPay > firstPayment.amount))
176	204		then throw(((("TI: To buy a beach you currently need the following amount of EGGlets: " + toString(leftToPay)) + " ") + toString(i.caller)))
177	205		else {
178	206		let refererRewardForbeach = fraction(leftToPay, 5, 100)
179	207		let refCall = asBoolean(invoke(getRefContractAddress(), "refPayment", [refererAddress], [AttachedPayment(getEggAssetId(), refererRewardForbeach)]))
180	208		if ((refCall == refCall))
181	209		then {
182	210		let toBurn = if (refCall)
183	211		then (leftToPay - refererRewardForbeach)
184	212		else leftToPay
185	213		let burnCall = invoke(getBurnAddress(), "burnAttachedPayments", nil, [AttachedPayment(getEggAssetId(), toBurn)])
186	214		if ((burnCall == burnCall))
187	215		then leftToPay
188	216		else throw("Strict value is not equal to itself.")
189	217		}
190	218		else throw("Strict value is not equal to itself.")
191	219		}
192	220		}
193	221		else 0
194	222		if ((payment == payment))
195	223		then {
196	224		let refund = if ((size(i.payments) == 2))
197	225		then [ScriptTransfer(i.caller, (i.payments[1].amount - leftToPay), getEggAssetId())]
198	226		else nil
199	227		((results ++ refund) ++ feeValidate)
200	228		}
201	229		else throw("Strict value is not equal to itself.")
202	230		}
203	231		else throw("Strict value is not equal to itself.")
204	232		}
205	233
206	234
207	235
208	236		@Callable(i)
209	237		func finishTRTLHatching (txIdStr) = {
210	238		let feeValidate = checkAdditionalPayment(i.payments[0])
211	239		if ((feeValidate == feeValidate))
212	240		then {
213	241		let txId = fromBase58String(txIdStr)
214	242		let hatchingStatusKey = getHatchingStatusKey(toString(i.caller), txId)
215	243		let finishHeightKey = getHatchingFinishHeightKey(toString(i.caller), txId)
216	244		let TRTLIdKey = getTRTLIdKey(toString(i.caller), txId)
217	245		let hatchingTxStatus = getStringValue(this, hatchingStatusKey)
218	246		let hatchingFinishHeight = getIntegerValue(this, finishHeightKey)
219	247		if ((hatchingTxStatus == HatchingFinished))
220	248		then {
221	249		let TRTLId = getStringValue(this, getTRTLIdKey(toString(i.caller), txId))
222	250		throw(("The Turtle was hatched and claimed already, here is the folowing: " + TRTLId))
223	251		}
224	252		else if ((hatchingFinishHeight > height))
225	253		then throw((((("Hatching is not finished yet " + toString((hatchingFinishHeight - height))) + " blocks remaining, it will take around ") + toString((hatchingFinishHeight - height))) + " minutes"))
226	254		else {
227		-	let $~~t076217687~~ = getRandomName(txId, hatchingFinishHeight)
228		-	let TRTLGen = $~~t076217687~~._1
229		-	let farmGen = $~~t076217687~~._2
	255	+	let $t094279493 = getRandomName(txId, hatchingFinishHeight)
	256	+	let TRTLGen = $t094279493._1
	257	+	let farmGen = $t094279493._2
230	258		let description = (("{\"genotype\": \"" + TRTLGen) + "\", \"crossbreeding\": true}")
231	259		let asset = Issue(TRTLGen, description, 1, 0, false, unit, hatchingFinishHeight)
232	260		let assetId = calculateAssetId(asset)
233	261		let amount = (tryGetInteger(getTRTLStatsKey(TRTLGen)) + 1)
234	262		([StringEntry(hatchingStatusKey, HatchingFinished), StringEntry(TRTLIdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), TRTLIdKey), IntegerEntry(getTRTLStatsKey(TRTLGen), amount), IntegerEntry((("stats_" + farmGen) + "_quantity"), (tryGetInteger((("stats_" + farmGen) + "_quantity")) + 1)), asset, ScriptTransfer(i.caller, 1, assetId)] ++ feeValidate)
235	263		}
236	264		}
237	265		else throw("Strict value is not equal to itself.")
238	266		}
239	267
240	268
241	269		@Verifier(tx)
242	270		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
243	271

github/deemru/w8io/3ef1775 
56.49 ms ◑