w8 · tx · AV6···5Rc

tx · AV6LNnpCmZaQpp7FVdiCHf8cAJ2d9L7B2eDKPg6sF5Rc

3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh:  -0.00900000 Waves

2022.12.02 00:59 [2341836] smart account 3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AV6LNnpCmZaQpp7FVdiCHf8cAJ2d9L7B2eDKPg6sF5Rc",
    "fee": 900000,
    "feeAssetId": null,
    "timestamp": 1669932073964,
    "version": 2,
    "chainId": 84,
    "sender": "3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh",
    "senderPublicKey": "HscGVyJG5M3NMHWKfQbucCBsFLGPi8VmTxTAmcBbaWTa",
    "proofs": [
        "5TqM29awiQCoTqXwjvkpjN1kF8V57LUZ5orccwPuuaFj3RY1iuqgBMBGSVRVzd8mLHyrk6HGqHEQNjYB5qsqfVNn"
    ],
    "script": "base64:BgITCAISAwoBCBIDCgEIEgASAwoBARQABlNjYWxlNgDAhD0ABlNjYWxlOACAwtcvAAdTY2FsZTE2CQBoAgUGU2NhbGU4BQZTY2FsZTgACnZhbGlkYXRvcnMJAMwIAgIjM05BbXFHanhSQlJQb1JIWlVVcXZoaU5TNmF4bkdwaW5MSEMFA25pbAATcG9maXRBY2NvdW50QWRkcmVzcwkBB0FkZHJlc3MBARoBVOTLNQrXvZ0T4sLuN4IVu970uKp+JCCZjwAHYXNzZXRJZAIsSEhtYUZRcFVvYndLeHpqejRFQ2FCUHRvRjY5a3VqS3dVMmNvemFVelRzZ3YAC3B1enpsZVBvb2xzCQDMCAICIzNONlN0SmRnbVRmQVJzUk5uOVh0NXJEWUVzM3ByNEtHeTF2BQNuaWwBCmdldEJhbGFuY2UBB2Fzc2V0SWQEByRtYXRjaDAFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIEVW5pdAQBeAUHJG1hdGNoMAgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAPAHAgUEdGhpcwkBBXZhbHVlAQUHYXNzZXRJZAEJdHJ5R2V0SW50AgdhZGRyZXNzA2tleQQHJG1hdGNoMAkAmggCBQdhZGRyZXNzBQNrZXkDCQABAgUHJG1hdGNoMAIDSW50BAFiBQckbWF0Y2gwBQFiAAABCXRyeUdldFN0cgIHYWRkcmVzcwNrZXkEByRtYXRjaDAJAJ0IAgUHYWRkcmVzcwUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQBYgUHJG1hdGNoMAUBYgIAAQ5nZXRBc3NldFN0cmluZwEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFiBQckbWF0Y2gwCQDYBAEFAWICBVdBVkVTARtnZXRQdXp6bGVQb29sU3VwcGxpZWRBbW91bnQBBnBvb2xJZAQHYmFsYW5jZQkA8AcCCQEHQWRkcmVzcwEJANkEAQUGcG9vbElkCQDZBAEFB2Fzc2V0SWQFB2JhbGFuY2UBFmdldFRvdGFsU3VwcGxpZWRBbW91bnQABAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sAwkAAAIFC2N1cnJlbnRQb29sAgAJAAIBCQCsAgICGUNhbm5vdCBmaW5kIHBvb2wgd2l0aCBpZCAFC2N1cnJlbnRQb29sCQEbZ2V0UHV6emxlUG9vbFN1cHBsaWVkQW1vdW50AQULY3VycmVudFBvb2wBFndpdGhkcmF3RnJvbVB1enpsZVBvb2wCBnBvb2xJZAZhbW91bnQEC3Bvb2xBZGRyZXNzCQEHQWRkcmVzcwEJANkEAQUGcG9vbElkBAp3aXRoZHJhd1R4AwkAZgIFBmFtb3VudAAACQD8BwQFC3Bvb2xBZGRyZXNzAgh3aXRoZHJhdwkAzAgCBQdhc3NldElkCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwCAAMJAAACBQp3aXRoZHJhd1R4BQp3aXRoZHJhd1R4BQp3aXRoZHJhd1R4CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQ5jYWxjdWxhdGVTUmF0ZQAEDmxhc3RDaGVja1NSYXRlCQEJdHJ5R2V0SW50AgUEdGhpcwIVZ2xvYmFsX2xhc3RDaGVja1NSYXRlBAxzdGFrZWRBbW91bnQJAQl0cnlHZXRJbnQCBQR0aGlzAg1nbG9iYWxfc3Rha2VkBBFsYXN0Q2hlY2tTQW1vdW51dAkAawMFDHN0YWtlZEFtb3VudAUObGFzdENoZWNrU1JhdGUFBlNjYWxlOAQTdG90YWxTdXBwbGllZEFtb3VudAkBFmdldFRvdGFsU3VwcGxpZWRBbW91bnQAAwkAAAIFEWxhc3RDaGVja1NBbW91bnV0AAAFBlNjYWxlOAQDZmVlCQBrAwkAZQIFE3RvdGFsU3VwcGxpZWRBbW91bnQFEWxhc3RDaGVja1NBbW91bnV0AMCrpi0FBlNjYWxlOAQIZmVlQW1vbnQDCQBmAgUDZmVlAAAFA2ZlZQAABAVzUmF0ZQkAawMFDmxhc3RDaGVja1NSYXRlCQBlAgUTdG90YWxTdXBwbGllZEFtb3VudAUDZmVlBRFsYXN0Q2hlY2tTQW1vdW51dAMJAGYCBQZTY2FsZTgFBXNSYXRlBQZTY2FsZTgFBXNSYXRlAQxyZWNhbGNSZXN1bHQBDHN0YWtlZENoYW5nZQQMc3Rha2VkQW1vdW50CQEJdHJ5R2V0SW50AgUEdGhpcwINZ2xvYmFsX3N0YWtlZAQFc1JhdGUJAQ5jYWxjdWxhdGVTUmF0ZQAEBnByb2ZpdAkAZQIJARZnZXRUb3RhbFN1cHBsaWVkQW1vdW50AAkAawMFDHN0YWtlZEFtb3VudAUFc1JhdGUFBlNjYWxlOAQMcHJvZml0QW1vdW50AwkAZgIFBnByb2ZpdAAABQZwcm9maXQAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBRNwb2ZpdEFjY291bnRBZGRyZXNzBQxwcm9maXRBbW91bnQJANkEAQUHYXNzZXRJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgINZ2xvYmFsX3N0YWtlZAkAZAIFDHN0YWtlZEFtb3VudAUMc3Rha2VkQ2hhbmdlCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhVnbG9iYWxfbGFzdENoZWNrU1JhdGUFBXNSYXRlBQNuaWwBDHN1cHBseVJlc3VsdAEGcG9vbElkAwkAAAIJAM8IAgULcHV6emxlUG9vbHMFBnBvb2xJZAUEdW5pdAkAAgEJAKwCAgIPVW5rbm93biBwb29sSWQgBQZwb29sSWQECmFzc2V0Qnl0ZXMJANkEAQUHYXNzZXRJZAQHYmFsYW5jZQkBCmdldEJhbGFuY2UBBQphc3NldEJ5dGVzBANpbnYJAPwHBAkBB0FkZHJlc3MBCQDZBAEFBnBvb2xJZAIGc3VwcGx5BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCmFzc2V0Qnl0ZXMFB2JhbGFuY2UFA25pbAMJAAACBQNpbnYFA2ludgkAzAgCCQELU3RyaW5nRW50cnkCAgtjdXJyZW50UG9vbAUGcG9vbElkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BDndpdGhkcmF3UmVzdWx0AAQLY3VycmVudFBvb2wJAQl0cnlHZXRTdHICBQR0aGlzAgtjdXJyZW50UG9vbAMJAAACBQtjdXJyZW50UG9vbAIACQACAQkArAICAhlDYW5ub3QgZmluZCBwb29sIHdpdGggaWQgBQtjdXJyZW50UG9vbAQGYW1vdW50CQEbZ2V0UHV6emxlUG9vbFN1cHBsaWVkQW1vdW50AQULY3VycmVudFBvb2wEAnR4CQEWd2l0aGRyYXdGcm9tUHV6emxlUG9vbAIFC2N1cnJlbnRQb29sBQZhbW91bnQDCQAAAgUCdHgFAnR4BQJ0eAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgELc3Rha2VSZXN1bHQCBHVzZXIGYW1vdW50BAdzQW1vdW50CQBrAwUGYW1vdW50BQZTY2FsZTgJAQ5jYWxjdWxhdGVTUmF0ZQAJAM4IAgkBDHJlY2FsY1Jlc3VsdAEFB3NBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEdXNlcgIHX3N0YWtlZAkAZAIJAQl0cnlHZXRJbnQCBQR0aGlzCQCsAgIFBHVzZXICB19zdGFrZWQFB3NBbW91bnQFA25pbAENdW5zdGFrZVJlc3VsdAIEdXNlcgZhbW91bnQEB3NBbW91bnQJAGsDBQZhbW91bnQFBlNjYWxlOAkBDmNhbGN1bGF0ZVNSYXRlAAQKdXNlclN0YWtlZAkBCXRyeUdldEludAIFBHRoaXMJAKwCAgUEdXNlcgIHX3N0YWtlZAQNdW5zdGFrZUFtb3VudAMJAGYCBQdzQW1vdW50BQp1c2VyU3Rha2VkBQp1c2VyU3Rha2VkBQdzQW1vdW50CQDOCAIJAQxyZWNhbGNSZXN1bHQBCQEBLQEFDXVuc3Rha2VBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEdXNlcgIHX3N0YWtlZAkAZQIFCnVzZXJTdGFrZWQFDXVuc3Rha2VBbW91bnQFA25pbAQBaQEEaW5pdAEGcG9vbElkBAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sAwkAAAIJAM8IAgUKdmFsaWRhdG9ycwkApQgBCAUBaQZjYWxsZXIFBHVuaXQJAAIBAg1BY2Nlc3MgZGVuaWVkAwkAAAIFC2N1cnJlbnRQb29sAgAJAMwIAgkBC1N0cmluZ0VudHJ5AgILY3VycmVudFBvb2wFBnBvb2xJZAUDbmlsBQNuaWwBaQEJcmViYWxhbmNlAQZwb29sSWQEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wDCQAAAgkAzwgCBQp2YWxpZGF0b3JzCQClCAEIBQFpBmNhbGxlcgUEdW5pdAkAAgECDUFjY2VzcyBkZW5pZWQDCQAAAgULY3VycmVudFBvb2wFBnBvb2xJZAkAAgEJAKwCAgITQWxyZWFkeSBzdXBwbGllZCB0bwULY3VycmVudFBvb2wECndpdGhkcmF3VHgJAQ53aXRoZHJhd1Jlc3VsdAADCQAAAgUKd2l0aGRyYXdUeAUKd2l0aGRyYXdUeAkAzggCCQEMc3VwcGx5UmVzdWx0AQUGcG9vbElkCQEMcmVjYWxjUmVzdWx0AQAACQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBBXN0YWtlAAQEdXNlcgkApQgBCAUBaQZjYWxsZXIEBmFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wDAwkAZwIAAAUGYW1vdW50BgkBAiE9AggJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkCQDZBAEFB2Fzc2V0SWQJAAIBAhZpbnZhbGlkIHRva2VuIGF0dGFjaGVkAwkAAAIFC2N1cnJlbnRQb29sAgAJAAIBAhRQb29sIG5vdCBpbml0aWFsaXplZAkAzggCCQELc3Rha2VSZXN1bHQCBQR1c2VyBQZhbW91bnQJAQxzdXBwbHlSZXN1bHQBBQtjdXJyZW50UG9vbAFpAQd1bnN0YWtlAQZhbW91bnQEBHVzZXIJAKUIAQgFAWkGY2FsbGVyBAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sBAJ0eAkBFndpdGhkcmF3RnJvbVB1enpsZVBvb2wCBQtjdXJyZW50UG9vbAUGYW1vdW50AwkAAAIFAnR4BQJ0eAkAzggCCQENdW5zdGFrZVJlc3VsdAIFBHVzZXIFBmFtb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFBmFtb3VudAkA2QQBBQdhc3NldElkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5JLobvw==",
    "height": 2341836,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: ChtSv1AseKpKtu36yP5ZvmQnnUXbfv1EekzVwjGGh36e
Next: 2tuBm5WxkwdxSedtLSYaDjwMUe8RiEbZ8S8QgteitUg6

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

Old	New		Differences
8	8		let Scale16 = (Scale8 * Scale8)
9	9
10	10		let validators = ["3NAmqGjxRBRPoRHZUUqvhiNS6axnGpinLHC"]
	11	+
	12	+	let pofitAccountAddress = Address(base58'3NAmqGjxRBRPoRHZUUqvhiNS6axnGpinLHC')
11	13
12	14		let assetId = "HHmaFQpUobwKxzjz4ECaBPtoF69kujKwU2cozaUzTsgv"
13	15

74	76		let lastCheckSRate = tryGetInt(this, "global_lastCheckSRate")
75	77		let stakedAmount = tryGetInt(this, "global_staked")
76	78		let lastCheckSAmounut = fraction(stakedAmount, lastCheckSRate, Scale8)
	79	+	let totalSuppliedAmount = getTotalSuppliedAmount()
77	80		if ((lastCheckSAmounut == 0))
78	81		then Scale8
79	82		else {
80		-	let sRate = fraction(lastCheckSRate, getTotalSuppliedAmount(), lastCheckSAmounut)
	83	+	let fee = fraction((totalSuppliedAmount - lastCheckSAmounut), 95000000, Scale8)
	84	+	let feeAmont = if ((fee > 0))
	85	+	then fee
	86	+	else 0
	87	+	let sRate = fraction(lastCheckSRate, (totalSuppliedAmount - fee), lastCheckSAmounut)
81	88		if ((Scale8 > sRate))
82	89		then Scale8
83	90		else sRate

88	95		func recalcResult (stakedChange) = {
89	96		let stakedAmount = tryGetInt(this, "global_staked")
90	97		let sRate = calculateSRate()
91		-	[IntegerEntry("global_staked", (stakedAmount + stakedChange)), IntegerEntry("global_lastCheckSRate", sRate)]
	98	+	let profit = (getTotalSuppliedAmount() - fraction(stakedAmount, sRate, Scale8))
	99	+	let profitAmount = if ((profit > 0))
	100	+	then profit
	101	+	else 0
	102	+	[ScriptTransfer(pofitAccountAddress, profitAmount, fromBase58String(assetId)), IntegerEntry("global_staked", (stakedAmount + stakedChange)), IntegerEntry("global_lastCheckSRate", sRate)]
92	103		}
93	104
94	105

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

github/deemru/w8io/c3f4982 
122.00 ms ◑