w8 · tx · 5cg···aUp

tx · 5cgqR8DJvrRMm5S1PFf2u4iFiGXJvt9pqt2oH75DAaUp

3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr:  -0.00500000 Waves

2024.09.26 09:57 [3300251] smart account 3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5cgqR8DJvrRMm5S1PFf2u4iFiGXJvt9pqt2oH75DAaUp",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1727333903899,
    "version": 2,
    "chainId": 84,
    "sender": "3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr",
    "senderPublicKey": "jXCTQV8PjX2uC9UHBFveupYy9cjhY7stHbzE9cptymw",
    "proofs": [
        "4we4HDjZSK2odX3iPeegvvDJYetRYXHc2Mu5kmVnWmEyskLJYxTDnr7RQdvqZQZAEx5RKFoRT9kYBi4L9cTE1jdg"
    ],
    "script": "base64:BwITCAISAwoBCBIECgICGBIECgICGCAACXNlcGFyYXRvcgICX18AC3dhdmVzU3RyaW5nAgVXQVZFUwAQY29udHJhY3RGaWxlbmFtZQIXbWVtZV9pbV9jYWxjdWxhdG9yLnJpZGUABW11bHQ4AIDC1y8BB3dyYXBFcnIBAXMJAKwCAgkArAICBRBjb250cmFjdEZpbGVuYW1lAgI6IAUBcwEIdGhyb3dFcnIBAXMJAAIBCQEHd3JhcEVycgEFAXMBD3ZhbGlkYXRlQWRkcmVzcwEHYWRkcmVzcwkBCWlzRGVmaW5lZAEJAKYIAQUHYWRkcmVzcwAMU1RBVFVTX0VNUFRZAAAADFNUQVRVU19SRUFEWQABAAlrU2h1dGRvd24CDnNodXRkb3duX19mbGFnAAtrUHJpY2VBc3NldAIMcHJpY2VfX2Fzc2V0AA5rTGlzdGluZ1ZvbHVtZQIPbGlzdGluZ19fdm9sdW1lABFrUG9vbENvbnRyYWN0SGFzaAIUcG9vbF9fY29udHJhY3RfX2hhc2gAE2tMYXN0RW1wdHlQb29sSW5kZXgCF2xhc3RfX2VtcHR5X3Bvb2xfX2luZGV4ABRrRmlyc3RFbXB0eVBvb2xJbmRleAIZZmlyc3RfX2VtcHR5X19wb29sX19pbmRleAEVa1Bvb2xBZGRyZXNzRnJvbUluZGV4AQVpbmRleAkAuQkCCQDMCAICBHBvb2wJAMwIAgkApAMBBQVpbmRleAUDbmlsBQlzZXBhcmF0b3IBFWtQb29sSW5kZXhGcm9tQWRkcmVzcwEHYWRkcmVzcwkAuQkCCQDMCAICBHBvb2wJAMwIAgkApQgBBQdhZGRyZXNzBQNuaWwFCXNlcGFyYXRvcgEKa1Bvb2xBc3NldAEHYWRkcmVzcwkAuQkCCQDMCAICBWFzc2V0CQDMCAIJAKUIAQUHYWRkcmVzcwUDbmlsBQlzZXBhcmF0b3IBC2tQb29sU3RhdHVzAQVpbmRleAkAuQkCCQDMCAICBHBvb2wJAMwIAgIGc3RhdHVzCQDMCAIJAKQDAQUFaW5kZXgFA25pbAUJc2VwYXJhdG9yAA9rRmFjdG9yeUFkZHJlc3MCEGZhY3RvcnlfX2FkZHJlc3MAFGZhY3RvcnlBZGRyZXNzT3B0aW9uBAckbWF0Y2gwCQCdCAIFBHRoaXMFD2tGYWN0b3J5QWRkcmVzcwMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJAKYIAQUBcwMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IADmZhY3RvcnlBZGRyZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIFFGZhY3RvcnlBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECF2ludmFsaWQgZmFjdG9yeSBhZGRyZXNzAAhzaHV0ZG93bgkBC3ZhbHVlT3JFbHNlAgkAmwgCBQ5mYWN0b3J5QWRkcmVzcwUJa1NodXRkb3duBwAObGFzdEVtcHR5SW5kZXgJAQt2YWx1ZU9yRWxzZQIJAJoIAgUOZmFjdG9yeUFkZHJlc3MFE2tMYXN0RW1wdHlQb29sSW5kZXgAAAAPZmlyc3RFbXB0eUluZGV4CQELdmFsdWVPckVsc2UCCQCaCAIFDmZhY3RvcnlBZGRyZXNzBRRrRmlyc3RFbXB0eVBvb2xJbmRleAAAAA1saXN0aW5nVm9sdW1lCQELdmFsdWVPckVsc2UCCQCaCAIFDmZhY3RvcnlBZGRyZXNzBQ5rTGlzdGluZ1ZvbHVtZQAAAQxwYXJzZUFzc2V0SWQBBWlucHV0AwkAAAIFBWlucHV0BQt3YXZlc1N0cmluZwUEdW5pdAkA2QQBBQVpbnB1dAEPYXNzZXRJZFRvU3RyaW5nAQVpbnB1dAMJAAACBQVpbnB1dAUEdW5pdAULd2F2ZXNTdHJpbmcJANgEAQkBBXZhbHVlAQUFaW5wdXQBC211c3RBZGRyZXNzAgZjYWxsZXIHYWRkcmVzcwMJAAACBQZjYWxsZXIFB2FkZHJlc3MGCQEIdGhyb3dFcnIBAhFwZXJtaXNzaW9uIGRlbmllZAEIbXVzdFRoaXMBBmNhbGxlcgkBC211c3RBZGRyZXNzAgUGY2FsbGVyBQR0aGlzAQttdXN0RmFjdG9yeQEGY2FsbGVyCQELbXVzdEFkZHJlc3MCBQZjYWxsZXIFDmZhY3RvcnlBZGRyZXNzARBwb29sQ29udHJhY3RIYXNoAAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFDmZhY3RvcnlBZGRyZXNzBRFrUG9vbENvbnRyYWN0SGFzaAkBB3dyYXBFcnIBAiRwb29sIGNvbnRyYWN0IHNjcmlwdCBoYXNoIGlzIG5vdCBzZXQDAWkBBGluaXQBEWZhY3RvcnlBZGRyZXNzU3RyBAtjaGVja0NhbGxlcgkBCG11c3RUaGlzAQgFAWkGY2FsbGVyAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCBQ9rRmFjdG9yeUFkZHJlc3MFEWZhY3RvcnlBZGRyZXNzU3RyBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEMYWRkRW1wdHlQb29sAg9jYWxsZXJQdWJsaWNLZXkEYXJncwQObmV3UG9vbEFkZHJlc3MJAKcIAQUPY2FsbGVyUHVibGljS2V5BAxuZXdQb29sSW5kZXgJAGQCBQ5sYXN0RW1wdHlJbmRleAABBAZjaGVja3MJAMwIAgMJAQEhAQkBCWlzRGVmaW5lZAEJAJoIAgUOZmFjdG9yeUFkZHJlc3MJARVrUG9vbEluZGV4RnJvbUFkZHJlc3MBBQ5uZXdQb29sQWRkcmVzcwYJAQh0aHJvd0VycgECInBvb2wgYWRkcmVzcyBpcyBhbHJlYWR5IHJlZ2lzdGVyZWQFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBQ5mYWN0b3J5QWRkcmVzcwIMaW50ZWdlckVudHJ5CQDMCAIFE2tMYXN0RW1wdHlQb29sSW5kZXgJAMwIAgUMbmV3UG9vbEluZGV4BQNuaWwFA25pbAkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAgtzdHJpbmdFbnRyeQkAzAgCCQEVa1Bvb2xBZGRyZXNzRnJvbUluZGV4AQUMbmV3UG9vbEluZGV4CQDMCAIJAKUIAQUObmV3UG9vbEFkZHJlc3MFA25pbAUDbmlsCQDMCAIJAPwHBAUOZmFjdG9yeUFkZHJlc3MCDGludGVnZXJFbnRyeQkAzAgCCQEVa1Bvb2xJbmRleEZyb21BZGRyZXNzAQUObmV3UG9vbEFkZHJlc3MJAMwIAgUMbmV3UG9vbEluZGV4BQNuaWwFA25pbAkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAgxpbnRlZ2VyRW50cnkJAMwIAgkBC2tQb29sU3RhdHVzAQUMbmV3UG9vbEluZGV4CQDMCAIFDFNUQVRVU19FTVBUWQUDbmlsBQNuaWwFA25pbAkAlAoCBQNuaWwFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCmNyZWF0ZVBvb2wCD2NhbGxlclB1YmxpY0tleQRhcmdzBAZjaGVja3MJAMwIAgMJAQEhAQUIc2h1dGRvd24GCQEIdGhyb3dFcnIBAhZub3QgYWxsb3dlZCAoc2h1dGRvd24pCQDMCAIJAQttdXN0RmFjdG9yeQEIBQFpBmNhbGxlcgkAzAgCAwkAZgIJAGUCBQ5sYXN0RW1wdHlJbmRleAUPZmlyc3RFbXB0eUluZGV4AAAGCQEIdGhyb3dFcnIBAhhubyBlbXB0eSBwb29scyBhdmFpbGFibGUJAMwIAgMJAAACCAkAkQMCCAUBaQhwYXltZW50cwABB2Fzc2V0SWQFBHVuaXQGCQEIdGhyb3dFcnIBAhtwcmljZSBhc3NldCBzaG91bGQgYmUgV0FWRVMJAMwIAgMJAGYCCAkAkQMCCAUBaQhwYXltZW50cwABBmFtb3VudAUNbGlzdGluZ1ZvbHVtZQYJAQh0aHJvd0VycgECN3BheW1lbnRbMV0gYW1vdW50IHNob3VsZCBiZSBncmVhdGVyIHRoYW4gbGlzdGluZyB2b2x1bWUJAMwIAgMJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUEdW5pdAYJAQh0aHJvd0VycgECHGFtb3VudCBhc3NldCBjYW5ub3QgYmUgV0FWRVMJAMwIAgMJAGYCCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAAABgkBCHRocm93RXJyAQIqcGF5bWVudFswXSBhbW91bnQgc2hvdWxkIGJlIGdyZWF0ZXIgdGhhbiAwBQNuaWwDCQAAAgUGY2hlY2tzBQZjaGVja3MEDWFtb3VudEFzc2V0SWQICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAQTYW1vdW50QXNzZXRJZFN0cmluZwkBD2Fzc2V0SWRUb1N0cmluZwEFDWFtb3VudEFzc2V0SWQECXBvb2xJbmRleAkAZAIFD2ZpcnN0RW1wdHlJbmRleAABBBFwb29sQWRkcmVzc1N0cmluZwkBEUBleHRyTmF0aXZlKDEwNTMpAgUOZmFjdG9yeUFkZHJlc3MJARVrUG9vbEFkZHJlc3NGcm9tSW5kZXgBBQlwb29sSW5kZXgEC3Bvb2xBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBBRFwb29sQWRkcmVzc1N0cmluZwQHYWN0aW9ucwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQtwb29sQWRkcmVzcwgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQtwb29sQWRkcmVzcwgJAJEDAggFAWkIcGF5bWVudHMAAQZhbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAEHYXNzZXRJZAUDbmlsBA5mYWN0b3J5QWN0aW9ucwkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAgtzdHJpbmdFbnRyeQkAzAgCCQEKa1Bvb2xBc3NldAEFC3Bvb2xBZGRyZXNzCQDMCAIFE2Ftb3VudEFzc2V0SWRTdHJpbmcFA25pbAUDbmlsCQDMCAIJAPwHBAUOZmFjdG9yeUFkZHJlc3MCDGludGVnZXJFbnRyeQkAzAgCBRRrRmlyc3RFbXB0eVBvb2xJbmRleAkAzAgCBQlwb29sSW5kZXgFA25pbAUDbmlsCQDMCAIJAPwHBAUOZmFjdG9yeUFkZHJlc3MCDGludGVnZXJFbnRyeQkAzAgCCQELa1Bvb2xTdGF0dXMBBQlwb29sSW5kZXgJAMwIAgUMU1RBVFVTX1JFQURZBQNuaWwFA25pbAUDbmlsCQCUCgIFB2FjdGlvbnMFDmZhY3RvcnlBY3Rpb25zCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAOoCN4=",
    "height": 3300251,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GMUQLvwSsoZY8M68obd8K1n8riNf3WYNxKwYci3XyfGa
Next: CRrcKDGeT7Q8cSiekc59tc1nvUjKuv8fLk1559cwH2PQ

Diff: 
Old New Differences
91 91  func poolContractHash () = valueOrErrorMessage(getBinary(factoryAddress, kPoolContractHash), wrapErr("pool contract script hash is not set"))
92 92  
93 93  
94 - func isPoolAddressExists (address) = match getInteger(factoryAddress, kPoolIndexFromAddress(address)) {
95 -     case t: Int => 
96 -         true
97 -     case _ => 
98 -         false
99 - }
100 - 
101 - 
102 94  @Callable(i)
103 95  func init (factoryAddressStr) = {
104 96      let checkCaller = mustThis(i.caller)
113 105  func addEmptyPool (callerPublicKey,args) = {
114 106      let newPoolAddress = addressFromPublicKey(callerPublicKey)
115 107      let newPoolIndex = (lastEmptyIndex + 1)
116 -     let checks = [if (!(isPoolAddressExists(newPoolAddress)))
108 +     let checks = [if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
117 109          then true
118 110          else throwErr("pool address is already registered")]
119 111      if ((checks == checks))
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 7 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let separator = "__"
5 5  
6 6  let wavesString = "WAVES"
7 7  
8 8  let contractFilename = "meme_im_calculator.ride"
9 9  
10 10  let mult8 = 100000000
11 11  
12 12  func wrapErr (s) = ((contractFilename + ": ") + s)
13 13  
14 14  
15 15  func throwErr (s) = throw(wrapErr(s))
16 16  
17 17  
18 18  func validateAddress (address) = isDefined(addressFromString(address))
19 19  
20 20  
21 21  let STATUS_EMPTY = 0
22 22  
23 23  let STATUS_READY = 1
24 24  
25 25  let kShutdown = "shutdown__flag"
26 26  
27 27  let kPriceAsset = "price__asset"
28 28  
29 29  let kListingVolume = "listing__volume"
30 30  
31 31  let kPoolContractHash = "pool__contract__hash"
32 32  
33 33  let kLastEmptyPoolIndex = "last__empty_pool__index"
34 34  
35 35  let kFirstEmptyPoolIndex = "first__empty__pool__index"
36 36  
37 37  func kPoolAddressFromIndex (index) = makeString(["pool", toString(index)], separator)
38 38  
39 39  
40 40  func kPoolIndexFromAddress (address) = makeString(["pool", toString(address)], separator)
41 41  
42 42  
43 43  func kPoolAsset (address) = makeString(["asset", toString(address)], separator)
44 44  
45 45  
46 46  func kPoolStatus (index) = makeString(["pool", "status", toString(index)], separator)
47 47  
48 48  
49 49  let kFactoryAddress = "factory__address"
50 50  
51 51  let factoryAddressOption = match getString(this, kFactoryAddress) {
52 52      case s: String => 
53 53          addressFromString(s)
54 54      case _: Unit => 
55 55          unit
56 56      case _ => 
57 57          throw("Match error")
58 58  }
59 59  
60 60  let factoryAddress = valueOrErrorMessage(factoryAddressOption, wrapErr("invalid factory address"))
61 61  
62 62  let shutdown = valueOrElse(getBoolean(factoryAddress, kShutdown), false)
63 63  
64 64  let lastEmptyIndex = valueOrElse(getInteger(factoryAddress, kLastEmptyPoolIndex), 0)
65 65  
66 66  let firstEmptyIndex = valueOrElse(getInteger(factoryAddress, kFirstEmptyPoolIndex), 0)
67 67  
68 68  let listingVolume = valueOrElse(getInteger(factoryAddress, kListingVolume), 0)
69 69  
70 70  func parseAssetId (input) = if ((input == wavesString))
71 71      then unit
72 72      else fromBase58String(input)
73 73  
74 74  
75 75  func assetIdToString (input) = if ((input == unit))
76 76      then wavesString
77 77      else toBase58String(value(input))
78 78  
79 79  
80 80  func mustAddress (caller,address) = if ((caller == address))
81 81      then true
82 82      else throwErr("permission denied")
83 83  
84 84  
85 85  func mustThis (caller) = mustAddress(caller, this)
86 86  
87 87  
88 88  func mustFactory (caller) = mustAddress(caller, factoryAddress)
89 89  
90 90  
91 91  func poolContractHash () = valueOrErrorMessage(getBinary(factoryAddress, kPoolContractHash), wrapErr("pool contract script hash is not set"))
92 92  
93 93  
94 - func isPoolAddressExists (address) = match getInteger(factoryAddress, kPoolIndexFromAddress(address)) {
95 -     case t: Int => 
96 -         true
97 -     case _ => 
98 -         false
99 - }
100 - 
101 - 
102 94  @Callable(i)
103 95  func init (factoryAddressStr) = {
104 96      let checkCaller = mustThis(i.caller)
105 97      if ((checkCaller == checkCaller))
106 98          then [StringEntry(kFactoryAddress, factoryAddressStr)]
107 99          else throw("Strict value is not equal to itself.")
108 100      }
109 101  
110 102  
111 103  
112 104  @Callable(i)
113 105  func addEmptyPool (callerPublicKey,args) = {
114 106      let newPoolAddress = addressFromPublicKey(callerPublicKey)
115 107      let newPoolIndex = (lastEmptyIndex + 1)
116 -     let checks = [if (!(isPoolAddressExists(newPoolAddress)))
108 +     let checks = [if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
117 109          then true
118 110          else throwErr("pool address is already registered")]
119 111      if ((checks == checks))
120 112          then {
121 113              let factoryActions = [invoke(factoryAddress, "integerEntry", [kLastEmptyPoolIndex, newPoolIndex], nil), invoke(factoryAddress, "stringEntry", [kPoolAddressFromIndex(newPoolIndex), toString(newPoolAddress)], nil), invoke(factoryAddress, "integerEntry", [kPoolIndexFromAddress(newPoolAddress), newPoolIndex], nil), invoke(factoryAddress, "integerEntry", [kPoolStatus(newPoolIndex), STATUS_EMPTY], nil)]
122 114              $Tuple2(nil, factoryActions)
123 115              }
124 116          else throw("Strict value is not equal to itself.")
125 117      }
126 118  
127 119  
128 120  
129 121  @Callable(i)
130 122  func createPool (callerPublicKey,args) = {
131 123      let checks = [if (!(shutdown))
132 124          then true
133 125          else throwErr("not allowed (shutdown)"), mustFactory(i.caller), if (((lastEmptyIndex - firstEmptyIndex) > 0))
134 126          then true
135 127          else throwErr("no empty pools available"), if ((i.payments[1].assetId == unit))
136 128          then true
137 129          else throwErr("price asset should be WAVES"), if ((i.payments[1].amount > listingVolume))
138 130          then true
139 131          else throwErr("payment[1] amount should be greater than listing volume"), if ((i.payments[0].assetId != unit))
140 132          then true
141 133          else throwErr("amount asset cannot be WAVES"), if ((i.payments[0].amount > 0))
142 134          then true
143 135          else throwErr("payment[0] amount should be greater than 0")]
144 136      if ((checks == checks))
145 137          then {
146 138              let amountAssetId = i.payments[0].assetId
147 139              let amountAssetIdString = assetIdToString(amountAssetId)
148 140              let poolIndex = (firstEmptyIndex + 1)
149 141              let poolAddressString = getStringValue(factoryAddress, kPoolAddressFromIndex(poolIndex))
150 142              let poolAddress = addressFromStringValue(poolAddressString)
151 143              let actions = [ScriptTransfer(poolAddress, i.payments[0].amount, i.payments[0].assetId), ScriptTransfer(poolAddress, i.payments[1].amount, i.payments[1].assetId)]
152 144              let factoryActions = [invoke(factoryAddress, "stringEntry", [kPoolAsset(poolAddress), amountAssetIdString], nil), invoke(factoryAddress, "integerEntry", [kFirstEmptyPoolIndex, poolIndex], nil), invoke(factoryAddress, "integerEntry", [kPoolStatus(poolIndex), STATUS_READY], nil)]
153 145              $Tuple2(actions, factoryActions)
154 146              }
155 147          else throw("Strict value is not equal to itself.")
156 148      }
157 149  
158 150

Old	New		Differences
91	91		func poolContractHash () = valueOrErrorMessage(getBinary(factoryAddress, kPoolContractHash), wrapErr("pool contract script hash is not set"))
92	92
93	93
94		-	func isPoolAddressExists (address) = match getInteger(factoryAddress, kPoolIndexFromAddress(address)) {
95		-	case t: Int =>
96		-	true
97		-	case _ =>
98		-	false
99		-	}
100		-
101		-
102	94		@Callable(i)
103	95		func init (factoryAddressStr) = {
104	96		let checkCaller = mustThis(i.caller)

113	105		func addEmptyPool (callerPublicKey,args) = {
114	106		let newPoolAddress = addressFromPublicKey(callerPublicKey)
115	107		let newPoolIndex = (lastEmptyIndex + 1)
116		-	let checks = [if (!(~~isPoolAddressExists~~(newPoolAddress)))
	108	+	let checks = [if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
117	109		then true
118	110		else throwErr("pool address is already registered")]
119	111		if ((checks == checks))

Old	New		Differences
1	1		{-# STDLIB_VERSION 7 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let separator = "__"
5	5
6	6		let wavesString = "WAVES"
7	7
8	8		let contractFilename = "meme_im_calculator.ride"
9	9
10	10		let mult8 = 100000000
11	11
12	12		func wrapErr (s) = ((contractFilename + ": ") + s)
13	13
14	14
15	15		func throwErr (s) = throw(wrapErr(s))
16	16
17	17
18	18		func validateAddress (address) = isDefined(addressFromString(address))
19	19
20	20
21	21		let STATUS_EMPTY = 0
22	22
23	23		let STATUS_READY = 1
24	24
25	25		let kShutdown = "shutdown__flag"
26	26
27	27		let kPriceAsset = "price__asset"
28	28
29	29		let kListingVolume = "listing__volume"
30	30
31	31		let kPoolContractHash = "pool__contract__hash"
32	32
33	33		let kLastEmptyPoolIndex = "last__empty_pool__index"
34	34
35	35		let kFirstEmptyPoolIndex = "first__empty__pool__index"
36	36
37	37		func kPoolAddressFromIndex (index) = makeString(["pool", toString(index)], separator)
38	38
39	39
40	40		func kPoolIndexFromAddress (address) = makeString(["pool", toString(address)], separator)
41	41
42	42
43	43		func kPoolAsset (address) = makeString(["asset", toString(address)], separator)
44	44
45	45
46	46		func kPoolStatus (index) = makeString(["pool", "status", toString(index)], separator)
47	47
48	48
49	49		let kFactoryAddress = "factory__address"
50	50
51	51		let factoryAddressOption = match getString(this, kFactoryAddress) {
52	52		case s: String =>
53	53		addressFromString(s)
54	54		case _: Unit =>
55	55		unit
56	56		case _ =>
57	57		throw("Match error")
58	58		}
59	59
60	60		let factoryAddress = valueOrErrorMessage(factoryAddressOption, wrapErr("invalid factory address"))
61	61
62	62		let shutdown = valueOrElse(getBoolean(factoryAddress, kShutdown), false)
63	63
64	64		let lastEmptyIndex = valueOrElse(getInteger(factoryAddress, kLastEmptyPoolIndex), 0)
65	65
66	66		let firstEmptyIndex = valueOrElse(getInteger(factoryAddress, kFirstEmptyPoolIndex), 0)
67	67
68	68		let listingVolume = valueOrElse(getInteger(factoryAddress, kListingVolume), 0)
69	69
70	70		func parseAssetId (input) = if ((input == wavesString))
71	71		then unit
72	72		else fromBase58String(input)
73	73
74	74
75	75		func assetIdToString (input) = if ((input == unit))
76	76		then wavesString
77	77		else toBase58String(value(input))
78	78
79	79
80	80		func mustAddress (caller,address) = if ((caller == address))
81	81		then true
82	82		else throwErr("permission denied")
83	83
84	84
85	85		func mustThis (caller) = mustAddress(caller, this)
86	86
87	87
88	88		func mustFactory (caller) = mustAddress(caller, factoryAddress)
89	89
90	90
91	91		func poolContractHash () = valueOrErrorMessage(getBinary(factoryAddress, kPoolContractHash), wrapErr("pool contract script hash is not set"))
92	92
93	93
94		-	func isPoolAddressExists (address) = match getInteger(factoryAddress, kPoolIndexFromAddress(address)) {
95		-	case t: Int =>
96		-	true
97		-	case _ =>
98		-	false
99		-	}
100		-
101		-
102	94		@Callable(i)
103	95		func init (factoryAddressStr) = {
104	96		let checkCaller = mustThis(i.caller)
105	97		if ((checkCaller == checkCaller))
106	98		then [StringEntry(kFactoryAddress, factoryAddressStr)]
107	99		else throw("Strict value is not equal to itself.")
108	100		}
109	101
110	102
111	103
112	104		@Callable(i)
113	105		func addEmptyPool (callerPublicKey,args) = {
114	106		let newPoolAddress = addressFromPublicKey(callerPublicKey)
115	107		let newPoolIndex = (lastEmptyIndex + 1)
116		-	let checks = [if (!(~~isPoolAddressExists~~(newPoolAddress)))
	108	+	let checks = [if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
117	109		then true
118	110		else throwErr("pool address is already registered")]
119	111		if ((checks == checks))
120	112		then {
121	113		let factoryActions = [invoke(factoryAddress, "integerEntry", [kLastEmptyPoolIndex, newPoolIndex], nil), invoke(factoryAddress, "stringEntry", [kPoolAddressFromIndex(newPoolIndex), toString(newPoolAddress)], nil), invoke(factoryAddress, "integerEntry", [kPoolIndexFromAddress(newPoolAddress), newPoolIndex], nil), invoke(factoryAddress, "integerEntry", [kPoolStatus(newPoolIndex), STATUS_EMPTY], nil)]
122	114		$Tuple2(nil, factoryActions)
123	115		}
124	116		else throw("Strict value is not equal to itself.")
125	117		}
126	118
127	119
128	120
129	121		@Callable(i)
130	122		func createPool (callerPublicKey,args) = {
131	123		let checks = [if (!(shutdown))
132	124		then true
133	125		else throwErr("not allowed (shutdown)"), mustFactory(i.caller), if (((lastEmptyIndex - firstEmptyIndex) > 0))
134	126		then true
135	127		else throwErr("no empty pools available"), if ((i.payments[1].assetId == unit))
136	128		then true
137	129		else throwErr("price asset should be WAVES"), if ((i.payments[1].amount > listingVolume))
138	130		then true
139	131		else throwErr("payment[1] amount should be greater than listing volume"), if ((i.payments[0].assetId != unit))
140	132		then true
141	133		else throwErr("amount asset cannot be WAVES"), if ((i.payments[0].amount > 0))
142	134		then true
143	135		else throwErr("payment[0] amount should be greater than 0")]
144	136		if ((checks == checks))
145	137		then {
146	138		let amountAssetId = i.payments[0].assetId
147	139		let amountAssetIdString = assetIdToString(amountAssetId)
148	140		let poolIndex = (firstEmptyIndex + 1)
149	141		let poolAddressString = getStringValue(factoryAddress, kPoolAddressFromIndex(poolIndex))
150	142		let poolAddress = addressFromStringValue(poolAddressString)
151	143		let actions = [ScriptTransfer(poolAddress, i.payments[0].amount, i.payments[0].assetId), ScriptTransfer(poolAddress, i.payments[1].amount, i.payments[1].assetId)]
152	144		let factoryActions = [invoke(factoryAddress, "stringEntry", [kPoolAsset(poolAddress), amountAssetIdString], nil), invoke(factoryAddress, "integerEntry", [kFirstEmptyPoolIndex, poolIndex], nil), invoke(factoryAddress, "integerEntry", [kPoolStatus(poolIndex), STATUS_READY], nil)]
153	145		$Tuple2(actions, factoryActions)
154	146		}
155	147		else throw("Strict value is not equal to itself.")
156	148		}
157	149
158	150

github/deemru/w8io/026f985 
29.91 ms ◑