w8 · tx · 92n···r54

tx · 92njsk8b2LnSTSqJj4JDfqoy9E3XGKJhG94ZccpQmr54

3MwLW8P5yh5T2xML9QqFuVxkVkm9RXqnzXh:  -0.00900000 Waves

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

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

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

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

Old	New		Differences
109	109		let withdrawTx = withdrawFromPuzzlePool(currentPool, fee)
110	110		if ((withdrawTx == withdrawTx))
111	111		then {
112		-	let chargeTx = if ((fee > 0))
113		-	then invoke(moneyBoxAddress, "deposit", nil, [AttachedPayment(fromBase58String(assetId), fee)])
114		-	else ""
	112	+	let chargeTx = invoke(moneyBoxAddress, "deposit", nil, [AttachedPayment(fromBase58String(assetId), fee)])
115	113		if ((chargeTx == chargeTx))
116	114		then chargeTx
117	115		else throw("Strict value is not equal to itself.")

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

github/deemru/w8io/873ac7e 
46.37 ms ◑