w8 · tx · 92n···r54

tx · 92njsk8b2LnSTSqJj4JDfqoy9E3XGKJhG94ZccpQmr54

3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh:  -0.00900000 Waves

2022.12.02 18:01 [2342880] smart account 3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "92njsk8b2LnSTSqJj4JDfqoy9E3XGKJhG94ZccpQmr54",
    "fee": 900000,
    "feeAssetId": null,
    "timestamp": 1669993329747,
    "version": 2,
    "chainId": 84,
    "sender": "3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh",
    "senderPublicKey": "HscGVyJG5M3NMHWKfQbucCBsFLGPi8VmTxTAmcBbaWTa",
    "proofs": [
        "218QhXqmPw3uudhrnEesV5eHz4RtpntiePNskRjkZ2BkgQEigLCuwhPs6hRKCpEqBqQjo39FD93TA4UPwjKDrwrp"
    ],
    "script": "base64:BgITCAISAwoBCBIDCgEIEgASAwoBARYABlNjYWxlNgDAhD0ABlNjYWxlOACAwtcvAAdTY2FsZTE2CQBoAgUGU2NhbGU4BQZTY2FsZTgACnZhbGlkYXRvcnMJAMwIAgIjM05BbXFHanhSQlJQb1JIWlVVcXZoaU5TNmF4bkdwaW5MSEMFA25pbAAPbW9uZXlCb3hBZGRyZXNzCQEHQWRkcmVzcwEBGgFUZKnP467xWXotJQOt2k8QiNBvrQpHH8SpAAdhc3NldElkAixISG1hRlFwVW9id0t4emp6NEVDYUJQdG9GNjlrdWpLd1UyY296YVV6VHNndgALcHV6emxlUG9vbHMJAMwIAgIjM042U3RKZGdtVGZBUnNSTm45WHQ1ckRZRXMzcHI0S0d5MXYFA25pbAEKZ2V0QmFsYW5jZQEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgRVbml0BAF4BQckbWF0Y2gwCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkA8AcCBQR0aGlzCQEFdmFsdWUBBQdhc3NldElkAQl0cnlHZXRJbnQCB2FkZHJlc3MDa2V5BAckbWF0Y2gwCQCaCAIFB2FkZHJlc3MFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAEJdHJ5R2V0U3RyAgdhZGRyZXNzA2tleQQHJG1hdGNoMAkAnQgCBQdhZGRyZXNzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFiBQckbWF0Y2gwBQFiAgABDmdldEFzc2V0U3RyaW5nAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAJANgEAQUBYgIFV0FWRVMBG2dldFB1enpsZVBvb2xTdXBwbGllZEFtb3VudAEGcG9vbElkBAdiYWxhbmNlCQDwBwIJAQdBZGRyZXNzAQkA2QQBBQZwb29sSWQJANkEAQUHYXNzZXRJZAUHYmFsYW5jZQEWZ2V0VG90YWxTdXBwbGllZEFtb3VudAAEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wDCQAAAgULY3VycmVudFBvb2wCAAkAAgEJAKwCAgIZQ2Fubm90IGZpbmQgcG9vbCB3aXRoIGlkIAULY3VycmVudFBvb2wJARtnZXRQdXp6bGVQb29sU3VwcGxpZWRBbW91bnQBBQtjdXJyZW50UG9vbAEWd2l0aGRyYXdGcm9tUHV6emxlUG9vbAIGcG9vbElkBmFtb3VudAQLcG9vbEFkZHJlc3MJAQdBZGRyZXNzAQkA2QQBBQZwb29sSWQECndpdGhkcmF3VHgDCQBmAgUGYW1vdW50AAAJAPwHBAULcG9vbEFkZHJlc3MCCHdpdGhkcmF3CQDMCAIFB2Fzc2V0SWQJAMwIAgUGYW1vdW50BQNuaWwFA25pbAIAAwkAAAIFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BDmNhbGN1bGF0ZVNSYXRlAAQObGFzdENoZWNrU1JhdGUJAQl0cnlHZXRJbnQCBQR0aGlzAhVnbG9iYWxfbGFzdENoZWNrU1JhdGUEDHN0YWtlZEFtb3VudAkBCXRyeUdldEludAIFBHRoaXMCDWdsb2JhbF9zdGFrZWQEEWxhc3RDaGVja1NBbW91bnV0CQBrAwUMc3Rha2VkQW1vdW50BQ5sYXN0Q2hlY2tTUmF0ZQUGU2NhbGU4BBN0b3RhbFN1cHBsaWVkQW1vdW50CQEWZ2V0VG90YWxTdXBwbGllZEFtb3VudAADCQAAAgURbGFzdENoZWNrU0Ftb3VudXQAAAUGU2NhbGU4BAx0b3RhbFN1cGxpZWQFE3RvdGFsU3VwcGxpZWRBbW91bnQEBXNSYXRlCQBrAwUObGFzdENoZWNrU1JhdGUFDHRvdGFsU3VwbGllZAURbGFzdENoZWNrU0Ftb3VudXQDCQBmAgUGU2NhbGU4BQVzUmF0ZQUGU2NhbGU4BQVzUmF0ZQEHY2FsY0ZlZQAEDHN0YWtlZEFtb3VudAkBCXRyeUdldEludAIFBHRoaXMCDWdsb2JhbF9zdGFrZWQECWxhc3RTUmF0ZQkBCXRyeUdldEludAIFBHRoaXMCFWdsb2JhbF9sYXN0Q2hlY2tTUmF0ZQQEZGlmZgkAZQIJARZnZXRUb3RhbFN1cHBsaWVkQW1vdW50AAkAawMFDHN0YWtlZEFtb3VudAUJbGFzdFNSYXRlBQZTY2FsZTgEA2ZlZQkAawMFBGRpZmYAwJaxAgUGU2NhbGU4AwkAZgIFA2ZlZQAABQNmZWUAAAEPY2hhcmdlRmVlUmVzdWx0AAQLY3VycmVudFBvb2wJAQl0cnlHZXRTdHICBQR0aGlzAgtjdXJyZW50UG9vbAQDZmVlCQEHY2FsY0ZlZQADCQAAAgULY3VycmVudFBvb2wCAAkAAgEJAKwCAgIZQ2Fubm90IGZpbmQgcG9vbCB3aXRoIGlkIAULY3VycmVudFBvb2wECndpdGhkcmF3VHgJARZ3aXRoZHJhd0Zyb21QdXp6bGVQb29sAgULY3VycmVudFBvb2wFA2ZlZQMJAAACBQp3aXRoZHJhd1R4BQp3aXRoZHJhd1R4BAhjaGFyZ2VUeAkA/AcEBQ9tb25leUJveEFkZHJlc3MCB2RlcG9zaXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQdhc3NldElkBQNmZWUFA25pbAMJAAACBQhjaGFyZ2VUeAUIY2hhcmdlVHgFCGNoYXJnZVR4CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQxyZWNhbGNSZXN1bHQBDHN0YWtlZENoYW5nZQQMc3Rha2VkQW1vdW50CQEJdHJ5R2V0SW50AgUEdGhpcwINZ2xvYmFsX3N0YWtlZAkAzAgCCQEMSW50ZWdlckVudHJ5AgINZ2xvYmFsX3N0YWtlZAkAZAIFDHN0YWtlZEFtb3VudAUMc3Rha2VkQ2hhbmdlCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhVnbG9iYWxfbGFzdENoZWNrU1JhdGUJAQ5jYWxjdWxhdGVTUmF0ZQAFA25pbAEMc3VwcGx5UmVzdWx0AQZwb29sSWQDCQAAAgkAzwgCBQtwdXp6bGVQb29scwUGcG9vbElkBQR1bml0CQACAQkArAICAg9Vbmtub3duIHBvb2xJZCAFBnBvb2xJZAQKYXNzZXRCeXRlcwkA2QQBBQdhc3NldElkBAdiYWxhbmNlCQEKZ2V0QmFsYW5jZQEFCmFzc2V0Qnl0ZXMEA2ludgkA/AcECQEHQWRkcmVzcwEJANkEAQUGcG9vbElkAgZzdXBwbHkFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUKYXNzZXRCeXRlcwUHYmFsYW5jZQUDbmlsAwkAAAIFA2ludgUDaW52CQDMCAIJAQtTdHJpbmdFbnRyeQICC2N1cnJlbnRQb29sBQZwb29sSWQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgEOd2l0aGRyYXdSZXN1bHQABAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sAwkAAAIFC2N1cnJlbnRQb29sAgAJAAIBCQCsAgICGUNhbm5vdCBmaW5kIHBvb2wgd2l0aCBpZCAFC2N1cnJlbnRQb29sBAZhbW91bnQJARtnZXRQdXp6bGVQb29sU3VwcGxpZWRBbW91bnQBBQtjdXJyZW50UG9vbAQCdHgJARZ3aXRoZHJhd0Zyb21QdXp6bGVQb29sAgULY3VycmVudFBvb2wFBmFtb3VudAMJAAACBQJ0eAUCdHgFAnR4CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQtzdGFrZVJlc3VsdAIEdXNlcgZhbW91bnQEB3NBbW91bnQJAGsDBQZhbW91bnQFBlNjYWxlOAkBDmNhbGN1bGF0ZVNSYXRlAAQLY2hhcmdlRmVlVHgJAQ9jaGFyZ2VGZWVSZXN1bHQAAwkAAAIFC2NoYXJnZUZlZVR4BQtjaGFyZ2VGZWVUeAkAzggCCQEMcmVjYWxjUmVzdWx0AQUHc0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQR1c2VyAgdfc3Rha2VkCQBkAgkBCXRyeUdldEludAIFBHRoaXMJAKwCAgUEdXNlcgIHX3N0YWtlZAUHc0Ftb3VudAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQ11bnN0YWtlUmVzdWx0AgR1c2VyBmFtb3VudAQHc0Ftb3VudAkAawMFBmFtb3VudAUGU2NhbGU4CQEOY2FsY3VsYXRlU1JhdGUABAp1c2VyU3Rha2VkCQEJdHJ5R2V0SW50AgUEdGhpcwkArAICBQR1c2VyAgdfc3Rha2VkBA11bnN0YWtlQW1vdW50AwkAZgIFB3NBbW91bnQFCnVzZXJTdGFrZWQFCnVzZXJTdGFrZWQFB3NBbW91bnQEC2NoYXJnZUZlZVR4CQEPY2hhcmdlRmVlUmVzdWx0AAMJAAACBQtjaGFyZ2VGZWVUeAULY2hhcmdlRmVlVHgJAM4IAgkBDHJlY2FsY1Jlc3VsdAEJAQEtAQUNdW5zdGFrZUFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQR1c2VyAgdfc3Rha2VkCQBlAgUKdXNlclN0YWtlZAUNdW5zdGFrZUFtb3VudAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAFpAQRpbml0AQZwb29sSWQEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wDCQAAAgkAzwgCBQp2YWxpZGF0b3JzCQClCAEIBQFpBmNhbGxlcgUEdW5pdAkAAgECDUFjY2VzcyBkZW5pZWQDCQAAAgULY3VycmVudFBvb2wCAAkAzAgCCQELU3RyaW5nRW50cnkCAgtjdXJyZW50UG9vbAUGcG9vbElkBQNuaWwFA25pbAFpAQlyZWJhbGFuY2UBBnBvb2xJZAQLY3VycmVudFBvb2wJAQl0cnlHZXRTdHICBQR0aGlzAgtjdXJyZW50UG9vbAMJAAACCQDPCAIFCnZhbGlkYXRvcnMJAKUIAQgFAWkGY2FsbGVyBQR1bml0CQACAQINQWNjZXNzIGRlbmllZAMJAAACBQtjdXJyZW50UG9vbAUGcG9vbElkCQACAQkArAICAhNBbHJlYWR5IHN1cHBsaWVkIHRvBQtjdXJyZW50UG9vbAQKd2l0aGRyYXdUeAkBDndpdGhkcmF3UmVzdWx0AAMJAAACBQp3aXRoZHJhd1R4BQp3aXRoZHJhd1R4CQDOCAIJAQxzdXBwbHlSZXN1bHQBBQZwb29sSWQJAQxyZWNhbGNSZXN1bHQBAAAJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEFc3Rha2UABAR1c2VyCQClCAEIBQFpBmNhbGxlcgQGYW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAQLY3VycmVudFBvb2wJAQl0cnlHZXRTdHICBQR0aGlzAgtjdXJyZW50UG9vbAMDCQBnAgAABQZhbW91bnQGCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJANkEAQUHYXNzZXRJZAkAAgECFmludmFsaWQgdG9rZW4gYXR0YWNoZWQDCQAAAgULY3VycmVudFBvb2wCAAkAAgECFFBvb2wgbm90IGluaXRpYWxpemVkCQDOCAIJAQtzdGFrZVJlc3VsdAIFBHVzZXIFBmFtb3VudAkBDHN1cHBseVJlc3VsdAEFC2N1cnJlbnRQb29sAWkBB3Vuc3Rha2UBBmFtb3VudAQEdXNlcgkApQgBCAUBaQZjYWxsZXIEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wEAnR4CQEWd2l0aGRyYXdGcm9tUHV6emxlUG9vbAIFC2N1cnJlbnRQb29sBQZhbW91bnQDCQAAAgUCdHgFAnR4CQDOCAIJAQ11bnN0YWtlUmVzdWx0AgUEdXNlcgUGYW1vdW50CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUGYW1vdW50CQDZBAEFB2Fzc2V0SWQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgECdHgBBnZlcmlmeQAJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAIBQJ0eA9zZW5kZXJQdWJsaWNLZXmIalFf",
    "height": 2342880,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: HJDexyHNWhhogFU8eWXHsr6R94iU86X99WsXwXV6147J
Next: 2k6WvzLhEbW6LhgTTxsyFLMx6ME7tgJibc9t3o9qLTSc

Diff: 
Old New Differences
121 121              let y = v(u, J)
122 122              if ((y == y))
123 123                  then {
124 -                     let L = if ((J > 0))
125 -                         then invoke(e, "deposit", nil, [AttachedPayment(fromBase58String(f), J)])
126 -                         else ""
124 +                     let L = invoke(e, "deposit", nil, [AttachedPayment(fromBase58String(f), J)])
127 125                      if ((L == L))
128 126                          then L
129 127                          else throw("Strict value is not equal to itself.")
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_lastCheckSRate")
89 89      let B = k(this, "global_staked")
90 90      let C = fraction(B, A, b)
91 91      let D = t()
92 92      if ((C == 0))
93 93          then b
94 94          else {
95 95              let E = D
96 96              let F = fraction(A, E, C)
97 97              if ((b > F))
98 98                  then b
99 99                  else F
100 100              }
101 101      }
102 102  
103 103  
104 104  func G () = {
105 105      let B = k(this, "global_staked")
106 106      let H = k(this, "global_lastCheckSRate")
107 107      let I = (t() - fraction(B, H, b))
108 108      let J = fraction(I, 5000000, b)
109 109      if ((J > 0))
110 110          then J
111 111          else 0
112 112      }
113 113  
114 114  
115 115  func K () = {
116 116      let u = o(this, "currentPool")
117 117      let J = G()
118 118      if ((u == ""))
119 119          then throw(("Cannot find pool with id " + u))
120 120          else {
121 121              let y = v(u, J)
122 122              if ((y == y))
123 123                  then {
124 -                     let L = if ((J > 0))
125 -                         then invoke(e, "deposit", nil, [AttachedPayment(fromBase58String(f), J)])
126 -                         else ""
124 +                     let L = invoke(e, "deposit", nil, [AttachedPayment(fromBase58String(f), J)])
127 125                      if ((L == L))
128 126                          then L
129 127                          else throw("Strict value is not equal to itself.")
130 128                      }
131 129                  else throw("Strict value is not equal to itself.")
132 130              }
133 131      }
134 132  
135 133  
136 134  func M (N) = {
137 135      let B = k(this, "global_staked")
138 136  [IntegerEntry("global_staked", (B + N)), IntegerEntry("global_lastCheckSRate", z())]
139 137      }
140 138  
141 139  
142 140  func O (r) = if ((indexOf(g, r) == unit))
143 141      then throw(("Unknown poolId " + r))
144 142      else {
145 143          let P = fromBase58String(f)
146 144          let s = h(P)
147 145          let Q = invoke(Address(fromBase58String(r)), "supply", nil, [AttachedPayment(P, s)])
148 146          if ((Q == Q))
149 147              then [StringEntry("currentPool", r)]
150 148              else throw("Strict value is not equal to itself.")
151 149          }
152 150  
153 151  
154 152  func R () = {
155 153      let u = o(this, "currentPool")
156 154      if ((u == ""))
157 155          then throw(("Cannot find pool with id " + u))
158 156          else {
159 157              let w = q(u)
160 158              let S = v(u, w)
161 159              if ((S == S))
162 160                  then S
163 161                  else throw("Strict value is not equal to itself.")
164 162              }
165 163      }
166 164  
167 165  
168 166  func T (U,w) = {
169 167      let V = fraction(w, b, z())
170 168      let W = K()
171 169      if ((W == W))
172 170          then (M(V) ++ [IntegerEntry((U + "_staked"), (k(this, (U + "_staked")) + V))])
173 171          else throw("Strict value is not equal to itself.")
174 172      }
175 173  
176 174  
177 175  func X (U,w) = {
178 176      let V = fraction(w, b, z())
179 177      let Y = k(this, (U + "_staked"))
180 178      let Z = if ((V > Y))
181 179          then Y
182 180          else V
183 181      let W = K()
184 182      if ((W == W))
185 183          then (M(-(Z)) ++ [IntegerEntry((U + "_staked"), (Y - Z))])
186 184          else throw("Strict value is not equal to itself.")
187 185      }
188 186  
189 187  
190 188  @Callable(aa)
191 189  func init (r) = {
192 190      let u = o(this, "currentPool")
193 191      if ((indexOf(d, toString(aa.caller)) == unit))
194 192          then throw("Access denied")
195 193          else if ((u == ""))
196 194              then [StringEntry("currentPool", r)]
197 195              else nil
198 196      }
199 197  
200 198  
201 199  
202 200  @Callable(aa)
203 201  func rebalance (r) = {
204 202      let u = o(this, "currentPool")
205 203      if ((indexOf(d, toString(aa.caller)) == unit))
206 204          then throw("Access denied")
207 205          else if ((u == r))
208 206              then throw(("Already supplied to" + u))
209 207              else {
210 208                  let y = R()
211 209                  if ((y == y))
212 210                      then (O(r) ++ M(0))
213 211                      else throw("Strict value is not equal to itself.")
214 212                  }
215 213      }
216 214  
217 215  
218 216  
219 217  @Callable(aa)
220 218  func stake () = {
221 219      let U = toString(aa.caller)
222 220      let w = aa.payments[0].amount
223 221      let u = o(this, "currentPool")
224 222      if (if ((0 >= w))
225 223          then true
226 224          else (aa.payments[0].assetId != fromBase58String(f)))
227 225          then throw("invalid token attached")
228 226          else if ((u == ""))
229 227              then throw("Pool not initialized")
230 228              else (T(U, w) ++ O(u))
231 229      }
232 230  
233 231  
234 232  
235 233  @Callable(aa)
236 234  func unstake (w) = {
237 235      let U = toString(aa.caller)
238 236      let u = o(this, "currentPool")
239 237      let S = v(u, w)
240 238      if ((S == S))
241 239          then (X(U, w) ++ [ScriptTransfer(aa.caller, w, fromBase58String(f))])
242 240          else throw("Strict value is not equal to itself.")
243 241      }
244 242  
245 243  
246 244  @Verifier(S)
247 245  func ab () = sigVerify(S.bodyBytes, S.proofs[0], S.senderPublicKey)
248 246

Old	New		Differences
121	121		let y = v(u, J)
122	122		if ((y == y))
123	123		then {
124		-	let L = if ((J > 0))
125		-	then invoke(e, "deposit", nil, [AttachedPayment(fromBase58String(f), J)])
126		-	else ""
	124	+	let L = invoke(e, "deposit", nil, [AttachedPayment(fromBase58String(f), J)])
127	125		if ((L == L))
128	126		then L
129	127		else throw("Strict value is not equal to itself.")

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_lastCheckSRate")
89	89		let B = k(this, "global_staked")
90	90		let C = fraction(B, A, b)
91	91		let D = t()
92	92		if ((C == 0))
93	93		then b
94	94		else {
95	95		let E = D
96	96		let F = fraction(A, E, C)
97	97		if ((b > F))
98	98		then b
99	99		else F
100	100		}
101	101		}
102	102
103	103
104	104		func G () = {
105	105		let B = k(this, "global_staked")
106	106		let H = k(this, "global_lastCheckSRate")
107	107		let I = (t() - fraction(B, H, b))
108	108		let J = fraction(I, 5000000, b)
109	109		if ((J > 0))
110	110		then J
111	111		else 0
112	112		}
113	113
114	114
115	115		func K () = {
116	116		let u = o(this, "currentPool")
117	117		let J = G()
118	118		if ((u == ""))
119	119		then throw(("Cannot find pool with id " + u))
120	120		else {
121	121		let y = v(u, J)
122	122		if ((y == y))
123	123		then {
124		-	let L = if ((J > 0))
125		-	then invoke(e, "deposit", nil, [AttachedPayment(fromBase58String(f), J)])
126		-	else ""
	124	+	let L = invoke(e, "deposit", nil, [AttachedPayment(fromBase58String(f), J)])
127	125		if ((L == L))
128	126		then L
129	127		else throw("Strict value is not equal to itself.")
130	128		}
131	129		else throw("Strict value is not equal to itself.")
132	130		}
133	131		}
134	132
135	133
136	134		func M (N) = {
137	135		let B = k(this, "global_staked")
138	136		[IntegerEntry("global_staked", (B + N)), IntegerEntry("global_lastCheckSRate", z())]
139	137		}
140	138
141	139
142	140		func O (r) = if ((indexOf(g, r) == unit))
143	141		then throw(("Unknown poolId " + r))
144	142		else {
145	143		let P = fromBase58String(f)
146	144		let s = h(P)
147	145		let Q = invoke(Address(fromBase58String(r)), "supply", nil, [AttachedPayment(P, s)])
148	146		if ((Q == Q))
149	147		then [StringEntry("currentPool", r)]
150	148		else throw("Strict value is not equal to itself.")
151	149		}
152	150
153	151
154	152		func R () = {
155	153		let u = o(this, "currentPool")
156	154		if ((u == ""))
157	155		then throw(("Cannot find pool with id " + u))
158	156		else {
159	157		let w = q(u)
160	158		let S = v(u, w)
161	159		if ((S == S))
162	160		then S
163	161		else throw("Strict value is not equal to itself.")
164	162		}
165	163		}
166	164
167	165
168	166		func T (U,w) = {
169	167		let V = fraction(w, b, z())
170	168		let W = K()
171	169		if ((W == W))
172	170		then (M(V) ++ [IntegerEntry((U + "_staked"), (k(this, (U + "_staked")) + V))])
173	171		else throw("Strict value is not equal to itself.")
174	172		}
175	173
176	174
177	175		func X (U,w) = {
178	176		let V = fraction(w, b, z())
179	177		let Y = k(this, (U + "_staked"))
180	178		let Z = if ((V > Y))
181	179		then Y
182	180		else V
183	181		let W = K()
184	182		if ((W == W))
185	183		then (M(-(Z)) ++ [IntegerEntry((U + "_staked"), (Y - Z))])
186	184		else throw("Strict value is not equal to itself.")
187	185		}
188	186
189	187
190	188		@Callable(aa)
191	189		func init (r) = {
192	190		let u = o(this, "currentPool")
193	191		if ((indexOf(d, toString(aa.caller)) == unit))
194	192		then throw("Access denied")
195	193		else if ((u == ""))
196	194		then [StringEntry("currentPool", r)]
197	195		else nil
198	196		}
199	197
200	198
201	199
202	200		@Callable(aa)
203	201		func rebalance (r) = {
204	202		let u = o(this, "currentPool")
205	203		if ((indexOf(d, toString(aa.caller)) == unit))
206	204		then throw("Access denied")
207	205		else if ((u == r))
208	206		then throw(("Already supplied to" + u))
209	207		else {
210	208		let y = R()
211	209		if ((y == y))
212	210		then (O(r) ++ M(0))
213	211		else throw("Strict value is not equal to itself.")
214	212		}
215	213		}
216	214
217	215
218	216
219	217		@Callable(aa)
220	218		func stake () = {
221	219		let U = toString(aa.caller)
222	220		let w = aa.payments[0].amount
223	221		let u = o(this, "currentPool")
224	222		if (if ((0 >= w))
225	223		then true
226	224		else (aa.payments[0].assetId != fromBase58String(f)))
227	225		then throw("invalid token attached")
228	226		else if ((u == ""))
229	227		then throw("Pool not initialized")
230	228		else (T(U, w) ++ O(u))
231	229		}
232	230
233	231
234	232
235	233		@Callable(aa)
236	234		func unstake (w) = {
237	235		let U = toString(aa.caller)
238	236		let u = o(this, "currentPool")
239	237		let S = v(u, w)
240	238		if ((S == S))
241	239		then (X(U, w) ++ [ScriptTransfer(aa.caller, w, fromBase58String(f))])
242	240		else throw("Strict value is not equal to itself.")
243	241		}
244	242
245	243
246	244		@Verifier(S)
247	245		func ab () = sigVerify(S.bodyBytes, S.proofs[0], S.senderPublicKey)
248	246

github/deemru/w8io/873ac7e 
64.06 ms ◑