w8 · tx · 5bS···agH

tx · 5bSwgFi9KbYrRSbZLEPYM3UiNpCTj3d9Wxd6KTXimagH

3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh:  -0.00900000 Waves

2022.12.06 23:06 [2348940] smart account 3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5bSwgFi9KbYrRSbZLEPYM3UiNpCTj3d9Wxd6KTXimagH",
    "fee": 900000,
    "feeAssetId": null,
    "timestamp": 1670357257776,
    "version": 2,
    "chainId": 84,
    "sender": "3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh",
    "senderPublicKey": "HscGVyJG5M3NMHWKfQbucCBsFLGPi8VmTxTAmcBbaWTa",
    "proofs": [
        "4oEEBFQnivNHDowBvYzA9Jb3bxB24GHwU9oyWwDJv31fHq7qe48JFs6dnHUgTeN9rE4bJRVmY9Lict6tZjYzcRpN"
    ],
    "script": "base64:BgITCAISAwoBCBIDCgEIEgASAwoBARUABlNjYWxlNgDAhD0ABlNjYWxlOACAwtcvAAdTY2FsZTE2CQBoAgUGU2NhbGU4BQZTY2FsZTgACnZhbGlkYXRvcnMJAMwIAgIjM05BbXFHanhSQlJQb1JIWlVVcXZoaU5TNmF4bkdwaW5MSEMFA25pbAAPbW9uZXlCb3hBZGRyZXNzCQEHQWRkcmVzcwEBGgFUZKnP467xWXotJQOt2k8QiNBvrQpHH8SpAAdhc3NldElkAixISG1hRlFwVW9id0t4emp6NEVDYUJQdG9GNjlrdWpLd1UyY296YVV6VHNndgALcHV6emxlUG9vbHMJAMwIAgIjM042U3RKZGdtVGZBUnNSTm45WHQ1ckRZRXMzcHI0S0d5MXYFA25pbAEKZ2V0QmFsYW5jZQEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgRVbml0BAF4BQckbWF0Y2gwCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkA8AcCBQR0aGlzCQEFdmFsdWUBBQdhc3NldElkAQl0cnlHZXRJbnQCB2FkZHJlc3MDa2V5BAckbWF0Y2gwCQCaCAIFB2FkZHJlc3MFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAEJdHJ5R2V0U3RyAgdhZGRyZXNzA2tleQQHJG1hdGNoMAkAnQgCBQdhZGRyZXNzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFiBQckbWF0Y2gwBQFiAgABDmdldEFzc2V0U3RyaW5nAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAJANgEAQUBYgIFV0FWRVMBG2dldFB1enpsZVBvb2xTdXBwbGllZEFtb3VudAEGcG9vbElkBAdiYWxhbmNlCQDwBwIJAQdBZGRyZXNzAQkA2QQBBQZwb29sSWQJANkEAQUHYXNzZXRJZAUHYmFsYW5jZQEWZ2V0VG90YWxTdXBwbGllZEFtb3VudAAEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wDCQAAAgULY3VycmVudFBvb2wCAAkAAgEJAKwCAgIZQ2Fubm90IGZpbmQgcG9vbCB3aXRoIGlkIAULY3VycmVudFBvb2wJARtnZXRQdXp6bGVQb29sU3VwcGxpZWRBbW91bnQBBQtjdXJyZW50UG9vbAEWd2l0aGRyYXdGcm9tUHV6emxlUG9vbAIGcG9vbElkBmFtb3VudAQLcG9vbEFkZHJlc3MJAQdBZGRyZXNzAQkA2QQBBQZwb29sSWQECndpdGhkcmF3VHgDCQBmAgUGYW1vdW50AAAJAPwHBAULcG9vbEFkZHJlc3MCCHdpdGhkcmF3CQDMCAIFB2Fzc2V0SWQJAMwIAgUGYW1vdW50BQNuaWwFA25pbAIAAwkAAAIFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BB2NhbGNGZWUABAxzdGFrZWRBbW91bnQJAQl0cnlHZXRJbnQCBQR0aGlzAg1nbG9iYWxfc3Rha2VkBAlsYXN0U1JhdGUJAQl0cnlHZXRJbnQCBQR0aGlzAhVnbG9iYWxfbGFzdENoZWNrU1JhdGUEB3NBbW91bnQJAGsDBQxzdGFrZWRBbW91bnQFCWxhc3RTUmF0ZQUGU2NhbGU4BA10b3RhbFN1cHBsaWVkCQEWZ2V0VG90YWxTdXBwbGllZEFtb3VudAAEBGRpZmYJAGUCBQ10b3RhbFN1cHBsaWVkBQdzQW1vdW50BANmZWUJAGsDBQRkaWZmAMCWsQIFBlNjYWxlOAMJAGYCBQNmZWUAAAUDZmVlAAABDmNhbGN1bGF0ZVNSYXRlAAQObGFzdENoZWNrU1JhdGUJAQl0cnlHZXRJbnQCBQR0aGlzAhVnbG9iYWxfbGFzdENoZWNrU1JhdGUEDHN0YWtlZEFtb3VudAkBCXRyeUdldEludAIFBHRoaXMCDWdsb2JhbF9zdGFrZWQEEWxhc3RDaGVja1NBbW91bnV0CQBrAwUMc3Rha2VkQW1vdW50BQ5sYXN0Q2hlY2tTUmF0ZQUGU2NhbGU4AwkAAAIFDmxhc3RDaGVja1NSYXRlAAAFBlNjYWxlOAMJAAACBRFsYXN0Q2hlY2tTQW1vdW51dAAABQ5sYXN0Q2hlY2tTUmF0ZQQFc1JhdGUJAGsDBQ5sYXN0Q2hlY2tTUmF0ZQkAZAIJAGsDCQBlAgkAawMJARZnZXRUb3RhbFN1cHBsaWVkQW1vdW50AAUGU2NhbGU2BRFsYXN0Q2hlY2tTQW1vdW51dAUGU2NhbGU2CQBlAgUGU2NhbGU4AMCWsQIFBlNjYWxlOAUGU2NhbGU2BQZTY2FsZTYDCQBmAgUGU2NhbGU4BQVzUmF0ZQUObGFzdENoZWNrU1JhdGUFBXNSYXRlAQxyZWNhbGNSZXN1bHQBDHN0YWtlZENoYW5nZQQMc3Rha2VkQW1vdW50CQEJdHJ5R2V0SW50AgUEdGhpcwINZ2xvYmFsX3N0YWtlZAQFc1JhdGUJAQ5jYWxjdWxhdGVTUmF0ZQAJAMwIAgkBDEludGVnZXJFbnRyeQICDWdsb2JhbF9zdGFrZWQJAGQCBQxzdGFrZWRBbW91bnQFDHN0YWtlZENoYW5nZQkAzAgCCQEMSW50ZWdlckVudHJ5AgIVZ2xvYmFsX2xhc3RDaGVja1NSYXRlBQVzUmF0ZQUDbmlsAQxzdXBwbHlSZXN1bHQCBnBvb2xJZANmZWUDCQAAAgkAzwgCBQtwdXp6bGVQb29scwUGcG9vbElkBQR1bml0CQACAQkArAICAg9Vbmtub3duIHBvb2xJZCAFBnBvb2xJZAQKYXNzZXRCeXRlcwkA2QQBBQdhc3NldElkBAdiYWxhbmNlCQEKZ2V0QmFsYW5jZQEFCmFzc2V0Qnl0ZXMECHN1cHBseVR4CQD8BwQJAQdBZGRyZXNzAQkA2QQBBQZwb29sSWQCBnN1cHBseQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQphc3NldEJ5dGVzBQdiYWxhbmNlBQNuaWwDCQAAAgUIc3VwcGx5VHgFCHN1cHBseVR4BA13aXRoZHJhd0ZlZVR4CQEWd2l0aGRyYXdGcm9tUHV6emxlUG9vbAIFBnBvb2xJZAUDZmVlAwkAAAIFDXdpdGhkcmF3RmVlVHgFDXdpdGhkcmF3RmVlVHgJAMwIAgkBC1N0cmluZ0VudHJ5AgILY3VycmVudFBvb2wFBnBvb2xJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQ9tb25leUJveEFkZHJlc3MFA2ZlZQkA2QQBBQdhc3NldElkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BDndpdGhkcmF3UmVzdWx0AAQLY3VycmVudFBvb2wJAQl0cnlHZXRTdHICBQR0aGlzAgtjdXJyZW50UG9vbAMJAAACBQtjdXJyZW50UG9vbAIACQACAQkArAICAhlDYW5ub3QgZmluZCBwb29sIHdpdGggaWQgBQtjdXJyZW50UG9vbAQGYW1vdW50CQEbZ2V0UHV6emxlUG9vbFN1cHBsaWVkQW1vdW50AQULY3VycmVudFBvb2wEAnR4CQEWd2l0aGRyYXdGcm9tUHV6emxlUG9vbAIFC2N1cnJlbnRQb29sBQZhbW91bnQDCQAAAgUCdHgFAnR4BQJ0eAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgELc3Rha2VSZXN1bHQCBHVzZXIGYW1vdW50BAdzQW1vdW50CQBrAwUGYW1vdW50BQZTY2FsZTgJAQ5jYWxjdWxhdGVTUmF0ZQAJAM4IAgkBDHJlY2FsY1Jlc3VsdAEFB3NBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEdXNlcgIHX3N0YWtlZAkAZAIJAQl0cnlHZXRJbnQCBQR0aGlzCQCsAgIFBHVzZXICB19zdGFrZWQFB3NBbW91bnQFA25pbAENdW5zdGFrZVJlc3VsdAIEdXNlcgZhbW91bnQEB3NBbW91bnQJAGsDBQZhbW91bnQFBlNjYWxlOAkBDmNhbGN1bGF0ZVNSYXRlAAQKdXNlclN0YWtlZAkBCXRyeUdldEludAIFBHRoaXMJAKwCAgUEdXNlcgIHX3N0YWtlZAQNdW5zdGFrZUFtb3VudAMJAGYCBQdzQW1vdW50BQp1c2VyU3Rha2VkBQp1c2VyU3Rha2VkBQdzQW1vdW50CQDOCAIJAQxyZWNhbGNSZXN1bHQBCQEBLQEFDXVuc3Rha2VBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEdXNlcgIHX3N0YWtlZAkAZQIFCnVzZXJTdGFrZWQFDXVuc3Rha2VBbW91bnQFA25pbAQBaQEEaW5pdAEGcG9vbElkBAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sAwkAAAIJAM8IAgUKdmFsaWRhdG9ycwkApQgBCAUBaQZjYWxsZXIFBHVuaXQJAAIBAg1BY2Nlc3MgZGVuaWVkAwkAAAIFC2N1cnJlbnRQb29sAgAJAMwIAgkBC1N0cmluZ0VudHJ5AgILY3VycmVudFBvb2wFBnBvb2xJZAUDbmlsBQNuaWwBaQEJcmViYWxhbmNlAQZwb29sSWQEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wDCQAAAgkAzwgCBQp2YWxpZGF0b3JzCQClCAEIBQFpBmNhbGxlcgUEdW5pdAkAAgECDUFjY2VzcyBkZW5pZWQDCQAAAgULY3VycmVudFBvb2wFBnBvb2xJZAkAAgEJAKwCAgITQWxyZWFkeSBzdXBwbGllZCB0bwULY3VycmVudFBvb2wECndpdGhkcmF3VHgJAQ53aXRoZHJhd1Jlc3VsdAADCQAAAgUKd2l0aGRyYXdUeAUKd2l0aGRyYXdUeAkAzggCCQEMc3VwcGx5UmVzdWx0AgUGcG9vbElkAAAJAQxyZWNhbGNSZXN1bHQBAAAJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEFc3Rha2UABAR1c2VyCQClCAEIBQFpBmNhbGxlcgQGYW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAQLY3VycmVudFBvb2wJAQl0cnlHZXRTdHICBQR0aGlzAgtjdXJyZW50UG9vbAMDCQBnAgAABQZhbW91bnQGCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJANkEAQUHYXNzZXRJZAkAAgECFmludmFsaWQgdG9rZW4gYXR0YWNoZWQDCQAAAgULY3VycmVudFBvb2wCAAkAAgECFFBvb2wgbm90IGluaXRpYWxpemVkBANmZWUJAQdjYWxjRmVlAAkAzggCCQELc3Rha2VSZXN1bHQCBQR1c2VyBQZhbW91bnQJAQxzdXBwbHlSZXN1bHQCBQtjdXJyZW50UG9vbAUDZmVlAWkBB3Vuc3Rha2UBBmFtb3VudAQEdXNlcgkApQgBCAUBaQZjYWxsZXIEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wEA2ZlZQkBB2NhbGNGZWUABAVhc3NldAkA2QQBBQdhc3NldElkBAJ0eAkBFndpdGhkcmF3RnJvbVB1enpsZVBvb2wCBQtjdXJyZW50UG9vbAkAZAIFBmFtb3VudAUDZmVlAwkAAAIFAnR4BQJ0eAkAzggCCQENdW5zdGFrZVJlc3VsdAIFBHVzZXIFBmFtb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFBmFtb3VudAUFYXNzZXQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUPbW9uZXlCb3hBZGRyZXNzBQNmZWUFBWFzc2V0BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5n35GXw==",
    "height": 2348940,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9zYqSJ4FhGeGLXbZTfA9Hgq6gw1NYpvmm7Jmcpxq5cuS
Next: CBLvu4R4BUZniPFxXFcKmH9pimLQoJjnAP8wAyVXyHtC

Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let a = 1000000
5 5  
6 6  let b = 100000000
7 7  
8 8  let c = (b * b)
9 9  
10 10  let d = ["3NAmqGjxRBRPoRHZUUqvhiNS6axnGpinLHC"]
11 11  
12 12  let e = Address(base58'3My6LmrRSRvJ73T14oT5k53SGPavGFoacWc')
13 13  
14 14  let f = "HHmaFQpUobwKxzjz4ECaBPtoF69kujKwU2cozaUzTsgv"
15 15  
16 16  let g = ["3N6StJdgmTfARsRNn9Xt5rDYEs3pr4KGy1v"]
17 17  
18 18  func h (f) = {
19 19      let i = f
20 20      if ($isInstanceOf(i, "Unit"))
21 21          then {
22 22              let j = i
23 23              wavesBalance(this).available
24 24              }
25 25          else assetBalance(this, value(f))
26 26      }
27 27  
28 28  
29 29  func k (l,m) = {
30 30      let i = getInteger(l, m)
31 31      if ($isInstanceOf(i, "Int"))
32 32          then {
33 33              let n = i
34 34              n
35 35              }
36 36          else 0
37 37      }
38 38  
39 39  
40 40  func o (l,m) = {
41 41      let i = getString(l, m)
42 42      if ($isInstanceOf(i, "String"))
43 43          then {
44 44              let n = i
45 45              n
46 46              }
47 47          else ""
48 48      }
49 49  
50 50  
51 51  func p (f) = {
52 52      let i = f
53 53      if ($isInstanceOf(i, "ByteVector"))
54 54          then {
55 55              let n = i
56 56              toBase58String(n)
57 57              }
58 58          else "WAVES"
59 59      }
60 60  
61 61  
62 62  func q (r) = {
63 63      let s = assetBalance(Address(fromBase58String(r)), fromBase58String(f))
64 64      s
65 65      }
66 66  
67 67  
68 68  func t () = {
69 69      let u = o(this, "currentPool")
70 70      if ((u == ""))
71 71          then throw(("Cannot find pool with id " + u))
72 72          else q(u)
73 73      }
74 74  
75 75  
76 76  func v (r,w) = {
77 77      let x = Address(fromBase58String(r))
78 78      let y = if ((w > 0))
79 79          then invoke(x, "withdraw", [f, w], nil)
80 80          else ""
81 81      if ((y == y))
82 82          then y
83 83          else throw("Strict value is not equal to itself.")
84 84      }
85 85  
86 86  
87 87  func z () = {
88 88      let A = k(this, "global_staked")
89 89      let B = k(this, "global_lastCheckSRate")
90 90      let C = fraction(A, B, b)
91 91      let D = t()
92 92      let E = (D - C)
93 93      let F = fraction(E, 5000000, b)
94 94      if ((F > 0))
95 95          then F
96 96          else 0
97 97      }
98 98  
99 99  
100 100  func G () = {
101 101      let H = k(this, "global_lastCheckSRate")
102 102      let A = k(this, "global_staked")
103 103      let I = fraction(A, H, b)
104 104      if ((H == 0))
105 105          then b
106 106          else if ((I == 0))
107 107              then H
108 108              else {
109 109                  let J = fraction(H, (fraction((fraction(t(), a, I) - a), (b - 5000000), b) + a), a)
110 110                  if ((b > J))
111 111                      then H
112 112                      else J
113 113                  }
114 114      }
115 115  
116 116  
117 117  func K (L) = {
118 118      let A = k(this, "global_staked")
119 119      let J = G()
120 120  [IntegerEntry("global_staked", (A + L)), IntegerEntry("global_lastCheckSRate", J)]
121 121      }
122 122  
123 123  
124 124  func M (r,F) = if ((indexOf(g, r) == unit))
125 125      then throw(("Unknown poolId " + r))
126 126      else {
127 127          let N = fromBase58String(f)
128 128          let s = h(N)
129 129          let O = invoke(Address(fromBase58String(r)), "supply", nil, [AttachedPayment(N, s)])
130 130          if ((O == O))
131 131              then {
132 132                  let P = v(r, F)
133 133                  if ((P == P))
134 134                      then [StringEntry("currentPool", r), ScriptTransfer(e, F, fromBase58String(f))]
135 135                      else throw("Strict value is not equal to itself.")
136 136                  }
137 137              else throw("Strict value is not equal to itself.")
138 138          }
139 139  
140 140  
141 141  func Q () = {
142 142      let u = o(this, "currentPool")
143 143      if ((u == ""))
144 144          then throw(("Cannot find pool with id " + u))
145 145          else {
146 146              let w = q(u)
147 147              let R = v(u, w)
148 148              if ((R == R))
149 149                  then R
150 150                  else throw("Strict value is not equal to itself.")
151 151              }
152 152      }
153 153  
154 154  
155 155  func S (T,w) = {
156 156      let C = fraction(w, b, G())
157 157      (K(C) ++ [IntegerEntry((T + "_staked"), (k(this, (T + "_staked")) + C))])
158 158      }
159 159  
160 160  
161 161  func U (T,w) = {
162 162      let C = fraction(w, b, G())
163 163      let V = k(this, (T + "_staked"))
164 164      let W = if ((C > V))
165 165          then V
166 166          else C
167 167      (K(-(W)) ++ [IntegerEntry((T + "_staked"), (V - W))])
168 168      }
169 169  
170 170  
171 171  @Callable(X)
172 172  func init (r) = {
173 173      let u = o(this, "currentPool")
174 174      if ((indexOf(d, toString(X.caller)) == unit))
175 175          then throw("Access denied")
176 176          else if ((u == ""))
177 177              then [StringEntry("currentPool", r)]
178 178              else nil
179 179      }
180 180  
181 181  
182 182  
183 183  @Callable(X)
184 184  func rebalance (r) = {
185 185      let u = o(this, "currentPool")
186 186      if ((indexOf(d, toString(X.caller)) == unit))
187 187          then throw("Access denied")
188 188          else if ((u == r))
189 189              then throw(("Already supplied to" + u))
190 190              else {
191 191                  let y = Q()
192 192                  if ((y == y))
193 193                      then (M(r, 0) ++ K(0))
194 194                      else throw("Strict value is not equal to itself.")
195 195                  }
196 196      }
197 197  
198 198  
199 199  
200 200  @Callable(X)
201 201  func stake () = {
202 202      let T = toString(X.caller)
203 203      let w = X.payments[0].amount
204 204      let u = o(this, "currentPool")
205 205      if (if ((0 >= w))
206 206          then true
207 207          else (X.payments[0].assetId != fromBase58String(f)))
208 208          then throw("invalid token attached")
209 209          else if ((u == ""))
210 210              then throw("Pool not initialized")
211 211              else {
212 212                  let F = z()
213 213                  (S(T, w) ++ M(u, F))
214 214                  }
215 215      }
216 216  
217 217  
218 218  
219 219  @Callable(X)
220 220  func unstake (w) = {
221 221      let T = toString(X.caller)
222 222      let u = o(this, "currentPool")
223 223      let F = z()
224 224      let Y = fromBase58String(f)
225 225      let R = v(u, (w + F))
226 226      if ((R == R))
227 227          then (U(T, w) ++ [ScriptTransfer(X.caller, w, Y), ScriptTransfer(e, F, Y)])
228 228          else throw("Strict value is not equal to itself.")
229 229      }
230 230  
231 231  
232 232  @Verifier(R)
233 233  func Z () = sigVerify(R.bodyBytes, R.proofs[0], R.senderPublicKey)
234 234

Old	New	Differences
1	1	{-# STDLIB_VERSION 6 #-}
2	2	{-# SCRIPT_TYPE ACCOUNT #-}
3	3	{-# CONTENT_TYPE DAPP #-}
4	4	let a = 1000000
5	5
6	6	let b = 100000000
7	7
8	8	let c = (b * b)
9	9
10	10	let d = ["3NAmqGjxRBRPoRHZUUqvhiNS6axnGpinLHC"]
11	11
12	12	let e = Address(base58'3My6LmrRSRvJ73T14oT5k53SGPavGFoacWc')
13	13
14	14	let f = "HHmaFQpUobwKxzjz4ECaBPtoF69kujKwU2cozaUzTsgv"
15	15
16	16	let g = ["3N6StJdgmTfARsRNn9Xt5rDYEs3pr4KGy1v"]
17	17
18	18	func h (f) = {
19	19	let i = f
20	20	if ($isInstanceOf(i, "Unit"))
21	21	then {
22	22	let j = i
23	23	wavesBalance(this).available
24	24	}
25	25	else assetBalance(this, value(f))
26	26	}
27	27
28	28
29	29	func k (l,m) = {
30	30	let i = getInteger(l, m)
31	31	if ($isInstanceOf(i, "Int"))
32	32	then {
33	33	let n = i
34	34	n
35	35	}
36	36	else 0
37	37	}
38	38
39	39
40	40	func o (l,m) = {
41	41	let i = getString(l, m)
42	42	if ($isInstanceOf(i, "String"))
43	43	then {
44	44	let n = i
45	45	n
46	46	}
47	47	else ""
48	48	}
49	49
50	50
51	51	func p (f) = {
52	52	let i = f
53	53	if ($isInstanceOf(i, "ByteVector"))
54	54	then {
55	55	let n = i
56	56	toBase58String(n)
57	57	}
58	58	else "WAVES"
59	59	}
60	60
61	61
62	62	func q (r) = {
63	63	let s = assetBalance(Address(fromBase58String(r)), fromBase58String(f))
64	64	s
65	65	}
66	66
67	67
68	68	func t () = {
69	69	let u = o(this, "currentPool")
70	70	if ((u == ""))
71	71	then throw(("Cannot find pool with id " + u))
72	72	else q(u)
73	73	}
74	74
75	75
76	76	func v (r,w) = {
77	77	let x = Address(fromBase58String(r))
78	78	let y = if ((w > 0))
79	79	then invoke(x, "withdraw", [f, w], nil)
80	80	else ""
81	81	if ((y == y))
82	82	then y
83	83	else throw("Strict value is not equal to itself.")
84	84	}
85	85
86	86
87	87	func z () = {
88	88	let A = k(this, "global_staked")
89	89	let B = k(this, "global_lastCheckSRate")
90	90	let C = fraction(A, B, b)
91	91	let D = t()
92	92	let E = (D - C)
93	93	let F = fraction(E, 5000000, b)
94	94	if ((F > 0))
95	95	then F
96	96	else 0
97	97	}
98	98
99	99
100	100	func G () = {
101	101	let H = k(this, "global_lastCheckSRate")
102	102	let A = k(this, "global_staked")
103	103	let I = fraction(A, H, b)
104	104	if ((H == 0))
105	105	then b
106	106	else if ((I == 0))
107	107	then H
108	108	else {
109	109	let J = fraction(H, (fraction((fraction(t(), a, I) - a), (b - 5000000), b) + a), a)
110	110	if ((b > J))
111	111	then H
112	112	else J
113	113	}
114	114	}
115	115
116	116
117	117	func K (L) = {
118	118	let A = k(this, "global_staked")
119	119	let J = G()
120	120	[IntegerEntry("global_staked", (A + L)), IntegerEntry("global_lastCheckSRate", J)]
121	121	}
122	122
123	123
124	124	func M (r,F) = if ((indexOf(g, r) == unit))
125	125	then throw(("Unknown poolId " + r))
126	126	else {
127	127	let N = fromBase58String(f)
128	128	let s = h(N)
129	129	let O = invoke(Address(fromBase58String(r)), "supply", nil, [AttachedPayment(N, s)])
130	130	if ((O == O))
131	131	then {
132	132	let P = v(r, F)
133	133	if ((P == P))
134	134	then [StringEntry("currentPool", r), ScriptTransfer(e, F, fromBase58String(f))]
135	135	else throw("Strict value is not equal to itself.")
136	136	}
137	137	else throw("Strict value is not equal to itself.")
138	138	}
139	139
140	140
141	141	func Q () = {
142	142	let u = o(this, "currentPool")
143	143	if ((u == ""))
144	144	then throw(("Cannot find pool with id " + u))
145	145	else {
146	146	let w = q(u)
147	147	let R = v(u, w)
148	148	if ((R == R))
149	149	then R
150	150	else throw("Strict value is not equal to itself.")
151	151	}
152	152	}
153	153
154	154
155	155	func S (T,w) = {
156	156	let C = fraction(w, b, G())
157	157	(K(C) ++ [IntegerEntry((T + "_staked"), (k(this, (T + "_staked")) + C))])
158	158	}
159	159
160	160
161	161	func U (T,w) = {
162	162	let C = fraction(w, b, G())
163	163	let V = k(this, (T + "_staked"))
164	164	let W = if ((C > V))
165	165	then V
166	166	else C
167	167	(K(-(W)) ++ [IntegerEntry((T + "_staked"), (V - W))])
168	168	}
169	169
170	170
171	171	@Callable(X)
172	172	func init (r) = {
173	173	let u = o(this, "currentPool")
174	174	if ((indexOf(d, toString(X.caller)) == unit))
175	175	then throw("Access denied")
176	176	else if ((u == ""))
177	177	then [StringEntry("currentPool", r)]
178	178	else nil
179	179	}
180	180
181	181
182	182
183	183	@Callable(X)
184	184	func rebalance (r) = {
185	185	let u = o(this, "currentPool")
186	186	if ((indexOf(d, toString(X.caller)) == unit))
187	187	then throw("Access denied")
188	188	else if ((u == r))
189	189	then throw(("Already supplied to" + u))
190	190	else {
191	191	let y = Q()
192	192	if ((y == y))
193	193	then (M(r, 0) ++ K(0))
194	194	else throw("Strict value is not equal to itself.")
195	195	}
196	196	}
197	197
198	198
199	199
200	200	@Callable(X)
201	201	func stake () = {
202	202	let T = toString(X.caller)
203	203	let w = X.payments[0].amount
204	204	let u = o(this, "currentPool")
205	205	if (if ((0 >= w))
206	206	then true
207	207	else (X.payments[0].assetId != fromBase58String(f)))
208	208	then throw("invalid token attached")
209	209	else if ((u == ""))
210	210	then throw("Pool not initialized")
211	211	else {
212	212	let F = z()
213	213	(S(T, w) ++ M(u, F))
214	214	}
215	215	}
216	216
217	217
218	218
219	219	@Callable(X)
220	220	func unstake (w) = {
221	221	let T = toString(X.caller)
222	222	let u = o(this, "currentPool")
223	223	let F = z()
224	224	let Y = fromBase58String(f)
225	225	let R = v(u, (w + F))
226	226	if ((R == R))
227	227	then (U(T, w) ++ [ScriptTransfer(X.caller, w, Y), ScriptTransfer(e, F, Y)])
228	228	else throw("Strict value is not equal to itself.")
229	229	}
230	230
231	231
232	232	@Verifier(R)
233	233	func Z () = sigVerify(R.bodyBytes, R.proofs[0], R.senderPublicKey)
234	234

github/deemru/w8io/169f3d6 
48.59 ms ◑