w8 · tx · 6Yc···Lxj

tx · 6Yc8haJb6FhejVevVQmE9NuDfEEFRgb51UbKFGGXVLxj

3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU:  -0.01400000 Waves

2019.02.10 19:41 [489294] smart account 3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6Yc8haJb6FhejVevVQmE9NuDfEEFRgb51UbKFGGXVLxj",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1549816877058,
    "version": 1,
    "sender": "3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU",
    "senderPublicKey": "H5rtwGVnkSHDfz6msD7itGURoKMXvvDwPoup1VESxfjJ",
    "proofs": [
        "2ayoGN75tQ1BvC11xxG7y54FjPZmTB4QpPak5RFcbsHvFTsZTyMTZTC2eAHckXzwxhaYPqaJa9c1dxUCfjGPiDhb"
    ],
    "script": "base64:AQQAAAACbWUIBQAAAAJ0eAAAAAZzZW5kZXIEAAAABm9yYWNsZQkBAAAAB2V4dHJhY3QAAAABCQEAAAARYWRkcmVzc0Zyb21TdHJpbmcAAAABAgAAACMzTkN6YVlUTkRHdFI4emY5eWZjcWVQRmpDcUZ4OVM1emhzNAQAAAAObWluV2l0aGRyYXdGZWUAAAAAAAAGGoAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAp3aXRoZHJhd1R4BQAAAAckbWF0Y2gwBAAAAAR0eElkCQEAAAAHZXh0cmFjdAAAAAEJAAQdAAAAAgUAAAACbWUJAAJYAAAAAQkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAABBAAAAAckbWF0Y2gxCQAD6AAAAAEJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAQMJAAABAAAAAgUAAAAHJG1hdGNoMQIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAAJcGF5bWVudFR4BQAAAAckbWF0Y2gxBAAAABJpc1BheW1lbnRUb29rUGxhY2UDCQAAAAAAAAIFAAAABHR4SWQJAAJYAAAAAQgFAAAAAnR4AAAAAmlkCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAACXBheW1lbnRUeAAAAA9zZW5kZXJQdWJsaWNLZXkHBAAAAAdmZWVzS2V5CQABLAAAAAIJAAJYAAAAAQkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAABAgAAAAVfZmVlcwQAAAALZGF0YVR4c0ZlZXMJAQAAAAdleHRyYWN0AAAAAQkABBoAAAACBQAAAAJtZQUAAAAHZmVlc0tleQQAAAAFZ3Vlc3MJAQAAAAdleHRyYWN0AAAAAQkABBwAAAACBQAAAAJtZQkAAlgAAAABCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAEEAAAABHR5cGUJAADJAAAAAgUAAAAFZ3Vlc3MAAAAAAAAAAAEEAAAAA3ZhbAkAAMoAAAACBQAAAAVndWVzcwAAAAAAAAAAAQQAAAADa2V5CQEAAAAHZXh0cmFjdAAAAAEJAAQdAAAAAgUAAAACbWUJAAEsAAAAAgkAAlgAAAABCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAECAAAABl9yb3VuZAQAAAAKdmFsQ29tcGxleAkBAAAAB2V4dHJhY3QAAAABCQAEHAAAAAIFAAAABm9yYWNsZQUAAAADa2V5BAAAAAVrb2VmZgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAAAAAAAAAAAAAcAAAAAAAAAACMDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAABAAAAAAAAAAAHAAAAAAAAAAACAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAgAAAAAAAAAABwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAMAAAAAAAAAAAcAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAEAAAAAAAAAAAHAAAAAAAAAAADAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAABQAAAAAAAAAABwAAAAAAAAAAAwAAAAAAAAAAAAQAAAANY29ycmVjdEFtb3VudAkAAGUAAAACCQAAZQAAAAIJAABoAAAAAggFAAAACXBheW1lbnRUeAAAAAZhbW91bnQFAAAABWtvZWZmBQAAAAtkYXRhVHhzRmVlcwgFAAAACndpdGhkcmF3VHgAAAADZmVlBAAAAAppc0Ftb3VudE9rCQAAAAAAAAIIBQAAAAp3aXRoZHJhd1R4AAAABmFtb3VudAUAAAANY29ycmVjdEFtb3VudAQAAAAJaXNJbldhdmVzAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAACndpdGhkcmF3VHgAAAAKZmVlQXNzZXRJZAkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAACndpdGhkcmF3VHgAAAAHYXNzZXRJZAcDAwUAAAASaXNQYXltZW50VG9va1BsYWNlBQAAAAppc0Ftb3VudE9rBwUAAAAJaXNJbldhdmVzBwcDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgQAAAADZHR4BQAAAAckbWF0Y2gwAwkAAAAAAAACCQABkAAAAAEIBQAAAANkdHgAAAAEZGF0YQAAAAAAAAAAAgQAAAANaXNEYXRhQ291bnRPawkAAAAAAAACCQABkAAAAAEIBQAAAANkdHgAAAAEZGF0YQAAAAAAAAAAAgQAAAAOcGF5bWVudFR4SWRTdHIJAQAAAAlkcm9wUmlnaHQAAAACCQEAAAAHZXh0cmFjdAAAAAEICQABkQAAAAIIBQAAAANkdHgAAAAEZGF0YQAAAAAAAAAAAAAAAANrZXkAAAAAAAAAAAkEAAAAB2ZlZXNLZXkJAAEsAAAAAgUAAAAOcGF5bWVudFR4SWRTdHICAAAADl93aXRoZHJhd19mZWVzBAAAAAlwYXltZW50VHgJAAPoAAAAAQkAAlkAAAABBQAAAA5wYXltZW50VHhJZFN0cgQAAAAHbmV3RmVlcwkBAAAAB2V4dHJhY3QAAAABCQAEEAAAAAIIBQAAAANkdHgAAAAEZGF0YQUAAAAHZmVlc0tleQQAAAAHb2xkRmVlcwMJAQAAAAlpc0RlZmluZWQAAAABCQAEGgAAAAIFAAAAAm1lBQAAAAdmZWVzS2V5CQEAAAAHZXh0cmFjdAAAAAEJAAQaAAAAAgUAAAACbWUFAAAAB2ZlZXNLZXkAAAAAAAAAAAAEAAAADGlzRmVlQ29ycmVjdAkAAAAAAAACBQAAAAduZXdGZWVzCQAAZAAAAAIFAAAAB29sZEZlZXMIBQAAAANkdHgAAAADZmVlBAAAABlpc1BheW1lbnRBbHJlYWR5TWVudGlvbmVkCQEAAAAJaXNEZWZpbmVkAAAAAQkABB0AAAACBQAAAAJtZQUAAAAOcGF5bWVudFR4SWRTdHIEAAAAFXdpdGhkcmF3VHJhbnNhY3Rpb25JZAkAAlkAAAABCQEAAAAHZXh0cmFjdAAAAAEJAAQdAAAAAgUAAAACbWUFAAAADnBheW1lbnRUeElkU3RyBAAAAA9pc1dpdGhkcmF3RXhpc3QJAQAAAAlpc0RlZmluZWQAAAABCQAD6AAAAAEFAAAAFXdpdGhkcmF3VHJhbnNhY3Rpb25JZAQAAAAHJG1hdGNoMQUAAAAJcGF5bWVudFR4AwkAAAEAAAACBQAAAAckbWF0Y2gxAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAlwYXltZW50VHgFAAAAByRtYXRjaDEEAAAAEmlzRHR4U2lnbmVkQnlQYXllcgkAAfQAAAADCAUAAAADZHR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAADZHR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAACXBheW1lbnRUeAAAAA9zZW5kZXJQdWJsaWNLZXkDAwMDAwkBAAAAASEAAAABBQAAABlpc1BheW1lbnRBbHJlYWR5TWVudGlvbmVkBgkBAAAAASEAAAABBQAAAA9pc1dpdGhkcmF3RXhpc3QFAAAAEmlzRHR4U2lnbmVkQnlQYXllcgcFAAAADGlzRmVlQ29ycmVjdAcFAAAADWlzRGF0YUNvdW50T2sHBAAAAAVndWVzcwkBAAAAB2V4dHJhY3QAAAABCQAEHAAAAAIFAAAAAm1lBQAAAA5wYXltZW50VHhJZFN0cgQAAAAEdHlwZQkAAMkAAAACBQAAAAVndWVzcwAAAAAAAAAAAQQAAAADdmFsCQAAygAAAAIFAAAABWd1ZXNzAAAAAAAAAAABBAAAAANrZXkJAQAAAAdleHRyYWN0AAAAAQkABB0AAAACBQAAAAJtZQkAASwAAAACBQAAAA5wYXltZW50VHhJZFN0cgIAAAAGX3JvdW5kBAAAAAp2YWxDb21wbGV4CQEAAAAHZXh0cmFjdAAAAAEJAAQcAAAAAgUAAAAGb3JhY2xlBQAAAANrZXkEAAAABWtvZWZmAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAIwMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAEAAAAAAAAAAAcAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAACAAAAAAAAAAAHAAAAAAAAAAACAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAwAAAAAAAAAABwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAQAAAAAAAAAAAcAAAAAAAAAAAMDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAFAAAAAAAAAAAHAAAAAAAAAAADAAAAAAAAAAAABAAAAAN2ZXIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAAAQQAAAAHdmFsUmVhbAMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAAAAAAAAAAAAAcJAADKAAAAAgkAAMkAAAACBQAAAAp2YWxDb21wbGV4AAAAAAAAAAACAAAAAAAAAAABAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAQAAAAAAAAAABwkAAMoAAAACCQAAyQAAAAIFAAAACnZhbENvbXBsZXgAAAAAAAAAAAMAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAACAAAAAAAAAAAHCQAAygAAAAIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAABAAAAAAAAAAAAwMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAMAAAAAAAAAAAcJAADKAAAAAgkAAMkAAAACBQAAAAp2YWxDb21wbGV4AAAAAAAAAAAFAAAAAAAAAAAEAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAABAAAAAAAAAAABwkAAMoAAAACCQAAyQAAAAIFAAAACnZhbENvbXBsZXgAAAAAAAAAAAYAAAAAAAAAAAUDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAFAAAAAAAAAAAHCQAAygAAAAIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAABwAAAAAAAAAABgkAAZoAAAABAAAAAAAAAAAmBAAAAAVpc1dpbgMJAAAAAAAAAgUAAAADdmFsBQAAAAd2YWxSZWFsCQEAAAACIT0AAAACBQAAAAN2YWwJAAGaAAAAAQAAAAAAAAAAJgcEAAAAEmlzTW9uZXlTdGlsbEVub3VnaAkAAGYAAAACCQAAZAAAAAIJAABoAAAAAggFAAAACXBheW1lbnRUeAAAAAZhbW91bnQFAAAABWtvZWZmBQAAAA5taW5XaXRoZHJhd0ZlZQUAAAAHbmV3RmVlcwMFAAAABWlzV2luBQAAABJpc01vbmV5U3RpbGxFbm91Z2gHBwcDCQAAAAAAAAIJAAGQAAAAAQgFAAAAA2R0eAAAAARkYXRhAAAAAAAAAAADBAAAAA5wYXltZW50VHhJZFN0cgkBAAAAB2V4dHJhY3QAAAABCAkAAZEAAAACCAUAAAADZHR4AAAABGRhdGEAAAAAAAAAAAAAAAADa2V5BAAAAAhndWVzc1N0cgkBAAAAB2V4dHJhY3QAAAABCQAEEwAAAAIIBQAAAANkdHgAAAAEZGF0YQUAAAAOcGF5bWVudFR4SWRTdHIEAAAAD3BheW1lbnRSb3VuZEtleQkAASwAAAACBQAAAA5wYXltZW50VHhJZFN0cgIAAAAGX3JvdW5kBAAAAAxwYXltZW50Um91bmQJAQAAAAdleHRyYWN0AAAAAQkABBMAAAACCAUAAAADZHR4AAAABGRhdGEFAAAAD3BheW1lbnRSb3VuZEtleQQAAAAKc3VtQmV0c09sZAMJAQAAAAlpc0RlZmluZWQAAAABCQAEGgAAAAIFAAAAAm1lCQABLAAAAAIFAAAADHBheW1lbnRSb3VuZAIAAAAIX2JldHNTdW0JAQAAAAdleHRyYWN0AAAAAQkABBoAAAACBQAAAAJtZQkAASwAAAACBQAAAAxwYXltZW50Um91bmQCAAAACF9iZXRzU3VtAAAAAAAAAAAABAAAAApzdW1CZXRzTmV3CQEAAAAHZXh0cmFjdAAAAAEJAAQQAAAAAggFAAAAA2R0eAAAAARkYXRhCQABLAAAAAIFAAAADHBheW1lbnRSb3VuZAIAAAAIX2JldHNTdW0EAAAAGWlzUGF5bWVudEFscmVhZHlNZW50aW9uZWQJAQAAAAlpc0RlZmluZWQAAAABCQAEHQAAAAIFAAAAAm1lBQAAAA5wYXltZW50VHhJZFN0cgQAAAAJcGF5bWVudFR4CQAD6AAAAAEJAAJZAAAAAQUAAAAOcGF5bWVudFR4SWRTdHIEAAAAByRtYXRjaDEFAAAACXBheW1lbnRUeAMJAAABAAAAAgUAAAAHJG1hdGNoMQIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAAJcGF5bWVudFR4BQAAAAckbWF0Y2gxBAAAABJpc0R0eFNpZ25lZEJ5UGF5ZXIJAAH0AAAAAwgFAAAAA2R0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAA2R0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAlwYXltZW50VHgAAAAPc2VuZGVyUHVibGljS2V5AwkBAAAAASEAAAABBQAAABlpc1BheW1lbnRBbHJlYWR5TWVudGlvbmVkCQAAAAAAAAIFAAAACnN1bUJldHNOZXcJAABlAAAAAgkAAGQAAAACBQAAAApzdW1CZXRzT2xkCAUAAAAJcGF5bWVudFR4AAAABmFtb3VudAgFAAAAA2R0eAAAAANmZWUHBwcJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAACdHgAAAAPc2VuZGVyUHVibGljS2V5F69ERw==",
    "chainId": 84,
    "height": 489294,
    "spentComplexity": 0
}

View: original | compacted
Prev: GTmjYGR3d9kpu8q4cdmZTu3Z2SQHpC9omAXdiQVi9LiA
Next: AyzbPdNzuosVM2boFK5fWc6zmXgmZMwKeDtJWUNR73W1

Diff: 
Old New Differences
75 75                                  let guess = extract(getBinary(me, paymentTxIdStr))
76 76                                  let type = take(guess, 1)
77 77                                  let val = drop(guess, 1)
78 -                                 let key = extract(getString(me, (toBase58String(tx.proofs[1]) + "_round")))
78 +                                 let key = extract(getString(me, (paymentTxIdStr + "_round")))
79 79                                  let valComplex = extract(getBinary(oracle, key))
80 80                                  let koeff = if ((type == drop(toBytes(0), 7)))
81 81                                      then 35
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 = 400000
6 6  match tx {
7 7      case withdrawTx: TransferTransaction => 
8 8          let txId = extract(getString(me, toBase58String(tx.proofs[1])))
9 9          match transactionById(tx.proofs[1]) {
10 10              case paymentTx: TransferTransaction => 
11 11                  let isPaymentTookPlace = if ((txId == toBase58String(tx.id)))
12 12                      then sigVerify(tx.bodyBytes, tx.proofs[0], paymentTx.senderPublicKey)
13 13                      else false
14 14                  let feesKey = (toBase58String(tx.proofs[1]) + "_fees")
15 15                  let dataTxsFees = extract(getInteger(me, feesKey))
16 16                  let guess = extract(getBinary(me, toBase58String(tx.proofs[1])))
17 17                  let type = take(guess, 1)
18 18                  let val = drop(guess, 1)
19 19                  let key = extract(getString(me, (toBase58String(tx.proofs[1]) + "_round")))
20 20                  let valComplex = extract(getBinary(oracle, key))
21 21                  let koeff = if ((type == drop(toBytes(0), 7)))
22 22                      then 35
23 23                      else if ((type == drop(toBytes(1), 7)))
24 24                          then 2
25 25                          else if ((type == drop(toBytes(2), 7)))
26 26                              then 2
27 27                              else if ((type == drop(toBytes(3), 7)))
28 28                                  then 2
29 29                                  else if ((type == drop(toBytes(4), 7)))
30 30                                      then 3
31 31                                      else if ((type == drop(toBytes(5), 7)))
32 32                                          then 3
33 33                                          else 0
34 34                  let correctAmount = (((paymentTx.amount * koeff) - dataTxsFees) - withdrawTx.fee)
35 35                  let isAmountOk = (withdrawTx.amount == correctAmount)
36 36                  let isInWaves = if (!(isDefined(withdrawTx.feeAssetId)))
37 37                      then !(isDefined(withdrawTx.assetId))
38 38                      else false
39 39                  if (if (isPaymentTookPlace)
40 40                      then isAmountOk
41 41                      else false)
42 42                      then isInWaves
43 43                      else false
44 44              case _ => 
45 45                  false
46 46          }
47 47      case dtx: DataTransaction => 
48 48          if ((size(dtx.data) == 2))
49 49              then {
50 50                  let isDataCountOk = (size(dtx.data) == 2)
51 51                  let paymentTxIdStr = dropRight(extract(dtx.data[0].key), 9)
52 52                  let feesKey = (paymentTxIdStr + "_withdraw_fees")
53 53                  let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
54 54                  let newFees = extract(getInteger(dtx.data, feesKey))
55 55                  let oldFees = if (isDefined(getInteger(me, feesKey)))
56 56                      then extract(getInteger(me, feesKey))
57 57                      else 0
58 58                  let isFeeCorrect = (newFees == (oldFees + dtx.fee))
59 59                  let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
60 60                  let withdrawTransactionId = fromBase58String(extract(getString(me, paymentTxIdStr)))
61 61                  let isWithdrawExist = isDefined(transactionById(withdrawTransactionId))
62 62                  match paymentTx {
63 63                      case paymentTx: TransferTransaction => 
64 64                          let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
65 65                          if (if (if (if (if (!(isPaymentAlreadyMentioned))
66 66                              then true
67 67                              else !(isWithdrawExist))
68 68                              then isDtxSignedByPayer
69 69                              else false)
70 70                              then isFeeCorrect
71 71                              else false)
72 72                              then isDataCountOk
73 73                              else false)
74 74                              then {
75 75                                  let guess = extract(getBinary(me, paymentTxIdStr))
76 76                                  let type = take(guess, 1)
77 77                                  let val = drop(guess, 1)
78 -                                 let key = extract(getString(me, (toBase58String(tx.proofs[1]) + "_round")))
78 +                                 let key = extract(getString(me, (paymentTxIdStr + "_round")))
79 79                                  let valComplex = extract(getBinary(oracle, key))
80 80                                  let koeff = if ((type == drop(toBytes(0), 7)))
81 81                                      then 35
82 82                                      else if ((type == drop(toBytes(1), 7)))
83 83                                          then 2
84 84                                          else if ((type == drop(toBytes(2), 7)))
85 85                                              then 2
86 86                                              else if ((type == drop(toBytes(3), 7)))
87 87                                                  then 2
88 88                                                  else if ((type == drop(toBytes(4), 7)))
89 89                                                      then 3
90 90                                                      else if ((type == drop(toBytes(5), 7)))
91 91                                                          then 3
92 92                                                          else 0
93 93                                  let ver = take(valComplex, 1)
94 94                                  let valReal = if ((type == drop(toBytes(0), 7)))
95 95                                      then drop(take(valComplex, 2), 1)
96 96                                      else if ((type == drop(toBytes(1), 7)))
97 97                                          then drop(take(valComplex, 3), 2)
98 98                                          else if ((type == drop(toBytes(2), 7)))
99 99                                              then drop(take(valComplex, 4), 3)
100 100                                              else if ((type == drop(toBytes(3), 7)))
101 101                                                  then drop(take(valComplex, 5), 4)
102 102                                                  else if ((type == drop(toBytes(4), 7)))
103 103                                                      then drop(take(valComplex, 6), 5)
104 104                                                      else if ((type == drop(toBytes(5), 7)))
105 105                                                          then drop(take(valComplex, 7), 6)
106 106                                                          else toBytes(38)
107 107                                  let isWin = if ((val == valReal))
108 108                                      then (val != toBytes(38))
109 109                                      else false
110 110                                  let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
111 111                                  if (isWin)
112 112                                      then isMoneyStillEnough
113 113                                      else false
114 114                                  }
115 115                              else false
116 116                      case _ => 
117 117                          false
118 118                  }
119 119                  }
120 120              else if ((size(dtx.data) == 3))
121 121                  then {
122 122                      let paymentTxIdStr = extract(dtx.data[0].key)
123 123                      let guessStr = extract(getString(dtx.data, paymentTxIdStr))
124 124                      let paymentRoundKey = (paymentTxIdStr + "_round")
125 125                      let paymentRound = extract(getString(dtx.data, paymentRoundKey))
126 126                      let sumBetsOld = if (isDefined(getInteger(me, (paymentRound + "_betsSum"))))
127 127                          then extract(getInteger(me, (paymentRound + "_betsSum")))
128 128                          else 0
129 129                      let sumBetsNew = extract(getInteger(dtx.data, (paymentRound + "_betsSum")))
130 130                      let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
131 131                      let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
132 132                      match paymentTx {
133 133                          case paymentTx: TransferTransaction => 
134 134                              let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
135 135                              if (!(isPaymentAlreadyMentioned))
136 136                                  then (sumBetsNew == ((sumBetsOld + paymentTx.amount) - dtx.fee))
137 137                                  else false
138 138                          case _ => 
139 139                              false
140 140                      }
141 141                      }
142 142                  else false
143 143      case _ => 
144 144          sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
145 145  }

Old	New		Differences
75	75		let guess = extract(getBinary(me, paymentTxIdStr))
76	76		let type = take(guess, 1)
77	77		let val = drop(guess, 1)
78		-	let key = extract(getString(me, (~~toBase58String(tx.proofs[1])~~ + "_round")))
	78	+	let key = extract(getString(me, (paymentTxIdStr + "_round")))
79	79		let valComplex = extract(getBinary(oracle, key))
80	80		let koeff = if ((type == drop(toBytes(0), 7)))
81	81		then 35

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 = 400000
6	6		match tx {
7	7		case withdrawTx: TransferTransaction =>
8	8		let txId = extract(getString(me, toBase58String(tx.proofs[1])))
9	9		match transactionById(tx.proofs[1]) {
10	10		case paymentTx: TransferTransaction =>
11	11		let isPaymentTookPlace = if ((txId == toBase58String(tx.id)))
12	12		then sigVerify(tx.bodyBytes, tx.proofs[0], paymentTx.senderPublicKey)
13	13		else false
14	14		let feesKey = (toBase58String(tx.proofs[1]) + "_fees")
15	15		let dataTxsFees = extract(getInteger(me, feesKey))
16	16		let guess = extract(getBinary(me, toBase58String(tx.proofs[1])))
17	17		let type = take(guess, 1)
18	18		let val = drop(guess, 1)
19	19		let key = extract(getString(me, (toBase58String(tx.proofs[1]) + "_round")))
20	20		let valComplex = extract(getBinary(oracle, key))
21	21		let koeff = if ((type == drop(toBytes(0), 7)))
22	22		then 35
23	23		else if ((type == drop(toBytes(1), 7)))
24	24		then 2
25	25		else if ((type == drop(toBytes(2), 7)))
26	26		then 2
27	27		else if ((type == drop(toBytes(3), 7)))
28	28		then 2
29	29		else if ((type == drop(toBytes(4), 7)))
30	30		then 3
31	31		else if ((type == drop(toBytes(5), 7)))
32	32		then 3
33	33		else 0
34	34		let correctAmount = (((paymentTx.amount * koeff) - dataTxsFees) - withdrawTx.fee)
35	35		let isAmountOk = (withdrawTx.amount == correctAmount)
36	36		let isInWaves = if (!(isDefined(withdrawTx.feeAssetId)))
37	37		then !(isDefined(withdrawTx.assetId))
38	38		else false
39	39		if (if (isPaymentTookPlace)
40	40		then isAmountOk
41	41		else false)
42	42		then isInWaves
43	43		else false
44	44		case _ =>
45	45		false
46	46		}
47	47		case dtx: DataTransaction =>
48	48		if ((size(dtx.data) == 2))
49	49		then {
50	50		let isDataCountOk = (size(dtx.data) == 2)
51	51		let paymentTxIdStr = dropRight(extract(dtx.data[0].key), 9)
52	52		let feesKey = (paymentTxIdStr + "_withdraw_fees")
53	53		let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
54	54		let newFees = extract(getInteger(dtx.data, feesKey))
55	55		let oldFees = if (isDefined(getInteger(me, feesKey)))
56	56		then extract(getInteger(me, feesKey))
57	57		else 0
58	58		let isFeeCorrect = (newFees == (oldFees + dtx.fee))
59	59		let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
60	60		let withdrawTransactionId = fromBase58String(extract(getString(me, paymentTxIdStr)))
61	61		let isWithdrawExist = isDefined(transactionById(withdrawTransactionId))
62	62		match paymentTx {
63	63		case paymentTx: TransferTransaction =>
64	64		let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
65	65		if (if (if (if (if (!(isPaymentAlreadyMentioned))
66	66		then true
67	67		else !(isWithdrawExist))
68	68		then isDtxSignedByPayer
69	69		else false)
70	70		then isFeeCorrect
71	71		else false)
72	72		then isDataCountOk
73	73		else false)
74	74		then {
75	75		let guess = extract(getBinary(me, paymentTxIdStr))
76	76		let type = take(guess, 1)
77	77		let val = drop(guess, 1)
78		-	let key = extract(getString(me, (~~toBase58String(tx.proofs[1])~~ + "_round")))
	78	+	let key = extract(getString(me, (paymentTxIdStr + "_round")))
79	79		let valComplex = extract(getBinary(oracle, key))
80	80		let koeff = if ((type == drop(toBytes(0), 7)))
81	81		then 35
82	82		else if ((type == drop(toBytes(1), 7)))
83	83		then 2
84	84		else if ((type == drop(toBytes(2), 7)))
85	85		then 2
86	86		else if ((type == drop(toBytes(3), 7)))
87	87		then 2
88	88		else if ((type == drop(toBytes(4), 7)))
89	89		then 3
90	90		else if ((type == drop(toBytes(5), 7)))
91	91		then 3
92	92		else 0
93	93		let ver = take(valComplex, 1)
94	94		let valReal = if ((type == drop(toBytes(0), 7)))
95	95		then drop(take(valComplex, 2), 1)
96	96		else if ((type == drop(toBytes(1), 7)))
97	97		then drop(take(valComplex, 3), 2)
98	98		else if ((type == drop(toBytes(2), 7)))
99	99		then drop(take(valComplex, 4), 3)
100	100		else if ((type == drop(toBytes(3), 7)))
101	101		then drop(take(valComplex, 5), 4)
102	102		else if ((type == drop(toBytes(4), 7)))
103	103		then drop(take(valComplex, 6), 5)
104	104		else if ((type == drop(toBytes(5), 7)))
105	105		then drop(take(valComplex, 7), 6)
106	106		else toBytes(38)
107	107		let isWin = if ((val == valReal))
108	108		then (val != toBytes(38))
109	109		else false
110	110		let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
111	111		if (isWin)
112	112		then isMoneyStillEnough
113	113		else false
114	114		}
115	115		else false
116	116		case _ =>
117	117		false
118	118		}
119	119		}
120	120		else if ((size(dtx.data) == 3))
121	121		then {
122	122		let paymentTxIdStr = extract(dtx.data[0].key)
123	123		let guessStr = extract(getString(dtx.data, paymentTxIdStr))
124	124		let paymentRoundKey = (paymentTxIdStr + "_round")
125	125		let paymentRound = extract(getString(dtx.data, paymentRoundKey))
126	126		let sumBetsOld = if (isDefined(getInteger(me, (paymentRound + "_betsSum"))))
127	127		then extract(getInteger(me, (paymentRound + "_betsSum")))
128	128		else 0
129	129		let sumBetsNew = extract(getInteger(dtx.data, (paymentRound + "_betsSum")))
130	130		let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
131	131		let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
132	132		match paymentTx {
133	133		case paymentTx: TransferTransaction =>
134	134		let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
135	135		if (!(isPaymentAlreadyMentioned))
136	136		then (sumBetsNew == ((sumBetsOld + paymentTx.amount) - dtx.fee))
137	137		else false
138	138		case _ =>
139	139		false
140	140		}
141	141		}
142	142		else false
143	143		case _ =>
144	144		sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
145	145		}

github/deemru/w8io/169f3d6 
32.01 ms ◑