w8 · tx · 9SR···QH9

tx · 9SRtRmknfhkbgPvLQkQoaVGHGRzGDH9nUrLBLiSqjQH9

3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh:  -0.01000000 Waves

2022.12.06 15:47 [2348508] smart account 3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9SRtRmknfhkbgPvLQkQoaVGHGRzGDH9nUrLBLiSqjQH9",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1670330848365,
    "version": 2,
    "chainId": 84,
    "sender": "3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh",
    "senderPublicKey": "HscGVyJG5M3NMHWKfQbucCBsFLGPi8VmTxTAmcBbaWTa",
    "proofs": [
        "4fbtFkrU4X7V8bxiUKN7pLJb4qFNpNMu11rpqZQUhyxLFgnTfeE3YowLbFbMxZriSrWrAtzDqUkcz1LSFPmrTgiW"
    ],
    "script": "base64:BgITCAISAwoBCBIDCgEIEgASAwoBARYABlNjYWxlNgDAhD0ABlNjYWxlOACAwtcvAAdTY2FsZTE2CQBoAgUGU2NhbGU4BQZTY2FsZTgACnZhbGlkYXRvcnMJAMwIAgIjM05BbXFHanhSQlJQb1JIWlVVcXZoaU5TNmF4bkdwaW5MSEMFA25pbAAPbW9uZXlCb3hBZGRyZXNzCQEHQWRkcmVzcwEBGgFUZKnP467xWXotJQOt2k8QiNBvrQpHH8SpAAdhc3NldElkAixISG1hRlFwVW9id0t4emp6NEVDYUJQdG9GNjlrdWpLd1UyY296YVV6VHNndgALcHV6emxlUG9vbHMJAMwIAgIjM042U3RKZGdtVGZBUnNSTm45WHQ1ckRZRXMzcHI0S0d5MXYFA25pbAEKZ2V0QmFsYW5jZQEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgRVbml0BAF4BQckbWF0Y2gwCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkA8AcCBQR0aGlzCQEFdmFsdWUBBQdhc3NldElkAQl0cnlHZXRJbnQCB2FkZHJlc3MDa2V5BAckbWF0Y2gwCQCaCAIFB2FkZHJlc3MFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAEJdHJ5R2V0U3RyAgdhZGRyZXNzA2tleQQHJG1hdGNoMAkAnQgCBQdhZGRyZXNzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFiBQckbWF0Y2gwBQFiAgABDmdldEFzc2V0U3RyaW5nAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAJANgEAQUBYgIFV0FWRVMBG2dldFB1enpsZVBvb2xTdXBwbGllZEFtb3VudAEGcG9vbElkBAdiYWxhbmNlCQDwBwIJAQdBZGRyZXNzAQkA2QQBBQZwb29sSWQJANkEAQUHYXNzZXRJZAUHYmFsYW5jZQEWZ2V0VG90YWxTdXBwbGllZEFtb3VudAAEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wDCQAAAgULY3VycmVudFBvb2wCAAkAAgEJAKwCAgIZQ2Fubm90IGZpbmQgcG9vbCB3aXRoIGlkIAULY3VycmVudFBvb2wJARtnZXRQdXp6bGVQb29sU3VwcGxpZWRBbW91bnQBBQtjdXJyZW50UG9vbAEWd2l0aGRyYXdGcm9tUHV6emxlUG9vbAIGcG9vbElkBmFtb3VudAQLcG9vbEFkZHJlc3MJAQdBZGRyZXNzAQkA2QQBBQZwb29sSWQECndpdGhkcmF3VHgDCQBmAgUGYW1vdW50AAAJAPwHBAULcG9vbEFkZHJlc3MCCHdpdGhkcmF3CQDMCAIFB2Fzc2V0SWQJAMwIAgUGYW1vdW50BQNuaWwFA25pbAIAAwkAAAIFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BB2NhbGNGZWUABAxzdGFrZWRBbW91bnQJAQl0cnlHZXRJbnQCBQR0aGlzAg1nbG9iYWxfc3Rha2VkBAlsYXN0U1JhdGUJAQl0cnlHZXRJbnQCBQR0aGlzAhVnbG9iYWxfbGFzdENoZWNrU1JhdGUEB3NBbW91bnQJAGsDBQxzdGFrZWRBbW91bnQFCWxhc3RTUmF0ZQUGU2NhbGU4BA10b3RhbFN1cHBsaWVkCQEWZ2V0VG90YWxTdXBwbGllZEFtb3VudAAEBGRpZmYJAGUCBQ10b3RhbFN1cHBsaWVkBQdzQW1vdW50BANmZWUJAGsDBQRkaWZmAMCWsQIFBlNjYWxlOAMJAGYCBQNmZWUAAAUDZmVlAAABDmNhbGN1bGF0ZVNSYXRlAAQObGFzdENoZWNrU1JhdGUJAQl0cnlHZXRJbnQCBQR0aGlzAhVnbG9iYWxfbGFzdENoZWNrU1JhdGUEDHN0YWtlZEFtb3VudAkBCXRyeUdldEludAIFBHRoaXMCDWdsb2JhbF9zdGFrZWQEEWxhc3RDaGVja1NBbW91bnV0CQBrAwUMc3Rha2VkQW1vdW50BQ5sYXN0Q2hlY2tTUmF0ZQUGU2NhbGU4AwkAAAIFDmxhc3RDaGVja1NSYXRlAAAFBlNjYWxlOAMJAAACBRFsYXN0Q2hlY2tTQW1vdW51dAAABQ5sYXN0Q2hlY2tTUmF0ZQQFc1JhdGUJAGsDBQ5sYXN0Q2hlY2tTUmF0ZQkAZAIJAGsDCQBlAgkAawMJARZnZXRUb3RhbFN1cHBsaWVkQW1vdW50AAUGU2NhbGU2BRFsYXN0Q2hlY2tTQW1vdW51dAUGU2NhbGU2CQBlAgUGU2NhbGU4AMCWsQIFBlNjYWxlOAUGU2NhbGU2BQZTY2FsZTYDCQBmAgUGU2NhbGU4BQVzUmF0ZQUObGFzdENoZWNrU1JhdGUFBXNSYXRlAQ9jaGFyZ2VGZWVSZXN1bHQABAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sBANmZWUJAQdjYWxjRmVlAAMJAAACBQtjdXJyZW50UG9vbAIACQACAQkArAICAhlDYW5ub3QgZmluZCBwb29sIHdpdGggaWQgBQtjdXJyZW50UG9vbAQKd2l0aGRyYXdUeAkBFndpdGhkcmF3RnJvbVB1enpsZVBvb2wCBQtjdXJyZW50UG9vbAUDZmVlAwkAAAIFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgECGNoYXJnZVR4CQD8BwQFD21vbmV5Qm94QWRkcmVzcwIHZGVwb3NpdAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFB2Fzc2V0SWQFA2ZlZQUDbmlsAwkAAAIFCGNoYXJnZVR4BQhjaGFyZ2VUeAUIY2hhcmdlVHgJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BDHJlY2FsY1Jlc3VsdAEMc3Rha2VkQ2hhbmdlBAxzdGFrZWRBbW91bnQJAQl0cnlHZXRJbnQCBQR0aGlzAg1nbG9iYWxfc3Rha2VkCQDMCAIJAQxJbnRlZ2VyRW50cnkCAg1nbG9iYWxfc3Rha2VkCQBkAgUMc3Rha2VkQW1vdW50BQxzdGFrZWRDaGFuZ2UJAMwIAgkBDEludGVnZXJFbnRyeQICFWdsb2JhbF9sYXN0Q2hlY2tTUmF0ZQkBDmNhbGN1bGF0ZVNSYXRlAAUDbmlsAQxzdXBwbHlSZXN1bHQBBnBvb2xJZAMJAAACCQDPCAIFC3B1enpsZVBvb2xzBQZwb29sSWQFBHVuaXQJAAIBCQCsAgICD1Vua25vd24gcG9vbElkIAUGcG9vbElkBAphc3NldEJ5dGVzCQDZBAEFB2Fzc2V0SWQEB2JhbGFuY2UJAQpnZXRCYWxhbmNlAQUKYXNzZXRCeXRlcwQDaW52CQD8BwQJAQdBZGRyZXNzAQkA2QQBBQZwb29sSWQCBnN1cHBseQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQphc3NldEJ5dGVzBQdiYWxhbmNlBQNuaWwDCQAAAgUDaW52BQNpbnYJAMwIAgkBC1N0cmluZ0VudHJ5AgILY3VycmVudFBvb2wFBnBvb2xJZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQ53aXRoZHJhd1Jlc3VsdAAEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wDCQAAAgULY3VycmVudFBvb2wCAAkAAgEJAKwCAgIZQ2Fubm90IGZpbmQgcG9vbCB3aXRoIGlkIAULY3VycmVudFBvb2wEBmFtb3VudAkBG2dldFB1enpsZVBvb2xTdXBwbGllZEFtb3VudAEFC2N1cnJlbnRQb29sBAJ0eAkBFndpdGhkcmF3RnJvbVB1enpsZVBvb2wCBQtjdXJyZW50UG9vbAUGYW1vdW50AwkAAAIFAnR4BQJ0eAUCdHgJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BC3N0YWtlUmVzdWx0AgR1c2VyBmFtb3VudAQHc0Ftb3VudAkAawMFBmFtb3VudAUGU2NhbGU4CQEOY2FsY3VsYXRlU1JhdGUACQDOCAIJAQxyZWNhbGNSZXN1bHQBBQdzQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHVzZXICB19zdGFrZWQJAGQCCQEJdHJ5R2V0SW50AgUEdGhpcwkArAICBQR1c2VyAgdfc3Rha2VkBQdzQW1vdW50BQNuaWwBDXVuc3Rha2VSZXN1bHQCBHVzZXIGYW1vdW50BAdzQW1vdW50CQBrAwUGYW1vdW50BQZTY2FsZTgJAQ5jYWxjdWxhdGVTUmF0ZQAECnVzZXJTdGFrZWQJAQl0cnlHZXRJbnQCBQR0aGlzCQCsAgIFBHVzZXICB19zdGFrZWQEDXVuc3Rha2VBbW91bnQDCQBmAgUHc0Ftb3VudAUKdXNlclN0YWtlZAUKdXNlclN0YWtlZAUHc0Ftb3VudAkAzggCCQEMcmVjYWxjUmVzdWx0AQkBAS0BBQ11bnN0YWtlQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHVzZXICB19zdGFrZWQJAGUCBQp1c2VyU3Rha2VkBQ11bnN0YWtlQW1vdW50BQNuaWwEAWkBBGluaXQBBnBvb2xJZAQLY3VycmVudFBvb2wJAQl0cnlHZXRTdHICBQR0aGlzAgtjdXJyZW50UG9vbAMJAAACCQDPCAIFCnZhbGlkYXRvcnMJAKUIAQgFAWkGY2FsbGVyBQR1bml0CQACAQINQWNjZXNzIGRlbmllZAMJAAACBQtjdXJyZW50UG9vbAIACQDMCAIJAQtTdHJpbmdFbnRyeQICC2N1cnJlbnRQb29sBQZwb29sSWQFA25pbAUDbmlsAWkBCXJlYmFsYW5jZQEGcG9vbElkBAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sAwkAAAIJAM8IAgUKdmFsaWRhdG9ycwkApQgBCAUBaQZjYWxsZXIFBHVuaXQJAAIBAg1BY2Nlc3MgZGVuaWVkAwkAAAIFC2N1cnJlbnRQb29sBQZwb29sSWQJAAIBCQCsAgICE0FscmVhZHkgc3VwcGxpZWQgdG8FC2N1cnJlbnRQb29sBAp3aXRoZHJhd1R4CQEOd2l0aGRyYXdSZXN1bHQAAwkAAAIFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgJAM4IAgkBDHN1cHBseVJlc3VsdAEFBnBvb2xJZAkBDHJlY2FsY1Jlc3VsdAEAAAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQVzdGFrZQAEBHVzZXIJAKUIAQgFAWkGY2FsbGVyBAZhbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sBAtjaGFyZ2VGZWVUeAkBD2NoYXJnZUZlZVJlc3VsdAADCQAAAgULY2hhcmdlRmVlVHgFC2NoYXJnZUZlZVR4AwMJAGcCAAAFBmFtb3VudAYJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkA2QQBBQdhc3NldElkCQACAQIWaW52YWxpZCB0b2tlbiBhdHRhY2hlZAMJAAACBQtjdXJyZW50UG9vbAIACQACAQIUUG9vbCBub3QgaW5pdGlhbGl6ZWQJAM4IAgkBC3N0YWtlUmVzdWx0AgUEdXNlcgUGYW1vdW50CQEMc3VwcGx5UmVzdWx0AQULY3VycmVudFBvb2wJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEHdW5zdGFrZQEGYW1vdW50BAR1c2VyCQClCAEIBQFpBmNhbGxlcgQLY3VycmVudFBvb2wJAQl0cnlHZXRTdHICBQR0aGlzAgtjdXJyZW50UG9vbAQLY2hhcmdlRmVlVHgJAQ9jaGFyZ2VGZWVSZXN1bHQAAwkAAAIFC2NoYXJnZUZlZVR4BQtjaGFyZ2VGZWVUeAQCdHgJARZ3aXRoZHJhd0Zyb21QdXp6bGVQb29sAgULY3VycmVudFBvb2wFBmFtb3VudAMJAAACBQJ0eAUCdHgJAM4IAgkBDXVuc3Rha2VSZXN1bHQCBQR1c2VyBQZhbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQZhbW91bnQJANkEAQUHYXNzZXRJZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tleYmadAg=",
    "height": 2348508,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GVdj9kwc2aDxMwdHQH3jtKX5UpNCsNfgTTwApLBB9Erm
Next: DUbowf6xbdgoX2J4J3X2tUyWK9WpH2H9uRNWHZFqgeiy

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

Old	New		Differences
103	103		let I = fraction(A, H, b)
104	104		if ((H == 0))
105	105		then b
106		-	else {
107		-	let J = fraction(H, (fraction((fraction(t(), a, I) - a), (b - 5000000), b) + a), a)
108		-	if ((b > J))
109		-	then H
110		-	else J
111		-	}
	106	+	else if ((I == 0))
	107	+	then H
	108	+	else {
	109	+	let J = fraction(H, (fraction((fraction(t(), a, I) - a), (b - 5000000), b) + a), a)
	110	+	if ((b > J))
	111	+	then H
	112	+	else J
	113	+	}
112	114		}
113	115
114	116

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

github/deemru/w8io/169f3d6 
41.90 ms ◑