w8 · tx · CRr···2PQ

tx · CRrcKDGeT7Q8cSiekc59tc1nvUjKuv8fLk1559cwH2PQ

3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr:  -0.00500000 Waves

2024.09.27 09:20 [3301654] smart account 3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CRrcKDGeT7Q8cSiekc59tc1nvUjKuv8fLk1559cwH2PQ",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1727418028661,
    "version": 2,
    "chainId": 84,
    "sender": "3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr",
    "senderPublicKey": "jXCTQV8PjX2uC9UHBFveupYy9cjhY7stHbzE9cptymw",
    "proofs": [
        "289aKy3ESYwik3G2wJnshC43a4u25M6AEdy829YzByCsiXNNy8U9342mLXHeRQtHziT3eJoeZQzdgQgiL7SnnFRc"
    ],
    "script": "base64:BwITCAISAwoBCBIECgICGBIECgICGCAACXNlcGFyYXRvcgICX18AC3dhdmVzU3RyaW5nAgVXQVZFUwAQY29udHJhY3RGaWxlbmFtZQIXbWVtZV9pbV9jYWxjdWxhdG9yLnJpZGUABW11bHQ4AIDC1y8BB3dyYXBFcnIBAXMJAKwCAgkArAICBRBjb250cmFjdEZpbGVuYW1lAgI6IAUBcwEIdGhyb3dFcnIBAXMJAAIBCQEHd3JhcEVycgEFAXMBD3ZhbGlkYXRlQWRkcmVzcwEHYWRkcmVzcwkBCWlzRGVmaW5lZAEJAKYIAQUHYWRkcmVzcwAMU1RBVFVTX0VNUFRZAAAADFNUQVRVU19SRUFEWQABAAlrU2h1dGRvd24CDnNodXRkb3duX19mbGFnAAtrUHJpY2VBc3NldAIMcHJpY2VfX2Fzc2V0AA5rTGlzdGluZ1ZvbHVtZQIPbGlzdGluZ19fdm9sdW1lABFrUG9vbENvbnRyYWN0SGFzaAIUcG9vbF9fY29udHJhY3RfX2hhc2gAE2tMYXN0RW1wdHlQb29sSW5kZXgCF2xhc3RfX2VtcHR5X3Bvb2xfX2luZGV4ABRrRmlyc3RFbXB0eVBvb2xJbmRleAIZZmlyc3RfX2VtcHR5X19wb29sX19pbmRleAEVa1Bvb2xBZGRyZXNzRnJvbUluZGV4AQVpbmRleAkAuQkCCQDMCAICBHBvb2wJAMwIAgkApAMBBQVpbmRleAUDbmlsBQlzZXBhcmF0b3IBFWtQb29sSW5kZXhGcm9tQWRkcmVzcwEHYWRkcmVzcwkAuQkCCQDMCAICBHBvb2wJAMwIAgkApQgBBQdhZGRyZXNzBQNuaWwFCXNlcGFyYXRvcgEKa1Bvb2xBc3NldAEHYWRkcmVzcwkAuQkCCQDMCAICBWFzc2V0CQDMCAIJAKUIAQUHYWRkcmVzcwUDbmlsBQlzZXBhcmF0b3IBC2tQb29sU3RhdHVzAQVpbmRleAkAuQkCCQDMCAICBHBvb2wJAMwIAgIGc3RhdHVzCQDMCAIJAKQDAQUFaW5kZXgFA25pbAUJc2VwYXJhdG9yAA9rRmFjdG9yeUFkZHJlc3MCEGZhY3RvcnlfX2FkZHJlc3MAFGZhY3RvcnlBZGRyZXNzT3B0aW9uBAckbWF0Y2gwCQCdCAIFBHRoaXMFD2tGYWN0b3J5QWRkcmVzcwMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJAKYIAQUBcwMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IADmZhY3RvcnlBZGRyZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIFFGZhY3RvcnlBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECF2ludmFsaWQgZmFjdG9yeSBhZGRyZXNzAAhzaHV0ZG93bgkBC3ZhbHVlT3JFbHNlAgkAmwgCBQ5mYWN0b3J5QWRkcmVzcwUJa1NodXRkb3duBwAObGFzdEVtcHR5SW5kZXgJAQt2YWx1ZU9yRWxzZQIJAJoIAgUOZmFjdG9yeUFkZHJlc3MFE2tMYXN0RW1wdHlQb29sSW5kZXgAAAAPZmlyc3RFbXB0eUluZGV4CQELdmFsdWVPckVsc2UCCQCaCAIFDmZhY3RvcnlBZGRyZXNzBRRrRmlyc3RFbXB0eVBvb2xJbmRleAAAAA1saXN0aW5nVm9sdW1lCQELdmFsdWVPckVsc2UCCQCaCAIFDmZhY3RvcnlBZGRyZXNzBQ5rTGlzdGluZ1ZvbHVtZQAAAQxwYXJzZUFzc2V0SWQBBWlucHV0AwkAAAIFBWlucHV0BQt3YXZlc1N0cmluZwUEdW5pdAkA2QQBBQVpbnB1dAEPYXNzZXRJZFRvU3RyaW5nAQVpbnB1dAMJAAACBQVpbnB1dAUEdW5pdAULd2F2ZXNTdHJpbmcJANgEAQkBBXZhbHVlAQUFaW5wdXQBC211c3RBZGRyZXNzAgZjYWxsZXIHYWRkcmVzcwMJAAACBQZjYWxsZXIFB2FkZHJlc3MGCQEIdGhyb3dFcnIBAhFwZXJtaXNzaW9uIGRlbmllZAEIbXVzdFRoaXMBBmNhbGxlcgkBC211c3RBZGRyZXNzAgUGY2FsbGVyBQR0aGlzAQttdXN0RmFjdG9yeQEGY2FsbGVyCQELbXVzdEFkZHJlc3MCBQZjYWxsZXIFDmZhY3RvcnlBZGRyZXNzARBwb29sQ29udHJhY3RIYXNoAAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFDmZhY3RvcnlBZGRyZXNzBRFrUG9vbENvbnRyYWN0SGFzaAkBB3dyYXBFcnIBAiRwb29sIGNvbnRyYWN0IHNjcmlwdCBoYXNoIGlzIG5vdCBzZXQDAWkBBGluaXQBEWZhY3RvcnlBZGRyZXNzU3RyBAtjaGVja0NhbGxlcgkBCG11c3RUaGlzAQgFAWkGY2FsbGVyAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCBQ9rRmFjdG9yeUFkZHJlc3MFEWZhY3RvcnlBZGRyZXNzU3RyBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEMYWRkRW1wdHlQb29sAg9jYWxsZXJQdWJsaWNLZXkEYXJncwQObmV3UG9vbEFkZHJlc3MJAKcIAQUPY2FsbGVyUHVibGljS2V5BAxuZXdQb29sSW5kZXgJAGQCBQ5sYXN0RW1wdHlJbmRleAABBAZjaGVja3MJAMwIAgMJAQEhAQUIc2h1dGRvd24GCQEIdGhyb3dFcnIBAhZub3QgYWxsb3dlZCAoc2h1dGRvd24pCQDMCAIDCQEBIQEJAQlpc0RlZmluZWQBCQCaCAIFDmZhY3RvcnlBZGRyZXNzCQEVa1Bvb2xJbmRleEZyb21BZGRyZXNzAQUObmV3UG9vbEFkZHJlc3MGCQEIdGhyb3dFcnIBAiJwb29sIGFkZHJlc3MgaXMgYWxyZWFkeSByZWdpc3RlcmVkBQNuaWwDCQAAAgUGY2hlY2tzBQZjaGVja3MEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUOZmFjdG9yeUFkZHJlc3MCDGludGVnZXJFbnRyeQkAzAgCBRNrTGFzdEVtcHR5UG9vbEluZGV4CQDMCAIFDG5ld1Bvb2xJbmRleAUDbmlsBQNuaWwJAMwIAgkA/AcEBQ5mYWN0b3J5QWRkcmVzcwILc3RyaW5nRW50cnkJAMwIAgkBFWtQb29sQWRkcmVzc0Zyb21JbmRleAEFDG5ld1Bvb2xJbmRleAkAzAgCCQClCAEFDm5ld1Bvb2xBZGRyZXNzBQNuaWwFA25pbAkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAgxpbnRlZ2VyRW50cnkJAMwIAgkBFWtQb29sSW5kZXhGcm9tQWRkcmVzcwEFDm5ld1Bvb2xBZGRyZXNzCQDMCAIFDG5ld1Bvb2xJbmRleAUDbmlsBQNuaWwJAMwIAgkA/AcEBQ5mYWN0b3J5QWRkcmVzcwIMaW50ZWdlckVudHJ5CQDMCAIJAQtrUG9vbFN0YXR1cwEFDG5ld1Bvb2xJbmRleAkAzAgCBQxTVEFUVVNfRU1QVFkFA25pbAUDbmlsBQNuaWwJAJQKAgUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQpjcmVhdGVQb29sAg9jYWxsZXJQdWJsaWNLZXkEYXJncwQGY2hlY2tzCQDMCAIDCQEBIQEFCHNodXRkb3duBgkBCHRocm93RXJyAQIWbm90IGFsbG93ZWQgKHNodXRkb3duKQkAzAgCCQELbXVzdEZhY3RvcnkBCAUBaQZjYWxsZXIJAMwIAgMJAGYCCQBlAgUObGFzdEVtcHR5SW5kZXgFD2ZpcnN0RW1wdHlJbmRleAAABgkBCHRocm93RXJyAQIYbm8gZW1wdHkgcG9vbHMgYXZhaWxhYmxlCQDMCAIDCQAAAggJAJEDAggFAWkIcGF5bWVudHMAAQdhc3NldElkBQR1bml0BgkBCHRocm93RXJyAQIbcHJpY2UgYXNzZXQgc2hvdWxkIGJlIFdBVkVTCQDMCAIDCQBmAggJAJEDAggFAWkIcGF5bWVudHMAAQZhbW91bnQFDWxpc3RpbmdWb2x1bWUGCQEIdGhyb3dFcnIBAjdwYXltZW50WzFdIGFtb3VudCBzaG91bGQgYmUgZ3JlYXRlciB0aGFuIGxpc3Rpbmcgdm9sdW1lCQDMCAIDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFBHVuaXQGCQEIdGhyb3dFcnIBAhxhbW91bnQgYXNzZXQgY2Fubm90IGJlIFdBVkVTCQDMCAIDCQBmAggJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQAAAYJAQh0aHJvd0VycgECKnBheW1lbnRbMF0gYW1vdW50IHNob3VsZCBiZSBncmVhdGVyIHRoYW4gMAUDbmlsAwkAAAIFBmNoZWNrcwUGY2hlY2tzBA1hbW91bnRBc3NldElkCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQEE2Ftb3VudEFzc2V0SWRTdHJpbmcJAQ9hc3NldElkVG9TdHJpbmcBBQ1hbW91bnRBc3NldElkBAlwb29sSW5kZXgJAGQCBQ9maXJzdEVtcHR5SW5kZXgAAQQRcG9vbEFkZHJlc3NTdHJpbmcJARFAZXh0ck5hdGl2ZSgxMDUzKQIFDmZhY3RvcnlBZGRyZXNzCQEVa1Bvb2xBZGRyZXNzRnJvbUluZGV4AQUJcG9vbEluZGV4BAtwb29sQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQURcG9vbEFkZHJlc3NTdHJpbmcEB2FjdGlvbnMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwULcG9vbEFkZHJlc3MICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwULcG9vbEFkZHJlc3MICQCRAwIIBQFpCHBheW1lbnRzAAEGYW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwABB2Fzc2V0SWQFA25pbAQOZmFjdG9yeUFjdGlvbnMJAMwIAgkA/AcEBQ5mYWN0b3J5QWRkcmVzcwILc3RyaW5nRW50cnkJAMwIAgkBCmtQb29sQXNzZXQBBQtwb29sQWRkcmVzcwkAzAgCBRNhbW91bnRBc3NldElkU3RyaW5nBQNuaWwFA25pbAkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAgxpbnRlZ2VyRW50cnkJAMwIAgUUa0ZpcnN0RW1wdHlQb29sSW5kZXgJAMwIAgUJcG9vbEluZGV4BQNuaWwFA25pbAkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAgxpbnRlZ2VyRW50cnkJAMwIAgkBC2tQb29sU3RhdHVzAQUJcG9vbEluZGV4CQDMCAIFDFNUQVRVU19SRUFEWQUDbmlsBQNuaWwFA25pbAkAlAoCBQdhY3Rpb25zBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgDPIgoK",
    "height": 3301654,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5cgqR8DJvrRMm5S1PFf2u4iFiGXJvt9pqt2oH75DAaUp
Next: keXJoYwxziRcZvuaGo4fJSv5zPBuyb6VvHkg4cChKpo

Diff: 
Old New Differences
105 105  func addEmptyPool (callerPublicKey,args) = {
106 106      let newPoolAddress = addressFromPublicKey(callerPublicKey)
107 107      let newPoolIndex = (lastEmptyIndex + 1)
108 -     let checks = [if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
108 +     let checks = [if (!(shutdown))
109 +         then true
110 +         else throwErr("not allowed (shutdown)"), if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
109 111          then true
110 112          else throwErr("pool address is already registered")]
111 113      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 94  @Callable(i)
95 95  func init (factoryAddressStr) = {
96 96      let checkCaller = mustThis(i.caller)
97 97      if ((checkCaller == checkCaller))
98 98          then [StringEntry(kFactoryAddress, factoryAddressStr)]
99 99          else throw("Strict value is not equal to itself.")
100 100      }
101 101  
102 102  
103 103  
104 104  @Callable(i)
105 105  func addEmptyPool (callerPublicKey,args) = {
106 106      let newPoolAddress = addressFromPublicKey(callerPublicKey)
107 107      let newPoolIndex = (lastEmptyIndex + 1)
108 -     let checks = [if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
108 +     let checks = [if (!(shutdown))
109 +         then true
110 +         else throwErr("not allowed (shutdown)"), if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
109 111          then true
110 112          else throwErr("pool address is already registered")]
111 113      if ((checks == checks))
112 114          then {
113 115              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)]
114 116              $Tuple2(nil, factoryActions)
115 117              }
116 118          else throw("Strict value is not equal to itself.")
117 119      }
118 120  
119 121  
120 122  
121 123  @Callable(i)
122 124  func createPool (callerPublicKey,args) = {
123 125      let checks = [if (!(shutdown))
124 126          then true
125 127          else throwErr("not allowed (shutdown)"), mustFactory(i.caller), if (((lastEmptyIndex - firstEmptyIndex) > 0))
126 128          then true
127 129          else throwErr("no empty pools available"), if ((i.payments[1].assetId == unit))
128 130          then true
129 131          else throwErr("price asset should be WAVES"), if ((i.payments[1].amount > listingVolume))
130 132          then true
131 133          else throwErr("payment[1] amount should be greater than listing volume"), if ((i.payments[0].assetId != unit))
132 134          then true
133 135          else throwErr("amount asset cannot be WAVES"), if ((i.payments[0].amount > 0))
134 136          then true
135 137          else throwErr("payment[0] amount should be greater than 0")]
136 138      if ((checks == checks))
137 139          then {
138 140              let amountAssetId = i.payments[0].assetId
139 141              let amountAssetIdString = assetIdToString(amountAssetId)
140 142              let poolIndex = (firstEmptyIndex + 1)
141 143              let poolAddressString = getStringValue(factoryAddress, kPoolAddressFromIndex(poolIndex))
142 144              let poolAddress = addressFromStringValue(poolAddressString)
143 145              let actions = [ScriptTransfer(poolAddress, i.payments[0].amount, i.payments[0].assetId), ScriptTransfer(poolAddress, i.payments[1].amount, i.payments[1].assetId)]
144 146              let factoryActions = [invoke(factoryAddress, "stringEntry", [kPoolAsset(poolAddress), amountAssetIdString], nil), invoke(factoryAddress, "integerEntry", [kFirstEmptyPoolIndex, poolIndex], nil), invoke(factoryAddress, "integerEntry", [kPoolStatus(poolIndex), STATUS_READY], nil)]
145 147              $Tuple2(actions, factoryActions)
146 148              }
147 149          else throw("Strict value is not equal to itself.")
148 150      }
149 151  
150 152

Old	New		Differences
105	105		func addEmptyPool (callerPublicKey,args) = {
106	106		let newPoolAddress = addressFromPublicKey(callerPublicKey)
107	107		let newPoolIndex = (lastEmptyIndex + 1)
108		-	let checks = [if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
	108	+	let checks = [if (!(shutdown))
	109	+	then true
	110	+	else throwErr("not allowed (shutdown)"), if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
109	111		then true
110	112		else throwErr("pool address is already registered")]
111	113		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	94		@Callable(i)
95	95		func init (factoryAddressStr) = {
96	96		let checkCaller = mustThis(i.caller)
97	97		if ((checkCaller == checkCaller))
98	98		then [StringEntry(kFactoryAddress, factoryAddressStr)]
99	99		else throw("Strict value is not equal to itself.")
100	100		}
101	101
102	102
103	103
104	104		@Callable(i)
105	105		func addEmptyPool (callerPublicKey,args) = {
106	106		let newPoolAddress = addressFromPublicKey(callerPublicKey)
107	107		let newPoolIndex = (lastEmptyIndex + 1)
108		-	let checks = [if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
	108	+	let checks = [if (!(shutdown))
	109	+	then true
	110	+	else throwErr("not allowed (shutdown)"), if (!(isDefined(getInteger(factoryAddress, kPoolIndexFromAddress(newPoolAddress)))))
109	111		then true
110	112		else throwErr("pool address is already registered")]
111	113		if ((checks == checks))
112	114		then {
113	115		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)]
114	116		$Tuple2(nil, factoryActions)
115	117		}
116	118		else throw("Strict value is not equal to itself.")
117	119		}
118	120
119	121
120	122
121	123		@Callable(i)
122	124		func createPool (callerPublicKey,args) = {
123	125		let checks = [if (!(shutdown))
124	126		then true
125	127		else throwErr("not allowed (shutdown)"), mustFactory(i.caller), if (((lastEmptyIndex - firstEmptyIndex) > 0))
126	128		then true
127	129		else throwErr("no empty pools available"), if ((i.payments[1].assetId == unit))
128	130		then true
129	131		else throwErr("price asset should be WAVES"), if ((i.payments[1].amount > listingVolume))
130	132		then true
131	133		else throwErr("payment[1] amount should be greater than listing volume"), if ((i.payments[0].assetId != unit))
132	134		then true
133	135		else throwErr("amount asset cannot be WAVES"), if ((i.payments[0].amount > 0))
134	136		then true
135	137		else throwErr("payment[0] amount should be greater than 0")]
136	138		if ((checks == checks))
137	139		then {
138	140		let amountAssetId = i.payments[0].assetId
139	141		let amountAssetIdString = assetIdToString(amountAssetId)
140	142		let poolIndex = (firstEmptyIndex + 1)
141	143		let poolAddressString = getStringValue(factoryAddress, kPoolAddressFromIndex(poolIndex))
142	144		let poolAddress = addressFromStringValue(poolAddressString)
143	145		let actions = [ScriptTransfer(poolAddress, i.payments[0].amount, i.payments[0].assetId), ScriptTransfer(poolAddress, i.payments[1].amount, i.payments[1].assetId)]
144	146		let factoryActions = [invoke(factoryAddress, "stringEntry", [kPoolAsset(poolAddress), amountAssetIdString], nil), invoke(factoryAddress, "integerEntry", [kFirstEmptyPoolIndex, poolIndex], nil), invoke(factoryAddress, "integerEntry", [kPoolStatus(poolIndex), STATUS_READY], nil)]
145	147		$Tuple2(actions, factoryActions)
146	148		}
147	149		else throw("Strict value is not equal to itself.")
148	150		}
149	151
150	152

github/deemru/w8io/026f985 
29.85 ms ◑