w8 · tx · GVd···Erm

tx · GVdj9kwc2aDxMwdHQH3jtKX5UpNCsNfgTTwApLBB9Erm

3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh:  -0.01000000 Waves

2022.12.06 15:33 [2348492] smart account 3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GVdj9kwc2aDxMwdHQH3jtKX5UpNCsNfgTTwApLBB9Erm",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1670330026676,
    "version": 2,
    "chainId": 84,
    "sender": "3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh",
    "senderPublicKey": "HscGVyJG5M3NMHWKfQbucCBsFLGPi8VmTxTAmcBbaWTa",
    "proofs": [
        "379kXXQH5Jyjc7tb1kKfSd7AMBnkCtANu53aVE5XWrx8ttnvatU42jR8SMqJgQc14bWSx2mpfAXr6GxqQUFLBRud"
    ],
    "script": "base64:BgITCAISAwoBCBIDCgEIEgASAwoBARYABlNjYWxlNgDAhD0ABlNjYWxlOACAwtcvAAdTY2FsZTE2CQBoAgUGU2NhbGU4BQZTY2FsZTgACnZhbGlkYXRvcnMJAMwIAgIjM05BbXFHanhSQlJQb1JIWlVVcXZoaU5TNmF4bkdwaW5MSEMFA25pbAAPbW9uZXlCb3hBZGRyZXNzCQEHQWRkcmVzcwEBGgFUZKnP467xWXotJQOt2k8QiNBvrQpHH8SpAAdhc3NldElkAixISG1hRlFwVW9id0t4emp6NEVDYUJQdG9GNjlrdWpLd1UyY296YVV6VHNndgALcHV6emxlUG9vbHMJAMwIAgIjM042U3RKZGdtVGZBUnNSTm45WHQ1ckRZRXMzcHI0S0d5MXYFA25pbAEKZ2V0QmFsYW5jZQEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgRVbml0BAF4BQckbWF0Y2gwCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkA8AcCBQR0aGlzCQEFdmFsdWUBBQdhc3NldElkAQl0cnlHZXRJbnQCB2FkZHJlc3MDa2V5BAckbWF0Y2gwCQCaCAIFB2FkZHJlc3MFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAEJdHJ5R2V0U3RyAgdhZGRyZXNzA2tleQQHJG1hdGNoMAkAnQgCBQdhZGRyZXNzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFiBQckbWF0Y2gwBQFiAgABDmdldEFzc2V0U3RyaW5nAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAJANgEAQUBYgIFV0FWRVMBG2dldFB1enpsZVBvb2xTdXBwbGllZEFtb3VudAEGcG9vbElkBAdiYWxhbmNlCQDwBwIJAQdBZGRyZXNzAQkA2QQBBQZwb29sSWQJANkEAQUHYXNzZXRJZAUHYmFsYW5jZQEWZ2V0VG90YWxTdXBwbGllZEFtb3VudAAEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wDCQAAAgULY3VycmVudFBvb2wCAAkAAgEJAKwCAgIZQ2Fubm90IGZpbmQgcG9vbCB3aXRoIGlkIAULY3VycmVudFBvb2wJARtnZXRQdXp6bGVQb29sU3VwcGxpZWRBbW91bnQBBQtjdXJyZW50UG9vbAEWd2l0aGRyYXdGcm9tUHV6emxlUG9vbAIGcG9vbElkBmFtb3VudAQLcG9vbEFkZHJlc3MJAQdBZGRyZXNzAQkA2QQBBQZwb29sSWQECndpdGhkcmF3VHgDCQBmAgUGYW1vdW50AAAJAPwHBAULcG9vbEFkZHJlc3MCCHdpdGhkcmF3CQDMCAIFB2Fzc2V0SWQJAMwIAgUGYW1vdW50BQNuaWwFA25pbAIAAwkAAAIFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BB2NhbGNGZWUABAxzdGFrZWRBbW91bnQJAQl0cnlHZXRJbnQCBQR0aGlzAg1nbG9iYWxfc3Rha2VkBAlsYXN0U1JhdGUJAQl0cnlHZXRJbnQCBQR0aGlzAhVnbG9iYWxfbGFzdENoZWNrU1JhdGUEB3NBbW91bnQJAGsDBQxzdGFrZWRBbW91bnQFCWxhc3RTUmF0ZQUGU2NhbGU4BA10b3RhbFN1cHBsaWVkCQEWZ2V0VG90YWxTdXBwbGllZEFtb3VudAAEBGRpZmYJAGUCBQ10b3RhbFN1cHBsaWVkBQdzQW1vdW50BANmZWUJAGsDBQRkaWZmAMCWsQIFBlNjYWxlOAMJAGYCBQNmZWUAAAUDZmVlAAABDmNhbGN1bGF0ZVNSYXRlAAQObGFzdENoZWNrU1JhdGUJAQl0cnlHZXRJbnQCBQR0aGlzAhVnbG9iYWxfbGFzdENoZWNrU1JhdGUEDHN0YWtlZEFtb3VudAkBCXRyeUdldEludAIFBHRoaXMCDWdsb2JhbF9zdGFrZWQEEWxhc3RDaGVja1NBbW91bnV0CQBrAwUMc3Rha2VkQW1vdW50BQ5sYXN0Q2hlY2tTUmF0ZQUGU2NhbGU4AwkAAAIFDmxhc3RDaGVja1NSYXRlAAAFBlNjYWxlOAQFc1JhdGUJAGsDBQ5sYXN0Q2hlY2tTUmF0ZQkAZAIJAGsDCQBlAgkAawMJARZnZXRUb3RhbFN1cHBsaWVkQW1vdW50AAUGU2NhbGU2BRFsYXN0Q2hlY2tTQW1vdW51dAUGU2NhbGU2CQBlAgUGU2NhbGU4AMCWsQIFBlNjYWxlOAUGU2NhbGU2BQZTY2FsZTYDCQBmAgUGU2NhbGU4BQVzUmF0ZQUObGFzdENoZWNrU1JhdGUFBXNSYXRlAQ9jaGFyZ2VGZWVSZXN1bHQABAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sBANmZWUJAQdjYWxjRmVlAAMJAAACBQtjdXJyZW50UG9vbAIACQACAQkArAICAhlDYW5ub3QgZmluZCBwb29sIHdpdGggaWQgBQtjdXJyZW50UG9vbAQKd2l0aGRyYXdUeAkBFndpdGhkcmF3RnJvbVB1enpsZVBvb2wCBQtjdXJyZW50UG9vbAUDZmVlAwkAAAIFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgECGNoYXJnZVR4CQD8BwQFD21vbmV5Qm94QWRkcmVzcwIHZGVwb3NpdAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFB2Fzc2V0SWQFA2ZlZQUDbmlsAwkAAAIFCGNoYXJnZVR4BQhjaGFyZ2VUeAUIY2hhcmdlVHgJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BDHJlY2FsY1Jlc3VsdAEMc3Rha2VkQ2hhbmdlBAxzdGFrZWRBbW91bnQJAQl0cnlHZXRJbnQCBQR0aGlzAg1nbG9iYWxfc3Rha2VkCQDMCAIJAQxJbnRlZ2VyRW50cnkCAg1nbG9iYWxfc3Rha2VkCQBkAgUMc3Rha2VkQW1vdW50BQxzdGFrZWRDaGFuZ2UJAMwIAgkBDEludGVnZXJFbnRyeQICFWdsb2JhbF9sYXN0Q2hlY2tTUmF0ZQkBDmNhbGN1bGF0ZVNSYXRlAAUDbmlsAQxzdXBwbHlSZXN1bHQBBnBvb2xJZAMJAAACCQDPCAIFC3B1enpsZVBvb2xzBQZwb29sSWQFBHVuaXQJAAIBCQCsAgICD1Vua25vd24gcG9vbElkIAUGcG9vbElkBAphc3NldEJ5dGVzCQDZBAEFB2Fzc2V0SWQEB2JhbGFuY2UJAQpnZXRCYWxhbmNlAQUKYXNzZXRCeXRlcwQDaW52CQD8BwQJAQdBZGRyZXNzAQkA2QQBBQZwb29sSWQCBnN1cHBseQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQphc3NldEJ5dGVzBQdiYWxhbmNlBQNuaWwDCQAAAgUDaW52BQNpbnYJAMwIAgkBC1N0cmluZ0VudHJ5AgILY3VycmVudFBvb2wFBnBvb2xJZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQ53aXRoZHJhd1Jlc3VsdAAEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wDCQAAAgULY3VycmVudFBvb2wCAAkAAgEJAKwCAgIZQ2Fubm90IGZpbmQgcG9vbCB3aXRoIGlkIAULY3VycmVudFBvb2wEBmFtb3VudAkBG2dldFB1enpsZVBvb2xTdXBwbGllZEFtb3VudAEFC2N1cnJlbnRQb29sBAJ0eAkBFndpdGhkcmF3RnJvbVB1enpsZVBvb2wCBQtjdXJyZW50UG9vbAUGYW1vdW50AwkAAAIFAnR4BQJ0eAUCdHgJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BC3N0YWtlUmVzdWx0AgR1c2VyBmFtb3VudAQHc0Ftb3VudAkAawMFBmFtb3VudAUGU2NhbGU4CQEOY2FsY3VsYXRlU1JhdGUACQDOCAIJAQxyZWNhbGNSZXN1bHQBBQdzQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHVzZXICB19zdGFrZWQJAGQCCQEJdHJ5R2V0SW50AgUEdGhpcwkArAICBQR1c2VyAgdfc3Rha2VkBQdzQW1vdW50BQNuaWwBDXVuc3Rha2VSZXN1bHQCBHVzZXIGYW1vdW50BAdzQW1vdW50CQBrAwUGYW1vdW50BQZTY2FsZTgJAQ5jYWxjdWxhdGVTUmF0ZQAECnVzZXJTdGFrZWQJAQl0cnlHZXRJbnQCBQR0aGlzCQCsAgIFBHVzZXICB19zdGFrZWQEDXVuc3Rha2VBbW91bnQDCQBmAgUHc0Ftb3VudAUKdXNlclN0YWtlZAUKdXNlclN0YWtlZAUHc0Ftb3VudAkAzggCCQEMcmVjYWxjUmVzdWx0AQkBAS0BBQ11bnN0YWtlQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHVzZXICB19zdGFrZWQJAGUCBQp1c2VyU3Rha2VkBQ11bnN0YWtlQW1vdW50BQNuaWwEAWkBBGluaXQBBnBvb2xJZAQLY3VycmVudFBvb2wJAQl0cnlHZXRTdHICBQR0aGlzAgtjdXJyZW50UG9vbAMJAAACCQDPCAIFCnZhbGlkYXRvcnMJAKUIAQgFAWkGY2FsbGVyBQR1bml0CQACAQINQWNjZXNzIGRlbmllZAMJAAACBQtjdXJyZW50UG9vbAIACQDMCAIJAQtTdHJpbmdFbnRyeQICC2N1cnJlbnRQb29sBQZwb29sSWQFA25pbAUDbmlsAWkBCXJlYmFsYW5jZQEGcG9vbElkBAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sAwkAAAIJAM8IAgUKdmFsaWRhdG9ycwkApQgBCAUBaQZjYWxsZXIFBHVuaXQJAAIBAg1BY2Nlc3MgZGVuaWVkAwkAAAIFC2N1cnJlbnRQb29sBQZwb29sSWQJAAIBCQCsAgICE0FscmVhZHkgc3VwcGxpZWQgdG8FC2N1cnJlbnRQb29sBAp3aXRoZHJhd1R4CQEOd2l0aGRyYXdSZXN1bHQAAwkAAAIFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgJAM4IAgkBDHN1cHBseVJlc3VsdAEFBnBvb2xJZAkBDHJlY2FsY1Jlc3VsdAEAAAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQVzdGFrZQAEBHVzZXIJAKUIAQgFAWkGY2FsbGVyBAZhbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sBAtjaGFyZ2VGZWVUeAkBD2NoYXJnZUZlZVJlc3VsdAADCQAAAgULY2hhcmdlRmVlVHgFC2NoYXJnZUZlZVR4AwMJAGcCAAAFBmFtb3VudAYJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkA2QQBBQdhc3NldElkCQACAQIWaW52YWxpZCB0b2tlbiBhdHRhY2hlZAMJAAACBQtjdXJyZW50UG9vbAIACQACAQIUUG9vbCBub3QgaW5pdGlhbGl6ZWQJAM4IAgkBC3N0YWtlUmVzdWx0AgUEdXNlcgUGYW1vdW50CQEMc3VwcGx5UmVzdWx0AQULY3VycmVudFBvb2wJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEHdW5zdGFrZQEGYW1vdW50BAR1c2VyCQClCAEIBQFpBmNhbGxlcgQLY3VycmVudFBvb2wJAQl0cnlHZXRTdHICBQR0aGlzAgtjdXJyZW50UG9vbAQLY2hhcmdlRmVlVHgJAQ9jaGFyZ2VGZWVSZXN1bHQAAwkAAAIFC2NoYXJnZUZlZVR4BQtjaGFyZ2VGZWVUeAQCdHgJARZ3aXRoZHJhd0Zyb21QdXp6bGVQb29sAgULY3VycmVudFBvb2wFBmFtb3VudAMJAAACBQJ0eAUCdHgJAM4IAgkBDXVuc3Rha2VSZXN1bHQCBQR1c2VyBQZhbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQZhbW91bnQJANkEAQUHYXNzZXRJZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tleS+Q0Mo=",
    "height": 2348492,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 3YkHma2ooCiscQFMoqGpfFf4HFY4RDJqUcS3RSMKz8vb
Next: 9SRtRmknfhkbgPvLQkQoaVGHGRzGDH9nUrLBLiSqjQH9

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 94          else {
95 95              let sRate = fraction(lastCheckSRate, (fraction((fraction(getTotalSuppliedAmount(), Scale6, lastCheckSAmounut) - Scale6), (Scale8 - 5000000), Scale8) + Scale6), Scale6)
96 96              if ((Scale8 > sRate))
97 97                  then lastCheckSRate
98 98                  else sRate
99 99              }
100 100      }
101 101  
102 102  
103 103  func chargeFeeResult () = {
104 104      let currentPool = tryGetStr(this, "currentPool")
105 105      let fee = calcFee()
106 106      if ((currentPool == ""))
107 107          then throw(("Cannot find pool with id " + currentPool))
108 108          else {
109 109              let withdrawTx = withdrawFromPuzzlePool(currentPool, fee)
110 110              if ((withdrawTx == withdrawTx))
111 111                  then {
112 112                      let chargeTx = invoke(moneyBoxAddress, "deposit", nil, [AttachedPayment(fromBase58String(assetId), fee)])
113 113                      if ((chargeTx == chargeTx))
114 114                          then chargeTx
115 115                          else throw("Strict value is not equal to itself.")
116 116                      }
117 117                  else throw("Strict value is not equal to itself.")
118 118              }
119 119      }
120 120  
121 121  
122 122  func recalcResult (stakedChange) = {
123 123      let stakedAmount = tryGetInt(this, "global_staked")
124 124  [IntegerEntry("global_staked", (stakedAmount + stakedChange)), IntegerEntry("global_lastCheckSRate", calculateSRate())]
125 125      }
126 126  
127 127  
128 128  func supplyResult (poolId) = if ((indexOf(puzzlePools, poolId) == unit))
129 129      then throw(("Unknown poolId " + poolId))
130 130      else {
131 131          let assetBytes = fromBase58String(assetId)
132 132          let balance = getBalance(assetBytes)
133 133          let inv = invoke(Address(fromBase58String(poolId)), "supply", nil, [AttachedPayment(assetBytes, balance)])
134 134          if ((inv == inv))
135 135              then [StringEntry("currentPool", poolId)]
136 136              else throw("Strict value is not equal to itself.")
137 137          }
138 138  
139 139  
140 140  func withdrawResult () = {
141 141      let currentPool = tryGetStr(this, "currentPool")
142 142      if ((currentPool == ""))
143 143          then throw(("Cannot find pool with id " + currentPool))
144 144          else {
145 145              let amount = getPuzzlePoolSuppliedAmount(currentPool)
146 146              let tx = withdrawFromPuzzlePool(currentPool, amount)
147 147              if ((tx == tx))
148 148                  then tx
149 149                  else throw("Strict value is not equal to itself.")
150 150              }
151 151      }
152 152  
153 153  
154 154  func stakeResult (user,amount) = {
155 155      let sAmount = fraction(amount, Scale8, calculateSRate())
156 156      (recalcResult(sAmount) ++ [IntegerEntry((user + "_staked"), (tryGetInt(this, (user + "_staked")) + sAmount))])
157 157      }
158 158  
159 159  
160 160  func unstakeResult (user,amount) = {
161 161      let sAmount = fraction(amount, Scale8, calculateSRate())
162 162      let userStaked = tryGetInt(this, (user + "_staked"))
163 163      let unstakeAmount = if ((sAmount > userStaked))
164 164          then userStaked
165 165          else sAmount
166 166      (recalcResult(-(unstakeAmount)) ++ [IntegerEntry((user + "_staked"), (userStaked - unstakeAmount))])
167 167      }
168 168  
169 169  
170 170  @Callable(i)
171 171  func init (poolId) = {
172 172      let currentPool = tryGetStr(this, "currentPool")
173 173      if ((indexOf(validators, toString(i.caller)) == unit))
174 174          then throw("Access denied")
175 175          else if ((currentPool == ""))
176 176              then [StringEntry("currentPool", poolId)]
177 177              else nil
178 178      }
179 179  
180 180  
181 181  
182 182  @Callable(i)
183 183  func rebalance (poolId) = {
184 184      let currentPool = tryGetStr(this, "currentPool")
185 185      if ((indexOf(validators, toString(i.caller)) == unit))
186 186          then throw("Access denied")
187 187          else if ((currentPool == poolId))
188 188              then throw(("Already supplied to" + currentPool))
189 189              else {
190 190                  let withdrawTx = withdrawResult()
191 191                  if ((withdrawTx == withdrawTx))
192 192                      then (supplyResult(poolId) ++ recalcResult(0))
193 193                      else throw("Strict value is not equal to itself.")
194 194                  }
195 195      }
196 196  
197 197  
198 198  
199 199  @Callable(i)
200 200  func stake () = {
201 201      let user = toString(i.caller)
202 202      let amount = i.payments[0].amount
203 203      let currentPool = tryGetStr(this, "currentPool")
204 204      let chargeFeeTx = chargeFeeResult()
205 205      if ((chargeFeeTx == chargeFeeTx))
206 206          then if (if ((0 >= amount))
207 207              then true
208 208              else (i.payments[0].assetId != fromBase58String(assetId)))
209 209              then throw("invalid token attached")
210 210              else if ((currentPool == ""))
211 211                  then throw("Pool not initialized")
212 212                  else (stakeResult(user, amount) ++ supplyResult(currentPool))
213 213          else throw("Strict value is not equal to itself.")
214 214      }
215 215  
216 216  
217 217  
218 218  @Callable(i)
219 219  func unstake (amount) = {
220 220      let user = toString(i.caller)
221 221      let currentPool = tryGetStr(this, "currentPool")
222 222      let chargeFeeTx = chargeFeeResult()
223 223      if ((chargeFeeTx == chargeFeeTx))
224 224          then {
225 225              let tx = withdrawFromPuzzlePool(currentPool, amount)
226 226              if ((tx == tx))
227 227                  then (unstakeResult(user, amount) ++ [ScriptTransfer(i.caller, amount, fromBase58String(assetId))])
228 228                  else throw("Strict value is not equal to itself.")
229 229              }
230 230          else throw("Strict value is not equal to itself.")
231 231      }
232 232  
233 233  
234 234  @Verifier(tx)
235 235  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
236 236

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	94	else {
95	95	let sRate = fraction(lastCheckSRate, (fraction((fraction(getTotalSuppliedAmount(), Scale6, lastCheckSAmounut) - Scale6), (Scale8 - 5000000), Scale8) + Scale6), Scale6)
96	96	if ((Scale8 > sRate))
97	97	then lastCheckSRate
98	98	else sRate
99	99	}
100	100	}
101	101
102	102
103	103	func chargeFeeResult () = {
104	104	let currentPool = tryGetStr(this, "currentPool")
105	105	let fee = calcFee()
106	106	if ((currentPool == ""))
107	107	then throw(("Cannot find pool with id " + currentPool))
108	108	else {
109	109	let withdrawTx = withdrawFromPuzzlePool(currentPool, fee)
110	110	if ((withdrawTx == withdrawTx))
111	111	then {
112	112	let chargeTx = invoke(moneyBoxAddress, "deposit", nil, [AttachedPayment(fromBase58String(assetId), fee)])
113	113	if ((chargeTx == chargeTx))
114	114	then chargeTx
115	115	else throw("Strict value is not equal to itself.")
116	116	}
117	117	else throw("Strict value is not equal to itself.")
118	118	}
119	119	}
120	120
121	121
122	122	func recalcResult (stakedChange) = {
123	123	let stakedAmount = tryGetInt(this, "global_staked")
124	124	[IntegerEntry("global_staked", (stakedAmount + stakedChange)), IntegerEntry("global_lastCheckSRate", calculateSRate())]
125	125	}
126	126
127	127
128	128	func supplyResult (poolId) = if ((indexOf(puzzlePools, poolId) == unit))
129	129	then throw(("Unknown poolId " + poolId))
130	130	else {
131	131	let assetBytes = fromBase58String(assetId)
132	132	let balance = getBalance(assetBytes)
133	133	let inv = invoke(Address(fromBase58String(poolId)), "supply", nil, [AttachedPayment(assetBytes, balance)])
134	134	if ((inv == inv))
135	135	then [StringEntry("currentPool", poolId)]
136	136	else throw("Strict value is not equal to itself.")
137	137	}
138	138
139	139
140	140	func withdrawResult () = {
141	141	let currentPool = tryGetStr(this, "currentPool")
142	142	if ((currentPool == ""))
143	143	then throw(("Cannot find pool with id " + currentPool))
144	144	else {
145	145	let amount = getPuzzlePoolSuppliedAmount(currentPool)
146	146	let tx = withdrawFromPuzzlePool(currentPool, amount)
147	147	if ((tx == tx))
148	148	then tx
149	149	else throw("Strict value is not equal to itself.")
150	150	}
151	151	}
152	152
153	153
154	154	func stakeResult (user,amount) = {
155	155	let sAmount = fraction(amount, Scale8, calculateSRate())
156	156	(recalcResult(sAmount) ++ [IntegerEntry((user + "_staked"), (tryGetInt(this, (user + "_staked")) + sAmount))])
157	157	}
158	158
159	159
160	160	func unstakeResult (user,amount) = {
161	161	let sAmount = fraction(amount, Scale8, calculateSRate())
162	162	let userStaked = tryGetInt(this, (user + "_staked"))
163	163	let unstakeAmount = if ((sAmount > userStaked))
164	164	then userStaked
165	165	else sAmount
166	166	(recalcResult(-(unstakeAmount)) ++ [IntegerEntry((user + "_staked"), (userStaked - unstakeAmount))])
167	167	}
168	168
169	169
170	170	@Callable(i)
171	171	func init (poolId) = {
172	172	let currentPool = tryGetStr(this, "currentPool")
173	173	if ((indexOf(validators, toString(i.caller)) == unit))
174	174	then throw("Access denied")
175	175	else if ((currentPool == ""))
176	176	then [StringEntry("currentPool", poolId)]
177	177	else nil
178	178	}
179	179
180	180
181	181
182	182	@Callable(i)
183	183	func rebalance (poolId) = {
184	184	let currentPool = tryGetStr(this, "currentPool")
185	185	if ((indexOf(validators, toString(i.caller)) == unit))
186	186	then throw("Access denied")
187	187	else if ((currentPool == poolId))
188	188	then throw(("Already supplied to" + currentPool))
189	189	else {
190	190	let withdrawTx = withdrawResult()
191	191	if ((withdrawTx == withdrawTx))
192	192	then (supplyResult(poolId) ++ recalcResult(0))
193	193	else throw("Strict value is not equal to itself.")
194	194	}
195	195	}
196	196
197	197
198	198
199	199	@Callable(i)
200	200	func stake () = {
201	201	let user = toString(i.caller)
202	202	let amount = i.payments[0].amount
203	203	let currentPool = tryGetStr(this, "currentPool")
204	204	let chargeFeeTx = chargeFeeResult()
205	205	if ((chargeFeeTx == chargeFeeTx))
206	206	then if (if ((0 >= amount))
207	207	then true
208	208	else (i.payments[0].assetId != fromBase58String(assetId)))
209	209	then throw("invalid token attached")
210	210	else if ((currentPool == ""))
211	211	then throw("Pool not initialized")
212	212	else (stakeResult(user, amount) ++ supplyResult(currentPool))
213	213	else throw("Strict value is not equal to itself.")
214	214	}
215	215
216	216
217	217
218	218	@Callable(i)
219	219	func unstake (amount) = {
220	220	let user = toString(i.caller)
221	221	let currentPool = tryGetStr(this, "currentPool")
222	222	let chargeFeeTx = chargeFeeResult()
223	223	if ((chargeFeeTx == chargeFeeTx))
224	224	then {
225	225	let tx = withdrawFromPuzzlePool(currentPool, amount)
226	226	if ((tx == tx))
227	227	then (unstakeResult(user, amount) ++ [ScriptTransfer(i.caller, amount, fromBase58String(assetId))])
228	228	else throw("Strict value is not equal to itself.")
229	229	}
230	230	else throw("Strict value is not equal to itself.")
231	231	}
232	232
233	233
234	234	@Verifier(tx)
235	235	func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
236	236

github/deemru/w8io/169f3d6 
41.76 ms ◑