w8 · tx · 2Pa···ViP

tx · 2Pa8hiUqrufveUKrha23ptc3P6dNKYA8DDyke6iHyViP

3MpMuGN8rW9EpPwzETAQz88Pe9TQhSwiriq:  -0.01000000 Waves

2023.07.18 17:14 [2671421] smart account 3MpMuGN8rW9EpPwzETAQz88Pe9TQhSwiriq > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2Pa8hiUqrufveUKrha23ptc3P6dNKYA8DDyke6iHyViP",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1689689654748,
    "version": 2,
    "chainId": 84,
    "sender": "3MpMuGN8rW9EpPwzETAQz88Pe9TQhSwiriq",
    "senderPublicKey": "57SkjQUEwC1ayCqLbXLuzBqifK6B6SR6rfxtGsbAo3zW",
    "proofs": [
        "3V7Hw58KpgEmBatQoWJGzzB65P6GSzBrFw8uazS1FJ6gUmvCWXX35xehysezRz11ExCfJWUTBNWWRWQFzk73fGyo"
    ],
    "script": "base64:BgIVCAISAwoBARIAEgMKAQESAwoBCBIAEwAMY29udHJhY3RGaWxlAhBtcnRfc3Rha2luZy5yaWRlAANTRVACAl9fAAZzY2FsZTgAgMLXLwEIdGhyb3dFcnIBA21zZwkAAgEJAKwCAgkArAICBQxjb250cmFjdEZpbGUCAjogBQNtc2cACmtleUFzc2V0SWQJALkJAgkAzAgCAgIlcwkAzAgCAgdhc3NldElkBQNuaWwFA1NFUAATa2V5RW1pc3Npb25QZXJCbG9jawkAuQkCCQDMCAICAiVzCQDMCAICEGVtaXNzaW9uUGVyQmxvY2sFA25pbAUDU0VQAA1rZXlTdGFydEJsb2NrCQC5CQIJAMwIAgICJXMJAMwIAgIKc3RhcnRCbG9jawUDbmlsBQNTRVAAEGtleVRvdGFsTHBBbW91bnQJALkJAgkAzAgCAgIlcwkAzAgCAg10b3RhbExwQW1vdW50BQNuaWwFA1NFUAATa2V5VG90YWxBc3NldEFtb3VudAkAuQkCCQDMCAICAiVzCQDMCAICEHRvdGFsQXNzZXRBbW91bnQFA25pbAUDU0VQAQ9rZXlVc2VyTHBBbW91bnQBC3VzZXJBZGRyZXNzCQC5CQIJAMwIAgIEJXMlcwkAzAgCAgx1c2VyTHBBbW91bnQJAMwIAgULdXNlckFkZHJlc3MFA25pbAUDU0VQARprZXlVc2VyVG90YWxBc3NldFdpdGhkcmF3bgELdXNlckFkZHJlc3MJALkJAgkAzAgCAgQlcyVzCQDMCAICE3RvdGFsQXNzZXRXaXRoZHJhd24JAMwIAgULdXNlckFkZHJlc3MFA25pbAUDU0VQARdrZXlVc2VyVG90YWxBc3NldFN0YWtlZAELdXNlckFkZHJlc3MJALkJAgkAzAgCAgQlcyVzCQDMCAICEHRvdGFsQXNzZXRTdGFrZWQJAMwIAgULdXNlckFkZHJlc3MFA25pbAUDU0VQAA10b3RhbExwQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFEGtleVRvdGFsTHBBbW91bnQAAAAQdG90YWxBc3NldEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBRNrZXlUb3RhbEFzc2V0QW1vdW50AAAADWFzc2V0SWRTdHJpbmcJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMFCmtleUFzc2V0SWQADGFzc2V0SWRCeXRlcwUEdW5pdAEPZ2V0VXNlckxwQW1vdW50AQt1c2VyQWRkcmVzcwkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQEPa2V5VXNlckxwQW1vdW50AQULdXNlckFkZHJlc3MAAAEPY2FsY1RvdGFsUHJvZml0AAQQZW1pc3Npb25QZXJCbG9jawkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBRNrZXlFbWlzc2lvblBlckJsb2NrAAAECnN0YXJ0QmxvY2sJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUNa2V5U3RhcnRCbG9jawAABA1lbGFwc2VkQmxvY2tzCQBlAgUGaGVpZ2h0BQpzdGFydEJsb2NrCQCWAwEJAMwIAgAACQDMCAIJAGgCBRBlbWlzc2lvblBlckJsb2NrBQ1lbGFwc2VkQmxvY2tzBQNuaWwBD2dldEN1cnJlbnRQcmljZQAEGnRvdGFsV2l0aFByb2ZpdEFzc2V0QW1vdW50CQBkAgUQdG90YWxBc3NldEFtb3VudAkBD2NhbGNUb3RhbFByb2ZpdAAEDGN1cnJlbnRQcmljZQMJAQIhPQIFDXRvdGFsTHBBbW91bnQAAAkAawMFGnRvdGFsV2l0aFByb2ZpdEFzc2V0QW1vdW50BQZzY2FsZTgFDXRvdGFsTHBBbW91bnQJAGgCAAEFBnNjYWxlOAUMY3VycmVudFByaWNlBQFpARNzZXRFbWlzc2lvblBlckJsb2NrARBlbWlzc2lvblBlckJsb2NrBBp0b3RhbFdpdGhQcm9maXRBc3NldEFtb3VudAkAZAIFEHRvdGFsQXNzZXRBbW91bnQJAQ9jYWxjVG90YWxQcm9maXQACQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNrZXlUb3RhbEFzc2V0QW1vdW50BRp0b3RhbFdpdGhQcm9maXRBc3NldEFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUNa2V5U3RhcnRCbG9jawUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNrZXlFbWlzc2lvblBlckJsb2NrCQCWAwEJAMwIAgAACQDMCAIFEGVtaXNzaW9uUGVyQmxvY2sFA25pbAUDbmlsAWkBBXN0YWtlAAQGY2hlY2tzCQDMCAIDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABBgkBCHRocm93RXJyAQIYc2hvdWxkIGluY2x1ZGUgMSBwYXltZW50CQDMCAIDCQAAAggJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQxhc3NldElkQnl0ZXMGCQEIdGhyb3dFcnIBCQCsAgICFXBheW1lbnQgc2hvdWxkIGJlIGluIAUNYXNzZXRJZFN0cmluZwkAzAgCAwkAZgIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50AAAGAidwYXltZW50IGFtb3VudCBzaG91bGQgYmUgZ3JlYXRlciB0aGFuIDAFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQNcGF5bWVudEFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQED3BheW1lbnRMcEFtb3VudAkAawMFDXBheW1lbnRBbW91bnQFBnNjYWxlOAkBD2dldEN1cnJlbnRQcmljZQAEC3VzZXJBZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQMdXNlckxwQW1vdW50CQEPZ2V0VXNlckxwQW1vdW50AQULdXNlckFkZHJlc3MEF3VzZXJUb3RhbEludmVzdGVkQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJARdrZXlVc2VyVG90YWxBc3NldFN0YWtlZAEFC3VzZXJBZGRyZXNzAAAEEG5ld1RvdGFsTHBBbW91bnQJAGQCBQ10b3RhbExwQW1vdW50BQ9wYXltZW50THBBbW91bnQEE25ld1RvdGFsQXNzZXRBbW91bnQJAGQCBRB0b3RhbEFzc2V0QW1vdW50BQ1wYXltZW50QW1vdW50BA9uZXdVc2VyTHBBbW91bnQJAGQCBQx1c2VyTHBBbW91bnQFD3BheW1lbnRMcEFtb3VudAQabmV3VXNlclRvdGFsSW52ZXN0ZWRBbW91bnQJAGQCBRd1c2VyVG90YWxJbnZlc3RlZEFtb3VudAUNcGF5bWVudEFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUQa2V5VG90YWxMcEFtb3VudAUTbmV3VG90YWxBc3NldEFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUTa2V5VG90YWxBc3NldEFtb3VudAUTbmV3VG90YWxBc3NldEFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBD2tleVVzZXJMcEFtb3VudAEFC3VzZXJBZGRyZXNzBQ9uZXdVc2VyTHBBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJARdrZXlVc2VyVG90YWxBc3NldFN0YWtlZAEFC3VzZXJBZGRyZXNzBRpuZXdVc2VyVG90YWxJbnZlc3RlZEFtb3VudAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCHdpdGhkcmF3ARVscEFzc2V0V2l0aGRyYXdBbW91bnQEC3VzZXJBZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQMdXNlckxwQW1vdW50CQEPZ2V0VXNlckxwQW1vdW50AQULdXNlckFkZHJlc3MEBWNoZWNrCQDMCAIDCQBmAgUMdXNlckxwQW1vdW50BRVscEFzc2V0V2l0aGRyYXdBbW91bnQGCQEIdGhyb3dFcnIBCQCsAgIJAKwCAgIlY2Fubm90IHdpdGhkcmF3IG1vcmUgdGhhbiBhdmFpbGFibGUgKAkApAMBBQx1c2VyTHBBbW91bnQCASkFA25pbAMJAAACBQVjaGVjawUFY2hlY2sED25ld1VzZXJMcEFtb3VudAkAZQIFDHVzZXJMcEFtb3VudAUVbHBBc3NldFdpdGhkcmF3QW1vdW50BBN3aXRoZHJhd0Fzc2V0QW1vdW50CQBrAwUVbHBBc3NldFdpdGhkcmF3QW1vdW50CQEPZ2V0Q3VycmVudFByaWNlAAUGc2NhbGU4BBBuZXdUb3RhbExwQW1vdW50CQBlAgUNdG90YWxMcEFtb3VudAUVbHBBc3NldFdpdGhkcmF3QW1vdW50BBNuZXdUb3RhbEFzc2V0QW1vdW50CQBrAwUQbmV3VG90YWxMcEFtb3VudAkBD2dldEN1cnJlbnRQcmljZQAFBnNjYWxlOAQXdXNlclRvdGFsQXNzZXRXaXRoZHJhd24JAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkBGmtleVVzZXJUb3RhbEFzc2V0V2l0aGRyYXduAQULdXNlckFkZHJlc3MAAAQabmV3VXNlclRvdGFsQXNzZXRXaXRoZHJhd24JAGQCBRd1c2VyVG90YWxBc3NldFdpdGhkcmF3bgUTd2l0aGRyYXdBc3NldEFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUQa2V5VG90YWxMcEFtb3VudAUQbmV3VG90YWxMcEFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUTa2V5VG90YWxBc3NldEFtb3VudAUTbmV3VG90YWxBc3NldEFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBD2tleVVzZXJMcEFtb3VudAEFC3VzZXJBZGRyZXNzBQ9uZXdVc2VyTHBBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJARprZXlVc2VyVG90YWxBc3NldFdpdGhkcmF3bgEFC3VzZXJBZGRyZXNzBRpuZXdVc2VyVG90YWxBc3NldFdpdGhkcmF3bgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFE3dpdGhkcmF3QXNzZXRBbW91bnQFDGFzc2V0SWRCeXRlcwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBHmdldEF2YWlsYWJsZVRvV2l0aGRyYXdSRUFET05MWQELdXNlckFkZHJlc3MEDHVzZXJMcEFtb3VudAkBD2dldFVzZXJMcEFtb3VudAEFC3VzZXJBZGRyZXNzBBx1c2VyQXZhaWxhYmxlQXNzZXRUb1dpdGhkcmF3CQBrAwUMdXNlckxwQW1vdW50CQEPZ2V0Q3VycmVudFByaWNlAAUGc2NhbGU4CQCUCgIFA25pbAUcdXNlckF2YWlsYWJsZUFzc2V0VG9XaXRoZHJhdwFpARZnZXRUb3RhbEFzc2V0c1JFQURPTkxZAAQadG90YWxXaXRoUHJvZml0QXNzZXRBbW91bnQJAGQCBRB0b3RhbEFzc2V0QW1vdW50CQEPY2FsY1RvdGFsUHJvZml0AAkAlAoCBQNuaWwJAJQKAgUNdG90YWxMcEFtb3VudAUadG90YWxXaXRoUHJvZml0QXNzZXRBbW91bnQAR/9PRA==",
    "height": 2671421,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GTzu2PnjbnZRRh2y2PouaX8c58CzRgXEpXS4Q8Rrt3UP
Next: D2ajwaveFfBCLdRhfgmJMvLWZy5BK17zMjL4o57ggeMD

Diff: 
Old New Differences
71 71          then true
72 72          else throwErr("should include 1 payment"), if ((i.payments[0].assetId == assetIdBytes))
73 73          then true
74 -         else throwErr(makeString(["payment should be in ", assetIdString], " ")), if ((i.payments[0].amount > 0))
74 +         else throwErr(("payment should be in " + assetIdString)), if ((i.payments[0].amount > 0))
75 75          then true
76 76          else "payment amount should be greater than 0"]
77 77      if ((checks == checks))
98 98      let userLpAmount = getUserLpAmount(userAddress)
99 99      let check = [if ((userLpAmount > lpAssetWithdrawAmount))
100 100          then true
101 -         else (("cannot withdraw more than available (" + toString(userLpAmount)) + throwErr(")"))]
101 +         else throwErr((("cannot withdraw more than available (" + toString(userLpAmount)) + ")"))]
102 102      if ((check == check))
103 103          then {
104 104              let newUserLpAmount = (userLpAmount - lpAssetWithdrawAmount)
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let contractFile = "mrt_staking.ride"
5 5  
6 6  let SEP = "__"
7 7  
8 8  let scale8 = 100000000
9 9  
10 10  func throwErr (msg) = throw(((contractFile + ": ") + msg))
11 11  
12 12  
13 13  let keyAssetId = makeString(["%s", "assetId"], SEP)
14 14  
15 15  let keyEmissionPerBlock = makeString(["%s", "emissionPerBlock"], SEP)
16 16  
17 17  let keyStartBlock = makeString(["%s", "startBlock"], SEP)
18 18  
19 19  let keyTotalLpAmount = makeString(["%s", "totalLpAmount"], SEP)
20 20  
21 21  let keyTotalAssetAmount = makeString(["%s", "totalAssetAmount"], SEP)
22 22  
23 23  func keyUserLpAmount (userAddress) = makeString(["%s%s", "userLpAmount", userAddress], SEP)
24 24  
25 25  
26 26  func keyUserTotalAssetWithdrawn (userAddress) = makeString(["%s%s", "totalAssetWithdrawn", userAddress], SEP)
27 27  
28 28  
29 29  func keyUserTotalAssetStaked (userAddress) = makeString(["%s%s", "totalAssetStaked", userAddress], SEP)
30 30  
31 31  
32 32  let totalLpAmount = valueOrElse(getInteger(this, keyTotalLpAmount), 0)
33 33  
34 34  let totalAssetAmount = valueOrElse(getInteger(this, keyTotalAssetAmount), 0)
35 35  
36 36  let assetIdString = getStringValue(this, keyAssetId)
37 37  
38 38  let assetIdBytes = unit
39 39  
40 40  func getUserLpAmount (userAddress) = valueOrElse(getInteger(this, keyUserLpAmount(userAddress)), 0)
41 41  
42 42  
43 43  func calcTotalProfit () = {
44 44      let emissionPerBlock = valueOrElse(getInteger(this, keyEmissionPerBlock), 0)
45 45      let startBlock = valueOrElse(getInteger(this, keyStartBlock), 0)
46 46      let elapsedBlocks = (height - startBlock)
47 47      max([0, (emissionPerBlock * elapsedBlocks)])
48 48      }
49 49  
50 50  
51 51  func getCurrentPrice () = {
52 52      let totalWithProfitAssetAmount = (totalAssetAmount + calcTotalProfit())
53 53      let currentPrice = if ((totalLpAmount != 0))
54 54          then fraction(totalWithProfitAssetAmount, scale8, totalLpAmount)
55 55          else (1 * scale8)
56 56      currentPrice
57 57      }
58 58  
59 59  
60 60  @Callable(i)
61 61  func setEmissionPerBlock (emissionPerBlock) = {
62 62      let totalWithProfitAssetAmount = (totalAssetAmount + calcTotalProfit())
63 63  [IntegerEntry(keyTotalAssetAmount, totalWithProfitAssetAmount), IntegerEntry(keyStartBlock, height), IntegerEntry(keyEmissionPerBlock, max([0, emissionPerBlock]))]
64 64      }
65 65  
66 66  
67 67  
68 68  @Callable(i)
69 69  func stake () = {
70 70      let checks = [if ((size(i.payments) == 1))
71 71          then true
72 72          else throwErr("should include 1 payment"), if ((i.payments[0].assetId == assetIdBytes))
73 73          then true
74 -         else throwErr(makeString(["payment should be in ", assetIdString], " ")), if ((i.payments[0].amount > 0))
74 +         else throwErr(("payment should be in " + assetIdString)), if ((i.payments[0].amount > 0))
75 75          then true
76 76          else "payment amount should be greater than 0"]
77 77      if ((checks == checks))
78 78          then {
79 79              let paymentAmount = i.payments[0].amount
80 80              let paymentLpAmount = fraction(paymentAmount, scale8, getCurrentPrice())
81 81              let userAddress = toString(i.caller)
82 82              let userLpAmount = getUserLpAmount(userAddress)
83 83              let userTotalInvestedAmount = valueOrElse(getInteger(this, keyUserTotalAssetStaked(userAddress)), 0)
84 84              let newTotalLpAmount = (totalLpAmount + paymentLpAmount)
85 85              let newTotalAssetAmount = (totalAssetAmount + paymentAmount)
86 86              let newUserLpAmount = (userLpAmount + paymentLpAmount)
87 87              let newUserTotalInvestedAmount = (userTotalInvestedAmount + paymentAmount)
88 88  [IntegerEntry(keyTotalLpAmount, newTotalAssetAmount), IntegerEntry(keyTotalAssetAmount, newTotalAssetAmount), IntegerEntry(keyUserLpAmount(userAddress), newUserLpAmount), IntegerEntry(keyUserTotalAssetStaked(userAddress), newUserTotalInvestedAmount)]
89 89              }
90 90          else throw("Strict value is not equal to itself.")
91 91      }
92 92  
93 93  
94 94  
95 95  @Callable(i)
96 96  func withdraw (lpAssetWithdrawAmount) = {
97 97      let userAddress = toString(i.caller)
98 98      let userLpAmount = getUserLpAmount(userAddress)
99 99      let check = [if ((userLpAmount > lpAssetWithdrawAmount))
100 100          then true
101 -         else (("cannot withdraw more than available (" + toString(userLpAmount)) + throwErr(")"))]
101 +         else throwErr((("cannot withdraw more than available (" + toString(userLpAmount)) + ")"))]
102 102      if ((check == check))
103 103          then {
104 104              let newUserLpAmount = (userLpAmount - lpAssetWithdrawAmount)
105 105              let withdrawAssetAmount = fraction(lpAssetWithdrawAmount, getCurrentPrice(), scale8)
106 106              let newTotalLpAmount = (totalLpAmount - lpAssetWithdrawAmount)
107 107              let newTotalAssetAmount = fraction(newTotalLpAmount, getCurrentPrice(), scale8)
108 108              let userTotalAssetWithdrawn = valueOrElse(getInteger(this, keyUserTotalAssetWithdrawn(userAddress)), 0)
109 109              let newUserTotalAssetWithdrawn = (userTotalAssetWithdrawn + withdrawAssetAmount)
110 110  [IntegerEntry(keyTotalLpAmount, newTotalLpAmount), IntegerEntry(keyTotalAssetAmount, newTotalAssetAmount), IntegerEntry(keyUserLpAmount(userAddress), newUserLpAmount), IntegerEntry(keyUserTotalAssetWithdrawn(userAddress), newUserTotalAssetWithdrawn), ScriptTransfer(i.caller, withdrawAssetAmount, assetIdBytes)]
111 111              }
112 112          else throw("Strict value is not equal to itself.")
113 113      }
114 114  
115 115  
116 116  
117 117  @Callable(i)
118 118  func getAvailableToWithdrawREADONLY (userAddress) = {
119 119      let userLpAmount = getUserLpAmount(userAddress)
120 120      let userAvailableAssetToWithdraw = fraction(userLpAmount, getCurrentPrice(), scale8)
121 121      $Tuple2(nil, userAvailableAssetToWithdraw)
122 122      }
123 123  
124 124  
125 125  
126 126  @Callable(i)
127 127  func getTotalAssetsREADONLY () = {
128 128      let totalWithProfitAssetAmount = (totalAssetAmount + calcTotalProfit())
129 129      $Tuple2(nil, $Tuple2(totalLpAmount, totalWithProfitAssetAmount))
130 130      }
131 131  
132 132

Old	New		Differences
71	71		then true
72	72		else throwErr("should include 1 payment"), if ((i.payments[0].assetId == assetIdBytes))
73	73		then true
74		-	else throwErr(~~makeString~~(["payment should be in ", assetIdString~~], " "~~)), if ((i.payments[0].amount > 0))
	74	+	else throwErr(("payment should be in " + assetIdString)), if ((i.payments[0].amount > 0))
75	75		then true
76	76		else "payment amount should be greater than 0"]
77	77		if ((checks == checks))

98	98		let userLpAmount = getUserLpAmount(userAddress)
99	99		let check = [if ((userLpAmount > lpAssetWithdrawAmount))
100	100		then true
101		-	else (("cannot withdraw more than available (" + toString(userLpAmount)) + ~~throwErr(~~")"))]
	101	+	else throwErr((("cannot withdraw more than available (" + toString(userLpAmount)) + ")"))]
102	102		if ((check == check))
103	103		then {
104	104		let newUserLpAmount = (userLpAmount - lpAssetWithdrawAmount)

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let contractFile = "mrt_staking.ride"
5	5
6	6		let SEP = "__"
7	7
8	8		let scale8 = 100000000
9	9
10	10		func throwErr (msg) = throw(((contractFile + ": ") + msg))
11	11
12	12
13	13		let keyAssetId = makeString(["%s", "assetId"], SEP)
14	14
15	15		let keyEmissionPerBlock = makeString(["%s", "emissionPerBlock"], SEP)
16	16
17	17		let keyStartBlock = makeString(["%s", "startBlock"], SEP)
18	18
19	19		let keyTotalLpAmount = makeString(["%s", "totalLpAmount"], SEP)
20	20
21	21		let keyTotalAssetAmount = makeString(["%s", "totalAssetAmount"], SEP)
22	22
23	23		func keyUserLpAmount (userAddress) = makeString(["%s%s", "userLpAmount", userAddress], SEP)
24	24
25	25
26	26		func keyUserTotalAssetWithdrawn (userAddress) = makeString(["%s%s", "totalAssetWithdrawn", userAddress], SEP)
27	27
28	28
29	29		func keyUserTotalAssetStaked (userAddress) = makeString(["%s%s", "totalAssetStaked", userAddress], SEP)
30	30
31	31
32	32		let totalLpAmount = valueOrElse(getInteger(this, keyTotalLpAmount), 0)
33	33
34	34		let totalAssetAmount = valueOrElse(getInteger(this, keyTotalAssetAmount), 0)
35	35
36	36		let assetIdString = getStringValue(this, keyAssetId)
37	37
38	38		let assetIdBytes = unit
39	39
40	40		func getUserLpAmount (userAddress) = valueOrElse(getInteger(this, keyUserLpAmount(userAddress)), 0)
41	41
42	42
43	43		func calcTotalProfit () = {
44	44		let emissionPerBlock = valueOrElse(getInteger(this, keyEmissionPerBlock), 0)
45	45		let startBlock = valueOrElse(getInteger(this, keyStartBlock), 0)
46	46		let elapsedBlocks = (height - startBlock)
47	47		max([0, (emissionPerBlock * elapsedBlocks)])
48	48		}
49	49
50	50
51	51		func getCurrentPrice () = {
52	52		let totalWithProfitAssetAmount = (totalAssetAmount + calcTotalProfit())
53	53		let currentPrice = if ((totalLpAmount != 0))
54	54		then fraction(totalWithProfitAssetAmount, scale8, totalLpAmount)
55	55		else (1 * scale8)
56	56		currentPrice
57	57		}
58	58
59	59
60	60		@Callable(i)
61	61		func setEmissionPerBlock (emissionPerBlock) = {
62	62		let totalWithProfitAssetAmount = (totalAssetAmount + calcTotalProfit())
63	63		[IntegerEntry(keyTotalAssetAmount, totalWithProfitAssetAmount), IntegerEntry(keyStartBlock, height), IntegerEntry(keyEmissionPerBlock, max([0, emissionPerBlock]))]
64	64		}
65	65
66	66
67	67
68	68		@Callable(i)
69	69		func stake () = {
70	70		let checks = [if ((size(i.payments) == 1))
71	71		then true
72	72		else throwErr("should include 1 payment"), if ((i.payments[0].assetId == assetIdBytes))
73	73		then true
74		-	else throwErr(~~makeString~~(["payment should be in ", assetIdString~~], " "~~)), if ((i.payments[0].amount > 0))
	74	+	else throwErr(("payment should be in " + assetIdString)), if ((i.payments[0].amount > 0))
75	75		then true
76	76		else "payment amount should be greater than 0"]
77	77		if ((checks == checks))
78	78		then {
79	79		let paymentAmount = i.payments[0].amount
80	80		let paymentLpAmount = fraction(paymentAmount, scale8, getCurrentPrice())
81	81		let userAddress = toString(i.caller)
82	82		let userLpAmount = getUserLpAmount(userAddress)
83	83		let userTotalInvestedAmount = valueOrElse(getInteger(this, keyUserTotalAssetStaked(userAddress)), 0)
84	84		let newTotalLpAmount = (totalLpAmount + paymentLpAmount)
85	85		let newTotalAssetAmount = (totalAssetAmount + paymentAmount)
86	86		let newUserLpAmount = (userLpAmount + paymentLpAmount)
87	87		let newUserTotalInvestedAmount = (userTotalInvestedAmount + paymentAmount)
88	88		[IntegerEntry(keyTotalLpAmount, newTotalAssetAmount), IntegerEntry(keyTotalAssetAmount, newTotalAssetAmount), IntegerEntry(keyUserLpAmount(userAddress), newUserLpAmount), IntegerEntry(keyUserTotalAssetStaked(userAddress), newUserTotalInvestedAmount)]
89	89		}
90	90		else throw("Strict value is not equal to itself.")
91	91		}
92	92
93	93
94	94
95	95		@Callable(i)
96	96		func withdraw (lpAssetWithdrawAmount) = {
97	97		let userAddress = toString(i.caller)
98	98		let userLpAmount = getUserLpAmount(userAddress)
99	99		let check = [if ((userLpAmount > lpAssetWithdrawAmount))
100	100		then true
101		-	else (("cannot withdraw more than available (" + toString(userLpAmount)) + ~~throwErr(~~")"))]
	101	+	else throwErr((("cannot withdraw more than available (" + toString(userLpAmount)) + ")"))]
102	102		if ((check == check))
103	103		then {
104	104		let newUserLpAmount = (userLpAmount - lpAssetWithdrawAmount)
105	105		let withdrawAssetAmount = fraction(lpAssetWithdrawAmount, getCurrentPrice(), scale8)
106	106		let newTotalLpAmount = (totalLpAmount - lpAssetWithdrawAmount)
107	107		let newTotalAssetAmount = fraction(newTotalLpAmount, getCurrentPrice(), scale8)
108	108		let userTotalAssetWithdrawn = valueOrElse(getInteger(this, keyUserTotalAssetWithdrawn(userAddress)), 0)
109	109		let newUserTotalAssetWithdrawn = (userTotalAssetWithdrawn + withdrawAssetAmount)
110	110		[IntegerEntry(keyTotalLpAmount, newTotalLpAmount), IntegerEntry(keyTotalAssetAmount, newTotalAssetAmount), IntegerEntry(keyUserLpAmount(userAddress), newUserLpAmount), IntegerEntry(keyUserTotalAssetWithdrawn(userAddress), newUserTotalAssetWithdrawn), ScriptTransfer(i.caller, withdrawAssetAmount, assetIdBytes)]
111	111		}
112	112		else throw("Strict value is not equal to itself.")
113	113		}
114	114
115	115
116	116
117	117		@Callable(i)
118	118		func getAvailableToWithdrawREADONLY (userAddress) = {
119	119		let userLpAmount = getUserLpAmount(userAddress)
120	120		let userAvailableAssetToWithdraw = fraction(userLpAmount, getCurrentPrice(), scale8)
121	121		$Tuple2(nil, userAvailableAssetToWithdraw)
122	122		}
123	123
124	124
125	125
126	126		@Callable(i)
127	127		func getTotalAssetsREADONLY () = {
128	128		let totalWithProfitAssetAmount = (totalAssetAmount + calcTotalProfit())
129	129		$Tuple2(nil, $Tuple2(totalLpAmount, totalWithProfitAssetAmount))
130	130		}
131	131
132	132

github/deemru/w8io/026f985 
32.43 ms ◑