w8 · tx · Dp4···ZbE

tx · Dp4PLU1SugJCC2suv6Qq1C6AwBmF333MDp9wneZbPZbE

3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX:  -0.01000000 Waves

2023.06.11 13:46 [2617921] smart account 3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "Dp4PLU1SugJCC2suv6Qq1C6AwBmF333MDp9wneZbPZbE",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1686480463764,
    "version": 2,
    "chainId": 84,
    "sender": "3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX",
    "senderPublicKey": "5iiNX4Sz3qZzcerumQLc1y7u9TH2X46jDV4f9Xivtmtv",
    "proofs": [
        "4KGvcGzjooYw7uA72FKxqN1mgbi3dXUkBixPdbA1QZhbN5R7VsjGmchyzj1Yb3pUQnvHHQHn6EgDy83AUafHHPZq"
    ],
    "script": "base64:BgIUCAISAwoBARIFCgMBEQgSABIAEgAaAQpudW1Ub1dhdmVzAQNudW0JAGgCBQNudW0AgMLXLwELaXNQYXltZW50T2sCAWkDc3VtBBFhY2NlcHRhYmxlQXNzZXRJZAEEE6vZMwQBcAkAkQMCCAUBaQhwYXltZW50cwAAAwkAZwIIBQFwBmFtb3VudAkBCm51bVRvV2F2ZXMBBQNzdW0JAAACCAUBcAdhc3NldElkBQR1bml0BwELbWFwSW50VG9TdHICBWFjY3VtBG5leHQJAMwIAgkApAMBBQRuZXh0BQVhY2N1bQELbWFwU3RyVG9JbnQCBWFjY3VtBG5leHQJAMwIAgkBDXBhcnNlSW50VmFsdWUBBQRuZXh0BQVhY2N1bQELbWFwSW50VG9TdW0CBWFjY3VtBG5leHQJAGQCBQVhY2N1bQUEbmV4dAEMbGlzdEludFRvU3VtAQNhcnIKAAIkbAUDYXJyCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQttYXBJbnRUb1N1bQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyARNsaXN0SW50VG9MaXN0U3RyaW5nAQNhcnIKAAIkbAUDYXJyCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQttYXBJbnRUb1N0cgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyARNsaXN0U3RyaW5nVG9MaXN0SW5nAQNhcnIKAAIkbAUDYXJyCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQttYXBTdHJUb0ludAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyARpsaXN0U3RyaW5nQ29tcHJlc3NUb1N0cmluZwEDYXJyCQC5CQIFA2FycgIBfAEcc3RyaW5nRGVjb21wcmVzc1RvTGlzdFN0cmluZwEDc3RyCQC1CQIFA3N0cgIBfAEXbGlzdEludENvbXByZXNzVG9TdHJpbmcBA2FycgkAuQkCCQETbGlzdEludFRvTGlzdFN0cmluZwEFA2FycgIBfAEZc3RyaW5nRGVjb21wcmVzc1RvTGlzdEludAEGYXJyU3RyCQETbGlzdFN0cmluZ1RvTGlzdEluZwEJALUJAgUGYXJyU3RyAgF8AQlnZXRSYW5kb20BDGNvbW1pdEhlaWdodAQLcmV2ZWFsQmxvY2sJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7QcBBQxjb21taXRIZWlnaHQCEXVuZXhjcGVjdGVkIGVycm9yBAN2cmYJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFC3JldmVhbEJsb2NrA3ZyZgIRdW5leGNwZWN0ZWQgZXJyb3IECnJhbmRvbUhhc2gJAPcDAQkBBXZhbHVlAQUDdnJmBARoYXNoCQCyCQIFCnJhbmRvbUhhc2gAEAkAagIFBGhhc2gAJQEPUl9XaW5DYWxjdWxhdG9yBAxyYW5kb21OdW1iZXIJYmV0QW1vdW50EnNlbGVjdGVkTnVtYmVyQmV0cwxiZXREaXJlY3Rpb24EC1JFRF9TRUNUT1JTCQDMCAIAIAkAzAgCABMJAMwIAgAVCQDMCAIAGQkAzAgCACIJAMwIAgAbCQDMCAIAJAkAzAgCAB4JAMwIAgAXCQDMCAIABQkAzAgCABAJAMwIAgABCQDMCAIADgkAzAgCAAkJAMwIAgASCQDMCAIABwkAzAgCAAwJAMwIAgADBQNuaWwDAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAEJAAACBQxiZXREaXJlY3Rpb24CA251bQcDCQAAAgkAkQMCBRJzZWxlY3RlZE51bWJlckJldHMAAAUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50ACQAAAMJAAACCQCQAwEFEnNlbGVjdGVkTnVtYmVyQmV0cwACAwkBD2NvbnRhaW5zRWxlbWVudAIFEnNlbGVjdGVkTnVtYmVyQmV0cwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50ABIAAAMJAAACCQCQAwEFEnNlbGVjdGVkTnVtYmVyQmV0cwADAwkBD2NvbnRhaW5zRWxlbWVudAIFEnNlbGVjdGVkTnVtYmVyQmV0cwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50AAwAAAMJAAACCQCQAwEFEnNlbGVjdGVkTnVtYmVyQmV0cwAEAwkBD2NvbnRhaW5zRWxlbWVudAIFEnNlbGVjdGVkTnVtYmVyQmV0cwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50AAkAAAMJAAACCQCQAwEFEnNlbGVjdGVkTnVtYmVyQmV0cwAMAwkBD2NvbnRhaW5zRWxlbWVudAIFEnNlbGVjdGVkTnVtYmVyQmV0cwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50AAMAAAMJAAACBQxiZXREaXJlY3Rpb24CA3JlZAMJAQ9jb250YWluc0VsZW1lbnQCBQtSRURfU0VDVE9SUwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50AAIAAAMJAAACBQxiZXREaXJlY3Rpb24CBWJsYWNrAwMJAQEhAQkBD2NvbnRhaW5zRWxlbWVudAIFC1JFRF9TRUNUT1JTBQxyYW5kb21OdW1iZXIJAQIhPQIFDHJhbmRvbU51bWJlcgAABwkAaAIFCWJldEFtb3VudAACAAADCQAAAgUMYmV0RGlyZWN0aW9uAgNvZGQDCQECIT0CCQBqAgUMcmFuZG9tTnVtYmVyAAIAAAkAaAIFCWJldEFtb3VudAACAAADCQAAAgUMYmV0RGlyZWN0aW9uAgRldmVuAwkAAAIJAGoCBQxyYW5kb21OdW1iZXIAAgAACQBoAgUJYmV0QW1vdW50AAIAAAMJAAACCQCQAwEFEnNlbGVjdGVkTnVtYmVyQmV0cwASAwkBD2NvbnRhaW5zRWxlbWVudAIFEnNlbGVjdGVkTnVtYmVyQmV0cwUMcmFuZG9tTnVtYmVyCQBoAgUJYmV0QW1vdW50AAIAAAAAAQtSX2dldEJldEtleQEBaQkArAICAg1iZXRfUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgERUl9nZXRCZXRBbW91bnRLZXkBAWkJAKwCAgITYmV0QW1vdW50X1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXIBF1JfZ2V0U2VsZWN0ZWROdW1iZXJzS2V5AQFpCQCsAgICGXNlbGVjdGVkTnVtYmVyc19Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyARFSX2dldERpcmVjdGlvbktleQEBaQkArAICAhNkaXJlY3Rpb25fUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgELUl9nZXRMb2dLZXkBAWkJAKwCAgkArAICCQCsAgICDWxvZ19Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyAgFfCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQBDlJfZ2V0U3RhdHVzS2V5AQFpCQCsAgICEHN0YXR1c19Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyAQxMV19nZXRCZXRLZXkBAWkJAKwCAgIPYmV0X0x1Y2t5V2hlZWxfCQClCAEIBQFpBmNhbGxlcgEMTFdfZ2V0V29uS2V5AQFpCQCsAgICD3dvbl9MdWNreVdoZWVsXwkApQgBCAUBaQZjYWxsZXIBFUxXX2dldFJhbmRvbU51bWJlcktleQEBaQkArAICAhhyYW5kb21OdW1iZXJfTHVja3lXaGVlbF8JAKUIAQgFAWkGY2FsbGVyAQxMV19nZXRMb2dLZXkBAWkJAKwCAgkArAICCQCsAgICD2xvZ19MdWNreVdoZWVsXwkApQgBCAUBaQZjYWxsZXICAV8JANgEAQgFAWkNdHJhbnNhY3Rpb25JZAEOTFdfd2hhdFVzZXJXb24BBXZhbHVlBAckbWF0Y2gwBQV2YWx1ZQMJAAACAAEFByRtYXRjaDAJAQpudW1Ub1dhdmVzAQACAwkAAAIAAwUHJG1hdGNoMAkBCm51bVRvV2F2ZXMBAAEDCQAAAgAHBQckbWF0Y2gwCQEKbnVtVG9XYXZlcwEABgMJAAACAAkFByRtYXRjaDAJAQpudW1Ub1dhdmVzAQABAAABD0xXX2dldFN0YXR1c0tleQEBaQkArAICAhBzdGF0dXNfUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgUBaQEDeHh4AQFoCQACAQIDISEhAWkBD1JvdWxldHRlX2NvbW1pdAMJYmV0QW1vdW50EnNlbGVjdGVkTnVtYmVyQmV0cwxiZXREaXJlY3Rpb24EAXAJAJEDAggFAWkIcGF5bWVudHMAAAMJAQEhAQkBC2lzUGF5bWVudE9rAgUBaQUJYmV0QW1vdW50CQACAQIeV3JvbmcgcGF5bWVudCBhbW91bnQgb3IgYXNzZXQhCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQELUl9nZXRCZXRLZXkBBQFpCQBkAgUGaGVpZ2h0AAEJAMwIAgkBDEludGVnZXJFbnRyeQIJARFSX2dldEJldEFtb3VudEtleQEFAWkFCWJldEFtb3VudAkAzAgCCQELU3RyaW5nRW50cnkCCQEXUl9nZXRTZWxlY3RlZE51bWJlcnNLZXkBBQFpCQEXbGlzdEludENvbXByZXNzVG9TdHJpbmcBBRJzZWxlY3RlZE51bWJlckJldHMJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEVJfZ2V0RGlyZWN0aW9uS2V5AQUBaQUMYmV0RGlyZWN0aW9uCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5SX2dldFN0YXR1c0tleQEFAWkJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAiB8IHN0YXR1czogY29tbWl0IHwgcmV2ZWFsQmxvY2s6IAkApAMBCQBkAgUGaGVpZ2h0AAECDiB8IGJldEFtb3VudDogCQCkAwEFCWJldEFtb3VudAIUIHwgc2VsZWN0ZWROdW1iZXJzOiAJARdsaXN0SW50Q29tcHJlc3NUb1N0cmluZwEFEnNlbGVjdGVkTnVtYmVyQmV0cwUDbmlsAWkBD1JvdWxldHRlX3JldmVhbAAEDGNvbW1pdEhlaWdodAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQERQGV4dHJOYXRpdmUoMTA1NSkBCQELUl9nZXRCZXRLZXkBBQFpAg1CZXQgbm90IGZvdW5kBAliZXRBbW91bnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBEUBleHRyTmF0aXZlKDEwNTUpAQkBEVJfZ2V0QmV0QW1vdW50S2V5AQUBaQIUQmV0IGFtb3VudCBub3QgZm91bmQEEnNlbGVjdGVkTnVtYmVyc1N0cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQERQGV4dHJOYXRpdmUoMTA1OCkBCQEXUl9nZXRTZWxlY3RlZE51bWJlcnNLZXkBBQFpAhpTZWxlY3RlZCBudW1iZXJzIG5vdCBmb3VuZAQJZGlyZWN0aW9uCQETdmFsdWVPckVycm9yTWVzc2FnZQIJARFAZXh0ck5hdGl2ZSgxMDU4KQEJARFSX2dldERpcmVjdGlvbktleQEFAWkCE0RpcmVjdGlvbiBub3QgZm91bmQED3NlbGVjdGVkTnVtYmVycwkBGXN0cmluZ0RlY29tcHJlc3NUb0xpc3RJbnQBBRJzZWxlY3RlZE51bWJlcnNTdHIDCQBmAgUMY29tbWl0SGVpZ2h0BQZoZWlnaHQJAAIBCQCsAgIJAKwCAgIFV2FpdCAJAKQDAQkAZQIFDGNvbW1pdEhlaWdodAUGaGVpZ2h0AhkgYmxvY2tzIHRvIHJldmVhbCB0aGlzIGlkBAtyZXZlYWxCbG9jawkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDtBwEFDGNvbW1pdEhlaWdodAIRdW5leGNwZWN0ZWQgZXJyb3IEA3ZyZgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAULcmV2ZWFsQmxvY2sDdnJmAhF1bmV4Y3BlY3RlZCBlcnJvcgQKcmFuZG9tSGFzaAkA9wMBCQEFdmFsdWUBBQN2cmYEDHJhbmRvbU51bWJlcgkAagIJALIJAgUKcmFuZG9tSGFzaAAQACUEDXdpbm5pbmdBbW91bnQJAQpudW1Ub1dhdmVzAQkBD1JfV2luQ2FsY3VsYXRvcgQFDHJhbmRvbU51bWJlcgUJYmV0QW1vdW50BQ9zZWxlY3RlZE51bWJlcnMFCWRpcmVjdGlvbgQGbG9nU3RyCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhB8IGNvbW1pdEhlaWdodDogCQCkAwEFDGNvbW1pdEhlaWdodAIOIHwgYmV0QW1vdW50OiAJAKQDAQUJYmV0QW1vdW50AhIgfCB3aW5uaW5nQW1vdW50OiAJAKQDAQUNd2lubmluZ0Ftb3VudAIUIHwgc2VsZWN0ZWROdW1iZXJzOiAJARdsaXN0SW50Q29tcHJlc3NUb1N0cmluZwEFD3NlbGVjdGVkTnVtYmVycwIRIHwgcmFuZG9tTnVtYmVyOiAJAKQDAQUMcmFuZG9tTnVtYmVyBAlzdGF0dXNTdHIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICInwgc3RhdHVzOiByZXZlYWwgfCB3aW5uaW5nQW1vdW50OiAJAKQDAQUNd2lubmluZ0Ftb3VudAIUIHwgc2VsZWN0ZWROdW1iZXJzOiAJARdsaXN0SW50Q29tcHJlc3NUb1N0cmluZwEFD3NlbGVjdGVkTnVtYmVycwIRIHwgcmFuZG9tTnVtYmVyOiAJAKQDAQUMcmFuZG9tTnVtYmVyAg4gfCBiZXRBbW91bnQ6IAkApAMBBQliZXRBbW91bnQCFCB8IHNlbGVjdGVkTnVtYmVyczogCQEXbGlzdEludENvbXByZXNzVG9TdHJpbmcBBQ9zZWxlY3RlZE51bWJlcnMDCQBmAgUNd2lubmluZ0Ftb3VudAAACQDMCAIJAQtEZWxldGVFbnRyeQEJAQtSX2dldEJldEtleQEFAWkJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBEVJfZ2V0QmV0QW1vdW50S2V5AQUBaQkAzAgCCQELRGVsZXRlRW50cnkBCQEXUl9nZXRTZWxlY3RlZE51bWJlcnNLZXkBBQFpCQDMCAIJAQtEZWxldGVFbnRyeQEJARFSX2dldERpcmVjdGlvbktleQEFAWkJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQ13aW5uaW5nQW1vdW50BQR1bml0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAQtSX2dldExvZ0tleQEFAWkFBmxvZ1N0cgkAzAgCCQELU3RyaW5nRW50cnkCCQEOUl9nZXRTdGF0dXNLZXkBBQFpBQlzdGF0dXNTdHIFA25pbAkAzAgCCQELRGVsZXRlRW50cnkBCQELUl9nZXRCZXRLZXkBBQFpCQDMCAIJAQtEZWxldGVFbnRyeQEJARFSX2dldEJldEFtb3VudEtleQEFAWkJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBF1JfZ2V0U2VsZWN0ZWROdW1iZXJzS2V5AQUBaQkAzAgCCQELRGVsZXRlRW50cnkBCQERUl9nZXREaXJlY3Rpb25LZXkBBQFpCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQELUl9nZXRMb2dLZXkBBQFpBQ13aW5uaW5nQW1vdW50CQDMCAIJAQtTdHJpbmdFbnRyeQIJAQtSX2dldExvZ0tleQEFAWkFBmxvZ1N0cgkAzAgCCQELU3RyaW5nRW50cnkCCQEOUl9nZXRTdGF0dXNLZXkBBQFpBQlzdGF0dXNTdHIFA25pbAFpARFMdWNreVdoZWVsX2NvbW1pdAADCQEBIQEJAQtpc1BheW1lbnRPawIFAWkAAQkAAgECHVdyb25nIHBheW1lbnQgYW1vdW50IG9yIGFzc2V0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEMTFdfZ2V0QmV0S2V5AQUBaQkAZAIFBmhlaWdodAABCQDMCAIJAQtEZWxldGVFbnRyeQEJARVMV19nZXRSYW5kb21OdW1iZXJLZXkBBQFpCQDMCAIJAQtEZWxldGVFbnRyeQEJAQxMV19nZXRXb25LZXkBBQFpCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ9MV19nZXRTdGF0dXNLZXkBBQFpAhB8IHN0YXR1czogY29tbWl0BQNuaWwBaQERTHVja3lXaGVlbF9yZXZlYWwABAxjb21taXRIZWlnaHQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBEUBleHRyTmF0aXZlKDEwNTUpAQkBDExXX2dldEJldEtleQEFAWkCDUJldCBub3QgZm91bmQDCQBmAgUMY29tbWl0SGVpZ2h0BQZoZWlnaHQJAAIBCQCsAgIJAKwCAgIFV2FpdCAJAKQDAQkAZQIFDGNvbW1pdEhlaWdodAUGaGVpZ2h0AhkgYmxvY2tzIHRvIHJldmVhbCB0aGlzIGlkBAtyZXZlYWxCbG9jawkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDtBwEFDGNvbW1pdEhlaWdodAIRdW5leGNwZWN0ZWQgZXJyb3IEA3ZyZgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAULcmV2ZWFsQmxvY2sDdnJmAhF1bmV4Y3BlY3RlZCBlcnJvcgQKcmFuZG9tSGFzaAkA9wMBCQEFdmFsdWUBBQN2cmYEDHJldmVhbEJsb2NrMgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDtBwEJAGUCBQxjb21taXRIZWlnaHQAAQIRdW5leGNwZWN0ZWQgZXJyb3IEBHZyZjIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFC3JldmVhbEJsb2NrA3ZyZgIRdW5leGNwZWN0ZWQgZXJyb3IEC3JhbmRvbUhhc2gyCQD3AwEJAQV2YWx1ZQEFA3ZyZgQGcmFuZG9tCQBkAgkAsgkCBQpyYW5kb21IYXNoABAJAGkCCQCyCQIFCnJhbmRvbUhhc2gACgkAsgkCBQpyYW5kb21IYXNoAAUEDHJhbmRvbU51bWJlcgkAagIFBnJhbmRvbQAMBA13aW5uaW5nQW1vdW50CQEOTFdfd2hhdFVzZXJXb24BBQxyYW5kb21OdW1iZXIECXN0YXR1c1N0cgkArAICCQCsAgIJAKwCAgkArAICAiJ8IHN0YXR1czogcmV2ZWFsIHwgd2lubmluZ0Ftb3VudDogCQCkAwEFDXdpbm5pbmdBbW91bnQCFCB8IHNlbGVjdGVkTnVtYmVyczogAhEgfCByYW5kb21OdW1iZXI6IAkApAMBBQxyYW5kb21OdW1iZXIDCQBmAgUNd2lubmluZ0Ftb3VudAAACQDMCAIJAQtEZWxldGVFbnRyeQEJAQxMV19nZXRCZXRLZXkBBQFpCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUNd2lubmluZ0Ftb3VudAUEdW5pdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBDExXX2dldFdvbktleQEFAWkFDXdpbm5pbmdBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJARVMV19nZXRSYW5kb21OdW1iZXJLZXkBBQFpBQxyYW5kb21OdW1iZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBD0xXX2dldFN0YXR1c0tleQEFAWkFCXN0YXR1c1N0cgUDbmlsCQDMCAIJAQtEZWxldGVFbnRyeQEJAQxMV19nZXRCZXRLZXkBBQFpCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEMTFdfZ2V0V29uS2V5AQUBaQUNd2lubmluZ0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFUxXX2dldFJhbmRvbU51bWJlcktleQEFAWkFDHJhbmRvbU51bWJlcgkAzAgCCQELU3RyaW5nRW50cnkCCQEPTFdfZ2V0U3RhdHVzS2V5AQUBaQUJc3RhdHVzU3RyBQNuaWwA+QAiRg==",
    "height": 2617921,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 83drTKGfVkQqtsV1tMSppqLoJy2YoLL9pjczZgnmM1wN
Next: CXZThn2iZnGdNpoetPcG9fJDQsCVwLTHyaE9euVyL3G8

Diff: 
Old New Differences
189 189  
190 190  
191 191  @Callable(i)
192 - func Test (h) = throw("!!!")
192 + func xxx (h) = throw("!!!")
193 193  
194 194  
195 195  
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 - func Test (h) = throw("!!!")
192 + func xxx (h) = throw("!!!")
193 193  
194 194  
195 195  
196 196  @Callable(i)
197 197  func Roulette_commit (betAmount,selectedNumberBets,betDirection) = {
198 198      let p = i.payments[0]
199 199      if (!(isPaymentOk(i, betAmount)))
200 200          then throw("Wrong payment amount or asset!")
201 201          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)))]
202 202      }
203 203  
204 204  
205 205  
206 206  @Callable(i)
207 207  func Roulette_reveal () = {
208 208      let commitHeight = valueOrErrorMessage(getIntegerValue(R_getBetKey(i)), "Bet not found")
209 209      let betAmount = valueOrErrorMessage(getIntegerValue(R_getBetAmountKey(i)), "Bet amount not found")
210 210      let selectedNumbersStr = valueOrErrorMessage(getStringValue(R_getSelectedNumbersKey(i)), "Selected numbers not found")
211 211      let direction = valueOrErrorMessage(getStringValue(R_getDirectionKey(i)), "Direction not found")
212 212      let selectedNumbers = stringDecompressToListInt(selectedNumbersStr)
213 213      if ((commitHeight > height))
214 214          then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
215 215          else {
216 216              let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
217 217              let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
218 218              let randomHash = sha256(value(vrf))
219 219              let randomNumber = (toInt(randomHash, 16) % 37)
220 220              let winningAmount = numToWaves(R_WinCalculator(randomNumber, betAmount, selectedNumbers, direction))
221 221              let logStr = ((((((((("| commitHeight: " + toString(commitHeight)) + " | betAmount: ") + toString(betAmount)) + " | winningAmount: ") + toString(winningAmount)) + " | selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " | randomNumber: ") + toString(randomNumber))
222 222              let statusStr = ((((((((("| status: reveal | winningAmount: " + toString(winningAmount)) + " | selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " | randomNumber: ") + toString(randomNumber)) + " | betAmount: ") + toString(betAmount)) + " | selectedNumbers: ") + listIntCompressToString(selectedNumbers))
223 223              if ((winningAmount > 0))
224 224                  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)]
225 225                  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)]
226 226              }
227 227      }
228 228  
229 229  
230 230  
231 231  @Callable(i)
232 232  func LuckyWheel_commit () = if (!(isPaymentOk(i, 1)))
233 233      then throw("Wrong payment amount or asset")
234 234      else [IntegerEntry(LW_getBetKey(i), (height + 1)), DeleteEntry(LW_getRandomNumberKey(i)), DeleteEntry(LW_getWonKey(i)), StringEntry(LW_getStatusKey(i), "| status: commit")]
235 235  
236 236  
237 237  
238 238  @Callable(i)
239 239  func LuckyWheel_reveal () = {
240 240      let commitHeight = valueOrErrorMessage(getIntegerValue(LW_getBetKey(i)), "Bet not found")
241 241      if ((commitHeight > height))
242 242          then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
243 243          else {
244 244              let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
245 245              let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
246 246              let randomHash = sha256(value(vrf))
247 247              let revealBlock2 = valueOrErrorMessage(blockInfoByHeight((commitHeight - 1)), "unexcpected error")
248 248              let vrf2 = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
249 249              let randomHash2 = sha256(value(vrf))
250 250              let random = (toInt(randomHash, 16) + (toInt(randomHash, 10) / toInt(randomHash, 5)))
251 251              let randomNumber = (random % 12)
252 252              let winningAmount = LW_whatUserWon(randomNumber)
253 253              let statusStr = (((("| status: reveal | winningAmount: " + toString(winningAmount)) + " | selectedNumbers: ") + " | randomNumber: ") + toString(randomNumber))
254 254              if ((winningAmount > 0))
255 255                  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)]
256 256                  else [DeleteEntry(LW_getBetKey(i)), IntegerEntry(LW_getWonKey(i), winningAmount), IntegerEntry(LW_getRandomNumberKey(i), randomNumber), StringEntry(LW_getStatusKey(i), statusStr)]
257 257              }
258 258      }
259 259  
260 260

Old	New		Differences
189	189
190	190
191	191		@Callable(i)
192		-	func ~~Test~~ (h) = throw("!!!")
	192	+	func xxx (h) = throw("!!!")
193	193
194	194
195	195

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		-	func ~~Test~~ (h) = throw("!!!")
	192	+	func xxx (h) = throw("!!!")
193	193
194	194
195	195
196	196		@Callable(i)
197	197		func Roulette_commit (betAmount,selectedNumberBets,betDirection) = {
198	198		let p = i.payments[0]
199	199		if (!(isPaymentOk(i, betAmount)))
200	200		then throw("Wrong payment amount or asset!")
201	201		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)))]
202	202		}
203	203
204	204
205	205
206	206		@Callable(i)
207	207		func Roulette_reveal () = {
208	208		let commitHeight = valueOrErrorMessage(getIntegerValue(R_getBetKey(i)), "Bet not found")
209	209		let betAmount = valueOrErrorMessage(getIntegerValue(R_getBetAmountKey(i)), "Bet amount not found")
210	210		let selectedNumbersStr = valueOrErrorMessage(getStringValue(R_getSelectedNumbersKey(i)), "Selected numbers not found")
211	211		let direction = valueOrErrorMessage(getStringValue(R_getDirectionKey(i)), "Direction not found")
212	212		let selectedNumbers = stringDecompressToListInt(selectedNumbersStr)
213	213		if ((commitHeight > height))
214	214		then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
215	215		else {
216	216		let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
217	217		let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
218	218		let randomHash = sha256(value(vrf))
219	219		let randomNumber = (toInt(randomHash, 16) % 37)
220	220		let winningAmount = numToWaves(R_WinCalculator(randomNumber, betAmount, selectedNumbers, direction))
221	221		let logStr = ((((((((("\| commitHeight: " + toString(commitHeight)) + " \| betAmount: ") + toString(betAmount)) + " \| winningAmount: ") + toString(winningAmount)) + " \| selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " \| randomNumber: ") + toString(randomNumber))
222	222		let statusStr = ((((((((("\| status: reveal \| winningAmount: " + toString(winningAmount)) + " \| selectedNumbers: ") + listIntCompressToString(selectedNumbers)) + " \| randomNumber: ") + toString(randomNumber)) + " \| betAmount: ") + toString(betAmount)) + " \| selectedNumbers: ") + listIntCompressToString(selectedNumbers))
223	223		if ((winningAmount > 0))
224	224		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)]
225	225		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)]
226	226		}
227	227		}
228	228
229	229
230	230
231	231		@Callable(i)
232	232		func LuckyWheel_commit () = if (!(isPaymentOk(i, 1)))
233	233		then throw("Wrong payment amount or asset")
234	234		else [IntegerEntry(LW_getBetKey(i), (height + 1)), DeleteEntry(LW_getRandomNumberKey(i)), DeleteEntry(LW_getWonKey(i)), StringEntry(LW_getStatusKey(i), "\| status: commit")]
235	235
236	236
237	237
238	238		@Callable(i)
239	239		func LuckyWheel_reveal () = {
240	240		let commitHeight = valueOrErrorMessage(getIntegerValue(LW_getBetKey(i)), "Bet not found")
241	241		if ((commitHeight > height))
242	242		then throw((("Wait " + toString((commitHeight - height))) + " blocks to reveal this id"))
243	243		else {
244	244		let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
245	245		let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
246	246		let randomHash = sha256(value(vrf))
247	247		let revealBlock2 = valueOrErrorMessage(blockInfoByHeight((commitHeight - 1)), "unexcpected error")
248	248		let vrf2 = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
249	249		let randomHash2 = sha256(value(vrf))
250	250		let random = (toInt(randomHash, 16) + (toInt(randomHash, 10) / toInt(randomHash, 5)))
251	251		let randomNumber = (random % 12)
252	252		let winningAmount = LW_whatUserWon(randomNumber)
253	253		let statusStr = (((("\| status: reveal \| winningAmount: " + toString(winningAmount)) + " \| selectedNumbers: ") + " \| randomNumber: ") + toString(randomNumber))
254	254		if ((winningAmount > 0))
255	255		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)]
256	256		else [DeleteEntry(LW_getBetKey(i)), IntegerEntry(LW_getWonKey(i), winningAmount), IntegerEntry(LW_getRandomNumberKey(i), randomNumber), StringEntry(LW_getStatusKey(i), statusStr)]
257	257		}
258	258		}
259	259
260	260

github/deemru/w8io/873ac7e 
58.93 ms ◑