tx · EKg8zNRJquvz1sG88CqBp5aDrn4sJgFG7ui7QsWg2fKe

3MppNCm5DNcq9NGSEd8qcwdwebmnhEiYE4o:  -0.01000000 Waves

2023.09.28 12:05 [2775065] smart account 3MppNCm5DNcq9NGSEd8qcwdwebmnhEiYE4o > SELF 0.00000000 Waves

{ "type": 13, "id": "EKg8zNRJquvz1sG88CqBp5aDrn4sJgFG7ui7QsWg2fKe", "fee": 1000000, "feeAssetId": null, "timestamp": 1695891998306, "version": 2, "chainId": 84, "sender": "3MppNCm5DNcq9NGSEd8qcwdwebmnhEiYE4o", "senderPublicKey": "5mRitb3ddKjtCqYvL1wanLFrri8MuS5uK4n2G1bHP1Eu", "proofs": [ "PPaQRx5WiiwQh8ASjj1FptM9LHesvW9bqff7VmVCbmdVLYtpuJobc6DBXx28w39J9fYFLEP17gYf9sK7XSXYvpH" ], "script": "base64:BgINCAISABIDCgEBEgASAAkABnVzZG5JZAEgbySjyqsw3FIpmOgsYVruWn8jTcItdbvpnapU4NLQB8EACXVzZG5JZFN0cgIsOFVyZkRWZDVHcmVlVXdtN3VQazdlWXoxZU12Mzc2a3pSNTJDNnNBTlBrd1MACHB1enpsZUlkASBhIEdqteU0lNOM+a3jecT6cJU92ajDMxppPdJKJ6I3YAALcHV6emxlSWRTdHICLDdZOTZVVGJCUTQ1Y2pXb0hlRmoyRWhuamRnRXQ2aUsyTG5BNGVUY2Z4ZG9EAAVTY2FsZQCAoJSljR0BDXRyeUdldEludGVnZXIBA2tleQQHJG1hdGNoMAkAmggCBQR0aGlzBQNrZXkDCQABAgUHJG1hdGNoMAIDSW50BAFiBQckbWF0Y2gwBQFiAAABDHRyeUdldFN0cmluZwEDa2V5BAckbWF0Y2gwCQCdCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAWEFByRtYXRjaDAFAWECAAEQY2xhaW1BbGlhc1Jlc3VsdAIHYWRkcmVzcwphc3NldElkU3RyBAphZGRyZXNzU3RyCQClCAEFB2FkZHJlc3MED2N1cnJlbnRJbnRlcmVzdAkBDXRyeUdldEludGVnZXIBCQCsAgIJAKwCAgIRZ2xvYmFsX2xhc3RDaGVja18FCmFzc2V0SWRTdHICCV9pbnRlcmVzdAQMc3Rha2VkQW1vdW50CQENdHJ5R2V0SW50ZWdlcgEJAKwCAgUKYWRkcmVzc1N0cgIHX3N0YWtlZAQYbGFzdENoZWNrSW50ZXJlc3RJblN0YXRlCQENdHJ5R2V0SW50ZWdlcgEJAKwCAgkArAICCQCsAgIFCmFkZHJlc3NTdHICC19sYXN0Q2hlY2tfBQphc3NldElkU3RyAglfaW50ZXJlc3QEEWxhc3RDaGVja0ludGVyZXN0AwkAAAIFGGxhc3RDaGVja0ludGVyZXN0SW5TdGF0ZQAAAAAFGGxhc3RDaGVja0ludGVyZXN0SW5TdGF0ZQQGcmV3YXJkCQBrAwkAZQIFD2N1cnJlbnRJbnRlcmVzdAURbGFzdENoZWNrSW50ZXJlc3QFDHN0YWtlZEFtb3VudAUFU2NhbGUJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFCmFkZHJlc3NTdHICC19sYXN0Q2hlY2tfBQphc3NldElkU3RyAglfaW50ZXJlc3QFD2N1cnJlbnRJbnRlcmVzdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUKYWRkcmVzc1N0cgIBXwUKYXNzZXRJZFN0cgIIX2NsYWltZWQJAGQCCQENdHJ5R2V0SW50ZWdlcgEJAKwCAgkArAICCQCsAgIFCmFkZHJlc3NTdHICAV8FCmFzc2V0SWRTdHICCF9jbGFpbWVkBQZyZXdhcmQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUHYWRkcmVzcwUGcmV3YXJkCQDZBAEFCmFzc2V0SWRTdHIFA25pbAELY2xhaW1SZXN1bHQBB2FkZHJlc3MJAM4IAgkBEGNsYWltQWxpYXNSZXN1bHQCBQdhZGRyZXNzBQl1c2RuSWRTdHIJARBjbGFpbUFsaWFzUmVzdWx0AgUHYWRkcmVzcwULcHV6emxlSWRTdHIEAWkBBXN0YWtlAAQGYW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAQKYWRkcmVzc1N0cgkApQgBCAUBaQZjYWxsZXIECmFzc2V0SWRTdHIJANgEAQUGdXNkbklkBBF0b3RhbFN0YWtlZEFtb3VudAkBDXRyeUdldEludGVnZXIBAg1nbG9iYWxfc3Rha2VkAwkBAiE9AggJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQhwdXp6bGVJZAkAAgECFHdyb25nIGFzc2V0IGF0dGFjaGVkCQDOCAIJAQtjbGFpbVJlc3VsdAEIBQFpBmNhbGxlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgINZ2xvYmFsX3N0YWtlZAkAZAIFEXRvdGFsU3Rha2VkQW1vdW50BQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYWRkcmVzc1N0cgIHX3N0YWtlZAkAZAIJAQ10cnlHZXRJbnRlZ2VyAQkArAICBQphZGRyZXNzU3RyAgdfc3Rha2VkBQZhbW91bnQFA25pbAFpAQd1blN0YWtlAQZhbW91bnQECmFkZHJlc3NTdHIJAKUIAQgFAWkGY2FsbGVyBAxzdGFrZWRBbW91bnQJAQ10cnlHZXRJbnRlZ2VyAQkArAICBQphZGRyZXNzU3RyAgdfc3Rha2VkAwkAZgIFBmFtb3VudAUMc3Rha2VkQW1vdW50CQACAQIfeW91IGRvbid0IGhhdmUgdG9rZW5zIGF2YWlsYWJsZQkAzggCCQELY2xhaW1SZXN1bHQBCAUBaQZjYWxsZXIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYWRkcmVzc1N0cgIHX3N0YWtlZAkAZQIFDHN0YWtlZEFtb3VudAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCAg1nbG9iYWxfc3Rha2VkCQBlAgkBDXRyeUdldEludGVnZXIBAg1nbG9iYWxfc3Rha2VkBQZhbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQZhbW91bnQFCHB1enpsZUlkBQNuaWwBaQELY2xhaW1SZXdhcmQACQELY2xhaW1SZXN1bHQBCAUBaQZjYWxsZXIBaQELdG9wVXBSZXdhcmQABAhwbXRBc3NldAkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBAlwbXRBbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BAZhbW91bnQDCQAAAgUIcG10QXNzZXQFCHB1enpsZUlkAAADCQAAAgUIcG10QXNzZXQFBnVzZG5JZAUJcG10QW1vdW50CQACAQIabm90IGNvcnJlY3QgYXNzZXQgYXR0YWNoZWQDCQAAAgUGYW1vdW50BQZhbW91bnQED2N1cnJlbnRJbnRlcmVzdAkBDXRyeUdldEludGVnZXIBCQCsAgIJAKwCAgIRZ2xvYmFsX2xhc3RDaGVja18FCXVzZG5JZFN0cgIJX2ludGVyZXN0BBF0b3RhbFN0YWtlZEFtb3VudAkBDXRyeUdldEludGVnZXIBAg1nbG9iYWxfc3Rha2VkBA1pbnRlcmVzdERlbHRhAwkAZgIFEXRvdGFsU3Rha2VkQW1vdW50AAAJAGsDBQZhbW91bnQFBVNjYWxlBRF0b3RhbFN0YWtlZEFtb3VudAAAAwkBAiE9AgUIcG10QXNzZXQFCHB1enpsZUlkCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICAgdnbG9iYWxfBQl1c2RuSWRTdHICCV9lYXJuaW5ncwkAZAIJAQ10cnlHZXRJbnRlZ2VyAQkArAICCQCsAgICB2dsb2JhbF8FCXVzZG5JZFN0cgIJX2Vhcm5pbmdzBQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICAhFnbG9iYWxfbGFzdENoZWNrXwUJdXNkbklkU3RyAglfaW50ZXJlc3QJAGQCBQ9jdXJyZW50SW50ZXJlc3QFDWludGVyZXN0RGVsdGEFA25pbAUGYW1vdW50BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5zPf1VQ==", "height": 2775065, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: 44vX1DNTB2L3omWZXCSFM5NzGpcrML52b9H7DpfVp42H Next: none Diff:
OldNewDifferences
1-{-# STDLIB_VERSION 5 #-}
1+{-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let usdn = base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'
4+let usdnId = base58'8UrfDVd5GreeUwm7uPk7eYz1eMv376kzR52C6sANPkwS'
55
6-let usdnTest = "Succesfully determined tci id"
6+let usdnIdStr = "8UrfDVd5GreeUwm7uPk7eYz1eMv376kzR52C6sANPkwS"
77
8-let waves = base58'WAVES'
8+let puzzleId = base58'7Y96UTbBQ45cjWoHeFj2EhnjdgEt6iK2LnA4eTcfxdoD'
99
10-let wavesTest = "Succesfully determined tci id"
10+let puzzleIdStr = "7Y96UTbBQ45cjWoHeFj2EhnjdgEt6iK2LnA4eTcfxdoD"
1111
12-let usdcUsdnLP = base58'EK6N7S38xbtBT3SxAqoGdDLCiX6rojX6G169CnSyuE5'
12+let Scale = 1000000000000
1313
14-let usdcUsdnLPTCI = base58'HZKFpNfyPG5gt4D6Nfy1zQSg2Ptmqv932GjNTCyBEeKP'
14+func tryGetInteger (key) = match getInteger(this, key) {
15+ case b: Int =>
16+ b
17+ case _ =>
18+ 0
19+}
1520
16-let usdcUsdtLP = base58'EPhdEfmQaNcHyvDmRGhnLhgcJtKZ2a4k3ZBmKWtAEWyH'
1721
18-let usdcUsdtLPTCI = base58'BqPYkaiz7Le6fFu1rjZ54anrpT57EpvyugZCUqrsjXj'
22+func tryGetString (key) = match getString(this, key) {
23+ case a: String =>
24+ a
25+ case _ =>
26+ ""
27+}
1928
20-let puzzleUsdnLP = base58'E8zHu33GfcNyGLypX77gZiUXfvuZQeaYmiEfsy7VYNwP'
2129
22-let puzzleUsdnLPTCI = base58'Dh9QXSSABE5V6aRfu3mCbDAUokbpE7ER7pbZV6cvyg1A'
30+func claimAliasResult (address,assetIdStr) = {
31+ let addressStr = toString(address)
32+ let currentInterest = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_interest"))
33+ let stakedAmount = tryGetInteger((addressStr + "_staked"))
34+ let lastCheckInterestInState = tryGetInteger((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"))
35+ let lastCheckInterest = if ((lastCheckInterestInState == 0))
36+ then 0
37+ else lastCheckInterestInState
38+ let reward = fraction((currentInterest - lastCheckInterest), stakedAmount, Scale)
39+[IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentInterest), IntegerEntry((((addressStr + "_") + assetIdStr) + "_claimed"), (tryGetInteger((((addressStr + "_") + assetIdStr) + "_claimed")) + reward)), ScriptTransfer(address, reward, fromBase58String(assetIdStr))]
40+ }
2341
24-func getTciId (id) = if ((id == usdn))
25- then usdnTest
26- else if ((id == waves))
27- then wavesTest
28- else throw("invalid asset")
42+
43+func claimResult (address) = (claimAliasResult(address, usdnIdStr) ++ claimAliasResult(address, puzzleIdStr))
2944
3045
3146 @Callable(i)
32-func deposit () = {
33- let assetId = i.payments[0].assetId
34- let pmtAmount = value(i.payments[0]).amount
35- let tciId = getTciId(assetId)
36-[StringEntry("test", tciId)]
47+func stake () = {
48+ let amount = i.payments[0].amount
49+ let addressStr = toString(i.caller)
50+ let assetIdStr = toBase58String(usdnId)
51+ let totalStakedAmount = tryGetInteger("global_staked")
52+ if ((i.payments[0].assetId != puzzleId))
53+ then throw("wrong asset attached")
54+ else (claimResult(i.caller) ++ [IntegerEntry("global_staked", (totalStakedAmount + amount)), IntegerEntry((addressStr + "_staked"), (tryGetInteger((addressStr + "_staked")) + amount))])
55+ }
56+
57+
58+
59+@Callable(i)
60+func unStake (amount) = {
61+ let addressStr = toString(i.caller)
62+ let stakedAmount = tryGetInteger((addressStr + "_staked"))
63+ if ((amount > stakedAmount))
64+ then throw("you don't have tokens available")
65+ else (claimResult(i.caller) ++ [IntegerEntry((addressStr + "_staked"), (stakedAmount - amount)), IntegerEntry("global_staked", (tryGetInteger("global_staked") - amount)), ScriptTransfer(i.caller, amount, puzzleId)])
66+ }
67+
68+
69+
70+@Callable(i)
71+func claimReward () = claimResult(i.caller)
72+
73+
74+
75+@Callable(i)
76+func topUpReward () = {
77+ let pmtAsset = value(i.payments[0].assetId)
78+ let pmtAmount = i.payments[0].amount
79+ let amount = if ((pmtAsset == puzzleId))
80+ then 0
81+ else if ((pmtAsset == usdnId))
82+ then pmtAmount
83+ else throw("not correct asset attached")
84+ if ((amount == amount))
85+ then {
86+ let currentInterest = tryGetInteger((("global_lastCheck_" + usdnIdStr) + "_interest"))
87+ let totalStakedAmount = tryGetInteger("global_staked")
88+ let interestDelta = if ((totalStakedAmount > 0))
89+ then fraction(amount, Scale, totalStakedAmount)
90+ else 0
91+ if ((pmtAsset != puzzleId))
92+ then $Tuple2([IntegerEntry((("global_" + usdnIdStr) + "_earnings"), (tryGetInteger((("global_" + usdnIdStr) + "_earnings")) + amount)), IntegerEntry((("global_lastCheck_" + usdnIdStr) + "_interest"), (currentInterest + interestDelta))], amount)
93+ else nil
94+ }
95+ else throw("Strict value is not equal to itself.")
3796 }
3897
3998
Full:
OldNewDifferences
1-{-# STDLIB_VERSION 5 #-}
1+{-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let usdn = base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'
4+let usdnId = base58'8UrfDVd5GreeUwm7uPk7eYz1eMv376kzR52C6sANPkwS'
55
6-let usdnTest = "Succesfully determined tci id"
6+let usdnIdStr = "8UrfDVd5GreeUwm7uPk7eYz1eMv376kzR52C6sANPkwS"
77
8-let waves = base58'WAVES'
8+let puzzleId = base58'7Y96UTbBQ45cjWoHeFj2EhnjdgEt6iK2LnA4eTcfxdoD'
99
10-let wavesTest = "Succesfully determined tci id"
10+let puzzleIdStr = "7Y96UTbBQ45cjWoHeFj2EhnjdgEt6iK2LnA4eTcfxdoD"
1111
12-let usdcUsdnLP = base58'EK6N7S38xbtBT3SxAqoGdDLCiX6rojX6G169CnSyuE5'
12+let Scale = 1000000000000
1313
14-let usdcUsdnLPTCI = base58'HZKFpNfyPG5gt4D6Nfy1zQSg2Ptmqv932GjNTCyBEeKP'
14+func tryGetInteger (key) = match getInteger(this, key) {
15+ case b: Int =>
16+ b
17+ case _ =>
18+ 0
19+}
1520
16-let usdcUsdtLP = base58'EPhdEfmQaNcHyvDmRGhnLhgcJtKZ2a4k3ZBmKWtAEWyH'
1721
18-let usdcUsdtLPTCI = base58'BqPYkaiz7Le6fFu1rjZ54anrpT57EpvyugZCUqrsjXj'
22+func tryGetString (key) = match getString(this, key) {
23+ case a: String =>
24+ a
25+ case _ =>
26+ ""
27+}
1928
20-let puzzleUsdnLP = base58'E8zHu33GfcNyGLypX77gZiUXfvuZQeaYmiEfsy7VYNwP'
2129
22-let puzzleUsdnLPTCI = base58'Dh9QXSSABE5V6aRfu3mCbDAUokbpE7ER7pbZV6cvyg1A'
30+func claimAliasResult (address,assetIdStr) = {
31+ let addressStr = toString(address)
32+ let currentInterest = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_interest"))
33+ let stakedAmount = tryGetInteger((addressStr + "_staked"))
34+ let lastCheckInterestInState = tryGetInteger((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"))
35+ let lastCheckInterest = if ((lastCheckInterestInState == 0))
36+ then 0
37+ else lastCheckInterestInState
38+ let reward = fraction((currentInterest - lastCheckInterest), stakedAmount, Scale)
39+[IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentInterest), IntegerEntry((((addressStr + "_") + assetIdStr) + "_claimed"), (tryGetInteger((((addressStr + "_") + assetIdStr) + "_claimed")) + reward)), ScriptTransfer(address, reward, fromBase58String(assetIdStr))]
40+ }
2341
24-func getTciId (id) = if ((id == usdn))
25- then usdnTest
26- else if ((id == waves))
27- then wavesTest
28- else throw("invalid asset")
42+
43+func claimResult (address) = (claimAliasResult(address, usdnIdStr) ++ claimAliasResult(address, puzzleIdStr))
2944
3045
3146 @Callable(i)
32-func deposit () = {
33- let assetId = i.payments[0].assetId
34- let pmtAmount = value(i.payments[0]).amount
35- let tciId = getTciId(assetId)
36-[StringEntry("test", tciId)]
47+func stake () = {
48+ let amount = i.payments[0].amount
49+ let addressStr = toString(i.caller)
50+ let assetIdStr = toBase58String(usdnId)
51+ let totalStakedAmount = tryGetInteger("global_staked")
52+ if ((i.payments[0].assetId != puzzleId))
53+ then throw("wrong asset attached")
54+ else (claimResult(i.caller) ++ [IntegerEntry("global_staked", (totalStakedAmount + amount)), IntegerEntry((addressStr + "_staked"), (tryGetInteger((addressStr + "_staked")) + amount))])
55+ }
56+
57+
58+
59+@Callable(i)
60+func unStake (amount) = {
61+ let addressStr = toString(i.caller)
62+ let stakedAmount = tryGetInteger((addressStr + "_staked"))
63+ if ((amount > stakedAmount))
64+ then throw("you don't have tokens available")
65+ else (claimResult(i.caller) ++ [IntegerEntry((addressStr + "_staked"), (stakedAmount - amount)), IntegerEntry("global_staked", (tryGetInteger("global_staked") - amount)), ScriptTransfer(i.caller, amount, puzzleId)])
66+ }
67+
68+
69+
70+@Callable(i)
71+func claimReward () = claimResult(i.caller)
72+
73+
74+
75+@Callable(i)
76+func topUpReward () = {
77+ let pmtAsset = value(i.payments[0].assetId)
78+ let pmtAmount = i.payments[0].amount
79+ let amount = if ((pmtAsset == puzzleId))
80+ then 0
81+ else if ((pmtAsset == usdnId))
82+ then pmtAmount
83+ else throw("not correct asset attached")
84+ if ((amount == amount))
85+ then {
86+ let currentInterest = tryGetInteger((("global_lastCheck_" + usdnIdStr) + "_interest"))
87+ let totalStakedAmount = tryGetInteger("global_staked")
88+ let interestDelta = if ((totalStakedAmount > 0))
89+ then fraction(amount, Scale, totalStakedAmount)
90+ else 0
91+ if ((pmtAsset != puzzleId))
92+ then $Tuple2([IntegerEntry((("global_" + usdnIdStr) + "_earnings"), (tryGetInteger((("global_" + usdnIdStr) + "_earnings")) + amount)), IntegerEntry((("global_lastCheck_" + usdnIdStr) + "_interest"), (currentInterest + interestDelta))], amount)
93+ else nil
94+ }
95+ else throw("Strict value is not equal to itself.")
3796 }
3897
3998
4099 @Verifier(tx)
41100 func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
42101

github/deemru/w8io/3ef1775 
109.82 ms