w8 · tx · HDv···oo9

tx · HDvR9Y3uodWvyQrbSG2fnDY5Y7nVHJp12TVE5Epusoo9

3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o:  -0.02100000 Waves

2024.05.09 21:44 [4164893] smart account 3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HDvR9Y3uodWvyQrbSG2fnDY5Y7nVHJp12TVE5Epusoo9",
    "fee": 2100000,
    "feeAssetId": null,
    "timestamp": 1715280295408,
    "version": 2,
    "chainId": 87,
    "sender": "3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o",
    "senderPublicKey": "EKWFwVJMAk6xj9i7a2PGBZx557V7M57jEhyaZHH3mAc1",
    "proofs": [
        "TiViPR6LdqoN4b3poWmJGsrNyWsmo8H8hx6ABH3zyrDipQWuwWZUnGzC4TLZ3Mze8Q9d5K5HKMhjSXypyN8yvKo"
    ],
    "script": "base64:BgIXCAISAwoBCBIDCgEIEgMKAQgSBAoCCAgsAQ5iYXNlUHJpY2VTcGljZQAAgJTr3AMBDGJhc2VQcmljZUVnZwAAgISvXwEQZGVsYXlGb3JIYXRjaGluZwAAAgEPaGF0Y2hpbmdTdGFydGVkAAIQQlJFRURJTkdfU1RBUlRFRAEQaGF0Y2hpbmdGaW5pc2hlZAACEUJSRUVESU5HX0ZJTklTSEVEARRzdGF0aWNLZXlfZWdnQXNzZXRJZAACEXN0YXRpY19lZ2dBc3NldElkARZzdGF0aWNLZXlfc3BpY2VBc3NldElkAAITc3RhdGljX3NwaWNlQXNzZXRJZAEcc3RhdGljS2V5X2R1Y2tCcmVlZGVyQWRkcmVzcwACFXN0YXRpY19icmVlZGVyQWRkcmVzcwEec3RhdGljS2V5X3R1cnRsZUJyZWVkZXJBZGRyZXNzAAIbc3RhdGljX3R1cnRsZUJyZWVkZXJBZGRyZXNzARdzdGF0aWNLZXlfb3JhY2xlQWRkcmVzcwACFHN0YXRpY19vcmFjbGVBZGRyZXNzARJzdGF0aWNLZXlfZXh0cmFGZWUAAg9zdGF0aWNfZXh0cmFGZWUBF3N0YXRpY0tleV9mZWVBZ2dyZWdhdG9yAAIUc3RhdGljX2ZlZUFnZ3JlZ2F0b3IBEmdldFN0YXRzS2V5X2Ftb3VudAACDHN0YXRzX2Ftb3VudAELZ2V0U3RhdHNLZXkBCWdlblN0cmluZwkArAICCQCsAgICBnN0YXRzXwUJZ2VuU3RyaW5nAgdfYW1vdW50AQtnZXRDaGlsZHJlbgEHYXNzZXRJZAkArAICCQCsAgICBmFzc2V0XwUHYXNzZXRJZAIJX2NoaWxkcmVuAQxnZXRQYXJlbnRLZXkCBHR4SWQJcGFyZW50TnVtCQCsAgIJAKwCAgkArAICAgdpbml0dHhfCQDYBAEFBHR4SWQCB19wYXJlbnQJAKQDAQUJcGFyZW50TnVtARNnZXRQcm9jZXNzU3RhdHVzS2V5AgdhZGRyZXNzBHR4SWQJAKwCAgkArAICCQCsAgIFB2FkZHJlc3MCAV8FBHR4SWQCB19zdGF0dXMBGWdldFByb2Nlc3NGaW5pc2hIZWlnaHRLZXkCB2FkZHJlc3MEdHhJZAkArAICCQCsAgIJAKwCAgUHYWRkcmVzcwIBXwUEdHhJZAIDX2ZoAQhnZXRJZEtleQIHYWRkcmVzcwR0eElkCQCsAgIJAKwCAgkArAICBQdhZGRyZXNzAgFfBQR0eElkAgNfZGkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgdhZGRyZXNzA2tleQQHJG1hdGNoMAkAnQgCBQdhZGRyZXNzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFhBQckbWF0Y2gwBQFhAgABDHRyeUdldFN0cmluZwEDa2V5CQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCBQR0aGlzBQNrZXkBDXRyeUdldEludGVnZXIBA2tleQQDdmFsBAckbWF0Y2gwCQCaCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAUDdmFsAQlnZXRPcmFjbGUACQEHQWRkcmVzcwEJANkEAQkBDHRyeUdldFN0cmluZwEJARdzdGF0aWNLZXlfb3JhY2xlQWRkcmVzcwABF2dldFR1cnRsZUJyZWVkZXJBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUACQEec3RhdGljS2V5X3R1cnRsZUJyZWVkZXJBZGRyZXNzAAEVZ2V0RHVja0JyZWVkZXJBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUACQEcc3RhdGljS2V5X2R1Y2tCcmVlZGVyQWRkcmVzcwABDWdldEVnZ0Fzc2V0SWQACQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUACQEUc3RhdGljS2V5X2VnZ0Fzc2V0SWQAAQ9nZXRTcGljZUFzc2V0SWQACQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUACQEWc3RhdGljS2V5X3NwaWNlQXNzZXRJZAABEGdldEZlZUFnZ3JlZ2F0b3IACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQAJARdzdGF0aWNLZXlfZmVlQWdncmVnYXRvcgABEWdldEFsbG93ZWRNdXRhbnRzAAkAzAgCCQEXZ2V0VHVydGxlQnJlZWRlckFkZHJlc3MACQDMCAIJARVnZXREdWNrQnJlZWRlckFkZHJlc3MABQNuaWwBEGNhbGNQcmljZUluQXNzZXQBCmJhc2VBbW91bnQJAGQCBQpiYXNlQW1vdW50CQBpAgkAaQIJAGgCBQpiYXNlQW1vdW50CQBkAgkBDXRyeUdldEludGVnZXIBCQESZ2V0U3RhdHNLZXlfYW1vdW50AAABAOgHCQCQAwEJARFnZXRBbGxvd2VkTXV0YW50cwABB2dldEJvb2wBA2tleQQHJG1hdGNoMAkAmwgCBQR0aGlzBQNrZXkDCQABAgUHJG1hdGNoMAIHQm9vbGVhbgQBYgUHJG1hdGNoMAUBYgcBCWlzVGVzdEVudgAJAQdnZXRCb29sAQIHVEVTVEVOVgEPZ2V0UmFuZG9tTnVtYmVyBAh2YXJpYW50cwR0eElkFGhhdGNoaW5nRmluaXNoSGVpZ2h0Bm9mZnNldAQPcmFuZG9tU2VlZEJsb2NrCQEFdmFsdWUBCQDtBwEJAGUCBRRoYXRjaGluZ0ZpbmlzaEhlaWdodAABBApyYW5kb21IYXNoCQDUFgEJAMsBAgUEdHhJZAkBBXZhbHVlAQgFD3JhbmRvbVNlZWRCbG9jawN2cmYJAGoCCQCyCQIFCnJhbmRvbUhhc2gFBm9mZnNldAUIdmFyaWFudHMBDGdldFJhbmRvbUdlbgUEZ2VuMQRnZW4yBHN0ZXAEdHhJZBRoYXRjaGluZ0ZpbmlzaEhlaWdodAQJcmFuZG9tTnVtCQEPZ2V0UmFuZG9tTnVtYmVyBAACBQR0eElkBRRoYXRjaGluZ0ZpbmlzaEhlaWdodAUEc3RlcAQDZ2VuAwkAAAIFCXJhbmRvbU51bQAABQRnZW4xBQRnZW4yBQNnZW4BCGdlbmVyYXRlBAR0eElkDGZpbmlzaEhlaWdodAlwYXJlbnQxSWQJcGFyZW50MklkBAtjb2xvclJhbmRvbQkBD2dldFJhbmRvbU51bWJlcgQAZAUEdHhJZAUMZmluaXNoSGVpZ2h0AAsEBWNvbG9yAwkAZgIAGgULY29sb3JSYW5kb20CAUEDCQBmAgAwBQtjb2xvclJhbmRvbQIBQgMJAGYCAEYFC2NvbG9yUmFuZG9tAgFDAwkAZgIAWgULY29sb3JSYW5kb20CAUQCAUcECnBhcmVudDFHZW4JALUJAggJAQV2YWx1ZQEJAOwHAQUJcGFyZW50MUlkBG5hbWUCAAQKcGFyZW50MkdlbgkAtQkCCAkBBXZhbHVlAQkA7AcBBQlwYXJlbnQySWQEbmFtZQIABANnZW4JAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIFTVROVC0JAQxnZXRSYW5kb21HZW4FCQCsAgIJAJEDAgUKcGFyZW50MUdlbgAACQCRAwIFCnBhcmVudDFHZW4ABQkArAICCQCRAwIFCnBhcmVudDJHZW4AAAkAkQMCBQpwYXJlbnQyR2VuAAUAAAUEdHhJZAUMZmluaXNoSGVpZ2h0CQEMZ2V0UmFuZG9tR2VuBQkArAICCQCRAwIFCnBhcmVudDFHZW4AAAkAkQMCBQpwYXJlbnQxR2VuAAYJAKwCAgkAkQMCBQpwYXJlbnQyR2VuAAAJAJEDAgUKcGFyZW50MkdlbgAGAAEFBHR4SWQFDGZpbmlzaEhlaWdodAkBDGdldFJhbmRvbUdlbgUJAKwCAgkAkQMCBQpwYXJlbnQxR2VuAAAJAJEDAgUKcGFyZW50MUdlbgAHCQCsAgIJAJEDAgUKcGFyZW50MkdlbgAACQCRAwIFCnBhcmVudDJHZW4ABwACBQR0eElkBQxmaW5pc2hIZWlnaHQJAQxnZXRSYW5kb21HZW4FCQCsAgIJAJEDAgUKcGFyZW50MUdlbgAACQCRAwIFCnBhcmVudDFHZW4ACAkArAICCQCRAwIFCnBhcmVudDJHZW4AAAkAkQMCBQpwYXJlbnQyR2VuAAgAAwUEdHhJZAUMZmluaXNoSGVpZ2h0CQEMZ2V0UmFuZG9tR2VuBQkArAICCQCRAwIFCnBhcmVudDFHZW4AAAkAkQMCBQpwYXJlbnQxR2VuAAkJAKwCAgkAkQMCBQpwYXJlbnQyR2VuAAAJAJEDAgUKcGFyZW50MkdlbgAJAAQFBHR4SWQFDGZpbmlzaEhlaWdodAkBDGdldFJhbmRvbUdlbgUJAKwCAgkAkQMCBQpwYXJlbnQxR2VuAAAJAJEDAgUKcGFyZW50MUdlbgAKCQCsAgIJAJEDAgUKcGFyZW50MkdlbgAACQCRAwIFCnBhcmVudDJHZW4ACgAFBQR0eElkBQxmaW5pc2hIZWlnaHQJAQxnZXRSYW5kb21HZW4FCQCsAgIJAJEDAgUKcGFyZW50MUdlbgAACQCRAwIFCnBhcmVudDFHZW4ACwkArAICCQCRAwIFCnBhcmVudDJHZW4AAAkAkQMCBQpwYXJlbnQyR2VuAAsABgUEdHhJZAUMZmluaXNoSGVpZ2h0CQEMZ2V0UmFuZG9tR2VuBQkArAICCQCRAwIFCnBhcmVudDFHZW4AAAkAkQMCBQpwYXJlbnQxR2VuAAwJAKwCAgkAkQMCBQpwYXJlbnQyR2VuAAAJAJEDAgUKcGFyZW50MkdlbgAMAAcFBHR4SWQFDGZpbmlzaEhlaWdodAICLUcFBWNvbG9yBQNnZW4BCGlzU3ltYm9sAgNhY2MDc3ltAwkAAAIFA3N5bQgFA2FjYwJfMgkAlAoCCQBkAggFA2FjYwJfMQABCAUDYWNjAl8yCQCUCgIJAGQCCAUDYWNjAl8xAAAIBQNhY2MCXzIBEGdldEFtb3VudE9yQ2xlYXIBBmFtb3VudAMJAQhjb250YWlucwIFBmFtb3VudAIBMAIABQZhbW91bnQBCGNoYXJMaXN0AAkAzAgCAgFBCQDMCAICAUIJAMwIAgIBQwkAzAgCAgFECQDMCAICAUUJAMwIAgIBRgkAzAgCAgFHCQDMCAICAUgJAMwIAgIBSQkAzAgCAgFKCQDMCAICAUsJAMwIAgIBTAkAzAgCAgFNCQDMCAICAU4JAMwIAgIBTwkAzAgCAgFQCQDMCAICAVEJAMwIAgIBUgkAzAgCAgFTCQDMCAICAVQJAMwIAgIBVQkAzAgCAgFWCQDMCAICAVcJAMwIAgIBWAkAzAgCAgFZCQDMCAICAVoFA25pbAERZ2V0UmFyaXR5RnJvbU5hbWUBBG5hbWUEBWNvbG9yCQCRAwIJALUJAgUEbmFtZQIAABYECGdlbm90eXBlCQC1CQIJALMCAgkAsAICBQRuYW1lAAUAAwIABAhnZW5ldGljcwkAzAgCCQCRAwIFCGdlbm90eXBlAAEJAMwIAgkAkQMCBQhnZW5vdHlwZQADCQDMCAIJAJEDAgUIZ2Vub3R5cGUABQkAzAgCCQCRAwIFCGdlbm90eXBlAAcJAMwIAgkAkQMCBQhnZW5vdHlwZQAJCQDMCAIJAJEDAgUIZ2Vub3R5cGUACwkAzAgCCQCRAwIFCGdlbm90eXBlAA0JAMwIAgkAkQMCBQhnZW5vdHlwZQAPBQNuaWwKAQ1jb21wb3NlU3RyaW5nAgNhY2MEY2hhcgQJY2hhckNvdW50CgACJGwFCGdlbmV0aWNzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCAAAFBGNoYXIKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCGlzU3ltYm9sAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA4CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAkArAICBQNhY2MJARBnZXRBbW91bnRPckNsZWFyAQkArAICCQCkAwEIBQljaGFyQ291bnQCXzEFBGNoYXIJAKwCAgkArAICCgACJGwJAQhjaGFyTGlzdAAKAAIkcwkAkAMBBQIkbAoABSRhY2MwAgAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDWNvbXBvc2VTdHJpbmcCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDI2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgIBLQUFY29sb3IBDW5yT2ZUeXBlR2VuZXMBA2dlbgQIZ2Vub3R5cGUJALUJAgkAswICCQCwAgIFA2dlbgAFAAMCAAQGcGFydHMxCQCsAgIJAJEDAgUIZ2Vub3R5cGUAAAkAkQMCBQhnZW5vdHlwZQABBAZwYXJ0czIJAKwCAgkAkQMCBQhnZW5vdHlwZQACCQCRAwIFCGdlbm90eXBlAAMEBnBhcnRzMwkArAICCQCRAwIFCGdlbm90eXBlAAQJAJEDAgUIZ2Vub3R5cGUABQQGcGFydHM0CQCsAgIJAJEDAgUIZ2Vub3R5cGUABgkAkQMCBQhnZW5vdHlwZQAHBAZwYXJ0czUJAKwCAgkAkQMCBQhnZW5vdHlwZQAICQCRAwIFCGdlbm90eXBlAAkEBnBhcnRzNgkArAICCQCRAwIFCGdlbm90eXBlAAoJAJEDAgUIZ2Vub3R5cGUACwQGcGFydHM3CQCsAgIJAJEDAgUIZ2Vub3R5cGUADAkAkQMCBQhnZW5vdHlwZQANBAZwYXJ0czgJAKwCAgkAkQMCBQhnZW5vdHlwZQAOCQCRAwIFCGdlbm90eXBlAA8EBXBhcnRzCQDMCAIFBnBhcnRzMQkAzAgCBQZwYXJ0czIJAMwIAgUGcGFydHMzCQDMCAIFBnBhcnRzNAkAzAgCBQZwYXJ0czUJAMwIAgUGcGFydHM2CQDMCAIFBnBhcnRzNwkAzAgCBQZwYXJ0czgFA25pbAoBD3NvcnRQYXJ0c0J5VHlwZQIDYWNjBHBhcnQECnNwbGl0UGFydHMJALUJAgUEcGFydAIAAwkAAAIJAJEDAgUKc3BsaXRQYXJ0cwAAAgFUCQCWCgQJAM0IAggFA2FjYwJfMQkAkQMCBQpzcGxpdFBhcnRzAAEIBQNhY2MCXzIIBQNhY2MCXzMIBQNhY2MCXzQDCQAAAgkAkQMCBQpzcGxpdFBhcnRzAAACAUQJAJYKBAgFA2FjYwJfMQkAzQgCCAUDYWNjAl8yCQCRAwIFCnNwbGl0UGFydHMAAQgFA2FjYwJfMwgFA2FjYwJfNAMJAAACCQCRAwIFCnNwbGl0UGFydHMAAAIBQwkAlgoECAUDYWNjAl8xCAUDYWNjAl8yCQDNCAIIBQNhY2MCXzMJAJEDAgUKc3BsaXRQYXJ0cwABCAUDYWNjAl80AwkAAAIJAJEDAgUKc3BsaXRQYXJ0cwAAAgFICQCWCgQIBQNhY2MCXzEIBQNhY2MCXzIIBQNhY2MCXzMJAM0IAggFA2FjYwJfNAkAkQMCBQpzcGxpdFBhcnRzAAEJAAIBAgxVTktOT1dOIFRZUEUEBnJlc3VsdAoAAiRsBQVwYXJ0cwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAUDbmlsBQNuaWwFA25pbAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ9zb3J0UGFydHNCeVR5cGUCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDgJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAwkAAAIFBnJlc3VsdAUGcmVzdWx0CgETY29tcG9zZVN0cmluZ1R1cnRsZQIDYWNjBGNoYXIECWNoYXJDb3VudAoAAiRsCAUGcmVzdWx0Al8xCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCAAAFBGNoYXIKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCGlzU3ltYm9sAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA4CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAkArAICBQNhY2MJARBnZXRBbW91bnRPckNsZWFyAQkArAICCQCkAwEIBQljaGFyQ291bnQCXzEFBGNoYXIKARFjb21wb3NlU3RyaW5nRHVjawIDYWNjBGNoYXIECWNoYXJDb3VudAoAAiRsCAUGcmVzdWx0Al8yCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCAAAFBGNoYXIKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCGlzU3ltYm9sAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA4CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAkArAICBQNhY2MJARBnZXRBbW91bnRPckNsZWFyAQkArAICCQCkAwEIBQljaGFyQ291bnQCXzEFBGNoYXIKARBjb21wb3NlU3RyaW5nQ2F0AgNhY2MEY2hhcgQJY2hhckNvdW50CgACJGwIBQZyZXN1bHQCXzMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIAAAUEY2hhcgoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIaXNTeW1ib2wCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDgJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAICQCsAgIFA2FjYwkBEGdldEFtb3VudE9yQ2xlYXIBCQCsAgIJAKQDAQgFCWNoYXJDb3VudAJfMQUEY2hhcgoBEGNvbXBvc2VTdHJpbmdEb2cCA2FjYwRjaGFyBAljaGFyQ291bnQKAAIkbAgFBnJlc3VsdAJfNAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgAABQRjaGFyCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhpc1N5bWJvbAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgOAkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgJAKwCAgUDYWNjCQEQZ2V0QW1vdW50T3JDbGVhcgEJAKwCAgkApAMBCAUJY2hhckNvdW50Al8xBQRjaGFyBAp0dXJ0bGVHZW5zCgACJGwJAQhjaGFyTGlzdAAKAAIkcwkAkAMBBQIkbAoABSRhY2MwAgAKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBE2NvbXBvc2VTdHJpbmdUdXJ0bGUCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDI2CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgQIZHVja0dlbnMKAAIkbAkBCGNoYXJMaXN0AAoAAiRzCQCQAwEFAiRsCgAFJGFjYzACAAoBBSRmMl8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQERY29tcG9zZVN0cmluZ0R1Y2sCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjJfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDI2CQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgQHY2F0R2VucwoAAiRsCQEIY2hhckxpc3QACgACJHMJAJADAQUCJGwKAAUkYWNjMAIACgEFJGYzXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARBjb21wb3NlU3RyaW5nQ2F0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYzXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyNgkBBSRmM18yAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgkBBSRmM18xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoECGhvbmRHZW5zCgACJGwJAQhjaGFyTGlzdAAKAAIkcwkAkAMBBQIkbAoABSRhY2MwAgAKAQUkZjRfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBEGNvbXBvc2VTdHJpbmdEb2cCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjRfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDI2CQEFJGY0XzICCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgQSZmluaXNoZWRUdXJ0bGVHZW5zAwkAAAIFCnR1cnRsZUdlbnMCAAIACQCsAgIJAKwCAgICVDoFCnR1cnRsZUdlbnMCAV8EEGZpbmlzaGVkRHVja0dlbnMDCQAAAgUIZHVja0dlbnMCAAIACQCsAgIJAKwCAgICRDoFCGR1Y2tHZW5zAgFfBA9maW5pc2hlZENhdEdlbnMDCQAAAgUHY2F0R2VucwIAAgAJAKwCAgkArAICAgJDOgUHY2F0R2VucwIBXwQQZmluaXNoZWRIb25kR2VucwMJAAACBQhob25kR2VucwIAAgAJAKwCAgkArAICAgJIOgUIaG9uZEdlbnMCAV8JAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCAgxERUJVR19UVVJUTEUFCnR1cnRsZUdlbnMJAMwIAgkBC1N0cmluZ0VudHJ5AgIKREVCVUdfRFVDSwUIZHVja0dlbnMJAMwIAgkBC1N0cmluZ0VudHJ5AgIJREVCVUdfQ0FUBQdjYXRHZW5zCQDMCAIJAQtTdHJpbmdFbnRyeQICCkRFQlVHX0hPTkQFCGhvbmRHZW5zBQNuaWwJAKwCAgkArAICCQCsAgIFEmZpbmlzaGVkVHVydGxlR2VucwUQZmluaXNoZWREdWNrR2VucwUPZmluaXNoZWRDYXRHZW5zBQhob25kR2VucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgEWdmFsaWRhdGVJZk11dGFudEZhaWxlZAEGcmFyaXR5AwkAZgIAAwkAkAMBCQC1CQIFBnJhcml0eQIBOgYHARZmaW5pc2hIYXRjaGluZ0ludGVybmFsAgR0eElkBW93bmVyBBBwcm9jZXNzU3RhdHVzS2V5CQETZ2V0UHJvY2Vzc1N0YXR1c0tleQIFBW93bmVyBQR0eElkBA9maW5pc2hIZWlnaHRLZXkJARlnZXRQcm9jZXNzRmluaXNoSGVpZ2h0S2V5AgUFb3duZXIFBHR4SWQEBUlkS2V5CQEIZ2V0SWRLZXkCBQVvd25lcgUEdHhJZAQPcHJvY2Vzc1R4U3RhdHVzCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzBRBwcm9jZXNzU3RhdHVzS2V5BBNwcm9jZXNzRmluaXNoSGVpZ2h0CQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzBQ9maW5pc2hIZWlnaHRLZXkDCQAAAgUPcHJvY2Vzc1R4U3RhdHVzCQEQaGF0Y2hpbmdGaW5pc2hlZAAEAklkCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzCQEIZ2V0SWRLZXkCBQVvd25lcgUEdHhJZAkAAgEJAKwCAgJCVGhlIE1VVEFOVCB3YXMgYnJlZWRlZCBhbmQgY2xhaW1lZCBhbHJlYWR5LCBoZXJlIGlzIHRoZSBmb2xvd2luZzogBQJJZAMJAGYCBRNwcm9jZXNzRmluaXNoSGVpZ2h0BQZoZWlnaHQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICHUJyZWVkaW5nIGlzIG5vdCBmaW5pc2hlZCB5ZXQgCQCkAwEJAGUCBRNwcm9jZXNzRmluaXNoSGVpZ2h0BQZoZWlnaHQCJyBibG9ja3MgcmVtYWluaW5nLCBpdCB3aWxsIHRha2UgYXJvdW5kIAkApAMBCQBlAgUTcHJvY2Vzc0ZpbmlzaEhlaWdodAUGaGVpZ2h0AgggbWludXRlcwQJcGFyZW50MUlkCQEMdHJ5R2V0U3RyaW5nAQkBDGdldFBhcmVudEtleQIJANkEAQUEdHhJZAABBAlwYXJlbnQySWQJAQx0cnlHZXRTdHJpbmcBCQEMZ2V0UGFyZW50S2V5AgkA2QQBBQR0eElkAAIEDnBhcmVudDFJZEJ5dGVzCQDZBAEFCXBhcmVudDFJZAQOcGFyZW50MklkQnl0ZXMJANkEAQUJcGFyZW50MklkBANnZW4JAQhnZW5lcmF0ZQQJANkEAQUEdHhJZAUTcHJvY2Vzc0ZpbmlzaEhlaWdodAUOcGFyZW50MUlkQnl0ZXMFDnBhcmVudDJJZEJ5dGVzBAdmYXJtR2VuCQENbnJPZlR5cGVHZW5lcwEFA2dlbgQOcmFyaXR5RnJvbU5hbWUJARFnZXRSYXJpdHlGcm9tTmFtZQEFA2dlbgQGYW1vdW50CQBkAgkBDXRyeUdldEludGVnZXIBCQELZ2V0U3RhdHNLZXkBBQNnZW4AAQQFYXNzZXQJAMMIBwkArAICAgVNVE5ULQkApAMBBQZhbW91bnQFA2dlbgABAAAHBQR1bml0BRNwcm9jZXNzRmluaXNoSGVpZ2h0BAdhc3NldElkCQC4CAEFBWFzc2V0BAhxdWFudGl0eQkBDXRyeUdldEludGVnZXIBCQCsAgIJAKwCAgIGc3RhdHNfCAUHZmFybUdlbgJfMgIJX3F1YW50aXR5BAZyYXJpdHkJAQ10cnlHZXRJbnRlZ2VyAQkArAICCQCsAgICBnN0YXRzXwUOcmFyaXR5RnJvbU5hbWUCB19yYXJpdHkEDm93bmVyQXNBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBBQVvd25lcgQGZmFpbGVkCQEWdmFsaWRhdGVJZk11dGFudEZhaWxlZAEIBQdmYXJtR2VuAl8yBA50cmFuc2Zlck9yQnVybgMFBmZhaWxlZAkBBEJ1cm4CBQdhc3NldElkAAEJAQ5TY3JpcHRUcmFuc2ZlcgMFDm93bmVyQXNBZGRyZXNzAAEFB2Fzc2V0SWQEFXRyYW5zZmVyT3JCdXJuUGFyZW50MQMJAAACCQEPZ2V0UmFuZG9tTnVtYmVyBAAKCQDZBAEFBHR4SWQFE3Byb2Nlc3NGaW5pc2hIZWlnaHQAAgAFCQEEQnVybgIFDnBhcmVudDFJZEJ5dGVzAAEJAQ5TY3JpcHRUcmFuc2ZlcgMFDm93bmVyQXNBZGRyZXNzAAEFDnBhcmVudDFJZEJ5dGVzBBV0cmFuc2Zlck9yQnVyblBhcmVudDIDCQAAAgkBD2dldFJhbmRvbU51bWJlcgQACgkA2QQBBQR0eElkBRNwcm9jZXNzRmluaXNoSGVpZ2h0AAMABQkBBEJ1cm4CBQ5wYXJlbnQySWRCeXRlcwABCQEOU2NyaXB0VHJhbnNmZXIDBQ5vd25lckFzQWRkcmVzcwABBQ5wYXJlbnQySWRCeXRlcwkAzAgCCQELU3RyaW5nRW50cnkCBRBwcm9jZXNzU3RhdHVzS2V5CQEQaGF0Y2hpbmdGaW5pc2hlZAAJAMwIAgkBC1N0cmluZ0VudHJ5AgUFSWRLZXkJANgEAQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQDYBAEFB2Fzc2V0SWQFBUlkS2V5CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQELZ2V0U3RhdHNLZXkBBQNnZW4FBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgICBnN0YXRzXwgFB2Zhcm1HZW4CXzICCV9xdWFudGl0eQkAZAIFCHF1YW50aXR5AAEJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICAgZzdGF0c18FDnJhcml0eUZyb21OYW1lAgdfcmFyaXR5CQBkAgUGcmFyaXR5AAEJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICAgZhc3NldF8FCXBhcmVudDFJZAIJX2NoaWxkcmVuAAEJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICAgZhc3NldF8FCXBhcmVudDJJZAIJX2NoaWxkcmVuAAEJAMwIAgkBDEludGVnZXJFbnRyeQICDHN0YXRzX2Ftb3VudAkAZAIJAQ10cnlHZXRJbnRlZ2VyAQIMc3RhdHNfYW1vdW50AAEJAMwIAgUFYXNzZXQJAMwIAgUOdHJhbnNmZXJPckJ1cm4JAMwIAgUVdHJhbnNmZXJPckJ1cm5QYXJlbnQxCQDMCAIFFXRyYW5zZmVyT3JCdXJuUGFyZW50MgUDbmlsARZjaGVja0FkZGl0aW9uYWxQYXltZW50AQdwYXltZW50AwkBCWlzRGVmaW5lZAEIBQdwYXltZW50B2Fzc2V0SWQJAAIBAhlCQ0FQOiBQbGVhc2UgYXR0YWNoIHdhdmVzBAlmZWVBbW91bnQJARFAZXh0ck5hdGl2ZSgxMDUwKQIJAQlnZXRPcmFjbGUACQESc3RhdGljS2V5X2V4dHJhRmVlAAMJAQIhPQIIBQdwYXltZW50BmFtb3VudAUJZmVlQW1vdW50CQACAQkArAICCQCsAgICHEJDQVA6IFBsZWFzZSBhdHRhY2ggZXhhY3RseSAJAKQDAQUJZmVlQW1vdW50AhMgYW1vdW50IG9mIHdhdmVsZXRzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARBnZXRGZWVBZ2dyZWdhdG9yAAUJZmVlQW1vdW50BQR1bml0BQNuaWwBGmNoZWNrVHlwZUFuZFZhbGlkT2JzdGluYXRlAQRpbmZvBAhzcGxpdHRlZAkAtQkCCAUEaW5mbwRuYW1lAgAEBHR5cGUJAJEDAgUIc3BsaXR0ZWQAAAQDZ2VuCQCRAwIFCHNwbGl0dGVkAA4DCQECIT0CBQNnZW4CAU8JAAIBAjJNQ1RBVk86IE9ubHkgb2JzdGluYXRlcyBjYW4gYmUgdHVybmVkIGludG8gbXV0YW50cwQJYnJlZWRlclNjAwkAAAIFBHR5cGUCAVQJARdnZXRUdXJ0bGVCcmVlZGVyQWRkcmVzcwADCQAAAgUEdHlwZQIBRAkBFWdldER1Y2tCcmVlZGVyQWRkcmVzcwAJAAIBAhRNQ1RBVk86IEludmFsaWQgdHlwZQMJAQIhPQIFCWJyZWVkZXJTYwgFBGluZm8GaXNzdWVyCQACAQJMTUNUQVZPOiBPbmx5IG9ic3RpbmF0ZXMgZnJvbSB0aGUgYnJlZWRlciBjb250cmFjdCBjYW4gYmUgdHVybmVkIGludG8gbXV0YW50cwMJAAACCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCBQlicmVlZGVyU2MJANgEAQgFBGluZm8CaWQCAAkAAgECE01DVEFWTzogSW52YWxpZCBuZnQDCQECIT0CCQEMdHJ5R2V0U3RyaW5nAQkBC2dldENoaWxkcmVuAQkA2AQBCAUEaW5mbwJpZAIACQACAQIYTUNUQVZPOiBORlQgYWxyZWFkeSB1c2VkBQR0eXBlBAFpAQ9jb25maWd1cmVPcmFjbGUBBm9yYWNsZQMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECD0lDVTogYWRtaW4gb25seQkAzAgCCQELU3RyaW5nRW50cnkCAhRzdGF0aWNfb3JhY2xlQWRkcmVzcwUGb3JhY2xlBQNuaWwBaQETc3RhcnRNdXRhbnRIYXRjaGluZwEOcmVmZXJlckFkZHJlc3MDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAUJAAIBAhlNU01IOiA1IHBheW1lbnRzIHJlcXVpcmVkAwkBAiE9AggJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQAAQkAAgECIE1TTUg6IDFzdCBwYXltZW50IG11c3QgYmUgYW4gTkZUAwkBAiE9AggJAJEDAggFAWkIcGF5bWVudHMAAQZhbW91bnQAAQkAAgECIE1TTUg6IDJuZCBwYXltZW50IG11c3QgYmUgYW4gTkZUBAx2YWxpZFBheW1lbnQJARZjaGVja0FkZGl0aW9uYWxQYXltZW50AQkAkQMCCAUBaQhwYXltZW50cwACAwkAAAIFDHZhbGlkUGF5bWVudAUMdmFsaWRQYXltZW50AwMJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAMHYXNzZXRJZAkBD2dldFNwaWNlQXNzZXRJZAAGCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwADBmFtb3VudAkBEGNhbGNQcmljZUluQXNzZXQBCQEOYmFzZVByaWNlU3BpY2UACQACAQIiTVNNSDogNHRoIHBheW1lbnQgbXVzdCBiZSBpbiBzcGljZQMDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAEB2Fzc2V0SWQJAQ1nZXRFZ2dBc3NldElkAAYJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAQGYW1vdW50CQEQY2FsY1ByaWNlSW5Bc3NldAEJAQxiYXNlUHJpY2VFZ2cACQACAQIgTVNNSDogNXRoIHBheW1lbnQgbXVzdCBiZSBpbiBlZ2cEBG5mdDEJAQV2YWx1ZQEJAOwHAQkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBARuZnQyCQEFdmFsdWUBCQDsBwEJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAEHYXNzZXRJZAQFdHlwZTEJARpjaGVja1R5cGVBbmRWYWxpZE9ic3RpbmF0ZQEFBG5mdDEEBXR5cGUyCQEaY2hlY2tUeXBlQW5kVmFsaWRPYnN0aW5hdGUBBQRuZnQyAwkAAAIFBXR5cGUxBQV0eXBlMgkAAgECJk1TTUg6IE5GVHMgY2FuIG5vdCBiZSBvZiB0aGUgc2FtZSB0eXBlCQDOCAIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDGdldFBhcmVudEtleQIIBQFpDXRyYW5zYWN0aW9uSWQAAQkA2AQBCAUEbmZ0MQJpZAkAzAgCCQELU3RyaW5nRW50cnkCCQEMZ2V0UGFyZW50S2V5AggFAWkNdHJhbnNhY3Rpb25JZAACCQDYBAEIBQRuZnQyAmlkCQDMCAIJAQtTdHJpbmdFbnRyeQIJARNnZXRQcm9jZXNzU3RhdHVzS2V5AgkApQgBCAUBaQZjYWxsZXIJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkBD2hhdGNoaW5nU3RhcnRlZAAJAMwIAgkBDEludGVnZXJFbnRyeQIJARlnZXRQcm9jZXNzRmluaXNoSGVpZ2h0S2V5AgkApQgBCAUBaQZjYWxsZXIJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAkAZAIFBmhlaWdodAkBEGRlbGF5Rm9ySGF0Y2hpbmcABQNuaWwFDHZhbGlkUGF5bWVudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARRmaW5pc2hNdXRhbnRIYXRjaGluZwEHdHhJZFN0cgQFb3duZXIJAKUIAQgFAWkMb3JpZ2luQ2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIfTUZNSDogV3JvbmcgYW1vdW50IG9mIHBheW1lbnRzIQQLZmVlVmFsaWRhdGUJARZjaGVja0FkZGl0aW9uYWxQYXltZW50AQkAkQMCCAUBaQhwYXltZW50cwAAAwkAAAIFC2ZlZVZhbGlkYXRlBQtmZWVWYWxpZGF0ZQkAzggCCQEWZmluaXNoSGF0Y2hpbmdJbnRlcm5hbAIFB3R4SWRTdHIFBW93bmVyBQtmZWVWYWxpZGF0ZQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQxyZWR1Y2VSYXJpdHkCB2Fzc2V0SWQEZkdlbgkAAgECFE1SUjogTm90IGltcGxlbWVudGVkAQJ0eAEGdmVyaWZ5AAMJAQlpc1Rlc3RFbnYACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5BAlmaXJzdFVzZXIBIFEc5P1m/xJp0vFaFJ87suL0O3/By2gnojRebDjXV91tBApzZWNvbmRVc2VyASDBbN+O7dONc4+Lovn6iQ/0dc1EG1RyUqO0nNJWpC3gdQQJdGhpcmRVc2VyASDnW/SOqtL5SZ5uhCa4+X4f3GeofdwruNTqe83yaArBJQQPZmlyc3RVc2VyU2lnbmVkAwkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAUJZmlyc3RVc2VyAAEDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwABBQlmaXJzdFVzZXIAAQMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAIFCWZpcnN0VXNlcgABAAAEEHNlY29uZFVzZXJTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQpzZWNvbmRVc2VyAAEDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwABBQpzZWNvbmRVc2VyAAEDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwACBQpzZWNvbmRVc2VyAAEAAAQPdGhpcmRVc2VyU2lnbmVkAwkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAUJdGhpcmRVc2VyAAEDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwABBQl0aGlyZFVzZXIAAQMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAIFCXRoaXJkVXNlcgABAAAED3NpZ25hdHVyZXNDb3VudAkAZAIJAGQCBQ9maXJzdFVzZXJTaWduZWQFEHNlY29uZFVzZXJTaWduZWQFD3RoaXJkVXNlclNpZ25lZAQHJG1hdGNoMAUCdHgJAGcCBQ9zaWduYXR1cmVzQ291bnQAAloyHAU=",
    "height": 4164893,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7LgXeXU2Z5VtihTDWEFzpqUxtJAR4XRFHys2pyD3pFcv
Next: HQ6tRE54U83HKv7UN7cjHW2kSwFT6aEYeycoPt1BD7Ai

Diff: 
Old New Differences
429 429                  let transferOrBurnParent2 = if ((getRandomNumber(10, fromBase58String(txId), processFinishHeight, 3) == 5))
430 430                      then Burn(parent2IdBytes, 1)
431 431                      else ScriptTransfer(ownerAsAddress, 1, parent2IdBytes)
432 - [StringEntry(processStatusKey, hatchingFinished()), StringEntry(IdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), IdKey), IntegerEntry(getStatsKey(gen), amount), IntegerEntry((("stats_" + farmGen._2) + "_quantity"), (quantity + 1)), IntegerEntry((("stats_" + rarityFromName) + "_rarity"), (rarity + 1)), IntegerEntry((("asset_" + parent1Id) + "_children"), 1), IntegerEntry((("asset_" + parent2Id) + "_children"), 1), asset, transferOrBurn, transferOrBurnParent1, transferOrBurnParent2]
432 + [StringEntry(processStatusKey, hatchingFinished()), StringEntry(IdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), IdKey), IntegerEntry(getStatsKey(gen), amount), IntegerEntry((("stats_" + farmGen._2) + "_quantity"), (quantity + 1)), IntegerEntry((("stats_" + rarityFromName) + "_rarity"), (rarity + 1)), IntegerEntry((("asset_" + parent1Id) + "_children"), 1), IntegerEntry((("asset_" + parent2Id) + "_children"), 1), IntegerEntry("stats_amount", (tryGetInteger("stats_amount") + 1)), asset, transferOrBurn, transferOrBurnParent1, transferOrBurnParent2]
433 433                  }
434 434      }
435 435  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  func basePriceSpice () = 1000000000
5 5  
6 6  
7 7  func basePriceEgg () = 200000000
8 8  
9 9  
10 10  func delayForHatching () = 2
11 11  
12 12  
13 13  func hatchingStarted () = "BREEDING_STARTED"
14 14  
15 15  
16 16  func hatchingFinished () = "BREEDING_FINISHED"
17 17  
18 18  
19 19  func staticKey_eggAssetId () = "static_eggAssetId"
20 20  
21 21  
22 22  func staticKey_spiceAssetId () = "static_spiceAssetId"
23 23  
24 24  
25 25  func staticKey_duckBreederAddress () = "static_breederAddress"
26 26  
27 27  
28 28  func staticKey_turtleBreederAddress () = "static_turtleBreederAddress"
29 29  
30 30  
31 31  func staticKey_oracleAddress () = "static_oracleAddress"
32 32  
33 33  
34 34  func staticKey_extraFee () = "static_extraFee"
35 35  
36 36  
37 37  func staticKey_feeAggregator () = "static_feeAggregator"
38 38  
39 39  
40 40  func getStatsKey_amount () = "stats_amount"
41 41  
42 42  
43 43  func getStatsKey (genString) = (("stats_" + genString) + "_amount")
44 44  
45 45  
46 46  func getChildren (assetId) = (("asset_" + assetId) + "_children")
47 47  
48 48  
49 49  func getParentKey (txId,parentNum) = ((("inittx_" + toBase58String(txId)) + "_parent") + toString(parentNum))
50 50  
51 51  
52 52  func getProcessStatusKey (address,txId) = (((address + "_") + txId) + "_status")
53 53  
54 54  
55 55  func getProcessFinishHeightKey (address,txId) = (((address + "_") + txId) + "_fh")
56 56  
57 57  
58 58  func getIdKey (address,txId) = (((address + "_") + txId) + "_di")
59 59  
60 60  
61 61  func tryGetStringExternal (address,key) = match getString(address, key) {
62 62      case a: String => 
63 63          a
64 64      case _ => 
65 65          ""
66 66  }
67 67  
68 68  
69 69  func tryGetString (key) = tryGetStringExternal(this, key)
70 70  
71 71  
72 72  func tryGetInteger (key) = {
73 73      let val =     match getInteger(this, key) {
74 74          case b: Int => 
75 75              b
76 76          case _ => 
77 77              0
78 78      }
79 79      val
80 80      }
81 81  
82 82  
83 83  func getOracle () = Address(fromBase58String(tryGetString(staticKey_oracleAddress())))
84 84  
85 85  
86 86  func getTurtleBreederAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_turtleBreederAddress())))
87 87  
88 88  
89 89  func getDuckBreederAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_duckBreederAddress())))
90 90  
91 91  
92 92  func getEggAssetId () = fromBase58String(tryGetStringExternal(getOracle(), staticKey_eggAssetId()))
93 93  
94 94  
95 95  func getSpiceAssetId () = fromBase58String(tryGetStringExternal(getOracle(), staticKey_spiceAssetId()))
96 96  
97 97  
98 98  func getFeeAggregator () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_feeAggregator())))
99 99  
100 100  
101 101  func getAllowedMutants () = [getTurtleBreederAddress(), getDuckBreederAddress()]
102 102  
103 103  
104 104  func calcPriceInAsset (baseAmount) = (baseAmount + (((baseAmount * (tryGetInteger(getStatsKey_amount()) + 1)) / 1000) / size(getAllowedMutants())))
105 105  
106 106  
107 107  func getBool (key) = match getBoolean(this, key) {
108 108      case b: Boolean => 
109 109          b
110 110      case _ => 
111 111          false
112 112  }
113 113  
114 114  
115 115  func isTestEnv () = getBool("TESTENV")
116 116  
117 117  
118 118  func getRandomNumber (variants,txId,hatchingFinishHeight,offset) = {
119 119      let randomSeedBlock = value(blockInfoByHeight((hatchingFinishHeight - 1)))
120 120      let randomHash = sha256_16Kb((txId + value(randomSeedBlock.vrf)))
121 121      (toInt(randomHash, offset) % variants)
122 122      }
123 123  
124 124  
125 125  func getRandomGen (gen1,gen2,step,txId,hatchingFinishHeight) = {
126 126      let randomNum = getRandomNumber(2, txId, hatchingFinishHeight, step)
127 127      let gen = if ((randomNum == 0))
128 128          then gen1
129 129          else gen2
130 130      gen
131 131      }
132 132  
133 133  
134 134  func generate (txId,finishHeight,parent1Id,parent2Id) = {
135 135      let colorRandom = getRandomNumber(100, txId, finishHeight, 11)
136 136      let color = if ((26 > colorRandom))
137 137          then "A"
138 138          else if ((48 > colorRandom))
139 139              then "B"
140 140              else if ((70 > colorRandom))
141 141                  then "C"
142 142                  else if ((90 > colorRandom))
143 143                      then "D"
144 144                      else "G"
145 145      let parent1Gen = split(value(assetInfo(parent1Id)).name, "")
146 146      let parent2Gen = split(value(assetInfo(parent2Id)).name, "")
147 147      let gen = (((((((((("MTNT-" + getRandomGen((parent1Gen[0] + parent1Gen[5]), (parent2Gen[0] + parent2Gen[5]), 0, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[6]), (parent2Gen[0] + parent2Gen[6]), 1, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[7]), (parent2Gen[0] + parent2Gen[7]), 2, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[8]), (parent2Gen[0] + parent2Gen[8]), 3, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[9]), (parent2Gen[0] + parent2Gen[9]), 4, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[10]), (parent2Gen[0] + parent2Gen[10]), 5, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[11]), (parent2Gen[0] + parent2Gen[11]), 6, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[12]), (parent2Gen[0] + parent2Gen[12]), 7, txId, finishHeight)) + "-G") + color)
148 148      gen
149 149      }
150 150  
151 151  
152 152  func isSymbol (acc,sym) = if ((sym == acc._2))
153 153      then $Tuple2((acc._1 + 1), acc._2)
154 154      else $Tuple2((acc._1 + 0), acc._2)
155 155  
156 156  
157 157  func getAmountOrClear (amount) = if (contains(amount, "0"))
158 158      then ""
159 159      else amount
160 160  
161 161  
162 162  func charList () = ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"]
163 163  
164 164  
165 165  func getRarityFromName (name) = {
166 166      let color = split(name, "")[22]
167 167      let genotype = split(dropRight(drop(name, 5), 3), "")
168 168      let genetics = [genotype[1], genotype[3], genotype[5], genotype[7], genotype[9], genotype[11], genotype[13], genotype[15]]
169 169      func composeString (acc,char) =     {
170 170          let charCount = {
171 171              let $l = genetics
172 172              let $s = size($l)
173 173              let $acc0 = $Tuple2(0, char)
174 174              func $f0_1 ($a,$i) =             if (($i >= $s))
175 175                  then $a
176 176                  else isSymbol($a, $l[$i])
177 177  
178 178              func $f0_2 ($a,$i) =             if (($i >= $s))
179 179                  then $a
180 180                  else throw("List size exceeds 8")
181 181  
182 182              $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
183 183              }
184 184          (acc + getAmountOrClear((toString(charCount._1) + char)))
185 185          }
186 186  
187 187      (({
188 188          let $l = charList()
189 189          let $s = size($l)
190 190          let $acc0 = ""
191 191          func $f0_1 ($a,$i) =         if (($i >= $s))
192 192              then $a
193 193              else composeString($a, $l[$i])
194 194  
195 195          func $f0_2 ($a,$i) =         if (($i >= $s))
196 196              then $a
197 197              else throw("List size exceeds 26")
198 198  
199 199          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26)
200 200          } + "-") + color)
201 201      }
202 202  
203 203  
204 204  func nrOfTypeGenes (gen) = {
205 205      let genotype = split(dropRight(drop(gen, 5), 3), "")
206 206      let parts1 = (genotype[0] + genotype[1])
207 207      let parts2 = (genotype[2] + genotype[3])
208 208      let parts3 = (genotype[4] + genotype[5])
209 209      let parts4 = (genotype[6] + genotype[7])
210 210      let parts5 = (genotype[8] + genotype[9])
211 211      let parts6 = (genotype[10] + genotype[11])
212 212      let parts7 = (genotype[12] + genotype[13])
213 213      let parts8 = (genotype[14] + genotype[15])
214 214      let parts = [parts1, parts2, parts3, parts4, parts5, parts6, parts7, parts8]
215 215      func sortPartsByType (acc,part) =     {
216 216          let splitParts = split(part, "")
217 217          if ((splitParts[0] == "T"))
218 218              then $Tuple4((acc._1 :+ splitParts[1]), acc._2, acc._3, acc._4)
219 219              else if ((splitParts[0] == "D"))
220 220                  then $Tuple4(acc._1, (acc._2 :+ splitParts[1]), acc._3, acc._4)
221 221                  else if ((splitParts[0] == "C"))
222 222                      then $Tuple4(acc._1, acc._2, (acc._3 :+ splitParts[1]), acc._4)
223 223                      else if ((splitParts[0] == "H"))
224 224                          then $Tuple4(acc._1, acc._2, acc._3, (acc._4 :+ splitParts[1]))
225 225                          else throw("UNKNOWN TYPE")
226 226          }
227 227  
228 228      let result = {
229 229          let $l = parts
230 230          let $s = size($l)
231 231          let $acc0 = $Tuple4(nil, nil, nil, nil)
232 232          func $f0_1 ($a,$i) =         if (($i >= $s))
233 233              then $a
234 234              else sortPartsByType($a, $l[$i])
235 235  
236 236          func $f0_2 ($a,$i) =         if (($i >= $s))
237 237              then $a
238 238              else throw("List size exceeds 8")
239 239  
240 240          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
241 241          }
242 242      if ((result == result))
243 243          then {
244 244              func composeStringTurtle (acc,char) =             {
245 245                  let charCount = {
246 246                      let $l = result._1
247 247                      let $s = size($l)
248 248                      let $acc0 = $Tuple2(0, char)
249 249                      func $f1_1 ($a,$i) =                     if (($i >= $s))
250 250                          then $a
251 251                          else isSymbol($a, $l[$i])
252 252  
253 253                      func $f1_2 ($a,$i) =                     if (($i >= $s))
254 254                          then $a
255 255                          else throw("List size exceeds 8")
256 256  
257 257                      $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
258 258                      }
259 259                  (acc + getAmountOrClear((toString(charCount._1) + char)))
260 260                  }
261 261  
262 262              func composeStringDuck (acc,char) =             {
263 263                  let charCount = {
264 264                      let $l = result._2
265 265                      let $s = size($l)
266 266                      let $acc0 = $Tuple2(0, char)
267 267                      func $f1_1 ($a,$i) =                     if (($i >= $s))
268 268                          then $a
269 269                          else isSymbol($a, $l[$i])
270 270  
271 271                      func $f1_2 ($a,$i) =                     if (($i >= $s))
272 272                          then $a
273 273                          else throw("List size exceeds 8")
274 274  
275 275                      $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
276 276                      }
277 277                  (acc + getAmountOrClear((toString(charCount._1) + char)))
278 278                  }
279 279  
280 280              func composeStringCat (acc,char) =             {
281 281                  let charCount = {
282 282                      let $l = result._3
283 283                      let $s = size($l)
284 284                      let $acc0 = $Tuple2(0, char)
285 285                      func $f1_1 ($a,$i) =                     if (($i >= $s))
286 286                          then $a
287 287                          else isSymbol($a, $l[$i])
288 288  
289 289                      func $f1_2 ($a,$i) =                     if (($i >= $s))
290 290                          then $a
291 291                          else throw("List size exceeds 8")
292 292  
293 293                      $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
294 294                      }
295 295                  (acc + getAmountOrClear((toString(charCount._1) + char)))
296 296                  }
297 297  
298 298              func composeStringDog (acc,char) =             {
299 299                  let charCount = {
300 300                      let $l = result._4
301 301                      let $s = size($l)
302 302                      let $acc0 = $Tuple2(0, char)
303 303                      func $f1_1 ($a,$i) =                     if (($i >= $s))
304 304                          then $a
305 305                          else isSymbol($a, $l[$i])
306 306  
307 307                      func $f1_2 ($a,$i) =                     if (($i >= $s))
308 308                          then $a
309 309                          else throw("List size exceeds 8")
310 310  
311 311                      $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
312 312                      }
313 313                  (acc + getAmountOrClear((toString(charCount._1) + char)))
314 314                  }
315 315  
316 316              let turtleGens = {
317 317                  let $l = charList()
318 318                  let $s = size($l)
319 319                  let $acc0 = ""
320 320                  func $f1_1 ($a,$i) =                 if (($i >= $s))
321 321                      then $a
322 322                      else composeStringTurtle($a, $l[$i])
323 323  
324 324                  func $f1_2 ($a,$i) =                 if (($i >= $s))
325 325                      then $a
326 326                      else throw("List size exceeds 26")
327 327  
328 328                  $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26)
329 329                  }
330 330              let duckGens = {
331 331                  let $l = charList()
332 332                  let $s = size($l)
333 333                  let $acc0 = ""
334 334                  func $f2_1 ($a,$i) =                 if (($i >= $s))
335 335                      then $a
336 336                      else composeStringDuck($a, $l[$i])
337 337  
338 338                  func $f2_2 ($a,$i) =                 if (($i >= $s))
339 339                      then $a
340 340                      else throw("List size exceeds 26")
341 341  
342 342                  $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26)
343 343                  }
344 344              let catGens = {
345 345                  let $l = charList()
346 346                  let $s = size($l)
347 347                  let $acc0 = ""
348 348                  func $f3_1 ($a,$i) =                 if (($i >= $s))
349 349                      then $a
350 350                      else composeStringCat($a, $l[$i])
351 351  
352 352                  func $f3_2 ($a,$i) =                 if (($i >= $s))
353 353                      then $a
354 354                      else throw("List size exceeds 26")
355 355  
356 356                  $f3_2($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26)
357 357                  }
358 358              let hondGens = {
359 359                  let $l = charList()
360 360                  let $s = size($l)
361 361                  let $acc0 = ""
362 362                  func $f4_1 ($a,$i) =                 if (($i >= $s))
363 363                      then $a
364 364                      else composeStringDog($a, $l[$i])
365 365  
366 366                  func $f4_2 ($a,$i) =                 if (($i >= $s))
367 367                      then $a
368 368                      else throw("List size exceeds 26")
369 369  
370 370                  $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26)
371 371                  }
372 372              let finishedTurtleGens = if ((turtleGens == ""))
373 373                  then ""
374 374                  else (("T:" + turtleGens) + "_")
375 375              let finishedDuckGens = if ((duckGens == ""))
376 376                  then ""
377 377                  else (("D:" + duckGens) + "_")
378 378              let finishedCatGens = if ((catGens == ""))
379 379                  then ""
380 380                  else (("C:" + catGens) + "_")
381 381              let finishedHondGens = if ((hondGens == ""))
382 382                  then ""
383 383                  else (("H:" + hondGens) + "_")
384 384              $Tuple2([StringEntry("DEBUG_TURTLE", turtleGens), StringEntry("DEBUG_DUCK", duckGens), StringEntry("DEBUG_CAT", catGens), StringEntry("DEBUG_HOND", hondGens)], (((finishedTurtleGens + finishedDuckGens) + finishedCatGens) + hondGens))
385 385              }
386 386          else throw("Strict value is not equal to itself.")
387 387      }
388 388  
389 389  
390 390  func validateIfMutantFailed (rarity) = if ((3 > size(split(rarity, ":"))))
391 391      then true
392 392      else false
393 393  
394 394  
395 395  func finishHatchingInternal (txId,owner) = {
396 396      let processStatusKey = getProcessStatusKey(owner, txId)
397 397      let finishHeightKey = getProcessFinishHeightKey(owner, txId)
398 398      let IdKey = getIdKey(owner, txId)
399 399      let processTxStatus = getStringValue(this, processStatusKey)
400 400      let processFinishHeight = getIntegerValue(this, finishHeightKey)
401 401      if ((processTxStatus == hatchingFinished()))
402 402          then {
403 403              let Id = getStringValue(this, getIdKey(owner, txId))
404 404              throw(("The MUTANT was breeded and claimed already, here is the folowing: " + Id))
405 405              }
406 406          else if ((processFinishHeight > height))
407 407              then throw((((("Breeding is not finished yet " + toString((processFinishHeight - height))) + " blocks remaining, it will take around ") + toString((processFinishHeight - height))) + " minutes"))
408 408              else {
409 409                  let parent1Id = tryGetString(getParentKey(fromBase58String(txId), 1))
410 410                  let parent2Id = tryGetString(getParentKey(fromBase58String(txId), 2))
411 411                  let parent1IdBytes = fromBase58String(parent1Id)
412 412                  let parent2IdBytes = fromBase58String(parent2Id)
413 413                  let gen = generate(fromBase58String(txId), processFinishHeight, parent1IdBytes, parent2IdBytes)
414 414                  let farmGen = nrOfTypeGenes(gen)
415 415                  let rarityFromName = getRarityFromName(gen)
416 416                  let amount = (tryGetInteger(getStatsKey(gen)) + 1)
417 417                  let asset = Issue(("MTNT-" + toString(amount)), gen, 1, 0, false, unit, processFinishHeight)
418 418                  let assetId = calculateAssetId(asset)
419 419                  let quantity = tryGetInteger((("stats_" + farmGen._2) + "_quantity"))
420 420                  let rarity = tryGetInteger((("stats_" + rarityFromName) + "_rarity"))
421 421                  let ownerAsAddress = addressFromStringValue(owner)
422 422                  let failed = validateIfMutantFailed(farmGen._2)
423 423                  let transferOrBurn = if (failed)
424 424                      then Burn(assetId, 1)
425 425                      else ScriptTransfer(ownerAsAddress, 1, assetId)
426 426                  let transferOrBurnParent1 = if ((getRandomNumber(10, fromBase58String(txId), processFinishHeight, 2) == 5))
427 427                      then Burn(parent1IdBytes, 1)
428 428                      else ScriptTransfer(ownerAsAddress, 1, parent1IdBytes)
429 429                  let transferOrBurnParent2 = if ((getRandomNumber(10, fromBase58String(txId), processFinishHeight, 3) == 5))
430 430                      then Burn(parent2IdBytes, 1)
431 431                      else ScriptTransfer(ownerAsAddress, 1, parent2IdBytes)
432 - [StringEntry(processStatusKey, hatchingFinished()), StringEntry(IdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), IdKey), IntegerEntry(getStatsKey(gen), amount), IntegerEntry((("stats_" + farmGen._2) + "_quantity"), (quantity + 1)), IntegerEntry((("stats_" + rarityFromName) + "_rarity"), (rarity + 1)), IntegerEntry((("asset_" + parent1Id) + "_children"), 1), IntegerEntry((("asset_" + parent2Id) + "_children"), 1), asset, transferOrBurn, transferOrBurnParent1, transferOrBurnParent2]
432 + [StringEntry(processStatusKey, hatchingFinished()), StringEntry(IdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), IdKey), IntegerEntry(getStatsKey(gen), amount), IntegerEntry((("stats_" + farmGen._2) + "_quantity"), (quantity + 1)), IntegerEntry((("stats_" + rarityFromName) + "_rarity"), (rarity + 1)), IntegerEntry((("asset_" + parent1Id) + "_children"), 1), IntegerEntry((("asset_" + parent2Id) + "_children"), 1), IntegerEntry("stats_amount", (tryGetInteger("stats_amount") + 1)), asset, transferOrBurn, transferOrBurnParent1, transferOrBurnParent2]
433 433                  }
434 434      }
435 435  
436 436  
437 437  func checkAdditionalPayment (payment) = if (isDefined(payment.assetId))
438 438      then throw("BCAP: Please attach waves")
439 439      else {
440 440          let feeAmount = getIntegerValue(getOracle(), staticKey_extraFee())
441 441          if ((payment.amount != feeAmount))
442 442              then throw((("BCAP: Please attach exactly " + toString(feeAmount)) + " amount of wavelets"))
443 443              else [ScriptTransfer(getFeeAggregator(), feeAmount, unit)]
444 444          }
445 445  
446 446  
447 447  func checkTypeAndValidObstinate (info) = {
448 448      let splitted = split(info.name, "")
449 449      let type = splitted[0]
450 450      let gen = splitted[14]
451 451      if ((gen != "O"))
452 452          then throw("MCTAVO: Only obstinates can be turned into mutants")
453 453          else {
454 454              let breederSc = if ((type == "T"))
455 455                  then getTurtleBreederAddress()
456 456                  else if ((type == "D"))
457 457                      then getDuckBreederAddress()
458 458                      else throw("MCTAVO: Invalid type")
459 459              if ((breederSc != info.issuer))
460 460                  then throw("MCTAVO: Only obstinates from the breeder contract can be turned into mutants")
461 461                  else if ((tryGetStringExternal(breederSc, toBase58String(info.id)) == ""))
462 462                      then throw("MCTAVO: Invalid nft")
463 463                      else if ((tryGetString(getChildren(toBase58String(info.id))) != ""))
464 464                          then throw("MCTAVO: NFT already used")
465 465                          else type
466 466              }
467 467      }
468 468  
469 469  
470 470  @Callable(i)
471 471  func configureOracle (oracle) = if ((i.caller != this))
472 472      then throw("ICU: admin only")
473 473      else [StringEntry("static_oracleAddress", oracle)]
474 474  
475 475  
476 476  
477 477  @Callable(i)
478 478  func startMutantHatching (refererAddress) = if ((size(i.payments) != 5))
479 479      then throw("MSMH: 5 payments required")
480 480      else if ((i.payments[0].amount != 1))
481 481          then throw("MSMH: 1st payment must be an NFT")
482 482          else if ((i.payments[1].amount != 1))
483 483              then throw("MSMH: 2nd payment must be an NFT")
484 484              else {
485 485                  let validPayment = checkAdditionalPayment(i.payments[2])
486 486                  if ((validPayment == validPayment))
487 487                      then if (if ((i.payments[3].assetId != getSpiceAssetId()))
488 488                          then true
489 489                          else (i.payments[3].amount != calcPriceInAsset(basePriceSpice())))
490 490                          then throw("MSMH: 4th payment must be in spice")
491 491                          else if (if ((i.payments[4].assetId != getEggAssetId()))
492 492                              then true
493 493                              else (i.payments[4].amount != calcPriceInAsset(basePriceEgg())))
494 494                              then throw("MSMH: 5th payment must be in egg")
495 495                              else {
496 496                                  let nft1 = value(assetInfo(value(i.payments[0].assetId)))
497 497                                  let nft2 = value(assetInfo(value(i.payments[1].assetId)))
498 498                                  let type1 = checkTypeAndValidObstinate(nft1)
499 499                                  let type2 = checkTypeAndValidObstinate(nft2)
500 500                                  if ((type1 == type2))
501 501                                      then throw("MSMH: NFTs can not be of the same type")
502 502                                      else ([StringEntry(getParentKey(i.transactionId, 1), toBase58String(nft1.id)), StringEntry(getParentKey(i.transactionId, 2), toBase58String(nft2.id)), StringEntry(getProcessStatusKey(toString(i.caller), toBase58String(i.transactionId)), hatchingStarted()), IntegerEntry(getProcessFinishHeightKey(toString(i.caller), toBase58String(i.transactionId)), (height + delayForHatching()))] ++ validPayment)
503 503                                  }
504 504                      else throw("Strict value is not equal to itself.")
505 505                  }
506 506  
507 507  
508 508  
509 509  @Callable(i)
510 510  func finishMutantHatching (txIdStr) = {
511 511      let owner = toString(i.originCaller)
512 512      if ((size(i.payments) != 1))
513 513          then throw("MFMH: Wrong amount of payments!")
514 514          else {
515 515              let feeValidate = checkAdditionalPayment(i.payments[0])
516 516              if ((feeValidate == feeValidate))
517 517                  then (finishHatchingInternal(txIdStr, owner) ++ feeValidate)
518 518                  else throw("Strict value is not equal to itself.")
519 519              }
520 520      }
521 521  
522 522  
523 523  
524 524  @Callable(i)
525 525  func reduceRarity (assetId,fGen) = throw("MRR: Not implemented")
526 526  
527 527  
528 528  @Verifier(tx)
529 529  func verify () = if (isTestEnv())
530 530      then sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
531 531      else {
532 532          let firstUser = base58'6TdaXEfhnjYquvPf3yV7MFxt2CbgFmaqsvGwkKfXtKi4'
533 533          let secondUser = base58'E23yUg8eun5nXB1nZRDf7RTyRADKxQhGNXdpTYonEvtU'
534 534          let thirdUser = base58'Ga8WEBTPXbHuoXRD355mQ6ms8PsM2RFYKeA1mEP32CFe'
535 535          let firstUserSigned = if (sigVerify(tx.bodyBytes, tx.proofs[0], firstUser))
536 536              then 1
537 537              else if (sigVerify(tx.bodyBytes, tx.proofs[1], firstUser))
538 538                  then 1
539 539                  else if (sigVerify(tx.bodyBytes, tx.proofs[2], firstUser))
540 540                      then 1
541 541                      else 0
542 542          let secondUserSigned = if (sigVerify(tx.bodyBytes, tx.proofs[0], secondUser))
543 543              then 1
544 544              else if (sigVerify(tx.bodyBytes, tx.proofs[1], secondUser))
545 545                  then 1
546 546                  else if (sigVerify(tx.bodyBytes, tx.proofs[2], secondUser))
547 547                      then 1
548 548                      else 0
549 549          let thirdUserSigned = if (sigVerify(tx.bodyBytes, tx.proofs[0], thirdUser))
550 550              then 1
551 551              else if (sigVerify(tx.bodyBytes, tx.proofs[1], thirdUser))
552 552                  then 1
553 553                  else if (sigVerify(tx.bodyBytes, tx.proofs[2], thirdUser))
554 554                      then 1
555 555                      else 0
556 556          let signaturesCount = ((firstUserSigned + secondUserSigned) + thirdUserSigned)
557 557          match tx {
558 558              case _ => 
559 559                  (signaturesCount >= 2)
560 560          }
561 561          }
562 562

Old	New		Differences
429	429		let transferOrBurnParent2 = if ((getRandomNumber(10, fromBase58String(txId), processFinishHeight, 3) == 5))
430	430		then Burn(parent2IdBytes, 1)
431	431		else ScriptTransfer(ownerAsAddress, 1, parent2IdBytes)
432		-	[StringEntry(processStatusKey, hatchingFinished()), StringEntry(IdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), IdKey), IntegerEntry(getStatsKey(gen), amount), IntegerEntry((("stats_" + farmGen._2) + "_quantity"), (quantity + 1)), IntegerEntry((("stats_" + rarityFromName) + "_rarity"), (rarity + 1)), IntegerEntry((("asset_" + parent1Id) + "_children"), 1), IntegerEntry((("asset_" + parent2Id) + "_children"), 1), asset, transferOrBurn, transferOrBurnParent1, transferOrBurnParent2]
	432	+	[StringEntry(processStatusKey, hatchingFinished()), StringEntry(IdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), IdKey), IntegerEntry(getStatsKey(gen), amount), IntegerEntry((("stats_" + farmGen._2) + "_quantity"), (quantity + 1)), IntegerEntry((("stats_" + rarityFromName) + "_rarity"), (rarity + 1)), IntegerEntry((("asset_" + parent1Id) + "_children"), 1), IntegerEntry((("asset_" + parent2Id) + "_children"), 1), IntegerEntry("stats_amount", (tryGetInteger("stats_amount") + 1)), asset, transferOrBurn, transferOrBurnParent1, transferOrBurnParent2]
433	433		}
434	434		}
435	435

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		func basePriceSpice () = 1000000000
5	5
6	6
7	7		func basePriceEgg () = 200000000
8	8
9	9
10	10		func delayForHatching () = 2
11	11
12	12
13	13		func hatchingStarted () = "BREEDING_STARTED"
14	14
15	15
16	16		func hatchingFinished () = "BREEDING_FINISHED"
17	17
18	18
19	19		func staticKey_eggAssetId () = "static_eggAssetId"
20	20
21	21
22	22		func staticKey_spiceAssetId () = "static_spiceAssetId"
23	23
24	24
25	25		func staticKey_duckBreederAddress () = "static_breederAddress"
26	26
27	27
28	28		func staticKey_turtleBreederAddress () = "static_turtleBreederAddress"
29	29
30	30
31	31		func staticKey_oracleAddress () = "static_oracleAddress"
32	32
33	33
34	34		func staticKey_extraFee () = "static_extraFee"
35	35
36	36
37	37		func staticKey_feeAggregator () = "static_feeAggregator"
38	38
39	39
40	40		func getStatsKey_amount () = "stats_amount"
41	41
42	42
43	43		func getStatsKey (genString) = (("stats_" + genString) + "_amount")
44	44
45	45
46	46		func getChildren (assetId) = (("asset_" + assetId) + "_children")
47	47
48	48
49	49		func getParentKey (txId,parentNum) = ((("inittx_" + toBase58String(txId)) + "_parent") + toString(parentNum))
50	50
51	51
52	52		func getProcessStatusKey (address,txId) = (((address + "_") + txId) + "_status")
53	53
54	54
55	55		func getProcessFinishHeightKey (address,txId) = (((address + "_") + txId) + "_fh")
56	56
57	57
58	58		func getIdKey (address,txId) = (((address + "_") + txId) + "_di")
59	59
60	60
61	61		func tryGetStringExternal (address,key) = match getString(address, key) {
62	62		case a: String =>
63	63		a
64	64		case _ =>
65	65		""
66	66		}
67	67
68	68
69	69		func tryGetString (key) = tryGetStringExternal(this, key)
70	70
71	71
72	72		func tryGetInteger (key) = {
73	73		let val = match getInteger(this, key) {
74	74		case b: Int =>
75	75		b
76	76		case _ =>
77	77		0
78	78		}
79	79		val
80	80		}
81	81
82	82
83	83		func getOracle () = Address(fromBase58String(tryGetString(staticKey_oracleAddress())))
84	84
85	85
86	86		func getTurtleBreederAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_turtleBreederAddress())))
87	87
88	88
89	89		func getDuckBreederAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_duckBreederAddress())))
90	90
91	91
92	92		func getEggAssetId () = fromBase58String(tryGetStringExternal(getOracle(), staticKey_eggAssetId()))
93	93
94	94
95	95		func getSpiceAssetId () = fromBase58String(tryGetStringExternal(getOracle(), staticKey_spiceAssetId()))
96	96
97	97
98	98		func getFeeAggregator () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_feeAggregator())))
99	99
100	100
101	101		func getAllowedMutants () = [getTurtleBreederAddress(), getDuckBreederAddress()]
102	102
103	103
104	104		func calcPriceInAsset (baseAmount) = (baseAmount + (((baseAmount * (tryGetInteger(getStatsKey_amount()) + 1)) / 1000) / size(getAllowedMutants())))
105	105
106	106
107	107		func getBool (key) = match getBoolean(this, key) {
108	108		case b: Boolean =>
109	109		b
110	110		case _ =>
111	111		false
112	112		}
113	113
114	114
115	115		func isTestEnv () = getBool("TESTENV")
116	116
117	117
118	118		func getRandomNumber (variants,txId,hatchingFinishHeight,offset) = {
119	119		let randomSeedBlock = value(blockInfoByHeight((hatchingFinishHeight - 1)))
120	120		let randomHash = sha256_16Kb((txId + value(randomSeedBlock.vrf)))
121	121		(toInt(randomHash, offset) % variants)
122	122		}
123	123
124	124
125	125		func getRandomGen (gen1,gen2,step,txId,hatchingFinishHeight) = {
126	126		let randomNum = getRandomNumber(2, txId, hatchingFinishHeight, step)
127	127		let gen = if ((randomNum == 0))
128	128		then gen1
129	129		else gen2
130	130		gen
131	131		}
132	132
133	133
134	134		func generate (txId,finishHeight,parent1Id,parent2Id) = {
135	135		let colorRandom = getRandomNumber(100, txId, finishHeight, 11)
136	136		let color = if ((26 > colorRandom))
137	137		then "A"
138	138		else if ((48 > colorRandom))
139	139		then "B"
140	140		else if ((70 > colorRandom))
141	141		then "C"
142	142		else if ((90 > colorRandom))
143	143		then "D"
144	144		else "G"
145	145		let parent1Gen = split(value(assetInfo(parent1Id)).name, "")
146	146		let parent2Gen = split(value(assetInfo(parent2Id)).name, "")
147	147		let gen = (((((((((("MTNT-" + getRandomGen((parent1Gen[0] + parent1Gen[5]), (parent2Gen[0] + parent2Gen[5]), 0, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[6]), (parent2Gen[0] + parent2Gen[6]), 1, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[7]), (parent2Gen[0] + parent2Gen[7]), 2, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[8]), (parent2Gen[0] + parent2Gen[8]), 3, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[9]), (parent2Gen[0] + parent2Gen[9]), 4, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[10]), (parent2Gen[0] + parent2Gen[10]), 5, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[11]), (parent2Gen[0] + parent2Gen[11]), 6, txId, finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[12]), (parent2Gen[0] + parent2Gen[12]), 7, txId, finishHeight)) + "-G") + color)
148	148		gen
149	149		}
150	150
151	151
152	152		func isSymbol (acc,sym) = if ((sym == acc._2))
153	153		then $Tuple2((acc._1 + 1), acc._2)
154	154		else $Tuple2((acc._1 + 0), acc._2)
155	155
156	156
157	157		func getAmountOrClear (amount) = if (contains(amount, "0"))
158	158		then ""
159	159		else amount
160	160
161	161
162	162		func charList () = ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"]
163	163
164	164
165	165		func getRarityFromName (name) = {
166	166		let color = split(name, "")[22]
167	167		let genotype = split(dropRight(drop(name, 5), 3), "")
168	168		let genetics = [genotype[1], genotype[3], genotype[5], genotype[7], genotype[9], genotype[11], genotype[13], genotype[15]]
169	169		func composeString (acc,char) = {
170	170		let charCount = {
171	171		let $l = genetics
172	172		let $s = size($l)
173	173		let $acc0 = $Tuple2(0, char)
174	174		func $f0_1 ($a,$i) = if (($i >= $s))
175	175		then $a
176	176		else isSymbol($a, $l[$i])
177	177
178	178		func $f0_2 ($a,$i) = if (($i >= $s))
179	179		then $a
180	180		else throw("List size exceeds 8")
181	181
182	182		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
183	183		}
184	184		(acc + getAmountOrClear((toString(charCount._1) + char)))
185	185		}
186	186
187	187		(({
188	188		let $l = charList()
189	189		let $s = size($l)
190	190		let $acc0 = ""
191	191		func $f0_1 ($a,$i) = if (($i >= $s))
192	192		then $a
193	193		else composeString($a, $l[$i])
194	194
195	195		func $f0_2 ($a,$i) = if (($i >= $s))
196	196		then $a
197	197		else throw("List size exceeds 26")
198	198
199	199		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26)
200	200		} + "-") + color)
201	201		}
202	202
203	203
204	204		func nrOfTypeGenes (gen) = {
205	205		let genotype = split(dropRight(drop(gen, 5), 3), "")
206	206		let parts1 = (genotype[0] + genotype[1])
207	207		let parts2 = (genotype[2] + genotype[3])
208	208		let parts3 = (genotype[4] + genotype[5])
209	209		let parts4 = (genotype[6] + genotype[7])
210	210		let parts5 = (genotype[8] + genotype[9])
211	211		let parts6 = (genotype[10] + genotype[11])
212	212		let parts7 = (genotype[12] + genotype[13])
213	213		let parts8 = (genotype[14] + genotype[15])
214	214		let parts = [parts1, parts2, parts3, parts4, parts5, parts6, parts7, parts8]
215	215		func sortPartsByType (acc,part) = {
216	216		let splitParts = split(part, "")
217	217		if ((splitParts[0] == "T"))
218	218		then $Tuple4((acc._1 :+ splitParts[1]), acc._2, acc._3, acc._4)
219	219		else if ((splitParts[0] == "D"))
220	220		then $Tuple4(acc._1, (acc._2 :+ splitParts[1]), acc._3, acc._4)
221	221		else if ((splitParts[0] == "C"))
222	222		then $Tuple4(acc._1, acc._2, (acc._3 :+ splitParts[1]), acc._4)
223	223		else if ((splitParts[0] == "H"))
224	224		then $Tuple4(acc._1, acc._2, acc._3, (acc._4 :+ splitParts[1]))
225	225		else throw("UNKNOWN TYPE")
226	226		}
227	227
228	228		let result = {
229	229		let $l = parts
230	230		let $s = size($l)
231	231		let $acc0 = $Tuple4(nil, nil, nil, nil)
232	232		func $f0_1 ($a,$i) = if (($i >= $s))
233	233		then $a
234	234		else sortPartsByType($a, $l[$i])
235	235
236	236		func $f0_2 ($a,$i) = if (($i >= $s))
237	237		then $a
238	238		else throw("List size exceeds 8")
239	239
240	240		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
241	241		}
242	242		if ((result == result))
243	243		then {
244	244		func composeStringTurtle (acc,char) = {
245	245		let charCount = {
246	246		let $l = result._1
247	247		let $s = size($l)
248	248		let $acc0 = $Tuple2(0, char)
249	249		func $f1_1 ($a,$i) = if (($i >= $s))
250	250		then $a
251	251		else isSymbol($a, $l[$i])
252	252
253	253		func $f1_2 ($a,$i) = if (($i >= $s))
254	254		then $a
255	255		else throw("List size exceeds 8")
256	256
257	257		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
258	258		}
259	259		(acc + getAmountOrClear((toString(charCount._1) + char)))
260	260		}
261	261
262	262		func composeStringDuck (acc,char) = {
263	263		let charCount = {
264	264		let $l = result._2
265	265		let $s = size($l)
266	266		let $acc0 = $Tuple2(0, char)
267	267		func $f1_1 ($a,$i) = if (($i >= $s))
268	268		then $a
269	269		else isSymbol($a, $l[$i])
270	270
271	271		func $f1_2 ($a,$i) = if (($i >= $s))
272	272		then $a
273	273		else throw("List size exceeds 8")
274	274
275	275		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
276	276		}
277	277		(acc + getAmountOrClear((toString(charCount._1) + char)))
278	278		}
279	279
280	280		func composeStringCat (acc,char) = {
281	281		let charCount = {
282	282		let $l = result._3
283	283		let $s = size($l)
284	284		let $acc0 = $Tuple2(0, char)
285	285		func $f1_1 ($a,$i) = if (($i >= $s))
286	286		then $a
287	287		else isSymbol($a, $l[$i])
288	288
289	289		func $f1_2 ($a,$i) = if (($i >= $s))
290	290		then $a
291	291		else throw("List size exceeds 8")
292	292
293	293		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
294	294		}
295	295		(acc + getAmountOrClear((toString(charCount._1) + char)))
296	296		}
297	297
298	298		func composeStringDog (acc,char) = {
299	299		let charCount = {
300	300		let $l = result._4
301	301		let $s = size($l)
302	302		let $acc0 = $Tuple2(0, char)
303	303		func $f1_1 ($a,$i) = if (($i >= $s))
304	304		then $a
305	305		else isSymbol($a, $l[$i])
306	306
307	307		func $f1_2 ($a,$i) = if (($i >= $s))
308	308		then $a
309	309		else throw("List size exceeds 8")
310	310
311	311		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
312	312		}
313	313		(acc + getAmountOrClear((toString(charCount._1) + char)))
314	314		}
315	315
316	316		let turtleGens = {
317	317		let $l = charList()
318	318		let $s = size($l)
319	319		let $acc0 = ""
320	320		func $f1_1 ($a,$i) = if (($i >= $s))
321	321		then $a
322	322		else composeStringTurtle($a, $l[$i])
323	323
324	324		func $f1_2 ($a,$i) = if (($i >= $s))
325	325		then $a
326	326		else throw("List size exceeds 26")
327	327
328	328		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26)
329	329		}
330	330		let duckGens = {
331	331		let $l = charList()
332	332		let $s = size($l)
333	333		let $acc0 = ""
334	334		func $f2_1 ($a,$i) = if (($i >= $s))
335	335		then $a
336	336		else composeStringDuck($a, $l[$i])
337	337
338	338		func $f2_2 ($a,$i) = if (($i >= $s))
339	339		then $a
340	340		else throw("List size exceeds 26")
341	341
342	342		$f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26)
343	343		}
344	344		let catGens = {
345	345		let $l = charList()
346	346		let $s = size($l)
347	347		let $acc0 = ""
348	348		func $f3_1 ($a,$i) = if (($i >= $s))
349	349		then $a
350	350		else composeStringCat($a, $l[$i])
351	351
352	352		func $f3_2 ($a,$i) = if (($i >= $s))
353	353		then $a
354	354		else throw("List size exceeds 26")
355	355
356	356		$f3_2($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26)
357	357		}
358	358		let hondGens = {
359	359		let $l = charList()
360	360		let $s = size($l)
361	361		let $acc0 = ""
362	362		func $f4_1 ($a,$i) = if (($i >= $s))
363	363		then $a
364	364		else composeStringDog($a, $l[$i])
365	365
366	366		func $f4_2 ($a,$i) = if (($i >= $s))
367	367		then $a
368	368		else throw("List size exceeds 26")
369	369
370	370		$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26)
371	371		}
372	372		let finishedTurtleGens = if ((turtleGens == ""))
373	373		then ""
374	374		else (("T:" + turtleGens) + "_")
375	375		let finishedDuckGens = if ((duckGens == ""))
376	376		then ""
377	377		else (("D:" + duckGens) + "_")
378	378		let finishedCatGens = if ((catGens == ""))
379	379		then ""
380	380		else (("C:" + catGens) + "_")
381	381		let finishedHondGens = if ((hondGens == ""))
382	382		then ""
383	383		else (("H:" + hondGens) + "_")
384	384		$Tuple2([StringEntry("DEBUG_TURTLE", turtleGens), StringEntry("DEBUG_DUCK", duckGens), StringEntry("DEBUG_CAT", catGens), StringEntry("DEBUG_HOND", hondGens)], (((finishedTurtleGens + finishedDuckGens) + finishedCatGens) + hondGens))
385	385		}
386	386		else throw("Strict value is not equal to itself.")
387	387		}
388	388
389	389
390	390		func validateIfMutantFailed (rarity) = if ((3 > size(split(rarity, ":"))))
391	391		then true
392	392		else false
393	393
394	394
395	395		func finishHatchingInternal (txId,owner) = {
396	396		let processStatusKey = getProcessStatusKey(owner, txId)
397	397		let finishHeightKey = getProcessFinishHeightKey(owner, txId)
398	398		let IdKey = getIdKey(owner, txId)
399	399		let processTxStatus = getStringValue(this, processStatusKey)
400	400		let processFinishHeight = getIntegerValue(this, finishHeightKey)
401	401		if ((processTxStatus == hatchingFinished()))
402	402		then {
403	403		let Id = getStringValue(this, getIdKey(owner, txId))
404	404		throw(("The MUTANT was breeded and claimed already, here is the folowing: " + Id))
405	405		}
406	406		else if ((processFinishHeight > height))
407	407		then throw((((("Breeding is not finished yet " + toString((processFinishHeight - height))) + " blocks remaining, it will take around ") + toString((processFinishHeight - height))) + " minutes"))
408	408		else {
409	409		let parent1Id = tryGetString(getParentKey(fromBase58String(txId), 1))
410	410		let parent2Id = tryGetString(getParentKey(fromBase58String(txId), 2))
411	411		let parent1IdBytes = fromBase58String(parent1Id)
412	412		let parent2IdBytes = fromBase58String(parent2Id)
413	413		let gen = generate(fromBase58String(txId), processFinishHeight, parent1IdBytes, parent2IdBytes)
414	414		let farmGen = nrOfTypeGenes(gen)
415	415		let rarityFromName = getRarityFromName(gen)
416	416		let amount = (tryGetInteger(getStatsKey(gen)) + 1)
417	417		let asset = Issue(("MTNT-" + toString(amount)), gen, 1, 0, false, unit, processFinishHeight)
418	418		let assetId = calculateAssetId(asset)
419	419		let quantity = tryGetInteger((("stats_" + farmGen._2) + "_quantity"))
420	420		let rarity = tryGetInteger((("stats_" + rarityFromName) + "_rarity"))
421	421		let ownerAsAddress = addressFromStringValue(owner)
422	422		let failed = validateIfMutantFailed(farmGen._2)
423	423		let transferOrBurn = if (failed)
424	424		then Burn(assetId, 1)
425	425		else ScriptTransfer(ownerAsAddress, 1, assetId)
426	426		let transferOrBurnParent1 = if ((getRandomNumber(10, fromBase58String(txId), processFinishHeight, 2) == 5))
427	427		then Burn(parent1IdBytes, 1)
428	428		else ScriptTransfer(ownerAsAddress, 1, parent1IdBytes)
429	429		let transferOrBurnParent2 = if ((getRandomNumber(10, fromBase58String(txId), processFinishHeight, 3) == 5))
430	430		then Burn(parent2IdBytes, 1)
431	431		else ScriptTransfer(ownerAsAddress, 1, parent2IdBytes)
432		-	[StringEntry(processStatusKey, hatchingFinished()), StringEntry(IdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), IdKey), IntegerEntry(getStatsKey(gen), amount), IntegerEntry((("stats_" + farmGen._2) + "_quantity"), (quantity + 1)), IntegerEntry((("stats_" + rarityFromName) + "_rarity"), (rarity + 1)), IntegerEntry((("asset_" + parent1Id) + "_children"), 1), IntegerEntry((("asset_" + parent2Id) + "_children"), 1), asset, transferOrBurn, transferOrBurnParent1, transferOrBurnParent2]
	432	+	[StringEntry(processStatusKey, hatchingFinished()), StringEntry(IdKey, toBase58String(assetId)), StringEntry(toBase58String(assetId), IdKey), IntegerEntry(getStatsKey(gen), amount), IntegerEntry((("stats_" + farmGen._2) + "_quantity"), (quantity + 1)), IntegerEntry((("stats_" + rarityFromName) + "_rarity"), (rarity + 1)), IntegerEntry((("asset_" + parent1Id) + "_children"), 1), IntegerEntry((("asset_" + parent2Id) + "_children"), 1), IntegerEntry("stats_amount", (tryGetInteger("stats_amount") + 1)), asset, transferOrBurn, transferOrBurnParent1, transferOrBurnParent2]
433	433		}
434	434		}
435	435
436	436
437	437		func checkAdditionalPayment (payment) = if (isDefined(payment.assetId))
438	438		then throw("BCAP: Please attach waves")
439	439		else {
440	440		let feeAmount = getIntegerValue(getOracle(), staticKey_extraFee())
441	441		if ((payment.amount != feeAmount))
442	442		then throw((("BCAP: Please attach exactly " + toString(feeAmount)) + " amount of wavelets"))
443	443		else [ScriptTransfer(getFeeAggregator(), feeAmount, unit)]
444	444		}
445	445
446	446
447	447		func checkTypeAndValidObstinate (info) = {
448	448		let splitted = split(info.name, "")
449	449		let type = splitted[0]
450	450		let gen = splitted[14]
451	451		if ((gen != "O"))
452	452		then throw("MCTAVO: Only obstinates can be turned into mutants")
453	453		else {
454	454		let breederSc = if ((type == "T"))
455	455		then getTurtleBreederAddress()
456	456		else if ((type == "D"))
457	457		then getDuckBreederAddress()
458	458		else throw("MCTAVO: Invalid type")
459	459		if ((breederSc != info.issuer))
460	460		then throw("MCTAVO: Only obstinates from the breeder contract can be turned into mutants")
461	461		else if ((tryGetStringExternal(breederSc, toBase58String(info.id)) == ""))
462	462		then throw("MCTAVO: Invalid nft")
463	463		else if ((tryGetString(getChildren(toBase58String(info.id))) != ""))
464	464		then throw("MCTAVO: NFT already used")
465	465		else type
466	466		}
467	467		}
468	468
469	469
470	470		@Callable(i)
471	471		func configureOracle (oracle) = if ((i.caller != this))
472	472		then throw("ICU: admin only")
473	473		else [StringEntry("static_oracleAddress", oracle)]
474	474
475	475
476	476
477	477		@Callable(i)
478	478		func startMutantHatching (refererAddress) = if ((size(i.payments) != 5))
479	479		then throw("MSMH: 5 payments required")
480	480		else if ((i.payments[0].amount != 1))
481	481		then throw("MSMH: 1st payment must be an NFT")
482	482		else if ((i.payments[1].amount != 1))
483	483		then throw("MSMH: 2nd payment must be an NFT")
484	484		else {
485	485		let validPayment = checkAdditionalPayment(i.payments[2])
486	486		if ((validPayment == validPayment))
487	487		then if (if ((i.payments[3].assetId != getSpiceAssetId()))
488	488		then true
489	489		else (i.payments[3].amount != calcPriceInAsset(basePriceSpice())))
490	490		then throw("MSMH: 4th payment must be in spice")
491	491		else if (if ((i.payments[4].assetId != getEggAssetId()))
492	492		then true
493	493		else (i.payments[4].amount != calcPriceInAsset(basePriceEgg())))
494	494		then throw("MSMH: 5th payment must be in egg")
495	495		else {
496	496		let nft1 = value(assetInfo(value(i.payments[0].assetId)))
497	497		let nft2 = value(assetInfo(value(i.payments[1].assetId)))
498	498		let type1 = checkTypeAndValidObstinate(nft1)
499	499		let type2 = checkTypeAndValidObstinate(nft2)

github/deemru/w8io/873ac7e 
61.68 ms ◑