w8 · tx · 77G···Vo9

tx · 77Gfu262aBddrNvaajnePPJ4CTzUcZ83oo7czhUmPVo9

3Msughfkwji8uccY4RAxuKWvNpnEscWyhHK:  -0.01400000 Waves

2019.07.01 13:34 [566203] smart account 3Msughfkwji8uccY4RAxuKWvNpnEscWyhHK > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "77Gfu262aBddrNvaajnePPJ4CTzUcZ83oo7czhUmPVo9",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1561977363507,
    "version": 1,
    "sender": "3Msughfkwji8uccY4RAxuKWvNpnEscWyhHK",
    "senderPublicKey": "AzyC6W7iD5HYehj2xef6xWKogmxDC6RaX9N1ST8P39bn",
    "proofs": [
        "4Eogtx72Yz3z8Byz6KHyisbvDpeWJb2mJA2aeoxMyCsTqD2mgejRVpEd9yq7X1TV7rnBXe8ZCUEMCNCFRBNtby5Z"
    ],
    "script": "base64:AAIDAAAAAAAAAAAAAAAKAAAAAAZsZXZlbDEAAAAAAAAAAPoAAAAABmxldmVsMgAAAAAAAAAA+gAAAAAGbGV2ZWwzAAAAAAAAAAD6AAAAAAhjYXNoQmFjawAAAAAAAAAA+gAAAAAGbWF4RmVlAAAAAAAATEtAAAAAAA5jaGFuZ2VPd25lcktleQIAAAAsQUQydmJ6cFIzWk1YaVkxWmhCZHE0aUgxd3o1dzZ0VUNIUHoxdnZOZnlDcUUBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACAAAAB2FkZHJlc3MAAAADaW5jBAAAAApiYWxhbmNlS2V5CQABLAAAAAIFAAAAB2FkZHJlc3MCAAAACF9iYWxhbmNlCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAKYmFsYW5jZUtleQkAAGQAAAACBQAAAANpbmMEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAKYmFsYW5jZUtleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAQAAABVpbmRleEJhbGFuY2VJbmNyZW1lbnQAAAAEAAAAB2FkZHJlc3MAAAAFb3duZXIAAAADaW5jAAAABWxldmVsBAAAAAZsb2dLZXkJAAEsAAAAAgUAAAAHYWRkcmVzcwUAAAAFbGV2ZWwEAAAACnJlY29yZERhdGEJAAEsAAAAAgUAAAAFb3duZXIJAAGkAAAAAQUAAAADaW5jBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAABmxvZ0tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAARwcmV2BQAAAAckbWF0Y2gwCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAGbG9nS2V5CQABLAAAAAIJAAEsAAAAAgUAAAAEcHJldgIAAAABLAUAAAAKcmVjb3JkRGF0YQkBAAAACURhdGFFbnRyeQAAAAIFAAAABmxvZ0tleQUAAAAKcmVjb3JkRGF0YQEAAAAKZ2V0UmVmZXJlcgAAAAEAAAAEdXNlcgkABB0AAAACBQAAAAR0aGlzCQABLAAAAAIFAAAABHVzZXICAAAACF9yZWZlcmVyAQAAAAhjaGVja0ZlZQAAAAEAAAABaQMJAABmAAAAAggFAAAAAWkAAAADZmVlBQAAAAZtYXhGZWUJAAACAAAAAQIAAAAWdW5yZWFzb25hYmxlIGxhcmdlIGZlZQYAAAAEAAAAAWkBAAAABGZ1bmQAAAAABAAAAAVvd25lcgkAAlgAAAABCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkEAAAABWJsb2NrCQEAAAAHZXh0cmFjdAAAAAEJAAPtAAAAAQUAAAAGaGVpZ2h0BAAAAApvd25lckNvbG9uCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAVvd25lcgIAAAABOgkAAaQAAAABCAUAAAAFYmxvY2sAAAAJdGltZXN0YW1wAgAAAAE6BAAAAAZhbW91bnQICQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQAAAAGYW1vdW50BAAAAAJjZgkBAAAACGNoZWNrRmVlAAAAAQUAAAABaQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkAASwAAAACBQAAAAVvd25lcgIAAAANX3JlZnN0cnVjdHVyZQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAhyZWZMaXN0UwUAAAAHJG1hdGNoMAQAAAAHcmVmTGlzdAkABLUAAAACBQAAAAhyZWZMaXN0UwIAAAABLAQAAAALcmVmTGlzdFNpemUJAAGQAAAAAQUAAAAHcmVmTGlzdAQAAAAJaW5jTGV2ZWwxCQAAaQAAAAIJAABoAAAAAgUAAAAGYW1vdW50BQAAAAZsZXZlbDEAAAAAAAAAA+gEAAAAC2luY0Nhc2hCYWNrCQAAaQAAAAIJAABoAAAAAgUAAAAGYW1vdW50BQAAAAhjYXNoQmFjawAAAAAAAAAD6AkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAABW93bmVyBQAAAAtpbmNDYXNoQmFjawkABEwAAAACCQEAAAAVaW5kZXhCYWxhbmNlSW5jcmVtZW50AAAABAUAAAAFb3duZXIFAAAACm93bmVyQ29sb24FAAAAC2luY0Nhc2hCYWNrAgAAAA1fdHhzX2Nhc2hiYWNrCQAETAAAAAIJAQAAABBiYWxhbmNlSW5jcmVtZW50AAAAAgkAAZEAAAACBQAAAAdyZWZMaXN0AAAAAAAAAAAABQAAAAlpbmNMZXZlbDEJAARMAAAAAgkBAAAAFWluZGV4QmFsYW5jZUluY3JlbWVudAAAAAQJAAGRAAAAAgUAAAAHcmVmTGlzdAAAAAAAAAAAAAUAAAAKb3duZXJDb2xvbgUAAAAJaW5jTGV2ZWwxAgAAAAdfdHhzX2wxAwkAAGcAAAACBQAAAAtyZWZMaXN0U2l6ZQAAAAAAAAAAAgQAAAAJaW5jTGV2ZWwyCQAAaQAAAAIJAABoAAAAAgUAAAAGYW1vdW50BQAAAAZsZXZlbDIAAAAAAAAAA+gJAARMAAAAAgkBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACCQABkQAAAAIFAAAAB3JlZkxpc3QAAAAAAAAAAAEFAAAACWluY0xldmVsMgkABEwAAAACCQEAAAAVaW5kZXhCYWxhbmNlSW5jcmVtZW50AAAABAkAAZEAAAACBQAAAAdyZWZMaXN0AAAAAAAAAAABBQAAAApvd25lckNvbG9uBQAAAAlpbmNMZXZlbDICAAAAB190eHNfbDIDCQAAZwAAAAIFAAAAC3JlZkxpc3RTaXplAAAAAAAAAAADBAAAAAlpbmNMZXZlbDMJAABpAAAAAgkAAGgAAAACBQAAAAZhbW91bnQFAAAABmxldmVsMwAAAAAAAAAD6AkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIJAAGRAAAAAgUAAAAHcmVmTGlzdAAAAAAAAAAAAgUAAAAJaW5jTGV2ZWwzCQAETAAAAAIJAQAAABVpbmRleEJhbGFuY2VJbmNyZW1lbnQAAAAECQABkQAAAAIFAAAAB3JlZkxpc3QAAAAAAAAAAAIFAAAACm93bmVyQ29sb24FAAAACWluY0xldmVsMwIAAAAHX3R4c19sMwkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADmNoYW5nZU93bmVyS2V5CQAAZQAAAAIJAABlAAAAAgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQUAAAAJaW5jTGV2ZWwyBQAAAAlpbmNMZXZlbDMJAARMAAAAAgkBAAAAFWluZGV4QmFsYW5jZUluY3JlbWVudAAAAAQFAAAADmNoYW5nZU93bmVyS2V5BQAAAApvd25lckNvbG9uCQAAZQAAAAIJAABlAAAAAgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQUAAAAJaW5jTGV2ZWwyBQAAAAlpbmNMZXZlbDMCAAAAC190eHNfY2hhbmdlBQAAAANuaWwJAARMAAAAAgkBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACBQAAAA5jaGFuZ2VPd25lcktleQkAAGUAAAACCQAAZQAAAAIFAAAABmFtb3VudAUAAAAJaW5jTGV2ZWwxBQAAAAlpbmNMZXZlbDIJAARMAAAAAgkBAAAAFWluZGV4QmFsYW5jZUluY3JlbWVudAAAAAQFAAAADmNoYW5nZU93bmVyS2V5BQAAAApvd25lckNvbG9uCQAAZQAAAAIJAABlAAAAAgUAAAAGYW1vdW50BQAAAAlpbmNMZXZlbDEFAAAACWluY0xldmVsMgIAAAALX3R4c19jaGFuZ2UFAAAAA25pbAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADmNoYW5nZU93bmVyS2V5CQAAZQAAAAIFAAAABmFtb3VudAUAAAAJaW5jTGV2ZWwxCQAETAAAAAIJAQAAABVpbmRleEJhbGFuY2VJbmNyZW1lbnQAAAAEBQAAAA5jaGFuZ2VPd25lcktleQUAAAAKb3duZXJDb2xvbgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQIAAAALX3R4c19jaGFuZ2UFAAAAA25pbAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADmNoYW5nZU93bmVyS2V5BQAAAAZhbW91bnQJAARMAAAAAgkBAAAAFWluZGV4QmFsYW5jZUluY3JlbWVudAAAAAQFAAAADmNoYW5nZU93bmVyS2V5BQAAAApvd25lckNvbG9uBQAAAAZhbW91bnQCAAAAC190eHNfY2hhbmdlBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCAUAAAABaQAAAANmZWUFAAAABHVuaXQFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAAEAAAAAmNmCQEAAAAIY2hlY2tGZWUAAAABBQAAAAFpBAAAAAVvd25lcgkAAlgAAAABCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkEAAAABmFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQABLAAAAAIFAAAABW93bmVyAgAAAAhfYmFsYW5jZQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAACQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAAVvd25lcgIAAAAIX2JhbGFuY2UAAAAAAAAAAAAFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAEdW5pdAUAAAADbmlsAAAAAWkBAAAABHRlc3QAAAAACQEAAAAIV3JpdGVTZXQAAAABBQAAAANuaWwAAAABaQEAAAAIcmVnaXN0ZXIAAAABAAAAB3JlZmVyZXIEAAAAAmNmCQEAAAAIY2hlY2tGZWUAAAABBQAAAAFpAwkBAAAAAiE9AAAAAgkAAS8AAAACCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQAAAAAAAAAAAMCAAAAAzEyMwkAAAIAAAABAgAAABRwcm9vZiBvZiB3b3JrIGZhaWxlZAQAAAAFb3duZXIJAAJYAAAAAQgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5AwkBAAAACWlzRGVmaW5lZAAAAAEJAQAAAApnZXRSZWZlcmVyAAAAAQUAAAAFb3duZXIJAAACAAAAAQIAAAASQWxyZWFkeSByZWdpc3RlcmVkBAAAAAtyZWZlcmFsc0tleQkAASwAAAACBQAAAAdyZWZlcmVyAgAAAApfcmVmZXJyYWxzBAAAAAhyZWZlcmFscwQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAAtyZWZlcmFsc0tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAdvbGRSZWZzBQAAAAckbWF0Y2gwCQABLAAAAAIJAAEsAAAAAgUAAAAHb2xkUmVmcwIAAAABLAUAAAAFb3duZXIFAAAABW93bmVyBAAAAAxyZWZTdHJ1Y3R1cmUJAAEsAAAAAgUAAAAHcmVmZXJlcgQAAAAHJG1hdGNoMAkBAAAACmdldFJlZmVyZXIAAAABBQAAAAdyZWZlcmVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAACHJlZmVyZXIyBQAAAAckbWF0Y2gwCQABLAAAAAIJAAEsAAAAAgIAAAABLAUAAAAIcmVmZXJlcjIEAAAAByRtYXRjaDEJAQAAAApnZXRSZWZlcmVyAAAAAQUAAAAIcmVmZXJlcjIDCQAAAQAAAAIFAAAAByRtYXRjaDECAAAABlN0cmluZwQAAAAIcmVmZXJlcjMFAAAAByRtYXRjaDEJAAEsAAAAAgIAAAABLAUAAAAIcmVmZXJlcjMCAAAAAAIAAAAACQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAAVvd25lcgIAAAAIX3JlZmVyZXIFAAAAB3JlZmVyZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAC3JlZmVyYWxzS2V5BQAAAAhyZWZlcmFscwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAAVvd25lcgIAAAANX3JlZnN0cnVjdHVyZQUAAAAMcmVmU3RydWN0dXJlBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCAUAAAABaQAAAANmZWUFAAAABHVuaXQFAAAAA25pbAAAAADetE2X",
    "chainId": 84,
    "height": 566203,
    "spentComplexity": 0
}

View: original | compacted
Prev: 64XWCVy3NRu9zoXaddY2oxijjj9X971eCzyXSt3gVYrn
Next: H7A13VBTxh1HLVwbf4FDsDwuj2qfQA2LzrBEZNTtxkfb

Diff: 
Old New Differences
9 9  
10 10  let cashBack = 250
11 11  
12 - let maxFee = 100000
12 + let maxFee = 5000000
13 13  
14 14  let changeOwnerKey = "AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE"
15 15  
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 - let maxFee = 100000
12 + let maxFee = 5000000
13 13  
14 14  let changeOwnerKey = "AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE"
15 15  
16 16  func balanceIncrement (address,inc) = {
17 17      let balanceKey = (address + "_balance")
18 18      DataEntry(balanceKey, (inc +     match getInteger(this, balanceKey) {
19 19          case b: Int => 
20 20              b
21 21          case _ => 
22 22              0
23 23      }))
24 24      }
25 25  
26 26  
27 27  func indexBalanceIncrement (address,owner,inc,level) = {
28 28      let logKey = (address + level)
29 29      let recordData = (owner + toString(inc))
30 30      match getString(this, logKey) {
31 31          case prev: String => 
32 32              DataEntry(logKey, ((prev + ",") + recordData))
33 33          case _ => 
34 34              DataEntry(logKey, recordData)
35 35      }
36 36      }
37 37  
38 38  
39 39  func getReferer (user) = getString(this, (user + "_referer"))
40 40  
41 41  
42 42  func checkFee (i) = if ((i.fee > maxFee))
43 43      then throw("unreasonable large fee")
44 44      else true
45 45  
46 46  
47 47  @Callable(i)
48 48  func fund () = {
49 49      let owner = toBase58String(i.callerPublicKey)
50 50      let block = extract(blockInfoByHeight(height))
51 51      let ownerColon = (((owner + ":") + toString(block.timestamp)) + ":")
52 52      let amount = extract(i.payment).amount
53 53      let cf = checkFee(i)
54 54      ScriptResult(WriteSet(    match getString(this, (owner + "_refstructure")) {
55 55          case refListS: String => 
56 56              let refList = split(refListS, ",")
57 57              let refListSize = size(refList)
58 58              let incLevel1 = ((amount * level1) / 1000)
59 59              let incCashBack = ((amount * cashBack) / 1000)
60 60  [balanceIncrement(owner, incCashBack), indexBalanceIncrement(owner, ownerColon, incCashBack, "_txs_cashback"), balanceIncrement(refList[0], incLevel1), indexBalanceIncrement(refList[0], ownerColon, incLevel1, "_txs_l1"), if ((refListSize >= 2))
61 61                  then {
62 62                      let incLevel2 = ((amount * level2) / 1000)
63 63  [balanceIncrement(refList[1], incLevel2), indexBalanceIncrement(refList[1], ownerColon, incLevel2, "_txs_l2"), if ((refListSize >= 3))
64 64                          then {
65 65                              let incLevel3 = ((amount * level3) / 1000)
66 66  [balanceIncrement(refList[2], incLevel3), indexBalanceIncrement(refList[2], ownerColon, incLevel3, "_txs_l3"), balanceIncrement(changeOwnerKey, (((amount - incLevel1) - incLevel2) - incLevel3)), indexBalanceIncrement(changeOwnerKey, ownerColon, (((amount - incLevel1) - incLevel2) - incLevel3), "_txs_change")]
67 67                              }
68 68                          else [balanceIncrement(changeOwnerKey, ((amount - incLevel1) - incLevel2)), indexBalanceIncrement(changeOwnerKey, ownerColon, ((amount - incLevel1) - incLevel2), "_txs_change")]]
69 69                      }
70 70                  else [balanceIncrement(changeOwnerKey, (amount - incLevel1)), indexBalanceIncrement(changeOwnerKey, ownerColon, (amount - incLevel1), "_txs_change")]]
71 71          case _ => 
72 72  [balanceIncrement(changeOwnerKey, amount), indexBalanceIncrement(changeOwnerKey, ownerColon, amount, "_txs_change")]
73 73      }), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
74 74      }
75 75  
76 76  
77 77  
78 78  @Callable(i)
79 79  func withdraw () = {
80 80      let cf = checkFee(i)
81 81      let owner = toBase58String(i.callerPublicKey)
82 82      let amount =     match getInteger(this, (owner + "_balance")) {
83 83          case b: Int => 
84 84              b
85 85          case _ => 
86 86              0
87 87      }
88 88      ScriptResult(WriteSet([DataEntry((owner + "_balance"), 0)]), TransferSet([ScriptTransfer(i.caller, amount, unit)]))
89 89      }
90 90  
91 91  
92 92  
93 93  @Callable(i)
94 94  func test () = WriteSet(nil)
95 95  
96 96  
97 97  
98 98  @Callable(i)
99 99  func register (referer) = {
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.callerPublicKey)
105 105              if (isDefined(getReferer(owner)))
106 106                  then throw("Already registered")
107 107                  else {
108 108                      let referalsKey = (referer + "_referrals")
109 109                      let referals =                     match getString(this, referalsKey) {
110 110                          case oldRefs: String => 
111 111                              ((oldRefs + ",") + owner)
112 112                          case _ => 
113 113                              owner
114 114                      }
115 115                      let refStructure = (referer +                     match getReferer(referer) {
116 116                          case referer2: String => 
117 117                              (("," + referer2) +                             match getReferer(referer2) {
118 118                                  case referer3: String => 
119 119                                      ("," + referer3)
120 120                                  case _ => 
121 121                                      ""
122 122                              })
123 123                          case _ => 
124 124                              ""
125 125                      })
126 126                      ScriptResult(WriteSet([DataEntry((owner + "_referer"), referer), DataEntry(referalsKey, referals), DataEntry((owner + "_refstructure"), refStructure)]), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
127 127                      }
128 128              }
129 129      }
130 130  
131 131

Old	New		Differences
9	9
10	10		let cashBack = 250
11	11
12		-	let maxFee = ~~100000~~
	12	+	let maxFee = 5000000
13	13
14	14		let changeOwnerKey = "AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE"
15	15

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		-	let maxFee = ~~100000~~
	12	+	let maxFee = 5000000
13	13
14	14		let changeOwnerKey = "AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE"
15	15
16	16		func balanceIncrement (address,inc) = {
17	17		let balanceKey = (address + "_balance")
18	18		DataEntry(balanceKey, (inc + match getInteger(this, balanceKey) {
19	19		case b: Int =>
20	20		b
21	21		case _ =>
22	22		0
23	23		}))
24	24		}
25	25
26	26
27	27		func indexBalanceIncrement (address,owner,inc,level) = {
28	28		let logKey = (address + level)
29	29		let recordData = (owner + toString(inc))
30	30		match getString(this, logKey) {
31	31		case prev: String =>
32	32		DataEntry(logKey, ((prev + ",") + recordData))
33	33		case _ =>
34	34		DataEntry(logKey, recordData)
35	35		}
36	36		}
37	37
38	38
39	39		func getReferer (user) = getString(this, (user + "_referer"))
40	40
41	41
42	42		func checkFee (i) = if ((i.fee > maxFee))
43	43		then throw("unreasonable large fee")
44	44		else true
45	45
46	46
47	47		@Callable(i)
48	48		func fund () = {
49	49		let owner = toBase58String(i.callerPublicKey)
50	50		let block = extract(blockInfoByHeight(height))
51	51		let ownerColon = (((owner + ":") + toString(block.timestamp)) + ":")
52	52		let amount = extract(i.payment).amount
53	53		let cf = checkFee(i)
54	54		ScriptResult(WriteSet( match getString(this, (owner + "_refstructure")) {
55	55		case refListS: String =>
56	56		let refList = split(refListS, ",")
57	57		let refListSize = size(refList)
58	58		let incLevel1 = ((amount * level1) / 1000)
59	59		let incCashBack = ((amount * cashBack) / 1000)
60	60		[balanceIncrement(owner, incCashBack), indexBalanceIncrement(owner, ownerColon, incCashBack, "_txs_cashback"), balanceIncrement(refList[0], incLevel1), indexBalanceIncrement(refList[0], ownerColon, incLevel1, "_txs_l1"), if ((refListSize >= 2))
61	61		then {
62	62		let incLevel2 = ((amount * level2) / 1000)
63	63		[balanceIncrement(refList[1], incLevel2), indexBalanceIncrement(refList[1], ownerColon, incLevel2, "_txs_l2"), if ((refListSize >= 3))
64	64		then {
65	65		let incLevel3 = ((amount * level3) / 1000)
66	66		[balanceIncrement(refList[2], incLevel3), indexBalanceIncrement(refList[2], ownerColon, incLevel3, "_txs_l3"), balanceIncrement(changeOwnerKey, (((amount - incLevel1) - incLevel2) - incLevel3)), indexBalanceIncrement(changeOwnerKey, ownerColon, (((amount - incLevel1) - incLevel2) - incLevel3), "_txs_change")]
67	67		}
68	68		else [balanceIncrement(changeOwnerKey, ((amount - incLevel1) - incLevel2)), indexBalanceIncrement(changeOwnerKey, ownerColon, ((amount - incLevel1) - incLevel2), "_txs_change")]]
69	69		}
70	70		else [balanceIncrement(changeOwnerKey, (amount - incLevel1)), indexBalanceIncrement(changeOwnerKey, ownerColon, (amount - incLevel1), "_txs_change")]]
71	71		case _ =>
72	72		[balanceIncrement(changeOwnerKey, amount), indexBalanceIncrement(changeOwnerKey, ownerColon, amount, "_txs_change")]
73	73		}), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
74	74		}
75	75
76	76
77	77
78	78		@Callable(i)
79	79		func withdraw () = {
80	80		let cf = checkFee(i)
81	81		let owner = toBase58String(i.callerPublicKey)
82	82		let amount = match getInteger(this, (owner + "_balance")) {
83	83		case b: Int =>
84	84		b
85	85		case _ =>
86	86		0
87	87		}
88	88		ScriptResult(WriteSet([DataEntry((owner + "_balance"), 0)]), TransferSet([ScriptTransfer(i.caller, amount, unit)]))
89	89		}
90	90
91	91
92	92
93	93		@Callable(i)
94	94		func test () = WriteSet(nil)
95	95
96	96
97	97
98	98		@Callable(i)
99	99		func register (referer) = {
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.callerPublicKey)
105	105		if (isDefined(getReferer(owner)))
106	106		then throw("Already registered")
107	107		else {
108	108		let referalsKey = (referer + "_referrals")
109	109		let referals = match getString(this, referalsKey) {
110	110		case oldRefs: String =>
111	111		((oldRefs + ",") + owner)
112	112		case _ =>
113	113		owner
114	114		}
115	115		let refStructure = (referer + match getReferer(referer) {
116	116		case referer2: String =>
117	117		(("," + referer2) + match getReferer(referer2) {
118	118		case referer3: String =>
119	119		("," + referer3)
120	120		case _ =>
121	121		""
122	122		})
123	123		case _ =>
124	124		""
125	125		})
126	126		ScriptResult(WriteSet([DataEntry((owner + "_referer"), referer), DataEntry(referalsKey, referals), DataEntry((owner + "_refstructure"), refStructure)]), TransferSet([ScriptTransfer(i.caller, i.fee, unit)]))
127	127		}
128	128		}
129	129		}
130	130
131	131

github/deemru/w8io/c3f4982 
29.45 ms ◑