tx · FnfbSCsqrD6k7dzUVjSBdMjkepWECVTbY66MsAwhCXak

3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX:  -0.01000000 Waves

2023.06.11 12:49 [2617864] smart account 3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FnfbSCsqrD6k7dzUVjSBdMjkepWECVTbY66MsAwhCXak",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1686477007261,
    "version": 2,
    "chainId": 84,
    "sender": "3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX",
    "senderPublicKey": "5iiNX4Sz3qZzcerumQLc1y7u9TH2X46jDV4f9Xivtmtv",
    "proofs": [
        "3NSiii1e2kaM9NSjfKYgTyRmQZ4FG1tmTLe8NMbARe68XhjtBzPbHqcMLG3FxtAiEdGyBH682LoDC4SUVJz7RkeW"
    ],
    "script": "base64:BgIECAISABwBCm51bVRvV2F2ZXMBA251bQkAaAIFA251bQCAwtcvAQtpc1BheW1lbnRPawIBaQNzdW0EEWFjY2VwdGFibGVBc3NldElkAQQTq9kzBAFwCQCRAwIIBQFpCHBheW1lbnRzAAADCQBnAggFAXAGYW1vdW50CQEKbnVtVG9XYXZlcwEFA3N1bQkAAAIIBQFwB2Fzc2V0SWQFBHVuaXQHAQttYXBJbnRUb1N0cgIFYWNjdW0EbmV4dAkAzAgCCQCkAwEFBG5leHQFBWFjY3VtAQttYXBTdHJUb0ludAIFYWNjdW0EbmV4dAkAzAgCCQENcGFyc2VJbnRWYWx1ZQEFBG5leHQFBWFjY3VtAQttYXBJbnRUb1N1bQIFYWNjdW0EbmV4dAkAZAIFBWFjY3VtBQRuZXh0AQxsaXN0SW50VG9TdW0BA2FycgoAAiRsBQNhcnIKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBC21hcEludFRvU3VtAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIBE2xpc3RJbnRUb0xpc3RTdHJpbmcBA2FycgoAAiRsBQNhcnIKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBC21hcEludFRvU3RyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIBE2xpc3RTdHJpbmdUb0xpc3RJbmcBA2FycgoAAiRsBQNhcnIKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBC21hcFN0clRvSW50AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIBGmxpc3RTdHJpbmdDb21wcmVzc1RvU3RyaW5nAQNhcnIJALkJAgUDYXJyAgF8ARxzdHJpbmdEZWNvbXByZXNzVG9MaXN0U3RyaW5nAQNzdHIJALUJAgUDc3RyAgF8ARdsaXN0SW50Q29tcHJlc3NUb1N0cmluZwEDYXJyCQC5CQIJARNsaXN0SW50VG9MaXN0U3RyaW5nAQUDYXJyAgF8ARlzdHJpbmdEZWNvbXByZXNzVG9MaXN0SW50AQZhcnJTdHIJARNsaXN0U3RyaW5nVG9MaXN0SW5nAQkAtQkCBQZhcnJTdHICAXwBCWdldFJhbmRvbQEMY29tbWl0SGVpZ2h0BAtyZXZlYWxCbG9jawkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDtBwEFDGNvbW1pdEhlaWdodAIRdW5leGNwZWN0ZWQgZXJyb3IEA3ZyZgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAULcmV2ZWFsQmxvY2sDdnJmAhF1bmV4Y3BlY3RlZCBlcnJvcgQKcmFuZG9tSGFzaAkA9wMBCQEFdmFsdWUBBQN2cmYEBGhhc2gJAGQCCQCyCQIFCnJhbmRvbUhhc2gAEAkAsgkCBQpyYW5kb21IYXNoAAIJAGoCBQRoYXNoACUBD1JfV2luQ2FsY3VsYXRvcgQMcmFuZG9tTnVtYmVyCWJldEFtb3VudBJzZWxlY3RlZE51bWJlckJldHMMYmV0RGlyZWN0aW9uBAtSRURfU0VDVE9SUwkAzAgCACAJAMwIAgATCQDMCAIAFQkAzAgCABkJAMwIAgAiCQDMCAIAGwkAzAgCACQJAMwIAgAeCQDMCAIAFwkAzAgCAAUJAMwIAgAQCQDMCAIAAQkAzAgCAA4JAMwIAgAJCQDMCAIAEgkAzAgCAAcJAMwIAgAMCQDMCAIAAwUDbmlsAwMJAAACCQCQAwEFEnNlbGVjdGVkTnVtYmVyQmV0cwABCQAAAgUMYmV0RGlyZWN0aW9uAgNudW0HAwkAAAIJAJEDAgUSc2VsZWN0ZWROdW1iZXJCZXRzAAAFDHJhbmRvbU51bWJlcgkAaAIFCWJldEFtb3VudAAkAAADCQAAAgkAkAMBBRJzZWxlY3RlZE51bWJlckJldHMAAgMJAQ9jb250YWluc0VsZW1lbnQCBRJzZWxlY3RlZE51bWJlckJldHMFDHJhbmRvbU51bWJlcgkAaAIFCWJldEFtb3VudAASAAADCQAAAgkAkAMBBRJzZWxlY3RlZE51bWJlckJldHMAAwMJAQ9jb250YWluc0VsZW1lbnQCBRJzZWxlY3RlZE51bWJlckJldHMFDHJhbmRvbU51bWJlcgkAaAIFCWJldEFtb3VudAAMAAADCQAAAgkAkAMBBRJzZWxlY3RlZE51bWJlckJldHMABAMJAQ9jb250YWluc0VsZW1lbnQCBRJzZWxlY3RlZE51bWJlckJldHMFDHJhbmRvbU51bWJlcgkAaAIFCWJldEFtb3VudAAJAAADCQAAAgkAkAMBBRJzZWxlY3RlZE51bWJlckJldHMADAMJAQ9jb250YWluc0VsZW1lbnQCBRJzZWxlY3RlZE51bWJlckJldHMFDHJhbmRvbU51bWJlcgkAaAIFCWJldEFtb3VudAADAAADCQAAAgUMYmV0RGlyZWN0aW9uAgNyZWQDCQEPY29udGFpbnNFbGVtZW50AgULUkVEX1NFQ1RPUlMFDHJhbmRvbU51bWJlcgkAaAIFCWJldEFtb3VudAACAAADCQAAAgUMYmV0RGlyZWN0aW9uAgVibGFjawMDCQEBIQEJAQ9jb250YWluc0VsZW1lbnQCBQtSRURfU0VDVE9SUwUMcmFuZG9tTnVtYmVyCQECIT0CBQxyYW5kb21OdW1iZXIAAAcJAGgCBQliZXRBbW91bnQAAgAAAwkAAAIFDGJldERpcmVjdGlvbgIDb2RkAwkBAiE9AgkAagIFDHJhbmRvbU51bWJlcgACAAAJAGgCBQliZXRBbW91bnQAAgAAAwkAAAIFDGJldERpcmVjdGlvbgIEZXZlbgMJAAACCQBqAgUMcmFuZG9tTnVtYmVyAAIAAAkAaAIFCWJldEFtb3VudAACAAADCQAAAgkAkAMBBRJzZWxlY3RlZE51bWJlckJldHMAEgMJAQ9jb250YWluc0VsZW1lbnQCBRJzZWxlY3RlZE51bWJlckJldHMFDHJhbmRvbU51bWJlcgkAaAIFCWJldEFtb3VudAACAAAAAAELUl9nZXRCZXRLZXkBAWkJAKwCAgINYmV0X1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXIBEVJfZ2V0QmV0QW1vdW50S2V5AQFpCQCsAgICE2JldEFtb3VudF9Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyARdSX2dldFNlbGVjdGVkTnVtYmVyc0tleQEBaQkArAICAhlzZWxlY3RlZE51bWJlcnNfUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgERUl9nZXREaXJlY3Rpb25LZXkBAWkJAKwCAgITZGlyZWN0aW9uX1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXIBC1JfZ2V0TG9nS2V5AQFpCQCsAgIJAKwCAgkArAICAg1sb2dfUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgIBXwkA2AQBCAUBaQ10cmFuc2FjdGlvbklkAQ5SX2dldFN0YXR1c0tleQEBaQkArAICAhBzdGF0dXNfUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgEMTFdfZ2V0QmV0S2V5AQFpCQCsAgICD2JldF9MdWNreVdoZWVsXwkApQgBCAUBaQZjYWxsZXIBDExXX2dldFdvbktleQEBaQkArAICAg93b25fTHVja3lXaGVlbF8JAKUIAQgFAWkGY2FsbGVyARVMV19nZXRSYW5kb21OdW1iZXJLZXkBAWkJAKwCAgIYcmFuZG9tTnVtYmVyX0x1Y2t5V2hlZWxfCQClCAEIBQFpBmNhbGxlcgEMTFdfZ2V0TG9nS2V5AQFpCQCsAgIJAKwCAgkArAICAg9sb2dfTHVja3lXaGVlbF8JAKUIAQgFAWkGY2FsbGVyAgFfCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQBDkxXX3doYXRVc2VyV29uAQV2YWx1ZQQHJG1hdGNoMAUFdmFsdWUDCQAAAgABBQckbWF0Y2gwCQEKbnVtVG9XYXZlcwEAAgMJAAACAAMFByRtYXRjaDAJAQpudW1Ub1dhdmVzAQABAwkAAAIABwUHJG1hdGNoMAkBCm51bVRvV2F2ZXMBAAYDCQAAAgAJBQckbWF0Y2gwCQEKbnVtVG9XYXZlcwEAAQAAAQ9MV19nZXRTdGF0dXNLZXkBAWkJAKwCAgIQc3RhdHVzX1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXIBA3h4eAIFYWNjdW0EbmV4dAQGcmFuZG9tCQEJZ2V0UmFuZG9tAQkAZQIFBmhlaWdodAUEbmV4dAQGcmVzdWx0CQEPUl9XaW5DYWxjdWxhdG9yBAUGcmFuZG9tAAEFA25pbAIFYmxhY2sJAGQCCQBlAgUFYWNjdW0AAQUGcmVzdWx0AQd0ZXN0UmVkAQNhcnIKAAIkbAUDYXJyCgACJHMJAJADAQUCJGwKAAUkYWNjMAAeCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQN4eHgCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDMwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAQFpAQRUZXN0AAQDcmVkCQEHdGVzdFJlZAEJAMwIAgABCQDMCAIAAgUDbmlsCQACAQkApAMBBQNyZWQAO4omfg==",
    "height": 2617864,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: J2LoZ1EtHS3mcwUxLMrh6PNAXsw5aZGwoG1xrQqUqmbF
Next: 144gX6ZSwgAfmGFFEQcxX7De7eYHLLFMU45CxYnnah5t

Diff: 

OldNewDifferences
8686     let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
8787     let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
8888     let randomHash = sha256(value(vrf))
89-    let hash = (toInt(randomHash, 16) - toInt(randomHash, 2))
89+    let hash = (toInt(randomHash, 16) + toInt(randomHash, 2))
9090     (hash % 37)
9191     }
9292 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 func numToWaves (num) = (num * 100000000)
55 
66 
77 func isPaymentOk (i,sum) = {
88     let acceptableAssetId = base58'WAVES'
99     let p = i.payments[0]
1010     if ((p.amount >= numToWaves(sum)))
1111         then (p.assetId == unit)
1212         else false
1313     }
1414 
1515 
1616 func mapIntToStr (accum,next) = toString(next) :: accum
1717 
1818 
1919 func mapStrToInt (accum,next) = parseIntValue(next) :: accum
2020 
2121 
2222 func mapIntToSum (accum,next) = (accum + next)
2323 
2424 
2525 func listIntToSum (arr) = {
2626     let $l = arr
2727     let $s = size($l)
2828     let $acc0 = 0
2929     func $f0_1 ($a,$i) =     if (($i >= $s))
3030         then $a
3131         else mapIntToSum($a, $l[$i])
3232 
3333     func $f0_2 ($a,$i) =     if (($i >= $s))
3434         then $a
3535         else throw("List size exceeds 50")
3636 
3737     $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)
3838     }
3939 
4040 
4141 func listIntToListString (arr) = {
4242     let $l = arr
4343     let $s = size($l)
4444     let $acc0 = nil
4545     func $f0_1 ($a,$i) =     if (($i >= $s))
4646         then $a
4747         else mapIntToStr($a, $l[$i])
4848 
4949     func $f0_2 ($a,$i) =     if (($i >= $s))
5050         then $a
5151         else throw("List size exceeds 50")
5252 
5353     $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)
5454     }
5555 
5656 
5757 func listStringToListIng (arr) = {
5858     let $l = arr
5959     let $s = size($l)
6060     let $acc0 = nil
6161     func $f0_1 ($a,$i) =     if (($i >= $s))
6262         then $a
6363         else mapStrToInt($a, $l[$i])
6464 
6565     func $f0_2 ($a,$i) =     if (($i >= $s))
6666         then $a
6767         else throw("List size exceeds 50")
6868 
6969     $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)
7070     }
7171 
7272 
7373 func listStringCompressToString (arr) = makeString(arr, "|")
7474 
7575 
7676 func stringDecompressToListString (str) = split(str, "|")
7777 
7878 
7979 func listIntCompressToString (arr) = makeString(listIntToListString(arr), "|")
8080 
8181 
8282 func stringDecompressToListInt (arrStr) = listStringToListIng(split(arrStr, "|"))
8383 
8484 
8585 func getRandom (commitHeight) = {
8686     let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
8787     let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
8888     let randomHash = sha256(value(vrf))
89-    let hash = (toInt(randomHash, 16) - toInt(randomHash, 2))
89+    let hash = (toInt(randomHash, 16) + toInt(randomHash, 2))
9090     (hash % 37)
9191     }
9292 
9393 
9494 func R_WinCalculator (randomNumber,betAmount,selectedNumberBets,betDirection) = {
9595     let RED_SECTORS = [32, 19, 21, 25, 34, 27, 36, 30, 23, 5, 16, 1, 14, 9, 18, 7, 12, 3]
9696     if (if ((size(selectedNumberBets) == 1))
9797         then (betDirection == "num")
9898         else false)
9999         then if ((selectedNumberBets[0] == randomNumber))
100100             then (betAmount * 36)
101101             else 0
102102         else if ((size(selectedNumberBets) == 2))
103103             then if (containsElement(selectedNumberBets, randomNumber))
104104                 then (betAmount * 18)
105105                 else 0
106106             else if ((size(selectedNumberBets) == 3))
107107                 then if (containsElement(selectedNumberBets, randomNumber))
108108                     then (betAmount * 12)
109109                     else 0
110110                 else if ((size(selectedNumberBets) == 4))
111111                     then if (containsElement(selectedNumberBets, randomNumber))
112112                         then (betAmount * 9)
113113                         else 0
114114                     else if ((size(selectedNumberBets) == 12))
115115                         then if (containsElement(selectedNumberBets, randomNumber))
116116                             then (betAmount * 3)
117117                             else 0
118118                         else if ((betDirection == "red"))
119119                             then if (containsElement(RED_SECTORS, randomNumber))
120120                                 then (betAmount * 2)
121121                                 else 0
122122                             else if ((betDirection == "black"))
123123                                 then if (if (!(containsElement(RED_SECTORS, randomNumber)))
124124                                     then (randomNumber != 0)
125125                                     else false)
126126                                     then (betAmount * 2)
127127                                     else 0
128128                                 else if ((betDirection == "odd"))
129129                                     then if (((randomNumber % 2) != 0))
130130                                         then (betAmount * 2)
131131                                         else 0
132132                                     else if ((betDirection == "even"))
133133                                         then if (((randomNumber % 2) == 0))
134134                                             then (betAmount * 2)
135135                                             else 0
136136                                         else if ((size(selectedNumberBets) == 18))
137137                                             then if (containsElement(selectedNumberBets, randomNumber))
138138                                                 then (betAmount * 2)
139139                                                 else 0
140140                                             else 0
141141     }
142142 
143143 
144144 func R_getBetKey (i) = ("bet_Roulette_" + toString(i.caller))
145145 
146146 
147147 func R_getBetAmountKey (i) = ("betAmount_Roulette_" + toString(i.caller))
148148 
149149 
150150 func R_getSelectedNumbersKey (i) = ("selectedNumbers_Roulette_" + toString(i.caller))
151151 
152152 
153153 func R_getDirectionKey (i) = ("direction_Roulette_" + toString(i.caller))
154154 
155155 
156156 func R_getLogKey (i) = ((("log_Roulette_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
157157 
158158 
159159 func R_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
160160 
161161 
162162 func LW_getBetKey (i) = ("bet_LuckyWheel_" + toString(i.caller))
163163 
164164 
165165 func LW_getWonKey (i) = ("won_LuckyWheel_" + toString(i.caller))
166166 
167167 
168168 func LW_getRandomNumberKey (i) = ("randomNumber_LuckyWheel_" + toString(i.caller))
169169 
170170 
171171 func LW_getLogKey (i) = ((("log_LuckyWheel_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
172172 
173173 
174174 func LW_whatUserWon (value) = match value {
175175     case _ => 
176176         if ((1 == $match0))
177177             then numToWaves(2)
178178             else if ((3 == $match0))
179179                 then numToWaves(1)
180180                 else if ((7 == $match0))
181181                     then numToWaves(6)
182182                     else if ((9 == $match0))
183183                         then numToWaves(1)
184184                         else 0
185185 }
186186 
187187 
188188 func LW_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
189189 
190190 
191191 func xxx (accum,next) = {
192192     let random = getRandom((height - next))
193193     let result = R_WinCalculator(random, 1, nil, "black")
194194     ((accum - 1) + result)
195195     }
196196 
197197 
198198 func testRed (arr) = {
199199     let $l = arr
200200     let $s = size($l)
201201     let $acc0 = 30
202202     func $f0_1 ($a,$i) =     if (($i >= $s))
203203         then $a
204204         else xxx($a, $l[$i])
205205 
206206     func $f0_2 ($a,$i) =     if (($i >= $s))
207207         then $a
208208         else throw("List size exceeds 30")
209209 
210210     $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($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)
211211     }
212212 
213213 
214214 @Callable(i)
215215 func Test () = {
216216     let red = testRed([1, 2])
217217     throw(toString(red))
218218     }
219219 
220220 
github/deemru/w8io/026f985 
78.73 ms ◑