w8 · tx · 8Ys···to6

tx · 8Ys4geCLmhMuMsMePPTcSHn2dv7ApYBeoeBk7akcyto6

3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU:  -0.01400000 Waves

2019.02.12 09:42 [491569] smart account 3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "8Ys4geCLmhMuMsMePPTcSHn2dv7ApYBeoeBk7akcyto6",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1549953749271,
    "version": 1,
    "sender": "3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU",
    "senderPublicKey": "H5rtwGVnkSHDfz6msD7itGURoKMXvvDwPoup1VESxfjJ",
    "proofs": [
        "2DXUFWcWF8anJZbLcwGfwA2zcRiDyJgvTYvyM1R5uKtkZiwxWiaCwWunkDWqi8vmzuXubzue5CVxNtYFXd4Gh36L"
    ],
    "script": "base64:AQQAAAACbWUIBQAAAAJ0eAAAAAZzZW5kZXIEAAAABm9yYWNsZQkBAAAAB2V4dHJhY3QAAAABCQEAAAARYWRkcmVzc0Zyb21TdHJpbmcAAAABAgAAACMzTkN6YVlUTkRHdFI4emY5eWZjcWVQRmpDcUZ4OVM1emhzNAQAAAAObWluV2l0aGRyYXdGZWUAAAAAAAAHoSAEAAAAEHJlZ2lzdGVyQmV0VHhGZWUAAAAAAAAHoSAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAp3aXRoZHJhd1R4BQAAAAckbWF0Y2gwBAAAAAR0eElkCQEAAAAHZXh0cmFjdAAAAAEJAAQdAAAAAgUAAAACbWUJAAEsAAAAAgkAAlgAAAABCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAECAAAACV93aXRoZHJhdwQAAAAHJG1hdGNoMQkAA+gAAAABCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAEDCQAAAQAAAAIFAAAAByRtYXRjaDECAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAACXBheW1lbnRUeAUAAAAHJG1hdGNoMQQAAAASaXNQYXltZW50VG9va1BsYWNlAwkAAAAAAAACBQAAAAR0eElkCQACWAAAAAEIBQAAAAJ0eAAAAAJpZAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAlwYXltZW50VHgAAAAPc2VuZGVyUHVibGljS2V5BwQAAAAHZmVlc0tleQkAASwAAAACCQACWAAAAAEJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAQIAAAAOX3dpdGhkcmF3X2ZlZXMEAAAAC2RhdGFUeHNGZWVzCQEAAAAHZXh0cmFjdAAAAAEJAAQaAAAAAgUAAAACbWUFAAAAB2ZlZXNLZXkEAAAABWd1ZXNzCQEAAAAHZXh0cmFjdAAAAAEJAAQcAAAAAgUAAAACbWUJAAJYAAAAAQkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAABBAAAAAR0eXBlCQAAyQAAAAIFAAAABWd1ZXNzAAAAAAAAAAABBAAAAAN2YWwJAADKAAAAAgUAAAAFZ3Vlc3MAAAAAAAAAAAEEAAAAA2tleQkBAAAAB2V4dHJhY3QAAAABCQAEHQAAAAIFAAAAAm1lCQABLAAAAAIJAAJYAAAAAQkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAABAgAAAAZfcm91bmQEAAAACnZhbENvbXBsZXgJAQAAAAdleHRyYWN0AAAAAQkABBwAAAACBQAAAAZvcmFjbGUFAAAAA2tleQQAAAAFa29lZmYDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAjAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAQAAAAAAAAAABwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAIAAAAAAAAAAAcAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAADAAAAAAAAAAAHAAAAAAAAAAACAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAABAAAAAAAAAAABwAAAAAAAAAAAwMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAUAAAAAAAAAAAcAAAAAAAAAAAMAAAAAAAAAAAAEAAAADWNvcnJlY3RBbW91bnQJAABlAAAAAgkAAGUAAAACCQAAaAAAAAIJAABlAAAAAggFAAAACXBheW1lbnRUeAAAAAZhbW91bnQFAAAAEHJlZ2lzdGVyQmV0VHhGZWUFAAAABWtvZWZmBQAAAAtkYXRhVHhzRmVlcwgFAAAACndpdGhkcmF3VHgAAAADZmVlBAAAAAppc0Ftb3VudE9rCQAAAAAAAAIIBQAAAAp3aXRoZHJhd1R4AAAABmFtb3VudAUAAAANY29ycmVjdEFtb3VudAQAAAAJaXNJbldhdmVzAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAACndpdGhkcmF3VHgAAAAKZmVlQXNzZXRJZAkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAACndpdGhkcmF3VHgAAAAHYXNzZXRJZAcDAwUAAAASaXNQYXltZW50VG9va1BsYWNlBQAAAAppc0Ftb3VudE9rBwUAAAAJaXNJbldhdmVzBwcDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgQAAAADZHR4BQAAAAckbWF0Y2gwAwkAAAAAAAACCQABkAAAAAEIBQAAAANkdHgAAAAEZGF0YQAAAAAAAAAAAgQAAAANaXNEYXRhQ291bnRPawkAAAAAAAACCQABkAAAAAEIBQAAAANkdHgAAAAEZGF0YQAAAAAAAAAAAgQAAAAOcGF5bWVudFR4SWRTdHIJAQAAAAlkcm9wUmlnaHQAAAACCQEAAAAHZXh0cmFjdAAAAAEICQABkQAAAAIIBQAAAANkdHgAAAAEZGF0YQAAAAAAAAAAAAAAAANrZXkAAAAAAAAAAAkEAAAAB2ZlZXNLZXkJAAEsAAAAAgUAAAAOcGF5bWVudFR4SWRTdHICAAAADl93aXRoZHJhd19mZWVzBAAAAAlwYXltZW50VHgJAAPoAAAAAQkAAlkAAAABBQAAAA5wYXltZW50VHhJZFN0cgQAAAAHbmV3RmVlcwkBAAAAB2V4dHJhY3QAAAABCQAEEAAAAAIIBQAAAANkdHgAAAAEZGF0YQUAAAAHZmVlc0tleQQAAAALb2xkRmVlc1VuaXQJAAQaAAAAAgUAAAACbWUFAAAAB2ZlZXNLZXkEAAAAB29sZEZlZXMDCQEAAAAJaXNEZWZpbmVkAAAAAQUAAAALb2xkRmVlc1VuaXQJAQAAAAdleHRyYWN0AAAAAQUAAAALb2xkRmVlc1VuaXQAAAAAAAAAAAAEAAAADGlzRmVlQ29ycmVjdAkAAAAAAAACBQAAAAduZXdGZWVzCQAAZAAAAAIFAAAAB29sZEZlZXMIBQAAAANkdHgAAAADZmVlBAAAABB3aXRoZHJhd1R4SWRVbml0CQAEHQAAAAIFAAAAAm1lBQAAAA5wYXltZW50VHhJZFN0cgQAAAAZaXNQYXltZW50QWxyZWFkeU1lbnRpb25lZAkBAAAACWlzRGVmaW5lZAAAAAEFAAAAEHdpdGhkcmF3VHhJZFVuaXQEAAAAFXdpdGhkcmF3VHJhbnNhY3Rpb25JZAkAAlkAAAABCQEAAAAHZXh0cmFjdAAAAAEFAAAAEHdpdGhkcmF3VHhJZFVuaXQEAAAAByRtYXRjaDEFAAAACXBheW1lbnRUeAMJAAABAAAAAgUAAAAHJG1hdGNoMQIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAAJcGF5bWVudFR4BQAAAAckbWF0Y2gxBAAAABJpc0R0eFNpZ25lZEJ5UGF5ZXIJAAH0AAAAAwgFAAAAA2R0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAA2R0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAlwYXltZW50VHgAAAAPc2VuZGVyUHVibGljS2V5AwMDAwMJAAAAAAAAAgkABCQAAAABCAUAAAAJcGF5bWVudFR4AAAACXJlY2lwaWVudAUAAAACbWUDCQEAAAABIQAAAAEFAAAAGWlzUGF5bWVudEFscmVhZHlNZW50aW9uZWQGCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABCQAD6AAAAAEFAAAAFXdpdGhkcmF3VHJhbnNhY3Rpb25JZAcFAAAAEmlzRHR4U2lnbmVkQnlQYXllcgcFAAAADGlzRmVlQ29ycmVjdAcFAAAADWlzRGF0YUNvdW50T2sHBAAAAAVndWVzcwkBAAAAB2V4dHJhY3QAAAABCQAEHAAAAAIFAAAAAm1lBQAAAA5wYXltZW50VHhJZFN0cgQAAAAEdHlwZQkAAMkAAAACBQAAAAVndWVzcwAAAAAAAAAAAQQAAAADa2V5CQEAAAAHZXh0cmFjdAAAAAEJAAQdAAAAAgUAAAACbWUJAAEsAAAAAgUAAAAOcGF5bWVudFR4SWRTdHICAAAABl9yb3VuZAQAAAAKaXRzVG9vTGF0ZQkBAAAACWlzRGVmaW5lZAAAAAEJAAQdAAAAAgUAAAACbWUJAAEsAAAAAgUAAAADa2V5AgAAAAVfc3RvcAQAAAAKdmFsQ29tcGxleAkBAAAAB2V4dHJhY3QAAAABCQAEHAAAAAIFAAAABm9yYWNsZQUAAAADa2V5BAAAAAVrb2VmZgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAAAAAAAAAAAAAcAAAAAAAAAACMDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAABAAAAAAAAAAAHAAAAAAAAAAACAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAgAAAAAAAAAABwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAMAAAAAAAAAAAcAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAEAAAAAAAAAAAHAAAAAAAAAAADAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAABQAAAAAAAAAABwAAAAAAAAAAAwAAAAAAAAAAAAQAAAAHdmFsUmVhbAMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAAAAAAAAAAAAAcJAADKAAAAAgkAAMkAAAACBQAAAAp2YWxDb21wbGV4AAAAAAAAAAACAAAAAAAAAAABAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAQAAAAAAAAAABwkAAMoAAAACCQAAyQAAAAIFAAAACnZhbENvbXBsZXgAAAAAAAAAAAMAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAACAAAAAAAAAAAHCQAAygAAAAIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAABAAAAAAAAAAAAwMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAMAAAAAAAAAAAcJAADKAAAAAgkAAMkAAAACBQAAAAp2YWxDb21wbGV4AAAAAAAAAAAFAAAAAAAAAAAEAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAABAAAAAAAAAAABwkAAMoAAAACCQAAyQAAAAIFAAAACnZhbENvbXBsZXgAAAAAAAAAAAYAAAAAAAAAAAUDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAFAAAAAAAAAAAHCQAAygAAAAIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAABwAAAAAAAAAABgkAAAIAAAABAgAAACBJbmNvcnJlY3QgdHlwZSBvZiBndWVzcyBwcm92aWRlZAQAAAAFaXNXaW4JAAAAAAAAAgkAAMoAAAACBQAAAAVndWVzcwAAAAAAAAAAAQUAAAAHdmFsUmVhbAQAAAASaXNNb25leVN0aWxsRW5vdWdoCQAAZgAAAAIJAABkAAAAAgkAAGgAAAACCQAAZQAAAAIIBQAAAAlwYXltZW50VHgAAAAGYW1vdW50BQAAABByZWdpc3RlckJldFR4RmVlBQAAAAVrb2VmZgUAAAAObWluV2l0aGRyYXdGZWUFAAAAB25ld0ZlZXMDAwUAAAAFaXNXaW4FAAAAEmlzTW9uZXlTdGlsbEVub3VnaAcJAQAAAAEhAAAAAQUAAAAKaXRzVG9vTGF0ZQcHBwMJAAAAAAAAAgkAAZAAAAABCAUAAAADZHR4AAAABGRhdGEAAAAAAAAAAAMEAAAABm1pbkJldAAAAAAAAvrwgAQAAAAJbWF4U3VtQmV0AAAAAAA7msoABAAAAA5wYXltZW50VHhJZFN0cgkBAAAAB2V4dHJhY3QAAAABCAkAAZEAAAACCAUAAAADZHR4AAAABGRhdGEAAAAAAAAAAAAAAAADa2V5BAAAAAhndWVzc1N0cgkBAAAAB2V4dHJhY3QAAAABCQAEEwAAAAIIBQAAAANkdHgAAAAEZGF0YQUAAAAOcGF5bWVudFR4SWRTdHIEAAAAD3BheW1lbnRSb3VuZEtleQkAASwAAAACBQAAAA5wYXltZW50VHhJZFN0cgIAAAAGX3JvdW5kBAAAAAxwYXltZW50Um91bmQJAQAAAAdleHRyYWN0AAAAAQkABBMAAAACCAUAAAADZHR4AAAABGRhdGEFAAAAD3BheW1lbnRSb3VuZEtleQQAAAAKc3VtQmV0c09sZAMJAQAAAAlpc0RlZmluZWQAAAABCQAEGgAAAAIFAAAAAm1lCQABLAAAAAIFAAAADHBheW1lbnRSb3VuZAIAAAAIX2JldHNTdW0JAQAAAAdleHRyYWN0AAAAAQkABBoAAAACBQAAAAJtZQkAASwAAAACBQAAAAxwYXltZW50Um91bmQCAAAACF9iZXRzU3VtAAAAAAAAAAAABAAAAApzdW1CZXRzTmV3CQEAAAAHZXh0cmFjdAAAAAEJAAQQAAAAAggFAAAAA2R0eAAAAARkYXRhCQABLAAAAAIFAAAADHBheW1lbnRSb3VuZAIAAAAIX2JldHNTdW0EAAAAGWlzUGF5bWVudEFscmVhZHlNZW50aW9uZWQJAQAAAAlpc0RlZmluZWQAAAABCQAEHQAAAAIFAAAAAm1lBQAAAA5wYXltZW50VHhJZFN0cgQAAAAJcGF5bWVudFR4CQAD6AAAAAEJAAJZAAAAAQUAAAAOcGF5bWVudFR4SWRTdHIEAAAAByRtYXRjaDEFAAAACXBheW1lbnRUeAMJAAABAAAAAgUAAAAHJG1hdGNoMQIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAAJcGF5bWVudFR4BQAAAAckbWF0Y2gxBAAAABJpc0R0eFNpZ25lZEJ5UGF5ZXIJAAH0AAAAAwgFAAAAA2R0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAA2R0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAlwYXltZW50VHgAAAAPc2VuZGVyUHVibGljS2V5BAAAAA5jb3JyZWN0U3VtQmV0cwkAAGUAAAACCQAAZAAAAAIFAAAACnN1bUJldHNPbGQIBQAAAAlwYXltZW50VHgAAAAGYW1vdW50CAUAAAADZHR4AAAAA2ZlZQMDAwMJAAAAAAAAAgkABCQAAAABCAUAAAAJcGF5bWVudFR4AAAACXJlY2lwaWVudAUAAAACbWUJAQAAAAEhAAAAAQUAAAAZaXNQYXltZW50QWxyZWFkeU1lbnRpb25lZAcDCQAAAAAAAAIFAAAACnN1bUJldHNOZXcFAAAADmNvcnJlY3RTdW1CZXRzBgkAAAIAAAABCQABLAAAAAICAAAAJVdyb25nIHZhbHVlIGZvciBTdW0gb2YgQmV0cy4gTXVzdCBiZSAJAAGkAAAAAQUAAAAOY29ycmVjdFN1bUJldHMHAwkAAGYAAAACBQAAAAltYXhTdW1CZXQFAAAACnN1bUJldHNOZXcGCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAIU1heGltdW0gYW1vdW50IG9mIGJldHMgZm9yIHJvdW5kIAkAAaQAAAABBQAAAAltYXhTdW1CZXQCAAAAFS4gV2l0aCB5b3VyIGJldCBpdCdzIAkAAaQAAAABBQAAAApzdW1CZXRzTmV3BwMJAAAAAAAAAggFAAAAA2R0eAAAAANmZWUFAAAAEHJlZ2lzdGVyQmV0VHhGZWUGCQAAAgAAAAEJAAEsAAAAAgIAAAAxRmVlIG9mIGJldCByZWdpc3RyYXRpb24gZGF0YSB0cmFuc2FjdGlvbiBtdXN0IGJlIAkAAaQAAAABBQAAABByZWdpc3RlckJldFR4RmVlBwcHCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleRkz/AY=",
    "chainId": 84,
    "height": 491569,
    "spentComplexity": 0
}

View: original | compacted
Prev: 66nNqdLPueRaCxaNT7KupeQL7LvJ4R9C5ZhHK393AyUr
Next: BDFs5ipHmHPQhEhdLEJr4PSWWBPtwsWJXK3nnXW59LZC

Diff: 
Old New Differences
32 32                                      else if ((type == drop(toBytes(5), 7)))
33 33                                          then 3
34 34                                          else 0
35 -                 let correctAmount = (((paymentTx.amount * koeff) - dataTxsFees) - withdrawTx.fee)
35 +                 let correctAmount = ((((paymentTx.amount - registerBetTxFee) * koeff) - dataTxsFees) - withdrawTx.fee)
36 36                  let isAmountOk = (withdrawTx.amount == correctAmount)
37 37                  let isInWaves = if (!(isDefined(withdrawTx.feeAssetId)))
38 38                      then !(isDefined(withdrawTx.assetId))
108 108                                                          then drop(take(valComplex, 7), 6)
109 109                                                          else throw("Incorrect type of guess provided")
110 110                                  let isWin = (drop(guess, 1) == valReal)
111 -                                 let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
111 +                                 let isMoneyStillEnough = ((((paymentTx.amount - registerBetTxFee) * koeff) + minWithdrawFee) > newFees)
112 112                                  if (if (isWin)
113 113                                      then isMoneyStillEnough
114 114                                      else false)
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 1 #-}
2 2  {-# CONTENT_TYPE EXPRESSION #-}
3 3  let me = tx.sender
4 4  let oracle = extract(addressFromString("3NCzaYTNDGtR8zf9yfcqePFjCqFx9S5zhs4"))
5 5  let minWithdrawFee = 500000
6 6  let registerBetTxFee = 500000
7 7  match tx {
8 8      case withdrawTx: TransferTransaction => 
9 9          let txId = extract(getString(me, (toBase58String(tx.proofs[1]) + "_withdraw")))
10 10          match transactionById(tx.proofs[1]) {
11 11              case paymentTx: TransferTransaction => 
12 12                  let isPaymentTookPlace = if ((txId == toBase58String(tx.id)))
13 13                      then sigVerify(tx.bodyBytes, tx.proofs[0], paymentTx.senderPublicKey)
14 14                      else false
15 15                  let feesKey = (toBase58String(tx.proofs[1]) + "_withdraw_fees")
16 16                  let dataTxsFees = extract(getInteger(me, feesKey))
17 17                  let guess = extract(getBinary(me, toBase58String(tx.proofs[1])))
18 18                  let type = take(guess, 1)
19 19                  let val = drop(guess, 1)
20 20                  let key = extract(getString(me, (toBase58String(tx.proofs[1]) + "_round")))
21 21                  let valComplex = extract(getBinary(oracle, key))
22 22                  let koeff = if ((type == drop(toBytes(0), 7)))
23 23                      then 35
24 24                      else if ((type == drop(toBytes(1), 7)))
25 25                          then 2
26 26                          else if ((type == drop(toBytes(2), 7)))
27 27                              then 2
28 28                              else if ((type == drop(toBytes(3), 7)))
29 29                                  then 2
30 30                                  else if ((type == drop(toBytes(4), 7)))
31 31                                      then 3
32 32                                      else if ((type == drop(toBytes(5), 7)))
33 33                                          then 3
34 34                                          else 0
35 -                 let correctAmount = (((paymentTx.amount * koeff) - dataTxsFees) - withdrawTx.fee)
35 +                 let correctAmount = ((((paymentTx.amount - registerBetTxFee) * koeff) - dataTxsFees) - withdrawTx.fee)
36 36                  let isAmountOk = (withdrawTx.amount == correctAmount)
37 37                  let isInWaves = if (!(isDefined(withdrawTx.feeAssetId)))
38 38                      then !(isDefined(withdrawTx.assetId))
39 39                      else false
40 40                  if (if (isPaymentTookPlace)
41 41                      then isAmountOk
42 42                      else false)
43 43                      then isInWaves
44 44                      else false
45 45              case _ => 
46 46                  false
47 47          }
48 48      case dtx: DataTransaction => 
49 49          if ((size(dtx.data) == 2))
50 50              then {
51 51                  let isDataCountOk = (size(dtx.data) == 2)
52 52                  let paymentTxIdStr = dropRight(extract(dtx.data[0].key), 9)
53 53                  let feesKey = (paymentTxIdStr + "_withdraw_fees")
54 54                  let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
55 55                  let newFees = extract(getInteger(dtx.data, feesKey))
56 56                  let oldFeesUnit = getInteger(me, feesKey)
57 57                  let oldFees = if (isDefined(oldFeesUnit))
58 58                      then extract(oldFeesUnit)
59 59                      else 0
60 60                  let isFeeCorrect = (newFees == (oldFees + dtx.fee))
61 61                  let withdrawTxIdUnit = getString(me, paymentTxIdStr)
62 62                  let isPaymentAlreadyMentioned = isDefined(withdrawTxIdUnit)
63 63                  let withdrawTransactionId = fromBase58String(extract(withdrawTxIdUnit))
64 64                  match paymentTx {
65 65                      case paymentTx: TransferTransaction => 
66 66                          let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
67 67                          if (if (if (if (if ((addressFromRecipient(paymentTx.recipient) == me))
68 68                              then if (!(isPaymentAlreadyMentioned))
69 69                                  then true
70 70                                  else !(isDefined(transactionById(withdrawTransactionId)))
71 71                              else false)
72 72                              then isDtxSignedByPayer
73 73                              else false)
74 74                              then isFeeCorrect
75 75                              else false)
76 76                              then isDataCountOk
77 77                              else false)
78 78                              then {
79 79                                  let guess = extract(getBinary(me, paymentTxIdStr))
80 80                                  let type = take(guess, 1)
81 81                                  let key = extract(getString(me, (paymentTxIdStr + "_round")))
82 82                                  let itsTooLate = isDefined(getString(me, (key + "_stop")))
83 83                                  let valComplex = extract(getBinary(oracle, key))
84 84                                  let koeff = if ((type == drop(toBytes(0), 7)))
85 85                                      then 35
86 86                                      else if ((type == drop(toBytes(1), 7)))
87 87                                          then 2
88 88                                          else if ((type == drop(toBytes(2), 7)))
89 89                                              then 2
90 90                                              else if ((type == drop(toBytes(3), 7)))
91 91                                                  then 2
92 92                                                  else if ((type == drop(toBytes(4), 7)))
93 93                                                      then 3
94 94                                                      else if ((type == drop(toBytes(5), 7)))
95 95                                                          then 3
96 96                                                          else 0
97 97                                  let valReal = if ((type == drop(toBytes(0), 7)))
98 98                                      then drop(take(valComplex, 2), 1)
99 99                                      else if ((type == drop(toBytes(1), 7)))
100 100                                          then drop(take(valComplex, 3), 2)
101 101                                          else if ((type == drop(toBytes(2), 7)))
102 102                                              then drop(take(valComplex, 4), 3)
103 103                                              else if ((type == drop(toBytes(3), 7)))
104 104                                                  then drop(take(valComplex, 5), 4)
105 105                                                  else if ((type == drop(toBytes(4), 7)))
106 106                                                      then drop(take(valComplex, 6), 5)
107 107                                                      else if ((type == drop(toBytes(5), 7)))
108 108                                                          then drop(take(valComplex, 7), 6)
109 109                                                          else throw("Incorrect type of guess provided")
110 110                                  let isWin = (drop(guess, 1) == valReal)
111 -                                 let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
111 +                                 let isMoneyStillEnough = ((((paymentTx.amount - registerBetTxFee) * koeff) + minWithdrawFee) > newFees)
112 112                                  if (if (isWin)
113 113                                      then isMoneyStillEnough
114 114                                      else false)
115 115                                      then !(itsTooLate)
116 116                                      else false
117 117                                  }
118 118                              else false
119 119                      case _ => 
120 120                          false
121 121                  }
122 122                  }
123 123              else if ((size(dtx.data) == 3))
124 124                  then {
125 125                      let minBet = 50000000
126 126                      let maxSumBet = 1000000000
127 127                      let paymentTxIdStr = extract(dtx.data[0].key)
128 128                      let guessStr = extract(getString(dtx.data, paymentTxIdStr))
129 129                      let paymentRoundKey = (paymentTxIdStr + "_round")
130 130                      let paymentRound = extract(getString(dtx.data, paymentRoundKey))
131 131                      let sumBetsOld = if (isDefined(getInteger(me, (paymentRound + "_betsSum"))))
132 132                          then extract(getInteger(me, (paymentRound + "_betsSum")))
133 133                          else 0
134 134                      let sumBetsNew = extract(getInteger(dtx.data, (paymentRound + "_betsSum")))
135 135                      let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
136 136                      let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
137 137                      match paymentTx {
138 138                          case paymentTx: TransferTransaction => 
139 139                              let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
140 140                              let correctSumBets = ((sumBetsOld + paymentTx.amount) - dtx.fee)
141 141                              if (if (if (if ((addressFromRecipient(paymentTx.recipient) == me))
142 142                                  then !(isPaymentAlreadyMentioned)
143 143                                  else false)
144 144                                  then if ((sumBetsNew == correctSumBets))
145 145                                      then true
146 146                                      else throw(("Wrong value for Sum of Bets. Must be " + toString(correctSumBets)))
147 147                                  else false)
148 148                                  then if ((maxSumBet > sumBetsNew))
149 149                                      then true
150 150                                      else throw(((("Maximum amount of bets for round " + toString(maxSumBet)) + ". With your bet it's ") + toString(sumBetsNew)))
151 151                                  else false)
152 152                                  then if ((dtx.fee == registerBetTxFee))
153 153                                      then true
154 154                                      else throw(("Fee of bet registration data transaction must be " + toString(registerBetTxFee)))
155 155                                  else false
156 156                          case _ => 
157 157                              false
158 158                      }
159 159                      }
160 160                  else false
161 161      case _ => 
162 162          sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
163 163  }

Old	New		Differences
32	32		else if ((type == drop(toBytes(5), 7)))
33	33		then 3
34	34		else 0
35		-	let correctAmount = (((paymentTx.amount * koeff) - dataTxsFees) - withdrawTx.fee)
	35	+	let correctAmount = ((((paymentTx.amount - registerBetTxFee) * koeff) - dataTxsFees) - withdrawTx.fee)
36	36		let isAmountOk = (withdrawTx.amount == correctAmount)
37	37		let isInWaves = if (!(isDefined(withdrawTx.feeAssetId)))
38	38		then !(isDefined(withdrawTx.assetId))

108	108		then drop(take(valComplex, 7), 6)
109	109		else throw("Incorrect type of guess provided")
110	110		let isWin = (drop(guess, 1) == valReal)
111		-	let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
	111	+	let isMoneyStillEnough = ((((paymentTx.amount - registerBetTxFee) * koeff) + minWithdrawFee) > newFees)
112	112		if (if (isWin)
113	113		then isMoneyStillEnough
114	114		else false)

Old	New		Differences
1	1		{-# STDLIB_VERSION 1 #-}
2	2		{-# CONTENT_TYPE EXPRESSION #-}
3	3		let me = tx.sender
4	4		let oracle = extract(addressFromString("3NCzaYTNDGtR8zf9yfcqePFjCqFx9S5zhs4"))
5	5		let minWithdrawFee = 500000
6	6		let registerBetTxFee = 500000
7	7		match tx {
8	8		case withdrawTx: TransferTransaction =>
9	9		let txId = extract(getString(me, (toBase58String(tx.proofs[1]) + "_withdraw")))
10	10		match transactionById(tx.proofs[1]) {
11	11		case paymentTx: TransferTransaction =>
12	12		let isPaymentTookPlace = if ((txId == toBase58String(tx.id)))
13	13		then sigVerify(tx.bodyBytes, tx.proofs[0], paymentTx.senderPublicKey)
14	14		else false
15	15		let feesKey = (toBase58String(tx.proofs[1]) + "_withdraw_fees")
16	16		let dataTxsFees = extract(getInteger(me, feesKey))
17	17		let guess = extract(getBinary(me, toBase58String(tx.proofs[1])))
18	18		let type = take(guess, 1)
19	19		let val = drop(guess, 1)
20	20		let key = extract(getString(me, (toBase58String(tx.proofs[1]) + "_round")))
21	21		let valComplex = extract(getBinary(oracle, key))
22	22		let koeff = if ((type == drop(toBytes(0), 7)))
23	23		then 35
24	24		else if ((type == drop(toBytes(1), 7)))
25	25		then 2
26	26		else if ((type == drop(toBytes(2), 7)))
27	27		then 2
28	28		else if ((type == drop(toBytes(3), 7)))
29	29		then 2
30	30		else if ((type == drop(toBytes(4), 7)))
31	31		then 3
32	32		else if ((type == drop(toBytes(5), 7)))
33	33		then 3
34	34		else 0
35		-	let correctAmount = (((paymentTx.amount * koeff) - dataTxsFees) - withdrawTx.fee)
	35	+	let correctAmount = ((((paymentTx.amount - registerBetTxFee) * koeff) - dataTxsFees) - withdrawTx.fee)
36	36		let isAmountOk = (withdrawTx.amount == correctAmount)
37	37		let isInWaves = if (!(isDefined(withdrawTx.feeAssetId)))
38	38		then !(isDefined(withdrawTx.assetId))
39	39		else false
40	40		if (if (isPaymentTookPlace)
41	41		then isAmountOk
42	42		else false)
43	43		then isInWaves
44	44		else false
45	45		case _ =>
46	46		false
47	47		}
48	48		case dtx: DataTransaction =>
49	49		if ((size(dtx.data) == 2))
50	50		then {
51	51		let isDataCountOk = (size(dtx.data) == 2)
52	52		let paymentTxIdStr = dropRight(extract(dtx.data[0].key), 9)
53	53		let feesKey = (paymentTxIdStr + "_withdraw_fees")
54	54		let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
55	55		let newFees = extract(getInteger(dtx.data, feesKey))
56	56		let oldFeesUnit = getInteger(me, feesKey)
57	57		let oldFees = if (isDefined(oldFeesUnit))
58	58		then extract(oldFeesUnit)
59	59		else 0
60	60		let isFeeCorrect = (newFees == (oldFees + dtx.fee))
61	61		let withdrawTxIdUnit = getString(me, paymentTxIdStr)
62	62		let isPaymentAlreadyMentioned = isDefined(withdrawTxIdUnit)
63	63		let withdrawTransactionId = fromBase58String(extract(withdrawTxIdUnit))
64	64		match paymentTx {
65	65		case paymentTx: TransferTransaction =>
66	66		let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
67	67		if (if (if (if (if ((addressFromRecipient(paymentTx.recipient) == me))
68	68		then if (!(isPaymentAlreadyMentioned))
69	69		then true
70	70		else !(isDefined(transactionById(withdrawTransactionId)))
71	71		else false)
72	72		then isDtxSignedByPayer
73	73		else false)
74	74		then isFeeCorrect
75	75		else false)
76	76		then isDataCountOk
77	77		else false)
78	78		then {
79	79		let guess = extract(getBinary(me, paymentTxIdStr))
80	80		let type = take(guess, 1)
81	81		let key = extract(getString(me, (paymentTxIdStr + "_round")))
82	82		let itsTooLate = isDefined(getString(me, (key + "_stop")))
83	83		let valComplex = extract(getBinary(oracle, key))
84	84		let koeff = if ((type == drop(toBytes(0), 7)))
85	85		then 35
86	86		else if ((type == drop(toBytes(1), 7)))
87	87		then 2
88	88		else if ((type == drop(toBytes(2), 7)))
89	89		then 2
90	90		else if ((type == drop(toBytes(3), 7)))
91	91		then 2
92	92		else if ((type == drop(toBytes(4), 7)))
93	93		then 3
94	94		else if ((type == drop(toBytes(5), 7)))
95	95		then 3
96	96		else 0
97	97		let valReal = if ((type == drop(toBytes(0), 7)))
98	98		then drop(take(valComplex, 2), 1)
99	99		else if ((type == drop(toBytes(1), 7)))
100	100		then drop(take(valComplex, 3), 2)
101	101		else if ((type == drop(toBytes(2), 7)))
102	102		then drop(take(valComplex, 4), 3)
103	103		else if ((type == drop(toBytes(3), 7)))
104	104		then drop(take(valComplex, 5), 4)
105	105		else if ((type == drop(toBytes(4), 7)))
106	106		then drop(take(valComplex, 6), 5)
107	107		else if ((type == drop(toBytes(5), 7)))
108	108		then drop(take(valComplex, 7), 6)
109	109		else throw("Incorrect type of guess provided")
110	110		let isWin = (drop(guess, 1) == valReal)
111		-	let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
	111	+	let isMoneyStillEnough = ((((paymentTx.amount - registerBetTxFee) * koeff) + minWithdrawFee) > newFees)
112	112		if (if (isWin)
113	113		then isMoneyStillEnough
114	114		else false)
115	115		then !(itsTooLate)
116	116		else false
117	117		}
118	118		else false
119	119		case _ =>
120	120		false
121	121		}
122	122		}
123	123		else if ((size(dtx.data) == 3))
124	124		then {
125	125		let minBet = 50000000
126	126		let maxSumBet = 1000000000
127	127		let paymentTxIdStr = extract(dtx.data[0].key)
128	128		let guessStr = extract(getString(dtx.data, paymentTxIdStr))
129	129		let paymentRoundKey = (paymentTxIdStr + "_round")
130	130		let paymentRound = extract(getString(dtx.data, paymentRoundKey))
131	131		let sumBetsOld = if (isDefined(getInteger(me, (paymentRound + "_betsSum"))))
132	132		then extract(getInteger(me, (paymentRound + "_betsSum")))
133	133		else 0
134	134		let sumBetsNew = extract(getInteger(dtx.data, (paymentRound + "_betsSum")))
135	135		let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
136	136		let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
137	137		match paymentTx {
138	138		case paymentTx: TransferTransaction =>
139	139		let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
140	140		let correctSumBets = ((sumBetsOld + paymentTx.amount) - dtx.fee)
141	141		if (if (if (if ((addressFromRecipient(paymentTx.recipient) == me))
142	142		then !(isPaymentAlreadyMentioned)
143	143		else false)
144	144		then if ((sumBetsNew == correctSumBets))
145	145		then true
146	146		else throw(("Wrong value for Sum of Bets. Must be " + toString(correctSumBets)))
147	147		else false)
148	148		then if ((maxSumBet > sumBetsNew))
149	149		then true
150	150		else throw(((("Maximum amount of bets for round " + toString(maxSumBet)) + ". With your bet it's ") + toString(sumBetsNew)))
151	151		else false)
152	152		then if ((dtx.fee == registerBetTxFee))
153	153		then true
154	154		else throw(("Fee of bet registration data transaction must be " + toString(registerBetTxFee)))
155	155		else false
156	156		case _ =>
157	157		false
158	158		}
159	159		}
160	160		else false
161	161		case _ =>
162	162		sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
163	163		}

github/deemru/w8io/169f3d6 
70.00 ms ◑