tx · 4Q3ViMPUf2Ufn8YTa93SEEQqqCaxdYnAfmThzfR5XHR3

3Mxdu4m4tstwdDbFGHeQhutMT8hnzYsEPdS:  -0.00400000 Waves

2024.10.02 16:23 [3309285] smart account 3Mxdu4m4tstwdDbFGHeQhutMT8hnzYsEPdS > SELF 0.00000000 Waves

{ "type": 13, "id": "4Q3ViMPUf2Ufn8YTa93SEEQqqCaxdYnAfmThzfR5XHR3", "fee": 400000, "feeAssetId": null, "timestamp": 1727875466812, "version": 2, "chainId": 84, "sender": "3Mxdu4m4tstwdDbFGHeQhutMT8hnzYsEPdS", "senderPublicKey": "G9rWED3PvHj7gka1akrtQgGMgNrXxmBwpF7nCWwkRfpY", "proofs": [ "4Hzo8iczhpyeQdkuigj59qPcMSAyRvWjSgCZofLiZj1WiE7q9FwqCaPretuvwiPaGrTRzo9bS8Yn18vDctbbaKw1" ], "script": "base64:BgIbCAISABIDCgEBEgQKAggBEgMKAQgSABIDCgEIFQEQd3JpdGVDb25zdFN0cmluZwIDa2V5BXZhbHVlAwkBASEBCQEJaXNEZWZpbmVkAQkAnQgCBQR0aGlzBQNrZXkJAQtTdHJpbmdFbnRyeQIFA2tleQUFdmFsdWUJAAIBCQCsAgICFWFscmVhZHkgaW5pdGlhbGl6ZWQ6IAUDa2V5AQh3cml0ZUludAIDa2V5BXZhbHVlAwkAZgIAAAUFdmFsdWUJAAIBCQCsAgIJAKwCAgkArAICAhd3cml0aW5nIG5lZ2F0aXZlIHZhbHVlIAkApAMBBQV2YWx1ZQIJIGZvciBrZXkgBQNrZXkJAQxJbnRlZ2VyRW50cnkCBQNrZXkFBXZhbHVlAQhjaGFuZ2VCeQIDa2V5BXZhbHVlCQEId3JpdGVJbnQCBQNrZXkJAGQCCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFA2tleQAABQV2YWx1ZQASY29uZmlnQWRkcmVzc1N0b3JlAgZjb25maWcABmNvbmZpZwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBRJjb25maWdBZGRyZXNzU3RvcmUCGGNvbmZpZyBhZGRyZXNzIG5vdCBmb3VuZAIWaW52YWxpZCBjb25maWcgYWRkcmVzcwAHdm91dGluZwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQZjb25maWcCD2NvbnRyYWN0X3ZvdGluZwIXY29udHJhY3Rfdm90aW5nIG5vdCBzZXQCH2ludmFsaWQgY29udHJhY3Rfdm90aW5nIGFkZHJlc3MBB2FsbG93ZWQBAm9wCQD8BwQFBmNvbmZpZwIJb3BBbGxvd2VkCQDMCAIFAm9wBQNuaWwFA25pbAAPdW5pdHNBc3NldElkU3RyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUGY29uZmlnAgt1bml0c19hc3NldAIVdW5pdHNfYXNzZXQgbm90IGZvdW5kAAx1bml0c0Fzc2V0SWQJANkEAQUPdW5pdHNBc3NldElkU3RyABVzdGFraW5nQWRkcmVzc2VzU3RvcmUCEHN0YWtpbmdBZGRyZXNzZXMAEHN0YWtpbmdBZGRyZXNzZXMJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUGY29uZmlnBRVzdGFraW5nQWRkcmVzc2VzU3RvcmUCAAELc3Rha2VkU3RvcmUBB2FkZHJlc3MJAKwCAgIHc3Rha2VkXwUHYWRkcmVzcwEJbG9ja0Jsb2NrAQdhZGRyZXNzCQCsAgICC2Jsb2NrX2xvY2tfBQdhZGRyZXNzAQt1bmxvY2tCbG9jawEHYWRkcmVzcwkArAICAg1ibG9ja191bmxvY2tfBQdhZGRyZXNzAQZzdGFrZWQBB2FkZHJlc3MJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkBC3N0YWtlZFN0b3JlAQUHYWRkcmVzcwAAABB0b3RhbFN0YWtlZFN0b3JlAgxzdGFrZWRfdG90YWwAC3RvdGFsU3Rha2VkCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFEHRvdGFsU3Rha2VkU3RvcmUAAAALbWluTG9ja1RpbWUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQZjb25maWcJAKwCAgkApQgBBQR0aGlzAhBfbWluX2xvY2tfYmxvY2tzAhhfbWluX2xvY2tfYmxvY2tzIG5vdCBzZXQABkhFSUdIVAUGaGVpZ2h0AQZhZHZpc2UACQCsAgIJAKwCAgkArAICAghoZWlnaHQ6IAkApAMBBQZIRUlHSFQCECwgdG90YWxfc3Rha2VkOiAJAKQDAQULdG90YWxTdGFrZWQBCmFkdmlzZVVzZXIBB2FjY291bnQECnVzZXJTdGFrZWQJAQZzdGFrZWQBBQdhY2NvdW50CQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAghoZWlnaHQ6IAkApAMBBQZIRUlHSFQCCywgYWNjb3VudDogBQdhY2NvdW50AgosIHN0YWtlZDogCQCkAwEFCnVzZXJTdGFrZWQDCQAAAgUKdXNlclN0YWtlZAAAAiIsIGxvY2tfYmxvY2s6IC0xLCB1bmxvY2tfYmxvY2s6IC0xCQCsAgIJAKwCAgkArAICAg4sIGxvY2tfYmxvY2s6IAkApAMBCQERQGV4dHJOYXRpdmUoMTA1NSkBCQEJbG9ja0Jsb2NrAQUHYWNjb3VudAIQLCB1bmxvY2tfYmxvY2s6IAkApAMBCQERQGV4dHJOYXRpdmUoMTA1NSkBCQELdW5sb2NrQmxvY2sBBQdhY2NvdW50BgFpAQVzdGFrZQAEAWEJAQdhbGxvd2VkAQIFc3Rha2UDCQAAAgUBYQUBYQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECGXNpbmdsZSBwYXltZW50IGlzIGFsbG93ZWQDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFDHVuaXRzQXNzZXRJZAkAAgECFWludmFsaWQgcGF5bWVudCBhc3NldAQEdXNlcgkApQgBCAUBaQZjYWxsZXIECnVzZXJTdGFrZWQJAQtzdGFrZWRTdG9yZQEFBHVzZXIED2FkZGl0aW9uYWxTdGFrZQgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQJAMwIAgkBCGNoYW5nZUJ5AgUKdXNlclN0YWtlZAUPYWRkaXRpb25hbFN0YWtlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEJbG9ja0Jsb2NrAQUEdXNlcgUGSEVJR0hUCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQELdW5sb2NrQmxvY2sBBQR1c2VyCQBkAgUGSEVJR0hUBQttaW5Mb2NrVGltZQkAzAgCCQEIY2hhbmdlQnkCBRB0b3RhbFN0YWtlZFN0b3JlBQ9hZGRpdGlvbmFsU3Rha2UFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQd1bnN0YWtlAQZhbW91bnQEAWEJAQdhbGxvd2VkAQIHdW5zdGFrZQMJAAACBQFhBQFhAwkAZwIAAAUGYW1vdW50CQACAQIZYW1vdW50IHNob3VsZCBiZSBwb3NpdGl2ZQQEdXNlcgkApQgBCAUBaQZjYWxsZXIECnVzZXJTdGFrZWQJAQtzdGFrZWRTdG9yZQEFBHVzZXIEDHN0YWtlZEFtb3VudAkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwUKdXNlclN0YWtlZAMJAGcCAAAFDHN0YWtlZEFtb3VudAkAAgECDm5vdGhpbmcgc3Rha2VkBAx1bmxvY2tIZWlnaHQJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAQt1bmxvY2tCbG9jawEFBHVzZXIDCQBmAgUMdW5sb2NrSGVpZ2h0BQZIRUlHSFQJAAIBCQCsAgICEmxvY2tlZCB0aWxsIGJsb2NrIAkApAMBBQx1bmxvY2tIZWlnaHQJAM4IAgkAzAgCCQEIY2hhbmdlQnkCBRB0b3RhbFN0YWtlZFN0b3JlCQEBLQEFBmFtb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFBmFtb3VudAUMdW5pdHNBc3NldElkBQNuaWwDCQAAAgUMc3Rha2VkQW1vdW50BQZhbW91bnQJAMwIAgkBC0RlbGV0ZUVudHJ5AQUKdXNlclN0YWtlZAkAzAgCCQELRGVsZXRlRW50cnkBCQEJbG9ja0Jsb2NrAQUEdXNlcgkAzAgCCQELRGVsZXRlRW50cnkBCQELdW5sb2NrQmxvY2sBBQR1c2VyBQNuaWwJAMwIAgkBCGNoYW5nZUJ5AgUKdXNlclN0YWtlZAkBAS0BBQZhbW91bnQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQdsb2NrRm9yAgdhZGRyZXNzBnVubG9jawMJAQIhPQIIBQFpBmNhbGxlcgUHdm91dGluZwkAAgECBmRlbmllZAQNY3VycmVudFVubG9jawkBC3ZhbHVlT3JFbHNlAgkAnwgBCQELdW5sb2NrQmxvY2sBBQdhZGRyZXNzAAADCQBnAgUNY3VycmVudFVubG9jawUGdW5sb2NrBQNuaWwJAMwIAgkBDEludGVnZXJFbnRyeQIJAQt1bmxvY2tCbG9jawEFB2FkZHJlc3MFBnVubG9jawUDbmlsAWkBCXVzZXJTdGFrZQEHYWRkcmVzcwkAlAoCBQNuaWwJAQZzdGFrZWQBBQdhZGRyZXNzAWkBCnRvdGFsU3Rha2UACQCUCgIFA25pbAULdG90YWxTdGFrZWQBaQEEaW5pdAEEY29uZgkAzAgCCQEQd3JpdGVDb25zdFN0cmluZwIFEmNvbmZpZ0FkZHJlc3NTdG9yZQUEY29uZgUDbmlsAO1cMXY=", "height": 3309285, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: none Next: none Full:
OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 6 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+func writeConstString (key,value) = if (!(isDefined(getString(this, key))))
5+ then StringEntry(key, value)
6+ else throw(("already initialized: " + key))
7+
8+
9+func writeInt (key,value) = if ((0 > value))
10+ then throw(((("writing negative value " + toString(value)) + " for key ") + key))
11+ else IntegerEntry(key, value)
12+
13+
14+func changeBy (key,value) = writeInt(key, (valueOrElse(getInteger(this, key), 0) + value))
15+
16+
17+let configAddressStore = "config"
18+
19+let config = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(this, configAddressStore), "config address not found")), "invalid config address")
20+
21+let vouting = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(config, "contract_voting"), "contract_voting not set")), "invalid contract_voting address")
22+
23+func allowed (op) = invoke(config, "opAllowed", [op], nil)
24+
25+
26+let unitsAssetIdStr = valueOrErrorMessage(getString(config, "units_asset"), "units_asset not found")
27+
28+let unitsAssetId = fromBase58String(unitsAssetIdStr)
29+
30+let stakingAddressesStore = "stakingAddresses"
31+
32+let stakingAddresses = valueOrElse(getString(config, stakingAddressesStore), "")
33+
34+func stakedStore (address) = ("staked_" + address)
35+
36+
37+func lockBlock (address) = ("block_lock_" + address)
38+
39+
40+func unlockBlock (address) = ("block_unlock_" + address)
41+
42+
43+func staked (address) = valueOrElse(getInteger(this, stakedStore(address)), 0)
44+
45+
46+let totalStakedStore = "staked_total"
47+
48+let totalStaked = valueOrElse(getInteger(this, totalStakedStore), 0)
49+
50+let minLockTime = valueOrErrorMessage(getInteger(config, (toString(this) + "_min_lock_blocks")), "_min_lock_blocks not set")
51+
52+let HEIGHT = height
53+
54+func advise () = ((("height: " + toString(HEIGHT)) + ", total_staked: ") + toString(totalStaked))
55+
56+
57+func adviseUser (account) = {
58+ let userStaked = staked(account)
59+ (((((("height: " + toString(HEIGHT)) + ", account: ") + account) + ", staked: ") + toString(userStaked)) + (if ((userStaked == 0))
60+ then ", lock_block: -1, unlock_block: -1"
61+ else (((", lock_block: " + toString(getIntegerValue(lockBlock(account)))) + ", unlock_block: ") + toString(getIntegerValue(unlockBlock(account))))))
62+ }
63+
64+
65+@Callable(i)
66+func stake () = {
67+ let a = allowed("stake")
68+ if ((a == a))
69+ then if ((size(i.payments) != 1))
70+ then throw("single payment is allowed")
71+ else if ((i.payments[0].assetId != unitsAssetId))
72+ then throw("invalid payment asset")
73+ else {
74+ let user = toString(i.caller)
75+ let userStaked = stakedStore(user)
76+ let additionalStake = i.payments[0].amount
77+[changeBy(userStaked, additionalStake), IntegerEntry(lockBlock(user), HEIGHT), IntegerEntry(unlockBlock(user), (HEIGHT + minLockTime)), changeBy(totalStakedStore, additionalStake)]
78+ }
79+ else throw("Strict value is not equal to itself.")
80+ }
81+
82+
83+
84+@Callable(i)
85+func unstake (amount) = {
86+ let a = allowed("unstake")
87+ if ((a == a))
88+ then if ((0 >= amount))
89+ then throw("amount should be positive")
90+ else {
91+ let user = toString(i.caller)
92+ let userStaked = stakedStore(user)
93+ let stakedAmount = getIntegerValue(this, userStaked)
94+ if ((0 >= stakedAmount))
95+ then throw("nothing staked")
96+ else {
97+ let unlockHeight = getIntegerValue(unlockBlock(user))
98+ if ((unlockHeight > HEIGHT))
99+ then throw(("locked till block " + toString(unlockHeight)))
100+ else ([changeBy(totalStakedStore, -(amount)), ScriptTransfer(i.caller, amount, unitsAssetId)] ++ (if ((stakedAmount == amount))
101+ then [DeleteEntry(userStaked), DeleteEntry(lockBlock(user)), DeleteEntry(unlockBlock(user))]
102+ else [changeBy(userStaked, -(amount))]))
103+ }
104+ }
105+ else throw("Strict value is not equal to itself.")
106+ }
107+
108+
109+
110+@Callable(i)
111+func lockFor (address,unlock) = if ((i.caller != vouting))
112+ then throw("denied")
113+ else {
114+ let currentUnlock = valueOrElse(getInteger(unlockBlock(address)), 0)
115+ if ((currentUnlock >= unlock))
116+ then nil
117+ else [IntegerEntry(unlockBlock(address), unlock)]
118+ }
119+
120+
121+
122+@Callable(i)
123+func userStake (address) = $Tuple2(nil, staked(address))
124+
125+
126+
127+@Callable(i)
128+func totalStake () = $Tuple2(nil, totalStaked)
129+
130+
131+
132+@Callable(i)
133+func init (conf) = [writeConstString(configAddressStore, conf)]
134+
135+

github/deemru/w8io/c3f4982 
11.82 ms