w8 · tx · D4g···adK

tx · D4g5vUXkoFKELWAAQTnNjdXiYPazUiaqE6vYRD2HjadK

3N272hFk6FBTgLM5HqpYVcCVmMcSCrEma9T:  -0.01000000 Waves

2023.06.07 16:45 [2612322] smart account 3N272hFk6FBTgLM5HqpYVcCVmMcSCrEma9T > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "D4g5vUXkoFKELWAAQTnNjdXiYPazUiaqE6vYRD2HjadK",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1686145596863,
    "version": 2,
    "chainId": 84,
    "sender": "3N272hFk6FBTgLM5HqpYVcCVmMcSCrEma9T",
    "senderPublicKey": "97sWz4UZWijkagGprhucQHR7b7nN6FfojMELnzuFEyY1",
    "proofs": [
        "46LoSgoobwFvXU3hitQfQJXkNbr95xFmVXj6gaMwogwdJv4nrdNxbabNsKwyennn9aTbSCQUY4tNNvbWeDJ3su8E"
    ],
    "script": "base64:BgIPCAISBQoDAREIEgASABIAFwEKbnVtVG9XYXZlcwEDbnVtCQBoAgUDbnVtAIDC1y8BC2lzUGF5bWVudE9rAgFpA3N1bQQRYWNjZXB0YWJsZUFzc2V0SWQBBBOr2TMEAXAJAJEDAggFAWkIcGF5bWVudHMAAAkAAAIIBQFwB2Fzc2V0SWQFBHVuaXQBC21hcEludFRvU3RyAgVhY2N1bQRuZXh0CQDMCAIJAKQDAQUEbmV4dAUFYWNjdW0BC21hcFN0clRvSW50AgVhY2N1bQRuZXh0CQDMCAIJAQ1wYXJzZUludFZhbHVlAQUEbmV4dAUFYWNjdW0BC21hcEludFRvU3VtAgVhY2N1bQRuZXh0CQBkAgUFYWNjdW0FBG5leHQBDGxpc3RJbnRUb1N1bQEDYXJyCgACJGwFA2FycgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQELbWFwSW50VG9TdW0CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFUxpc3Qgc2l6ZSBleGNlZWRzIDEwMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIAMwA0ADUANgA3ADgAOQA6ADsAPAA9AD4APwBAAEEAQgBDAEQARQBGAEcASABJAEoASwBMAE0ATgBPAFAAUQBSAFMAVABVAFYAVwBYAFkAWgBbAFwAXQBeAF8AYABhAGIAYwBkARNsaXN0SW50VG9MaXN0U3RyaW5nAQNhcnIKAAIkbAUDYXJyCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQttYXBJbnRUb1N0cgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIVTGlzdCBzaXplIGV4Y2VlZHMgMTAwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AD0APgA/AEAAQQBCAEMARABFAEYARwBIAEkASgBLAEwATQBOAE8AUABRAFIAUwBUAFUAVgBXAFgAWQBaAFsAXABdAF4AXwBgAGEAYgBjAGQBE2xpc3RTdHJpbmdUb0xpc3RJbmcBA2FycgoAAiRsBQNhcnIKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBC21hcFN0clRvSW50AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAEabGlzdFN0cmluZ0NvbXByZXNzVG9TdHJpbmcBA2FycgkAuQkCBQNhcnICAXwBHHN0cmluZ0RlY29tcHJlc3NUb0xpc3RTdHJpbmcBA3N0cgkAtQkCBQNzdHICAXwBF2xpc3RJbnRDb21wcmVzc1RvU3RyaW5nAQNhcnIJALkJAgkBE2xpc3RJbnRUb0xpc3RTdHJpbmcBBQNhcnICAXwBGXN0cmluZ0RlY29tcHJlc3NUb0xpc3RJbnQBBmFyclN0cgkBE2xpc3RTdHJpbmdUb0xpc3RJbmcBCQC1CQIFBmFyclN0cgIBfAEMTFdfZ2V0QmV0S2V5AQFpCQCsAgICD2JldF9MdWNreVdoZWVsXwkApQgBCAUBaQZjYWxsZXIBDExXX2dldFdvbktleQEBaQkArAICAg93b25fTHVja3lXaGVlbF8JAKUIAQgFAWkGY2FsbGVyARVMV19nZXRSYW5kb21OdW1iZXJLZXkBAWkJAKwCAgIYcmFuZG9tTnVtYmVyX0x1Y2t5V2hlZWxfCQClCAEIBQFpBmNhbGxlcgEMTFdfZ2V0TG9nS2V5AQFpCQCsAgIJAKwCAgkArAICAg9sb2dfTHVja3lXaGVlbF8JAKUIAQgFAWkGY2FsbGVyAgFfCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQBDkxXX3doYXRVc2VyV29uAQV2YWx1ZQQHJG1hdGNoMAUFdmFsdWUDCQAAAgABBQckbWF0Y2gwCQEKbnVtVG9XYXZlcwEAAgMJAAACAAMFByRtYXRjaDAJAQpudW1Ub1dhdmVzAQABAwkAAAIABwUHJG1hdGNoMAkBCm51bVRvV2F2ZXMBAAYDCQAAAgAJBQckbWF0Y2gwCQEKbnVtVG9XYXZlcwEAAQAAAQ9SX1dpbkNhbGN1bGF0b3IEDHJhbmRvbU51bWJlcgliZXRBbW91bnQSc2VsZWN0ZWROdW1iZXJCZXRzDGJldERpcmVjdGlvbgQLUkVEX1NFQ1RPUlMJAMwIAgAgCQDMCAIAEwkAzAgCABUJAMwIAgAZCQDMCAIAIgkAzAgCABsJAMwIAgAkCQDMCAIAHgkAzAgCABcJAMwIAgAFCQDMCAIAEAkAzAgCAAEJAMwIAgAOCQDMCAIACQkAzAgCABIJAMwIAgAHCQDMCAIADAkAzAgCAAMFA25pbAMDCQAAAgkAkAMBBRJzZWxlY3RlZE51bWJlckJldHMAAQkAAAIFDGJldERpcmVjdGlvbgIDbnVtBwMJAAACCQCRAwIFEnNlbGVjdGVkTnVtYmVyQmV0cwAABQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAJAAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAIDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAEgAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAMDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQADAAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAQDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQACQAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAwDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAAwAAAwkAAAIFDGJldERpcmVjdGlvbgIDcmVkAwkBD2NvbnRhaW5zRWxlbWVudAIFC1JFRF9TRUNUT1JTBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAAgAAAwkAAAIFDGJldERpcmVjdGlvbgIFYmxhY2sDAwkBASEBCQEPY29udGFpbnNFbGVtZW50AgULUkVEX1NFQ1RPUlMFDHJhbmRvbU51bWJlcgkBAiE9AgUMcmFuZG9tTnVtYmVyAAAHCQBoAgUJYmV0QW1vdW50AAIAAAMJAAACBQxiZXREaXJlY3Rpb24CA29kZAMJAQIhPQIJAGoCBQxyYW5kb21OdW1iZXIAAgAACQBoAgUJYmV0QW1vdW50AAIAAAMJAAACBQxiZXREaXJlY3Rpb24CBGV2ZW4DCQAAAgkAagIFDHJhbmRvbU51bWJlcgACAAAJAGgCBQliZXRBbW91bnQAAgAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzABIDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAAgAAAAABC1JfZ2V0QmV0S2V5AQFpCQCsAgICDWJldF9Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyARFSX2dldEJldEFtb3VudEtleQEBaQkArAICAhNiZXRBbW91bnRfUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgEXUl9nZXRTZWxlY3RlZE51bWJlcnNLZXkBAWkJAKwCAgIZc2VsZWN0ZWROdW1iZXJzX1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXIBEVJfZ2V0RGlyZWN0aW9uS2V5AQFpCQCsAgICE2RpcmVjdGlvbl9Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyAQtSX2dldExvZ0tleQEBaQkArAICCQCsAgIJAKwCAgINbG9nX1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXICAV8JANgEAQgFAWkNdHJhbnNhY3Rpb25JZAQBaQEPUm91bGV0dGVfY29tbWl0AwliZXRBbW91bnQSc2VsZWN0ZWROdW1iZXJCZXRzDGJldERpcmVjdGlvbgQBcAkAkQMCCAUBaQhwYXltZW50cwAAAwkBASEBCQELaXNQYXltZW50T2sCBQFpBQliZXRBbW91bnQJAAIBAh5Xcm9uZyBwYXltZW50IGFtb3VudCBvciBhc3NldCEJAMwIAgkBDEludGVnZXJFbnRyeQIJAQtSX2dldEJldEtleQEFAWkJAGQCBQZoZWlnaHQAAQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEVJfZ2V0QmV0QW1vdW50S2V5AQUBaQUJYmV0QW1vdW50CQDMCAIJAQtTdHJpbmdFbnRyeQIJARdSX2dldFNlbGVjdGVkTnVtYmVyc0tleQEFAWkJARdsaXN0SW50Q29tcHJlc3NUb1N0cmluZwEFEnNlbGVjdGVkTnVtYmVyQmV0cwkAzAgCCQELU3RyaW5nRW50cnkCCQERUl9nZXREaXJlY3Rpb25LZXkBBQFpBQxiZXREaXJlY3Rpb24FA25pbAFpAQ9Sb3VsZXR0ZV9yZXZlYWwABAxjb21taXRIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBEUBleHRyTmF0aXZlKDEwNTUpAQkBC1JfZ2V0QmV0S2V5AQUBaQINQmV0IG5vdCBmb3VuZAQJYmV0QW1vdW50CQETdmFsdWVPckVycm9yTWVzc2FnZQIJARFAZXh0ck5hdGl2ZSgxMDU1KQEJARFSX2dldEJldEFtb3VudEtleQEFAWkCFEJldCBhbW91bnQgbm90IGZvdW5kBBJzZWxlY3RlZE51bWJlcnNTdHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBEUBleHRyTmF0aXZlKDEwNTgpAQkBF1JfZ2V0U2VsZWN0ZWROdW1iZXJzS2V5AQUBaQIaU2VsZWN0ZWQgbnVtYmVycyBub3QgZm91bmQECWRpcmVjdGlvbgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQERQGV4dHJOYXRpdmUoMTA1OCkBCQERUl9nZXREaXJlY3Rpb25LZXkBBQFpAhNEaXJlY3Rpb24gbm90IGZvdW5kBA9zZWxlY3RlZE51bWJlcnMJARlzdHJpbmdEZWNvbXByZXNzVG9MaXN0SW50AQUSc2VsZWN0ZWROdW1iZXJzU3RyAwkAZgIFDGNvbW1pdEhlaWdodAUGaGVpZ2h0CQACAQkArAICCQCsAgICBVdhaXQgCQCkAwEJAGUCBQxjb21taXRIZWlnaHQFBmhlaWdodAIZIGJsb2NrcyB0byByZXZlYWwgdGhpcyBpZAQLcmV2ZWFsQmxvY2sJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7QcBBQxjb21taXRIZWlnaHQCEXVuZXhjcGVjdGVkIGVycm9yBAN2cmYJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFC3JldmVhbEJsb2NrA3ZyZgIRdW5leGNwZWN0ZWQgZXJyb3IECnJhbmRvbUhhc2gJAPcDAQkBBXZhbHVlAQUDdnJmBAxyYW5kb21OdW1iZXIJAGoCCQCyCQIFCnJhbmRvbUhhc2gAEAAlBA13aW5uaW5nQW1vdW50CQEPUl9XaW5DYWxjdWxhdG9yBAUMcmFuZG9tTnVtYmVyBQliZXRBbW91bnQFD3NlbGVjdGVkTnVtYmVycwUJZGlyZWN0aW9uAwkAZgIFDXdpbm5pbmdBbW91bnQAAAkAzAgCCQELRGVsZXRlRW50cnkBCQELUl9nZXRCZXRLZXkBBQFpCQDMCAIJAQtEZWxldGVFbnRyeQEJARFSX2dldEJldEFtb3VudEtleQEFAWkJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBF1JfZ2V0U2VsZWN0ZWROdW1iZXJzS2V5AQUBaQkAzAgCCQELRGVsZXRlRW50cnkBCQERUl9nZXREaXJlY3Rpb25LZXkBBQFpCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUNd2lubmluZ0Ftb3VudAUEdW5pdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBC1JfZ2V0TG9nS2V5AQUBaQUNd2lubmluZ0Ftb3VudAUDbmlsCQDMCAIJAQtEZWxldGVFbnRyeQEJAQtSX2dldEJldEtleQEFAWkJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBEVJfZ2V0QmV0QW1vdW50S2V5AQUBaQkAzAgCCQELRGVsZXRlRW50cnkBCQEXUl9nZXRTZWxlY3RlZE51bWJlcnNLZXkBBQFpCQDMCAIJAQtEZWxldGVFbnRyeQEJARFSX2dldERpcmVjdGlvbktleQEFAWkJAMwIAgkBDEludGVnZXJFbnRyeQIJAQtSX2dldExvZ0tleQEFAWkFDXdpbm5pbmdBbW91bnQFA25pbAFpARFMdWNreVdoZWVsX2NvbW1pdAADCQEBIQEJAQtpc1BheW1lbnRPawIFAWkAAQkAAgECHVdyb25nIHBheW1lbnQgYW1vdW50IG9yIGFzc2V0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEMTFdfZ2V0QmV0S2V5AQUBaQkAZAIFBmhlaWdodAABCQDMCAIJAQtEZWxldGVFbnRyeQEJARVMV19nZXRSYW5kb21OdW1iZXJLZXkBBQFpCQDMCAIJAQtEZWxldGVFbnRyeQEJAQxMV19nZXRXb25LZXkBBQFpBQNuaWwBaQERTHVja3lXaGVlbF9yZXZlYWwABAxjb21taXRIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBEUBleHRyTmF0aXZlKDEwNTUpAQkBDExXX2dldEJldEtleQEFAWkCDUJldCBub3QgZm91bmQDCQBmAgUMY29tbWl0SGVpZ2h0BQZoZWlnaHQJAAIBCQCsAgIJAKwCAgIFV2FpdCAJAKQDAQkAZQIFDGNvbW1pdEhlaWdodAUGaGVpZ2h0AhkgYmxvY2tzIHRvIHJldmVhbCB0aGlzIGlkBAtyZXZlYWxCbG9jawkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDtBwEFDGNvbW1pdEhlaWdodAIRdW5leGNwZWN0ZWQgZXJyb3IEA3ZyZgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAULcmV2ZWFsQmxvY2sDdnJmAhF1bmV4Y3BlY3RlZCBlcnJvcgQKcmFuZG9tSGFzaAkA9wMBCQEFdmFsdWUBBQN2cmYEDHJhbmRvbU51bWJlcgkAagIJALIJAgUKcmFuZG9tSGFzaAAQAAwEDXdpbm5pbmdBbW91bnQJAQ5MV193aGF0VXNlcldvbgEFDHJhbmRvbU51bWJlcgMJAGYCBQ13aW5uaW5nQW1vdW50AAAJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBDExXX2dldEJldEtleQEFAWkJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQ13aW5uaW5nQW1vdW50BQR1bml0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEMTFdfZ2V0V29uS2V5AQUBaQUNd2lubmluZ0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFUxXX2dldFJhbmRvbU51bWJlcktleQEFAWkFDHJhbmRvbU51bWJlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDExXX2dldExvZ0tleQEFAWkFDXdpbm5pbmdBbW91bnQFA25pbAkAzAgCCQELRGVsZXRlRW50cnkBCQEMTFdfZ2V0QmV0S2V5AQUBaQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDExXX2dldFdvbktleQEFAWkFDXdpbm5pbmdBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJARVMV19nZXRSYW5kb21OdW1iZXJLZXkBBQFpBQxyYW5kb21OdW1iZXIJAMwIAgkBDEludGVnZXJFbnRyeQIJAQxMV19nZXRMb2dLZXkBBQFpBQ13aW5uaW5nQW1vdW50BQNuaWwAswaYZQ==",
    "height": 2612322,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 3MswvpKqBfLwhoJvagMaE5AvjiL8r9mQggrRUs1DPnDH
Next: 82yzNbf6fZJocHAmifu5DoWvH5YoNgRu8HLkKBnZcsKn

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

Old	New		Differences
7	7		func isPaymentOk (i,sum) = {
8	8		let acceptableAssetId = base58'WAVES'
9	9		let p = i.payments[0]
10		-	(p.assetId == ~~acceptableAssetId~~)
	10	+	(p.assetId == unit)
11	11		}
12	12
13	13

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

github/deemru/w8io/169f3d6 
67.64 ms ◑