w8 · tx · 5Cd···3GU

tx · 5CdBa41kmHLiQkEYEFzjG9ckZ1RxKKgPYfCjnWpAo3GU

3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX:  -0.01000000 Waves

2023.06.11 15:49 [2618035] smart account 3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5CdBa41kmHLiQkEYEFzjG9ckZ1RxKKgPYfCjnWpAo3GU",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1686487800653,
    "version": 2,
    "chainId": 84,
    "sender": "3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX",
    "senderPublicKey": "5iiNX4Sz3qZzcerumQLc1y7u9TH2X46jDV4f9Xivtmtv",
    "proofs": [
        "2PdrrqgCGkufiEKKwSScCv3bHBk7N6H4avkodewXAtCEJ54DsKnXFX6Vo8E6TwPtmzc2fR8gLvxgbTU1cLXq8kV6"
    ],
    "script": "base64:BgIUCAISAwoBARIFCgMBEQgSABIAEgAaAQpudW1Ub1dhdmVzAQNudW0JAGgCBQNudW0AgMLXLwELaXNQYXltZW50T2sCAWkDc3VtBBFhY2NlcHRhYmxlQXNzZXRJZAEEE6vZMwQBcAkAkQMCCAUBaQhwYXltZW50cwAAAwkAZwIIBQFwBmFtb3VudAkBCm51bVRvV2F2ZXMBBQNzdW0JAAACCAUBcAdhc3NldElkBQR1bml0BwELbWFwSW50VG9TdHICBWFjY3VtBG5leHQJAMwIAgkApAMBBQRuZXh0BQVhY2N1bQELbWFwU3RyVG9JbnQCBWFjY3VtBG5leHQJAMwIAgkBDXBhcnNlSW50VmFsdWUBBQRuZXh0BQVhY2N1bQELbWFwSW50VG9TdW0CBWFjY3VtBG5leHQJAGQCBQVhY2N1bQUEbmV4dAEMbGlzdEludFRvU3VtAQNhcnIKAAIkbAUDYXJyCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQttYXBJbnRUb1N1bQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyARNsaXN0SW50VG9MaXN0U3RyaW5nAQNhcnIKAAIkbAUDYXJyCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQttYXBJbnRUb1N0cgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyARNsaXN0U3RyaW5nVG9MaXN0SW5nAQNhcnIKAAIkbAUDYXJyCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQttYXBTdHJUb0ludAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyARpsaXN0U3RyaW5nQ29tcHJlc3NUb1N0cmluZwEDYXJyCQC5CQIFA2FycgIBfAEcc3RyaW5nRGVjb21wcmVzc1RvTGlzdFN0cmluZwEDc3RyCQC1CQIFA3N0cgIBfAEXbGlzdEludENvbXByZXNzVG9TdHJpbmcBA2FycgkAuQkCCQETbGlzdEludFRvTGlzdFN0cmluZwEFA2FycgIBfAEZc3RyaW5nRGVjb21wcmVzc1RvTGlzdEludAEGYXJyU3RyCQETbGlzdFN0cmluZ1RvTGlzdEluZwEJALUJAgUGYXJyU3RyAgF8AQlnZXRSYW5kb20BDGNvbW1pdEhlaWdodAQLcmV2ZWFsQmxvY2sJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7QcBBQxjb21taXRIZWlnaHQCEXVuZXhjcGVjdGVkIGVycm9yBAN2cmYJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFC3JldmVhbEJsb2NrA3ZyZgIRdW5leGNwZWN0ZWQgZXJyb3IECnJhbmRvbUhhc2gJAPcDAQkBBXZhbHVlAQUDdnJmBARoYXNoCQCyCQIFCnJhbmRvbUhhc2gAEAkAagIFBGhhc2gAJQEPUl9XaW5DYWxjdWxhdG9yBAxyYW5kb21OdW1iZXIJYmV0QW1vdW50EnNlbGVjdGVkTnVtYmVyQmV0cwxiZXREaXJlY3Rpb24EC1JFRF9TRUNUT1JTCQDMCAIAIAkAzAgCABMJAMwIAgAVCQDMCAIAGQkAzAgCACIJAMwIAgAbCQDMCAIAJAkAzAgCAB4JAMwIAgAXCQDMCAIABQkAzAgCABAJAMwIAgABCQDMCAIADgkAzAgCAAkJAMwIAgASCQDMCAIABwkAzAgCAAwJAMwIAgADBQNuaWwDAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAEJAAACBQxiZXREaXJlY3Rpb24CA251bQcDCQAAAgkAkQMCBRJzZWxlY3RlZE51bWJlckJldHMAAAUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50ACQAAAMJAAACCQCQAwEFEnNlbGVjdGVkTnVtYmVyQmV0cwACAwkBD2NvbnRhaW5zRWxlbWVudAIFEnNlbGVjdGVkTnVtYmVyQmV0cwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50ABIAAAMJAAACCQCQAwEFEnNlbGVjdGVkTnVtYmVyQmV0cwADAwkBD2NvbnRhaW5zRWxlbWVudAIFEnNlbGVjdGVkTnVtYmVyQmV0cwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50AAwAAAMJAAACCQCQAwEFEnNlbGVjdGVkTnVtYmVyQmV0cwAEAwkBD2NvbnRhaW5zRWxlbWVudAIFEnNlbGVjdGVkTnVtYmVyQmV0cwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50AAkAAAMJAAACCQCQAwEFEnNlbGVjdGVkTnVtYmVyQmV0cwAMAwkBD2NvbnRhaW5zRWxlbWVudAIFEnNlbGVjdGVkTnVtYmVyQmV0cwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50AAMAAAMJAAACBQxiZXREaXJlY3Rpb24CA3JlZAMJAQ9jb250YWluc0VsZW1lbnQCBQtSRURfU0VDVE9SUwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50AAIAAAMJAAACBQxiZXREaXJlY3Rpb24CBWJsYWNrAwMJAQEhAQkBD2NvbnRhaW5zRWxlbWVudAIFC1JFRF9TRUNUT1JTBQxyYW5kb21OdW1iZXIJAQIhPQIFDHJhbmRvbU51bWJlcgAABwkAaAIFCWJldEFtb3VudAACAAADCQAAAgUMYmV0RGlyZWN0aW9uAgNvZGQDCQECIT0CCQBqAgUMcmFuZG9tTnVtYmVyAAIAAAkAaAIFCWJldEFtb3VudAACAAADCQAAAgUMYmV0RGlyZWN0aW9uAgRldmVuAwkAAAIJAGoCBQxyYW5kb21OdW1iZXIAAgAACQBoAgUJYmV0QW1vdW50AAIAAAMJAAACCQCQAwEFEnNlbGVjdGVkTnVtYmVyQmV0cwASAwkBD2NvbnRhaW5zRWxlbWVudAIFEnNlbGVjdGVkTnVtYmVyQmV0cwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50AAIAAAAAAQtSX2dldEJldEtleQEBaQkArAICAg1iZXRfUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgERUl9nZXRCZXRBbW91bnRLZXkBAWkJAKwCAgITYmV0QW1vdW50X1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXIBF1JfZ2V0U2VsZWN0ZWROdW1iZXJzS2V5AQFpCQCsAgICGXNlbGVjdGVkTnVtYmVyc19Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyARFSX2dldERpcmVjdGlvbktleQEBaQkArAICAhNkaXJlY3Rpb25fUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgELUl9nZXRMb2dLZXkBAWkJAKwCAgkArAICCQCsAgICDWxvZ19Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyAgFfCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQBDlJfZ2V0U3RhdHVzS2V5AQFpCQCsAgICEHN0YXR1c19Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyAQxMV19nZXRCZXRLZXkBAWkJAKwCAgIPYmV0X0x1Y2t5V2hlZWxfCQClCAEIBQFpBmNhbGxlcgEMTFdfZ2V0V29uS2V5AQFpCQCsAgICD3dvbl9MdWNreVdoZWVsXwkApQgBCAUBaQZjYWxsZXIBFUxXX2dldFJhbmRvbU51bWJlcktleQEBaQkArAICAhhyYW5kb21OdW1iZXJfTHVja3lXaGVlbF8JAKUIAQgFAWkGY2FsbGVyAQxMV19nZXRMb2dLZXkBAWkJAKwCAgkArAICCQCsAgICD2xvZ19MdWNreVdoZWVsXwkApQgBCAUBaQZjYWxsZXICAV8JANgEAQgFAWkNdHJhbnNhY3Rpb25JZAEOTFdfd2hhdFVzZXJXb24BBXZhbHVlBAckbWF0Y2gwBQV2YWx1ZQMJAAACAAEFByRtYXRjaDAJAQpudW1Ub1dhdmVzAQACAwkAAAIAAwUHJG1hdGNoMAkBCm51bVRvV2F2ZXMBAAEDCQAAAgAHBQckbWF0Y2gwCQEKbnVtVG9XYXZlcwEABgMJAAACAAkFByRtYXRjaDAJAQpudW1Ub1dhdmVzAQABAAABD0xXX2dldFN0YXR1c0tleQEBaQkArAICAhBzdGF0dXNfUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgUBaQEQdGVzdFJhbmRvbU51bWJlcgEMY29tbWl0SGVpZ2h0BAtyZXZlYWxCbG9jawkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDtBwEFDGNvbW1pdEhlaWdodAIRdW5leGNwZWN0ZWQgZXJyb3IEA3ZyZgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAULcmV2ZWFsQmxvY2sDdnJmAhF1bmV4Y3BlY3RlZCBlcnJvcgQKcmFuZG9tSGFzaAkA9wMBCQEFdmFsdWUBBQN2cmYEDHJhbmRvbU51bWJlcgkAagIJAKADAQkAngMBBQpyYW5kb21IYXNoACUJAAIBCQCkAwEFDHJhbmRvbU51bWJlcgFpAQ9Sb3VsZXR0ZV9jb21taXQDCWJldEFtb3VudBJzZWxlY3RlZE51bWJlckJldHMMYmV0RGlyZWN0aW9uBAFwCQCRAwIIBQFpCHBheW1lbnRzAAADCQEBIQEJAQtpc1BheW1lbnRPawIFAWkFCWJldEFtb3VudAkAAgECHldyb25nIHBheW1lbnQgYW1vdW50IG9yIGFzc2V0IQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBC1JfZ2V0QmV0S2V5AQUBaQkAZAIFBmhlaWdodAABCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQERUl9nZXRCZXRBbW91bnRLZXkBBQFpBQliZXRBbW91bnQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBF1JfZ2V0U2VsZWN0ZWROdW1iZXJzS2V5AQUBaQkBF2xpc3RJbnRDb21wcmVzc1RvU3RyaW5nAQUSc2VsZWN0ZWROdW1iZXJCZXRzCQDMCAIJAQtTdHJpbmdFbnRyeQIJARFSX2dldERpcmVjdGlvbktleQEFAWkFDGJldERpcmVjdGlvbgkAzAgCCQELU3RyaW5nRW50cnkCCQEOUl9nZXRTdGF0dXNLZXkBBQFpCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIgfCBzdGF0dXM6IGNvbW1pdCB8IHJldmVhbEJsb2NrOiAJAKQDAQkAZAIFBmhlaWdodAABAg4gfCBiZXRBbW91bnQ6IAkApAMBBQliZXRBbW91bnQCFCB8IHNlbGVjdGVkTnVtYmVyczogCQEXbGlzdEludENvbXByZXNzVG9TdHJpbmcBBRJzZWxlY3RlZE51bWJlckJldHMFA25pbAFpAQ9Sb3VsZXR0ZV9yZXZlYWwABAxjb21taXRIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBEUBleHRyTmF0aXZlKDEwNTUpAQkBC1JfZ2V0QmV0S2V5AQUBaQINQmV0IG5vdCBmb3VuZAQJYmV0QW1vdW50CQETdmFsdWVPckVycm9yTWVzc2FnZQIJARFAZXh0ck5hdGl2ZSgxMDU1KQEJARFSX2dldEJldEFtb3VudEtleQEFAWkCFEJldCBhbW91bnQgbm90IGZvdW5kBBJzZWxlY3RlZE51bWJlcnNTdHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBEUBleHRyTmF0aXZlKDEwNTgpAQkBF1JfZ2V0U2VsZWN0ZWROdW1iZXJzS2V5AQUBaQIaU2VsZWN0ZWQgbnVtYmVycyBub3QgZm91bmQECWRpcmVjdGlvbgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQERQGV4dHJOYXRpdmUoMTA1OCkBCQERUl9nZXREaXJlY3Rpb25LZXkBBQFpAhNEaXJlY3Rpb24gbm90IGZvdW5kBA9zZWxlY3RlZE51bWJlcnMJARlzdHJpbmdEZWNvbXByZXNzVG9MaXN0SW50AQUSc2VsZWN0ZWROdW1iZXJzU3RyAwkAZgIFDGNvbW1pdEhlaWdodAUGaGVpZ2h0CQACAQkArAICCQCsAgICBVdhaXQgCQCkAwEJAGUCBQxjb21taXRIZWlnaHQFBmhlaWdodAIZIGJsb2NrcyB0byByZXZlYWwgdGhpcyBpZAQLcmV2ZWFsQmxvY2sJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7QcBBQxjb21taXRIZWlnaHQCEXVuZXhjcGVjdGVkIGVycm9yBAN2cmYJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFC3JldmVhbEJsb2NrA3ZyZgIRdW5leGNwZWN0ZWQgZXJyb3IECnJhbmRvbUhhc2gJAPcDAQkBBXZhbHVlAQUDdnJmBAxyYW5kb21OdW1iZXIJAGoCCQCyCQIFCnJhbmRvbUhhc2gAEAAlBA13aW5uaW5nQW1vdW50CQEKbnVtVG9XYXZlcwEJAQ9SX1dpbkNhbGN1bGF0b3IEBQxyYW5kb21OdW1iZXIFCWJldEFtb3VudAUPc2VsZWN0ZWROdW1iZXJzBQlkaXJlY3Rpb24EBmxvZ1N0cgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIQfCBjb21taXRIZWlnaHQ6IAkApAMBBQxjb21taXRIZWlnaHQCDiB8IGJldEFtb3VudDogCQCkAwEFCWJldEFtb3VudAISIHwgd2lubmluZ0Ftb3VudDogCQCkAwEFDXdpbm5pbmdBbW91bnQCFCB8IHNlbGVjdGVkTnVtYmVyczogCQEXbGlzdEludENvbXByZXNzVG9TdHJpbmcBBQ9zZWxlY3RlZE51bWJlcnMCESB8IHJhbmRvbU51bWJlcjogCQCkAwEFDHJhbmRvbU51bWJlcgQJc3RhdHVzU3RyCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAiJ8IHN0YXR1czogcmV2ZWFsIHwgd2lubmluZ0Ftb3VudDogCQCkAwEFDXdpbm5pbmdBbW91bnQCFCB8IHNlbGVjdGVkTnVtYmVyczogCQEXbGlzdEludENvbXByZXNzVG9TdHJpbmcBBQ9zZWxlY3RlZE51bWJlcnMCESB8IHJhbmRvbU51bWJlcjogCQCkAwEFDHJhbmRvbU51bWJlcgIOIHwgYmV0QW1vdW50OiAJAKQDAQUJYmV0QW1vdW50AhQgfCBzZWxlY3RlZE51bWJlcnM6IAkBF2xpc3RJbnRDb21wcmVzc1RvU3RyaW5nAQUPc2VsZWN0ZWROdW1iZXJzAwkAZgIFDXdpbm5pbmdBbW91bnQAAAkAzAgCCQELRGVsZXRlRW50cnkBCQELUl9nZXRCZXRLZXkBBQFpCQDMCAIJAQtEZWxldGVFbnRyeQEJARFSX2dldEJldEFtb3VudEtleQEFAWkJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBF1JfZ2V0U2VsZWN0ZWROdW1iZXJzS2V5AQUBaQkAzAgCCQELRGVsZXRlRW50cnkBCQERUl9nZXREaXJlY3Rpb25LZXkBBQFpCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUNd2lubmluZ0Ftb3VudAUEdW5pdAkAzAgCCQELU3RyaW5nRW50cnkCCQELUl9nZXRMb2dLZXkBBQFpBQZsb2dTdHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDlJfZ2V0U3RhdHVzS2V5AQUBaQUJc3RhdHVzU3RyBQNuaWwJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBC1JfZ2V0QmV0S2V5AQUBaQkAzAgCCQELRGVsZXRlRW50cnkBCQERUl9nZXRCZXRBbW91bnRLZXkBBQFpCQDMCAIJAQtEZWxldGVFbnRyeQEJARdSX2dldFNlbGVjdGVkTnVtYmVyc0tleQEFAWkJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBEVJfZ2V0RGlyZWN0aW9uS2V5AQUBaQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBC1JfZ2V0TG9nS2V5AQUBaQUNd2lubmluZ0Ftb3VudAkAzAgCCQELU3RyaW5nRW50cnkCCQELUl9nZXRMb2dLZXkBBQFpBQZsb2dTdHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDlJfZ2V0U3RhdHVzS2V5AQUBaQUJc3RhdHVzU3RyBQNuaWwBaQERTHVja3lXaGVlbF9jb21taXQAAwkBASEBCQELaXNQYXltZW50T2sCBQFpAAEJAAIBAh1Xcm9uZyBwYXltZW50IGFtb3VudCBvciBhc3NldAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDExXX2dldEJldEtleQEFAWkJAGQCBQZoZWlnaHQAAQkAzAgCCQELRGVsZXRlRW50cnkBCQEVTFdfZ2V0UmFuZG9tTnVtYmVyS2V5AQUBaQkAzAgCCQELRGVsZXRlRW50cnkBCQEMTFdfZ2V0V29uS2V5AQUBaQkAzAgCCQELU3RyaW5nRW50cnkCCQEPTFdfZ2V0U3RhdHVzS2V5AQUBaQIQfCBzdGF0dXM6IGNvbW1pdAUDbmlsAWkBEUx1Y2t5V2hlZWxfcmV2ZWFsAAQMY29tbWl0SGVpZ2h0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAQxMV19nZXRCZXRLZXkBBQFpAg1CZXQgbm90IGZvdW5kAwkAZgIFDGNvbW1pdEhlaWdodAUGaGVpZ2h0CQACAQkArAICCQCsAgICBVdhaXQgCQCkAwEJAGUCBQxjb21taXRIZWlnaHQFBmhlaWdodAIZIGJsb2NrcyB0byByZXZlYWwgdGhpcyBpZAQLcmV2ZWFsQmxvY2sJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7QcBBQxjb21taXRIZWlnaHQCEXVuZXhjcGVjdGVkIGVycm9yBAN2cmYJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFC3JldmVhbEJsb2NrA3ZyZgIRdW5leGNwZWN0ZWQgZXJyb3IECnJhbmRvbUhhc2gJAPcDAQkBBXZhbHVlAQUDdnJmBAxyZXZlYWxCbG9jazIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7QcBCQBlAgUMY29tbWl0SGVpZ2h0AAECEXVuZXhjcGVjdGVkIGVycm9yBAR2cmYyCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQtyZXZlYWxCbG9jawN2cmYCEXVuZXhjcGVjdGVkIGVycm9yBAtyYW5kb21IYXNoMgkA9wMBCQEFdmFsdWUBBQN2cmYEBnJhbmRvbQkAZAIJALIJAgUKcmFuZG9tSGFzaAAQCQBpAgkAsgkCBQpyYW5kb21IYXNoAAoJALIJAgUKcmFuZG9tSGFzaAAFBAxyYW5kb21OdW1iZXIJAGoCBQZyYW5kb20ADAQNd2lubmluZ0Ftb3VudAkBDkxXX3doYXRVc2VyV29uAQUMcmFuZG9tTnVtYmVyBAlzdGF0dXNTdHIJAKwCAgkArAICCQCsAgIJAKwCAgIifCBzdGF0dXM6IHJldmVhbCB8IHdpbm5pbmdBbW91bnQ6IAkApAMBBQ13aW5uaW5nQW1vdW50AhQgfCBzZWxlY3RlZE51bWJlcnM6IAIRIHwgcmFuZG9tTnVtYmVyOiAJAKQDAQUMcmFuZG9tTnVtYmVyAwkAZgIFDXdpbm5pbmdBbW91bnQAAAkAzAgCCQELRGVsZXRlRW50cnkBCQEMTFdfZ2V0QmV0S2V5AQUBaQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDXdpbm5pbmdBbW91bnQFBHVuaXQJAMwIAgkBDEludGVnZXJFbnRyeQIJAQxMV19nZXRXb25LZXkBBQFpBQ13aW5uaW5nQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVTFdfZ2V0UmFuZG9tTnVtYmVyS2V5AQUBaQUMcmFuZG9tTnVtYmVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ9MV19nZXRTdGF0dXNLZXkBBQFpBQlzdGF0dXNTdHIFA25pbAkAzAgCCQELRGVsZXRlRW50cnkBCQEMTFdfZ2V0QmV0S2V5AQUBaQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDExXX2dldFdvbktleQEFAWkFDXdpbm5pbmdBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJARVMV19nZXRSYW5kb21OdW1iZXJLZXkBBQFpBQxyYW5kb21OdW1iZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBD0xXX2dldFN0YXR1c0tleQEFAWkFCXN0YXR1c1N0cgUDbmlsAEICmig=",
    "height": 2618035,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: CXZThn2iZnGdNpoetPcG9fJDQsCVwLTHyaE9euVyL3G8
Next: J9m7TxDsVgZKmPJftjEazZ2vWz2sntuFQUxAQwEdVR9c

Diff: 
Old New Differences
193 193      let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
194 194      let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
195 195      let randomHash = sha256(value(vrf))
196 -     let randomNumber = (toInt(randomHash, 16) % 37)
196 +     let randomNumber = (toInt(toBigInt(randomHash)) % 37)
197 197      throw(toString(randomNumber))
198 198      }
199 199  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  func numToWaves (num) = (num * 100000000)
5 5  
6 6  
7 7  func isPaymentOk (i,sum) = {
8 8      let acceptableAssetId = base58'WAVES'
9 9      let p = i.payments[0]
10 10      if ((p.amount >= numToWaves(sum)))
11 11          then (p.assetId == unit)
12 12          else false
13 13      }
14 14  
15 15  
16 16  func mapIntToStr (accum,next) = toString(next) :: accum
17 17  
18 18  
19 19  func mapStrToInt (accum,next) = parseIntValue(next) :: accum
20 20  
21 21  
22 22  func mapIntToSum (accum,next) = (accum + next)
23 23  
24 24  
25 25  func listIntToSum (arr) = {
26 26      let $l = arr
27 27      let $s = size($l)
28 28      let $acc0 = 0
29 29      func $f0_1 ($a,$i) =     if (($i >= $s))
30 30          then $a
31 31          else mapIntToSum($a, $l[$i])
32 32  
33 33      func $f0_2 ($a,$i) =     if (($i >= $s))
34 34          then $a
35 35          else throw("List size exceeds 50")
36 36  
37 37      $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($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)
38 38      }
39 39  
40 40  
41 41  func listIntToListString (arr) = {
42 42      let $l = arr
43 43      let $s = size($l)
44 44      let $acc0 = nil
45 45      func $f0_1 ($a,$i) =     if (($i >= $s))
46 46          then $a
47 47          else mapIntToStr($a, $l[$i])
48 48  
49 49      func $f0_2 ($a,$i) =     if (($i >= $s))
50 50          then $a
51 51          else throw("List size exceeds 50")
52 52  
53 53      $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($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)
54 54      }
55 55  
56 56  
57 57  func listStringToListIng (arr) = {
58 58      let $l = arr
59 59      let $s = size($l)
60 60      let $acc0 = nil
61 61      func $f0_1 ($a,$i) =     if (($i >= $s))
62 62          then $a
63 63          else mapStrToInt($a, $l[$i])
64 64  
65 65      func $f0_2 ($a,$i) =     if (($i >= $s))
66 66          then $a
67 67          else throw("List size exceeds 50")
68 68  
69 69      $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($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)
70 70      }
71 71  
72 72  
73 73  func listStringCompressToString (arr) = makeString(arr, "|")
74 74  
75 75  
76 76  func stringDecompressToListString (str) = split(str, "|")
77 77  
78 78  
79 79  func listIntCompressToString (arr) = makeString(listIntToListString(arr), "|")
80 80  
81 81  
82 82  func stringDecompressToListInt (arrStr) = listStringToListIng(split(arrStr, "|"))
83 83  
84 84  
85 85  func getRandom (commitHeight) = {
86 86      let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
87 87      let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
88 88      let randomHash = sha256(value(vrf))
89 89      let hash = toInt(randomHash, 16)
90 90      (hash % 37)
91 91      }
92 92  
93 93  
94 94  func R_WinCalculator (randomNumber,betAmount,selectedNumberBets,betDirection) = {
95 95      let RED_SECTORS = [32, 19, 21, 25, 34, 27, 36, 30, 23, 5, 16, 1, 14, 9, 18, 7, 12, 3]
96 96      if (if ((size(selectedNumberBets) == 1))
97 97          then (betDirection == "num")
98 98          else false)
99 99          then if ((selectedNumberBets[0] == randomNumber))
100 100              then (betAmount * 36)
101 101              else 0
102 102          else if ((size(selectedNumberBets) == 2))
103 103              then if (containsElement(selectedNumberBets, randomNumber))
104 104                  then (betAmount * 18)
105 105                  else 0
106 106              else if ((size(selectedNumberBets) == 3))
107 107                  then if (containsElement(selectedNumberBets, randomNumber))
108 108                      then (betAmount * 12)
109 109                      else 0
110 110                  else if ((size(selectedNumberBets) == 4))
111 111                      then if (containsElement(selectedNumberBets, randomNumber))
112 112                          then (betAmount * 9)
113 113                          else 0
114 114                      else if ((size(selectedNumberBets) == 12))
115 115                          then if (containsElement(selectedNumberBets, randomNumber))
116 116                              then (betAmount * 3)
117 117                              else 0
118 118                          else if ((betDirection == "red"))
119 119                              then if (containsElement(RED_SECTORS, randomNumber))
120 120                                  then (betAmount * 2)
121 121                                  else 0
122 122                              else if ((betDirection == "black"))
123 123                                  then if (if (!(containsElement(RED_SECTORS, randomNumber)))
124 124                                      then (randomNumber != 0)
125 125                                      else false)
126 126                                      then (betAmount * 2)
127 127                                      else 0
128 128                                  else if ((betDirection == "odd"))
129 129                                      then if (((randomNumber % 2) != 0))
130 130                                          then (betAmount * 2)
131 131                                          else 0
132 132                                      else if ((betDirection == "even"))
133 133                                          then if (((randomNumber % 2) == 0))
134 134                                              then (betAmount * 2)
135 135                                              else 0
136 136                                          else if ((size(selectedNumberBets) == 18))
137 137                                              then if (containsElement(selectedNumberBets, randomNumber))
138 138                                                  then (betAmount * 2)
139 139                                                  else 0
140 140                                              else 0
141 141      }
142 142  
143 143  
144 144  func R_getBetKey (i) = ("bet_Roulette_" + toString(i.caller))
145 145  
146 146  
147 147  func R_getBetAmountKey (i) = ("betAmount_Roulette_" + toString(i.caller))
148 148  
149 149  
150 150  func R_getSelectedNumbersKey (i) = ("selectedNumbers_Roulette_" + toString(i.caller))
151 151  
152 152  
153 153  func R_getDirectionKey (i) = ("direction_Roulette_" + toString(i.caller))
154 154  
155 155  
156 156  func R_getLogKey (i) = ((("log_Roulette_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
157 157  
158 158  
159 159  func R_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
160 160  
161 161  
162 162  func LW_getBetKey (i) = ("bet_LuckyWheel_" + toString(i.caller))
163 163  
164 164  
165 165  func LW_getWonKey (i) = ("won_LuckyWheel_" + toString(i.caller))
166 166  
167 167  
168 168  func LW_getRandomNumberKey (i) = ("randomNumber_LuckyWheel_" + toString(i.caller))
169 169  
170 170  
171 171  func LW_getLogKey (i) = ((("log_LuckyWheel_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
172 172  
173 173  
174 174  func LW_whatUserWon (value) = match value {
175 175      case _ => 
176 176          if ((1 == $match0))
177 177              then numToWaves(2)
178 178              else if ((3 == $match0))
179 179                  then numToWaves(1)
180 180                  else if ((7 == $match0))
181 181                      then numToWaves(6)
182 182                      else if ((9 == $match0))
183 183                          then numToWaves(1)
184 184                          else 0
185 185  }
186 186  
187 187  
188 188  func LW_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
189 189  
190 190  
191 191  @Callable(i)
192 192  func testRandomNumber (commitHeight) = {
193 193      let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
194 194      let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
195 195      let randomHash = sha256(value(vrf))
196 -     let randomNumber = (toInt(randomHash, 16) % 37)
196 +     let randomNumber = (toInt(toBigInt(randomHash)) % 37)
197 197      throw(toString(randomNumber))
198 198      }
199 199  
200 200  
201 201  
202 202  @Callable(i)
203 203  func Roulette_commit (betAmount,selectedNumberBets,betDirection) = {
204 204      let p = i.payments[0]
205 205      if (!(isPaymentOk(i, betAmount)))
206 206          then throw("Wrong payment amount or asset!")
207 207          else [IntegerEntry(R_getBetKey(i), (height + 1)), IntegerEntry(R_getBetAmountKey(i), betAmount), StringEntry(R_getSelectedNumbersKey(i), listIntCompressToString(selectedNumberBets)), StringEntry(R_getDirectionKey(i), betDirection), StringEntry(R_getStatusKey(i), ((((("| status: commit | revealBlock: " + toString((height + 1))) + " | betAmount: ") + toString(betAmount)) + " | selectedNumbers: ") + listIntCompressToString(selectedNumberBets)))]
208 208      }
209 209  
210 210  
211 211  
212 212  @Callable(i)
213 213  func Roulette_reveal () = {
214 214      let commitHeight = valueOrErrorMessage(getIntegerValue(R_getBetKey(i)), "Bet not found")
215 215      let betAmount = valueOrErrorMessage(getIntegerValue(R_getBetAmountKey(i)), "Bet amount not found")
216 216      let selectedNumbersStr = valueOrErrorMessage(getStringValue(R_getSelectedNumbersKey(i)), "Selected numbers not found")
217 217      let direction = valueOrErrorMessage(getStringValue(R_getDirectionKey(i)), "Direction not found")
218 218      let selectedNumbers = stringDecompressToListInt(selectedNumbersStr)
219 219      if ((commitHeight > height))
220 220          then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
221 221          else {
222 222              let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
223 223              let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
224 224              let randomHash = sha256(value(vrf))
225 225              let randomNumber = (toInt(randomHash, 16) % 37)
226 226              let winningAmount = numToWaves(R_WinCalculator(randomNumber, betAmount, selectedNumbers, direction))
227 227              let logStr = ((((((((("| commitHeight: " + toString(commitHeight)) + " | betAmount: ") + toString(betAmount)) + " | winningAmount: ") + toString(winningAmount)) + " | selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " | randomNumber: ") + toString(randomNumber))
228 228              let statusStr = ((((((((("| status: reveal | winningAmount: " + toString(winningAmount)) + " | selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " | randomNumber: ") + toString(randomNumber)) + " | betAmount: ") + toString(betAmount)) + " | selectedNumbers: ") + listIntCompressToString(selectedNumbers))
229 229              if ((winningAmount > 0))
230 230                  then [DeleteEntry(R_getBetKey(i)), DeleteEntry(R_getBetAmountKey(i)), DeleteEntry(R_getSelectedNumbersKey(i)), DeleteEntry(R_getDirectionKey(i)), ScriptTransfer(i.caller, winningAmount, unit), StringEntry(R_getLogKey(i), logStr), StringEntry(R_getStatusKey(i), statusStr)]
231 231                  else [DeleteEntry(R_getBetKey(i)), DeleteEntry(R_getBetAmountKey(i)), DeleteEntry(R_getSelectedNumbersKey(i)), DeleteEntry(R_getDirectionKey(i)), IntegerEntry(R_getLogKey(i), winningAmount), StringEntry(R_getLogKey(i), logStr), StringEntry(R_getStatusKey(i), statusStr)]
232 232              }
233 233      }
234 234  
235 235  
236 236  
237 237  @Callable(i)
238 238  func LuckyWheel_commit () = if (!(isPaymentOk(i, 1)))
239 239      then throw("Wrong payment amount or asset")
240 240      else [IntegerEntry(LW_getBetKey(i), (height + 1)), DeleteEntry(LW_getRandomNumberKey(i)), DeleteEntry(LW_getWonKey(i)), StringEntry(LW_getStatusKey(i), "| status: commit")]
241 241  
242 242  
243 243  
244 244  @Callable(i)
245 245  func LuckyWheel_reveal () = {
246 246      let commitHeight = valueOrErrorMessage(getIntegerValue(LW_getBetKey(i)), "Bet not found")
247 247      if ((commitHeight > height))
248 248          then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
249 249          else {
250 250              let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
251 251              let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
252 252              let randomHash = sha256(value(vrf))
253 253              let revealBlock2 = valueOrErrorMessage(blockInfoByHeight((commitHeight - 1)), "unexcpected error")
254 254              let vrf2 = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
255 255              let randomHash2 = sha256(value(vrf))
256 256              let random = (toInt(randomHash, 16) + (toInt(randomHash, 10) / toInt(randomHash, 5)))
257 257              let randomNumber = (random % 12)
258 258              let winningAmount = LW_whatUserWon(randomNumber)
259 259              let statusStr = (((("| status: reveal | winningAmount: " + toString(winningAmount)) + " | selectedNumbers: ") + " | randomNumber: ") + toString(randomNumber))
260 260              if ((winningAmount > 0))
261 261                  then [DeleteEntry(LW_getBetKey(i)), ScriptTransfer(i.caller, winningAmount, unit), IntegerEntry(LW_getWonKey(i), winningAmount), IntegerEntry(LW_getRandomNumberKey(i), randomNumber), StringEntry(LW_getStatusKey(i), statusStr)]
262 262                  else [DeleteEntry(LW_getBetKey(i)), IntegerEntry(LW_getWonKey(i), winningAmount), IntegerEntry(LW_getRandomNumberKey(i), randomNumber), StringEntry(LW_getStatusKey(i), statusStr)]
263 263              }
264 264      }
265 265  
266 266

Old	New		Differences
193	193		let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
194	194		let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
195	195		let randomHash = sha256(value(vrf))
196		-	let randomNumber = (toInt(randomHash~~, 16~~) % 37)
	196	+	let randomNumber = (toInt(toBigInt(randomHash)) % 37)
197	197		throw(toString(randomNumber))
198	198		}
199	199

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		func numToWaves (num) = (num * 100000000)
5	5
6	6
7	7		func isPaymentOk (i,sum) = {
8	8		let acceptableAssetId = base58'WAVES'
9	9		let p = i.payments[0]
10	10		if ((p.amount >= numToWaves(sum)))
11	11		then (p.assetId == unit)
12	12		else false
13	13		}
14	14
15	15
16	16		func mapIntToStr (accum,next) = toString(next) :: accum
17	17
18	18
19	19		func mapStrToInt (accum,next) = parseIntValue(next) :: accum
20	20
21	21
22	22		func mapIntToSum (accum,next) = (accum + next)
23	23
24	24
25	25		func listIntToSum (arr) = {
26	26		let $l = arr
27	27		let $s = size($l)
28	28		let $acc0 = 0
29	29		func $f0_1 ($a,$i) = if (($i >= $s))
30	30		then $a
31	31		else mapIntToSum($a, $l[$i])
32	32
33	33		func $f0_2 ($a,$i) = if (($i >= $s))
34	34		then $a
35	35		else throw("List size exceeds 50")
36	36
37	37		$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($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)
38	38		}
39	39
40	40
41	41		func listIntToListString (arr) = {
42	42		let $l = arr
43	43		let $s = size($l)
44	44		let $acc0 = nil
45	45		func $f0_1 ($a,$i) = if (($i >= $s))
46	46		then $a
47	47		else mapIntToStr($a, $l[$i])
48	48
49	49		func $f0_2 ($a,$i) = if (($i >= $s))
50	50		then $a
51	51		else throw("List size exceeds 50")
52	52
53	53		$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($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)
54	54		}
55	55
56	56
57	57		func listStringToListIng (arr) = {
58	58		let $l = arr
59	59		let $s = size($l)
60	60		let $acc0 = nil
61	61		func $f0_1 ($a,$i) = if (($i >= $s))
62	62		then $a
63	63		else mapStrToInt($a, $l[$i])
64	64
65	65		func $f0_2 ($a,$i) = if (($i >= $s))
66	66		then $a
67	67		else throw("List size exceeds 50")
68	68
69	69		$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($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)
70	70		}
71	71
72	72
73	73		func listStringCompressToString (arr) = makeString(arr, "\|")
74	74
75	75
76	76		func stringDecompressToListString (str) = split(str, "\|")
77	77
78	78
79	79		func listIntCompressToString (arr) = makeString(listIntToListString(arr), "\|")
80	80
81	81
82	82		func stringDecompressToListInt (arrStr) = listStringToListIng(split(arrStr, "\|"))
83	83
84	84
85	85		func getRandom (commitHeight) = {
86	86		let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
87	87		let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
88	88		let randomHash = sha256(value(vrf))
89	89		let hash = toInt(randomHash, 16)
90	90		(hash % 37)
91	91		}
92	92
93	93
94	94		func R_WinCalculator (randomNumber,betAmount,selectedNumberBets,betDirection) = {
95	95		let RED_SECTORS = [32, 19, 21, 25, 34, 27, 36, 30, 23, 5, 16, 1, 14, 9, 18, 7, 12, 3]
96	96		if (if ((size(selectedNumberBets) == 1))
97	97		then (betDirection == "num")
98	98		else false)
99	99		then if ((selectedNumberBets[0] == randomNumber))
100	100		then (betAmount * 36)
101	101		else 0
102	102		else if ((size(selectedNumberBets) == 2))
103	103		then if (containsElement(selectedNumberBets, randomNumber))
104	104		then (betAmount * 18)
105	105		else 0
106	106		else if ((size(selectedNumberBets) == 3))
107	107		then if (containsElement(selectedNumberBets, randomNumber))
108	108		then (betAmount * 12)
109	109		else 0
110	110		else if ((size(selectedNumberBets) == 4))
111	111		then if (containsElement(selectedNumberBets, randomNumber))
112	112		then (betAmount * 9)
113	113		else 0
114	114		else if ((size(selectedNumberBets) == 12))
115	115		then if (containsElement(selectedNumberBets, randomNumber))
116	116		then (betAmount * 3)
117	117		else 0
118	118		else if ((betDirection == "red"))
119	119		then if (containsElement(RED_SECTORS, randomNumber))
120	120		then (betAmount * 2)
121	121		else 0
122	122		else if ((betDirection == "black"))
123	123		then if (if (!(containsElement(RED_SECTORS, randomNumber)))
124	124		then (randomNumber != 0)
125	125		else false)
126	126		then (betAmount * 2)
127	127		else 0
128	128		else if ((betDirection == "odd"))
129	129		then if (((randomNumber % 2) != 0))
130	130		then (betAmount * 2)
131	131		else 0
132	132		else if ((betDirection == "even"))
133	133		then if (((randomNumber % 2) == 0))
134	134		then (betAmount * 2)
135	135		else 0
136	136		else if ((size(selectedNumberBets) == 18))
137	137		then if (containsElement(selectedNumberBets, randomNumber))
138	138		then (betAmount * 2)
139	139		else 0
140	140		else 0
141	141		}
142	142
143	143
144	144		func R_getBetKey (i) = ("bet_Roulette_" + toString(i.caller))
145	145
146	146
147	147		func R_getBetAmountKey (i) = ("betAmount_Roulette_" + toString(i.caller))
148	148
149	149
150	150		func R_getSelectedNumbersKey (i) = ("selectedNumbers_Roulette_" + toString(i.caller))
151	151
152	152
153	153		func R_getDirectionKey (i) = ("direction_Roulette_" + toString(i.caller))
154	154
155	155
156	156		func R_getLogKey (i) = ((("log_Roulette_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
157	157
158	158
159	159		func R_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
160	160
161	161
162	162		func LW_getBetKey (i) = ("bet_LuckyWheel_" + toString(i.caller))
163	163
164	164
165	165		func LW_getWonKey (i) = ("won_LuckyWheel_" + toString(i.caller))
166	166
167	167
168	168		func LW_getRandomNumberKey (i) = ("randomNumber_LuckyWheel_" + toString(i.caller))
169	169
170	170
171	171		func LW_getLogKey (i) = ((("log_LuckyWheel_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
172	172
173	173
174	174		func LW_whatUserWon (value) = match value {
175	175		case _ =>
176	176		if ((1 == $match0))
177	177		then numToWaves(2)
178	178		else if ((3 == $match0))
179	179		then numToWaves(1)
180	180		else if ((7 == $match0))
181	181		then numToWaves(6)
182	182		else if ((9 == $match0))
183	183		then numToWaves(1)
184	184		else 0
185	185		}
186	186
187	187
188	188		func LW_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
189	189
190	190
191	191		@Callable(i)
192	192		func testRandomNumber (commitHeight) = {
193	193		let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
194	194		let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
195	195		let randomHash = sha256(value(vrf))
196		-	let randomNumber = (toInt(randomHash~~, 16~~) % 37)
	196	+	let randomNumber = (toInt(toBigInt(randomHash)) % 37)
197	197		throw(toString(randomNumber))
198	198		}
199	199
200	200
201	201
202	202		@Callable(i)
203	203		func Roulette_commit (betAmount,selectedNumberBets,betDirection) = {
204	204		let p = i.payments[0]
205	205		if (!(isPaymentOk(i, betAmount)))
206	206		then throw("Wrong payment amount or asset!")
207	207		else [IntegerEntry(R_getBetKey(i), (height + 1)), IntegerEntry(R_getBetAmountKey(i), betAmount), StringEntry(R_getSelectedNumbersKey(i), listIntCompressToString(selectedNumberBets)), StringEntry(R_getDirectionKey(i), betDirection), StringEntry(R_getStatusKey(i), ((((("\| status: commit \| revealBlock: " + toString((height + 1))) + " \| betAmount: ") + toString(betAmount)) + " \| selectedNumbers: ") + listIntCompressToString(selectedNumberBets)))]
208	208		}
209	209
210	210
211	211
212	212		@Callable(i)
213	213		func Roulette_reveal () = {
214	214		let commitHeight = valueOrErrorMessage(getIntegerValue(R_getBetKey(i)), "Bet not found")
215	215		let betAmount = valueOrErrorMessage(getIntegerValue(R_getBetAmountKey(i)), "Bet amount not found")
216	216		let selectedNumbersStr = valueOrErrorMessage(getStringValue(R_getSelectedNumbersKey(i)), "Selected numbers not found")
217	217		let direction = valueOrErrorMessage(getStringValue(R_getDirectionKey(i)), "Direction not found")
218	218		let selectedNumbers = stringDecompressToListInt(selectedNumbersStr)
219	219		if ((commitHeight > height))
220	220		then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
221	221		else {
222	222		let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
223	223		let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
224	224		let randomHash = sha256(value(vrf))
225	225		let randomNumber = (toInt(randomHash, 16) % 37)
226	226		let winningAmount = numToWaves(R_WinCalculator(randomNumber, betAmount, selectedNumbers, direction))
227	227		let logStr = ((((((((("\| commitHeight: " + toString(commitHeight)) + " \| betAmount: ") + toString(betAmount)) + " \| winningAmount: ") + toString(winningAmount)) + " \| selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " \| randomNumber: ") + toString(randomNumber))
228	228		let statusStr = ((((((((("\| status: reveal \| winningAmount: " + toString(winningAmount)) + " \| selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " \| randomNumber: ") + toString(randomNumber)) + " \| betAmount: ") + toString(betAmount)) + " \| selectedNumbers: ") + listIntCompressToString(selectedNumbers))
229	229		if ((winningAmount > 0))
230	230		then [DeleteEntry(R_getBetKey(i)), DeleteEntry(R_getBetAmountKey(i)), DeleteEntry(R_getSelectedNumbersKey(i)), DeleteEntry(R_getDirectionKey(i)), ScriptTransfer(i.caller, winningAmount, unit), StringEntry(R_getLogKey(i), logStr), StringEntry(R_getStatusKey(i), statusStr)]
231	231		else [DeleteEntry(R_getBetKey(i)), DeleteEntry(R_getBetAmountKey(i)), DeleteEntry(R_getSelectedNumbersKey(i)), DeleteEntry(R_getDirectionKey(i)), IntegerEntry(R_getLogKey(i), winningAmount), StringEntry(R_getLogKey(i), logStr), StringEntry(R_getStatusKey(i), statusStr)]
232	232		}
233	233		}
234	234
235	235
236	236
237	237		@Callable(i)
238	238		func LuckyWheel_commit () = if (!(isPaymentOk(i, 1)))
239	239		then throw("Wrong payment amount or asset")
240	240		else [IntegerEntry(LW_getBetKey(i), (height + 1)), DeleteEntry(LW_getRandomNumberKey(i)), DeleteEntry(LW_getWonKey(i)), StringEntry(LW_getStatusKey(i), "\| status: commit")]
241	241
242	242
243	243
244	244		@Callable(i)
245	245		func LuckyWheel_reveal () = {
246	246		let commitHeight = valueOrErrorMessage(getIntegerValue(LW_getBetKey(i)), "Bet not found")
247	247		if ((commitHeight > height))
248	248		then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
249	249		else {
250	250		let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
251	251		let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
252	252		let randomHash = sha256(value(vrf))
253	253		let revealBlock2 = valueOrErrorMessage(blockInfoByHeight((commitHeight - 1)), "unexcpected error")
254	254		let vrf2 = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
255	255		let randomHash2 = sha256(value(vrf))
256	256		let random = (toInt(randomHash, 16) + (toInt(randomHash, 10) / toInt(randomHash, 5)))
257	257		let randomNumber = (random % 12)
258	258		let winningAmount = LW_whatUserWon(randomNumber)
259	259		let statusStr = (((("\| status: reveal \| winningAmount: " + toString(winningAmount)) + " \| selectedNumbers: ") + " \| randomNumber: ") + toString(randomNumber))
260	260		if ((winningAmount > 0))
261	261		then [DeleteEntry(LW_getBetKey(i)), ScriptTransfer(i.caller, winningAmount, unit), IntegerEntry(LW_getWonKey(i), winningAmount), IntegerEntry(LW_getRandomNumberKey(i), randomNumber), StringEntry(LW_getStatusKey(i), statusStr)]
262	262		else [DeleteEntry(LW_getBetKey(i)), IntegerEntry(LW_getWonKey(i), winningAmount), IntegerEntry(LW_getRandomNumberKey(i), randomNumber), StringEntry(LW_getStatusKey(i), statusStr)]
263	263		}
264	264		}
265	265
266	266

github/deemru/w8io/026f985 
44.45 ms ◑