w8 · tx · J38···Hjw

tx · J38eEYxGyjd7Zma55YynLcGDh385BtQ8zWbF1vUJ8Hjw

3N51jM3a77Hfp8LRscW1QaHFCLrDE3CqRcJ:  -0.01400000 Waves

2019.07.05 20:47 [572518] smart account 3N51jM3a77Hfp8LRscW1QaHFCLrDE3CqRcJ > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "J38eEYxGyjd7Zma55YynLcGDh385BtQ8zWbF1vUJ8Hjw",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1562348827170,
    "version": 1,
    "sender": "3N51jM3a77Hfp8LRscW1QaHFCLrDE3CqRcJ",
    "senderPublicKey": "Ad4TpZLmiH4mLF6K6jzKEH4EByoNtUQkTS5Fx1XqR4Wy",
    "proofs": [
        "XzBAes9GMNwZosLT14tyXxx2KaTAPYCVsYEfuPcvc6AUVh1rdkrzFuSermfco2PMsK31JMdiLaqPveiHfCAXR9v"
    ],
    "script": "base64:AAIDAAAAAAAAAAAAAAAMAAAAAAZsZXZlbDEAAAAAAAAAAPoAAAAABmxldmVsMgAAAAAAAAAA+gAAAAAGbGV2ZWwzAAAAAAAAAAD6AAAAAAhjYXNoQmFjawAAAAAAAAAA+gAAAAAGbWF4RmVlAAAAAAAATEtAAAAAAAttaW5XaXRoZHJhdwAAAAAAAA9CQAAAAAAOY2hhbmdlT3duZXJLZXkCAAAALEFEMnZienBSM1pNWGlZMVpoQmRxNGlIMXd6NXc2dFVDSFB6MXZ2TmZ5Q3FFAQAAABBiYWxhbmNlSW5jcmVtZW50AAAAAgAAAAdhZGRyZXNzAAAAA2luYwQAAAAKYmFsYW5jZUtleQkAASwAAAACBQAAAAdhZGRyZXNzAgAAAAhfYmFsYW5jZQkBAAAACURhdGFFbnRyeQAAAAIFAAAACmJhbGFuY2VLZXkJAABkAAAAAgUAAAADaW5jBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAACmJhbGFuY2VLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYgUAAAAHJG1hdGNoMAUAAAABYgAAAAAAAAAAAAEAAAAWcmVjb3JkQmFsYW5jZUluY3JlbWVudAAAAAYAAAAHYWRkcmVzcwAAAAVvd25lcgAAAANpbmMAAAAFbGV2ZWwAAAAEdHhJZAAAAAl0aW1lc3RhbXAJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAVmdW5kXwUAAAAHYWRkcmVzcwIAAAABXwUAAAAEdHhJZAkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAFb3duZXICAAAAAToJAAGkAAAAAQUAAAADaW5jAgAAAAE6BQAAAAVsZXZlbAIAAAABOgUAAAAJdGltZXN0YW1wAQAAAApnZXRSZWZlcmVyAAAAAQAAAAR1c2VyCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAAEdXNlcgIAAAAIX3JlZmVyZXIBAAAACGNoZWNrRmVlAAAAAQAAAAFpAwkAAGYAAAACCAUAAAABaQAAAANmZWUFAAAABm1heEZlZQkAAAIAAAABAgAAABZ1bnJlYXNvbmFibGUgbGFyZ2UgZmVlBgEAAAAMZ2V0VGltZXN0YW1wAAAAAAQAAAAFYmxvY2sJAQAAAAdleHRyYWN0AAAAAQkAA+0AAAABBQAAAAZoZWlnaHQJAAGkAAAAAQgFAAAABWJsb2NrAAAACXRpbWVzdGFtcAAAAAMAAAABaQEAAAAEZnVuZAAAAAAEAAAABW93bmVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAABHR4aWQJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAQAAAAJdGltZXN0YW1wCQEAAAAMZ2V0VGltZXN0YW1wAAAAAAQAAAAGYW1vdW50CAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AAAABmFtb3VudAQAAAACY2YJAQAAAAhjaGVja0ZlZQAAAAEFAAAAAWkJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAAFb3duZXICAAAADV9yZWZzdHJ1Y3R1cmUDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAAIcmVmTGlzdFMFAAAAByRtYXRjaDAEAAAAB3JlZkxpc3QJAAS1AAAAAgUAAAAIcmVmTGlzdFMCAAAAASwEAAAAC3JlZkxpc3RTaXplCQABkAAAAAEFAAAAB3JlZkxpc3QEAAAACWluY0xldmVsMQkAAGkAAAACCQAAaAAAAAIFAAAABmFtb3VudAUAAAAGbGV2ZWwxAAAAAAAAAAPoBAAAAAtpbmNDYXNoQmFjawkAAGkAAAACCQAAaAAAAAIFAAAABmFtb3VudAUAAAAIY2FzaEJhY2sAAAAAAAAAA+gJAARMAAAAAgkBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACBQAAAAVvd25lcgUAAAALaW5jQ2FzaEJhY2sJAARMAAAAAgkBAAAAFnJlY29yZEJhbGFuY2VJbmNyZW1lbnQAAAAGBQAAAAVvd25lcgUAAAAFb3duZXIFAAAAC2luY0Nhc2hCYWNrAgAAAAhjYXNoYmFjawUAAAAEdHhpZAUAAAAJdGltZXN0YW1wCQAETAAAAAIJAQAAABBiYWxhbmNlSW5jcmVtZW50AAAAAgkAAZEAAAACBQAAAAdyZWZMaXN0AAAAAAAAAAAABQAAAAlpbmNMZXZlbDEJAARMAAAAAgkBAAAAFnJlY29yZEJhbGFuY2VJbmNyZW1lbnQAAAAGCQABkQAAAAIFAAAAB3JlZkxpc3QAAAAAAAAAAAAFAAAABW93bmVyBQAAAAlpbmNMZXZlbDECAAAAAmwxBQAAAAR0eGlkBQAAAAl0aW1lc3RhbXADCQAAZwAAAAIFAAAAC3JlZkxpc3RTaXplAAAAAAAAAAACBAAAAAlpbmNMZXZlbDIJAABpAAAAAgkAAGgAAAACBQAAAAZhbW91bnQFAAAABmxldmVsMgAAAAAAAAAD6AkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIJAAGRAAAAAgUAAAAHcmVmTGlzdAAAAAAAAAAAAQUAAAAJaW5jTGV2ZWwyCQAETAAAAAIJAQAAABZyZWNvcmRCYWxhbmNlSW5jcmVtZW50AAAABgkAAZEAAAACBQAAAAdyZWZMaXN0AAAAAAAAAAABBQAAAAVvd25lcgUAAAAJaW5jTGV2ZWwyAgAAAAJsMgUAAAAEdHhpZAUAAAAJdGltZXN0YW1wAwkAAGcAAAACBQAAAAtyZWZMaXN0U2l6ZQAAAAAAAAAAAwQAAAAJaW5jTGV2ZWwzCQAAaQAAAAIJAABoAAAAAgUAAAAGYW1vdW50BQAAAAZsZXZlbDMAAAAAAAAAA+gJAARMAAAAAgkBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACCQABkQAAAAIFAAAAB3JlZkxpc3QAAAAAAAAAAAIFAAAACWluY0xldmVsMwkABEwAAAACCQEAAAAWcmVjb3JkQmFsYW5jZUluY3JlbWVudAAAAAYJAAGRAAAAAgUAAAAHcmVmTGlzdAAAAAAAAAAAAgUAAAAFb3duZXIFAAAACWluY0xldmVsMwIAAAACbDMFAAAABHR4aWQFAAAACXRpbWVzdGFtcAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADmNoYW5nZU93bmVyS2V5CQAAZQAAAAIJAABlAAAAAgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQUAAAAJaW5jTGV2ZWwyBQAAAAlpbmNMZXZlbDMJAARMAAAAAgkBAAAAFnJlY29yZEJhbGFuY2VJbmNyZW1lbnQAAAAGBQAAAA5jaGFuZ2VPd25lcktleQUAAAAFb3duZXIJAABlAAAAAgkAAGUAAAACCQAAZQAAAAIFAAAABmFtb3VudAUAAAAJaW5jTGV2ZWwxBQAAAAlpbmNMZXZlbDIFAAAACWluY0xldmVsMwIAAAAGY2hhbmdlBQAAAAR0eGlkBQAAAAl0aW1lc3RhbXAFAAAAA25pbAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADmNoYW5nZU93bmVyS2V5CQAAZQAAAAIJAABlAAAAAgUAAAAGYW1vdW50BQAAAAlpbmNMZXZlbDEFAAAACWluY0xldmVsMgkABEwAAAACCQEAAAAWcmVjb3JkQmFsYW5jZUluY3JlbWVudAAAAAYFAAAADmNoYW5nZU93bmVyS2V5BQAAAAVvd25lcgkAAGUAAAACCQAAZQAAAAIFAAAABmFtb3VudAUAAAAJaW5jTGV2ZWwxBQAAAAlpbmNMZXZlbDICAAAABmNoYW5nZQUAAAAEdHhpZAUAAAAJdGltZXN0YW1wBQAAAANuaWwJAARMAAAAAgkBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACBQAAAA5jaGFuZ2VPd25lcktleQkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQkABEwAAAACCQEAAAAWcmVjb3JkQmFsYW5jZUluY3JlbWVudAAAAAYFAAAADmNoYW5nZU93bmVyS2V5BQAAAAVvd25lcgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQIAAAAGY2hhbmdlBQAAAAR0eGlkBQAAAAl0aW1lc3RhbXAFAAAAA25pbAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADmNoYW5nZU93bmVyS2V5BQAAAAZhbW91bnQJAARMAAAAAgkBAAAAFnJlY29yZEJhbGFuY2VJbmNyZW1lbnQAAAAGBQAAAA5jaGFuZ2VPd25lcktleQUAAAAFb3duZXIFAAAABmFtb3VudAIAAAAGY2hhbmdlBQAAAAR0eGlkBQAAAAl0aW1lc3RhbXAFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIIBQAAAAFpAAAAA2ZlZQUAAAAEdW5pdAUAAAADbmlsAAAAAWkBAAAACHdpdGhkcmF3AAAAAAQAAAACY2YJAQAAAAhjaGVja0ZlZQAAAAEFAAAAAWkEAAAABW93bmVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAABHR4aWQJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAQAAAAKYmFsYW5jZUtleQkAASwAAAACBQAAAAVvd25lcgIAAAAIX2JhbGFuY2UEAAAABmFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAApiYWxhbmNlS2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWIFAAAAByRtYXRjaDAFAAAAAWIAAAAAAAAAAAADCQAAZgAAAAIFAAAAC21pbldpdGhkcmF3BQAAAAZhbW91bnQJAAACAAAAAQkAASwAAAACAgAAABZNaW4gd2l0aGRyYXcgYW1vdW50IGlzCQABpAAAAAEFAAAAC21pbldpdGhkcmF3CQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAKYmFsYW5jZUtleQAAAAAAAAAAAAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAJd2l0aGRyYXdfBQAAAAVvd25lcgIAAAABXwUAAAAEdHhpZAkAASwAAAACCQABLAAAAAIJAAGkAAAAAQUAAAAGYW1vdW50AgAAAAE6CQEAAAAMZ2V0VGltZXN0YW1wAAAAAAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGQAAAACBQAAAAZhbW91bnQIBQAAAAFpAAAAA2ZlZQUAAAAEdW5pdAUAAAADbmlsAAAAAWkBAAAACHJlZ2lzdGVyAAAAAgAAAAdyZWZlcmVyAAAABHNhbHQEAAAAAmNmCQEAAAAIY2hlY2tGZWUAAAABBQAAAAFpAwkBAAAAAiE9AAAAAgkAAS8AAAACCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQAAAAAAAAAAAMCAAAAAzEyMwkAAAIAAAABAgAAABRwcm9vZiBvZiB3b3JrIGZhaWxlZAQAAAAFb3duZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwMJAQAAAAlpc0RlZmluZWQAAAABCQEAAAAKZ2V0UmVmZXJlcgAAAAEFAAAABW93bmVyCQAAAgAAAAECAAAAEkFscmVhZHkgcmVnaXN0ZXJlZAQAAAALcmVmZXJhbHNLZXkJAAEsAAAAAgUAAAAHcmVmZXJlcgIAAAAKX3JlZmVycmFscwQAAAAIcmVmZXJhbHMEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAALcmVmZXJhbHNLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAAHb2xkUmVmcwUAAAAHJG1hdGNoMAkAASwAAAACCQABLAAAAAIFAAAAB29sZFJlZnMCAAAAASwFAAAABW93bmVyBQAAAAVvd25lcgQAAAAMcmVmU3RydWN0dXJlCQABLAAAAAIFAAAAB3JlZmVyZXIEAAAAByRtYXRjaDAJAQAAAApnZXRSZWZlcmVyAAAAAQUAAAAHcmVmZXJlcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAhyZWZlcmVyMgUAAAAHJG1hdGNoMAkAASwAAAACCQABLAAAAAICAAAAASwFAAAACHJlZmVyZXIyBAAAAAckbWF0Y2gxCQEAAAAKZ2V0UmVmZXJlcgAAAAEFAAAACHJlZmVyZXIyAwkAAAEAAAACBQAAAAckbWF0Y2gxAgAAAAZTdHJpbmcEAAAACHJlZmVyZXIzBQAAAAckbWF0Y2gxCQABLAAAAAICAAAAASwFAAAACHJlZmVyZXIzAgAAAAACAAAAAAkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgUAAAAFb3duZXICAAAACF9yZWZlcmVyBQAAAAdyZWZlcmVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAtyZWZlcmFsc0tleQUAAAAIcmVmZXJhbHMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgUAAAAFb3duZXICAAAADV9yZWZzdHJ1Y3R1cmUFAAAADHJlZlN0cnVjdHVyZQUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcggFAAAAAWkAAAADZmVlBQAAAAR1bml0BQAAAANuaWwAAAAAPTWZpQ==",
    "chainId": 84,
    "height": 572518,
    "spentComplexity": 0
}

View: original | compacted
Prev: 9znZEj7UnWqXJiRLLwV4eVmWfeZgmiYP42n9VNRnY8ou
Next: none

Diff: 
Old New Differences
78 78  func withdraw () = {
79 79      let cf = checkFee(i)
80 80      let owner = toBase58String(i.caller.bytes)
81 +     let txid = toBase58String(i.transactionId)
81 82      let balanceKey = (owner + "_balance")
82 83      let amount =     match getInteger(this, balanceKey) {
83 84          case b: Int => 
87 88      }
88 89      if ((minWithdraw > amount))
89 90          then throw(("Min withdraw amount is" + toString(minWithdraw)))
90 -         else {
91 -             let withdrawTxKey = (owner + "_withdraw_txs")
92 -             let record = ((((toString(amount) + ":") + toBase58String(i.transactionId)) + ":") + getTimestamp())
93 -             let withdrawTxList =             match getString(this, withdrawTxKey) {
94 -                 case prevTxs: String => 
95 -                     ((prevTxs + ",") + record)
96 -                 case _ => 
97 -                     record
98 -             }
99 -             ScriptResult(WriteSet([DataEntry(balanceKey, 0), DataEntry(withdrawTxKey, withdrawTxList)]), TransferSet([ScriptTransfer(i.caller, (amount + i.fee), unit)]))
100 -             }
91 +         else ScriptResult(WriteSet([DataEntry(balanceKey, 0), DataEntry(((("withdraw_" + owner) + "_") + txid), ((toString(amount) + ":") + getTimestamp()))]), TransferSet([ScriptTransfer(i.caller, (amount + i.fee), unit)]))
101 92      }
102 93  
103 94  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let level1 = 250
5 5  
6 6  let level2 = 250
7 7  
8 8  let level3 = 250
9 9  
10 10  let cashBack = 250
11 11  
12 12  let maxFee = 5000000
13 13  
14 14  let minWithdraw = 1000000
15 15  
16 16  let changeOwnerKey = "AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE"
17 17  
18 18  func balanceIncrement (address,inc) = {
19 19      let balanceKey = (address + "_balance")
20 20      DataEntry(balanceKey, (inc +     match getInteger(this, balanceKey) {
21 21          case b: Int => 
22 22              b
23 23          case _ => 
24 24              0
25 25      }))
26 26      }
27 27  
28 28  
29 29  func recordBalanceIncrement (address,owner,inc,level,txId,timestamp) = DataEntry(((("fund_" + address) + "_") + txId), ((((((owner + ":") + toString(inc)) + ":") + level) + ":") + timestamp))
30 30  
31 31  
32 32  func getReferer (user) = getString(this, (user + "_referer"))
33 33  
34 34  
35 35  func checkFee (i) = if ((i.fee > maxFee))
36 36      then throw("unreasonable large fee")
37 37      else true
38 38  
39 39  
40 40  func getTimestamp () = {
41 41      let block = extract(blockInfoByHeight(height))
42 42      toString(block.timestamp)
43 43      }
44 44  
45 45  
46 46  @Callable(i)
47 47  func fund () = {
48 48      let owner = toBase58String(i.caller.bytes)
49 49      let txid = toBase58String(i.transactionId)
50 50      let timestamp = getTimestamp()
51 51      let amount = extract(i.payment).amount
52 52      let cf = checkFee(i)
53 53      ScriptResult(WriteSet(    match getString(this, (owner + "_refstructure")) {
54 54          case refListS: String => 
55 55              let refList = split(refListS, ",")
56 56              let refListSize = size(refList)
57 57              let incLevel1 = ((amount * level1) / 1000)
58 58              let incCashBack = ((amount * cashBack) / 1000)
59 59  [balanceIncrement(owner, incCashBack), recordBalanceIncrement(owner, owner, incCashBack, "cashback", txid, timestamp), balanceIncrement(refList[0], incLevel1), recordBalanceIncrement(refList[0], owner, incLevel1, "l1", txid, timestamp), if ((refListSize >= 2))
60 60                  then {
61 61                      let incLevel2 = ((amount * level2) / 1000)
62 62  [balanceIncrement(refList[1], incLevel2), recordBalanceIncrement(refList[1], owner, incLevel2, "l2", txid, timestamp), if ((refListSize >= 3))
63 63                          then {
64 64                              let incLevel3 = ((amount * level3) / 1000)
65 65  [balanceIncrement(refList[2], incLevel3), recordBalanceIncrement(refList[2], owner, incLevel3, "l3", txid, timestamp), balanceIncrement(changeOwnerKey, (((amount - incLevel1) - incLevel2) - incLevel3)), recordBalanceIncrement(changeOwnerKey, owner, (((amount - incLevel1) - incLevel2) - incLevel3), "change", txid, timestamp)]
66 66                              }
67 67                          else [balanceIncrement(changeOwnerKey, ((amount - incLevel1) - incLevel2)), recordBalanceIncrement(changeOwnerKey, owner, ((amount - incLevel1) - incLevel2), "change", txid, timestamp)]]
68 68                      }
69 69                  else [balanceIncrement(changeOwnerKey, (amount - incLevel1)), recordBalanceIncrement(changeOwnerKey, owner, (amount - incLevel1), "change", txid, timestamp)]]
70 70          case _ => 
71 71  [balanceIncrement(changeOwnerKey, amount), recordBalanceIncrement(changeOwnerKey, owner, amount, "change", txid, timestamp)]
72 72      }), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
73 73      }
74 74  
75 75  
76 76  
77 77  @Callable(i)
78 78  func withdraw () = {
79 79      let cf = checkFee(i)
80 80      let owner = toBase58String(i.caller.bytes)
81 +     let txid = toBase58String(i.transactionId)
81 82      let balanceKey = (owner + "_balance")
82 83      let amount =     match getInteger(this, balanceKey) {
83 84          case b: Int => 
84 85              b
85 86          case _ => 
86 87              0
87 88      }
88 89      if ((minWithdraw > amount))
89 90          then throw(("Min withdraw amount is" + toString(minWithdraw)))
90 -         else {
91 -             let withdrawTxKey = (owner + "_withdraw_txs")
92 -             let record = ((((toString(amount) + ":") + toBase58String(i.transactionId)) + ":") + getTimestamp())
93 -             let withdrawTxList =             match getString(this, withdrawTxKey) {
94 -                 case prevTxs: String => 
95 -                     ((prevTxs + ",") + record)
96 -                 case _ => 
97 -                     record
98 -             }
99 -             ScriptResult(WriteSet([DataEntry(balanceKey, 0), DataEntry(withdrawTxKey, withdrawTxList)]), TransferSet([ScriptTransfer(i.caller, (amount + i.fee), unit)]))
100 -             }
91 +         else ScriptResult(WriteSet([DataEntry(balanceKey, 0), DataEntry(((("withdraw_" + owner) + "_") + txid), ((toString(amount) + ":") + getTimestamp()))]), TransferSet([ScriptTransfer(i.caller, (amount + i.fee), unit)]))
101 92      }
102 93  
103 94  
104 95  
105 96  @Callable(i)
106 97  func register (referer,salt) = {
107 98      let cf = checkFee(i)
108 99      if ((take(toBase58String(i.transactionId), 3) != "123"))
109 100          then throw("proof of work failed")
110 101          else {
111 102              let owner = toBase58String(i.caller.bytes)
112 103              if (isDefined(getReferer(owner)))
113 104                  then throw("Already registered")
114 105                  else {
115 106                      let referalsKey = (referer + "_referrals")
116 107                      let referals =                     match getString(this, referalsKey) {
117 108                          case oldRefs: String => 
118 109                              ((oldRefs + ",") + owner)
119 110                          case _ => 
120 111                              owner
121 112                      }
122 113                      let refStructure = (referer +                     match getReferer(referer) {
123 114                          case referer2: String => 
124 115                              (("," + referer2) +                             match getReferer(referer2) {
125 116                                  case referer3: String => 
126 117                                      ("," + referer3)
127 118                                  case _ => 
128 119                                      ""
129 120                              })
130 121                          case _ => 
131 122                              ""
132 123                      })
133 124                      ScriptResult(WriteSet([DataEntry((owner + "_referer"), referer), DataEntry(referalsKey, referals), DataEntry((owner + "_refstructure"), refStructure)]), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
134 125                      }
135 126              }
136 127      }
137 128  
138 129

Old	New		Differences
78	78		func withdraw () = {
79	79		let cf = checkFee(i)
80	80		let owner = toBase58String(i.caller.bytes)
	81	+	let txid = toBase58String(i.transactionId)
81	82		let balanceKey = (owner + "_balance")
82	83		let amount = match getInteger(this, balanceKey) {
83	84		case b: Int =>

87	88		}
88	89		if ((minWithdraw > amount))
89	90		then throw(("Min withdraw amount is" + toString(minWithdraw)))
90		-	else {
91		-	let withdrawTxKey = (owner + "_withdraw_txs")
92		-	let record = ((((toString(amount) + ":") + toBase58String(i.transactionId)) + ":") + getTimestamp())
93		-	let withdrawTxList = match getString(this, withdrawTxKey) {
94		-	case prevTxs: String =>
95		-	((prevTxs + ",") + record)
96		-	case _ =>
97		-	record
98		-	}
99		-	ScriptResult(WriteSet([DataEntry(balanceKey, 0), DataEntry(withdrawTxKey, withdrawTxList)]), TransferSet([ScriptTransfer(i.caller, (amount + i.fee), unit)]))
100		-	}
	91	+	else ScriptResult(WriteSet([DataEntry(balanceKey, 0), DataEntry(((("withdraw_" + owner) + "_") + txid), ((toString(amount) + ":") + getTimestamp()))]), TransferSet([ScriptTransfer(i.caller, (amount + i.fee), unit)]))
101	92		}
102	93
103	94

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let level1 = 250
5	5
6	6		let level2 = 250
7	7
8	8		let level3 = 250
9	9
10	10		let cashBack = 250
11	11
12	12		let maxFee = 5000000
13	13
14	14		let minWithdraw = 1000000
15	15
16	16		let changeOwnerKey = "AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE"
17	17
18	18		func balanceIncrement (address,inc) = {
19	19		let balanceKey = (address + "_balance")
20	20		DataEntry(balanceKey, (inc + match getInteger(this, balanceKey) {
21	21		case b: Int =>
22	22		b
23	23		case _ =>
24	24		0
25	25		}))
26	26		}
27	27
28	28
29	29		func recordBalanceIncrement (address,owner,inc,level,txId,timestamp) = DataEntry(((("fund_" + address) + "_") + txId), ((((((owner + ":") + toString(inc)) + ":") + level) + ":") + timestamp))
30	30
31	31
32	32		func getReferer (user) = getString(this, (user + "_referer"))
33	33
34	34
35	35		func checkFee (i) = if ((i.fee > maxFee))
36	36		then throw("unreasonable large fee")
37	37		else true
38	38
39	39
40	40		func getTimestamp () = {
41	41		let block = extract(blockInfoByHeight(height))
42	42		toString(block.timestamp)
43	43		}
44	44
45	45
46	46		@Callable(i)
47	47		func fund () = {
48	48		let owner = toBase58String(i.caller.bytes)
49	49		let txid = toBase58String(i.transactionId)
50	50		let timestamp = getTimestamp()
51	51		let amount = extract(i.payment).amount
52	52		let cf = checkFee(i)
53	53		ScriptResult(WriteSet( match getString(this, (owner + "_refstructure")) {
54	54		case refListS: String =>
55	55		let refList = split(refListS, ",")
56	56		let refListSize = size(refList)
57	57		let incLevel1 = ((amount * level1) / 1000)
58	58		let incCashBack = ((amount * cashBack) / 1000)
59	59		[balanceIncrement(owner, incCashBack), recordBalanceIncrement(owner, owner, incCashBack, "cashback", txid, timestamp), balanceIncrement(refList[0], incLevel1), recordBalanceIncrement(refList[0], owner, incLevel1, "l1", txid, timestamp), if ((refListSize >= 2))
60	60		then {
61	61		let incLevel2 = ((amount * level2) / 1000)
62	62		[balanceIncrement(refList[1], incLevel2), recordBalanceIncrement(refList[1], owner, incLevel2, "l2", txid, timestamp), if ((refListSize >= 3))
63	63		then {
64	64		let incLevel3 = ((amount * level3) / 1000)
65	65		[balanceIncrement(refList[2], incLevel3), recordBalanceIncrement(refList[2], owner, incLevel3, "l3", txid, timestamp), balanceIncrement(changeOwnerKey, (((amount - incLevel1) - incLevel2) - incLevel3)), recordBalanceIncrement(changeOwnerKey, owner, (((amount - incLevel1) - incLevel2) - incLevel3), "change", txid, timestamp)]
66	66		}
67	67		else [balanceIncrement(changeOwnerKey, ((amount - incLevel1) - incLevel2)), recordBalanceIncrement(changeOwnerKey, owner, ((amount - incLevel1) - incLevel2), "change", txid, timestamp)]]
68	68		}
69	69		else [balanceIncrement(changeOwnerKey, (amount - incLevel1)), recordBalanceIncrement(changeOwnerKey, owner, (amount - incLevel1), "change", txid, timestamp)]]
70	70		case _ =>
71	71		[balanceIncrement(changeOwnerKey, amount), recordBalanceIncrement(changeOwnerKey, owner, amount, "change", txid, timestamp)]
72	72		}), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
73	73		}
74	74
75	75
76	76
77	77		@Callable(i)
78	78		func withdraw () = {
79	79		let cf = checkFee(i)
80	80		let owner = toBase58String(i.caller.bytes)
	81	+	let txid = toBase58String(i.transactionId)
81	82		let balanceKey = (owner + "_balance")
82	83		let amount = match getInteger(this, balanceKey) {
83	84		case b: Int =>
84	85		b
85	86		case _ =>
86	87		0
87	88		}
88	89		if ((minWithdraw > amount))
89	90		then throw(("Min withdraw amount is" + toString(minWithdraw)))
90		-	else {
91		-	let withdrawTxKey = (owner + "_withdraw_txs")
92		-	let record = ((((toString(amount) + ":") + toBase58String(i.transactionId)) + ":") + getTimestamp())
93		-	let withdrawTxList = match getString(this, withdrawTxKey) {
94		-	case prevTxs: String =>
95		-	((prevTxs + ",") + record)
96		-	case _ =>
97		-	record
98		-	}
99		-	ScriptResult(WriteSet([DataEntry(balanceKey, 0), DataEntry(withdrawTxKey, withdrawTxList)]), TransferSet([ScriptTransfer(i.caller, (amount + i.fee), unit)]))
100		-	}
	91	+	else ScriptResult(WriteSet([DataEntry(balanceKey, 0), DataEntry(((("withdraw_" + owner) + "_") + txid), ((toString(amount) + ":") + getTimestamp()))]), TransferSet([ScriptTransfer(i.caller, (amount + i.fee), unit)]))
101	92		}
102	93
103	94
104	95
105	96		@Callable(i)
106	97		func register (referer,salt) = {
107	98		let cf = checkFee(i)
108	99		if ((take(toBase58String(i.transactionId), 3) != "123"))
109	100		then throw("proof of work failed")
110	101		else {
111	102		let owner = toBase58String(i.caller.bytes)
112	103		if (isDefined(getReferer(owner)))
113	104		then throw("Already registered")
114	105		else {
115	106		let referalsKey = (referer + "_referrals")
116	107		let referals = match getString(this, referalsKey) {
117	108		case oldRefs: String =>
118	109		((oldRefs + ",") + owner)
119	110		case _ =>
120	111		owner
121	112		}
122	113		let refStructure = (referer + match getReferer(referer) {
123	114		case referer2: String =>
124	115		(("," + referer2) + match getReferer(referer2) {
125	116		case referer3: String =>
126	117		("," + referer3)
127	118		case _ =>
128	119		""
129	120		})
130	121		case _ =>
131	122		""
132	123		})
133	124		ScriptResult(WriteSet([DataEntry((owner + "_referer"), referer), DataEntry(referalsKey, referals), DataEntry((owner + "_refstructure"), refStructure)]), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
134	125		}
135	126		}
136	127		}
137	128
138	129

github/deemru/w8io/169f3d6 
50.75 ms ◑