tx · 3yA1EuqYkrXyJZh5XbKiYtGssX6WEaWCkJv5G6uJ1v1S

3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz:  -0.14000000 Waves

2022.12.15 18:04 [2361578] smart account 3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz > SELF 0.00000000 Waves

{ "type": 13, "id": "3yA1EuqYkrXyJZh5XbKiYtGssX6WEaWCkJv5G6uJ1v1S", "fee": 14000000, "feeAssetId": null, "timestamp": 1671116720715, "version": 2, "chainId": 84, "sender": "3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz", "senderPublicKey": "C3v9sfZTmGuW7YXwjUKypU41QpFcHCoJxLpvdR4d3iSv", "proofs": [ "5JcJWD2jGoVM44FXvL7svPn4xxwbucCGctQerKyVmYkPG6qgw4VmpAYDqWZqqscaTZzTRFBu9dsp3KTgQ7uAXx5f", "41ZXpAuNFAuKFGYbXEhRTieK7q8uzScjqXVH69RCMdVouAjM27gJzSbtx9LosEQEjN1Ci9N4phL9w1h3TJY77Gm3" ], "script": "base64:BgIhCAISBAoCAQgSBAoCCAgSAwoBBBIDCgEIEgMKAQgSABIAEwAPa1ByZWZpeFBvb2xOYW1lAgVwb29sXwAFa1BhaXICBXBhaXJfAAlrQXNzZXRJZEECCkFfYXNzZXRfaWQACWtBc3NldElkQgIKQl9hc3NldF9pZAAfa0xhdW5jaHBhZERhdGFUcmFuc2FjdGlvblN0YXR1cwIhbGF1bmNocGFkX2RhdGFfdHJhbnNhY3Rpb25fc3RhdHVzABNrQWN0aXZlQWxsQ29udHJhY3RzAhRhY3RpdmVfYWxsX2NvbnRyYWN0cwAMa0FkbWluUHViS2V5AgphZG1pbl9wdWJfAA1rQWRtaW5QdWJLZXkxAgthZG1pbl9wdWJfMQANa0FkbWluUHViS2V5MgILYWRtaW5fcHViXzIADWtBZG1pblB1YktleTMCC2FkbWluX3B1Yl8zABRrQWNoaWV2ZW1lbnRzV3JpdGVycwIUYWNoaWV2ZW1lbnRzX3dyaXRlcnMADGFkbWluUHViS2V5MQkA2QQBCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzBQ1rQWRtaW5QdWJLZXkxAAxhZG1pblB1YktleTIJANkEAQkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwUNa0FkbWluUHViS2V5MgAMYWRtaW5QdWJLZXkzCQDZBAEJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMFDWtBZG1pblB1YktleTMAEmFjdGl2ZUFsbENvbnRyYWN0cwkBEUBleHRyTmF0aXZlKDEwNTEpAgUEdGhpcwUTa0FjdGl2ZUFsbENvbnRyYWN0cwEKaXNTZWxmQ2FsbAEBaQMJAAACCAUBaQZjYWxsZXIFBHRoaXMFBHVuaXQJAAIBAi9Pbmx5IHRoZSBPcmFjbGUgaXRzZWxmIGNhbiBpbnZva2UgdGhpcyBmdW5jdGlvbgELZ2V0UG9vbFR5cGUBC3Bvb2xBZGRyZXNzBAd2ZXJzaW9uCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgULcG9vbEFkZHJlc3MCB3ZlcnNpb24CF1Bvb2wgaXMgbm90IGluaXRpYWxpemVkAwkAAAIFB3ZlcnNpb24CBTEuMC4wAgRjcG1tAwkAAAIFB3ZlcnNpb24CBTIuMC4wAgRmbGF0AwkAAAIFB3ZlcnNpb24CBTMuMC4wAgptdWx0eWN1cnZlCQACAQIXVW5rbm93biB2ZXJzaW9uIG9mIHBvb2wBEWdldEFkZHJlc3NJZlZhbGlkAQdhZGRyZXNzCQClCAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBBQdhZGRyZXNzCQCsAgIJAKwCAgINQ2FuJ3QgcGFyc2UgIgUHYWRkcmVzcwIMIiBhcyBhZGRyZXNzAQtpc0FkbWluQ2FsbAEBaQMJAQ9jb250YWluc0VsZW1lbnQCCQDMCAIFDGFkbWluUHViS2V5MQkAzAgCBQxhZG1pblB1YktleTIJAMwIAgUMYWRtaW5QdWJLZXkzBQNuaWwIBQFpD2NhbGxlclB1YmxpY0tleQUEdW5pdAkAAgECIU9ubHkgYWRtaW4gY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgcBaQEIc2V0QWRtaW4CB2FkbWluSWQLYWRtaW5QdWJLZXkJAQt2YWx1ZU9yRWxzZQIJAQppc1NlbGZDYWxsAQUBaQMDCQBmAgAABQdhZG1pbklkCQBmAgUHYWRtaW5JZAADBwkAAgECDldyb25nIGFkbWluIGlkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUMa0FkbWluUHViS2V5CQCkAwEFB2FkbWluSWQFC2FkbWluUHViS2V5BQNuaWwBaQEHYWRkUG9vbAILcG9vbEFkZHJlc3MIcG9vbE5hbWUJAQt2YWx1ZU9yRWxzZQIJAQtpc0FkbWluQ2FsbAEFAWkEEHZhbGlkYXRlZEFkZHJlc3MJARFnZXRBZGRyZXNzSWZWYWxpZAEFC3Bvb2xBZGRyZXNzBAdrZXlOYW1lCQCsAgIFD2tQcmVmaXhQb29sTmFtZQUQdmFsaWRhdGVkQWRkcmVzcwQYcG9zc2libHlBbHJlYWR5QWRkZWRQb29sCQCdCAIFBHRoaXMFB2tleU5hbWUDCQEJaXNEZWZpbmVkAQUYcG9zc2libHlBbHJlYWR5QWRkZWRQb29sCQACAQkArAICCQCsAgIJAKwCAgkArAICAhNQb29sIHdpdGggYWRkcmVzcyAiBRB2YWxpZGF0ZWRBZGRyZXNzAiAiIGlzIGFscmVhZHkgZGVmaW5lZCB3aXRoIG5hbWUgIgkBBXZhbHVlAQUYcG9zc2libHlBbHJlYWR5QWRkZWRQb29sAgEiCQDOCAIJAMwIAgkBC1N0cmluZ0VudHJ5AgUHa2V5TmFtZQUIcG9vbE5hbWUFA25pbAMJAAACCQELZ2V0UG9vbFR5cGUBCQEFdmFsdWUBCQCmCAEFC3Bvb2xBZGRyZXNzAgptdWx0eWN1cnZlBQNuaWwECGFzc2V0SWRBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgkBBXZhbHVlAQkApggBBQtwb29sQWRkcmVzcwUJa0Fzc2V0SWRBAhdBc3NldCBpZCBBIGlzIGluY29ycmVjdAQIYXNzZXRJZEIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCCQEFdmFsdWUBCQCmCAEFC3Bvb2xBZGRyZXNzBQlrQXNzZXRJZEICF0Fzc2V0IGlkIEIgaXMgaW5jb3JyZWN0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgIFBWtQYWlyBQhhc3NldElkQQIBXwUIYXNzZXRJZEIFC3Bvb2xBZGRyZXNzBQNuaWwBaQEebGF1bmNocGFkRGF0YVRyYW5zYWN0aW9uU3RhdHVzAQZzdGF0dXMJAQt2YWx1ZU9yRWxzZQIJAQtpc0FkbWluQ2FsbAEFAWkJAMwIAgkBDEJvb2xlYW5FbnRyeQIFH2tMYXVuY2hwYWREYXRhVHJhbnNhY3Rpb25TdGF0dXMFBnN0YXR1cwUDbmlsAWkBFWFkZEFjaGlldmVtZW50c1dyaXRlcgEHYWRkcmVzcwkBC3ZhbHVlT3JFbHNlAgkBC2lzQWRtaW5DYWxsAQUBaQQHd3JpdGVycwkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzBRRrQWNoaWV2ZW1lbnRzV3JpdGVycwIABARkYXRhAwkAAAIFB3dyaXRlcnMCAAUDbmlsCQC1CQIFB3dyaXRlcnMCASwJAMwIAgkBC1N0cmluZ0VudHJ5AgUUa0FjaGlldmVtZW50c1dyaXRlcnMJALkJAgkAzQgCBQRkYXRhBQdhZGRyZXNzAgEsBQNuaWwBaQEYcmVtb3ZlQWNoaWV2ZW1lbnRzV3JpdGVyAQdhZGRyZXNzCQELdmFsdWVPckVsc2UCCQELaXNBZG1pbkNhbGwBBQFpBAd3cml0ZXJzCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwUUa0FjaGlldmVtZW50c1dyaXRlcnMCAAIBLAQFaW5kZXgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAzwgCBQd3cml0ZXJzBQdhZGRyZXNzAh5DYW4ndCBmaW5kIGFkZHJlc3MgaW4gdGhlIGxpc3QJAMwIAgkBC1N0cmluZ0VudHJ5AgUUa0FjaGlldmVtZW50c1dyaXRlcnMJALkJAgkA0QgCBQd3cml0ZXJzBQVpbmRleAIBLAUDbmlsAWkBFHNodXRkb3duQWxsQ29udHJhY3RzAAkBC3ZhbHVlT3JFbHNlAgkBC2lzQWRtaW5DYWxsAQUBaQMJAQEhAQUSYWN0aXZlQWxsQ29udHJhY3RzCQACAQIeQWxsIGNvbnRyYWN0cyBhbHJlYWR5IHNodXRkb3duCQDMCAIJAQxCb29sZWFuRW50cnkCBRNrQWN0aXZlQWxsQ29udHJhY3RzBwUDbmlsAWkBFGFjdGl2YXRlQWxsQ29udHJhY3RzAAkBC3ZhbHVlT3JFbHNlAgkBC2lzQWRtaW5DYWxsAQUBaQMFEmFjdGl2ZUFsbENvbnRyYWN0cwkAAgECHEFsbCBjb250cmFjdHMgYWxyZWFkeSBhY3RpdmUJAMwIAgkBDEJvb2xlYW5FbnRyeQIFE2tBY3RpdmVBbGxDb250cmFjdHMGBQNuaWwBAnR4AQZ2ZXJpZnkABBJhZG1pblB1YktleTFTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQxhZG1pblB1YktleTEAAQAABBJhZG1pblB1YktleTJTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwABBQxhZG1pblB1YktleTIAAQAABBJhZG1pblB1YktleTNTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwACBQxhZG1pblB1YktleTMAAQAACQBnAgkAZAIJAGQCBRJhZG1pblB1YktleTFTaWduZWQFEmFkbWluUHViS2V5MlNpZ25lZAUSYWRtaW5QdWJLZXkzU2lnbmVkAALx0cxr", "height": 2361578, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: 2KzffYLLdDPu6L12mnejYehEXPNSe4gvi4PFcQUEVP8t Next: BxcDeKntCMNSJJsxTJN7uMfyupWa9QFPJeA9DcGUKcgg Diff:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let oracle = Address(base58'3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz')
4+let kPrefixPoolName = "pool_"
55
6-func getBase58FromOracle (key) = match getString(oracle, key) {
7- case string: String =>
8- fromBase58String(string)
9- case nothing =>
10- throw((key + "is empty"))
11-}
6+let kPair = "pair_"
127
8+let kAssetIdA = "A_asset_id"
9+
10+let kAssetIdB = "B_asset_id"
11+
12+let kLaunchpadDataTransactionStatus = "launchpad_data_transaction_status"
13+
14+let kActiveAllContracts = "active_all_contracts"
15+
16+let kAdminPubKey = "admin_pub_"
1317
1418 let kAdminPubKey1 = "admin_pub_1"
1519
1721
1822 let kAdminPubKey3 = "admin_pub_3"
1923
20-let kAdminInvokePubKey = "admin_invoke_pub"
24+let kAchievementsWriters = "achievements_writers"
2125
22-let kGovAddress = "governance_address"
26+let adminPubKey1 = fromBase58String(getStringValue(this, kAdminPubKey1))
2327
24-let kFarmAddress = "farming_address"
28+let adminPubKey2 = fromBase58String(getStringValue(this, kAdminPubKey2))
2529
26-let kSurveysAddress = "surveys_address"
30+let adminPubKey3 = fromBase58String(getStringValue(this, kAdminPubKey3))
2731
28-let kRoutingAddr = "routing_address"
32+let activeAllContracts = getBooleanValue(this, kActiveAllContracts)
2933
30-let adminPubKey1 = getBase58FromOracle(kAdminPubKey1)
34+func isSelfCall (i) = if ((i.caller == this))
35+ then unit
36+ else throw("Only the Oracle itself can invoke this function")
3137
32-let adminPubKey2 = getBase58FromOracle(kAdminPubKey2)
3338
34-let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
39+func getPoolType (poolAddress) = {
40+ let version = valueOrErrorMessage(getString(poolAddress, "version"), "Pool is not initialized")
41+ if ((version == "1.0.0"))
42+ then "cpmm"
43+ else if ((version == "2.0.0"))
44+ then "flat"
45+ else if ((version == "3.0.0"))
46+ then "multycurve"
47+ else throw("Unknown version of pool")
48+ }
3549
36-let adminInvoke = getBase58FromOracle(kAdminInvokePubKey)
3750
38-let governanceAddress = Address(getBase58FromOracle(kGovAddress))
51+func getAddressIfValid (address) = toString(valueOrErrorMessage(addressFromString(address), (("Can't parse \"" + address) + "\" as address")))
3952
40-let farmingAddress = Address(getBase58FromOracle(kFarmAddress))
4153
42-let surveysAddress = Address(getBase58FromOracle(kSurveysAddress))
54+func isAdminCall (i) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
55+ then unit
56+ else throw("Only admin can call this function")
4357
44-let routingAddress = Address(getBase58FromOracle(kRoutingAddr))
4558
46-let keyPrefixPoolName = "pool_"
59+@Callable(i)
60+func setAdmin (adminId,adminPubKey) = valueOrElse(isSelfCall(i), if (if ((0 > adminId))
61+ then (adminId > 3)
62+ else false)
63+ then throw("Wrong admin id")
64+ else [StringEntry((kAdminPubKey + toString(adminId)), adminPubKey)])
65+
66+
67+
68+@Callable(i)
69+func addPool (poolAddress,poolName) = valueOrElse(isAdminCall(i), {
70+ let validatedAddress = getAddressIfValid(poolAddress)
71+ let keyName = (kPrefixPoolName + validatedAddress)
72+ let possiblyAlreadyAddedPool = getString(this, keyName)
73+ if (isDefined(possiblyAlreadyAddedPool))
74+ then throw((((("Pool with address \"" + validatedAddress) + "\" is already defined with name \"") + value(possiblyAlreadyAddedPool)) + "\""))
75+ else ([StringEntry(keyName, poolName)] ++ (if ((getPoolType(value(addressFromString(poolAddress))) == "multycurve"))
76+ then nil
77+ else {
78+ let assetIdA = valueOrErrorMessage(getString(value(addressFromString(poolAddress)), kAssetIdA), "Asset id A is incorrect")
79+ let assetIdB = valueOrErrorMessage(getString(value(addressFromString(poolAddress)), kAssetIdB), "Asset id B is incorrect")
80+[StringEntry((((kPair + assetIdA) + "_") + assetIdB), poolAddress)]
81+ }))
82+ })
83+
84+
85+
86+@Callable(i)
87+func launchpadDataTransactionStatus (status) = valueOrElse(isAdminCall(i), [BooleanEntry(kLaunchpadDataTransactionStatus, status)])
88+
89+
90+
91+@Callable(i)
92+func addAchievementsWriter (address) = valueOrElse(isAdminCall(i), {
93+ let writers = valueOrElse(getString(this, kAchievementsWriters), "")
94+ let data = if ((writers == ""))
95+ then nil
96+ else split(writers, ",")
97+[StringEntry(kAchievementsWriters, makeString((data :+ address), ","))]
98+ })
99+
100+
101+
102+@Callable(i)
103+func removeAchievementsWriter (address) = valueOrElse(isAdminCall(i), {
104+ let writers = split(valueOrElse(getString(this, kAchievementsWriters), ""), ",")
105+ let index = valueOrErrorMessage(indexOf(writers, address), "Can't find address in the list")
106+[StringEntry(kAchievementsWriters, makeString(removeByIndex(writers, index), ","))]
107+ })
108+
109+
110+
111+@Callable(i)
112+func shutdownAllContracts () = valueOrElse(isAdminCall(i), if (!(activeAllContracts))
113+ then throw("All contracts already shutdown")
114+ else [BooleanEntry(kActiveAllContracts, false)])
115+
116+
117+
118+@Callable(i)
119+func activateAllContracts () = valueOrElse(isAdminCall(i), if (activeAllContracts)
120+ then throw("All contracts already active")
121+ else [BooleanEntry(kActiveAllContracts, true)])
47122
48123
49124 @Verifier(tx)
50-func verify () = match tx {
51- case inv: InvokeScriptTransaction =>
52- let isRoutingCall = if ((inv.dApp == routingAddress))
53- then (inv.function == "routingTrade")
54- else false
55- let isExchangeCallCPMM = if (if (isDefined(getString(oracle, (keyPrefixPoolName + toString(addressFromRecipient(inv.dApp))))))
56- then (inv.function == "callFunction")
57- else false)
58- then (inv.args[0] == "exchange")
59- else false
60- let isExchangeCall = if (isDefined(getString(oracle, (keyPrefixPoolName + toString(addressFromRecipient(inv.dApp))))))
61- then (inv.function == "exchange")
62- else false
63- let isAirdropCall = if ((inv.dApp == governanceAddress))
64- then (inv.function == "airDrop")
65- else false
66- let isUpdateWeightsCall = if ((inv.dApp == governanceAddress))
67- then (inv.function == "updateWeights")
68- else false
69- let isUpdatePoolInterest = if ((inv.dApp == farmingAddress))
70- then (inv.function == "updatePoolInterest")
71- else false
72- let isTakenIntoAccountCPMM = if (if (isDefined(getString(oracle, (keyPrefixPoolName + toString(addressFromRecipient(inv.dApp))))))
73- then (inv.function == "callFunction")
74- else false)
75- then (inv.args[0] == "takeIntoAccountExtraFunds")
76- else false
77- let isTakenIntoAccount = if (isDefined(getString(oracle, (keyPrefixPoolName + toString(addressFromRecipient(inv.dApp))))))
78- then (inv.function == "takeIntoAccountExtraFunds")
79- else false
80- let isWriteTotal = if ((inv.dApp == surveysAddress))
81- then (inv.function == "writeTotals")
82- else false
83- let signedByAdmin = sigVerify(tx.bodyBytes, tx.proofs[0], adminInvoke)
84- if (if (if (if (if (if (isExchangeCall)
85- then true
86- else isExchangeCallCPMM)
87- then true
88- else isAirdropCall)
89- then true
90- else isRoutingCall)
91- then (size(inv.payments) == 1)
92- else false)
93- then true
94- else if (if (if (if (if (isUpdateWeightsCall)
95- then true
96- else isUpdatePoolInterest)
97- then true
98- else isTakenIntoAccount)
99- then true
100- else isTakenIntoAccountCPMM)
101- then true
102- else isWriteTotal)
103- then (size(inv.payments) == 0)
104- else false)
105- then signedByAdmin
106- else false
107- case _ =>
108- let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
109- then 1
110- else 0
111- let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
112- then 1
113- else 0
114- let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
115- then 1
116- else 0
117- (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
118-}
125+func verify () = {
126+ let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
127+ then 1
128+ else 0
129+ let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
130+ then 1
131+ else 0
132+ let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
133+ then 1
134+ else 0
135+ (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
136+ }
119137
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let oracle = Address(base58'3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz')
4+let kPrefixPoolName = "pool_"
55
6-func getBase58FromOracle (key) = match getString(oracle, key) {
7- case string: String =>
8- fromBase58String(string)
9- case nothing =>
10- throw((key + "is empty"))
11-}
6+let kPair = "pair_"
127
8+let kAssetIdA = "A_asset_id"
9+
10+let kAssetIdB = "B_asset_id"
11+
12+let kLaunchpadDataTransactionStatus = "launchpad_data_transaction_status"
13+
14+let kActiveAllContracts = "active_all_contracts"
15+
16+let kAdminPubKey = "admin_pub_"
1317
1418 let kAdminPubKey1 = "admin_pub_1"
1519
1620 let kAdminPubKey2 = "admin_pub_2"
1721
1822 let kAdminPubKey3 = "admin_pub_3"
1923
20-let kAdminInvokePubKey = "admin_invoke_pub"
24+let kAchievementsWriters = "achievements_writers"
2125
22-let kGovAddress = "governance_address"
26+let adminPubKey1 = fromBase58String(getStringValue(this, kAdminPubKey1))
2327
24-let kFarmAddress = "farming_address"
28+let adminPubKey2 = fromBase58String(getStringValue(this, kAdminPubKey2))
2529
26-let kSurveysAddress = "surveys_address"
30+let adminPubKey3 = fromBase58String(getStringValue(this, kAdminPubKey3))
2731
28-let kRoutingAddr = "routing_address"
32+let activeAllContracts = getBooleanValue(this, kActiveAllContracts)
2933
30-let adminPubKey1 = getBase58FromOracle(kAdminPubKey1)
34+func isSelfCall (i) = if ((i.caller == this))
35+ then unit
36+ else throw("Only the Oracle itself can invoke this function")
3137
32-let adminPubKey2 = getBase58FromOracle(kAdminPubKey2)
3338
34-let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
39+func getPoolType (poolAddress) = {
40+ let version = valueOrErrorMessage(getString(poolAddress, "version"), "Pool is not initialized")
41+ if ((version == "1.0.0"))
42+ then "cpmm"
43+ else if ((version == "2.0.0"))
44+ then "flat"
45+ else if ((version == "3.0.0"))
46+ then "multycurve"
47+ else throw("Unknown version of pool")
48+ }
3549
36-let adminInvoke = getBase58FromOracle(kAdminInvokePubKey)
3750
38-let governanceAddress = Address(getBase58FromOracle(kGovAddress))
51+func getAddressIfValid (address) = toString(valueOrErrorMessage(addressFromString(address), (("Can't parse \"" + address) + "\" as address")))
3952
40-let farmingAddress = Address(getBase58FromOracle(kFarmAddress))
4153
42-let surveysAddress = Address(getBase58FromOracle(kSurveysAddress))
54+func isAdminCall (i) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
55+ then unit
56+ else throw("Only admin can call this function")
4357
44-let routingAddress = Address(getBase58FromOracle(kRoutingAddr))
4558
46-let keyPrefixPoolName = "pool_"
59+@Callable(i)
60+func setAdmin (adminId,adminPubKey) = valueOrElse(isSelfCall(i), if (if ((0 > adminId))
61+ then (adminId > 3)
62+ else false)
63+ then throw("Wrong admin id")
64+ else [StringEntry((kAdminPubKey + toString(adminId)), adminPubKey)])
65+
66+
67+
68+@Callable(i)
69+func addPool (poolAddress,poolName) = valueOrElse(isAdminCall(i), {
70+ let validatedAddress = getAddressIfValid(poolAddress)
71+ let keyName = (kPrefixPoolName + validatedAddress)
72+ let possiblyAlreadyAddedPool = getString(this, keyName)
73+ if (isDefined(possiblyAlreadyAddedPool))
74+ then throw((((("Pool with address \"" + validatedAddress) + "\" is already defined with name \"") + value(possiblyAlreadyAddedPool)) + "\""))
75+ else ([StringEntry(keyName, poolName)] ++ (if ((getPoolType(value(addressFromString(poolAddress))) == "multycurve"))
76+ then nil
77+ else {
78+ let assetIdA = valueOrErrorMessage(getString(value(addressFromString(poolAddress)), kAssetIdA), "Asset id A is incorrect")
79+ let assetIdB = valueOrErrorMessage(getString(value(addressFromString(poolAddress)), kAssetIdB), "Asset id B is incorrect")
80+[StringEntry((((kPair + assetIdA) + "_") + assetIdB), poolAddress)]
81+ }))
82+ })
83+
84+
85+
86+@Callable(i)
87+func launchpadDataTransactionStatus (status) = valueOrElse(isAdminCall(i), [BooleanEntry(kLaunchpadDataTransactionStatus, status)])
88+
89+
90+
91+@Callable(i)
92+func addAchievementsWriter (address) = valueOrElse(isAdminCall(i), {
93+ let writers = valueOrElse(getString(this, kAchievementsWriters), "")
94+ let data = if ((writers == ""))
95+ then nil
96+ else split(writers, ",")
97+[StringEntry(kAchievementsWriters, makeString((data :+ address), ","))]
98+ })
99+
100+
101+
102+@Callable(i)
103+func removeAchievementsWriter (address) = valueOrElse(isAdminCall(i), {
104+ let writers = split(valueOrElse(getString(this, kAchievementsWriters), ""), ",")
105+ let index = valueOrErrorMessage(indexOf(writers, address), "Can't find address in the list")
106+[StringEntry(kAchievementsWriters, makeString(removeByIndex(writers, index), ","))]
107+ })
108+
109+
110+
111+@Callable(i)
112+func shutdownAllContracts () = valueOrElse(isAdminCall(i), if (!(activeAllContracts))
113+ then throw("All contracts already shutdown")
114+ else [BooleanEntry(kActiveAllContracts, false)])
115+
116+
117+
118+@Callable(i)
119+func activateAllContracts () = valueOrElse(isAdminCall(i), if (activeAllContracts)
120+ then throw("All contracts already active")
121+ else [BooleanEntry(kActiveAllContracts, true)])
47122
48123
49124 @Verifier(tx)
50-func verify () = match tx {
51- case inv: InvokeScriptTransaction =>
52- let isRoutingCall = if ((inv.dApp == routingAddress))
53- then (inv.function == "routingTrade")
54- else false
55- let isExchangeCallCPMM = if (if (isDefined(getString(oracle, (keyPrefixPoolName + toString(addressFromRecipient(inv.dApp))))))
56- then (inv.function == "callFunction")
57- else false)
58- then (inv.args[0] == "exchange")
59- else false
60- let isExchangeCall = if (isDefined(getString(oracle, (keyPrefixPoolName + toString(addressFromRecipient(inv.dApp))))))
61- then (inv.function == "exchange")
62- else false
63- let isAirdropCall = if ((inv.dApp == governanceAddress))
64- then (inv.function == "airDrop")
65- else false
66- let isUpdateWeightsCall = if ((inv.dApp == governanceAddress))
67- then (inv.function == "updateWeights")
68- else false
69- let isUpdatePoolInterest = if ((inv.dApp == farmingAddress))
70- then (inv.function == "updatePoolInterest")
71- else false
72- let isTakenIntoAccountCPMM = if (if (isDefined(getString(oracle, (keyPrefixPoolName + toString(addressFromRecipient(inv.dApp))))))
73- then (inv.function == "callFunction")
74- else false)
75- then (inv.args[0] == "takeIntoAccountExtraFunds")
76- else false
77- let isTakenIntoAccount = if (isDefined(getString(oracle, (keyPrefixPoolName + toString(addressFromRecipient(inv.dApp))))))
78- then (inv.function == "takeIntoAccountExtraFunds")
79- else false
80- let isWriteTotal = if ((inv.dApp == surveysAddress))
81- then (inv.function == "writeTotals")
82- else false
83- let signedByAdmin = sigVerify(tx.bodyBytes, tx.proofs[0], adminInvoke)
84- if (if (if (if (if (if (isExchangeCall)
85- then true
86- else isExchangeCallCPMM)
87- then true
88- else isAirdropCall)
89- then true
90- else isRoutingCall)
91- then (size(inv.payments) == 1)
92- else false)
93- then true
94- else if (if (if (if (if (isUpdateWeightsCall)
95- then true
96- else isUpdatePoolInterest)
97- then true
98- else isTakenIntoAccount)
99- then true
100- else isTakenIntoAccountCPMM)
101- then true
102- else isWriteTotal)
103- then (size(inv.payments) == 0)
104- else false)
105- then signedByAdmin
106- else false
107- case _ =>
108- let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
109- then 1
110- else 0
111- let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
112- then 1
113- else 0
114- let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
115- then 1
116- else 0
117- (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
118-}
125+func verify () = {
126+ let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
127+ then 1
128+ else 0
129+ let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
130+ then 1
131+ else 0
132+ let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
133+ then 1
134+ else 0
135+ (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
136+ }
119137

github/deemru/w8io/c3f4982 
29.92 ms