tx · BK16UEKso3TVMY2PWjJCojwAF1tJU19KZ6k54TWsim43

3NBBWfzZtZtszaXbitTKnrB2xXwv26Bn7H9:  -0.01400000 Waves

2021.08.11 13:30 [1653586] smart account 3NBBWfzZtZtszaXbitTKnrB2xXwv26Bn7H9 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "BK16UEKso3TVMY2PWjJCojwAF1tJU19KZ6k54TWsim43",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1628677868587,
    "version": 2,
    "chainId": 84,
    "sender": "3NBBWfzZtZtszaXbitTKnrB2xXwv26Bn7H9",
    "senderPublicKey": "D1X9WatF6ARMCmm3jC4Ex5Wd5VQ3LY8i1xbHNqeHqeAa",
    "proofs": [
        "5RLdAzGdByzmPQ5oLB6wHUC3iuvappVaRAvHTjZgov9JnsvZYsMHyUQ4zg6VPw4dKmixneFpiPtM9FKbJQm9afSb",
        "5SBAeKVYH8YirZH5o8br31cdxZq8zNbnjgh74dCRE56g9HUUQaoTMvUUAe4dSurTDtm3UpSWDozde6ko8B7sUgwv"
    ],
    "script": "base64:AAIFAAAAAAAAABAIAhIAEgQKAggIEgQKAggIAAAAEwAAAAAQa2V5UG9vbHNMaXN0TmFtZQIAAAAFcG9vbHMAAAAAEWtleVByZWZpeFBvb2xOYW1lAgAAAAVwb29sXwAAAAASa2V5UHJlZml4UG9vbEluZGV4AgAAAAZpbmRleF8AAAAAEWtleUluaXRQb29sSGVpZ2h0AgAAABFpbml0X3Bvb2xfaGVpZ2h0XwAAAAASa2V5Q29uZmlybWVkQXNzZXRzAgAAABBjb25maXJtZWRfYXNzZXRzAAAAABBrZXlBc3NldFByaW9yaXR5AgAAAA9hc3NldF9wcmlvcml0eV8AAAAAB2tleVBhaXICAAAABXBhaXJfAAAAAAtrZXlBc3NldElkQQIAAAAKQV9hc3NldF9pZAAAAAALa2V5QXNzZXRJZEICAAAACkJfYXNzZXRfaWQAAAAAD2tleUFkbWluUHViS2V5MQIAAAALYWRtaW5fcHViXzEAAAAAD2tleUFkbWluUHViS2V5MgIAAAALYWRtaW5fcHViXzIAAAAAD2tleUFkbWluUHViS2V5MwIAAAALYWRtaW5fcHViXzMAAAAADGFkbWluUHViS2V5MQEAAAAg4qeMQDuGzRfmtEuH2+Whg6yuKqHsNy5eZQUT8rXs7wQAAAAADGFkbWluUHViS2V5MgEAAAAg6jisuQG1iDxyo54oPYHUGiJlERON346DjXz9V/GbEVkAAAAADGFkbWluUHViS2V5MwEAAAAgpzSWgrCjycddMmIBfztFJ08z6r82xAHPELd0cKonzG4AAAAABXBvb2xzBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAEGtleVBvb2xzTGlzdE5hbWUDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAAGc3RyaW5nBQAAAAckbWF0Y2gwCQAEtQAAAAIFAAAABnN0cmluZwIAAAABLAQAAAAHbm90aGluZwUAAAAHJG1hdGNoMAUAAAADbmlsAQAAAAppc1NlbGZDYWxsAAAAAQAAAAFpAwkAAAAAAAACCAUAAAABaQAAAAZjYWxsZXIFAAAABHRoaXMFAAAABHVuaXQJAAACAAAAAQIAAAAvT25seSB0aGUgT3JhY2xlIGl0c2VsZiBjYW4gaW52b2tlIHRoaXMgZnVuY3Rpb24BAAAAEmdldFBvb2xOYW1lSWZWYWxpZAAAAAEAAAAIcG9vbE5hbWUEAAAAD3VuZGVyc2NvcmVJbmRleAkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABLMAAAACBQAAAAhwb29sTmFtZQIAAAABXwD//////////wQAAAATdW5kZXJzY29yZUxhc3RJbmRleAkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABLcAAAACBQAAAAhwb29sTmFtZQIAAAABXwD//////////wQAAAATaGFzU2luZ2xlVW5kZXJzY29yZQMDCQAAAAAAAAIFAAAAD3VuZGVyc2NvcmVJbmRleAUAAAATdW5kZXJzY29yZUxhc3RJbmRleAkAAGYAAAACBQAAAA91bmRlcnNjb3JlSW5kZXgAAAAAAAAAAAAHCQEAAAACIT0AAAACBQAAAA91bmRlcnNjb3JlSW5kZXgJAABlAAAAAgkAATEAAAABBQAAAAhwb29sTmFtZQAAAAAAAAAAAQcDBQAAABNoYXNTaW5nbGVVbmRlcnNjb3JlBQAAAAhwb29sTmFtZQkAAAIAAAABAgAAAE5Qb29sIG5hbWUgbXVzdCBjb25zaXN0IG9mIHR3byBhc3NldCBuYW1lcyBzZXBhcmF0ZWQgYnkgYW4gdW5kZXJzY29yZSBjaGFyYWN0ZXIBAAAAEWdldEFkZHJlc3NJZlZhbGlkAAAAAQAAAAdhZGRyZXNzCQAEJQAAAAEJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABCYAAAABBQAAAAdhZGRyZXNzCQABLAAAAAIJAAEsAAAAAgIAAAANQ2FuJ3QgcGFyc2UgIgUAAAAHYWRkcmVzcwIAAAAMIiBhcyBhZGRyZXNzAAAAAwAAAAFpAQAAAAhzZXRBZG1pbgAAAAAJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAQAAAAppc1NlbGZDYWxsAAAAAQUAAAABaQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAA9rZXlBZG1pblB1YktleTEJAAJYAAAAAQUAAAAMYWRtaW5QdWJLZXkxCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIFAAAAD2tleUFkbWluUHViS2V5MgkAAlgAAAABBQAAAAxhZG1pblB1YktleTIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAPa2V5QWRtaW5QdWJLZXkzCQACWAAAAAEFAAAADGFkbWluUHViS2V5MwUAAAADbmlsAAAAAWkBAAAAB2FkZFBvb2wAAAACAAAAC3Bvb2xBZGRyZXNzAAAACHBvb2xOYW1lCQEAAAALdmFsdWVPckVsc2UAAAACCQEAAAAKaXNTZWxmQ2FsbAAAAAEFAAAAAWkEAAAAEHZhbGlkYXRlZEFkZHJlc3MJAQAAABFnZXRBZGRyZXNzSWZWYWxpZAAAAAEFAAAAC3Bvb2xBZGRyZXNzBAAAAAdrZXlOYW1lCQABLAAAAAIFAAAAEWtleVByZWZpeFBvb2xOYW1lBQAAABB2YWxpZGF0ZWRBZGRyZXNzBAAAAAhrZXlJbmRleAkAASwAAAACBQAAABJrZXlQcmVmaXhQb29sSW5kZXgFAAAAEHZhbGlkYXRlZEFkZHJlc3MEAAAACGFzc2V0SWRBCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgkBAAAABXZhbHVlAAAAAQkABCYAAAABBQAAAAtwb29sQWRkcmVzcwUAAAALa2V5QXNzZXRJZEECAAAAF0Fzc2V0IGlkIEEgaXMgaW5jb3JyZWN0BAAAAAhhc3NldElkQgkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIJAQAAAAV2YWx1ZQAAAAEJAAQmAAAAAQUAAAALcG9vbEFkZHJlc3MFAAAAC2tleUFzc2V0SWRCAgAAABdBc3NldCBpZCBCIGlzIGluY29ycmVjdAQAAAAYcG9zc2libHlBbHJlYWR5QWRkZWRQb29sCQAEHQAAAAIFAAAABHRoaXMFAAAAB2tleU5hbWUDCQEAAAAJaXNEZWZpbmVkAAAAAQUAAAAYcG9zc2libHlBbHJlYWR5QWRkZWRQb29sCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAATUG9vbCB3aXRoIGFkZHJlc3MgIgUAAAAQdmFsaWRhdGVkQWRkcmVzcwIAAAAgIiBpcyBhbHJlYWR5IGRlZmluZWQgd2l0aCBuYW1lICIJAQAAAAV2YWx1ZQAAAAEFAAAAGHBvc3NpYmx5QWxyZWFkeUFkZGVkUG9vbAIAAAABIgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAIa2V5SW5kZXgJAAGQAAAAAQUAAAAFcG9vbHMJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgUAAAARa2V5SW5pdFBvb2xIZWlnaHQFAAAAC3Bvb2xBZGRyZXNzBQAAAAZoZWlnaHQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAHa2V5TmFtZQkBAAAAEmdldFBvb2xOYW1lSWZWYWxpZAAAAAEFAAAACHBvb2xOYW1lCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAAB2tleVBhaXIFAAAACGFzc2V0SWRBAgAAAAFfBQAAAAhhc3NldElkQgUAAAALcG9vbEFkZHJlc3MJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAQa2V5UG9vbHNMaXN0TmFtZQkABLkAAAACCQAETQAAAAIFAAAABXBvb2xzBQAAABB2YWxpZGF0ZWRBZGRyZXNzAgAAAAEsBQAAAANuaWwAAAABaQEAAAAKcmVuYW1lUG9vbAAAAAIAAAALcG9vbEFkZHJlc3MAAAALbmV3UG9vbE5hbWUJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAQAAAAppc1NlbGZDYWxsAAAAAQUAAAABaQQAAAAQdmFsaWRhdGVkQWRkcmVzcwkBAAAAEWdldEFkZHJlc3NJZlZhbGlkAAAAAQUAAAALcG9vbEFkZHJlc3MEAAAAB2tleU5hbWUJAAEsAAAAAgUAAAARa2V5UHJlZml4UG9vbE5hbWUFAAAAEHZhbGlkYXRlZEFkZHJlc3MEAAAAGHBvc3NpYmx5QWxyZWFkeUFkZGVkUG9vbAkABB0AAAACBQAAAAR0aGlzBQAAAAdrZXlOYW1lAwkBAAAACWlzRGVmaW5lZAAAAAEFAAAAGHBvc3NpYmx5QWxyZWFkeUFkZGVkUG9vbAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAAdrZXlOYW1lCQEAAAASZ2V0UG9vbE5hbWVJZlZhbGlkAAAAAQUAAAALbmV3UG9vbE5hbWUFAAAAA25pbAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAATUG9vbCB3aXRoIGFkZHJlc3MgIgUAAAAQdmFsaWRhdGVkQWRkcmVzcwIAAAAYIiBoYXMgbm90IHlldCBiZWVuIGFkZGVkAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAASYWRtaW5QdWJLZXkxU2lnbmVkAwkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAFAAAADGFkbWluUHViS2V5MQAAAAAAAAAAAQAAAAAAAAAAAAQAAAASYWRtaW5QdWJLZXkyU2lnbmVkAwkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAEFAAAADGFkbWluUHViS2V5MgAAAAAAAAAAAQAAAAAAAAAAAAQAAAASYWRtaW5QdWJLZXkzU2lnbmVkAwkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAIFAAAADGFkbWluUHViS2V5MwAAAAAAAAAAAQAAAAAAAAAAAAQAAAANc2lnbmVkQnlBZG1pbgkAAGcAAAACCQAAZAAAAAIJAABkAAAAAgUAAAASYWRtaW5QdWJLZXkxU2lnbmVkBQAAABJhZG1pblB1YktleTJTaWduZWQFAAAAEmFkbWluUHViS2V5M1NpZ25lZAAAAAAAAAAAAgQAAAAac2lnbmVkQnlBZG1pblRvQ2FsbEFkZFBvb2wJAABnAAAAAgkAAGQAAAACCQAAZAAAAAIFAAAAEmFkbWluUHViS2V5MVNpZ25lZAUAAAASYWRtaW5QdWJLZXkyU2lnbmVkBQAAABJhZG1pblB1YktleTNTaWduZWQAAAAAAAAAAAEEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABdJbnZva2VTY3JpcHRUcmFuc2FjdGlvbgQAAAADaW52BQAAAAckbWF0Y2gwBAAAABZpc1NlbGZJbnZva2VSZW5hbWVQb29sAwkAAAAAAAACCAUAAAADaW52AAAABGRBcHAFAAAABHRoaXMJAQAAAA9jb250YWluc0VsZW1lbnQAAAACCQAETAAAAAICAAAACnJlbmFtZVBvb2wFAAAAA25pbAgFAAAAA2ludgAAAAhmdW5jdGlvbgcEAAAAFGlzU2VsZkludm9rZVNldEFkbWluAwkAAAAAAAACCAUAAAADaW52AAAABGRBcHAFAAAABHRoaXMJAQAAAA9jb250YWluc0VsZW1lbnQAAAACCQAETAAAAAICAAAACHNldEFkbWluBQAAAANuaWwIBQAAAANpbnYAAAAIZnVuY3Rpb24HBAAAABNpc1NlbGZJbnZva2VBZGRQb29sAwkAAAAAAAACCAUAAAADaW52AAAABGRBcHAFAAAABHRoaXMJAQAAAA9jb250YWluc0VsZW1lbnQAAAACCQAETAAAAAICAAAAB2FkZFBvb2wFAAAAA25pbAgFAAAAA2ludgAAAAhmdW5jdGlvbgcDAwMDBQAAAA1zaWduZWRCeUFkbWluCQAAAAAAAAIJAAGQAAAAAQgFAAAAA2ludgAAAAhwYXltZW50cwAAAAAAAAAAAAcFAAAAFmlzU2VsZkludm9rZVJlbmFtZVBvb2wHBgMDBQAAABpzaWduZWRCeUFkbWluVG9DYWxsQWRkUG9vbAkAAAAAAAACCQABkAAAAAEIBQAAAANpbnYAAAAIcGF5bWVudHMAAAAAAAAAAAAHBQAAABNpc1NlbGZJbnZva2VBZGRQb29sBwYDAwUAAAANc2lnbmVkQnlBZG1pbgkAAAAAAAACCQABkAAAAAEIBQAAAANpbnYAAAAIcGF5bWVudHMAAAAAAAAAAAAHBQAAABRpc1NlbGZJbnZva2VTZXRBZG1pbgcDAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAVPcmRlcgYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFVNwb25zb3JGZWVUcmFuc2FjdGlvbgYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAWQ3JlYXRlQWxpYXNUcmFuc2FjdGlvbgYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFkxlYXNlQ2FuY2VsVHJhbnNhY3Rpb24GAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABBMZWFzZVRyYW5zYWN0aW9uBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAQSXNzdWVUcmFuc2FjdGlvbgYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAGlVwZGF0ZUFzc2V0SW5mb1RyYW5zYWN0aW9uBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAXSW52b2tlU2NyaXB0VHJhbnNhY3Rpb24GAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABlTZXRBc3NldFNjcmlwdFRyYW5zYWN0aW9uBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE0V4Y2hhbmdlVHJhbnNhY3Rpb24GAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABdNYXNzVHJhbnNmZXJUcmFuc2FjdGlvbgYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0J1cm5UcmFuc2FjdGlvbgYJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAASUmVpc3N1ZVRyYW5zYWN0aW9uBQAAAA1zaWduZWRCeUFkbWluCQAAAgAAAAECAAAAC01hdGNoIGVycm9yIVwaLw==",
    "height": 1653586,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Hik8QrHHTN7qybfpmkWsMVKEXcR28dpvGpZekUNec9wN
Next: 596tncnZAi3GQrGqoLWh383Sqf6GeBAXVuTedq2PvuTj

Diff: 
Old
New
Differences
6
6
 
let keyPrefixPoolName = "pool_"
7
7
 
8
8
 
let keyPrefixPoolIndex = "index_"
9
+
10
+
let keyInitPoolHeight = "init_pool_height_"
9
11
 
10
12
 
let keyConfirmedAssets = "confirmed_assets"
11
13
 
16
18
 
let keyAssetIdA = "A_asset_id"
17
19
 
18
20
 
let keyAssetIdB = "B_asset_id"
19
-
20
-
let keyOracleScriptHashCPMM = "script_hash_cpmm"
21
-
22
-
let keyOracleScriptHashFlat = "script_hash_flat"
23
-
24
-
let cpmmScriptReferenesAddress = base58'3N77kfPbQyjXWpDALX3xjKw3iEGMWEctV37'
25
-
26
-
let flatScriptReferenesAddress = base58'3N5Xd7QVQZWntaJwha9Kg42is626GUPjtUW'
27
21
 
28
22
 
let keyAdminPubKey1 = "admin_pub_1"
29
23
 
36
30
 
let adminPubKey2 = base58'GmJXRyhRA79g8yUGgKBAVdnFfQFDMjQG98b1MmLDh5kk'
37
31
 
38
32
 
let adminPubKey3 = base58'CFhbV6h41hVjbGHudGtS3fYUv7QAKRxFQzKNtx4B5PqP'
39
-
40
-
let adminStartStop = base58'Kn7NpzaG12dLZgcHf2ipUftU6hbJygmrhFqQYE4B7ZK'
41
-
42
-
let adminStaking = base58'Kn7NpzaG12dLZgcHf2ipUftU6hbJygmrhFqQYE4B7ZK'
43
-
44
-
let keyAdminStartStop = "admin_start_stop"
45
-
46
-
let keyAdminStaking = "admin_staking"
47
33
 
48
34
 
let pools = match getString(this, keyPoolsListName) {
49
35
 
    case string: String => 
75
61
 
76
62
 
77
63
 
@Callable(i)
78
-
func setPriority (assetId,priority) = valueOrElse(isSelfCall(i), if ((0 > priority))
79
-
    then throw("Priority must be positive")
80
-
    else [IntegerEntry((keyAssetPriority + assetId), priority)])
81
-
82
-
83
-
84
-
@Callable(i)
85
64
 
func setAdmin () = valueOrElse(isSelfCall(i), [StringEntry(keyAdminPubKey1, toBase58String(adminPubKey1)), StringEntry(keyAdminPubKey2, toBase58String(adminPubKey2)), StringEntry(keyAdminPubKey3, toBase58String(adminPubKey3))])
86
65
 
87
66
 
93
72
 
    let keyIndex = (keyPrefixPoolIndex + validatedAddress)
94
73
 
    let assetIdA = valueOrErrorMessage(getString(value(addressFromString(poolAddress)), keyAssetIdA), "Asset id A is incorrect")
95
74
 
    let assetIdB = valueOrErrorMessage(getString(value(addressFromString(poolAddress)), keyAssetIdB), "Asset id B is incorrect")
96
-
    let check = isDataStorageUntouched(this)
97
-
    let userScriptHash = value(scriptHash(i.caller))
98
-
    let cpmmHash = getBinaryValue(keyOracleScriptHashCPMM)
99
-
    let flatHash = getBinaryValue(keyOracleScriptHashFlat)
100
-
    if (if (if ((userScriptHash != cpmmHash))
101
-
        then (userScriptHash != flatHash)
102
-
        else false)
103
-
        then true
104
-
        else !(check))
105
-
        then throw("Unexpected script was found.")
106
-
        else {
107
-
            let possiblyAlreadyAddedPool = getString(this, keyName)
108
-
            let possibleDuplicateA = getString(this, (((keyPair + assetIdA) + "_") + assetIdB))
109
-
            let possibleDuplicateB = getString(this, (((keyPair + assetIdB) + "_") + assetIdA))
110
-
            if (isDefined(possiblyAlreadyAddedPool))
111
-
                then throw((((("Pool with address \"" + validatedAddress) + "\" is already defined with name \"") + value(possiblyAlreadyAddedPool)) + "\""))
112
-
                else if (if (isDefined(possibleDuplicateA))
113
-
                    then true
114
-
                    else isDefined(possibleDuplicateB))
115
-
                    then throw((((("Pool with assets \"" + assetIdA) + "\" and \"") + assetIdB) + "\" is already exists"))
116
-
                    else [IntegerEntry(keyIndex, size(pools)), StringEntry(keyName, getPoolNameIfValid(poolName)), StringEntry((((keyPair + assetIdA) + "_") + assetIdB), poolAddress), StringEntry(keyPoolsListName, makeString((pools :+ validatedAddress), ","))]
117
-
            }
75
+
    let possiblyAlreadyAddedPool = getString(this, keyName)
76
+
    if (isDefined(possiblyAlreadyAddedPool))
77
+
        then throw((((("Pool with address \"" + validatedAddress) + "\" is already defined with name \"") + value(possiblyAlreadyAddedPool)) + "\""))
78
+
        else [IntegerEntry(keyIndex, size(pools)), IntegerEntry((keyInitPoolHeight + poolAddress), height), StringEntry(keyName, getPoolNameIfValid(poolName)), StringEntry((((keyPair + assetIdA) + "_") + assetIdB), poolAddress), StringEntry(keyPoolsListName, makeString((pools :+ validatedAddress), ","))]
118
79
 
    })
119
80
 
120
81
 
128
89
 
        then [StringEntry(keyName, getPoolNameIfValid(newPoolName))]
129
90
 
        else throw((("Pool with address \"" + validatedAddress) + "\" has not yet been added"))
130
91
 
    })
131
-
132
-
133
-
134
-
@Callable(i)
135
-
func updateHashes () = valueOrElse(isSelfCall(i), [BinaryEntry(keyOracleScriptHashCPMM, value(scriptHash(Address(cpmmScriptReferenesAddress)))), BinaryEntry(keyOracleScriptHashFlat, value(scriptHash(Address(flatScriptReferenesAddress))))])
136
92
 
137
93
 
138
94
 
@Verifier(tx)
159
115
 
            let isSelfInvokeAddPool = if ((inv.dApp == this))
160
116
 
                then containsElement(["addPool"], inv.function)
161
117
 
                else false
162
-
            let isSelfInvokeUpdateHashes = if ((inv.dApp == this))
163
-
                then containsElement(["updateHashes"], inv.function)
164
-
                else false
165
-
            if (if (if (if (if (signedByAdmin)
118
+
            if (if (if (if (signedByAdmin)
166
119
 
                then (size(inv.payments) == 0)
167
120
 
                else false)
168
121
 
                then isSelfInvokeRenamePool
178
131
 
                    then (size(inv.payments) == 0)
179
132
 
                    else false)
180
133
 
                    then isSelfInvokeSetAdmin
181
-
                    else false)
182
-
                then true
183
-
                else if (if (signedByAdmin)
184
-
                    then (size(inv.payments) == 0)
185
-
                    else false)
186
-
                    then isSelfInvokeUpdateHashes
187
134
 
                    else false
188
135
 
        case _: Order|DataTransaction|SponsorFeeTransaction|SetScriptTransaction|CreateAliasTransaction|LeaseCancelTransaction|LeaseTransaction|IssueTransaction|UpdateAssetInfoTransaction|InvokeScriptTransaction|SetAssetScriptTransaction|TransferTransaction|ExchangeTransaction|MassTransferTransaction|BurnTransaction|ReissueTransaction => 
189
136
 
            signedByAdmin
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let keyPoolsListName = "pools"
5
5
 
6
6
 
let keyPrefixPoolName = "pool_"
7
7
 
8
8
 
let keyPrefixPoolIndex = "index_"
9
+
10
+
let keyInitPoolHeight = "init_pool_height_"
9
11
 
10
12
 
let keyConfirmedAssets = "confirmed_assets"
11
13
 
12
14
 
let keyAssetPriority = "asset_priority_"
13
15
 
14
16
 
let keyPair = "pair_"
15
17
 
16
18
 
let keyAssetIdA = "A_asset_id"
17
19
 
18
20
 
let keyAssetIdB = "B_asset_id"
19
-
20
-
let keyOracleScriptHashCPMM = "script_hash_cpmm"
21
-
22
-
let keyOracleScriptHashFlat = "script_hash_flat"
23
-
24
-
let cpmmScriptReferenesAddress = base58'3N77kfPbQyjXWpDALX3xjKw3iEGMWEctV37'
25
-
26
-
let flatScriptReferenesAddress = base58'3N5Xd7QVQZWntaJwha9Kg42is626GUPjtUW'
27
21
 
28
22
 
let keyAdminPubKey1 = "admin_pub_1"
29
23
 
30
24
 
let keyAdminPubKey2 = "admin_pub_2"
31
25
 
32
26
 
let keyAdminPubKey3 = "admin_pub_3"
33
27
 
34
28
 
let adminPubKey1 = base58'GFmKZ2naZFRoCvNbwKAQVGmLb1uBeWGDgFabdGBuZiuy'
35
29
 
36
30
 
let adminPubKey2 = base58'GmJXRyhRA79g8yUGgKBAVdnFfQFDMjQG98b1MmLDh5kk'
37
31
 
38
32
 
let adminPubKey3 = base58'CFhbV6h41hVjbGHudGtS3fYUv7QAKRxFQzKNtx4B5PqP'
39
-
40
-
let adminStartStop = base58'Kn7NpzaG12dLZgcHf2ipUftU6hbJygmrhFqQYE4B7ZK'
41
-
42
-
let adminStaking = base58'Kn7NpzaG12dLZgcHf2ipUftU6hbJygmrhFqQYE4B7ZK'
43
-
44
-
let keyAdminStartStop = "admin_start_stop"
45
-
46
-
let keyAdminStaking = "admin_staking"
47
33
 
48
34
 
let pools = match getString(this, keyPoolsListName) {
49
35
 
    case string: String => 
50
36
 
        split(string, ",")
51
37
 
    case nothing => 
52
38
 
        nil
53
39
 
}
54
40
 
55
41
 
func isSelfCall (i) = if ((i.caller == this))
56
42
 
    then unit
57
43
 
    else throw("Only the Oracle itself can invoke this function")
58
44
 
59
45
 
60
46
 
func getPoolNameIfValid (poolName) = {
61
47
 
    let underscoreIndex = valueOrElse(indexOf(poolName, "_"), -1)
62
48
 
    let underscoreLastIndex = valueOrElse(lastIndexOf(poolName, "_"), -1)
63
49
 
    let hasSingleUnderscore = if (if ((underscoreIndex == underscoreLastIndex))
64
50
 
        then (underscoreIndex > 0)
65
51
 
        else false)
66
52
 
        then (underscoreIndex != (size(poolName) - 1))
67
53
 
        else false
68
54
 
    if (hasSingleUnderscore)
69
55
 
        then poolName
70
56
 
        else throw("Pool name must consist of two asset names separated by an underscore character")
71
57
 
    }
72
58
 
73
59
 
74
60
 
func getAddressIfValid (address) = toString(valueOrErrorMessage(addressFromString(address), (("Can't parse \"" + address) + "\" as address")))
75
61
 
76
62
 
77
63
 
@Callable(i)
78
-
func setPriority (assetId,priority) = valueOrElse(isSelfCall(i), if ((0 > priority))
79
-
    then throw("Priority must be positive")
80
-
    else [IntegerEntry((keyAssetPriority + assetId), priority)])
81
-
82
-
83
-
84
-
@Callable(i)
85
64
 
func setAdmin () = valueOrElse(isSelfCall(i), [StringEntry(keyAdminPubKey1, toBase58String(adminPubKey1)), StringEntry(keyAdminPubKey2, toBase58String(adminPubKey2)), StringEntry(keyAdminPubKey3, toBase58String(adminPubKey3))])
86
65
 
87
66
 
88
67
 
89
68
 
@Callable(i)
90
69
 
func addPool (poolAddress,poolName) = valueOrElse(isSelfCall(i), {
91
70
 
    let validatedAddress = getAddressIfValid(poolAddress)
92
71
 
    let keyName = (keyPrefixPoolName + validatedAddress)
93
72
 
    let keyIndex = (keyPrefixPoolIndex + validatedAddress)
94
73
 
    let assetIdA = valueOrErrorMessage(getString(value(addressFromString(poolAddress)), keyAssetIdA), "Asset id A is incorrect")
95
74
 
    let assetIdB = valueOrErrorMessage(getString(value(addressFromString(poolAddress)), keyAssetIdB), "Asset id B is incorrect")
96
-
    let check = isDataStorageUntouched(this)
97
-
    let userScriptHash = value(scriptHash(i.caller))
98
-
    let cpmmHash = getBinaryValue(keyOracleScriptHashCPMM)
99
-
    let flatHash = getBinaryValue(keyOracleScriptHashFlat)
100
-
    if (if (if ((userScriptHash != cpmmHash))
101
-
        then (userScriptHash != flatHash)
102
-
        else false)
103
-
        then true
104
-
        else !(check))
105
-
        then throw("Unexpected script was found.")
106
-
        else {
107
-
            let possiblyAlreadyAddedPool = getString(this, keyName)
108
-
            let possibleDuplicateA = getString(this, (((keyPair + assetIdA) + "_") + assetIdB))
109
-
            let possibleDuplicateB = getString(this, (((keyPair + assetIdB) + "_") + assetIdA))
110
-
            if (isDefined(possiblyAlreadyAddedPool))
111
-
                then throw((((("Pool with address \"" + validatedAddress) + "\" is already defined with name \"") + value(possiblyAlreadyAddedPool)) + "\""))
112
-
                else if (if (isDefined(possibleDuplicateA))
113
-
                    then true
114
-
                    else isDefined(possibleDuplicateB))
115
-
                    then throw((((("Pool with assets \"" + assetIdA) + "\" and \"") + assetIdB) + "\" is already exists"))
116
-
                    else [IntegerEntry(keyIndex, size(pools)), StringEntry(keyName, getPoolNameIfValid(poolName)), StringEntry((((keyPair + assetIdA) + "_") + assetIdB), poolAddress), StringEntry(keyPoolsListName, makeString((pools :+ validatedAddress), ","))]
117
-
            }
75
+
    let possiblyAlreadyAddedPool = getString(this, keyName)
76
+
    if (isDefined(possiblyAlreadyAddedPool))
77
+
        then throw((((("Pool with address \"" + validatedAddress) + "\" is already defined with name \"") + value(possiblyAlreadyAddedPool)) + "\""))
78
+
        else [IntegerEntry(keyIndex, size(pools)), IntegerEntry((keyInitPoolHeight + poolAddress), height), StringEntry(keyName, getPoolNameIfValid(poolName)), StringEntry((((keyPair + assetIdA) + "_") + assetIdB), poolAddress), StringEntry(keyPoolsListName, makeString((pools :+ validatedAddress), ","))]
118
79
 
    })
119
80
 
120
81
 
121
82
 
122
83
 
@Callable(i)
123
84
 
func renamePool (poolAddress,newPoolName) = valueOrElse(isSelfCall(i), {
124
85
 
    let validatedAddress = getAddressIfValid(poolAddress)
125
86
 
    let keyName = (keyPrefixPoolName + validatedAddress)
126
87
 
    let possiblyAlreadyAddedPool = getString(this, keyName)
127
88
 
    if (isDefined(possiblyAlreadyAddedPool))
128
89
 
        then [StringEntry(keyName, getPoolNameIfValid(newPoolName))]
129
90
 
        else throw((("Pool with address \"" + validatedAddress) + "\" has not yet been added"))
130
91
 
    })
131
-
132
-
133
-
134
-
@Callable(i)
135
-
func updateHashes () = valueOrElse(isSelfCall(i), [BinaryEntry(keyOracleScriptHashCPMM, value(scriptHash(Address(cpmmScriptReferenesAddress)))), BinaryEntry(keyOracleScriptHashFlat, value(scriptHash(Address(flatScriptReferenesAddress))))])
136
92
 
137
93
 
138
94
 
@Verifier(tx)
139
95
 
func verify () = {
140
96
 
    let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
141
97
 
        then 1
142
98
 
        else 0
143
99
 
    let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
144
100
 
        then 1
145
101
 
        else 0
146
102
 
    let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
147
103
 
        then 1
148
104
 
        else 0
149
105
 
    let signedByAdmin = (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
150
106
 
    let signedByAdminToCallAddPool = (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 1)
151
107
 
    match tx {
152
108
 
        case inv: InvokeScriptTransaction => 
153
109
 
            let isSelfInvokeRenamePool = if ((inv.dApp == this))
154
110
 
                then containsElement(["renamePool"], inv.function)
155
111
 
                else false
156
112
 
            let isSelfInvokeSetAdmin = if ((inv.dApp == this))
157
113
 
                then containsElement(["setAdmin"], inv.function)
158
114
 
                else false
159
115
 
            let isSelfInvokeAddPool = if ((inv.dApp == this))
160
116
 
                then containsElement(["addPool"], inv.function)
161
117
 
                else false
162
-
            let isSelfInvokeUpdateHashes = if ((inv.dApp == this))
163
-
                then containsElement(["updateHashes"], inv.function)
164
-
                else false
165
-
            if (if (if (if (if (signedByAdmin)
118
+
            if (if (if (if (signedByAdmin)
166
119
 
                then (size(inv.payments) == 0)
167
120
 
                else false)
168
121
 
                then isSelfInvokeRenamePool
169
122
 
                else false)
170
123
 
                then true
171
124
 
                else if (if (signedByAdminToCallAddPool)
172
125
 
                    then (size(inv.payments) == 0)
173
126
 
                    else false)
174
127
 
                    then isSelfInvokeAddPool
175
128
 
                    else false)
176
129
 
                then true
177
130
 
                else if (if (signedByAdmin)
178
131
 
                    then (size(inv.payments) == 0)
179
132
 
                    else false)
180
133
 
                    then isSelfInvokeSetAdmin
181
-
                    else false)
182
-
                then true
183
-
                else if (if (signedByAdmin)
184
-
                    then (size(inv.payments) == 0)
185
-
                    else false)
186
-
                    then isSelfInvokeUpdateHashes
187
134
 
                    else false
188
135
 
        case _: Order|DataTransaction|SponsorFeeTransaction|SetScriptTransaction|CreateAliasTransaction|LeaseCancelTransaction|LeaseTransaction|IssueTransaction|UpdateAssetInfoTransaction|InvokeScriptTransaction|SetAssetScriptTransaction|TransferTransaction|ExchangeTransaction|MassTransferTransaction|BurnTransaction|ReissueTransaction => 
189
136
 
            signedByAdmin
190
137
 
        case _ => 
191
138
 
            throw("Match error")
192
139
 
    }
193
140
 
    }
194
141
 

github/deemru/w8io/873ac7e 
31.76 ms ◑