w8 · tx · Hvz···GH7

tx · HvzFbL3qgyRNRLXsscckdpndbpkwgVX9j33dvmKokGH7

3MqSVVMsPLhbavWyUu81TPFCXs5a5c1vuHz:  -0.01400000 Waves

2019.07.07 20:43 [575499] smart account 3MqSVVMsPLhbavWyUu81TPFCXs5a5c1vuHz > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HvzFbL3qgyRNRLXsscckdpndbpkwgVX9j33dvmKokGH7",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1562521434077,
    "version": 1,
    "sender": "3MqSVVMsPLhbavWyUu81TPFCXs5a5c1vuHz",
    "senderPublicKey": "F4oaEUZCJFZeYV17bYU99QsvVc5F9UzZG56oXzHwM2CC",
    "proofs": [
        "3x88C8YchZxR5bQcnXHAsKKXSXZg1bfC3S6VdnqmKZvLrv6sryH6VkCWBwT8Nekpi22u5icNrx2fN7vZoPDmSrLh"
    ],
    "script": "base64:AAIDAAAAAAAAAAAAAAAMAAAAAAZsZXZlbDEAAAAAAAAAAPoAAAAABmxldmVsMgAAAAAAAAAA+gAAAAAGbGV2ZWwzAAAAAAAAAAD6AAAAAAhjYXNoQmFjawAAAAAAAAAA+gAAAAAGbWF4RmVlAAAAAAAATEtAAAAAAAttaW5XaXRoZHJhdwAAAAAAAA9CQAAAAAANY2hhbmdlQWRkcmVzcwIAAAAjM01weTluRHVmQ0pGR3Z2MzQycGYxdW1CbUU2ZU54d2tKSjEBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACAAAAB2FkZHJlc3MAAAADaW5jBAAAAApiYWxhbmNlS2V5CQABLAAAAAIFAAAAB2FkZHJlc3MCAAAACF9iYWxhbmNlCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAKYmFsYW5jZUtleQkAAGQAAAACBQAAAANpbmMEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAKYmFsYW5jZUtleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAQAAABZyZWNvcmRCYWxhbmNlSW5jcmVtZW50AAAABgAAAAdhZGRyZXNzAAAABW93bmVyAAAAA2luYwAAAAVsZXZlbAAAAAR0eElkAAAACXRpbWVzdGFtcAkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAABWZ1bmRfBQAAAAdhZGRyZXNzAgAAAAFfBQAAAAR0eElkCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAVvd25lcgIAAAABOgkAAaQAAAABBQAAAANpbmMCAAAAAToFAAAABWxldmVsAgAAAAE6BQAAAAl0aW1lc3RhbXABAAAACmdldFJlZmVyZXIAAAABAAAABHVzZXIJAAQdAAAAAgUAAAAEdGhpcwkAASwAAAACBQAAAAR1c2VyAgAAAAhfcmVmZXJlcgEAAAAIY2hlY2tGZWUAAAABAAAAAWkDCQAAZgAAAAIIBQAAAAFpAAAAA2ZlZQUAAAAGbWF4RmVlCQAAAgAAAAECAAAAFnVucmVhc29uYWJsZSBsYXJnZSBmZWUDCQEAAAACIT0AAAACCAUAAAABaQAAAApmZWVBc3NldElkBQAAAAR1bml0CQAAAgAAAAECAAAAFGZlZSBtdXN0IGJlIGluIFdBVkVTBgEAAAAMZ2V0VGltZXN0YW1wAAAAAAQAAAAFYmxvY2sJAQAAAAdleHRyYWN0AAAAAQkAA+0AAAABBQAAAAZoZWlnaHQJAAGkAAAAAQgFAAAABWJsb2NrAAAACXRpbWVzdGFtcAAAAAMAAAABaQEAAAAEZnVuZAAAAAAEAAAABW93bmVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAABHR4aWQJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAQAAAAJdGltZXN0YW1wCQEAAAAMZ2V0VGltZXN0YW1wAAAAAAQAAAAGYW1vdW50CAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AAAABmFtb3VudAQAAAACY2YJAQAAAAhjaGVja0ZlZQAAAAEFAAAAAWkJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABBAAAAAckbWF0Y2gwCQEAAAAKZ2V0UmVmZXJlcgAAAAEFAAAABW93bmVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAABHJlZjEFAAAAByRtYXRjaDAEAAAACWluY0xldmVsMQkAAGkAAAACCQAAaAAAAAIFAAAABmFtb3VudAUAAAAGbGV2ZWwxAAAAAAAAAAPoBAAAAAtpbmNDYXNoQmFjawkAAGkAAAACCQAAaAAAAAIFAAAABmFtb3VudAUAAAAIY2FzaEJhY2sAAAAAAAAAA+gJAARMAAAAAgkBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACBQAAAAVvd25lcgUAAAALaW5jQ2FzaEJhY2sJAARMAAAAAgkBAAAAFnJlY29yZEJhbGFuY2VJbmNyZW1lbnQAAAAGBQAAAAVvd25lcgUAAAAFb3duZXIFAAAAC2luY0Nhc2hCYWNrAgAAAAhjYXNoYmFjawUAAAAEdHhpZAUAAAAJdGltZXN0YW1wCQAETAAAAAIJAQAAABBiYWxhbmNlSW5jcmVtZW50AAAAAgUAAAAEcmVmMQUAAAAJaW5jTGV2ZWwxCQAETAAAAAIJAQAAABZyZWNvcmRCYWxhbmNlSW5jcmVtZW50AAAABgUAAAAEcmVmMQUAAAAFb3duZXIFAAAACWluY0xldmVsMQIAAAACbDEFAAAABHR4aWQFAAAACXRpbWVzdGFtcAQAAAAHJG1hdGNoMQkBAAAACmdldFJlZmVyZXIAAAABBQAAAARyZWYxAwkAAAEAAAACBQAAAAckbWF0Y2gxAgAAAAZTdHJpbmcEAAAABHJlZjIFAAAAByRtYXRjaDEEAAAACWluY0xldmVsMgkAAGkAAAACCQAAaAAAAAIFAAAABmFtb3VudAUAAAAGbGV2ZWwyAAAAAAAAAAPoCQAETAAAAAIJAQAAABBiYWxhbmNlSW5jcmVtZW50AAAAAgUAAAAEcmVmMgUAAAAJaW5jTGV2ZWwyCQAETAAAAAIJAQAAABZyZWNvcmRCYWxhbmNlSW5jcmVtZW50AAAABgUAAAAEcmVmMgUAAAAFb3duZXIFAAAACWluY0xldmVsMgIAAAACbDIFAAAABHR4aWQFAAAACXRpbWVzdGFtcAQAAAAHJG1hdGNoMgkBAAAACmdldFJlZmVyZXIAAAABBQAAAARyZWYyAwkAAAEAAAACBQAAAAckbWF0Y2gyAgAAAAZTdHJpbmcEAAAABHJlZjMFAAAAByRtYXRjaDIEAAAACWluY0xldmVsMwkAAGkAAAACCQAAaAAAAAIFAAAABmFtb3VudAUAAAAGbGV2ZWwzAAAAAAAAAAPoCQAETAAAAAIJAQAAABBiYWxhbmNlSW5jcmVtZW50AAAAAgUAAAAEcmVmMwUAAAAJaW5jTGV2ZWwzCQAETAAAAAIJAQAAABZyZWNvcmRCYWxhbmNlSW5jcmVtZW50AAAABgUAAAAEcmVmMwUAAAAFb3duZXIFAAAACWluY0xldmVsMwIAAAACbDMFAAAABHR4aWQFAAAACXRpbWVzdGFtcAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADWNoYW5nZUFkZHJlc3MJAABlAAAAAgkAAGUAAAACCQAAZQAAAAIFAAAABmFtb3VudAUAAAAJaW5jTGV2ZWwxBQAAAAlpbmNMZXZlbDIFAAAACWluY0xldmVsMwkABEwAAAACCQEAAAAWcmVjb3JkQmFsYW5jZUluY3JlbWVudAAAAAYFAAAADWNoYW5nZUFkZHJlc3MFAAAABW93bmVyCQAAZQAAAAIJAABlAAAAAgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQUAAAAJaW5jTGV2ZWwyBQAAAAlpbmNMZXZlbDMCAAAABmNoYW5nZQUAAAAEdHhpZAUAAAAJdGltZXN0YW1wBQAAAANuaWwJAARMAAAAAgkBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACBQAAAA1jaGFuZ2VBZGRyZXNzCQAAZQAAAAIJAABlAAAAAgUAAAAGYW1vdW50BQAAAAlpbmNMZXZlbDEFAAAACWluY0xldmVsMgkABEwAAAACCQEAAAAWcmVjb3JkQmFsYW5jZUluY3JlbWVudAAAAAYFAAAADWNoYW5nZUFkZHJlc3MFAAAABW93bmVyCQAAZQAAAAIJAABlAAAAAgUAAAAGYW1vdW50BQAAAAlpbmNMZXZlbDEFAAAACWluY0xldmVsMgIAAAAGY2hhbmdlBQAAAAR0eGlkBQAAAAl0aW1lc3RhbXAFAAAAA25pbAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADWNoYW5nZUFkZHJlc3MJAABlAAAAAgUAAAAGYW1vdW50BQAAAAlpbmNMZXZlbDEJAARMAAAAAgkBAAAAFnJlY29yZEJhbGFuY2VJbmNyZW1lbnQAAAAGBQAAAA1jaGFuZ2VBZGRyZXNzBQAAAAVvd25lcgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQIAAAAGY2hhbmdlBQAAAAR0eGlkBQAAAAl0aW1lc3RhbXAFAAAAA25pbAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADWNoYW5nZUFkZHJlc3MFAAAABmFtb3VudAkABEwAAAACCQEAAAAWcmVjb3JkQmFsYW5jZUluY3JlbWVudAAAAAYFAAAADWNoYW5nZUFkZHJlc3MFAAAABW93bmVyBQAAAAZhbW91bnQCAAAABmNoYW5nZQUAAAAEdHhpZAUAAAAJdGltZXN0YW1wBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCAUAAAABaQAAAANmZWUFAAAABHVuaXQFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAAEAAAAAmNmCQEAAAAIY2hlY2tGZWUAAAABBQAAAAFpBAAAAAVvd25lcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAR0eGlkCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQEAAAACmJhbGFuY2VLZXkJAAEsAAAAAgUAAAAFb3duZXICAAAACF9iYWxhbmNlBAAAAAZhbW91bnQEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAKYmFsYW5jZUtleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAwkAAGYAAAACBQAAAAttaW5XaXRoZHJhdwUAAAAGYW1vdW50CQAAAgAAAAEJAAEsAAAAAgIAAAAWTWluIHdpdGhkcmF3IGFtb3VudCBpcwkAAaQAAAABBQAAAAttaW5XaXRoZHJhdwkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACmJhbGFuY2VLZXkAAAAAAAAAAAAJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACXdpdGhkcmF3XwUAAAAFb3duZXICAAAAAV8FAAAABHR4aWQJAAEsAAAAAgkAASwAAAACCQABpAAAAAEFAAAABmFtb3VudAIAAAABOgkBAAAADGdldFRpbWVzdGFtcAAAAAAFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABkAAAAAgUAAAAGYW1vdW50CAUAAAABaQAAAANmZWUFAAAABHVuaXQFAAAAA25pbAAAAAFpAQAAAAhyZWdpc3RlcgAAAAIAAAAHcmVmZXJlcgAAAARzYWx0BAAAAAJjZgkBAAAACGNoZWNrRmVlAAAAAQUAAAABaQMJAQAAAAIhPQAAAAIJAAEvAAAAAgkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkAAAAAAAAAAADAgAAAAMxMjMJAAACAAAAAQIAAAAUcHJvb2Ygb2Ygd29yayBmYWlsZWQEAAAABW93bmVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMDCQEAAAAJaXNEZWZpbmVkAAAAAQkBAAAACmdldFJlZmVyZXIAAAABBQAAAAVvd25lcgkAAAIAAAABAgAAABJBbHJlYWR5IHJlZ2lzdGVyZWQEAAAAC3JlZmVyYWxzS2V5CQABLAAAAAIFAAAAB3JlZmVyZXICAAAACV9yZWZlcnJhbAQAAAAIcmVmZXJhbHMEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAALcmVmZXJhbHNLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAAHb2xkUmVmcwUAAAAHJG1hdGNoMAkAASwAAAACCQABLAAAAAIFAAAAB29sZFJlZnMCAAAAASwFAAAABW93bmVyBQAAAAVvd25lcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgUAAAAFb3duZXICAAAACF9yZWZlcmVyBQAAAAdyZWZlcmVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAtyZWZlcmFsc0tleQUAAAAIcmVmZXJhbHMFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIIBQAAAAFpAAAAA2ZlZQUAAAAEdW5pdAUAAAADbmlsAAAAAO4RsXI=",
    "chainId": 84,
    "height": 575499,
    "spentComplexity": 0
}

View: original | compacted
Prev: AWGFPNavYsp3eiDcodN5c3cJoSGAquiBswHEBhKAdqcZ
Next: 41VmHCqArHeBY1GmEzPGq9zjzruHqHEc99Pm4XRmhp9L

Diff: 
Old New Differences
13 13  
14 14  let minWithdraw = 1000000
15 15  
16 - let changeOwnerKey = "AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE"
16 + let changeAddress = "3Mpy9nDufCJFGvv342pf1umBmE6eNxwkJJ1"
17 17  
18 18  func balanceIncrement (address,inc) = {
19 19      let balanceKey = (address + "_balance")
34 34  
35 35  func checkFee (i) = if ((i.fee > maxFee))
36 36      then throw("unreasonable large fee")
37 -     else true
37 +     else if ((i.feeAssetId != unit))
38 +         then throw("fee must be in WAVES")
39 +         else true
38 40  
39 41  
40 42  func getTimestamp () = {
60 62  [balanceIncrement(ref2, incLevel2), recordBalanceIncrement(ref2, owner, incLevel2, "l2", txid, timestamp),                     match getReferer(ref2) {
61 63                          case ref3: String => 
62 64                              let incLevel3 = ((amount * level3) / 1000)
63 - [balanceIncrement(ref3, incLevel3), recordBalanceIncrement(ref3, owner, incLevel3, "l3", txid, timestamp), balanceIncrement(changeOwnerKey, (((amount - incLevel1) - incLevel2) - incLevel3)), recordBalanceIncrement(changeOwnerKey, owner, (((amount - incLevel1) - incLevel2) - incLevel3), "change", txid, timestamp)]
65 + [balanceIncrement(ref3, incLevel3), recordBalanceIncrement(ref3, owner, incLevel3, "l3", txid, timestamp), balanceIncrement(changeAddress, (((amount - incLevel1) - incLevel2) - incLevel3)), recordBalanceIncrement(changeAddress, owner, (((amount - incLevel1) - incLevel2) - incLevel3), "change", txid, timestamp)]
64 66                          case _ => 
65 - [balanceIncrement(changeOwnerKey, ((amount - incLevel1) - incLevel2)), recordBalanceIncrement(changeOwnerKey, owner, ((amount - incLevel1) - incLevel2), "change", txid, timestamp)]
67 + [balanceIncrement(changeAddress, ((amount - incLevel1) - incLevel2)), recordBalanceIncrement(changeAddress, owner, ((amount - incLevel1) - incLevel2), "change", txid, timestamp)]
66 68                      }]
67 69                  case _ => 
68 - [balanceIncrement(changeOwnerKey, (amount - incLevel1)), recordBalanceIncrement(changeOwnerKey, owner, (amount - incLevel1), "change", txid, timestamp)]
70 + [balanceIncrement(changeAddress, (amount - incLevel1)), recordBalanceIncrement(changeAddress, owner, (amount - incLevel1), "change", txid, timestamp)]
69 71              }]
70 72          case _ => 
71 - [balanceIncrement(changeOwnerKey, amount), recordBalanceIncrement(changeOwnerKey, owner, amount, "change", txid, timestamp)]
73 + [balanceIncrement(changeAddress, amount), recordBalanceIncrement(changeAddress, owner, amount, "change", txid, timestamp)]
72 74      }), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
73 75      }
74 76  
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 - let changeOwnerKey = "AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE"
16 + let changeAddress = "3Mpy9nDufCJFGvv342pf1umBmE6eNxwkJJ1"
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 -     else true
37 +     else if ((i.feeAssetId != unit))
38 +         then throw("fee must be in WAVES")
39 +         else true
38 40  
39 41  
40 42  func getTimestamp () = {
41 43      let block = extract(blockInfoByHeight(height))
42 44      toString(block.timestamp)
43 45      }
44 46  
45 47  
46 48  @Callable(i)
47 49  func fund () = {
48 50      let owner = toBase58String(i.caller.bytes)
49 51      let txid = toBase58String(i.transactionId)
50 52      let timestamp = getTimestamp()
51 53      let amount = extract(i.payment).amount
52 54      let cf = checkFee(i)
53 55      ScriptResult(WriteSet(    match getReferer(owner) {
54 56          case ref1: String => 
55 57              let incLevel1 = ((amount * level1) / 1000)
56 58              let incCashBack = ((amount * cashBack) / 1000)
57 59  [balanceIncrement(owner, incCashBack), recordBalanceIncrement(owner, owner, incCashBack, "cashback", txid, timestamp), balanceIncrement(ref1, incLevel1), recordBalanceIncrement(ref1, owner, incLevel1, "l1", txid, timestamp),             match getReferer(ref1) {
58 60                  case ref2: String => 
59 61                      let incLevel2 = ((amount * level2) / 1000)
60 62  [balanceIncrement(ref2, incLevel2), recordBalanceIncrement(ref2, owner, incLevel2, "l2", txid, timestamp),                     match getReferer(ref2) {
61 63                          case ref3: String => 
62 64                              let incLevel3 = ((amount * level3) / 1000)
63 - [balanceIncrement(ref3, incLevel3), recordBalanceIncrement(ref3, owner, incLevel3, "l3", txid, timestamp), balanceIncrement(changeOwnerKey, (((amount - incLevel1) - incLevel2) - incLevel3)), recordBalanceIncrement(changeOwnerKey, owner, (((amount - incLevel1) - incLevel2) - incLevel3), "change", txid, timestamp)]
65 + [balanceIncrement(ref3, incLevel3), recordBalanceIncrement(ref3, owner, incLevel3, "l3", txid, timestamp), balanceIncrement(changeAddress, (((amount - incLevel1) - incLevel2) - incLevel3)), recordBalanceIncrement(changeAddress, owner, (((amount - incLevel1) - incLevel2) - incLevel3), "change", txid, timestamp)]
64 66                          case _ => 
65 - [balanceIncrement(changeOwnerKey, ((amount - incLevel1) - incLevel2)), recordBalanceIncrement(changeOwnerKey, owner, ((amount - incLevel1) - incLevel2), "change", txid, timestamp)]
67 + [balanceIncrement(changeAddress, ((amount - incLevel1) - incLevel2)), recordBalanceIncrement(changeAddress, owner, ((amount - incLevel1) - incLevel2), "change", txid, timestamp)]
66 68                      }]
67 69                  case _ => 
68 - [balanceIncrement(changeOwnerKey, (amount - incLevel1)), recordBalanceIncrement(changeOwnerKey, owner, (amount - incLevel1), "change", txid, timestamp)]
70 + [balanceIncrement(changeAddress, (amount - incLevel1)), recordBalanceIncrement(changeAddress, owner, (amount - incLevel1), "change", txid, timestamp)]
69 71              }]
70 72          case _ => 
71 - [balanceIncrement(changeOwnerKey, amount), recordBalanceIncrement(changeOwnerKey, owner, amount, "change", txid, timestamp)]
73 + [balanceIncrement(changeAddress, amount), recordBalanceIncrement(changeAddress, owner, amount, "change", txid, timestamp)]
72 74      }), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
73 75      }
74 76  
75 77  
76 78  
77 79  @Callable(i)
78 80  func withdraw () = {
79 81      let cf = checkFee(i)
80 82      let owner = toBase58String(i.caller.bytes)
81 83      let txid = toBase58String(i.transactionId)
82 84      let balanceKey = (owner + "_balance")
83 85      let amount =     match getInteger(this, balanceKey) {
84 86          case b: Int => 
85 87              b
86 88          case _ => 
87 89              0
88 90      }
89 91      if ((minWithdraw > amount))
90 92          then throw(("Min withdraw amount is" + toString(minWithdraw)))
91 93          else ScriptResult(WriteSet([DataEntry(balanceKey, 0), DataEntry(((("withdraw_" + owner) + "_") + txid), ((toString(amount) + ":") + getTimestamp()))]), TransferSet([ScriptTransfer(i.caller, (amount + i.fee), unit)]))
92 94      }
93 95  
94 96  
95 97  
96 98  @Callable(i)
97 99  func register (referer,salt) = {
98 100      let cf = checkFee(i)
99 101      if ((take(toBase58String(i.transactionId), 3) != "123"))
100 102          then throw("proof of work failed")
101 103          else {
102 104              let owner = toBase58String(i.caller.bytes)
103 105              if (isDefined(getReferer(owner)))
104 106                  then throw("Already registered")
105 107                  else {
106 108                      let referalsKey = (referer + "_referral")
107 109                      let referals =                     match getString(this, referalsKey) {
108 110                          case oldRefs: String => 
109 111                              ((oldRefs + ",") + owner)
110 112                          case _ => 
111 113                              owner
112 114                      }
113 115                      ScriptResult(WriteSet([DataEntry((owner + "_referer"), referer), DataEntry(referalsKey, referals)]), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
114 116                      }
115 117              }
116 118      }
117 119  
118 120

Old	New		Differences
13	13
14	14		let minWithdraw = 1000000
15	15
16		-	let ~~changeOwnerKey~~ = "~~AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE~~"
	16	+	let changeAddress = "3Mpy9nDufCJFGvv342pf1umBmE6eNxwkJJ1"
17	17
18	18		func balanceIncrement (address,inc) = {
19	19		let balanceKey = (address + "_balance")

34	34
35	35		func checkFee (i) = if ((i.fee > maxFee))
36	36		then throw("unreasonable large fee")
37		-	else true
	37	+	else if ((i.feeAssetId != unit))
	38	+	then throw("fee must be in WAVES")
	39	+	else true
38	40
39	41
40	42		func getTimestamp () = {

60	62		[balanceIncrement(ref2, incLevel2), recordBalanceIncrement(ref2, owner, incLevel2, "l2", txid, timestamp), match getReferer(ref2) {
61	63		case ref3: String =>
62	64		let incLevel3 = ((amount * level3) / 1000)
63		-	[balanceIncrement(ref3, incLevel3), recordBalanceIncrement(ref3, owner, incLevel3, "l3", txid, timestamp), balanceIncrement(~~changeOwnerKey~~, (((amount - incLevel1) - incLevel2) - incLevel3)), recordBalanceIncrement(~~changeOwnerKey~~, owner, (((amount - incLevel1) - incLevel2) - incLevel3), "change", txid, timestamp)]
	65	+	[balanceIncrement(ref3, incLevel3), recordBalanceIncrement(ref3, owner, incLevel3, "l3", txid, timestamp), balanceIncrement(changeAddress, (((amount - incLevel1) - incLevel2) - incLevel3)), recordBalanceIncrement(changeAddress, owner, (((amount - incLevel1) - incLevel2) - incLevel3), "change", txid, timestamp)]
64	66		case _ =>
65		-	[balanceIncrement(~~changeOwnerKey~~, ((amount - incLevel1) - incLevel2)), recordBalanceIncrement(~~changeOwnerKey~~, owner, ((amount - incLevel1) - incLevel2), "change", txid, timestamp)]
	67	+	[balanceIncrement(changeAddress, ((amount - incLevel1) - incLevel2)), recordBalanceIncrement(changeAddress, owner, ((amount - incLevel1) - incLevel2), "change", txid, timestamp)]
66	68		}]
67	69		case _ =>
68		-	[balanceIncrement(~~changeOwnerKey~~, (amount - incLevel1)), recordBalanceIncrement(~~changeOwnerKey~~, owner, (amount - incLevel1), "change", txid, timestamp)]
	70	+	[balanceIncrement(changeAddress, (amount - incLevel1)), recordBalanceIncrement(changeAddress, owner, (amount - incLevel1), "change", txid, timestamp)]
69	71		}]
70	72		case _ =>
71		-	[balanceIncrement(~~changeOwnerKey~~, amount), recordBalanceIncrement(~~changeOwnerKey~~, owner, amount, "change", txid, timestamp)]
	73	+	[balanceIncrement(changeAddress, amount), recordBalanceIncrement(changeAddress, owner, amount, "change", txid, timestamp)]
72	74		}), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
73	75		}
74	76

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		-	let ~~changeOwnerKey~~ = "~~AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE~~"
	16	+	let changeAddress = "3Mpy9nDufCJFGvv342pf1umBmE6eNxwkJJ1"
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		-	else true
	37	+	else if ((i.feeAssetId != unit))
	38	+	then throw("fee must be in WAVES")
	39	+	else true
38	40
39	41
40	42		func getTimestamp () = {
41	43		let block = extract(blockInfoByHeight(height))
42	44		toString(block.timestamp)
43	45		}
44	46
45	47
46	48		@Callable(i)
47	49		func fund () = {
48	50		let owner = toBase58String(i.caller.bytes)
49	51		let txid = toBase58String(i.transactionId)
50	52		let timestamp = getTimestamp()
51	53		let amount = extract(i.payment).amount
52	54		let cf = checkFee(i)
53	55		ScriptResult(WriteSet( match getReferer(owner) {
54	56		case ref1: String =>
55	57		let incLevel1 = ((amount * level1) / 1000)
56	58		let incCashBack = ((amount * cashBack) / 1000)
57	59		[balanceIncrement(owner, incCashBack), recordBalanceIncrement(owner, owner, incCashBack, "cashback", txid, timestamp), balanceIncrement(ref1, incLevel1), recordBalanceIncrement(ref1, owner, incLevel1, "l1", txid, timestamp), match getReferer(ref1) {
58	60		case ref2: String =>
59	61		let incLevel2 = ((amount * level2) / 1000)
60	62		[balanceIncrement(ref2, incLevel2), recordBalanceIncrement(ref2, owner, incLevel2, "l2", txid, timestamp), match getReferer(ref2) {
61	63		case ref3: String =>
62	64		let incLevel3 = ((amount * level3) / 1000)
63		-	[balanceIncrement(ref3, incLevel3), recordBalanceIncrement(ref3, owner, incLevel3, "l3", txid, timestamp), balanceIncrement(~~changeOwnerKey~~, (((amount - incLevel1) - incLevel2) - incLevel3)), recordBalanceIncrement(~~changeOwnerKey~~, owner, (((amount - incLevel1) - incLevel2) - incLevel3), "change", txid, timestamp)]
	65	+	[balanceIncrement(ref3, incLevel3), recordBalanceIncrement(ref3, owner, incLevel3, "l3", txid, timestamp), balanceIncrement(changeAddress, (((amount - incLevel1) - incLevel2) - incLevel3)), recordBalanceIncrement(changeAddress, owner, (((amount - incLevel1) - incLevel2) - incLevel3), "change", txid, timestamp)]
64	66		case _ =>
65		-	[balanceIncrement(~~changeOwnerKey~~, ((amount - incLevel1) - incLevel2)), recordBalanceIncrement(~~changeOwnerKey~~, owner, ((amount - incLevel1) - incLevel2), "change", txid, timestamp)]
	67	+	[balanceIncrement(changeAddress, ((amount - incLevel1) - incLevel2)), recordBalanceIncrement(changeAddress, owner, ((amount - incLevel1) - incLevel2), "change", txid, timestamp)]
66	68		}]
67	69		case _ =>
68		-	[balanceIncrement(~~changeOwnerKey~~, (amount - incLevel1)), recordBalanceIncrement(~~changeOwnerKey~~, owner, (amount - incLevel1), "change", txid, timestamp)]
	70	+	[balanceIncrement(changeAddress, (amount - incLevel1)), recordBalanceIncrement(changeAddress, owner, (amount - incLevel1), "change", txid, timestamp)]
69	71		}]
70	72		case _ =>
71		-	[balanceIncrement(~~changeOwnerKey~~, amount), recordBalanceIncrement(~~changeOwnerKey~~, owner, amount, "change", txid, timestamp)]
	73	+	[balanceIncrement(changeAddress, amount), recordBalanceIncrement(changeAddress, owner, amount, "change", txid, timestamp)]
72	74		}), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
73	75		}
74	76
75	77
76	78
77	79		@Callable(i)
78	80		func withdraw () = {
79	81		let cf = checkFee(i)
80	82		let owner = toBase58String(i.caller.bytes)
81	83		let txid = toBase58String(i.transactionId)
82	84		let balanceKey = (owner + "_balance")
83	85		let amount = match getInteger(this, balanceKey) {
84	86		case b: Int =>
85	87		b
86	88		case _ =>
87	89		0
88	90		}
89	91		if ((minWithdraw > amount))
90	92		then throw(("Min withdraw amount is" + toString(minWithdraw)))
91	93		else ScriptResult(WriteSet([DataEntry(balanceKey, 0), DataEntry(((("withdraw_" + owner) + "_") + txid), ((toString(amount) + ":") + getTimestamp()))]), TransferSet([ScriptTransfer(i.caller, (amount + i.fee), unit)]))
92	94		}
93	95
94	96
95	97
96	98		@Callable(i)
97	99		func register (referer,salt) = {
98	100		let cf = checkFee(i)
99	101		if ((take(toBase58String(i.transactionId), 3) != "123"))
100	102		then throw("proof of work failed")
101	103		else {
102	104		let owner = toBase58String(i.caller.bytes)
103	105		if (isDefined(getReferer(owner)))
104	106		then throw("Already registered")
105	107		else {
106	108		let referalsKey = (referer + "_referral")
107	109		let referals = match getString(this, referalsKey) {
108	110		case oldRefs: String =>
109	111		((oldRefs + ",") + owner)
110	112		case _ =>
111	113		owner
112	114		}
113	115		ScriptResult(WriteSet([DataEntry((owner + "_referer"), referer), DataEntry(referalsKey, referals)]), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
114	116		}
115	117		}
116	118		}
117	119
118	120

github/deemru/w8io/873ac7e 
27.11 ms ◑