w8 · tx · 6ku···k3t

tx · 6kuCf4BmKZyXGAx89MmcCG8oz9WjtmeA5ikvtYmWDk3t

3PBjiMHNTqqcee1phQhv6GhHWc1XsANJ252:  -0.01000000 Waves

2022.02.03 18:58 [2972688] smart account 3PBjiMHNTqqcee1phQhv6GhHWc1XsANJ252 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6kuCf4BmKZyXGAx89MmcCG8oz9WjtmeA5ikvtYmWDk3t",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1643903942985,
    "version": 2,
    "chainId": 87,
    "sender": "3PBjiMHNTqqcee1phQhv6GhHWc1XsANJ252",
    "senderPublicKey": "DjufKSRYP67Xvuo8LEJjBvP3PypYgJJPHCxKvoHgQJWc",
    "proofs": [
        "5RYWaTmWv5wEzaU4F6YanJdQhzU6W7x55Ujc442zxBxALtcoxcnh2qPyT3TEd7Xdch3uBYFTYUGBz9rSmUEDdatF"
    ],
    "script": "base64:AAIFAAAAAAAABL0IAhIAEgQKAgEEEgMKAQQSAwoBCBIAGhEKAUESDHNldENGQWRkcmVzcxoUCgFCEg9nZXRTaGFyZUFzc2V0SWQaEgoBQxINdHJ5R2V0SW50ZWdlchoICgFEEgNrZXkaEQoBRRIMdHJ5R2V0U3RyaW5nGgYKAUYSAWEaFwoBRxISY2xhaW1TdGFraW5nUmVzdWx0GhQKAUgSD2N1cnJlbnRJbnRlcmVzdBoWCgFJEhFsYXN0Q2hlY2tJbnRlcmVzdBoRCgFKEgxzdGFrZWRBbW91bnQaCwoBSxIGcmV3YXJkGhgKAUwSE2hhbmRsZUNvbXBvdW5kVG9wVXAaCwoBTRIGYW1vdW50GgsKAU4SBnN0YWtlZBoHCgFPEgJ2cBoXCgFQEhJoYW5kbGVTdGFraW5nVG9wVXAaFgoBURIRdG90YWxTdGFrZWRBbW91bnQaEgoBUhINaW50ZXJlc3REZWx0YRoGCgFTEgFpGhIKAVQSDXRvdGFsQ29tcG91bmQaEAoBVRILdG90YWxMb2NrZWQaDwoBVhIKZWdnQXNzZXRJZBoRCgFXEgxzaGFyZVRva2VuSWQaFQoBWBIQcmVzSGFuZGxlU3Rha2luZxoWCgFZEhFyZXNIYW5kbGVDb21wb3VuZBoNCgFaEghjb21wb3VuZBoQCgFhEgtrZXlNQWNjUEtleRoYCgJhYRISa2V5U3Rha2VkQ29tcG91bmRVGhQKAmFiEg5wZXJzb25hbFN0YWtlZBoPCgJhYxIJdmlydHVhbFdkGg4KAmFkEghhbW91bnRXZBoQCgJhZRIKYWRkcmVzc1N0choOCgJhZhIId2RBbW91bnQaDgoCYWcSCGlzTG9ja2VkGhMKAmFoEg1hbHJlYWR5U3Rha2VkGhQKAmFpEg5yYXdTdGFrZUFtb3VudBoWCgJhahIQZXhhY3RTdGFrZUFtb3VudBoTCgJhaxINc3RvcmVJbnRlcmVzdBoRCgFiEgxnZXRDRkFkZHJlc3MaDQoBYxIIbUFjY1BLZXkaDQoBZBIIbUFjY0FkZHIaFQoBZRIQa2V5VG90YWxDb21wb3VuZBoWCgFmEhFrZXlTdGFrZWRDb21wb3VuZBoOCgFnEglrZXlMYXN0VlAaDAoBaBIHVlBTY2FsZRoaCgFpEhVrZXlTdGFrZWRDb21wb3VuZFVzZXIaCQoBahIEdXNlchoVCgFrEhBjYWxjVmlydHVhbFByaWNlGhAKAWwSC3RvdGFsU3Rha2VkGgoKAW0SBXRvdGFsGgoKAW4SBVNjYWxlGhQKAW8SD2tleVN0YWtlZEFtb3VudBoMCgFwEgdhZGRyZXNzGhkKAXESFGtleUxhc3RDaGVja0ludGVyZXN0GhIKAXISDWtleUVnZ0NsYWltZWQaGgoBcxIVa2V5R2xvYmFsTGFzdEludGVyZXN0GhQKAXQSD2tleUdsb2JhbFN0YWtlZBoXCgF1EhJrZXlHbG9iYWxFZ2dFYXJuZWQaFwoBdhISa0xvY2tlZEludmVzdG1lbnRzGhsKAXcSFmlzQ29sbGVjdGl2ZUZhcm1Mb2NrZWQaDAoBeBIHJG1hdGNoMBoGCgF5EgFiGg0KAXoSCGdldEVnZ0lkAAAAGwAAAAABYQIAAAAJbWFzdGVyX3BrAQAAAAFiAAAAAAkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQkBAAAAEUBleHRyTmF0aXZlKDEwNTMpAAAAAgUAAAAEdGhpcwIAAAAKQ0ZfQUREUkVTUwAAAAABYwkAAlkAAAABCQEAAAARQGV4dHJOYXRpdmUoMTA1MykAAAACCQEAAAABYgAAAAAFAAAAAWEAAAAAAWQJAQAAABRhZGRyZXNzRnJvbVB1YmxpY0tleQAAAAEFAAAAAWMAAAAAAWUCAAAADnRvdGFsX2NvbXBvdW5kAAAAAAFmAgAAAA9zdGFrZWRfY29tcG91bmQAAAAAAWcCAAAAEmxhc3RfdmlydHVhbF9wcmljZQAAAAABaAAAAAAABfXhAAEAAAABaQAAAAEAAAABagkAASwAAAACCQABLAAAAAIJAAQlAAAAAQUAAAABagIAAAABXwUAAAABZgEAAAABawAAAAIAAAABbAAAAAFtAwkAAAAAAAACBQAAAAFtAAAAAAAAAAAAAAAAAAAAAAABAwkAAAAAAAACBQAAAAFsAAAAAAAAAAAAAAAAAAAAAAABCQAAawAAAAMFAAAAAW0FAAAAAWgFAAAAAWwAAAAAAW4AAAAAAAX14QABAAAAAW8AAAABAAAAAXAJAAEsAAAAAgkABCUAAAABBQAAAAFwAgAAAAxfZmFybV9zdGFrZWQBAAAAAXEAAAABAAAAAXAJAAEsAAAAAgkABCUAAAABBQAAAAFwAgAAABNfbGFzdENoZWNrX2ludGVyZXN0AQAAAAFyAAAAAQAAAAFwCQABLAAAAAIJAAQlAAAAAQUAAAABcAIAAAAIX2NsYWltZWQAAAAAAXMCAAAAGWdsb2JhbF9sYXN0Q2hlY2tfaW50ZXJlc3QAAAAAAXQCAAAADWdsb2JhbF9zdGFrZWQAAAAAAXUCAAAAD2dsb2JhbF9lYXJuaW5ncwAAAAABdgIAAAASbG9ja2VkX2ludmVzdG1lbnRzAQAAAAF3AAAAAAQAAAABeAkABBsAAAACCQEAAAABYgAAAAAFAAAAAXYDCQAAAQAAAAIFAAAAAXgCAAAAB0Jvb2xlYW4EAAAAAXkFAAAAAXgFAAAAAXkHAQAAAAF6AAAAAAkAAlkAAAABCQEAAAARQGV4dHJOYXRpdmUoMTA1MykAAAACBQAAAAFkAgAAAAxFR0dfQVNTRVRfSUQBAAAAAUEAAAABAAAAAXAJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAAKQ0ZfQUREUkVTUwUAAAABcAUAAAADbmlsAQAAAAFCAAAAAAkAAlkAAAABCQEAAAARQGV4dHJOYXRpdmUoMTA1MykAAAACCQEAAAABYgAAAAACAAAADlNIQVJFX0FTU0VUX0lEAQAAAAFDAAAAAQAAAAFEBAAAAAF4CQAEGgAAAAIFAAAABHRoaXMFAAAAAUQDCQAAAQAAAAIFAAAAAXgCAAAAA0ludAQAAAABeQUAAAABeAUAAAABeQAAAAAAAAAAAAEAAAABRQAAAAEAAAABRAQAAAABeAkABB0AAAACBQAAAAR0aGlzBQAAAAFEAwkAAAEAAAACBQAAAAF4AgAAAAZTdHJpbmcEAAAAAUYFAAAAAXgFAAAAAUYCAAAAAAEAAAABRwAAAAEAAAABcAQAAAABSAkBAAAAAUMAAAABBQAAAAFzBAAAAAFJCQEAAAABQwAAAAEJAQAAAAFxAAAAAQUAAAABcAQAAAABSgkBAAAAAUMAAAABCQEAAAABbwAAAAEFAAAAAXAEAAAAAUsDCQAAZgAAAAIFAAAAAUkAAAAAAAAAAAAJAABrAAAAAwkAAGUAAAACBQAAAAFIBQAAAAFJBQAAAAFKBQAAAAFuAAAAAAAAAAAACQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAABcQAAAAEFAAAAAXAFAAAAAUgJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAAFyAAAAAQUAAAABcAkAAGQAAAACCQEAAAABQwAAAAEJAQAAAAFyAAAAAQUAAAABcAUAAAABSwkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAFwBQAAAAFLCQEAAAABegAAAAAFAAAAA25pbAEAAAABTAAAAAEAAAABTQQAAAABbQkAAGQAAAACCQEAAAABQwAAAAEFAAAAAWUFAAAAAU0EAAAAAU4JAQAAAAFDAAAAAQUAAAABZgQAAAABTwkBAAAAAWsAAAACBQAAAAFOBQAAAAFtCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAAFlBQAAAAFtCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAAFnBQAAAAFPBQAAAANuaWwBAAAAAVAAAAABAAAAAU0EAAAAAUgJAQAAAAFDAAAAAQUAAAABcwQAAAABUQkBAAAAAUMAAAABBQAAAAF0BAAAAAFSAwkAAGYAAAACBQAAAAFRAAAAAAAAAAAACQAAawAAAAMFAAAAAU0FAAAAAW4FAAAAAVEAAAAAAAAAAAAJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAAXUJAABkAAAAAgkBAAAAAUMAAAABBQAAAAF1BQAAAAFNCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAAFzCQAAZAAAAAIFAAAAAUgFAAAAAVIFAAAAA25pbAAAAAUAAAABUwEAAAALdG9wVXBSZXdhcmQAAAAABAAAAAFUCQEAAAABQwAAAAEFAAAAAWUEAAAAAWwJAQAAAAFDAAAAAQUAAAABdAQAAAABVQkAAGQAAAACBQAAAAFsBQAAAAFUBAAAAAFWCQEAAAABegAAAAAEAAAAAVcJAQAAAAFCAAAAAAMJAQAAAAIhPQAAAAIICQABkQAAAAIIBQAAAAFTAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQFAAAAAVYJAAACAAAAAQIAAAAqV3JvbmcgYXNzZXRJZCwgZmlyc3QgcGF5bWVudCBzaG91bGQgYmUgRUdHAwkBAAAAAiE9AAAAAggJAAGRAAAAAggFAAAAAVMAAAAIcGF5bWVudHMAAAAAAAAAAAEAAAAHYXNzZXRJZAUAAAABVwkAAAIAAAABAgAAADNXcm9uZyBhc3NldElkLCBzZWNvbmQgcGF5bWVudCBzaG91bGQgYmUgZmFybSB0b2tlbnMEAAAAAVgJAQAAAAFQAAAAAQgJAAGRAAAAAggFAAAAAVMAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BAAAAAFZCQEAAAABTAAAAAEICQABkQAAAAIIBQAAAAFTAAAACHBheW1lbnRzAAAAAAAAAAABAAAABmFtb3VudAkABRQAAAACCQAETgAAAAIFAAAAAVkFAAAAAVgGAAAAAVMBAAAAEndpdGhkcmF3RmFybVRva2VucwAAAAIAAAABTQAAAAFaBAAAAAFXCQEAAAABQgAAAAADBQAAAAFaBAAAAAFOCQEAAAABQwAAAAEFAAAAAWYEAAAAAW0JAQAAAAFDAAAAAQUAAAABZQQAAAABTwkBAAAAAWsAAAACBQAAAAFOBQAAAAFtBAAAAAJhYQkBAAAAAWkAAAABCAUAAAABUwAAAAZjYWxsZXIEAAAAAmFiCQEAAAABQwAAAAEFAAAAAmFhBAAAAAJhYwMJAAAAAAAAAgUAAAABTQD//////////wUAAAACYWIJAABrAAAAAwUAAAABTQUAAAABaAUAAAABTwQAAAACYWQDCQAAAAAAAAIFAAAAAU0A//////////8JAABrAAAAAwUAAAACYWMFAAAAAU8FAAAAAWgFAAAAAU0DCQAAZgAAAAIFAAAAAmFjBQAAAAJhYgkAAAIAAAABAgAAAChZb3UgZG9uJ3QgaGF2ZSBzbyBtdWNoIGZ1bmRzIHRvIHdpdGhkcmF3CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAAJhYQkAAGUAAAACBQAAAAJhYgUAAAACYWMJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAAWYJAABlAAAAAgUAAAABTgUAAAACYWMJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAAWUJAABlAAAAAgUAAAABbQUAAAACYWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAVMAAAAGY2FsbGVyBQAAAAJhZAUAAAABVwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAABZwUAAAABTwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAVbGFzdF92aXJ0X2NvbXBvdW5kX3dkBQAAAAJhYwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAXbGFzdF9hbW91bnRfY29tcG91bmRfd2QFAAAAAmFkBQAAAANuaWwEAAAAAmFlCQAEJQAAAAEIBQAAAAFTAAAABmNhbGxlcgQAAAABSgkBAAAAAUMAAAABCQEAAAABbwAAAAEIBQAAAAFTAAAABmNhbGxlcgQAAAACYWYDCQAAAAAAAAIFAAAAAU0A//////////8FAAAAAUoFAAAAAU0DCQAAZgAAAAIFAAAAAmFmBQAAAAFKCQAAAgAAAAECAAAAH3lvdSBkb24ndCBoYXZlIHRva2VucyBhdmFpbGFibGUJAAROAAAAAgkBAAAAAUcAAAABCAUAAAABUwAAAAZjYWxsZXIJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAAFvAAAAAQgFAAAAAVMAAAAGY2FsbGVyCQAAZQAAAAIFAAAAAUoFAAAAAmFmCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAAF0CQAAZQAAAAIJAQAAAAFDAAAAAQUAAAABdAUAAAACYWYJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAVMAAAAGY2FsbGVyBQAAAAJhZgUAAAABVwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAPbGFzdF9zdGFraW5nX3dkBQAAAAJhZgUAAAADbmlsAAAAAVMBAAAAD3N0YWtlRmFybVRva2VucwAAAAEAAAABWgQAAAABVwkBAAAAAUIAAAAAAwkBAAAAAiE9AAAAAggJAAGRAAAAAggFAAAAAVMAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAUAAAABVwkAAAIAAAABAgAAAA1Xcm9uZyBhc3NldElkAwUAAAABWgQAAAACYWcJAQAAAAF3AAAAAAMFAAAAAmFnCQAAAgAAAAECAAAANVRoZSBmYXJtIGlzIGNsb3NlZCBmb3IgaW52ZXN0bWVudHMsIGl0IGNhbid0IGNvbXBvdW5kBAAAAAJhYQkBAAAAAWkAAAABCAUAAAABUwAAAAZjYWxsZXIEAAAAAmFoCQEAAAABQwAAAAEFAAAAAmFhBAAAAAFtCQEAAAABQwAAAAEFAAAAAWUEAAAAAU4JAQAAAAFDAAAAAQUAAAABZgQAAAABTwkBAAAAAWsAAAACBQAAAAFOBQAAAAFtBAAAAAJhaQgJAAGRAAAAAggFAAAAAVMAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BAAAAAJhagkAAGsAAAADBQAAAAJhaQUAAAABaAUAAAABTwQAAAABSQkBAAAAAUMAAAABCQEAAAABcQAAAAEIBQAAAAFTAAAABmNhbGxlcgQAAAABSAkBAAAAAUMAAAABBQAAAAFzBAAAAAJhawMJAABmAAAAAgUAAAABSQAAAAAAAAAAAAUAAAABSQUAAAABSAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAAXEAAAABCAUAAAABUwAAAAZjYWxsZXIFAAAAAmFrCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAAJhYQkAAGQAAAACBQAAAAJhaAUAAAACYWoJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAAWUJAABkAAAAAgUAAAABbQUAAAACYWkJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAAWYJAABkAAAAAgUAAAABTgUAAAACYWoJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAAWcFAAAAAU8FAAAAA25pbAQAAAABTQgJAAGRAAAAAggFAAAAAVMAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BAAAAAJhZQkABCUAAAABCAUAAAABUwAAAAZjYWxsZXIEAAAAAVEJAQAAAAFDAAAAAQUAAAABdAMJAQAAAAIhPQAAAAIICQABkQAAAAIIBQAAAAFTAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQFAAAAAVcJAAACAAAAAQIAAAAUd3JvbmcgYXNzZXQgYXR0YWNoZWQJAAROAAAAAgkBAAAAAUcAAAABCAUAAAABUwAAAAZjYWxsZXIJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAAXQJAABkAAAAAgUAAAABUQUAAAABTQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAAW8AAAABCAUAAAABUwAAAAZjYWxsZXIJAABkAAAAAgkBAAAAAUMAAAABCQEAAAABbwAAAAEIBQAAAAFTAAAABmNhbGxlcgUAAAABTQUAAAADbmlsAAAAAVMBAAAADGluaXRpYXRlRGFwcAAAAAEAAAABcAMJAQAAAAIhPQAAAAIIBQAAAAFTAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAACZDYW4gYmUgY2FsbGVkIG9ubHkgYnkgdGhlIGRhcHAtYWNjb3VudAkBAAAAAUEAAAABBQAAAAFwAAAAAVMBAAAAC2NsYWltUmV3YXJkAAAAAAkBAAAAAUcAAAABCAUAAAABUwAAAAZjYWxsZXIAAAAA6hBQTg==",
    "height": 2972688,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Hv8UfPzYvCcWghizPpb2bXFoyoYB6cVXXNTCdtRUYUZ9
Next: none

Diff: 
Old New Differences
157 157                  else amount
158 158              if ((wdAmount > stakedAmount))
159 159                  then throw("you don't have tokens available")
160 -                 else (claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, amount, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)])
160 +                 else (claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, wdAmount, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)])
161 161              }
162 162      }
163 163  
203 203  
204 204  @Callable(i)
205 205  func initiateDapp (address) = if ((i.caller != this))
206 -     then throw("Can be called only by the account")
206 +     then throw("Can be called only by the dapp-account")
207 207      else setCFAddress(address)
208 208  
209 209  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let keyMAccPKey = "master_pk"
5 5  
6 6  func getCFAddress () = addressFromStringValue(getStringValue(this, "CF_ADDRESS"))
7 7  
8 8  
9 9  let mAccPKey = fromBase58String(getStringValue(getCFAddress(), keyMAccPKey))
10 10  
11 11  let mAccAddr = addressFromPublicKey(mAccPKey)
12 12  
13 13  let keyTotalCompound = "total_compound"
14 14  
15 15  let keyStakedCompound = "staked_compound"
16 16  
17 17  let keyLastVP = "last_virtual_price"
18 18  
19 19  let VPScale = 100000000
20 20  
21 21  func keyStakedCompoundUser (user) = ((toString(user) + "_") + keyStakedCompound)
22 22  
23 23  
24 24  func calcVirtualPrice (totalStaked,total) = if ((total == 0))
25 25      then 1
26 26      else if ((totalStaked == 0))
27 27          then 1
28 28          else fraction(total, VPScale, totalStaked)
29 29  
30 30  
31 31  let Scale = 100000000
32 32  
33 33  func keyStakedAmount (address) = (toString(address) + "_farm_staked")
34 34  
35 35  
36 36  func keyLastCheckInterest (address) = (toString(address) + "_lastCheck_interest")
37 37  
38 38  
39 39  func keyEggClaimed (address) = (toString(address) + "_claimed")
40 40  
41 41  
42 42  let keyGlobalLastInterest = "global_lastCheck_interest"
43 43  
44 44  let keyGlobalStaked = "global_staked"
45 45  
46 46  let keyGlobalEggEarned = "global_earnings"
47 47  
48 48  let kLockedInvestments = "locked_investments"
49 49  
50 50  func isCollectiveFarmLocked () = match getBoolean(getCFAddress(), kLockedInvestments) {
51 51      case b: Boolean => 
52 52          b
53 53      case _ => 
54 54          false
55 55  }
56 56  
57 57  
58 58  func getEggId () = fromBase58String(getStringValue(mAccAddr, "EGG_ASSET_ID"))
59 59  
60 60  
61 61  func setCFAddress (address) = [StringEntry("CF_ADDRESS", address)]
62 62  
63 63  
64 64  func getShareAssetId () = fromBase58String(getStringValue(getCFAddress(), "SHARE_ASSET_ID"))
65 65  
66 66  
67 67  func tryGetInteger (key) = match getInteger(this, key) {
68 68      case b: Int => 
69 69          b
70 70      case _ => 
71 71          0
72 72  }
73 73  
74 74  
75 75  func tryGetString (key) = match getString(this, key) {
76 76      case a: String => 
77 77          a
78 78      case _ => 
79 79          ""
80 80  }
81 81  
82 82  
83 83  func claimStakingResult (address) = {
84 84      let currentInterest = tryGetInteger(keyGlobalLastInterest)
85 85      let lastCheckInterest = tryGetInteger(keyLastCheckInterest(address))
86 86      let stakedAmount = tryGetInteger(keyStakedAmount(address))
87 87      let reward = if ((lastCheckInterest > 0))
88 88          then fraction((currentInterest - lastCheckInterest), stakedAmount, Scale)
89 89          else 0
90 90  [IntegerEntry(keyLastCheckInterest(address), currentInterest), IntegerEntry(keyEggClaimed(address), (tryGetInteger(keyEggClaimed(address)) + reward)), ScriptTransfer(address, reward, getEggId())]
91 91      }
92 92  
93 93  
94 94  func handleCompoundTopUp (amount) = {
95 95      let total = (tryGetInteger(keyTotalCompound) + amount)
96 96      let staked = tryGetInteger(keyStakedCompound)
97 97      let vp = calcVirtualPrice(staked, total)
98 98  [IntegerEntry(keyTotalCompound, total), IntegerEntry(keyLastVP, vp)]
99 99      }
100 100  
101 101  
102 102  func handleStakingTopUp (amount) = {
103 103      let currentInterest = tryGetInteger(keyGlobalLastInterest)
104 104      let totalStakedAmount = tryGetInteger(keyGlobalStaked)
105 105      let interestDelta = if ((totalStakedAmount > 0))
106 106          then fraction(amount, Scale, totalStakedAmount)
107 107          else 0
108 108  [IntegerEntry(keyGlobalEggEarned, (tryGetInteger(keyGlobalEggEarned) + amount)), IntegerEntry(keyGlobalLastInterest, (currentInterest + interestDelta))]
109 109      }
110 110  
111 111  
112 112  @Callable(i)
113 113  func topUpReward () = {
114 114      let totalCompound = tryGetInteger(keyTotalCompound)
115 115      let totalStaked = tryGetInteger(keyGlobalStaked)
116 116      let totalLocked = (totalStaked + totalCompound)
117 117      let eggAssetId = getEggId()
118 118      let shareTokenId = getShareAssetId()
119 119      if ((i.payments[0].assetId != eggAssetId))
120 120          then throw("Wrong assetId, first payment should be EGG")
121 121          else if ((i.payments[1].assetId != shareTokenId))
122 122              then throw("Wrong assetId, second payment should be farm tokens")
123 123              else {
124 124                  let resHandleStaking = handleStakingTopUp(i.payments[0].amount)
125 125                  let resHandleCompound = handleCompoundTopUp(i.payments[1].amount)
126 126                  $Tuple2((resHandleCompound ++ resHandleStaking), true)
127 127                  }
128 128      }
129 129  
130 130  
131 131  
132 132  @Callable(i)
133 133  func withdrawFarmTokens (amount,compound) = {
134 134      let shareTokenId = getShareAssetId()
135 135      if (compound)
136 136          then {
137 137              let staked = tryGetInteger(keyStakedCompound)
138 138              let total = tryGetInteger(keyTotalCompound)
139 139              let vp = calcVirtualPrice(staked, total)
140 140              let keyStakedCompoundU = keyStakedCompoundUser(i.caller)
141 141              let personalStaked = tryGetInteger(keyStakedCompoundU)
142 142              let virtualWd = if ((amount == -1))
143 143                  then personalStaked
144 144                  else fraction(amount, VPScale, vp)
145 145              let amountWd = if ((amount == -1))
146 146                  then fraction(virtualWd, vp, VPScale)
147 147                  else amount
148 148              if ((virtualWd > personalStaked))
149 149                  then throw("You don't have so much funds to withdraw")
150 150                  else [IntegerEntry(keyStakedCompoundU, (personalStaked - virtualWd)), IntegerEntry(keyStakedCompound, (staked - virtualWd)), IntegerEntry(keyTotalCompound, (total - amountWd)), ScriptTransfer(i.caller, amountWd, shareTokenId), IntegerEntry(keyLastVP, vp), IntegerEntry("last_virt_compound_wd", virtualWd), IntegerEntry("last_amount_compound_wd", amountWd)]
151 151              }
152 152          else {
153 153              let addressStr = toString(i.caller)
154 154              let stakedAmount = tryGetInteger(keyStakedAmount(i.caller))
155 155              let wdAmount = if ((amount == -1))
156 156                  then stakedAmount
157 157                  else amount
158 158              if ((wdAmount > stakedAmount))
159 159                  then throw("you don't have tokens available")
160 -                 else (claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, amount, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)])
160 +                 else (claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, wdAmount, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)])
161 161              }
162 162      }
163 163  
164 164  
165 165  
166 166  @Callable(i)
167 167  func stakeFarmTokens (compound) = {
168 168      let shareTokenId = getShareAssetId()
169 169      if ((i.payments[0].assetId != shareTokenId))
170 170          then throw("Wrong assetId")
171 171          else if (compound)
172 172              then {
173 173                  let isLocked = isCollectiveFarmLocked()
174 174                  if (isLocked)
175 175                      then throw("The farm is closed for investments, it can't compound")
176 176                      else {
177 177                          let keyStakedCompoundU = keyStakedCompoundUser(i.caller)
178 178                          let alreadyStaked = tryGetInteger(keyStakedCompoundU)
179 179                          let total = tryGetInteger(keyTotalCompound)
180 180                          let staked = tryGetInteger(keyStakedCompound)
181 181                          let vp = calcVirtualPrice(staked, total)
182 182                          let rawStakeAmount = i.payments[0].amount
183 183                          let exactStakeAmount = fraction(rawStakeAmount, VPScale, vp)
184 184                          let lastCheckInterest = tryGetInteger(keyLastCheckInterest(i.caller))
185 185                          let currentInterest = tryGetInteger(keyGlobalLastInterest)
186 186                          let storeInterest = if ((lastCheckInterest > 0))
187 187                              then lastCheckInterest
188 188                              else currentInterest
189 189  [IntegerEntry(keyLastCheckInterest(i.caller), storeInterest), IntegerEntry(keyStakedCompoundU, (alreadyStaked + exactStakeAmount)), IntegerEntry(keyTotalCompound, (total + rawStakeAmount)), IntegerEntry(keyStakedCompound, (staked + exactStakeAmount)), IntegerEntry(keyLastVP, vp)]
190 190                          }
191 191                  }
192 192              else {
193 193                  let amount = i.payments[0].amount
194 194                  let addressStr = toString(i.caller)
195 195                  let totalStakedAmount = tryGetInteger(keyGlobalStaked)
196 196                  if ((i.payments[0].assetId != shareTokenId))
197 197                      then throw("wrong asset attached")
198 198                      else (claimStakingResult(i.caller) ++ [IntegerEntry(keyGlobalStaked, (totalStakedAmount + amount)), IntegerEntry(keyStakedAmount(i.caller), (tryGetInteger(keyStakedAmount(i.caller)) + amount))])
199 199                  }
200 200      }
201 201  
202 202  
203 203  
204 204  @Callable(i)
205 205  func initiateDapp (address) = if ((i.caller != this))
206 -     then throw("Can be called only by the account")
206 +     then throw("Can be called only by the dapp-account")
207 207      else setCFAddress(address)
208 208  
209 209  
210 210  
211 211  @Callable(i)
212 212  func claimReward () = claimStakingResult(i.caller)
213 213  
214 214

Old	New		Differences
157	157		else amount
158	158		if ((wdAmount > stakedAmount))
159	159		then throw("you don't have tokens available")
160		-	else (claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, ~~amount~~, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)])
	160	+	else (claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, wdAmount, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)])
161	161		}
162	162		}
163	163

203	203
204	204		@Callable(i)
205	205		func initiateDapp (address) = if ((i.caller != this))
206		-	then throw("Can be called only by the account")
	206	+	then throw("Can be called only by the dapp-account")
207	207		else setCFAddress(address)
208	208
209	209

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let keyMAccPKey = "master_pk"
5	5
6	6		func getCFAddress () = addressFromStringValue(getStringValue(this, "CF_ADDRESS"))
7	7
8	8
9	9		let mAccPKey = fromBase58String(getStringValue(getCFAddress(), keyMAccPKey))
10	10
11	11		let mAccAddr = addressFromPublicKey(mAccPKey)
12	12
13	13		let keyTotalCompound = "total_compound"
14	14
15	15		let keyStakedCompound = "staked_compound"
16	16
17	17		let keyLastVP = "last_virtual_price"
18	18
19	19		let VPScale = 100000000
20	20
21	21		func keyStakedCompoundUser (user) = ((toString(user) + "_") + keyStakedCompound)
22	22
23	23
24	24		func calcVirtualPrice (totalStaked,total) = if ((total == 0))
25	25		then 1
26	26		else if ((totalStaked == 0))
27	27		then 1
28	28		else fraction(total, VPScale, totalStaked)
29	29
30	30
31	31		let Scale = 100000000
32	32
33	33		func keyStakedAmount (address) = (toString(address) + "_farm_staked")
34	34
35	35
36	36		func keyLastCheckInterest (address) = (toString(address) + "_lastCheck_interest")
37	37
38	38
39	39		func keyEggClaimed (address) = (toString(address) + "_claimed")
40	40
41	41
42	42		let keyGlobalLastInterest = "global_lastCheck_interest"
43	43
44	44		let keyGlobalStaked = "global_staked"
45	45
46	46		let keyGlobalEggEarned = "global_earnings"
47	47
48	48		let kLockedInvestments = "locked_investments"
49	49
50	50		func isCollectiveFarmLocked () = match getBoolean(getCFAddress(), kLockedInvestments) {
51	51		case b: Boolean =>
52	52		b
53	53		case _ =>
54	54		false
55	55		}
56	56
57	57
58	58		func getEggId () = fromBase58String(getStringValue(mAccAddr, "EGG_ASSET_ID"))
59	59
60	60
61	61		func setCFAddress (address) = [StringEntry("CF_ADDRESS", address)]
62	62
63	63
64	64		func getShareAssetId () = fromBase58String(getStringValue(getCFAddress(), "SHARE_ASSET_ID"))
65	65
66	66
67	67		func tryGetInteger (key) = match getInteger(this, key) {
68	68		case b: Int =>
69	69		b
70	70		case _ =>
71	71		0
72	72		}
73	73
74	74
75	75		func tryGetString (key) = match getString(this, key) {
76	76		case a: String =>
77	77		a
78	78		case _ =>
79	79		""
80	80		}
81	81
82	82
83	83		func claimStakingResult (address) = {
84	84		let currentInterest = tryGetInteger(keyGlobalLastInterest)
85	85		let lastCheckInterest = tryGetInteger(keyLastCheckInterest(address))
86	86		let stakedAmount = tryGetInteger(keyStakedAmount(address))
87	87		let reward = if ((lastCheckInterest > 0))
88	88		then fraction((currentInterest - lastCheckInterest), stakedAmount, Scale)
89	89		else 0
90	90		[IntegerEntry(keyLastCheckInterest(address), currentInterest), IntegerEntry(keyEggClaimed(address), (tryGetInteger(keyEggClaimed(address)) + reward)), ScriptTransfer(address, reward, getEggId())]
91	91		}
92	92
93	93
94	94		func handleCompoundTopUp (amount) = {
95	95		let total = (tryGetInteger(keyTotalCompound) + amount)
96	96		let staked = tryGetInteger(keyStakedCompound)
97	97		let vp = calcVirtualPrice(staked, total)
98	98		[IntegerEntry(keyTotalCompound, total), IntegerEntry(keyLastVP, vp)]
99	99		}
100	100
101	101
102	102		func handleStakingTopUp (amount) = {
103	103		let currentInterest = tryGetInteger(keyGlobalLastInterest)
104	104		let totalStakedAmount = tryGetInteger(keyGlobalStaked)
105	105		let interestDelta = if ((totalStakedAmount > 0))
106	106		then fraction(amount, Scale, totalStakedAmount)
107	107		else 0
108	108		[IntegerEntry(keyGlobalEggEarned, (tryGetInteger(keyGlobalEggEarned) + amount)), IntegerEntry(keyGlobalLastInterest, (currentInterest + interestDelta))]
109	109		}
110	110
111	111
112	112		@Callable(i)
113	113		func topUpReward () = {
114	114		let totalCompound = tryGetInteger(keyTotalCompound)
115	115		let totalStaked = tryGetInteger(keyGlobalStaked)
116	116		let totalLocked = (totalStaked + totalCompound)
117	117		let eggAssetId = getEggId()
118	118		let shareTokenId = getShareAssetId()
119	119		if ((i.payments[0].assetId != eggAssetId))
120	120		then throw("Wrong assetId, first payment should be EGG")
121	121		else if ((i.payments[1].assetId != shareTokenId))
122	122		then throw("Wrong assetId, second payment should be farm tokens")
123	123		else {
124	124		let resHandleStaking = handleStakingTopUp(i.payments[0].amount)
125	125		let resHandleCompound = handleCompoundTopUp(i.payments[1].amount)
126	126		$Tuple2((resHandleCompound ++ resHandleStaking), true)
127	127		}
128	128		}
129	129
130	130
131	131
132	132		@Callable(i)
133	133		func withdrawFarmTokens (amount,compound) = {
134	134		let shareTokenId = getShareAssetId()
135	135		if (compound)
136	136		then {
137	137		let staked = tryGetInteger(keyStakedCompound)
138	138		let total = tryGetInteger(keyTotalCompound)
139	139		let vp = calcVirtualPrice(staked, total)
140	140		let keyStakedCompoundU = keyStakedCompoundUser(i.caller)
141	141		let personalStaked = tryGetInteger(keyStakedCompoundU)
142	142		let virtualWd = if ((amount == -1))
143	143		then personalStaked
144	144		else fraction(amount, VPScale, vp)
145	145		let amountWd = if ((amount == -1))
146	146		then fraction(virtualWd, vp, VPScale)
147	147		else amount
148	148		if ((virtualWd > personalStaked))
149	149		then throw("You don't have so much funds to withdraw")
150	150		else [IntegerEntry(keyStakedCompoundU, (personalStaked - virtualWd)), IntegerEntry(keyStakedCompound, (staked - virtualWd)), IntegerEntry(keyTotalCompound, (total - amountWd)), ScriptTransfer(i.caller, amountWd, shareTokenId), IntegerEntry(keyLastVP, vp), IntegerEntry("last_virt_compound_wd", virtualWd), IntegerEntry("last_amount_compound_wd", amountWd)]
151	151		}
152	152		else {
153	153		let addressStr = toString(i.caller)
154	154		let stakedAmount = tryGetInteger(keyStakedAmount(i.caller))
155	155		let wdAmount = if ((amount == -1))
156	156		then stakedAmount
157	157		else amount
158	158		if ((wdAmount > stakedAmount))
159	159		then throw("you don't have tokens available")
160		-	else (claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, ~~amount~~, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)])
	160	+	else (claimStakingResult(i.caller) ++ [IntegerEntry(keyStakedAmount(i.caller), (stakedAmount - wdAmount)), IntegerEntry(keyGlobalStaked, (tryGetInteger(keyGlobalStaked) - wdAmount)), ScriptTransfer(i.caller, wdAmount, shareTokenId), IntegerEntry("last_staking_wd", wdAmount)])
161	161		}
162	162		}
163	163
164	164
165	165
166	166		@Callable(i)
167	167		func stakeFarmTokens (compound) = {
168	168		let shareTokenId = getShareAssetId()
169	169		if ((i.payments[0].assetId != shareTokenId))
170	170		then throw("Wrong assetId")
171	171		else if (compound)
172	172		then {
173	173		let isLocked = isCollectiveFarmLocked()
174	174		if (isLocked)
175	175		then throw("The farm is closed for investments, it can't compound")
176	176		else {
177	177		let keyStakedCompoundU = keyStakedCompoundUser(i.caller)
178	178		let alreadyStaked = tryGetInteger(keyStakedCompoundU)
179	179		let total = tryGetInteger(keyTotalCompound)
180	180		let staked = tryGetInteger(keyStakedCompound)
181	181		let vp = calcVirtualPrice(staked, total)
182	182		let rawStakeAmount = i.payments[0].amount
183	183		let exactStakeAmount = fraction(rawStakeAmount, VPScale, vp)
184	184		let lastCheckInterest = tryGetInteger(keyLastCheckInterest(i.caller))
185	185		let currentInterest = tryGetInteger(keyGlobalLastInterest)
186	186		let storeInterest = if ((lastCheckInterest > 0))
187	187		then lastCheckInterest
188	188		else currentInterest
189	189		[IntegerEntry(keyLastCheckInterest(i.caller), storeInterest), IntegerEntry(keyStakedCompoundU, (alreadyStaked + exactStakeAmount)), IntegerEntry(keyTotalCompound, (total + rawStakeAmount)), IntegerEntry(keyStakedCompound, (staked + exactStakeAmount)), IntegerEntry(keyLastVP, vp)]
190	190		}
191	191		}
192	192		else {
193	193		let amount = i.payments[0].amount
194	194		let addressStr = toString(i.caller)
195	195		let totalStakedAmount = tryGetInteger(keyGlobalStaked)
196	196		if ((i.payments[0].assetId != shareTokenId))
197	197		then throw("wrong asset attached")
198	198		else (claimStakingResult(i.caller) ++ [IntegerEntry(keyGlobalStaked, (totalStakedAmount + amount)), IntegerEntry(keyStakedAmount(i.caller), (tryGetInteger(keyStakedAmount(i.caller)) + amount))])
199	199		}
200	200		}
201	201
202	202
203	203
204	204		@Callable(i)
205	205		func initiateDapp (address) = if ((i.caller != this))
206		-	then throw("Can be called only by the account")
	206	+	then throw("Can be called only by the dapp-account")
207	207		else setCFAddress(address)
208	208
209	209
210	210
211	211		@Callable(i)
212	212		func claimReward () = claimStakingResult(i.caller)
213	213
214	214

github/deemru/w8io/6500d08 
46.04 ms ◑