tx · 5k2Ao6aHux2ufL5hs826Moc9KojKQiUKsb7h1DvCAMjs

3P2Tj3KgTYhSVe23XXeAmkwYB43YnZ5dENJ:  -0.01400000 Waves

2023.11.09 09:22 [3901283] smart account 3P2Tj3KgTYhSVe23XXeAmkwYB43YnZ5dENJ > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5k2Ao6aHux2ufL5hs826Moc9KojKQiUKsb7h1DvCAMjs",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1699510915016,
    "version": 2,
    "chainId": 87,
    "sender": "3P2Tj3KgTYhSVe23XXeAmkwYB43YnZ5dENJ",
    "senderPublicKey": "ECg19w7L36EZDu4zprurC23FPVeaKGnobnwzbZH2Dgyd",
    "proofs": [
        "67f7zZMhc976aGyCZ68k2hfeETGm93Rs2dawSBGWzP3asfcMV7HzKEqafDJTnaa1kqa4K6NvDBpzD9N2C7N3S2re"
    ],
    "script": "base64:BgIeCAISABIDCgEBEgMKAQESABIAEgMKAQgSABIDCgEBJQAEUEVURQEg4W4pTkHcHIXuYikIATFxVuov8OITyH3BrthKEwuN9tYAElBldGVTdGFraW5nQWRkcmVzcwkBB0FkZHJlc3MBARoBV2qxSTJN3QE8WlTs6Heuf4HE06AyMEj07QALU3dhcEFkZHJlc3MJAQdBZGRyZXNzAQEaAVcuKjU1sQ238Xk+4bdG0J50Uk17MdCDrgYAC1RlYW1BZGRyZXNzCQEHQWRkcmVzcwEBGgFXrGfSWrEBpqNP6e7xdRI8GkyCe3sRTGA6AAlzZXBhcmF0b3ICAV8ADFJPVU5EX0JMT0NLUwDgTgAMSkFDS1BPVF9QQVJUCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMCDGphY2twb3RfcGFydAA8AAlURUFNX1BBUlQAHgAKQkVUX0FNT1VOVACQn9oDAARXNDIwAICo1rkHAANTVkEJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGCQDMCAIABwkAzAgCAAgJAMwIAgAJBQNuaWwAC3N1cHBsaWVkS2V5AgpwZXRlX3RvdGFsAApqYWNrcG90S2V5AgxwZXRlX2phY2twb3QADXBldGVJbkxvY2tLZXkCDHBldGVfaW5fbG9jawAQcGV0ZUluU3Rha2luZ0tleQIPcGV0ZV9pbl9zdGFraW5nAA5saWRlcnNUb3RhbEtleQIGbGlkZXJzAAx0b3RhbFNwaW5LZXkCCnNwaW5fdG90YWwACnRvcDNfYmxvY2sCCnRvcDNfYmxvY2sACnRvcDNfcm91bmQCCnRvcDNfcm91bmQBD2dldEN1cnJlbnRSb3VuZAAJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMFCnRvcDNfcm91bmQBEGdldExhc3RUb3AzQmxvY2sACQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzBQp0b3AzX2Jsb2NrAQtnZXRDb3VudEtleQEKYWRkcmVzc1N0cgkArAICBQphZGRyZXNzU3RyAgRfY250ARBnZXRSb3VuZENvdW50S2V5AQphZGRyZXNzU3RyCQCsAgIJAKwCAgkArAICBQphZGRyZXNzU3RyAgNfcl8JAKQDAQkBD2dldEN1cnJlbnRSb3VuZAACBF9jbnQBEWdldFJvdW5kTGlkZXJzS2V5AAkArAICCQCsAgIFDmxpZGVyc1RvdGFsS2V5AgNfcl8JAKQDAQkBD2dldEN1cnJlbnRSb3VuZAABFGdldFJvdW5kVG90YWxTcGluS2V5AAkArAICCQCsAgIFDHRvdGFsU3BpbktleQIDX3JfCQCkAwEJAQ9nZXRDdXJyZW50Um91bmQAAAVuVHhJZAAAAAduUmVzdWx0AAEAB25IZWlnaHQAAgAIbkFkZHJlc3MAAwEGcmV2ZWFsAwR0eGlkC3RhcmdldEJsb2NrAXADCQBnAgUGaGVpZ2h0BQt0YXJnZXRCbG9jawQLcmV2ZWFsQmxvY2sJAQV2YWx1ZQEJAO0HAQULdGFyZ2V0QmxvY2sEA3ZyZgkBBXZhbHVlAQgFC3JldmVhbEJsb2NrA3ZyZgQGcmV2ZWFsCQD3AwEJAMsBAgUDdnJmCQCbAwEFBHR4aWQEBm5ld1NWQQMJAAACBQFwAP///////////wEFA1NWQQkAzggCCQDOCAIFA1NWQQkA0QgCBQNTVkEFAXAJANEIAgUDU1ZBBQFwBAVkZW5vbQkAkAMBBQZuZXdTVkEEA2lkeAkAagIJALEJAQUGcmV2ZWFsBQVkZW5vbQkAkQMCBQZuZXdTVkEFA2lkeAD///////////8BARFjaGVja1dpbm5lckFtb3VudAEGcmVzdWx0AwkAAAIFBnJlc3VsdAIDNzc3CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFCmphY2twb3RLZXkAAAMJAAACBQZyZXN1bHQCAzQyMAUEVzQyMAMJAAACBQZyZXN1bHQCAzEwMACAyrXuAQMJAAACBQZyZXN1bHQCAzExMQCAjI2eAgMJAAACBQZyZXN1bHQCAzIyMgCAzuTNAgMJAAACBQZyZXN1bHQCAzMzMwCAkLz9AgMJAAACBQZyZXN1bHQCAzQ0NACA0pOtAwMJAAACBQZyZXN1bHQCAzU1NQCAkLz9AgMJAAACBQZyZXN1bHQCAzg4OACAzuTNAgMJAAACBQZyZXN1bHQCAzk5OQCAjI2eAgMJAAACBQZyZXN1bHQCAzY2NgCAtcm9AgMJAAACBQZyZXN1bHQCAzEzNwDA2cjcAgAAAQpqc29uUmVzdWx0AQphZGRyZXNzU3RyAwkBASEBCQEJaXNEZWZpbmVkAQkAnQgCBQR0aGlzBQphZGRyZXNzU3RyAhR7InN0YXR1cyI6Im5vIGdhbWUifQQEZGF0YQkAtQkCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUEdGhpcwUKYWRkcmVzc1N0cgkArAICAhh1bmFibGUgdG8gcmVhZCBkYXRhIGZvciAFCmFkZHJlc3NTdHIFCXNlcGFyYXRvcgQEdHhpZAkAkQMCBQRkYXRhBQVuVHhJZAQMY29tbWl0SGVpZ2h0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOkHAQkA2QQBBQR0eGlkCQCsAgIFBHR4aWQCCiBub3QgZm91bmQEAnIxCQEGcmV2ZWFsAwUEdHhpZAkAZAIFDGNvbW1pdEhlaWdodAABAP///////////wEEAnIyCQEGcmV2ZWFsAwUEdHhpZAkAZAIFDGNvbW1pdEhlaWdodAACBQJyMQQCcjMJAQZyZXZlYWwDBQR0eGlkCQBkAgUMY29tbWl0SGVpZ2h0AAMFAnIxBAZyZXN1bHQJAKwCAgkArAICCQCkAwEFAnIxCQCkAwEFAnIyCQCkAwEFAnIzBAx3aW5uZXJBbW91bnQJARFjaGVja1dpbm5lckFtb3VudAEFBnJlc3VsdAQEanNvbgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICAXsCEyJzdGF0dXMiOiJpbiBnYW1lIiwCASICBXByaXplAgEiAgE6CQCkAwEFDHdpbm5lckFtb3VudAIBLAIBIgICcjECASICAToJAKQDAQUCcjECASwCASICAnIyAgEiAgE6CQCkAwEFAnIyAgEsAgEiAgJyMwIBIgIBOgkApAMBBQJyMwIAAgF9BQRqc29uAQ1qc29uVG9wR2FtZXJzAAQGbGlkZXJzAwkBCWlzRGVmaW5lZAEJAJ0IAgUEdGhpcwUObGlkZXJzVG90YWxLZXkJAL0JAgkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwUObGlkZXJzVG90YWxLZXkFCXNlcGFyYXRvcgUDbmlsCgEHZm9sZFRvcAIFYWNjdW0HYWRkcmVzcwQDY250CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAQtnZXRDb3VudEtleQEFB2FkZHJlc3MAAAkAzQgCBQVhY2N1bQkArAICCQCsAgIJAKwCAgIBIgUHYWRkcmVzcwICIjoJAKQDAQUDY250BAN0b3AKAAIkbAUGbGlkZXJzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdmb2xkVG9wAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQJAKwCAgkArAICAgF7CQC6CQIFA3RvcAIBLAIBfQESanNvblJvdW5kVG9wR2FtZXJzAAQGbGlkZXJzAwkBCWlzRGVmaW5lZAEJAJ0IAgUEdGhpcwkBEWdldFJvdW5kTGlkZXJzS2V5AAkAvQkCCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzCQERZ2V0Um91bmRMaWRlcnNLZXkABQlzZXBhcmF0b3IFA25pbAoBB2ZvbGRUb3ACBWFjY3VtB2FkZHJlc3MEA2NudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQEQZ2V0Um91bmRDb3VudEtleQEFB2FkZHJlc3MAAAkAzQgCBQVhY2N1bQkArAICCQCsAgIJAKwCAgIBIgUHYWRkcmVzcwICIjoJAKQDAQUDY250BAN0b3AKAAIkbAUGbGlkZXJzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdmb2xkVG9wAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQJAKwCAgkArAICAgF7CQC6CQIFA3RvcAIBLAIBfQENcHJpdmF0ZVN1cHBseQEGYW1vdW50BAV0b3RhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBQtzdXBwbGllZEtleQAABAdqYWNrcG90CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFCmphY2twb3RLZXkAAAQIbmV3VG90YWwJAGQCBQV0b3RhbAkAawMFBmFtb3VudAkAZQIAZAUMSkFDS1BPVF9QQVJUAGQECm5ld0phY2twb3QJAGQCBQdqYWNrcG90CQBrAwUGYW1vdW50BQxKQUNLUE9UX1BBUlQAZAkAzAgCCQEMSW50ZWdlckVudHJ5AgULc3VwcGxpZWRLZXkFCG5ld1RvdGFsCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQpqYWNrcG90S2V5BQpuZXdKYWNrcG90BQNuaWwBEnByaXZhdGVDaGVja0xpZGVycwQKYWRkcmVzc1N0cglzcGluQ291bnQKc0xpZGVyc0tleQlzQ291bnRLZXkECWxpZGVyc1N0cgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzBQpzTGlkZXJzS2V5AgAEBmxpZGVycwMJAQIhPQIFCWxpZGVyc1N0cgIACQC9CQIJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMFCnNMaWRlcnNLZXkFCXNlcGFyYXRvcgUDbmlsBANpZHgJAM8IAgUGbGlkZXJzBQphZGRyZXNzU3RyBA5maWx0ZXJlZExpZGVycwMJAQlpc0RlZmluZWQBBQNpZHgJANEIAgUGbGlkZXJzCQEFdmFsdWUBBQNpZHgFBmxpZGVycwQIbWluQ291bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCRAwIFDmZpbHRlcmVkTGlkZXJzCQBlAgkAkAMBBQ5maWx0ZXJlZExpZGVycwABBQlzQ291bnRLZXkAAAQKbGlkZXJzU2l6ZQkAkAMBBQ5maWx0ZXJlZExpZGVycwoBCGZvbGRTb3J0AgVhY2N1bQdhZGRyZXNzBANjbnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICBQdhZGRyZXNzBQlzQ291bnRLZXkAAAQJYWNjdW1TaXplCQCQAwEFBWFjY3VtAwkAAAIFCWFjY3VtU2l6ZQBkBQVhY2N1bQMJAQlpc0RlZmluZWQBCQDPCAIFBWFjY3VtBQphZGRyZXNzU3RyCQDNCAIFBWFjY3VtBQdhZGRyZXNzAwkAZgIFCXNwaW5Db3VudAUDY250AwkAAAIFCWFjY3VtU2l6ZQBjCQDNCAIFBWFjY3VtBQphZGRyZXNzU3RyCQDNCAIJAM0IAgUFYWNjdW0FCmFkZHJlc3NTdHIFB2FkZHJlc3MJAM0IAgUFYWNjdW0FB2FkZHJlc3MECW5ld0xpZGVycwMJAAACBQpsaWRlcnNTaXplAAAJAMwIAgUKYWRkcmVzc1N0cgUDbmlsAwMJAGYCAGQFCmxpZGVyc1NpemUJAGcCBQhtaW5Db3VudAUJc3BpbkNvdW50BwkAzQgCBQ5maWx0ZXJlZExpZGVycwUKYWRkcmVzc1N0cgMJAGcCBQhtaW5Db3VudAUJc3BpbkNvdW50BQ5maWx0ZXJlZExpZGVycwQEbGlzdAoAAiRsBQ5maWx0ZXJlZExpZGVycwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIZm9sZFNvcnQCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFUxpc3Qgc2l6ZSBleGNlZWRzIDEwMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIAMwA0ADUANgA3ADgAOQA6ADsAPAA9AD4APwBAAEEAQgBDAEQARQBGAEcASABJAEoASwBMAE0ATgBPAFAAUQBSAFMAVABVAFYAVwBYAFkAWgBbAFwAXQBeAF8AYABhAGIAYwBkBQRsaXN0BAxuZXdMaWRlcnNTdHIJALsJAgUJbmV3TGlkZXJzBQlzZXBhcmF0b3IEBnJlc3VsdAkAzAgCCQELU3RyaW5nRW50cnkCBQpzTGlkZXJzS2V5BQxuZXdMaWRlcnNTdHIFA25pbAUGcmVzdWx0AQtwcml2YXRlU3BpbgIKYWRkcmVzc1N0cgR0eGlkBAZsb2NrZWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUNcGV0ZUluTG9ja0tleQAABAV0b3RhbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBQtzdXBwbGllZEtleQAABAl0b3RhbFNwaW4JAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUMdG90YWxTcGluS2V5AAAEDnRvdGFsUm91bmRTcGluCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJARRnZXRSb3VuZFRvdGFsU3BpbktleQAAAAQMbmV3U3BpbkNvdW50CQBkAgkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQELZ2V0Q291bnRLZXkBBQphZGRyZXNzU3RyAAAAAQQRbmV3U3BpblJvdW5kQ291bnQJAGQCCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJARBnZXRSb3VuZENvdW50S2V5AQUKYWRkcmVzc1N0cgAAAAEDCQBmAgUEVzQyMAUFdG90YWwJAAIBAg1ubyBwZXRlIGluIHNjBANzdHIJALkJAgkAzAgCBQR0eGlkCQDMCAICA3h4eAkAzAgCCQCkAwEFBmhlaWdodAkAzAgCBQphZGRyZXNzU3RyBQNuaWwFCXNlcGFyYXRvcgQGbGlkZXJzCQEScHJpdmF0ZUNoZWNrTGlkZXJzBAUKYWRkcmVzc1N0cgUMbmV3U3BpbkNvdW50BQ5saWRlcnNUb3RhbEtleQkBC2dldENvdW50S2V5AQIABAtyb3VuZExpZGVycwkBEnByaXZhdGVDaGVja0xpZGVycwQFCmFkZHJlc3NTdHIFEW5ld1NwaW5Sb3VuZENvdW50CQERZ2V0Um91bmRMaWRlcnNLZXkACQEQZ2V0Um91bmRDb3VudEtleQECAAQDcmVzCQDMCAIJAQtTdHJpbmdFbnRyeQIFCmFkZHJlc3NTdHIFA3N0cgkAzAgCCQEMSW50ZWdlckVudHJ5AgUNcGV0ZUluTG9ja0tleQkAZAIFBmxvY2tlZAUEVzQyMAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBC2dldENvdW50S2V5AQUKYWRkcmVzc1N0cgUMbmV3U3BpbkNvdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEQZ2V0Um91bmRDb3VudEtleQEFCmFkZHJlc3NTdHIFEW5ld1NwaW5Sb3VuZENvdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQx0b3RhbFNwaW5LZXkJAGQCBQl0b3RhbFNwaW4AAQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFGdldFJvdW5kVG90YWxTcGluS2V5AAkAZAIFDnRvdGFsUm91bmRTcGluAAEFA25pbAkAzggCCQDOCAIFBmxpZGVycwULcm91bmRMaWRlcnMFA3JlcwgBaQEGc3VwcGx5AAMJAAACCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgl5b3UgY2FuJ3QDAwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAAAIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUEUEVURQcEA2ludgkA/AcEBQR0aGlzAglzdGFrZVBldGUJAMwIAggJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQFA25pbAUDbmlsAwkAAAIFA2ludgUDaW52CQENcHJpdmF0ZVN1cHBseQEICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQILYmFkIHBheW1lbnQBaQEJc3Rha2VQZXRlAQpwZXRlQW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIJeW91IGNhbid0BAtwZXRlSW5TdGFrZQkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBRBwZXRlSW5TdGFraW5nS2V5AAAEA2ludgkA/AcEBRJQZXRlU3Rha2luZ0FkZHJlc3MCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBFBFVEUFCnBldGVBbW91bnQFA25pbAMJAAACBQNpbnYFA2ludgkAzAgCCQEMSW50ZWdlckVudHJ5AgUQcGV0ZUluU3Rha2luZ0tleQkAZAIFC3BldGVJblN0YWtlBQpwZXRlQW1vdW50BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQELdW5zdGFrZVBldGUBBmFtb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECCXlvdSBjYW4ndAQLcGV0ZUluU3Rha2UJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQR0aGlzBRBwZXRlSW5TdGFraW5nS2V5CQCsAgIFEHBldGVJblN0YWtpbmdLZXkCCiBub3QgZm91bmQEA2ludgkA/AcEBRJQZXRlU3Rha2luZ0FkZHJlc3MCB3Vuc3Rha2UJAMwIAgUGYW1vdW50BQNuaWwFA25pbAMJAAACBQNpbnYFA2ludgkAzAgCCQEMSW50ZWdlckVudHJ5AgUQcGV0ZUluU3Rha2luZ0tleQkAZQIFC3BldGVJblN0YWtlBQZhbW91bnQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARRjbGFpbVBldGVGcm9tU3Rha2luZwADCQBmAgkAZAIJARBnZXRMYXN0VG9wM0Jsb2NrAAUMUk9VTkRfQkxPQ0tTBQZoZWlnaHQJAAIBAgl0b28gZWFybHkEEHBldGVBbW91bnRCZWZvcmUJAPAHAgUEdGhpcwUEUEVURQMJAAACBRBwZXRlQW1vdW50QmVmb3JlBRBwZXRlQW1vdW50QmVmb3JlBANpbnYJAPwHBAUSUGV0ZVN0YWtpbmdBZGRyZXNzAgVjbGFpbQUDbmlsBQNuaWwDCQAAAgUDaW52BQNpbnYEDXBldGVBbW91bnROZXcJAGUCCQDwBwIFBHRoaXMFBFBFVEUFEHBldGVBbW91bnRCZWZvcmUDCQAAAgUNcGV0ZUFtb3VudE5ldwUNcGV0ZUFtb3VudE5ldwMJAGYCBQ1wZXRlQW1vdW50TmV3AAAEBmxpZGVycwMJAQlpc0RlZmluZWQBCQCdCAIFBHRoaXMJARFnZXRSb3VuZExpZGVyc0tleQAJAL0JAgkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkBEWdldFJvdW5kTGlkZXJzS2V5AAUJc2VwYXJhdG9yBQNuaWwECmxpZGVyc1NpemUJAJADAQUGbGlkZXJzBAJwMQMJAGcCBQpsaWRlcnNTaXplAAEJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkBC2dldENvdW50S2V5AQkAkQMCBQZsaWRlcnMAAAAAAAAEAnAyAwkAZwIFCmxpZGVyc1NpemUAAgkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQELZ2V0Q291bnRLZXkBCQCRAwIFBmxpZGVycwABAAAAAAQCcDMDCQBnAgUKbGlkZXJzU2l6ZQADCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAQtnZXRDb3VudEtleQEJAJEDAgUGbGlkZXJzAAIAAAAABANwMXcDCQBnAgUKbGlkZXJzU2l6ZQABCQCRAwIFBmxpZGVycwAAAgpubyBhZGRyZXNzBANwMncDCQBnAgUKbGlkZXJzU2l6ZQACCQCRAwIFBmxpZGVycwABAgpubyBhZGRyZXNzBANwM3cDCQBnAgUKbGlkZXJzU2l6ZQADCQCRAwIFBmxpZGVycwACAgpubyBhZGRyZXNzBAp0b3RhbENvdW50CQBkAgkAZAIFAnAxBQJwMgUCcDMEAnIzAwkAZgIFAnAzAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUDcDN3CQBrAwUNcGV0ZUFtb3VudE5ldwUCcDMFCnRvdGFsQ291bnQFBFBFVEUFA25pbAUDbmlsBAJyMgMJAGYCBQJwMgAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFA3AydwkAawMFDXBldGVBbW91bnROZXcFAnAyBQp0b3RhbENvdW50BQRQRVRFBQNuaWwFA25pbAQCcjEDCQBmAgUCcDEAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQNwMXcJAGsDBQ1wZXRlQW1vdW50TmV3BQJwMQUKdG90YWxDb3VudAUEUEVURQUDbmlsBQNuaWwJAM4IAgkAzggCCQDOCAIFAnIxBQJyMgUCcjMJAMwIAgkBDEludGVnZXJFbnRyeQIFCnRvcDNfYmxvY2sFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgUKdG9wM19yb3VuZAkAZAIJAQ9nZXRDdXJyZW50Um91bmQAAAEFA25pbAkAAgECEW5vdGhpbmcgYXZhaWxhYmxlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBBHNwaW4AAwMDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQAAAggJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQR1bml0BwkAAAIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQpCRVRfQU1PVU5UBwQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIEBHR4aWQJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAMJAQlpc0RlZmluZWQBCQCdCAIFBHRoaXMFB2FkZHJlc3MEA2ludgkA/AcEBQR0aGlzAgZyZXN1bHQJAMwIAgUHYWRkcmVzcwUDbmlsBQNuaWwDCQAAAgUDaW52BQNpbnYJAQtwcml2YXRlU3BpbgIFB2FkZHJlc3MFBHR4aWQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAQtwcml2YXRlU3BpbgIFB2FkZHJlc3MFBHR4aWQJAAIBAgtiYWQgcGF5bWVudAFpAQZyZXN1bHQBCmFkZHJlc3NTdHIEBGRhdGEJALUJAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMFCmFkZHJlc3NTdHIJAKwCAgIYdW5hYmxlIHRvIHJlYWQgZGF0YSBmb3IgBQphZGRyZXNzU3RyBQlzZXBhcmF0b3IEBHR4aWQJAJEDAgUEZGF0YQUFblR4SWQEC3N0YXJ0SGVpZ2h0CQCRAwIFBGRhdGEFB25IZWlnaHQEDGNvbW1pdEhlaWdodAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDpBwEJANkEAQUEdHhpZAkArAICBQR0eGlkAgogbm90IGZvdW5kAwkAZgIJAGQCBQxjb21taXRIZWlnaHQAAwUGaGVpZ2h0CQACAQkArAICCQCsAgICBXdhaXQgCQCkAwEJAGUCCQBkAgUMY29tbWl0SGVpZ2h0AAMFBmhlaWdodAIbIGJsb2NrcyB0byByZXZlYWwgdGhpcyB0eGlkBAJyMQkBBnJldmVhbAMFBHR4aWQJAGQCBQxjb21taXRIZWlnaHQAAQD///////////8BBAJyMgkBBnJldmVhbAMFBHR4aWQJAGQCBQxjb21taXRIZWlnaHQAAgUCcjEEAnIzCQEGcmV2ZWFsAwUEdHhpZAkAZAIFDGNvbW1pdEhlaWdodAADBQJyMQQGcmVzdWx0CQCsAgIJAKwCAgkApAMBBQJyMQkApAMBBQJyMgkApAMBBQJyMwQMd2lubmVyQW1vdW50CQERY2hlY2tXaW5uZXJBbW91bnQBBQZyZXN1bHQEA3N0cgkAuQkCCQDMCAIFBHR4aWQJAMwIAgUGcmVzdWx0CQDMCAIFC3N0YXJ0SGVpZ2h0CQDMCAIFCmFkZHJlc3NTdHIFA25pbAUJc2VwYXJhdG9yBAZsb2NrZWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQR0aGlzBQ1wZXRlSW5Mb2NrS2V5AhV1bmFibGUgdG8gcmVhZCBsb2NrZWQDCQBmAgUMd2lubmVyQW1vdW50AAAEAWsJAKwCAgICcl8FBnJlc3VsdAQLcmVzdWx0Q291bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUBawAABANpbnYJAPwHBAUEdGhpcwILdW5zdGFrZVBldGUJAMwIAgUMd2lubmVyQW1vdW50BQNuaWwFA25pbAMJAAACBQNpbnYFA2ludgQFdG90YWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwULc3VwcGxpZWRLZXkAAAQDa2V5AwkAAAIFBnJlc3VsdAIDNzc3BQpqYWNrcG90S2V5BQtzdXBwbGllZEtleQQDdmFsAwkAAAIFBnJlc3VsdAIDNzc3AAAJAGUCBQV0b3RhbAUMd2lubmVyQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ1wZXRlSW5Mb2NrS2V5CQBlAgUGbG9ja2VkBQRXNDIwCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQNrZXkFA3ZhbAkAzAgCCQEMSW50ZWdlckVudHJ5AgUBawkAZAIFC3Jlc3VsdENvdW50AAEJAMwIAgkBC1N0cmluZ0VudHJ5AgUEdHhpZAUDc3RyCQDMCAIJAQtEZWxldGVFbnRyeQEFCmFkZHJlc3NTdHIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUKYWRkcmVzc1N0cgUMd2lubmVyQW1vdW50BQRQRVRFBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4DAwMJAAACBQJyMQUCcjMGCQAAAgUCcjEFAnIyBgkAAAIFAnIyBQJyMwQBawIIcl9yZWZ1bmQEC3Jlc3VsdENvdW50CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFAWsAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUNcGV0ZUluTG9ja0tleQkAZQIFBmxvY2tlZAUEVzQyMAkAzAgCCQEMSW50ZWdlckVudHJ5AgUBawkAZAIFC3Jlc3VsdENvdW50AAEJAMwIAgkBC1N0cmluZ0VudHJ5AgUEdHhpZAUDc3RyCQDMCAIJAQtEZWxldGVFbnRyeQEFCmFkZHJlc3NTdHIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUKYWRkcmVzc1N0cgUKQkVUX0FNT1VOVAUEdW5pdAUDbmlsCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ1wZXRlSW5Mb2NrS2V5CQBlAgUGbG9ja2VkBQRXNDIwCQDMCAIJAQtTdHJpbmdFbnRyeQIFBHR4aWQFA3N0cgkAzAgCCQELRGVsZXRlRW50cnkBBQphZGRyZXNzU3RyBQNuaWwBaQEGdG9QZXRlAAQLd2F2ZXNBbW91bnQJAGUCCAkA7wcBBQR0aGlzB3JlZ3VsYXIAgK3iBAMJAGYCAIDC1y8FC3dhdmVzQW1vdW50CQACAQISYmFsYW5jZSBpcyB0b28gbG93BA90ZWFtV2F2ZXNBbW91bnQJAGsDBQt3YXZlc0Ftb3VudAUJVEVBTV9QQVJUAGQED3N3YXBXYXZlc0Ftb3VudAkAZQIJAGUCBQt3YXZlc0Ftb3VudAUPdGVhbVdhdmVzQW1vdW50AIDaxAkEBHN3YXAJAPwHBAULU3dhcEFkZHJlc3MCBHN3YXAJAMwIAgABCQDMCAIJANgEAQUEUEVURQkAzAgCCQClCAEFBHRoaXMFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUEdW5pdAUPc3dhcFdhdmVzQW1vdW50BQNuaWwDCQAAAgUEc3dhcAUEc3dhcAQNcGV0ZUFtb3VudE5ldwkA8AcCBQR0aGlzBQRQRVRFAwkAAAIFDXBldGVBbW91bnROZXcFDXBldGVBbW91bnROZXcEBnN1cHBseQkBDXByaXZhdGVTdXBwbHkBBQ1wZXRlQW1vdW50TmV3BANpbnYJAPwHBAUEdGhpcwIJc3Rha2VQZXRlCQDMCAIFDXBldGVBbW91bnROZXcFA25pbAUDbmlsAwkAAAIFA2ludgUDaW52CQDOCAIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwULVGVhbUFkZHJlc3MFD3RlYW1XYXZlc0Ftb3VudAUEdW5pdAUDbmlsBQZzdXBwbHkJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJcmViYWxhbmNlAQZhbW91bnQDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgl5b3UgY2FuJ3QEBXRvdGFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFC3N1cHBsaWVkS2V5AAAEB2phY2twb3QJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUKamFja3BvdEtleQAAAwkAZwIFBmFtb3VudAUFdG90YWwJAAIBAgpiYWQgYW1vdW50BAhuZXdUb3RhbAkAZQIFBXRvdGFsBQZhbW91bnQECm5ld0phY2twb3QJAGQCBQdqYWNrcG90BQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFC3N1cHBsaWVkS2V5BQhuZXdUb3RhbAkAzAgCCQEMSW50ZWdlckVudHJ5AgUKamFja3BvdEtleQUKbmV3SmFja3BvdAUDbmlsAOrxSuM=",
    "height": 3901283,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 4iY7mZU6sSjNeB9i1T7sCnCZNjbkgRaZhSDt4Xn1fTYN
Next: none

Diff: 
Old
New
Differences
13
13
 
14
14
 
let ROUND_BLOCKS = 10080
15
15
 
16
-
let JACKPOT_PART = 60
16
+
let JACKPOT_PART = valueOrElse(getInteger(this, "jackpot_part"), 60)
17
17
 
18
18
 
let TEAM_PART = 30
19
19
 
20
20
 
let BET_AMOUNT = 7770000
21
21
 
22
22
 
let W420 = 2000000000
23
+
24
+
let SVA = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
23
25
 
24
26
 
let suppliedKey = "pete_total"
25
27
 
49
51
 
func getRoundCountKey (addressStr) = (((addressStr + "_r_") + toString(getCurrentRound())) + "_cnt")
50
52
 
51
53
 
52
-
func getRoundLidersKey () = ((lidersTotalKey + "_") + toString(getCurrentRound()))
54
+
func getRoundLidersKey () = ((lidersTotalKey + "_r_") + toString(getCurrentRound()))
55
+
56
+
57
+
func getRoundTotalSpinKey () = ((totalSpinKey + "_r_") + toString(getCurrentRound()))
53
58
 
54
59
 
55
60
 
let nTxId = 0
60
65
 
61
66
 
let nAddress = 3
62
67
 
63
-
func reveal (txid,targetBlock) = if ((height >= targetBlock))
68
+
func reveal (txid,targetBlock,p) = if ((height >= targetBlock))
64
69
 
    then {
65
70
 
        let revealBlock = value(blockInfoByHeight(targetBlock))
66
71
 
        let vrf = value(revealBlock.vrf)
67
72
 
        let reveal = sha256((vrf + toBytes(txid)))
68
-
        (toInt(reveal) % 10)
73
+
        let newSVA = if ((p == -1))
74
+
            then SVA
75
+
            else ((SVA ++ removeByIndex(SVA, p)) ++ removeByIndex(SVA, p))
76
+
        let denom = size(newSVA)
77
+
        let idx = (toInt(reveal) % denom)
78
+
newSVA[idx]
69
79
 
        }
70
80
 
    else -1
71
81
 
103
113
 
        let data = split(valueOrErrorMessage(getString(this, addressStr), ("unable to read data for " + addressStr)), separator)
104
114
 
        let txid = data[nTxId]
105
115
 
        let commitHeight = valueOrErrorMessage(transactionHeightById(fromBase58String(txid)), (txid + " not found"))
106
-
        let r1 = reveal(txid, (commitHeight + 1))
107
-
        let r2 = reveal(txid, (commitHeight + 2))
108
-
        let r3 = reveal(txid, (commitHeight + 3))
116
+
        let r1 = reveal(txid, (commitHeight + 1), -1)
117
+
        let r2 = reveal(txid, (commitHeight + 2), r1)
118
+
        let r3 = reveal(txid, (commitHeight + 3), r1)
109
119
 
        let result = ((toString(r1) + toString(r2)) + toString(r3))
110
120
 
        let winnerAmount = checkWinnerAmount(result)
111
121
 
        let json = (((((((((((((((((((((((((("{" + "\"status\":\"in game\",") + "\"") + "prize") + "\"") + ":") + toString(winnerAmount)) + ",") + "\"") + "r1") + "\"") + ":") + toString(r1)) + ",") + "\"") + "r2") + "\"") + ":") + toString(r2)) + ",") + "\"") + "r3") + "\"") + ":") + toString(r3)) + "") + "}")
119
129
 
        else nil
120
130
 
    func foldTop (accum,address) =     {
121
131
 
        let cnt = valueOrElse(getInteger(this, getCountKey(address)), 0)
132
+
        (accum :+ ((("\"" + address) + "\":") + toString(cnt)))
133
+
        }
134
+
135
+
    let top = {
136
+
        let $l = liders
137
+
        let $s = size($l)
138
+
        let $acc0 = nil
139
+
        func $f0_1 ($a,$i) =         if (($i >= $s))
140
+
            then $a
141
+
            else foldTop($a, $l[$i])
142
+
143
+
        func $f0_2 ($a,$i) =         if (($i >= $s))
144
+
            then $a
145
+
            else throw("List size exceeds 20")
146
+
147
+
        $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
148
+
        }
149
+
    (("{" + makeString_2C(top, ",")) + "}")
150
+
    }
151
+
152
+
153
+
func jsonRoundTopGamers () = {
154
+
    let liders = if (isDefined(getString(this, getRoundLidersKey())))
155
+
        then split_51C(getStringValue(this, getRoundLidersKey()), separator)
156
+
        else nil
157
+
    func foldTop (accum,address) =     {
158
+
        let cnt = valueOrElse(getInteger(this, getRoundCountKey(address)), 0)
122
159
 
        (accum :+ ((("\"" + address) + "\":") + toString(cnt)))
123
160
 
        }
124
161
 
209
246
 
    let locked = valueOrElse(getInteger(this, peteInLockKey), 0)
210
247
 
    let total = valueOrElse(getInteger(this, suppliedKey), 0)
211
248
 
    let totalSpin = valueOrElse(getInteger(this, totalSpinKey), 0)
249
+
    let totalRoundSpin = valueOrElse(getInteger(this, getRoundTotalSpinKey()), 0)
212
250
 
    let newSpinCount = (valueOrElse(getInteger(this, getCountKey(addressStr)), 0) + 1)
213
251
 
    let newSpinRoundCount = (valueOrElse(getInteger(this, getRoundCountKey(addressStr)), 0) + 1)
214
252
 
    if ((W420 > total))
217
255
 
            let str = makeString([txid, "xxx", toString(height), addressStr], separator)
218
256
 
            let liders = privateCheckLiders(addressStr, newSpinCount, lidersTotalKey, getCountKey(""))
219
257
 
            let roundLiders = privateCheckLiders(addressStr, newSpinRoundCount, getRoundLidersKey(), getRoundCountKey(""))
220
-
            let res = [StringEntry(addressStr, str), IntegerEntry(peteInLockKey, (locked + W420)), IntegerEntry(getCountKey(addressStr), newSpinCount), IntegerEntry(getRoundCountKey(addressStr), newSpinRoundCount), IntegerEntry(totalSpinKey, (totalSpin + 1))]
258
+
            let res = [StringEntry(addressStr, str), IntegerEntry(peteInLockKey, (locked + W420)), IntegerEntry(getCountKey(addressStr), newSpinCount), IntegerEntry(getRoundCountKey(addressStr), newSpinRoundCount), IntegerEntry(totalSpinKey, (totalSpin + 1)), IntegerEntry(getRoundTotalSpinKey(), (totalRoundSpin + 1))]
221
259
 
            ((liders ++ roundLiders) ++ res)
222
260
 
            }
223
261
 
    }
354
392
 
    if (((commitHeight + 3) > height))
355
393
 
        then throw((("wait " + toString(((commitHeight + 3) - height))) + " blocks to reveal this txid"))
356
394
 
        else {
357
-
            let r1 = reveal(txid, (commitHeight + 1))
358
-
            let r2 = reveal(txid, (commitHeight + 2))
359
-
            let r3 = reveal(txid, (commitHeight + 3))
395
+
            let r1 = reveal(txid, (commitHeight + 1), -1)
396
+
            let r2 = reveal(txid, (commitHeight + 2), r1)
397
+
            let r3 = reveal(txid, (commitHeight + 3), r1)
360
398
 
            let result = ((toString(r1) + toString(r2)) + toString(r3))
361
399
 
            let winnerAmount = checkWinnerAmount(result)
362
400
 
            let str = makeString([txid, result, startHeight, addressStr], separator)
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let PETE = base58'GAzAEjApmjMYZKPzri2g2VUXNvTiQGF7KDYZFFsP3AEq'
5
5
 
6
6
 
let PeteStakingAddress = Address(base58'3PBf2jd3ZEPX7NHQvVarscTjLQ8bk43uAfn')
7
7
 
8
8
 
let SwapAddress = Address(base58'3P68zNiufsu1viZpu1aY3cdahRRKcvV5N93')
9
9
 
10
10
 
let TeamAddress = Address(base58'3PHeVKu6hS24p2LX7AdtHnZnpyuC8Q7q2MF')
11
11
 
12
12
 
let separator = "_"
13
13
 
14
14
 
let ROUND_BLOCKS = 10080
15
15
 
16
-
let JACKPOT_PART = 60
16
+
let JACKPOT_PART = valueOrElse(getInteger(this, "jackpot_part"), 60)
17
17
 
18
18
 
let TEAM_PART = 30
19
19
 
20
20
 
let BET_AMOUNT = 7770000
21
21
 
22
22
 
let W420 = 2000000000
23
+
24
+
let SVA = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
23
25
 
24
26
 
let suppliedKey = "pete_total"
25
27
 
26
28
 
let jackpotKey = "pete_jackpot"
27
29
 
28
30
 
let peteInLockKey = "pete_in_lock"
29
31
 
30
32
 
let peteInStakingKey = "pete_in_staking"
31
33
 
32
34
 
let lidersTotalKey = "liders"
33
35
 
34
36
 
let totalSpinKey = "spin_total"
35
37
 
36
38
 
let top3_block = "top3_block"
37
39
 
38
40
 
let top3_round = "top3_round"
39
41
 
40
42
 
func getCurrentRound () = getIntegerValue(this, top3_round)
41
43
 
42
44
 
43
45
 
func getLastTop3Block () = getIntegerValue(this, top3_block)
44
46
 
45
47
 
46
48
 
func getCountKey (addressStr) = (addressStr + "_cnt")
47
49
 
48
50
 
49
51
 
func getRoundCountKey (addressStr) = (((addressStr + "_r_") + toString(getCurrentRound())) + "_cnt")
50
52
 
51
53
 
52
-
func getRoundLidersKey () = ((lidersTotalKey + "_") + toString(getCurrentRound()))
54
+
func getRoundLidersKey () = ((lidersTotalKey + "_r_") + toString(getCurrentRound()))
55
+
56
+
57
+
func getRoundTotalSpinKey () = ((totalSpinKey + "_r_") + toString(getCurrentRound()))
53
58
 
54
59
 
55
60
 
let nTxId = 0
56
61
 
57
62
 
let nResult = 1
58
63
 
59
64
 
let nHeight = 2
60
65
 
61
66
 
let nAddress = 3
62
67
 
63
-
func reveal (txid,targetBlock) = if ((height >= targetBlock))
68
+
func reveal (txid,targetBlock,p) = if ((height >= targetBlock))
64
69
 
    then {
65
70
 
        let revealBlock = value(blockInfoByHeight(targetBlock))
66
71
 
        let vrf = value(revealBlock.vrf)
67
72
 
        let reveal = sha256((vrf + toBytes(txid)))
68
-
        (toInt(reveal) % 10)
73
+
        let newSVA = if ((p == -1))
74
+
            then SVA
75
+
            else ((SVA ++ removeByIndex(SVA, p)) ++ removeByIndex(SVA, p))
76
+
        let denom = size(newSVA)
77
+
        let idx = (toInt(reveal) % denom)
78
+
newSVA[idx]
69
79
 
        }
70
80
 
    else -1
71
81
 
72
82
 
73
83
 
func checkWinnerAmount (result) = if ((result == "777"))
74
84
 
    then valueOrElse(getInteger(this, jackpotKey), 0)
75
85
 
    else if ((result == "420"))
76
86
 
        then W420
77
87
 
        else if ((result == "100"))
78
88
 
            then 500000000
79
89
 
            else if ((result == "111"))
80
90
 
                then 600000000
81
91
 
                else if ((result == "222"))
82
92
 
                    then 700000000
83
93
 
                    else if ((result == "333"))
84
94
 
                        then 800000000
85
95
 
                        else if ((result == "444"))
86
96
 
                            then 900000000
87
97
 
                            else if ((result == "555"))
88
98
 
                                then 800000000
89
99
 
                                else if ((result == "888"))
90
100
 
                                    then 700000000
91
101
 
                                    else if ((result == "999"))
92
102
 
                                        then 600000000
93
103
 
                                        else if ((result == "666"))
94
104
 
                                            then 666000000
95
105
 
                                            else if ((result == "137"))
96
106
 
                                                then 731000000
97
107
 
                                                else 0
98
108
 
99
109
 
100
110
 
func jsonResult (addressStr) = if (!(isDefined(getString(this, addressStr))))
101
111
 
    then "{\"status\":\"no game\"}"
102
112
 
    else {
103
113
 
        let data = split(valueOrErrorMessage(getString(this, addressStr), ("unable to read data for " + addressStr)), separator)
104
114
 
        let txid = data[nTxId]
105
115
 
        let commitHeight = valueOrErrorMessage(transactionHeightById(fromBase58String(txid)), (txid + " not found"))
106
-
        let r1 = reveal(txid, (commitHeight + 1))
107
-
        let r2 = reveal(txid, (commitHeight + 2))
108
-
        let r3 = reveal(txid, (commitHeight + 3))
116
+
        let r1 = reveal(txid, (commitHeight + 1), -1)
117
+
        let r2 = reveal(txid, (commitHeight + 2), r1)
118
+
        let r3 = reveal(txid, (commitHeight + 3), r1)
109
119
 
        let result = ((toString(r1) + toString(r2)) + toString(r3))
110
120
 
        let winnerAmount = checkWinnerAmount(result)
111
121
 
        let json = (((((((((((((((((((((((((("{" + "\"status\":\"in game\",") + "\"") + "prize") + "\"") + ":") + toString(winnerAmount)) + ",") + "\"") + "r1") + "\"") + ":") + toString(r1)) + ",") + "\"") + "r2") + "\"") + ":") + toString(r2)) + ",") + "\"") + "r3") + "\"") + ":") + toString(r3)) + "") + "}")
112
122
 
        json
113
123
 
        }
114
124
 
115
125
 
116
126
 
func jsonTopGamers () = {
117
127
 
    let liders = if (isDefined(getString(this, lidersTotalKey)))
118
128
 
        then split_51C(getStringValue(this, lidersTotalKey), separator)
119
129
 
        else nil
120
130
 
    func foldTop (accum,address) =     {
121
131
 
        let cnt = valueOrElse(getInteger(this, getCountKey(address)), 0)
132
+
        (accum :+ ((("\"" + address) + "\":") + toString(cnt)))
133
+
        }
134
+
135
+
    let top = {
136
+
        let $l = liders
137
+
        let $s = size($l)
138
+
        let $acc0 = nil
139
+
        func $f0_1 ($a,$i) =         if (($i >= $s))
140
+
            then $a
141
+
            else foldTop($a, $l[$i])
142
+
143
+
        func $f0_2 ($a,$i) =         if (($i >= $s))
144
+
            then $a
145
+
            else throw("List size exceeds 20")
146
+
147
+
        $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
148
+
        }
149
+
    (("{" + makeString_2C(top, ",")) + "}")
150
+
    }
151
+
152
+
153
+
func jsonRoundTopGamers () = {
154
+
    let liders = if (isDefined(getString(this, getRoundLidersKey())))
155
+
        then split_51C(getStringValue(this, getRoundLidersKey()), separator)
156
+
        else nil
157
+
    func foldTop (accum,address) =     {
158
+
        let cnt = valueOrElse(getInteger(this, getRoundCountKey(address)), 0)
122
159
 
        (accum :+ ((("\"" + address) + "\":") + toString(cnt)))
123
160
 
        }
124
161
 
125
162
 
    let top = {
126
163
 
        let $l = liders
127
164
 
        let $s = size($l)
128
165
 
        let $acc0 = nil
129
166
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
130
167
 
            then $a
131
168
 
            else foldTop($a, $l[$i])
132
169
 
133
170
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
134
171
 
            then $a
135
172
 
            else throw("List size exceeds 20")
136
173
 
137
174
 
        $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
138
175
 
        }
139
176
 
    (("{" + makeString_2C(top, ",")) + "}")
140
177
 
    }
141
178
 
142
179
 
143
180
 
func privateSupply (amount) = {
144
181
 
    let total = valueOrElse(getInteger(this, suppliedKey), 0)
145
182
 
    let jackpot = valueOrElse(getInteger(this, jackpotKey), 0)
146
183
 
    let newTotal = (total + fraction(amount, (100 - JACKPOT_PART), 100))
147
184
 
    let newJackpot = (jackpot + fraction(amount, JACKPOT_PART, 100))
148
185
 
[IntegerEntry(suppliedKey, newTotal), IntegerEntry(jackpotKey, newJackpot)]
149
186
 
    }
150
187
 
151
188
 
152
189
 
func privateCheckLiders (addressStr,spinCount,sLidersKey,sCountKey) = {
153
190
 
    let lidersStr = valueOrElse(getString(this, sLidersKey), "")
154
191
 
    let liders = if ((lidersStr != ""))
155
192
 
        then split_51C(getStringValue(this, sLidersKey), separator)
156
193
 
        else nil
157
194
 
    let idx = indexOf(liders, addressStr)
158
195
 
    let filteredLiders = if (isDefined(idx))
159
196
 
        then removeByIndex(liders, value(idx))
160
197
 
        else liders
161
198
 
    let minCount = valueOrElse(getInteger(this, (filteredLiders[(size(filteredLiders) - 1)] + sCountKey)), 0)
162
199
 
    let lidersSize = size(filteredLiders)
163
200
 
    func foldSort (accum,address) =     {
164
201
 
        let cnt = valueOrElse(getInteger(this, (address + sCountKey)), 0)
165
202
 
        let accumSize = size(accum)
166
203
 
        if ((accumSize == 100))
167
204
 
            then accum
168
205
 
            else if (isDefined(indexOf(accum, addressStr)))
169
206
 
                then (accum :+ address)
170
207
 
                else if ((spinCount > cnt))
171
208
 
                    then if ((accumSize == 99))
172
209
 
                        then (accum :+ addressStr)
173
210
 
                        else ((accum :+ addressStr) :+ address)
174
211
 
                    else (accum :+ address)
175
212
 
        }
176
213
 
177
214
 
    let newLiders = if ((lidersSize == 0))
178
215
 
        then [addressStr]
179
216
 
        else if (if ((100 > lidersSize))
180
217
 
            then (minCount >= spinCount)
181
218
 
            else false)
182
219
 
            then (filteredLiders :+ addressStr)
183
220
 
            else if ((minCount >= spinCount))
184
221
 
                then filteredLiders
185
222
 
                else {
186
223
 
                    let list = {
187
224
 
                        let $l = filteredLiders
188
225
 
                        let $s = size($l)
189
226
 
                        let $acc0 = nil
190
227
 
                        func $f0_1 ($a,$i) =                         if (($i >= $s))
191
228
 
                            then $a
192
229
 
                            else foldSort($a, $l[$i])
193
230
 
194
231
 
                        func $f0_2 ($a,$i) =                         if (($i >= $s))
195
232
 
                            then $a
196
233
 
                            else throw("List size exceeds 100")
197
234
 
198
235
 
                        $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($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($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($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), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
199
236
 
                        }
200
237
 
                    list
201
238
 
                    }
202
239
 
    let newLidersStr = makeString_11C(newLiders, separator)
203
240
 
    let result = [StringEntry(sLidersKey, newLidersStr)]
204
241
 
    result
205
242
 
    }
206
243
 
207
244
 
208
245
 
func privateSpin (addressStr,txid) = {
209
246
 
    let locked = valueOrElse(getInteger(this, peteInLockKey), 0)
210
247
 
    let total = valueOrElse(getInteger(this, suppliedKey), 0)
211
248
 
    let totalSpin = valueOrElse(getInteger(this, totalSpinKey), 0)
249
+
    let totalRoundSpin = valueOrElse(getInteger(this, getRoundTotalSpinKey()), 0)
212
250
 
    let newSpinCount = (valueOrElse(getInteger(this, getCountKey(addressStr)), 0) + 1)
213
251
 
    let newSpinRoundCount = (valueOrElse(getInteger(this, getRoundCountKey(addressStr)), 0) + 1)
214
252
 
    if ((W420 > total))
215
253
 
        then throw("no pete in sc")
216
254
 
        else {
217
255
 
            let str = makeString([txid, "xxx", toString(height), addressStr], separator)
218
256
 
            let liders = privateCheckLiders(addressStr, newSpinCount, lidersTotalKey, getCountKey(""))
219
257
 
            let roundLiders = privateCheckLiders(addressStr, newSpinRoundCount, getRoundLidersKey(), getRoundCountKey(""))
220
-
            let res = [StringEntry(addressStr, str), IntegerEntry(peteInLockKey, (locked + W420)), IntegerEntry(getCountKey(addressStr), newSpinCount), IntegerEntry(getRoundCountKey(addressStr), newSpinRoundCount), IntegerEntry(totalSpinKey, (totalSpin + 1))]
258
+
            let res = [StringEntry(addressStr, str), IntegerEntry(peteInLockKey, (locked + W420)), IntegerEntry(getCountKey(addressStr), newSpinCount), IntegerEntry(getRoundCountKey(addressStr), newSpinRoundCount), IntegerEntry(totalSpinKey, (totalSpin + 1)), IntegerEntry(getRoundTotalSpinKey(), (totalRoundSpin + 1))]
221
259
 
            ((liders ++ roundLiders) ++ res)
222
260
 
            }
223
261
 
    }
224
262
 
225
263
 
226
264
 
@Callable(i)
227
265
 
func supply () = if ((i.caller == this))
228
266
 
    then throw("you can't")
229
267
 
    else if (if ((size(i.payments) == 1))
230
268
 
        then (i.payments[0].assetId == PETE)
231
269
 
        else false)
232
270
 
        then {
233
271
 
            let inv = invoke(this, "stakePete", [i.payments[0].amount], nil)
234
272
 
            if ((inv == inv))
235
273
 
                then privateSupply(i.payments[0].amount)
236
274
 
                else throw("Strict value is not equal to itself.")
237
275
 
            }
238
276
 
        else throw("bad payment")
239
277
 
240
278
 
241
279
 
242
280
 
@Callable(i)
243
281
 
func stakePete (peteAmount) = if ((i.caller != this))
244
282
 
    then throw("you can't")
245
283
 
    else {
246
284
 
        let peteInStake = valueOrElse(getInteger(this, peteInStakingKey), 0)
247
285
 
        let inv = invoke(PeteStakingAddress, "stake", nil, [AttachedPayment(PETE, peteAmount)])
248
286
 
        if ((inv == inv))
249
287
 
            then [IntegerEntry(peteInStakingKey, (peteInStake + peteAmount))]
250
288
 
            else throw("Strict value is not equal to itself.")
251
289
 
        }
252
290
 
253
291
 
254
292
 
255
293
 
@Callable(i)
256
294
 
func unstakePete (amount) = if ((i.caller != this))
257
295
 
    then throw("you can't")
258
296
 
    else {
259
297
 
        let peteInStake = valueOrErrorMessage(getInteger(this, peteInStakingKey), (peteInStakingKey + " not found"))
260
298
 
        let inv = invoke(PeteStakingAddress, "unstake", [amount], nil)
261
299
 
        if ((inv == inv))
262
300
 
            then [IntegerEntry(peteInStakingKey, (peteInStake - amount))]
263
301
 
            else throw("Strict value is not equal to itself.")
264
302
 
        }
265
303
 
266
304
 
267
305
 
268
306
 
@Callable(i)
269
307
 
func claimPeteFromStaking () = if (((getLastTop3Block() + ROUND_BLOCKS) > height))
270
308
 
    then throw("too early")
271
309
 
    else {
272
310
 
        let peteAmountBefore = assetBalance(this, PETE)
273
311
 
        if ((peteAmountBefore == peteAmountBefore))
274
312
 
            then {
275
313
 
                let inv = invoke(PeteStakingAddress, "claim", nil, nil)
276
314
 
                if ((inv == inv))
277
315
 
                    then {
278
316
 
                        let peteAmountNew = (assetBalance(this, PETE) - peteAmountBefore)
279
317
 
                        if ((peteAmountNew == peteAmountNew))
280
318
 
                            then if ((peteAmountNew > 0))
281
319
 
                                then {
282
320
 
                                    let liders = if (isDefined(getString(this, getRoundLidersKey())))
283
321
 
                                        then split_51C(getStringValue(this, getRoundLidersKey()), separator)
284
322
 
                                        else nil
285
323
 
                                    let lidersSize = size(liders)
286
324
 
                                    let p1 = if ((lidersSize >= 1))
287
325
 
                                        then valueOrElse(getInteger(this, getCountKey(liders[0])), 0)
288
326
 
                                        else 0
289
327
 
                                    let p2 = if ((lidersSize >= 2))
290
328
 
                                        then valueOrElse(getInteger(this, getCountKey(liders[1])), 0)
291
329
 
                                        else 0
292
330
 
                                    let p3 = if ((lidersSize >= 3))
293
331
 
                                        then valueOrElse(getInteger(this, getCountKey(liders[2])), 0)
294
332
 
                                        else 0
295
333
 
                                    let p1w = if ((lidersSize >= 1))
296
334
 
                                        then liders[0]
297
335
 
                                        else "no address"
298
336
 
                                    let p2w = if ((lidersSize >= 2))
299
337
 
                                        then liders[1]
300
338
 
                                        else "no address"
301
339
 
                                    let p3w = if ((lidersSize >= 3))
302
340
 
                                        then liders[2]
303
341
 
                                        else "no address"
304
342
 
                                    let totalCount = ((p1 + p2) + p3)
305
343
 
                                    let r3 = if ((p3 > 0))
306
344
 
                                        then [ScriptTransfer(addressFromStringValue(p3w), fraction(peteAmountNew, p3, totalCount), PETE)]
307
345
 
                                        else nil
308
346
 
                                    let r2 = if ((p2 > 0))
309
347
 
                                        then [ScriptTransfer(addressFromStringValue(p2w), fraction(peteAmountNew, p2, totalCount), PETE)]
310
348
 
                                        else nil
311
349
 
                                    let r1 = if ((p1 > 0))
312
350
 
                                        then [ScriptTransfer(addressFromStringValue(p1w), fraction(peteAmountNew, p1, totalCount), PETE)]
313
351
 
                                        else nil
314
352
 
                                    (((r1 ++ r2) ++ r3) ++ [IntegerEntry(top3_block, height), IntegerEntry(top3_round, (getCurrentRound() + 1))])
315
353
 
                                    }
316
354
 
                                else throw("nothing available")
317
355
 
                            else throw("Strict value is not equal to itself.")
318
356
 
                        }
319
357
 
                    else throw("Strict value is not equal to itself.")
320
358
 
                }
321
359
 
            else throw("Strict value is not equal to itself.")
322
360
 
        }
323
361
 
324
362
 
325
363
 
326
364
 
@Callable(i)
327
365
 
func spin () = if (if (if ((size(i.payments) == 1))
328
366
 
    then (i.payments[0].assetId == unit)
329
367
 
    else false)
330
368
 
    then (i.payments[0].amount == BET_AMOUNT)
331
369
 
    else false)
332
370
 
    then {
333
371
 
        let address = toString(i.caller)
334
372
 
        let txid = toBase58String(i.transactionId)
335
373
 
        if (isDefined(getString(this, address)))
336
374
 
            then {
337
375
 
                let inv = invoke(this, "result", [address], nil)
338
376
 
                if ((inv == inv))
339
377
 
                    then privateSpin(address, txid)
340
378
 
                    else throw("Strict value is not equal to itself.")
341
379
 
                }
342
380
 
            else privateSpin(address, txid)
343
381
 
        }
344
382
 
    else throw("bad payment")
345
383
 
346
384
 
347
385
 
348
386
 
@Callable(i)
349
387
 
func result (addressStr) = {
350
388
 
    let data = split(valueOrErrorMessage(getString(this, addressStr), ("unable to read data for " + addressStr)), separator)
351
389
 
    let txid = data[nTxId]
352
390
 
    let startHeight = data[nHeight]
353
391
 
    let commitHeight = valueOrErrorMessage(transactionHeightById(fromBase58String(txid)), (txid + " not found"))
354
392
 
    if (((commitHeight + 3) > height))
355
393
 
        then throw((("wait " + toString(((commitHeight + 3) - height))) + " blocks to reveal this txid"))
356
394
 
        else {
357
-
            let r1 = reveal(txid, (commitHeight + 1))
358
-
            let r2 = reveal(txid, (commitHeight + 2))
359
-
            let r3 = reveal(txid, (commitHeight + 3))
395
+
            let r1 = reveal(txid, (commitHeight + 1), -1)
396
+
            let r2 = reveal(txid, (commitHeight + 2), r1)
397
+
            let r3 = reveal(txid, (commitHeight + 3), r1)
360
398
 
            let result = ((toString(r1) + toString(r2)) + toString(r3))
361
399
 
            let winnerAmount = checkWinnerAmount(result)
362
400
 
            let str = makeString([txid, result, startHeight, addressStr], separator)
363
401
 
            let locked = valueOrErrorMessage(getInteger(this, peteInLockKey), "unable to read locked")
364
402
 
            if ((winnerAmount > 0))
365
403
 
                then {
366
404
 
                    let k = ("r_" + result)
367
405
 
                    let resultCount = valueOrElse(getInteger(this, k), 0)
368
406
 
                    let inv = invoke(this, "unstakePete", [winnerAmount], nil)
369
407
 
                    if ((inv == inv))
370
408
 
                        then {
371
409
 
                            let total = valueOrElse(getInteger(this, suppliedKey), 0)
372
410
 
                            let key = if ((result == "777"))
373
411
 
                                then jackpotKey
374
412
 
                                else suppliedKey
375
413
 
                            let val = if ((result == "777"))
376
414
 
                                then 0
377
415
 
                                else (total - winnerAmount)
378
416
 
[IntegerEntry(peteInLockKey, (locked - W420)), IntegerEntry(key, val), IntegerEntry(k, (resultCount + 1)), StringEntry(txid, str), DeleteEntry(addressStr), ScriptTransfer(addressFromStringValue(addressStr), winnerAmount, PETE)]
379
417
 
                            }
380
418
 
                        else throw("Strict value is not equal to itself.")
381
419
 
                    }
382
420
 
                else if (if (if ((r1 == r3))
383
421
 
                    then true
384
422
 
                    else (r1 == r2))
385
423
 
                    then true
386
424
 
                    else (r2 == r3))
387
425
 
                    then {
388
426
 
                        let k = "r_refund"
389
427
 
                        let resultCount = valueOrElse(getInteger(this, k), 0)
390
428
 
[IntegerEntry(peteInLockKey, (locked - W420)), IntegerEntry(k, (resultCount + 1)), StringEntry(txid, str), DeleteEntry(addressStr), ScriptTransfer(addressFromStringValue(addressStr), BET_AMOUNT, unit)]
391
429
 
                        }
392
430
 
                    else [IntegerEntry(peteInLockKey, (locked - W420)), StringEntry(txid, str), DeleteEntry(addressStr)]
393
431
 
            }
394
432
 
    }
395
433
 
396
434
 
397
435
 
398
436
 
@Callable(i)
399
437
 
func toPete () = {
400
438
 
    let wavesAmount = (wavesBalance(this).regular - 10000000)
401
439
 
    if ((100000000 > wavesAmount))
402
440
 
        then throw("balance is too low")
403
441
 
        else {
404
442
 
            let teamWavesAmount = fraction(wavesAmount, TEAM_PART, 100)
405
443
 
            let swapWavesAmount = ((wavesAmount - teamWavesAmount) - 20000000)
406
444
 
            let swap = invoke(SwapAddress, "swap", [1, toBase58String(PETE), toString(this)], [AttachedPayment(unit, swapWavesAmount)])
407
445
 
            if ((swap == swap))
408
446
 
                then {
409
447
 
                    let peteAmountNew = assetBalance(this, PETE)
410
448
 
                    if ((peteAmountNew == peteAmountNew))
411
449
 
                        then {
412
450
 
                            let supply = privateSupply(peteAmountNew)
413
451
 
                            let inv = invoke(this, "stakePete", [peteAmountNew], nil)
414
452
 
                            if ((inv == inv))
415
453
 
                                then ([ScriptTransfer(TeamAddress, teamWavesAmount, unit)] ++ supply)
416
454
 
                                else throw("Strict value is not equal to itself.")
417
455
 
                            }
418
456
 
                        else throw("Strict value is not equal to itself.")
419
457
 
                    }
420
458
 
                else throw("Strict value is not equal to itself.")
421
459
 
            }
422
460
 
    }
423
461
 
424
462
 
425
463
 
426
464
 
@Callable(i)
427
465
 
func rebalance (amount) = if ((i.caller != this))
428
466
 
    then throw("you can't")
429
467
 
    else {
430
468
 
        let total = valueOrElse(getInteger(this, suppliedKey), 0)
431
469
 
        let jackpot = valueOrElse(getInteger(this, jackpotKey), 0)
432
470
 
        if ((amount >= total))
433
471
 
            then throw("bad amount")
434
472
 
            else {
435
473
 
                let newTotal = (total - amount)
436
474
 
                let newJackpot = (jackpot + amount)
437
475
 
[IntegerEntry(suppliedKey, newTotal), IntegerEntry(jackpotKey, newJackpot)]
438
476
 
                }
439
477
 
        }
440
478
 
441
479
 

github/deemru/w8io/3ef1775 
68.18 ms ◑