w8 · tx · AMg···365

tx · AMgCQBh6n5pc6hT6CyhVmnPm2C3N9QuB4382oqYwt365

3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr:  -0.00500000 Waves

2024.09.25 09:31 [3298773] smart account 3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AMgCQBh6n5pc6hT6CyhVmnPm2C3N9QuB4382oqYwt365",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1727245904345,
    "version": 2,
    "chainId": 84,
    "sender": "3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr",
    "senderPublicKey": "jXCTQV8PjX2uC9UHBFveupYy9cjhY7stHbzE9cptymw",
    "proofs": [
        "4am8jm3vSa6ejtgHhCbGFrt9g72Gabuqr8jNAqU2ixCNQ4uZiZfGwRTU7da8iDKJE5Sst8ZRAtWbFoLLuhgSiZmx"
    ],
    "script": "base64:BwITCAISAwoBCBIECgICGBIECgICGCAACXNlcGFyYXRvcgICX18AC3dhdmVzU3RyaW5nAgVXQVZFUwAQY29udHJhY3RGaWxlbmFtZQIXbWVtZV9pbV9jYWxjdWxhdG9yLnJpZGUABW11bHQ4AIDC1y8BB3dyYXBFcnIBAXMJAKwCAgkArAICBRBjb250cmFjdEZpbGVuYW1lAgI6IAUBcwEIdGhyb3dFcnIBAXMJAAIBCQEHd3JhcEVycgEFAXMBD3ZhbGlkYXRlQWRkcmVzcwEHYWRkcmVzcwkBCWlzRGVmaW5lZAEJAKYIAQUHYWRkcmVzcwAMU1RBVFVTX0VNUFRZAAAADFNUQVRVU19SRUFEWQABAAlrU2h1dGRvd24CDCVzX19zaHV0ZG93bgALa1ByaWNlQXNzZXQCDHByaWNlX19hc3NldAAOa0xpc3RpbmdWb2x1bWUCDmxpc3Rpbmdfdm9sdW1lABFrUG9vbENvbnRyYWN0SGFzaAIScG9vbF9jb250cmFjdF9oYXNoABNrTGFzdEVtcHR5UG9vbEluZGV4AhdsYXN0X19lbXB0eV9wb29sX19pbmRleAAUa0ZpcnN0RW1wdHlQb29sSW5kZXgCGWZpcnN0X19lbXB0eV9fcG9vbF9faW5kZXgBFWtQb29sQWRkcmVzc0Zyb21JbmRleAEFaW5kZXgJALkJAgkAzAgCAgRwb29sCQDMCAIJAKQDAQUFaW5kZXgFA25pbAUJc2VwYXJhdG9yARVrUG9vbEluZGV4RnJvbUFkZHJlc3MBB2FkZHJlc3MJALkJAgkAzAgCAgRwb29sCQDMCAIJAKUIAQUHYWRkcmVzcwUDbmlsBQlzZXBhcmF0b3IBCmtQb29sQXNzZXQBB2FkZHJlc3MJALkJAgkAzAgCAgVhc3NldAkAzAgCCQClCAEFB2FkZHJlc3MFA25pbAUJc2VwYXJhdG9yAQtrUG9vbFN0YXR1cwEFaW5kZXgJALkJAgkAzAgCAgRwb29sCQDMCAICBnN0YXR1cwkAzAgCCQCkAwEFBWluZGV4BQNuaWwFCXNlcGFyYXRvcgAPa0ZhY3RvcnlBZGRyZXNzAhIlc19fZmFjdG9yeUFkZHJlc3MAFGZhY3RvcnlBZGRyZXNzT3B0aW9uBAckbWF0Y2gwCQCdCAIFBHRoaXMFD2tGYWN0b3J5QWRkcmVzcwMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAJAKYIAQUBcwMJAAECBQckbWF0Y2gwAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IADmZhY3RvcnlBZGRyZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIFFGZhY3RvcnlBZGRyZXNzT3B0aW9uCQEHd3JhcEVycgECF2ludmFsaWQgZmFjdG9yeSBhZGRyZXNzAAhzaHV0ZG93bgkBC3ZhbHVlT3JFbHNlAgkAmwgCBQ5mYWN0b3J5QWRkcmVzcwUJa1NodXRkb3duBwAObGFzdEVtcHR5SW5kZXgJAQt2YWx1ZU9yRWxzZQIJAJoIAgUOZmFjdG9yeUFkZHJlc3MFE2tMYXN0RW1wdHlQb29sSW5kZXgAAAAPZmlyc3RFbXB0eUluZGV4CQELdmFsdWVPckVsc2UCCQCaCAIFDmZhY3RvcnlBZGRyZXNzBRRrRmlyc3RFbXB0eVBvb2xJbmRleAAAAA1saXN0aW5nVm9sdW1lCQELdmFsdWVPckVsc2UCCQCaCAIFDmZhY3RvcnlBZGRyZXNzBQ5rTGlzdGluZ1ZvbHVtZQAAAQxwYXJzZUFzc2V0SWQBBWlucHV0AwkAAAIFBWlucHV0BQt3YXZlc1N0cmluZwUEdW5pdAkA2QQBBQVpbnB1dAEPYXNzZXRJZFRvU3RyaW5nAQVpbnB1dAMJAAACBQVpbnB1dAUEdW5pdAULd2F2ZXNTdHJpbmcJANgEAQkBBXZhbHVlAQUFaW5wdXQBC211c3RBZGRyZXNzAgZjYWxsZXIHYWRkcmVzcwMJAAACBQZjYWxsZXIFB2FkZHJlc3MGCQEIdGhyb3dFcnIBAhFwZXJtaXNzaW9uIGRlbmllZAEIbXVzdFRoaXMBBmNhbGxlcgkBC211c3RBZGRyZXNzAgUGY2FsbGVyBQR0aGlzAQttdXN0RmFjdG9yeQEGY2FsbGVyCQELbXVzdEFkZHJlc3MCBQZjYWxsZXIFDmZhY3RvcnlBZGRyZXNzARBwb29sQ29udHJhY3RIYXNoAAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFDmZhY3RvcnlBZGRyZXNzBRFrUG9vbENvbnRyYWN0SGFzaAkBB3dyYXBFcnIBAiRwb29sIGNvbnRyYWN0IHNjcmlwdCBoYXNoIGlzIG5vdCBzZXQDAWkBBGluaXQBEWZhY3RvcnlBZGRyZXNzU3RyBAtjaGVja0NhbGxlcgkBCG11c3RUaGlzAQgFAWkGY2FsbGVyAwkAAAIFC2NoZWNrQ2FsbGVyBQtjaGVja0NhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCBQ9rRmFjdG9yeUFkZHJlc3MFEWZhY3RvcnlBZGRyZXNzU3RyBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEMYWRkRW1wdHlQb29sAg9jYWxsZXJQdWJsaWNLZXkEYXJncwQObmV3UG9vbEFkZHJlc3MJAKcIAQUPY2FsbGVyUHVibGljS2V5BAxuZXdQb29sSW5kZXgJAGQCBQ5sYXN0RW1wdHlJbmRleAABBA5mYWN0b3J5QWN0aW9ucwkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAgxpbnRlZ2VyRW50cnkJAMwIAgUTa0xhc3RFbXB0eVBvb2xJbmRleAkAzAgCBQxuZXdQb29sSW5kZXgFA25pbAUDbmlsCQDMCAIJAPwHBAUOZmFjdG9yeUFkZHJlc3MCC3N0cmluZ0VudHJ5CQDMCAIJARVrUG9vbEFkZHJlc3NGcm9tSW5kZXgBBQxuZXdQb29sSW5kZXgJAMwIAgkApQgBBQ5uZXdQb29sQWRkcmVzcwUDbmlsBQNuaWwJAMwIAgkA/AcEBQ5mYWN0b3J5QWRkcmVzcwIMaW50ZWdlckVudHJ5CQDMCAIJARVrUG9vbEluZGV4RnJvbUFkZHJlc3MBBQ5uZXdQb29sQWRkcmVzcwkAzAgCBQxuZXdQb29sSW5kZXgFA25pbAUDbmlsCQDMCAIJAPwHBAUOZmFjdG9yeUFkZHJlc3MCDGludGVnZXJFbnRyeQkAzAgCCQELa1Bvb2xTdGF0dXMBBQxuZXdQb29sSW5kZXgJAMwIAgUMU1RBVFVTX0VNUFRZBQNuaWwFA25pbAUDbmlsCQCUCgIFA25pbAUOZmFjdG9yeUFjdGlvbnMBaQEKY3JlYXRlUG9vbAIPY2FsbGVyUHVibGljS2V5BGFyZ3MEBmNoZWNrcwkAzAgCAwkBASEBBQhzaHV0ZG93bgYJAQh0aHJvd0VycgECFm5vdCBhbGxvd2VkIChzaHV0ZG93bikJAMwIAgkBC211c3RGYWN0b3J5AQgFAWkGY2FsbGVyCQDMCAIDCQBmAgkAZQIFDmxhc3RFbXB0eUluZGV4BQ9maXJzdEVtcHR5SW5kZXgAAAYJAQh0aHJvd0VycgECGG5vIGVtcHR5IHBvb2xzIGF2YWlsYWJsZQkAzAgCAwkAAAIICQCRAwIIBQFpCHBheW1lbnRzAAEHYXNzZXRJZAUEdW5pdAYJAQh0aHJvd0VycgECG3ByaWNlIGFzc2V0IHNob3VsZCBiZSBXQVZFUwkAzAgCAwkAZgIICQCRAwIIBQFpCHBheW1lbnRzAAEGYW1vdW50BQ1saXN0aW5nVm9sdW1lBgkBCHRocm93RXJyAQI3cGF5bWVudFsxXSBhbW91bnQgc2hvdWxkIGJlIGdyZWF0ZXIgdGhhbiBsaXN0aW5nIHZvbHVtZQkAzAgCAwkBAiE9AggJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQR1bml0BgkBCHRocm93RXJyAQIcYW1vdW50IGFzc2V0IGNhbm5vdCBiZSBXQVZFUwkAzAgCAwkAZgIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50AAAGCQEIdGhyb3dFcnIBAipwYXltZW50WzBdIGFtb3VudCBzaG91bGQgYmUgZ3JlYXRlciB0aGFuIDAFA25pbAMJAAACBQZjaGVja3MFBmNoZWNrcwQNYW1vdW50QXNzZXRJZAgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBBNhbW91bnRBc3NldElkU3RyaW5nCQEPYXNzZXRJZFRvU3RyaW5nAQUNYW1vdW50QXNzZXRJZAQJcG9vbEluZGV4CQBkAgUPZmlyc3RFbXB0eUluZGV4AAEEEXBvb2xBZGRyZXNzU3RyaW5nCQERQGV4dHJOYXRpdmUoMTA1MykCBQ5mYWN0b3J5QWRkcmVzcwkBFWtQb29sQWRkcmVzc0Zyb21JbmRleAEFCXBvb2xJbmRleAQLcG9vbEFkZHJlc3MJARFAZXh0ck5hdGl2ZSgxMDYyKQEFEXBvb2xBZGRyZXNzU3RyaW5nBAdhY3Rpb25zCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC3Bvb2xBZGRyZXNzCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC3Bvb2xBZGRyZXNzCAkAkQMCCAUBaQhwYXltZW50cwABBmFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAQdhc3NldElkBQNuaWwEDmZhY3RvcnlBY3Rpb25zCQDMCAIJAPwHBAUOZmFjdG9yeUFkZHJlc3MCC3N0cmluZ0VudHJ5CQDMCAIJAQprUG9vbEFzc2V0AQULcG9vbEFkZHJlc3MJAMwIAgUTYW1vdW50QXNzZXRJZFN0cmluZwUDbmlsBQNuaWwJAMwIAgkA/AcEBQ5mYWN0b3J5QWRkcmVzcwIMaW50ZWdlckVudHJ5CQDMCAIFFGtGaXJzdEVtcHR5UG9vbEluZGV4CQDMCAIFCXBvb2xJbmRleAUDbmlsBQNuaWwJAMwIAgkA/AcEBQ5mYWN0b3J5QWRkcmVzcwIMaW50ZWdlckVudHJ5CQDMCAIJAQtrUG9vbFN0YXR1cwEFCXBvb2xJbmRleAkAzAgCBQxTVEFUVVNfUkVBRFkFA25pbAUDbmlsBQNuaWwJAJQKAgUHYWN0aW9ucwUOZmFjdG9yeUFjdGlvbnMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AgSkEVg==",
    "height": 3298773,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 42gY3RtuQJvDHNQwaPDAQkqS5MWd9yBnxHFZMNXSNGy9
Next: 6QwcAS58sr8JhuHuC1JLkVu3GJhWdSsLiMxsRins8jC3

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

Old	New		Differences
92	92
93	93
94	94		@Callable(i)
95		-	func init (~~factoryAddress~~) = {
	95	+	func init (factoryAddressStr) = {
96	96		let checkCaller = mustThis(i.caller)
97	97		if ((checkCaller == checkCaller))
98		-	then [StringEntry(kFactoryAddress, ~~factoryAddress~~)]
	98	+	then [StringEntry(kFactoryAddress, factoryAddressStr)]
99	99		else throw("Strict value is not equal to itself.")
100	100		}
101	101

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 = "%s__shutdown"
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 = "%s__factoryAddress"
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		-	func init (~~factoryAddress~~) = {
	95	+	func init (factoryAddressStr) = {
96	96		let checkCaller = mustThis(i.caller)
97	97		if ((checkCaller == checkCaller))
98		-	then [StringEntry(kFactoryAddress, ~~factoryAddress~~)]
	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	108		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)]
109	109		$Tuple2(nil, factoryActions)
110	110		}
111	111
112	112
113	113
114	114		@Callable(i)
115	115		func createPool (callerPublicKey,args) = {
116	116		let checks = [if (!(shutdown))
117	117		then true
118	118		else throwErr("not allowed (shutdown)"), mustFactory(i.caller), if (((lastEmptyIndex - firstEmptyIndex) > 0))
119	119		then true
120	120		else throwErr("no empty pools available"), if ((i.payments[1].assetId == unit))
121	121		then true
122	122		else throwErr("price asset should be WAVES"), if ((i.payments[1].amount > listingVolume))
123	123		then true
124	124		else throwErr("payment[1] amount should be greater than listing volume"), if ((i.payments[0].assetId != unit))
125	125		then true
126	126		else throwErr("amount asset cannot be WAVES"), if ((i.payments[0].amount > 0))
127	127		then true
128	128		else throwErr("payment[0] amount should be greater than 0")]
129	129		if ((checks == checks))
130	130		then {
131	131		let amountAssetId = i.payments[0].assetId
132	132		let amountAssetIdString = assetIdToString(amountAssetId)
133	133		let poolIndex = (firstEmptyIndex + 1)
134	134		let poolAddressString = getStringValue(factoryAddress, kPoolAddressFromIndex(poolIndex))
135	135		let poolAddress = addressFromStringValue(poolAddressString)
136	136		let actions = [ScriptTransfer(poolAddress, i.payments[0].amount, i.payments[0].assetId), ScriptTransfer(poolAddress, i.payments[1].amount, i.payments[1].assetId)]
137	137		let factoryActions = [invoke(factoryAddress, "stringEntry", [kPoolAsset(poolAddress), amountAssetIdString], nil), invoke(factoryAddress, "integerEntry", [kFirstEmptyPoolIndex, poolIndex], nil), invoke(factoryAddress, "integerEntry", [kPoolStatus(poolIndex), STATUS_READY], nil)]
138	138		$Tuple2(actions, factoryActions)
139	139		}
140	140		else throw("Strict value is not equal to itself.")
141	141		}
142	142
143	143

github/deemru/w8io/c3f4982 
29.80 ms ◑