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
91 91      let lastCheckSAmounut = fraction(stakedAmount, lastCheckSRate, Scale8)
92 92      if ((lastCheckSRate == 0))
93 93          then Scale8
94 -         else {
95 -             let sRate = fraction(lastCheckSRate, (fraction((fraction(getTotalSuppliedAmount(), Scale6, lastCheckSAmounut) - Scale6), (Scale8 - 5000000), Scale8) + Scale6), Scale6)
96 -             if ((Scale8 > sRate))
97 -                 then lastCheckSRate
98 -                 else sRate
99 -             }
94 +         else if ((lastCheckSAmounut == 0))
95 +             then lastCheckSRate
96 +             else {
97 +                 let sRate = fraction(lastCheckSRate, (fraction((fraction(getTotalSuppliedAmount(), Scale6, lastCheckSAmounut) - Scale6), (Scale8 - 5000000), Scale8) + Scale6), Scale6)
98 +                 if ((Scale8 > sRate))
99 +                     then lastCheckSRate
100 +                     else sRate
101 +                 }
100 102      }
101 103  
102 104  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let Scale6 = 1000000
5 5  
6 6  let Scale8 = 100000000
7 7  
8 8  let Scale16 = (Scale8 * Scale8)
9 9  
10 10  let validators = ["3NAmqGjxRBRPoRHZUUqvhiNS6axnGpinLHC"]
11 11  
12 12  let moneyBoxAddress = Address(base58'3My6LmrRSRvJ73T14oT5k53SGPavGFoacWc')
13 13  
14 14  let assetId = "HHmaFQpUobwKxzjz4ECaBPtoF69kujKwU2cozaUzTsgv"
15 15  
16 16  let puzzlePools = ["3N6StJdgmTfARsRNn9Xt5rDYEs3pr4KGy1v"]
17 17  
18 18  func getBalance (assetId) = match assetId {
19 19      case x: Unit => 
20 20          wavesBalance(this).available
21 21      case _ => 
22 22          assetBalance(this, value(assetId))
23 23  }
24 24  
25 25  
26 26  func tryGetInt (address,key) = match getInteger(address, key) {
27 27      case b: Int => 
28 28          b
29 29      case _ => 
30 30          0
31 31  }
32 32  
33 33  
34 34  func tryGetStr (address,key) = match getString(address, key) {
35 35      case b: String => 
36 36          b
37 37      case _ => 
38 38          ""
39 39  }
40 40  
41 41  
42 42  func getAssetString (assetId) = match assetId {
43 43      case b: ByteVector => 
44 44          toBase58String(b)
45 45      case _ => 
46 46          "WAVES"
47 47  }
48 48  
49 49  
50 50  func getPuzzlePoolSuppliedAmount (poolId) = {
51 51      let balance = assetBalance(Address(fromBase58String(poolId)), fromBase58String(assetId))
52 52      balance
53 53      }
54 54  
55 55  
56 56  func getTotalSuppliedAmount () = {
57 57      let currentPool = tryGetStr(this, "currentPool")
58 58      if ((currentPool == ""))
59 59          then throw(("Cannot find pool with id " + currentPool))
60 60          else getPuzzlePoolSuppliedAmount(currentPool)
61 61      }
62 62  
63 63  
64 64  func withdrawFromPuzzlePool (poolId,amount) = {
65 65      let poolAddress = Address(fromBase58String(poolId))
66 66      let withdrawTx = if ((amount > 0))
67 67          then invoke(poolAddress, "withdraw", [assetId, amount], nil)
68 68          else ""
69 69      if ((withdrawTx == withdrawTx))
70 70          then withdrawTx
71 71          else throw("Strict value is not equal to itself.")
72 72      }
73 73  
74 74  
75 75  func calcFee () = {
76 76      let stakedAmount = tryGetInt(this, "global_staked")
77 77      let lastSRate = tryGetInt(this, "global_lastCheckSRate")
78 78      let sAmount = fraction(stakedAmount, lastSRate, Scale8)
79 79      let totalSupplied = getTotalSuppliedAmount()
80 80      let diff = (totalSupplied - sAmount)
81 81      let fee = fraction(diff, 5000000, Scale8)
82 82      if ((fee > 0))
83 83          then fee
84 84          else 0
85 85      }
86 86  
87 87  
88 88  func calculateSRate () = {
89 89      let lastCheckSRate = tryGetInt(this, "global_lastCheckSRate")
90 90      let stakedAmount = tryGetInt(this, "global_staked")
91 91      let lastCheckSAmounut = fraction(stakedAmount, lastCheckSRate, Scale8)
92 92      if ((lastCheckSRate == 0))
93 93          then Scale8
94 -         else {
95 -             let sRate = fraction(lastCheckSRate, (fraction((fraction(getTotalSuppliedAmount(), Scale6, lastCheckSAmounut) - Scale6), (Scale8 - 5000000), Scale8) + Scale6), Scale6)
96 -             if ((Scale8 > sRate))
97 -                 then lastCheckSRate
98 -                 else sRate
99 -             }
94 +         else if ((lastCheckSAmounut == 0))
95 +             then lastCheckSRate
96 +             else {
97 +                 let sRate = fraction(lastCheckSRate, (fraction((fraction(getTotalSuppliedAmount(), Scale6, lastCheckSAmounut) - Scale6), (Scale8 - 5000000), Scale8) + Scale6), Scale6)
98 +                 if ((Scale8 > sRate))
99 +                     then lastCheckSRate
100 +                     else sRate
101 +                 }
100 102      }
101 103  
102 104  
103 105  func chargeFeeResult () = {
104 106      let currentPool = tryGetStr(this, "currentPool")
105 107      let fee = calcFee()
106 108      if ((currentPool == ""))
107 109          then throw(("Cannot find pool with id " + currentPool))
108 110          else {
109 111              let withdrawTx = withdrawFromPuzzlePool(currentPool, fee)
110 112              if ((withdrawTx == withdrawTx))
111 113                  then {
112 114                      let chargeTx = invoke(moneyBoxAddress, "deposit", nil, [AttachedPayment(fromBase58String(assetId), fee)])
113 115                      if ((chargeTx == chargeTx))
114 116                          then chargeTx
115 117                          else throw("Strict value is not equal to itself.")
116 118                      }
117 119                  else throw("Strict value is not equal to itself.")
118 120              }
119 121      }
120 122  
121 123  
122 124  func recalcResult (stakedChange) = {
123 125      let stakedAmount = tryGetInt(this, "global_staked")
124 126  [IntegerEntry("global_staked", (stakedAmount + stakedChange)), IntegerEntry("global_lastCheckSRate", calculateSRate())]
125 127      }
126 128  
127 129  
128 130  func supplyResult (poolId) = if ((indexOf(puzzlePools, poolId) == unit))
129 131      then throw(("Unknown poolId " + poolId))
130 132      else {
131 133          let assetBytes = fromBase58String(assetId)
132 134          let balance = getBalance(assetBytes)
133 135          let inv = invoke(Address(fromBase58String(poolId)), "supply", nil, [AttachedPayment(assetBytes, balance)])
134 136          if ((inv == inv))
135 137              then [StringEntry("currentPool", poolId)]
136 138              else throw("Strict value is not equal to itself.")
137 139          }
138 140  
139 141  
140 142  func withdrawResult () = {
141 143      let currentPool = tryGetStr(this, "currentPool")
142 144      if ((currentPool == ""))
143 145          then throw(("Cannot find pool with id " + currentPool))
144 146          else {
145 147              let amount = getPuzzlePoolSuppliedAmount(currentPool)
146 148              let tx = withdrawFromPuzzlePool(currentPool, amount)
147 149              if ((tx == tx))
148 150                  then tx
149 151                  else throw("Strict value is not equal to itself.")
150 152              }
151 153      }
152 154  
153 155  
154 156  func stakeResult (user,amount) = {
155 157      let sAmount = fraction(amount, Scale8, calculateSRate())
156 158      (recalcResult(sAmount) ++ [IntegerEntry((user + "_staked"), (tryGetInt(this, (user + "_staked")) + sAmount))])
157 159      }
158 160  
159 161  
160 162  func unstakeResult (user,amount) = {
161 163      let sAmount = fraction(amount, Scale8, calculateSRate())
162 164      let userStaked = tryGetInt(this, (user + "_staked"))
163 165      let unstakeAmount = if ((sAmount > userStaked))
164 166          then userStaked
165 167          else sAmount
166 168      (recalcResult(-(unstakeAmount)) ++ [IntegerEntry((user + "_staked"), (userStaked - unstakeAmount))])
167 169      }
168 170  
169 171  
170 172  @Callable(i)
171 173  func init (poolId) = {
172 174      let currentPool = tryGetStr(this, "currentPool")
173 175      if ((indexOf(validators, toString(i.caller)) == unit))
174 176          then throw("Access denied")
175 177          else if ((currentPool == ""))
176 178              then [StringEntry("currentPool", poolId)]
177 179              else nil
178 180      }
179 181  
180 182  
181 183  
182 184  @Callable(i)
183 185  func rebalance (poolId) = {
184 186      let currentPool = tryGetStr(this, "currentPool")
185 187      if ((indexOf(validators, toString(i.caller)) == unit))
186 188          then throw("Access denied")
187 189          else if ((currentPool == poolId))
188 190              then throw(("Already supplied to" + currentPool))
189 191              else {
190 192                  let withdrawTx = withdrawResult()
191 193                  if ((withdrawTx == withdrawTx))
192 194                      then (supplyResult(poolId) ++ recalcResult(0))
193 195                      else throw("Strict value is not equal to itself.")
194 196                  }
195 197      }
196 198  
197 199  
198 200  
199 201  @Callable(i)
200 202  func stake () = {
201 203      let user = toString(i.caller)
202 204      let amount = i.payments[0].amount
203 205      let currentPool = tryGetStr(this, "currentPool")
204 206      let chargeFeeTx = chargeFeeResult()
205 207      if ((chargeFeeTx == chargeFeeTx))
206 208          then if (if ((0 >= amount))
207 209              then true
208 210              else (i.payments[0].assetId != fromBase58String(assetId)))
209 211              then throw("invalid token attached")
210 212              else if ((currentPool == ""))
211 213                  then throw("Pool not initialized")
212 214                  else (stakeResult(user, amount) ++ supplyResult(currentPool))
213 215          else throw("Strict value is not equal to itself.")
214 216      }
215 217  
216 218  
217 219  
218 220  @Callable(i)
219 221  func unstake (amount) = {
220 222      let user = toString(i.caller)
221 223      let currentPool = tryGetStr(this, "currentPool")
222 224      let chargeFeeTx = chargeFeeResult()
223 225      if ((chargeFeeTx == chargeFeeTx))
224 226          then {
225 227              let tx = withdrawFromPuzzlePool(currentPool, amount)
226 228              if ((tx == tx))
227 229                  then (unstakeResult(user, amount) ++ [ScriptTransfer(i.caller, amount, fromBase58String(assetId))])
228 230                  else throw("Strict value is not equal to itself.")
229 231              }
230 232          else throw("Strict value is not equal to itself.")
231 233      }
232 234  
233 235  
234 236  @Verifier(tx)
235 237  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
236 238

Old	New		Differences
91	91		let lastCheckSAmounut = fraction(stakedAmount, lastCheckSRate, Scale8)
92	92		if ((lastCheckSRate == 0))
93	93		then Scale8
94		-	else {
95		-	let sRate = fraction(lastCheckSRate, (fraction((fraction(getTotalSuppliedAmount(), Scale6, lastCheckSAmounut) - Scale6), (Scale8 - 5000000), Scale8) + Scale6), Scale6)
96		-	if ((Scale8 > sRate))
97		-	then lastCheckSRate
98		-	else sRate
99		-	}
	94	+	else if ((lastCheckSAmounut == 0))
	95	+	then lastCheckSRate
	96	+	else {
	97	+	let sRate = fraction(lastCheckSRate, (fraction((fraction(getTotalSuppliedAmount(), Scale6, lastCheckSAmounut) - Scale6), (Scale8 - 5000000), Scale8) + Scale6), Scale6)
	98	+	if ((Scale8 > sRate))
	99	+	then lastCheckSRate
	100	+	else sRate
	101	+	}
100	102		}
101	103
102	104

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let Scale6 = 1000000
5	5
6	6		let Scale8 = 100000000
7	7
8	8		let Scale16 = (Scale8 * Scale8)
9	9
10	10		let validators = ["3NAmqGjxRBRPoRHZUUqvhiNS6axnGpinLHC"]
11	11
12	12		let moneyBoxAddress = Address(base58'3My6LmrRSRvJ73T14oT5k53SGPavGFoacWc')
13	13
14	14		let assetId = "HHmaFQpUobwKxzjz4ECaBPtoF69kujKwU2cozaUzTsgv"
15	15
16	16		let puzzlePools = ["3N6StJdgmTfARsRNn9Xt5rDYEs3pr4KGy1v"]
17	17
18	18		func getBalance (assetId) = match assetId {
19	19		case x: Unit =>
20	20		wavesBalance(this).available
21	21		case _ =>
22	22		assetBalance(this, value(assetId))
23	23		}
24	24
25	25
26	26		func tryGetInt (address,key) = match getInteger(address, key) {
27	27		case b: Int =>
28	28		b
29	29		case _ =>
30	30		0
31	31		}
32	32
33	33
34	34		func tryGetStr (address,key) = match getString(address, key) {
35	35		case b: String =>
36	36		b
37	37		case _ =>
38	38		""
39	39		}
40	40
41	41
42	42		func getAssetString (assetId) = match assetId {
43	43		case b: ByteVector =>
44	44		toBase58String(b)
45	45		case _ =>
46	46		"WAVES"
47	47		}
48	48
49	49
50	50		func getPuzzlePoolSuppliedAmount (poolId) = {
51	51		let balance = assetBalance(Address(fromBase58String(poolId)), fromBase58String(assetId))
52	52		balance
53	53		}
54	54
55	55
56	56		func getTotalSuppliedAmount () = {
57	57		let currentPool = tryGetStr(this, "currentPool")
58	58		if ((currentPool == ""))
59	59		then throw(("Cannot find pool with id " + currentPool))
60	60		else getPuzzlePoolSuppliedAmount(currentPool)
61	61		}
62	62
63	63
64	64		func withdrawFromPuzzlePool (poolId,amount) = {
65	65		let poolAddress = Address(fromBase58String(poolId))
66	66		let withdrawTx = if ((amount > 0))
67	67		then invoke(poolAddress, "withdraw", [assetId, amount], nil)
68	68		else ""
69	69		if ((withdrawTx == withdrawTx))
70	70		then withdrawTx
71	71		else throw("Strict value is not equal to itself.")
72	72		}
73	73
74	74
75	75		func calcFee () = {
76	76		let stakedAmount = tryGetInt(this, "global_staked")
77	77		let lastSRate = tryGetInt(this, "global_lastCheckSRate")
78	78		let sAmount = fraction(stakedAmount, lastSRate, Scale8)
79	79		let totalSupplied = getTotalSuppliedAmount()
80	80		let diff = (totalSupplied - sAmount)
81	81		let fee = fraction(diff, 5000000, Scale8)
82	82		if ((fee > 0))
83	83		then fee
84	84		else 0
85	85		}
86	86
87	87
88	88		func calculateSRate () = {
89	89		let lastCheckSRate = tryGetInt(this, "global_lastCheckSRate")
90	90		let stakedAmount = tryGetInt(this, "global_staked")
91	91		let lastCheckSAmounut = fraction(stakedAmount, lastCheckSRate, Scale8)
92	92		if ((lastCheckSRate == 0))
93	93		then Scale8
94		-	else {
95		-	let sRate = fraction(lastCheckSRate, (fraction((fraction(getTotalSuppliedAmount(), Scale6, lastCheckSAmounut) - Scale6), (Scale8 - 5000000), Scale8) + Scale6), Scale6)
96		-	if ((Scale8 > sRate))
97		-	then lastCheckSRate
98		-	else sRate
99		-	}
	94	+	else if ((lastCheckSAmounut == 0))
	95	+	then lastCheckSRate
	96	+	else {
	97	+	let sRate = fraction(lastCheckSRate, (fraction((fraction(getTotalSuppliedAmount(), Scale6, lastCheckSAmounut) - Scale6), (Scale8 - 5000000), Scale8) + Scale6), Scale6)
	98	+	if ((Scale8 > sRate))
	99	+	then lastCheckSRate
	100	+	else sRate
	101	+	}
100	102		}
101	103
102	104
103	105		func chargeFeeResult () = {
104	106		let currentPool = tryGetStr(this, "currentPool")
105	107		let fee = calcFee()
106	108		if ((currentPool == ""))
107	109		then throw(("Cannot find pool with id " + currentPool))
108	110		else {
109	111		let withdrawTx = withdrawFromPuzzlePool(currentPool, fee)
110	112		if ((withdrawTx == withdrawTx))
111	113		then {
112	114		let chargeTx = invoke(moneyBoxAddress, "deposit", nil, [AttachedPayment(fromBase58String(assetId), fee)])
113	115		if ((chargeTx == chargeTx))
114	116		then chargeTx
115	117		else throw("Strict value is not equal to itself.")
116	118		}
117	119		else throw("Strict value is not equal to itself.")
118	120		}
119	121		}
120	122
121	123
122	124		func recalcResult (stakedChange) = {
123	125		let stakedAmount = tryGetInt(this, "global_staked")
124	126		[IntegerEntry("global_staked", (stakedAmount + stakedChange)), IntegerEntry("global_lastCheckSRate", calculateSRate())]
125	127		}
126	128
127	129
128	130		func supplyResult (poolId) = if ((indexOf(puzzlePools, poolId) == unit))
129	131		then throw(("Unknown poolId " + poolId))
130	132		else {
131	133		let assetBytes = fromBase58String(assetId)
132	134		let balance = getBalance(assetBytes)
133	135		let inv = invoke(Address(fromBase58String(poolId)), "supply", nil, [AttachedPayment(assetBytes, balance)])
134	136		if ((inv == inv))
135	137		then [StringEntry("currentPool", poolId)]
136	138		else throw("Strict value is not equal to itself.")
137	139		}
138	140
139	141
140	142		func withdrawResult () = {
141	143		let currentPool = tryGetStr(this, "currentPool")
142	144		if ((currentPool == ""))
143	145		then throw(("Cannot find pool with id " + currentPool))
144	146		else {
145	147		let amount = getPuzzlePoolSuppliedAmount(currentPool)
146	148		let tx = withdrawFromPuzzlePool(currentPool, amount)
147	149		if ((tx == tx))
148	150		then tx
149	151		else throw("Strict value is not equal to itself.")
150	152		}
151	153		}
152	154
153	155
154	156		func stakeResult (user,amount) = {
155	157		let sAmount = fraction(amount, Scale8, calculateSRate())
156	158		(recalcResult(sAmount) ++ [IntegerEntry((user + "_staked"), (tryGetInt(this, (user + "_staked")) + sAmount))])
157	159		}
158	160
159	161
160	162		func unstakeResult (user,amount) = {
161	163		let sAmount = fraction(amount, Scale8, calculateSRate())
162	164		let userStaked = tryGetInt(this, (user + "_staked"))
163	165		let unstakeAmount = if ((sAmount > userStaked))
164	166		then userStaked
165	167		else sAmount
166	168		(recalcResult(-(unstakeAmount)) ++ [IntegerEntry((user + "_staked"), (userStaked - unstakeAmount))])
167	169		}
168	170
169	171
170	172		@Callable(i)
171	173		func init (poolId) = {
172	174		let currentPool = tryGetStr(this, "currentPool")
173	175		if ((indexOf(validators, toString(i.caller)) == unit))
174	176		then throw("Access denied")
175	177		else if ((currentPool == ""))
176	178		then [StringEntry("currentPool", poolId)]
177	179		else nil
178	180		}
179	181
180	182
181	183
182	184		@Callable(i)
183	185		func rebalance (poolId) = {
184	186		let currentPool = tryGetStr(this, "currentPool")
185	187		if ((indexOf(validators, toString(i.caller)) == unit))
186	188		then throw("Access denied")
187	189		else if ((currentPool == poolId))
188	190		then throw(("Already supplied to" + currentPool))
189	191		else {
190	192		let withdrawTx = withdrawResult()
191	193		if ((withdrawTx == withdrawTx))
192	194		then (supplyResult(poolId) ++ recalcResult(0))
193	195		else throw("Strict value is not equal to itself.")
194	196		}
195	197		}
196	198
197	199
198	200
199	201		@Callable(i)
200	202		func stake () = {
201	203		let user = toString(i.caller)
202	204		let amount = i.payments[0].amount
203	205		let currentPool = tryGetStr(this, "currentPool")
204	206		let chargeFeeTx = chargeFeeResult()
205	207		if ((chargeFeeTx == chargeFeeTx))
206	208		then if (if ((0 >= amount))
207	209		then true
208	210		else (i.payments[0].assetId != fromBase58String(assetId)))
209	211		then throw("invalid token attached")
210	212		else if ((currentPool == ""))
211	213		then throw("Pool not initialized")
212	214		else (stakeResult(user, amount) ++ supplyResult(currentPool))
213	215		else throw("Strict value is not equal to itself.")
214	216		}
215	217
216	218
217	219
218	220		@Callable(i)
219	221		func unstake (amount) = {
220	222		let user = toString(i.caller)
221	223		let currentPool = tryGetStr(this, "currentPool")
222	224		let chargeFeeTx = chargeFeeResult()
223	225		if ((chargeFeeTx == chargeFeeTx))
224	226		then {
225	227		let tx = withdrawFromPuzzlePool(currentPool, amount)
226	228		if ((tx == tx))
227	229		then (unstakeResult(user, amount) ++ [ScriptTransfer(i.caller, amount, fromBase58String(assetId))])
228	230		else throw("Strict value is not equal to itself.")
229	231		}
230	232		else throw("Strict value is not equal to itself.")
231	233		}
232	234
233	235
234	236		@Verifier(tx)
235	237		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
236	238

github/deemru/w8io/873ac7e 
28.76 ms ◑