w8 · tx · 41V···p9L

tx · 41VmHCqArHeBY1GmEzPGq9zjzruHqHEc99Pm4XRmhp9L

3MqSVVMsPLhbavWyUu81TPFCXs5a5c1vuHz:  -0.01400000 Waves

2019.07.08 13:48 [576538] smart account 3MqSVVMsPLhbavWyUu81TPFCXs5a5c1vuHz > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "41VmHCqArHeBY1GmEzPGq9zjzruHqHEc99Pm4XRmhp9L",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1562582969434,
    "version": 1,
    "sender": "3MqSVVMsPLhbavWyUu81TPFCXs5a5c1vuHz",
    "senderPublicKey": "F4oaEUZCJFZeYV17bYU99QsvVc5F9UzZG56oXzHwM2CC",
    "proofs": [
        "2Gv1hdjM9m4RSyFvz8P7uhRydJuE5DvxDwHgg7AXkshnqtUVRjnHz6yB1VEXEDSb4hM4ZsXq4JCct2d5LnHv3g6J"
    ],
    "script": "base64:AAIDAAAAAAAAAAAAAAAMAAAAAAZsZXZlbDEAAAAAAAAAAPoAAAAABmxldmVsMgAAAAAAAAAA+gAAAAAGbGV2ZWwzAAAAAAAAAAD6AAAAAAhjYXNoQmFjawAAAAAAAAAA+gAAAAAGbWF4RmVlAAAAAAAATEtAAAAAAAttaW5XaXRoZHJhdwAAAAAAAA9CQAAAAAANY2hhbmdlQWRkcmVzcwIAAAAjM01weTluRHVmQ0pGR3Z2MzQycGYxdW1CbUU2ZU54d2tKSjEBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACAAAAB2FkZHJlc3MAAAADaW5jBAAAAApiYWxhbmNlS2V5CQABLAAAAAIFAAAAB2FkZHJlc3MCAAAACF9iYWxhbmNlCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAKYmFsYW5jZUtleQkAAGQAAAACBQAAAANpbmMEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAKYmFsYW5jZUtleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAQAAABZyZWNvcmRCYWxhbmNlSW5jcmVtZW50AAAABgAAAAdhZGRyZXNzAAAABW93bmVyAAAAA2luYwAAAAVsZXZlbAAAAAR0eElkAAAACXRpbWVzdGFtcAkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAABWZ1bmRfBQAAAAdhZGRyZXNzAgAAAAFfBQAAAAR0eElkCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAVvd25lcgIAAAABOgkAAaQAAAABBQAAAANpbmMCAAAAAToFAAAABWxldmVsAgAAAAE6BQAAAAl0aW1lc3RhbXABAAAACmdldFJlZmVyZXIAAAABAAAABHVzZXIJAAQdAAAAAgUAAAAEdGhpcwkAASwAAAACBQAAAAR1c2VyAgAAAAhfcmVmZXJlcgEAAAAIY2hlY2tGZWUAAAABAAAAAWkDCQAAZgAAAAIIBQAAAAFpAAAAA2ZlZQUAAAAGbWF4RmVlCQAAAgAAAAECAAAAFnVucmVhc29uYWJsZSBsYXJnZSBmZWUDCQEAAAACIT0AAAACCAUAAAABaQAAAApmZWVBc3NldElkBQAAAAR1bml0CQAAAgAAAAECAAAAFGZlZSBtdXN0IGJlIGluIFdBVkVTBgEAAAAMZ2V0VGltZXN0YW1wAAAAAAQAAAAFYmxvY2sJAQAAAAdleHRyYWN0AAAAAQkAA+0AAAABBQAAAAZoZWlnaHQJAAGkAAAAAQgFAAAABWJsb2NrAAAACXRpbWVzdGFtcAAAAAMAAAABaQEAAAAEZnVuZAAAAAAEAAAABW93bmVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAABHR4aWQJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAQAAAAJdGltZXN0YW1wCQEAAAAMZ2V0VGltZXN0YW1wAAAAAAQAAAAGYW1vdW50CAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AAAABmFtb3VudAQAAAACY2YJAQAAAAhjaGVja0ZlZQAAAAEFAAAAAWkJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABBAAAAAckbWF0Y2gwCQEAAAAKZ2V0UmVmZXJlcgAAAAEFAAAABW93bmVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAABHJlZjEFAAAAByRtYXRjaDAEAAAACWluY0xldmVsMQkAAGkAAAACCQAAaAAAAAIFAAAABmFtb3VudAUAAAAGbGV2ZWwxAAAAAAAAAAPoBAAAAAtpbmNDYXNoQmFjawkAAGkAAAACCQAAaAAAAAIFAAAABmFtb3VudAUAAAAIY2FzaEJhY2sAAAAAAAAAA+gJAARMAAAAAgkBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACBQAAAAVvd25lcgUAAAALaW5jQ2FzaEJhY2sJAARMAAAAAgkBAAAAFnJlY29yZEJhbGFuY2VJbmNyZW1lbnQAAAAGBQAAAAVvd25lcgUAAAAFb3duZXIFAAAAC2luY0Nhc2hCYWNrAgAAAAhjYXNoYmFjawUAAAAEdHhpZAUAAAAJdGltZXN0YW1wCQAETAAAAAIJAQAAABBiYWxhbmNlSW5jcmVtZW50AAAAAgUAAAAEcmVmMQUAAAAJaW5jTGV2ZWwxCQAETAAAAAIJAQAAABZyZWNvcmRCYWxhbmNlSW5jcmVtZW50AAAABgUAAAAEcmVmMQUAAAAFb3duZXIFAAAACWluY0xldmVsMQIAAAACbDEFAAAABHR4aWQFAAAACXRpbWVzdGFtcAQAAAAHJG1hdGNoMQkBAAAACmdldFJlZmVyZXIAAAABBQAAAARyZWYxAwkAAAEAAAACBQAAAAckbWF0Y2gxAgAAAAZTdHJpbmcEAAAABHJlZjIFAAAAByRtYXRjaDEEAAAACWluY0xldmVsMgkAAGkAAAACCQAAaAAAAAIFAAAABmFtb3VudAUAAAAGbGV2ZWwyAAAAAAAAAAPoCQAETAAAAAIJAQAAABBiYWxhbmNlSW5jcmVtZW50AAAAAgUAAAAEcmVmMgUAAAAJaW5jTGV2ZWwyCQAETAAAAAIJAQAAABZyZWNvcmRCYWxhbmNlSW5jcmVtZW50AAAABgUAAAAEcmVmMgUAAAAFb3duZXIFAAAACWluY0xldmVsMgIAAAACbDIFAAAABHR4aWQFAAAACXRpbWVzdGFtcAQAAAAHJG1hdGNoMgkBAAAACmdldFJlZmVyZXIAAAABBQAAAARyZWYyAwkAAAEAAAACBQAAAAckbWF0Y2gyAgAAAAZTdHJpbmcEAAAABHJlZjMFAAAAByRtYXRjaDIEAAAACWluY0xldmVsMwkAAGkAAAACCQAAaAAAAAIFAAAABmFtb3VudAUAAAAGbGV2ZWwzAAAAAAAAAAPoCQAETAAAAAIJAQAAABBiYWxhbmNlSW5jcmVtZW50AAAAAgUAAAAEcmVmMwUAAAAJaW5jTGV2ZWwzCQAETAAAAAIJAQAAABZyZWNvcmRCYWxhbmNlSW5jcmVtZW50AAAABgUAAAAEcmVmMwUAAAAFb3duZXIFAAAACWluY0xldmVsMwIAAAACbDMFAAAABHR4aWQFAAAACXRpbWVzdGFtcAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADWNoYW5nZUFkZHJlc3MJAABlAAAAAgkAAGUAAAACCQAAZQAAAAIFAAAABmFtb3VudAUAAAAJaW5jTGV2ZWwxBQAAAAlpbmNMZXZlbDIFAAAACWluY0xldmVsMwkABEwAAAACCQEAAAAWcmVjb3JkQmFsYW5jZUluY3JlbWVudAAAAAYFAAAADWNoYW5nZUFkZHJlc3MFAAAABW93bmVyCQAAZQAAAAIJAABlAAAAAgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQUAAAAJaW5jTGV2ZWwyBQAAAAlpbmNMZXZlbDMCAAAABmNoYW5nZQUAAAAEdHhpZAUAAAAJdGltZXN0YW1wBQAAAANuaWwJAARMAAAAAgkBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACBQAAAA1jaGFuZ2VBZGRyZXNzCQAAZQAAAAIJAABlAAAAAgUAAAAGYW1vdW50BQAAAAlpbmNMZXZlbDEFAAAACWluY0xldmVsMgkABEwAAAACCQEAAAAWcmVjb3JkQmFsYW5jZUluY3JlbWVudAAAAAYFAAAADWNoYW5nZUFkZHJlc3MFAAAABW93bmVyCQAAZQAAAAIJAABlAAAAAgUAAAAGYW1vdW50BQAAAAlpbmNMZXZlbDEFAAAACWluY0xldmVsMgIAAAAGY2hhbmdlBQAAAAR0eGlkBQAAAAl0aW1lc3RhbXAFAAAAA25pbAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADWNoYW5nZUFkZHJlc3MJAABlAAAAAgUAAAAGYW1vdW50BQAAAAlpbmNMZXZlbDEJAARMAAAAAgkBAAAAFnJlY29yZEJhbGFuY2VJbmNyZW1lbnQAAAAGBQAAAA1jaGFuZ2VBZGRyZXNzBQAAAAVvd25lcgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQIAAAAGY2hhbmdlBQAAAAR0eGlkBQAAAAl0aW1lc3RhbXAFAAAAA25pbAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADWNoYW5nZUFkZHJlc3MFAAAABmFtb3VudAkABEwAAAACCQEAAAAWcmVjb3JkQmFsYW5jZUluY3JlbWVudAAAAAYFAAAADWNoYW5nZUFkZHJlc3MFAAAABW93bmVyBQAAAAZhbW91bnQCAAAABmNoYW5nZQUAAAAEdHhpZAUAAAAJdGltZXN0YW1wBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCAUAAAABaQAAAANmZWUFAAAABHVuaXQFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAAEAAAAAmNmCQEAAAAIY2hlY2tGZWUAAAABBQAAAAFpBAAAAAVvd25lcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAR0eGlkCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQEAAAACmJhbGFuY2VLZXkJAAEsAAAAAgUAAAAFb3duZXICAAAACF9iYWxhbmNlBAAAAAZhbW91bnQEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAKYmFsYW5jZUtleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAwkAAGYAAAACBQAAAAttaW5XaXRoZHJhdwUAAAAGYW1vdW50CQAAAgAAAAEJAAEsAAAAAgIAAAAWTWluIHdpdGhkcmF3IGFtb3VudCBpcwkAAaQAAAABBQAAAAttaW5XaXRoZHJhdwkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACmJhbGFuY2VLZXkAAAAAAAAAAAAJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACXdpdGhkcmF3XwUAAAAFb3duZXICAAAAAV8FAAAABHR4aWQJAAEsAAAAAgkAASwAAAACCQABpAAAAAEFAAAABmFtb3VudAIAAAABOgkBAAAADGdldFRpbWVzdGFtcAAAAAAFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABkAAAAAgUAAAAGYW1vdW50CAUAAAABaQAAAANmZWUFAAAABHVuaXQFAAAAA25pbAAAAAFpAQAAAAhyZWdpc3RlcgAAAAIAAAAHcmVmZXJlcgAAAARzYWx0BAAAAAJjZgkBAAAACGNoZWNrRmVlAAAAAQUAAAABaQMJAQAAAAIhPQAAAAIJAAEvAAAAAgkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkAAAAAAAAAAADAgAAAAMxMjMJAAACAAAAAQIAAAAUcHJvb2Ygb2Ygd29yayBmYWlsZWQEAAAABW93bmVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMDCQEAAAAJaXNEZWZpbmVkAAAAAQkBAAAACmdldFJlZmVyZXIAAAABBQAAAAVvd25lcgkAAAIAAAABAgAAABJBbHJlYWR5IHJlZ2lzdGVyZWQJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIFAAAABW93bmVyAgAAAAhfcmVmZXJlcgUAAAAHcmVmZXJlcgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAAdyZWZlcmVyAgAAAAlfcmVmZXJyYWwFAAAABW93bmVyBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCAUAAAABaQAAAANmZWUFAAAABHVuaXQFAAAAA25pbAAAAABPKGel",
    "chainId": 84,
    "height": 576538,
    "spentComplexity": 0
}

View: original | compacted
Prev: HvzFbL3qgyRNRLXsscckdpndbpkwgVX9j33dvmKokGH7
Next: 8LhKgzuPj8zZQwTFgD8F8qC5fGn72Ezbp7QeDYbc5kXx

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

Old	New		Differences
104	104		let owner = toBase58String(i.caller.bytes)
105	105		if (isDefined(getReferer(owner)))
106	106		then throw("Already registered")
107		-	else {
108		-	let referalsKey = (referer + "_referral")
109		-	let referals = match getString(this, referalsKey) {
110		-	case oldRefs: String =>
111		-	((oldRefs + ",") + owner)
112		-	case _ =>
113		-	owner
114		-	}
115		-	ScriptResult(WriteSet([DataEntry((owner + "_referer"), referer), DataEntry(referalsKey, referals)]), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
116		-	}
	107	+	else ScriptResult(WriteSet([DataEntry((owner + "_referer"), referer), DataEntry((referer + "_referral"), owner)]), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
117	108		}
118	109		}
119	110

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

github/deemru/w8io/c3f4982 
30.24 ms ◑