w8 · tx · 75P···Ahp

tx · 75PMKGkTrFUZegXfS4CxqpTa8NupMk3KYbQFteia4Ahp

3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX:  -0.01000000 Waves

2023.06.12 13:52 [2619354] smart account 3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "75PMKGkTrFUZegXfS4CxqpTa8NupMk3KYbQFteia4Ahp",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1686567126283,
    "version": 2,
    "chainId": 84,
    "sender": "3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX",
    "senderPublicKey": "5iiNX4Sz3qZzcerumQLc1y7u9TH2X46jDV4f9Xivtmtv",
    "proofs": [
        "pbejz6LaFdCXxdtULvR6ucBPdTxpFga61tDBGL3UB7mkZLhghZoESnVyD2bAR5UNgpY8qGq7kLEqgEAFC7EihKP"
    ],
    "script": "base64:BgIPCAISBQoDAREIEgASABIAGwEKbnVtVG9XYXZlcwEDbnVtCQBoAgUDbnVtAIDC1y8BC2lzUGF5bWVudE9rAgFpA3N1bQQRYWNjZXB0YWJsZUFzc2V0SWQBBBOr2TMEAXAJAJEDAggFAWkIcGF5bWVudHMAAAMJAGcCCAUBcAZhbW91bnQJAQpudW1Ub1dhdmVzAQUDc3VtCQAAAggFAXAHYXNzZXRJZAUEdW5pdAcBC21hcEludFRvU3RyAgVhY2N1bQRuZXh0CQDMCAIJAKQDAQUEbmV4dAUFYWNjdW0BC21hcFN0clRvSW50AgVhY2N1bQRuZXh0CQDMCAIJAQ1wYXJzZUludFZhbHVlAQUEbmV4dAUFYWNjdW0BC21hcEludFRvU3VtAgVhY2N1bQRuZXh0CQBkAgUFYWNjdW0FBG5leHQBDGxpc3RJbnRUb1N1bQEDYXJyCgACJGwFA2FycgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQELbWFwSW50VG9TdW0CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgETbGlzdEludFRvTGlzdFN0cmluZwEDYXJyCgACJGwFA2FycgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQELbWFwSW50VG9TdHICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgETbGlzdFN0cmluZ1RvTGlzdEluZwEDYXJyCgACJGwFA2FycgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQELbWFwU3RyVG9JbnQCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgEabGlzdFN0cmluZ0NvbXByZXNzVG9TdHJpbmcBA2FycgkAuQkCBQNhcnICAXwBHHN0cmluZ0RlY29tcHJlc3NUb0xpc3RTdHJpbmcBA3N0cgkAtQkCBQNzdHICAXwBF2xpc3RJbnRDb21wcmVzc1RvU3RyaW5nAQNhcnIJALkJAgkBE2xpc3RJbnRUb0xpc3RTdHJpbmcBBQNhcnICAXwBGXN0cmluZ0RlY29tcHJlc3NUb0xpc3RJbnQBBmFyclN0cgkBE2xpc3RTdHJpbmdUb0xpc3RJbmcBCQC1CQIFBmFyclN0cgIBfAEJZ2V0UmFuZG9tAQxjb21taXRIZWlnaHQEC3JldmVhbEJsb2NrCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAO0HAQUMY29tbWl0SGVpZ2h0AhF1bmV4Y3BlY3RlZCBlcnJvcgQDdnJmCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQtyZXZlYWxCbG9jawN2cmYCEXVuZXhjcGVjdGVkIGVycm9yBApyYW5kb21IYXNoCQD3AwEJAQV2YWx1ZQEFA3ZyZgQEaGFzaAkAsgkCBQpyYW5kb21IYXNoABAJAGoCBQRoYXNoACUBD2dldFJhbmRvbVJ1bGxldAEMY29tbWl0SGVpZ2h0BApyYW5kb21IYXNoCQD3AwEJAMsBAgkBBXZhbHVlAQgJAQV2YWx1ZQEJAO0HAQUMY29tbWl0SGVpZ2h0A3ZyZgkAmgMBCQBlAgUMY29tbWl0SGVpZ2h0AAEEB2hhc2hJbnQJALIJAgUKcmFuZG9tSGFzaAAYCQBqAgUHaGFzaEludAAlAQ9SX1dpbkNhbGN1bGF0b3IEDHJhbmRvbU51bWJlcgliZXRBbW91bnQSc2VsZWN0ZWROdW1iZXJCZXRzDGJldERpcmVjdGlvbgQLUkVEX1NFQ1RPUlMJAMwIAgAgCQDMCAIAEwkAzAgCABUJAMwIAgAZCQDMCAIAIgkAzAgCABsJAMwIAgAkCQDMCAIAHgkAzAgCABcJAMwIAgAFCQDMCAIAEAkAzAgCAAEJAMwIAgAOCQDMCAIACQkAzAgCABIJAMwIAgAHCQDMCAIADAkAzAgCAAMFA25pbAMDCQAAAgkAkAMBBRJzZWxlY3RlZE51bWJlckJldHMAAQkAAAIFDGJldERpcmVjdGlvbgIDbnVtBwMJAAACCQCRAwIFEnNlbGVjdGVkTnVtYmVyQmV0cwAABQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAJAAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAIDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAEgAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAMDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQADAAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAQDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQACQAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAwDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAAwAAAwkAAAIFDGJldERpcmVjdGlvbgIDcmVkAwkBD2NvbnRhaW5zRWxlbWVudAIFC1JFRF9TRUNUT1JTBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAAgAAAwkAAAIFDGJldERpcmVjdGlvbgIFYmxhY2sDAwkBASEBCQEPY29udGFpbnNFbGVtZW50AgULUkVEX1NFQ1RPUlMFDHJhbmRvbU51bWJlcgkBAiE9AgUMcmFuZG9tTnVtYmVyAAAHCQBoAgUJYmV0QW1vdW50AAIAAAMJAAACBQxiZXREaXJlY3Rpb24CA29kZAMJAQIhPQIJAGoCBQxyYW5kb21OdW1iZXIAAgAACQBoAgUJYmV0QW1vdW50AAIAAAMJAAACBQxiZXREaXJlY3Rpb24CBGV2ZW4DCQAAAgkAagIFDHJhbmRvbU51bWJlcgACAAAJAGgCBQliZXRBbW91bnQAAgAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzABIDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAAgAAAAABC1JfZ2V0QmV0S2V5AQFpCQCsAgICDWJldF9Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyARFSX2dldEJldEFtb3VudEtleQEBaQkArAICAhNiZXRBbW91bnRfUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgEXUl9nZXRTZWxlY3RlZE51bWJlcnNLZXkBAWkJAKwCAgIZc2VsZWN0ZWROdW1iZXJzX1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXIBEVJfZ2V0RGlyZWN0aW9uS2V5AQFpCQCsAgICE2RpcmVjdGlvbl9Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyAQtSX2dldExvZ0tleQEBaQkArAICCQCsAgIJAKwCAgINbG9nX1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXICAV8JANgEAQgFAWkNdHJhbnNhY3Rpb25JZAEOUl9nZXRTdGF0dXNLZXkBAWkJAKwCAgIQc3RhdHVzX1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXIBDExXX2dldEJldEtleQEBaQkArAICAg9iZXRfTHVja3lXaGVlbF8JAKUIAQgFAWkGY2FsbGVyAQxMV19nZXRXb25LZXkBAWkJAKwCAgIPd29uX0x1Y2t5V2hlZWxfCQClCAEIBQFpBmNhbGxlcgEVTFdfZ2V0UmFuZG9tTnVtYmVyS2V5AQFpCQCsAgICGHJhbmRvbU51bWJlcl9MdWNreVdoZWVsXwkApQgBCAUBaQZjYWxsZXIBDExXX2dldExvZ0tleQEBaQkArAICCQCsAgIJAKwCAgIPbG9nX0x1Y2t5V2hlZWxfCQClCAEIBQFpBmNhbGxlcgIBXwkA2AQBCAUBaQ10cmFuc2FjdGlvbklkAQ5MV193aGF0VXNlcldvbgEFdmFsdWUEByRtYXRjaDAFBXZhbHVlAwkAAAIAAQUHJG1hdGNoMAkBCm51bVRvV2F2ZXMBAAIDCQAAAgADBQckbWF0Y2gwCQEKbnVtVG9XYXZlcwEAAQMJAAACAAcFByRtYXRjaDAJAQpudW1Ub1dhdmVzAQAGAwkAAAIACQUHJG1hdGNoMAkBCm51bVRvV2F2ZXMBAAEAAAEPTFdfZ2V0U3RhdHVzS2V5AQFpCQCsAgICEHN0YXR1c19Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyBAFpAQ9Sb3VsZXR0ZV9jb21taXQDCWJldEFtb3VudBJzZWxlY3RlZE51bWJlckJldHMMYmV0RGlyZWN0aW9uBAFwCQCRAwIIBQFpCHBheW1lbnRzAAADCQEBIQEJAQtpc1BheW1lbnRPawIFAWkFCWJldEFtb3VudAkAAgECHldyb25nIHBheW1lbnQgYW1vdW50IG9yIGFzc2V0IQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBC1JfZ2V0QmV0S2V5AQUBaQkAZAIFBmhlaWdodAABCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQERUl9nZXRCZXRBbW91bnRLZXkBBQFpBQliZXRBbW91bnQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBF1JfZ2V0U2VsZWN0ZWROdW1iZXJzS2V5AQUBaQkBF2xpc3RJbnRDb21wcmVzc1RvU3RyaW5nAQUSc2VsZWN0ZWROdW1iZXJCZXRzCQDMCAIJAQtTdHJpbmdFbnRyeQIJARFSX2dldERpcmVjdGlvbktleQEFAWkFDGJldERpcmVjdGlvbgkAzAgCCQELU3RyaW5nRW50cnkCCQEOUl9nZXRTdGF0dXNLZXkBBQFpCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIgfCBzdGF0dXM6IGNvbW1pdCB8IHJldmVhbEJsb2NrOiAJAKQDAQkAZAIFBmhlaWdodAABAg4gfCBiZXRBbW91bnQ6IAkApAMBBQliZXRBbW91bnQCFCB8IHNlbGVjdGVkTnVtYmVyczogCQEXbGlzdEludENvbXByZXNzVG9TdHJpbmcBBRJzZWxlY3RlZE51bWJlckJldHMFA25pbAFpAQ9Sb3VsZXR0ZV9yZXZlYWwABAxjb21taXRIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBEUBleHRyTmF0aXZlKDEwNTUpAQkBC1JfZ2V0QmV0S2V5AQUBaQINQmV0IG5vdCBmb3VuZAQJYmV0QW1vdW50CQETdmFsdWVPckVycm9yTWVzc2FnZQIJARFAZXh0ck5hdGl2ZSgxMDU1KQEJARFSX2dldEJldEFtb3VudEtleQEFAWkCFEJldCBhbW91bnQgbm90IGZvdW5kBBJzZWxlY3RlZE51bWJlcnNTdHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBEUBleHRyTmF0aXZlKDEwNTgpAQkBF1JfZ2V0U2VsZWN0ZWROdW1iZXJzS2V5AQUBaQIaU2VsZWN0ZWQgbnVtYmVycyBub3QgZm91bmQECWRpcmVjdGlvbgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQERQGV4dHJOYXRpdmUoMTA1OCkBCQERUl9nZXREaXJlY3Rpb25LZXkBBQFpAhNEaXJlY3Rpb24gbm90IGZvdW5kBA9zZWxlY3RlZE51bWJlcnMJARlzdHJpbmdEZWNvbXByZXNzVG9MaXN0SW50AQUSc2VsZWN0ZWROdW1iZXJzU3RyAwkAZgIFDGNvbW1pdEhlaWdodAUGaGVpZ2h0CQACAQkArAICCQCsAgICBVdhaXQgCQCkAwEJAGUCBQxjb21taXRIZWlnaHQFBmhlaWdodAIZIGJsb2NrcyB0byByZXZlYWwgdGhpcyBpZAQMcmFuZG9tTnVtYmVyCQEPZ2V0UmFuZG9tUnVsbGV0AQUMY29tbWl0SGVpZ2h0BA13aW5uaW5nQW1vdW50CQEKbnVtVG9XYXZlcwEJAQ9SX1dpbkNhbGN1bGF0b3IEBQxyYW5kb21OdW1iZXIFCWJldEFtb3VudAUPc2VsZWN0ZWROdW1iZXJzBQlkaXJlY3Rpb24EBmxvZ1N0cgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIQfCBjb21taXRIZWlnaHQ6IAkApAMBBQxjb21taXRIZWlnaHQCDiB8IGJldEFtb3VudDogCQCkAwEFCWJldEFtb3VudAISIHwgd2lubmluZ0Ftb3VudDogCQCkAwEFDXdpbm5pbmdBbW91bnQCFCB8IHNlbGVjdGVkTnVtYmVyczogCQEXbGlzdEludENvbXByZXNzVG9TdHJpbmcBBQ9zZWxlY3RlZE51bWJlcnMCESB8IHJhbmRvbU51bWJlcjogCQCkAwEFDHJhbmRvbU51bWJlcgQJc3RhdHVzU3RyCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAiJ8IHN0YXR1czogcmV2ZWFsIHwgd2lubmluZ0Ftb3VudDogCQCkAwEFDXdpbm5pbmdBbW91bnQCFCB8IHNlbGVjdGVkTnVtYmVyczogCQEXbGlzdEludENvbXByZXNzVG9TdHJpbmcBBQ9zZWxlY3RlZE51bWJlcnMCESB8IHJhbmRvbU51bWJlcjogCQCkAwEFDHJhbmRvbU51bWJlcgIOIHwgYmV0QW1vdW50OiAJAKQDAQUJYmV0QW1vdW50AhQgfCBzZWxlY3RlZE51bWJlcnM6IAkBF2xpc3RJbnRDb21wcmVzc1RvU3RyaW5nAQUPc2VsZWN0ZWROdW1iZXJzAwkAZgIFDXdpbm5pbmdBbW91bnQAAAkAzAgCCQELRGVsZXRlRW50cnkBCQELUl9nZXRCZXRLZXkBBQFpCQDMCAIJAQtEZWxldGVFbnRyeQEJARFSX2dldEJldEFtb3VudEtleQEFAWkJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBF1JfZ2V0U2VsZWN0ZWROdW1iZXJzS2V5AQUBaQkAzAgCCQELRGVsZXRlRW50cnkBCQERUl9nZXREaXJlY3Rpb25LZXkBBQFpCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUNd2lubmluZ0Ftb3VudAUEdW5pdAkAzAgCCQELU3RyaW5nRW50cnkCCQELUl9nZXRMb2dLZXkBBQFpBQZsb2dTdHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDlJfZ2V0U3RhdHVzS2V5AQUBaQUJc3RhdHVzU3RyBQNuaWwJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBC1JfZ2V0QmV0S2V5AQUBaQkAzAgCCQELRGVsZXRlRW50cnkBCQERUl9nZXRCZXRBbW91bnRLZXkBBQFpCQDMCAIJAQtEZWxldGVFbnRyeQEJARdSX2dldFNlbGVjdGVkTnVtYmVyc0tleQEFAWkJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBEVJfZ2V0RGlyZWN0aW9uS2V5AQUBaQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBC1JfZ2V0TG9nS2V5AQUBaQUNd2lubmluZ0Ftb3VudAkAzAgCCQELU3RyaW5nRW50cnkCCQELUl9nZXRMb2dLZXkBBQFpBQZsb2dTdHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDlJfZ2V0U3RhdHVzS2V5AQUBaQUJc3RhdHVzU3RyBQNuaWwBaQERTHVja3lXaGVlbF9jb21taXQAAwkBASEBCQELaXNQYXltZW50T2sCBQFpAAEJAAIBAh1Xcm9uZyBwYXltZW50IGFtb3VudCBvciBhc3NldAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDExXX2dldEJldEtleQEFAWkJAGQCBQZoZWlnaHQAAQkAzAgCCQELRGVsZXRlRW50cnkBCQEVTFdfZ2V0UmFuZG9tTnVtYmVyS2V5AQUBaQkAzAgCCQELRGVsZXRlRW50cnkBCQEMTFdfZ2V0V29uS2V5AQUBaQkAzAgCCQELU3RyaW5nRW50cnkCCQEPTFdfZ2V0U3RhdHVzS2V5AQUBaQIQfCBzdGF0dXM6IGNvbW1pdAUDbmlsAWkBEUx1Y2t5V2hlZWxfcmV2ZWFsAAQMY29tbWl0SGVpZ2h0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAQxMV19nZXRCZXRLZXkBBQFpAg1CZXQgbm90IGZvdW5kAwkAZgIFDGNvbW1pdEhlaWdodAUGaGVpZ2h0CQACAQkArAICCQCsAgICBVdhaXQgCQCkAwEJAGUCBQxjb21taXRIZWlnaHQFBmhlaWdodAIZIGJsb2NrcyB0byByZXZlYWwgdGhpcyBpZAQLcmV2ZWFsQmxvY2sJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7QcBBQxjb21taXRIZWlnaHQCEXVuZXhjcGVjdGVkIGVycm9yBAN2cmYJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFC3JldmVhbEJsb2NrA3ZyZgIRdW5leGNwZWN0ZWQgZXJyb3IECnJhbmRvbUhhc2gJAPcDAQkBBXZhbHVlAQUDdnJmBAxyZXZlYWxCbG9jazIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7QcBCQBlAgUMY29tbWl0SGVpZ2h0AAECEXVuZXhjcGVjdGVkIGVycm9yBAR2cmYyCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQtyZXZlYWxCbG9jawN2cmYCEXVuZXhjcGVjdGVkIGVycm9yBAtyYW5kb21IYXNoMgkA9wMBCQEFdmFsdWUBBQN2cmYEBnJhbmRvbQkAZAIJALIJAgUKcmFuZG9tSGFzaAAQCQBpAgkAsgkCBQpyYW5kb21IYXNoAAoJALIJAgUKcmFuZG9tSGFzaAAFBAxyYW5kb21OdW1iZXIJAGoCBQZyYW5kb20ADAQNd2lubmluZ0Ftb3VudAkBDkxXX3doYXRVc2VyV29uAQUMcmFuZG9tTnVtYmVyBAlzdGF0dXNTdHIJAKwCAgkArAICCQCsAgIJAKwCAgIifCBzdGF0dXM6IHJldmVhbCB8IHdpbm5pbmdBbW91bnQ6IAkApAMBBQ13aW5uaW5nQW1vdW50AhQgfCBzZWxlY3RlZE51bWJlcnM6IAIRIHwgcmFuZG9tTnVtYmVyOiAJAKQDAQUMcmFuZG9tTnVtYmVyAwkAZgIFDXdpbm5pbmdBbW91bnQAAAkAzAgCCQELRGVsZXRlRW50cnkBCQEMTFdfZ2V0QmV0S2V5AQUBaQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDXdpbm5pbmdBbW91bnQFBHVuaXQJAMwIAgkBDEludGVnZXJFbnRyeQIJAQxMV19nZXRXb25LZXkBBQFpBQ13aW5uaW5nQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVTFdfZ2V0UmFuZG9tTnVtYmVyS2V5AQUBaQUMcmFuZG9tTnVtYmVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ9MV19nZXRTdGF0dXNLZXkBBQFpBQlzdGF0dXNTdHIFA25pbAkAzAgCCQELRGVsZXRlRW50cnkBCQEMTFdfZ2V0QmV0S2V5AQUBaQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDExXX2dldFdvbktleQEFAWkFDXdpbm5pbmdBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJARVMV19nZXRSYW5kb21OdW1iZXJLZXkBBQFpBQxyYW5kb21OdW1iZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBD0xXX2dldFN0YXR1c0tleQEFAWkFCXN0YXR1c1N0cgUDbmlsAJonGt0=",
    "height": 2619354,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 25XcSrCBbz2ZPihX2CZDmrsyTnbSWDdWWp423MJAtuWw
Next: 2UEwmTdXNLCGse5FSx7pqeS7wUobiR8vNeA2rpBJnWbZ

Diff: 
Old New Differences
215 215      if ((commitHeight > height))
216 216          then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
217 217          else {
218 -             let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
219 -             let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
220 218              let randomNumber = getRandomRullet(commitHeight)
221 219              let winningAmount = numToWaves(R_WinCalculator(randomNumber, betAmount, selectedNumbers, direction))
222 220              let logStr = ((((((((("| commitHeight: " + toString(commitHeight)) + " | betAmount: ") + toString(betAmount)) + " | winningAmount: ") + toString(winningAmount)) + " | selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " | randomNumber: ") + toString(randomNumber))
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 getRandomRullet (commitHeight) = {
95 95      let randomHash = sha256((value(value(blockInfoByHeight(commitHeight)).vrf) + toBytes((commitHeight - 1))))
96 96      let hashInt = toInt(randomHash, 24)
97 97      (hashInt % 37)
98 98      }
99 99  
100 100  
101 101  func R_WinCalculator (randomNumber,betAmount,selectedNumberBets,betDirection) = {
102 102      let RED_SECTORS = [32, 19, 21, 25, 34, 27, 36, 30, 23, 5, 16, 1, 14, 9, 18, 7, 12, 3]
103 103      if (if ((size(selectedNumberBets) == 1))
104 104          then (betDirection == "num")
105 105          else false)
106 106          then if ((selectedNumberBets[0] == randomNumber))
107 107              then (betAmount * 36)
108 108              else 0
109 109          else if ((size(selectedNumberBets) == 2))
110 110              then if (containsElement(selectedNumberBets, randomNumber))
111 111                  then (betAmount * 18)
112 112                  else 0
113 113              else if ((size(selectedNumberBets) == 3))
114 114                  then if (containsElement(selectedNumberBets, randomNumber))
115 115                      then (betAmount * 12)
116 116                      else 0
117 117                  else if ((size(selectedNumberBets) == 4))
118 118                      then if (containsElement(selectedNumberBets, randomNumber))
119 119                          then (betAmount * 9)
120 120                          else 0
121 121                      else if ((size(selectedNumberBets) == 12))
122 122                          then if (containsElement(selectedNumberBets, randomNumber))
123 123                              then (betAmount * 3)
124 124                              else 0
125 125                          else if ((betDirection == "red"))
126 126                              then if (containsElement(RED_SECTORS, randomNumber))
127 127                                  then (betAmount * 2)
128 128                                  else 0
129 129                              else if ((betDirection == "black"))
130 130                                  then if (if (!(containsElement(RED_SECTORS, randomNumber)))
131 131                                      then (randomNumber != 0)
132 132                                      else false)
133 133                                      then (betAmount * 2)
134 134                                      else 0
135 135                                  else if ((betDirection == "odd"))
136 136                                      then if (((randomNumber % 2) != 0))
137 137                                          then (betAmount * 2)
138 138                                          else 0
139 139                                      else if ((betDirection == "even"))
140 140                                          then if (((randomNumber % 2) == 0))
141 141                                              then (betAmount * 2)
142 142                                              else 0
143 143                                          else if ((size(selectedNumberBets) == 18))
144 144                                              then if (containsElement(selectedNumberBets, randomNumber))
145 145                                                  then (betAmount * 2)
146 146                                                  else 0
147 147                                              else 0
148 148      }
149 149  
150 150  
151 151  func R_getBetKey (i) = ("bet_Roulette_" + toString(i.caller))
152 152  
153 153  
154 154  func R_getBetAmountKey (i) = ("betAmount_Roulette_" + toString(i.caller))
155 155  
156 156  
157 157  func R_getSelectedNumbersKey (i) = ("selectedNumbers_Roulette_" + toString(i.caller))
158 158  
159 159  
160 160  func R_getDirectionKey (i) = ("direction_Roulette_" + toString(i.caller))
161 161  
162 162  
163 163  func R_getLogKey (i) = ((("log_Roulette_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
164 164  
165 165  
166 166  func R_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
167 167  
168 168  
169 169  func LW_getBetKey (i) = ("bet_LuckyWheel_" + toString(i.caller))
170 170  
171 171  
172 172  func LW_getWonKey (i) = ("won_LuckyWheel_" + toString(i.caller))
173 173  
174 174  
175 175  func LW_getRandomNumberKey (i) = ("randomNumber_LuckyWheel_" + toString(i.caller))
176 176  
177 177  
178 178  func LW_getLogKey (i) = ((("log_LuckyWheel_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
179 179  
180 180  
181 181  func LW_whatUserWon (value) = match value {
182 182      case _ => 
183 183          if ((1 == $match0))
184 184              then numToWaves(2)
185 185              else if ((3 == $match0))
186 186                  then numToWaves(1)
187 187                  else if ((7 == $match0))
188 188                      then numToWaves(6)
189 189                      else if ((9 == $match0))
190 190                          then numToWaves(1)
191 191                          else 0
192 192  }
193 193  
194 194  
195 195  func LW_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
196 196  
197 197  
198 198  @Callable(i)
199 199  func Roulette_commit (betAmount,selectedNumberBets,betDirection) = {
200 200      let p = i.payments[0]
201 201      if (!(isPaymentOk(i, betAmount)))
202 202          then throw("Wrong payment amount or asset!")
203 203          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)))]
204 204      }
205 205  
206 206  
207 207  
208 208  @Callable(i)
209 209  func Roulette_reveal () = {
210 210      let commitHeight = valueOrErrorMessage(getIntegerValue(R_getBetKey(i)), "Bet not found")
211 211      let betAmount = valueOrErrorMessage(getIntegerValue(R_getBetAmountKey(i)), "Bet amount not found")
212 212      let selectedNumbersStr = valueOrErrorMessage(getStringValue(R_getSelectedNumbersKey(i)), "Selected numbers not found")
213 213      let direction = valueOrErrorMessage(getStringValue(R_getDirectionKey(i)), "Direction not found")
214 214      let selectedNumbers = stringDecompressToListInt(selectedNumbersStr)
215 215      if ((commitHeight > height))
216 216          then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
217 217          else {
218 -             let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
219 -             let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
220 218              let randomNumber = getRandomRullet(commitHeight)
221 219              let winningAmount = numToWaves(R_WinCalculator(randomNumber, betAmount, selectedNumbers, direction))
222 220              let logStr = ((((((((("| commitHeight: " + toString(commitHeight)) + " | betAmount: ") + toString(betAmount)) + " | winningAmount: ") + toString(winningAmount)) + " | selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " | randomNumber: ") + toString(randomNumber))
223 221              let statusStr = ((((((((("| status: reveal | winningAmount: " + toString(winningAmount)) + " | selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " | randomNumber: ") + toString(randomNumber)) + " | betAmount: ") + toString(betAmount)) + " | selectedNumbers: ") + listIntCompressToString(selectedNumbers))
224 222              if ((winningAmount > 0))
225 223                  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)]
226 224                  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)]
227 225              }
228 226      }
229 227  
230 228  
231 229  
232 230  @Callable(i)
233 231  func LuckyWheel_commit () = if (!(isPaymentOk(i, 1)))
234 232      then throw("Wrong payment amount or asset")
235 233      else [IntegerEntry(LW_getBetKey(i), (height + 1)), DeleteEntry(LW_getRandomNumberKey(i)), DeleteEntry(LW_getWonKey(i)), StringEntry(LW_getStatusKey(i), "| status: commit")]
236 234  
237 235  
238 236  
239 237  @Callable(i)
240 238  func LuckyWheel_reveal () = {
241 239      let commitHeight = valueOrErrorMessage(getIntegerValue(LW_getBetKey(i)), "Bet not found")
242 240      if ((commitHeight > height))
243 241          then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
244 242          else {
245 243              let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
246 244              let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
247 245              let randomHash = sha256(value(vrf))
248 246              let revealBlock2 = valueOrErrorMessage(blockInfoByHeight((commitHeight - 1)), "unexcpected error")
249 247              let vrf2 = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
250 248              let randomHash2 = sha256(value(vrf))
251 249              let random = (toInt(randomHash, 16) + (toInt(randomHash, 10) / toInt(randomHash, 5)))
252 250              let randomNumber = (random % 12)
253 251              let winningAmount = LW_whatUserWon(randomNumber)
254 252              let statusStr = (((("| status: reveal | winningAmount: " + toString(winningAmount)) + " | selectedNumbers: ") + " | randomNumber: ") + toString(randomNumber))
255 253              if ((winningAmount > 0))
256 254                  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)]
257 255                  else [DeleteEntry(LW_getBetKey(i)), IntegerEntry(LW_getWonKey(i), winningAmount), IntegerEntry(LW_getRandomNumberKey(i), randomNumber), StringEntry(LW_getStatusKey(i), statusStr)]
258 256              }
259 257      }
260 258  
261 259

Old	New		Differences
215	215		if ((commitHeight > height))
216	216		then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
217	217		else {
218		-	let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
219		-	let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
220	218		let randomNumber = getRandomRullet(commitHeight)
221	219		let winningAmount = numToWaves(R_WinCalculator(randomNumber, betAmount, selectedNumbers, direction))
222	220		let logStr = ((((((((("\| commitHeight: " + toString(commitHeight)) + " \| betAmount: ") + toString(betAmount)) + " \| winningAmount: ") + toString(winningAmount)) + " \| selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " \| randomNumber: ") + toString(randomNumber))

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 getRandomRullet (commitHeight) = {
95	95		let randomHash = sha256((value(value(blockInfoByHeight(commitHeight)).vrf) + toBytes((commitHeight - 1))))
96	96		let hashInt = toInt(randomHash, 24)
97	97		(hashInt % 37)
98	98		}
99	99
100	100
101	101		func R_WinCalculator (randomNumber,betAmount,selectedNumberBets,betDirection) = {
102	102		let RED_SECTORS = [32, 19, 21, 25, 34, 27, 36, 30, 23, 5, 16, 1, 14, 9, 18, 7, 12, 3]
103	103		if (if ((size(selectedNumberBets) == 1))
104	104		then (betDirection == "num")
105	105		else false)
106	106		then if ((selectedNumberBets[0] == randomNumber))
107	107		then (betAmount * 36)
108	108		else 0
109	109		else if ((size(selectedNumberBets) == 2))
110	110		then if (containsElement(selectedNumberBets, randomNumber))
111	111		then (betAmount * 18)
112	112		else 0
113	113		else if ((size(selectedNumberBets) == 3))
114	114		then if (containsElement(selectedNumberBets, randomNumber))
115	115		then (betAmount * 12)
116	116		else 0
117	117		else if ((size(selectedNumberBets) == 4))
118	118		then if (containsElement(selectedNumberBets, randomNumber))
119	119		then (betAmount * 9)
120	120		else 0
121	121		else if ((size(selectedNumberBets) == 12))
122	122		then if (containsElement(selectedNumberBets, randomNumber))
123	123		then (betAmount * 3)
124	124		else 0
125	125		else if ((betDirection == "red"))
126	126		then if (containsElement(RED_SECTORS, randomNumber))
127	127		then (betAmount * 2)
128	128		else 0
129	129		else if ((betDirection == "black"))
130	130		then if (if (!(containsElement(RED_SECTORS, randomNumber)))
131	131		then (randomNumber != 0)
132	132		else false)
133	133		then (betAmount * 2)
134	134		else 0
135	135		else if ((betDirection == "odd"))
136	136		then if (((randomNumber % 2) != 0))
137	137		then (betAmount * 2)
138	138		else 0
139	139		else if ((betDirection == "even"))
140	140		then if (((randomNumber % 2) == 0))
141	141		then (betAmount * 2)
142	142		else 0
143	143		else if ((size(selectedNumberBets) == 18))
144	144		then if (containsElement(selectedNumberBets, randomNumber))
145	145		then (betAmount * 2)
146	146		else 0
147	147		else 0
148	148		}
149	149
150	150
151	151		func R_getBetKey (i) = ("bet_Roulette_" + toString(i.caller))
152	152
153	153
154	154		func R_getBetAmountKey (i) = ("betAmount_Roulette_" + toString(i.caller))
155	155
156	156
157	157		func R_getSelectedNumbersKey (i) = ("selectedNumbers_Roulette_" + toString(i.caller))
158	158
159	159
160	160		func R_getDirectionKey (i) = ("direction_Roulette_" + toString(i.caller))
161	161
162	162
163	163		func R_getLogKey (i) = ((("log_Roulette_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
164	164
165	165
166	166		func R_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
167	167
168	168
169	169		func LW_getBetKey (i) = ("bet_LuckyWheel_" + toString(i.caller))
170	170
171	171
172	172		func LW_getWonKey (i) = ("won_LuckyWheel_" + toString(i.caller))
173	173
174	174
175	175		func LW_getRandomNumberKey (i) = ("randomNumber_LuckyWheel_" + toString(i.caller))
176	176
177	177
178	178		func LW_getLogKey (i) = ((("log_LuckyWheel_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
179	179
180	180
181	181		func LW_whatUserWon (value) = match value {
182	182		case _ =>
183	183		if ((1 == $match0))
184	184		then numToWaves(2)
185	185		else if ((3 == $match0))
186	186		then numToWaves(1)
187	187		else if ((7 == $match0))
188	188		then numToWaves(6)
189	189		else if ((9 == $match0))
190	190		then numToWaves(1)
191	191		else 0
192	192		}
193	193
194	194
195	195		func LW_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
196	196
197	197
198	198		@Callable(i)
199	199		func Roulette_commit (betAmount,selectedNumberBets,betDirection) = {
200	200		let p = i.payments[0]
201	201		if (!(isPaymentOk(i, betAmount)))
202	202		then throw("Wrong payment amount or asset!")
203	203		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)))]
204	204		}
205	205
206	206
207	207
208	208		@Callable(i)
209	209		func Roulette_reveal () = {
210	210		let commitHeight = valueOrErrorMessage(getIntegerValue(R_getBetKey(i)), "Bet not found")
211	211		let betAmount = valueOrErrorMessage(getIntegerValue(R_getBetAmountKey(i)), "Bet amount not found")
212	212		let selectedNumbersStr = valueOrErrorMessage(getStringValue(R_getSelectedNumbersKey(i)), "Selected numbers not found")
213	213		let direction = valueOrErrorMessage(getStringValue(R_getDirectionKey(i)), "Direction not found")
214	214		let selectedNumbers = stringDecompressToListInt(selectedNumbersStr)
215	215		if ((commitHeight > height))
216	216		then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
217	217		else {
218		-	let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
219		-	let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
220	218		let randomNumber = getRandomRullet(commitHeight)
221	219		let winningAmount = numToWaves(R_WinCalculator(randomNumber, betAmount, selectedNumbers, direction))
222	220		let logStr = ((((((((("\| commitHeight: " + toString(commitHeight)) + " \| betAmount: ") + toString(betAmount)) + " \| winningAmount: ") + toString(winningAmount)) + " \| selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " \| randomNumber: ") + toString(randomNumber))
223	221		let statusStr = ((((((((("\| status: reveal \| winningAmount: " + toString(winningAmount)) + " \| selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " \| randomNumber: ") + toString(randomNumber)) + " \| betAmount: ") + toString(betAmount)) + " \| selectedNumbers: ") + listIntCompressToString(selectedNumbers))
224	222		if ((winningAmount > 0))
225	223		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)]
226	224		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)]
227	225		}
228	226		}
229	227
230	228
231	229
232	230		@Callable(i)
233	231		func LuckyWheel_commit () = if (!(isPaymentOk(i, 1)))
234	232		then throw("Wrong payment amount or asset")
235	233		else [IntegerEntry(LW_getBetKey(i), (height + 1)), DeleteEntry(LW_getRandomNumberKey(i)), DeleteEntry(LW_getWonKey(i)), StringEntry(LW_getStatusKey(i), "\| status: commit")]
236	234
237	235
238	236
239	237		@Callable(i)
240	238		func LuckyWheel_reveal () = {
241	239		let commitHeight = valueOrErrorMessage(getIntegerValue(LW_getBetKey(i)), "Bet not found")
242	240		if ((commitHeight > height))
243	241		then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
244	242		else {
245	243		let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
246	244		let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
247	245		let randomHash = sha256(value(vrf))
248	246		let revealBlock2 = valueOrErrorMessage(blockInfoByHeight((commitHeight - 1)), "unexcpected error")
249	247		let vrf2 = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
250	248		let randomHash2 = sha256(value(vrf))
251	249		let random = (toInt(randomHash, 16) + (toInt(randomHash, 10) / toInt(randomHash, 5)))
252	250		let randomNumber = (random % 12)
253	251		let winningAmount = LW_whatUserWon(randomNumber)
254	252		let statusStr = (((("\| status: reveal \| winningAmount: " + toString(winningAmount)) + " \| selectedNumbers: ") + " \| randomNumber: ") + toString(randomNumber))
255	253		if ((winningAmount > 0))
256	254		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)]
257	255		else [DeleteEntry(LW_getBetKey(i)), IntegerEntry(LW_getWonKey(i), winningAmount), IntegerEntry(LW_getRandomNumberKey(i), randomNumber), StringEntry(LW_getStatusKey(i), statusStr)]
258	256		}
259	257		}
260	258
261	259

github/deemru/w8io/873ac7e 
63.96 ms ◑