w8 · tx · CSi···X47

tx · CSi5Msk2ANvEZxvSeREWgmP4A9jYK5Gfqagv5GwfX47

3Msughfkwji8uccY4RAxuKWvNpnEscWyhHK:  -0.01400000 Waves

2019.07.01 15:10 [566297] smart account 3Msughfkwji8uccY4RAxuKWvNpnEscWyhHK > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CSi5Msk2ANvEZxvSeREWgmP4A9jYK5Gfqagv5GwfX47",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1561983000856,
    "version": 1,
    "sender": "3Msughfkwji8uccY4RAxuKWvNpnEscWyhHK",
    "senderPublicKey": "AzyC6W7iD5HYehj2xef6xWKogmxDC6RaX9N1ST8P39bn",
    "proofs": [
        "3iS8JarBPjFBxUn44TbAGntCF4DW3yEgG1zNqaWpb1mkdtUdFUVHYYMt7jrPgVPHzRqHKP1cBBDsKKDq6SkcfSfm"
    ],
    "script": "base64:AAIDAAAAAAAAAAAAAAAKAAAAAAZsZXZlbDEAAAAAAAAAAPoAAAAABmxldmVsMgAAAAAAAAAA+gAAAAAGbGV2ZWwzAAAAAAAAAAD6AAAAAAhjYXNoQmFjawAAAAAAAAAA+gAAAAAGbWF4RmVlAAAAAAAATEtAAAAAAA5jaGFuZ2VPd25lcktleQIAAAAsQUQydmJ6cFIzWk1YaVkxWmhCZHE0aUgxd3o1dzZ0VUNIUHoxdnZOZnlDcUUBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACAAAAB2FkZHJlc3MAAAADaW5jBAAAAApiYWxhbmNlS2V5CQABLAAAAAIFAAAAB2FkZHJlc3MCAAAACF9iYWxhbmNlCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAKYmFsYW5jZUtleQkAAGQAAAACBQAAAANpbmMEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAKYmFsYW5jZUtleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAQAAABVpbmRleEJhbGFuY2VJbmNyZW1lbnQAAAAEAAAAB2FkZHJlc3MAAAAFb3duZXIAAAADaW5jAAAABWxldmVsBAAAAAZsb2dLZXkJAAEsAAAAAgUAAAAHYWRkcmVzcwUAAAAFbGV2ZWwEAAAACnJlY29yZERhdGEJAAEsAAAAAgUAAAAFb3duZXIJAAGkAAAAAQUAAAADaW5jBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAABmxvZ0tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAARwcmV2BQAAAAckbWF0Y2gwCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAGbG9nS2V5CQABLAAAAAIJAAEsAAAAAgUAAAAEcHJldgIAAAABLAUAAAAKcmVjb3JkRGF0YQkBAAAACURhdGFFbnRyeQAAAAIFAAAABmxvZ0tleQUAAAAKcmVjb3JkRGF0YQEAAAAKZ2V0UmVmZXJlcgAAAAEAAAAEdXNlcgkABB0AAAACBQAAAAR0aGlzCQABLAAAAAIFAAAABHVzZXICAAAACF9yZWZlcmVyAQAAAAhjaGVja0ZlZQAAAAEAAAABaQMJAABmAAAAAggFAAAAAWkAAAADZmVlBQAAAAZtYXhGZWUJAAACAAAAAQIAAAAWdW5yZWFzb25hYmxlIGxhcmdlIGZlZQYAAAAEAAAAAWkBAAAABGZ1bmQAAAAABAAAAAVvd25lcgkAAlgAAAABCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkEAAAABWJsb2NrCQEAAAAHZXh0cmFjdAAAAAEJAAPtAAAAAQUAAAAGaGVpZ2h0BAAAAApvd25lckNvbG9uCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAVvd25lcgIAAAABOgkAAaQAAAABCAUAAAAFYmxvY2sAAAAJdGltZXN0YW1wAgAAAAE6BAAAAAZhbW91bnQICQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQAAAAGYW1vdW50BAAAAAJjZgkBAAAACGNoZWNrRmVlAAAAAQUAAAABaQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkAASwAAAACBQAAAAVvd25lcgIAAAANX3JlZnN0cnVjdHVyZQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAhyZWZMaXN0UwUAAAAHJG1hdGNoMAQAAAAHcmVmTGlzdAkABLUAAAACBQAAAAhyZWZMaXN0UwIAAAABLAQAAAALcmVmTGlzdFNpemUJAAGQAAAAAQUAAAAHcmVmTGlzdAQAAAAJaW5jTGV2ZWwxCQAAaQAAAAIJAABoAAAAAgUAAAAGYW1vdW50BQAAAAZsZXZlbDEAAAAAAAAAA+gEAAAAC2luY0Nhc2hCYWNrCQAAaQAAAAIJAABoAAAAAgUAAAAGYW1vdW50BQAAAAhjYXNoQmFjawAAAAAAAAAD6AkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAABW93bmVyBQAAAAtpbmNDYXNoQmFjawkABEwAAAACCQEAAAAVaW5kZXhCYWxhbmNlSW5jcmVtZW50AAAABAUAAAAFb3duZXIFAAAACm93bmVyQ29sb24FAAAAC2luY0Nhc2hCYWNrAgAAAA1fdHhzX2Nhc2hiYWNrCQAETAAAAAIJAQAAABBiYWxhbmNlSW5jcmVtZW50AAAAAgkAAZEAAAACBQAAAAdyZWZMaXN0AAAAAAAAAAAABQAAAAlpbmNMZXZlbDEJAARMAAAAAgkBAAAAFWluZGV4QmFsYW5jZUluY3JlbWVudAAAAAQJAAGRAAAAAgUAAAAHcmVmTGlzdAAAAAAAAAAAAAUAAAAKb3duZXJDb2xvbgUAAAAJaW5jTGV2ZWwxAgAAAAdfdHhzX2wxAwkAAGcAAAACBQAAAAtyZWZMaXN0U2l6ZQAAAAAAAAAAAgQAAAAJaW5jTGV2ZWwyCQAAaQAAAAIJAABoAAAAAgUAAAAGYW1vdW50BQAAAAZsZXZlbDIAAAAAAAAAA+gJAARMAAAAAgkBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACCQABkQAAAAIFAAAAB3JlZkxpc3QAAAAAAAAAAAEFAAAACWluY0xldmVsMgkABEwAAAACCQEAAAAVaW5kZXhCYWxhbmNlSW5jcmVtZW50AAAABAkAAZEAAAACBQAAAAdyZWZMaXN0AAAAAAAAAAABBQAAAApvd25lckNvbG9uBQAAAAlpbmNMZXZlbDICAAAAB190eHNfbDIDCQAAZwAAAAIFAAAAC3JlZkxpc3RTaXplAAAAAAAAAAADBAAAAAlpbmNMZXZlbDMJAABpAAAAAgkAAGgAAAACBQAAAAZhbW91bnQFAAAABmxldmVsMwAAAAAAAAAD6AkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIJAAGRAAAAAgUAAAAHcmVmTGlzdAAAAAAAAAAAAgUAAAAJaW5jTGV2ZWwzCQAETAAAAAIJAQAAABVpbmRleEJhbGFuY2VJbmNyZW1lbnQAAAAECQABkQAAAAIFAAAAB3JlZkxpc3QAAAAAAAAAAAIFAAAACm93bmVyQ29sb24FAAAACWluY0xldmVsMwIAAAAHX3R4c19sMwkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADmNoYW5nZU93bmVyS2V5CQAAZQAAAAIJAABlAAAAAgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQUAAAAJaW5jTGV2ZWwyBQAAAAlpbmNMZXZlbDMJAARMAAAAAgkBAAAAFWluZGV4QmFsYW5jZUluY3JlbWVudAAAAAQFAAAADmNoYW5nZU93bmVyS2V5BQAAAApvd25lckNvbG9uCQAAZQAAAAIJAABlAAAAAgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQUAAAAJaW5jTGV2ZWwyBQAAAAlpbmNMZXZlbDMCAAAAC190eHNfY2hhbmdlBQAAAANuaWwJAARMAAAAAgkBAAAAEGJhbGFuY2VJbmNyZW1lbnQAAAACBQAAAA5jaGFuZ2VPd25lcktleQkAAGUAAAACCQAAZQAAAAIFAAAABmFtb3VudAUAAAAJaW5jTGV2ZWwxBQAAAAlpbmNMZXZlbDIJAARMAAAAAgkBAAAAFWluZGV4QmFsYW5jZUluY3JlbWVudAAAAAQFAAAADmNoYW5nZU93bmVyS2V5BQAAAApvd25lckNvbG9uCQAAZQAAAAIJAABlAAAAAgUAAAAGYW1vdW50BQAAAAlpbmNMZXZlbDEFAAAACWluY0xldmVsMgIAAAALX3R4c19jaGFuZ2UFAAAAA25pbAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADmNoYW5nZU93bmVyS2V5CQAAZQAAAAIFAAAABmFtb3VudAUAAAAJaW5jTGV2ZWwxCQAETAAAAAIJAQAAABVpbmRleEJhbGFuY2VJbmNyZW1lbnQAAAAEBQAAAA5jaGFuZ2VPd25lcktleQUAAAAKb3duZXJDb2xvbgkAAGUAAAACBQAAAAZhbW91bnQFAAAACWluY0xldmVsMQIAAAALX3R4c19jaGFuZ2UFAAAAA25pbAkABEwAAAACCQEAAAAQYmFsYW5jZUluY3JlbWVudAAAAAIFAAAADmNoYW5nZU93bmVyS2V5BQAAAAZhbW91bnQJAARMAAAAAgkBAAAAFWluZGV4QmFsYW5jZUluY3JlbWVudAAAAAQFAAAADmNoYW5nZU93bmVyS2V5BQAAAApvd25lckNvbG9uBQAAAAZhbW91bnQCAAAAC190eHNfY2hhbmdlBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCAUAAAABaQAAAANmZWUFAAAABHVuaXQFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAAEAAAAAmNmCQEAAAAIY2hlY2tGZWUAAAABBQAAAAFpBAAAAAVvd25lcgkAAlgAAAABCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkEAAAABmFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQABLAAAAAIFAAAABW93bmVyAgAAAAhfYmFsYW5jZQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAACQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAAVvd25lcgIAAAAIX2JhbGFuY2UAAAAAAAAAAAAFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABkAAAAAgUAAAAGYW1vdW50CAUAAAABaQAAAANmZWUFAAAABHVuaXQFAAAAA25pbAAAAAFpAQAAAAR0ZXN0AAAAAAkBAAAACFdyaXRlU2V0AAAAAQUAAAADbmlsAAAAAWkBAAAACHJlZ2lzdGVyAAAAAgAAAAdyZWZlcmVyAAAABHNhbHQEAAAAAmNmCQEAAAAIY2hlY2tGZWUAAAABBQAAAAFpAwkBAAAAAiE9AAAAAgkAAS8AAAACCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQAAAAAAAAAAAMCAAAAAzEyMwkAAAIAAAABAgAAABRwcm9vZiBvZiB3b3JrIGZhaWxlZAQAAAAFb3duZXIJAAJYAAAAAQgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5AwkBAAAACWlzRGVmaW5lZAAAAAEJAQAAAApnZXRSZWZlcmVyAAAAAQUAAAAFb3duZXIJAAACAAAAAQIAAAASQWxyZWFkeSByZWdpc3RlcmVkBAAAAAtyZWZlcmFsc0tleQkAASwAAAACBQAAAAdyZWZlcmVyAgAAAApfcmVmZXJyYWxzBAAAAAhyZWZlcmFscwQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAAtyZWZlcmFsc0tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAdvbGRSZWZzBQAAAAckbWF0Y2gwCQABLAAAAAIJAAEsAAAAAgUAAAAHb2xkUmVmcwIAAAABLAUAAAAFb3duZXIFAAAABW93bmVyBAAAAAxyZWZTdHJ1Y3R1cmUJAAEsAAAAAgUAAAAHcmVmZXJlcgQAAAAHJG1hdGNoMAkBAAAACmdldFJlZmVyZXIAAAABBQAAAAdyZWZlcmVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAACHJlZmVyZXIyBQAAAAckbWF0Y2gwCQABLAAAAAIJAAEsAAAAAgIAAAABLAUAAAAIcmVmZXJlcjIEAAAAByRtYXRjaDEJAQAAAApnZXRSZWZlcmVyAAAAAQUAAAAIcmVmZXJlcjIDCQAAAQAAAAIFAAAAByRtYXRjaDECAAAABlN0cmluZwQAAAAIcmVmZXJlcjMFAAAAByRtYXRjaDEJAAEsAAAAAgIAAAABLAUAAAAIcmVmZXJlcjMCAAAAAAIAAAAACQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAAVvd25lcgIAAAAIX3JlZmVyZXIFAAAAB3JlZmVyZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAC3JlZmVyYWxzS2V5BQAAAAhyZWZlcmFscwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAAVvd25lcgIAAAANX3JlZnN0cnVjdHVyZQUAAAAMcmVmU3RydWN0dXJlBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCAUAAAABaQAAAANmZWUFAAAABHVuaXQFAAAAA25pbAAAAAAQ3gmc",
    "chainId": 84,
    "height": 566297,
    "spentComplexity": 0
}

View: original | compacted
Prev: EgAnnPy2NnSQf9Wgs9pn2oKQdqmCiEhQ2Jy1Srny66TA
Next: AwPXVTnwBa6LetodXsdtp9SGyNvvcZnLiWTqhHd8wyDg

Diff: 
Old New Differences
95 95                  }
96 96              else 0
97 97          }
98 -     ScriptResult(WriteSet([DataEntry((n + "_balance"), 0)]), TransferSet([ScriptTransfer(v.caller, y, unit)]))
98 +     ScriptResult(WriteSet([DataEntry((n + "_balance"), 0)]), TransferSet([ScriptTransfer(v.caller, (y + v.fee), unit)]))
99 99      }
100 100  
101 101  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let a = 250
5 5  
6 6  let b = 250
7 7  
8 8  let c = 250
9 9  
10 10  let d = 250
11 11  
12 12  let e = 5000000
13 13  
14 14  let f = "AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE"
15 15  
16 16  func g (h,i) = {
17 17      let j = (h + "_balance")
18 18      DataEntry(j, (i + {
19 19          let k = getInteger(this, j)
20 20          if ($isInstanceOf(k, "Int"))
21 21              then {
22 22                  let l = k
23 23                  l
24 24                  }
25 25              else 0
26 26          }))
27 27      }
28 28  
29 29  
30 30  func m (h,n,i,o) = {
31 31      let p = (h + o)
32 32      let q = (n + toString(i))
33 33      let k = getString(this, p)
34 34      if ($isInstanceOf(k, "String"))
35 35          then {
36 36              let r = k
37 37              DataEntry(p, ((r + ",") + q))
38 38              }
39 39          else DataEntry(p, q)
40 40      }
41 41  
42 42  
43 43  func s (t) = getString(this, (t + "_referer"))
44 44  
45 45  
46 46  func u (v) = if ((v.fee > e))
47 47      then throw("unreasonable large fee")
48 48      else true
49 49  
50 50  
51 51  @Callable(v)
52 52  func fund () = {
53 53      let n = toBase58String(v.callerPublicKey)
54 54      let w = extract(blockInfoByHeight(height))
55 55      let x = (((n + ":") + toString(w.timestamp)) + ":")
56 56      let y = extract(v.payment).amount
57 57      let z = u(v)
58 58      ScriptResult(WriteSet({
59 59          let k = getString(this, (n + "_refstructure"))
60 60          if ($isInstanceOf(k, "String"))
61 61              then {
62 62                  let A = k
63 63                  let B = split(A, ",")
64 64                  let C = size(B)
65 65                  let D = ((y * a) / 1000)
66 66                  let E = ((y * d) / 1000)
67 67  [g(n, E), m(n, x, E, "_txs_cashback"), g(B[0], D), m(B[0], x, D, "_txs_l1"), if ((C >= 2))
68 68                      then {
69 69                          let F = ((y * b) / 1000)
70 70  [g(B[1], F), m(B[1], x, F, "_txs_l2"), if ((C >= 3))
71 71                              then {
72 72                                  let G = ((y * c) / 1000)
73 73  [g(B[2], G), m(B[2], x, G, "_txs_l3"), g(f, (((y - D) - F) - G)), m(f, x, (((y - D) - F) - G), "_txs_change")]
74 74                                  }
75 75                              else [g(f, ((y - D) - F)), m(f, x, ((y - D) - F), "_txs_change")]]
76 76                          }
77 77                      else [g(f, (y - D)), m(f, x, (y - D), "_txs_change")]]
78 78                  }
79 79              else [g(f, y), m(f, x, y, "_txs_change")]
80 80          }), TransferSet([ScriptTransfer(v.caller, v.fee, unit)]))
81 81      }
82 82  
83 83  
84 84  
85 85  @Callable(v)
86 86  func withdraw () = {
87 87      let z = u(v)
88 88      let n = toBase58String(v.callerPublicKey)
89 89      let y = {
90 90          let k = getInteger(this, (n + "_balance"))
91 91          if ($isInstanceOf(k, "Int"))
92 92              then {
93 93                  let l = k
94 94                  l
95 95                  }
96 96              else 0
97 97          }
98 -     ScriptResult(WriteSet([DataEntry((n + "_balance"), 0)]), TransferSet([ScriptTransfer(v.caller, y, unit)]))
98 +     ScriptResult(WriteSet([DataEntry((n + "_balance"), 0)]), TransferSet([ScriptTransfer(v.caller, (y + v.fee), unit)]))
99 99      }
100 100  
101 101  
102 102  
103 103  @Callable(v)
104 104  func test () = WriteSet(nil)
105 105  
106 106  
107 107  
108 108  @Callable(v)
109 109  func register (H,I) = {
110 110      let z = u(v)
111 111      if ((take(toBase58String(v.transactionId), 3) != "123"))
112 112          then throw("proof of work failed")
113 113          else {
114 114              let n = toBase58String(v.callerPublicKey)
115 115              if (isDefined(s(n)))
116 116                  then throw("Already registered")
117 117                  else {
118 118                      let J = (H + "_referrals")
119 119                      let K = {
120 120                          let k = getString(this, J)
121 121                          if ($isInstanceOf(k, "String"))
122 122                              then {
123 123                                  let L = k
124 124                                  ((L + ",") + n)
125 125                                  }
126 126                              else n
127 127                          }
128 128                      let M = (H + {
129 129                          let k = s(H)
130 130                          if ($isInstanceOf(k, "String"))
131 131                              then {
132 132                                  let N = k
133 133                                  (("," + N) + {
134 134                                      let O = s(N)
135 135                                      if ($isInstanceOf(O, "String"))
136 136                                          then {
137 137                                              let P = O
138 138                                              ("," + P)
139 139                                              }
140 140                                          else ""
141 141                                      })
142 142                                  }
143 143                              else ""
144 144                          })
145 145                      ScriptResult(WriteSet([DataEntry((n + "_referer"), H), DataEntry(J, K), DataEntry((n + "_refstructure"), M)]), TransferSet([ScriptTransfer(v.caller, v.fee, unit)]))
146 146                      }
147 147              }
148 148      }
149 149  
150 150

Old	New		Differences
95	95		}
96	96		else 0
97	97		}
98		-	ScriptResult(WriteSet([DataEntry((n + "_balance"), 0)]), TransferSet([ScriptTransfer(v.caller, y, unit)]))
	98	+	ScriptResult(WriteSet([DataEntry((n + "_balance"), 0)]), TransferSet([ScriptTransfer(v.caller, (y + v.fee), unit)]))
99	99		}
100	100
101	101

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let a = 250
5	5
6	6		let b = 250
7	7
8	8		let c = 250
9	9
10	10		let d = 250
11	11
12	12		let e = 5000000
13	13
14	14		let f = "AD2vbzpR3ZMXiY1ZhBdq4iH1wz5w6tUCHPz1vvNfyCqE"
15	15
16	16		func g (h,i) = {
17	17		let j = (h + "_balance")
18	18		DataEntry(j, (i + {
19	19		let k = getInteger(this, j)
20	20		if ($isInstanceOf(k, "Int"))
21	21		then {
22	22		let l = k
23	23		l
24	24		}
25	25		else 0
26	26		}))
27	27		}
28	28
29	29
30	30		func m (h,n,i,o) = {
31	31		let p = (h + o)
32	32		let q = (n + toString(i))
33	33		let k = getString(this, p)
34	34		if ($isInstanceOf(k, "String"))
35	35		then {
36	36		let r = k
37	37		DataEntry(p, ((r + ",") + q))
38	38		}
39	39		else DataEntry(p, q)
40	40		}
41	41
42	42
43	43		func s (t) = getString(this, (t + "_referer"))
44	44
45	45
46	46		func u (v) = if ((v.fee > e))
47	47		then throw("unreasonable large fee")
48	48		else true
49	49
50	50
51	51		@Callable(v)
52	52		func fund () = {
53	53		let n = toBase58String(v.callerPublicKey)
54	54		let w = extract(blockInfoByHeight(height))
55	55		let x = (((n + ":") + toString(w.timestamp)) + ":")
56	56		let y = extract(v.payment).amount
57	57		let z = u(v)
58	58		ScriptResult(WriteSet({
59	59		let k = getString(this, (n + "_refstructure"))
60	60		if ($isInstanceOf(k, "String"))
61	61		then {
62	62		let A = k
63	63		let B = split(A, ",")
64	64		let C = size(B)
65	65		let D = ((y * a) / 1000)
66	66		let E = ((y * d) / 1000)
67	67		[g(n, E), m(n, x, E, "_txs_cashback"), g(B[0], D), m(B[0], x, D, "_txs_l1"), if ((C >= 2))
68	68		then {
69	69		let F = ((y * b) / 1000)
70	70		[g(B[1], F), m(B[1], x, F, "_txs_l2"), if ((C >= 3))
71	71		then {
72	72		let G = ((y * c) / 1000)
73	73		[g(B[2], G), m(B[2], x, G, "_txs_l3"), g(f, (((y - D) - F) - G)), m(f, x, (((y - D) - F) - G), "_txs_change")]
74	74		}
75	75		else [g(f, ((y - D) - F)), m(f, x, ((y - D) - F), "_txs_change")]]
76	76		}
77	77		else [g(f, (y - D)), m(f, x, (y - D), "_txs_change")]]
78	78		}
79	79		else [g(f, y), m(f, x, y, "_txs_change")]
80	80		}), TransferSet([ScriptTransfer(v.caller, v.fee, unit)]))
81	81		}
82	82
83	83
84	84
85	85		@Callable(v)
86	86		func withdraw () = {
87	87		let z = u(v)
88	88		let n = toBase58String(v.callerPublicKey)
89	89		let y = {
90	90		let k = getInteger(this, (n + "_balance"))
91	91		if ($isInstanceOf(k, "Int"))
92	92		then {
93	93		let l = k
94	94		l
95	95		}
96	96		else 0
97	97		}
98		-	ScriptResult(WriteSet([DataEntry((n + "_balance"), 0)]), TransferSet([ScriptTransfer(v.caller, y, unit)]))
	98	+	ScriptResult(WriteSet([DataEntry((n + "_balance"), 0)]), TransferSet([ScriptTransfer(v.caller, (y + v.fee), unit)]))
99	99		}
100	100
101	101
102	102
103	103		@Callable(v)
104	104		func test () = WriteSet(nil)
105	105
106	106
107	107
108	108		@Callable(v)
109	109		func register (H,I) = {
110	110		let z = u(v)
111	111		if ((take(toBase58String(v.transactionId), 3) != "123"))
112	112		then throw("proof of work failed")
113	113		else {
114	114		let n = toBase58String(v.callerPublicKey)
115	115		if (isDefined(s(n)))
116	116		then throw("Already registered")
117	117		else {
118	118		let J = (H + "_referrals")
119	119		let K = {
120	120		let k = getString(this, J)
121	121		if ($isInstanceOf(k, "String"))
122	122		then {
123	123		let L = k
124	124		((L + ",") + n)
125	125		}
126	126		else n
127	127		}
128	128		let M = (H + {
129	129		let k = s(H)
130	130		if ($isInstanceOf(k, "String"))
131	131		then {
132	132		let N = k
133	133		(("," + N) + {
134	134		let O = s(N)
135	135		if ($isInstanceOf(O, "String"))
136	136		then {
137	137		let P = O
138	138		("," + P)
139	139		}
140	140		else ""
141	141		})
142	142		}
143	143		else ""
144	144		})
145	145		ScriptResult(WriteSet([DataEntry((n + "_referer"), H), DataEntry(J, K), DataEntry((n + "_refstructure"), M)]), TransferSet([ScriptTransfer(v.caller, v.fee, unit)]))
146	146		}
147	147		}
148	148		}
149	149
150	150

github/deemru/w8io/169f3d6 
47.94 ms ◑