Address DAH2SYPR2GGYJCY4V4DNYOZFVFXCYTWA, transactions and portfolio

DAH2SYPR2GGYJCY4V4DNYOZFVFXCYTWA

Definition

1	[
2	"autonomous agent",
3	{
4	"init": "{
5	$asset_ct = 'hd936lRtPN11pkgNv8qVnqN2OHMyAp8P/NsLp6KsuqA=';
6	if(!var['-Last price'] and !trigger.data.price) bounce('Price must be defined before first exchange');
7
8	if(trigger.data.price){
9	//bytes per 1 asset
10	$ratio = round(trigger.data.price);
11	if($ratio <= 0) bounce('Price not allowed');
12	}
13	else $ratio = var['-Last price'];
14
15	//asset detection and checks
16	if(trigger.output[[asset!=base]].asset != 'none')
17	$asset = trigger.output[[asset!=base]].asset;
18	if($asset){
19	if($asset == 'ambiguous') bounce('Only 1 asset per tx');
20	if($asset != $asset_ct) bounce('Asset not allowed, please send ' \|\| $asset_ct);
21	$asset_inp = (trigger.output[[asset!=base]] != 0) ? trigger.output[[asset!=base]] : bounce('Zero asset tx');
22	}
23
24	$addr = trigger.address;
25	$base_inp = trigger.output[[asset=base]] - 700;
26
27	//user amounts-price
28	$base_key = $addr \|\| $ratio \|\| 'b';
29	$asset_key = $addr \|\| $ratio;
30
31	//total amounts-price
32	$total_key = 'b' \|\| $ratio;
33	$total_asset_key = 'a' \|\| $ratio;
34
35	//exchanged amounts, allow users to withdraw afterwards
36	$exch_key = 'b_' \|\| $ratio ;
37	$exch_asset_key = 'a_' \|\| $ratio ;
38
39	//exchanged amounts are 'protected' until owners withdraw, defines also max amount to cancel
40	$max_b_to_exchange = var[$total_key] - var[$exch_key];
41	$max_a_to_exchange = var[$total_asset_key] - var[$exch_asset_key];
42
43	//base_inp without leftover bytes
44	$base_inp_round = ($base_inp - ($base_inp % $ratio));
45
46	}",
47	"messages": {
48	"cases": [
49	{
50	"if": "{
51	//allowed if there is exchanged amount and user deposited previously
52	$withdraw_asset = var[$exch_asset_key] and var[$base_key] and var[$exch_asset_key] > 0 and var[$base_key] > 0;
53	$withdraw_base = var[$exch_key] and var[$asset_key] and var[$exch_key] > 0 and var[$asset_key] > 0;
54
55	$withdraw_asset or $withdraw_base
56	}",
57	"init": "{
58	$withdraw_key = $withdraw_asset ? $exch_asset_key : $exch_key;
59	$w_total_key = $withdraw_asset ? $total_asset_key : $total_key;
60	$max_to_withdraw = $withdraw_asset ? (var[$base_key] / $ratio) : (var[$asset_key] * $ratio);
61	$key = $withdraw_asset ? $base_key : $asset_key;
62	//user can withdraw all their exchanged amount or a part of their exchanged amount (rest of order could be cancel)
63	$withdraw_amount = (var[$withdraw_key] <= $max_to_withdraw) ? var[$withdraw_key] : $max_to_withdraw;
64	}",
65	"messages": [
66	{
67	"app": "payment",
68	"payload": {
69	"asset": "base",
70	"outputs": [
71	{
72	"address": "{$addr}",
73	"amount": "{ $withdraw_asset ? $base_inp : ($withdraw_amount + $base_inp) }"
74	}
75	]
76	}
77	},
78	{
79	"if": "{$withdraw_asset}",
80	"app": "payment",
81	"payload": {
82	"asset": "{$asset_ct}",
83	"outputs": [
84	{
85	"address": "{$addr}",
86	"amount": "{$withdraw_amount}"
87	}
88	]
89	}
90	},
91	{
92	"app": "state",
93	"state": "{
94	//substract withdrawn amount
95	var[$w_total_key] -= $withdraw_amount;
96	if(var[$w_total_key] == 0) var[$w_total_key] = false;
97
98	//substract exchanged amount
99	var[$withdraw_key] -= $withdraw_amount;
100	if(var[$withdraw_key] == 0) var[$withdraw_key] = false;
101
102	//substract user deposit
103	var[$key] -= $withdraw_asset ? ($withdraw_amount * $ratio) : ($withdraw_amount / $ratio);
104	if(var[$key] == 0) var[$key] = false;
105
106	response['message'] = 'withdrawn exchanged amount ('\|\|$withdraw_asset ? 'assets': 'bytes' \|\|') at '\|\|$ratio\|\|' bytes per token';
107	}"
108	}
109	]
110	},
111	{
112	"if": "{
113	//allowed if there is amount to exchange and user did not deposit previously for this price
114	$exchange_asset = $asset and $byte_amount and !var[$base_key];
115	$exchange_base = !$asset and $asset_amount and !var[$asset_key];
116
117	!trigger.data.cancel and ($exchange_asset or $exchange_base)
118	}",
119	"init": "{
120	$base_inp_in_asset = $base_inp_round/$ratio;
121	$asset_inp_in_bytes = $asset_inp*$ratio;
122	if($asset){
123	//user sent assets
124	if($max_b_to_exchange > 0){
125	//there are bytes to exchange
126	if($asset_inp_in_bytes > $max_b_to_exchange){
127	//user sent more amount than allowed, exchange to max allowed
128	$byte_amount = $max_b_to_exchange;
129	//leftover
130	$asset_amount = (($asset_inp_in_bytes - $max_b_to_exchange) - (($asset_inp_in_bytes - $max_b_to_exchange) % $ratio)) / $ratio;
131	}
132	else{
133	//user sent less or equal amount than allowed, exchange to user input
134	$byte_amount = $asset_inp_in_bytes;
135	$asset_amount = 0;
136	}
137	}
138	}
139	else{
140	//user sent bytes
141	if($max_a_to_exchange > 0){
142	//there are assets to exchange
143	if($base_inp_in_asset > $max_a_to_exchange){
144	//leftover
145	$byte_amount = ($base_inp_in_asset - $max_a_to_exchange) * $ratio;
146	//user sent more amount than allowed, exchange to max allowed
147	$asset_amount = $max_a_to_exchange;
148	}
149	else{
150	//user sent less or equal amount than allowed, exchange to user input
151	//fail fast to let user know
152	if($base_inp_in_asset == 0) bounce('Not enough funds for minimum');
153	$byte_amount = 0;
154	$asset_amount = $base_inp_in_asset;
155	}
156	}
157	}
158	}",
159	"messages": [
160	{
161	"if": "{$exchange_asset or $byte_amount > 0}",
162	"app": "payment",
163	"payload": {
164	"asset": "base",
165	"outputs": [
166	{
167	"address": "{$addr}",
168	"amount": "{$exchange_asset ? ($byte_amount + $base_inp) : $byte_amount}"
169	}
170	]
171	}
172	},
173	{
174	"if": "{$exchange_base or $asset_amount > 0}",
175	"app": "payment",
176	"payload": {
177	"asset": "{$asset_ct}",
178	"outputs": [
179	{
180	"address": "{$addr}",
181	"amount": "{$asset_amount}"
182	}
183	]
184	}
185	},
186	{
187	"app": "state",
188	"state": "{
189	var['-Last price'] = $ratio;
190	if($exchange_asset){
191	//sum exchanged amount
192	var[$total_asset_key] += $asset_inp - $asset_amount;
193	var[$exch_asset_key] += $asset_inp - $asset_amount;
194
195	//substract taken amount
196	var[$total_key] -= $byte_amount;
197	if(var[$total_key] == 0) var[$total_key] = false;
198	response['message'] = 'sold '\|\|($asset_inp - $asset_amount)\|\|' assets for '\|\|($byte_amount)\|\|' bytes';
199	}
200	else{
201	//sum exchanged amount
202	var[$total_key] += $base_inp_round - $byte_amount;
203	var[$exch_key] += $base_inp_round - $byte_amount;
204
205	//substract taken amount
206	var[$total_asset_key] -= $asset_amount;
207	if(var[$total_asset_key] == 0) var[$total_asset_key] = false;
208	response['message'] = 'bought '\|\|($asset_amount)\|\|' assets for '\|\|($base_inp_round - $byte_amount)\|\|' bytes';
209	}
210	}"
211	}
212	]
213	},
214	{
215	"if": "{
216	//allowed if user has non-filled or partial filled orders to cancel
217	$cancel_asset = var[$asset_key] and var[$asset_key] > 0;
218	$cancel_base = var[$base_key] and var[$base_key] > 0;
219	//if we are here, means user does not fulfill conditions to withdraw
220	trigger.data.cancel and ($cancel_asset or $cancel_base)
221	}",
222	"init": "{
223	$max_to_cancel = $cancel_asset ? $max_a_to_exchange : $max_b_to_exchange;
224	$key = $cancel_asset ? $asset_key : $base_key;
225	$cancel_tot_key = $cancel_asset ? $total_asset_key : $total_key;
226	//trying to cancel a executed order
227	if($max_to_cancel <= 0) bounce('Not allowed');
228	//cancel all amount if possible
229	$cancel_amount = ($max_to_cancel <= var[$key]) ? $max_to_cancel : var[$key];
230	}",
231	"messages": [
232	{
233	"app": "payment",
234	"payload": {
235	"asset": "base",
236	"outputs": [
237	{
238	"address": "{$addr}",
239	"amount": "{$cancel_asset ? $base_inp : ($cancel_amount + $base_inp)}"
240	}
241	]
242	}
243	},
244	{
245	"if": "{$cancel_asset}",
246	"app": "payment",
247	"payload": {
248	"asset": "{$asset_ct}",
249	"outputs": [
250	{
251	"address": "{$addr}",
252	"amount": "{$cancel_amount}"
253	}
254	]
255	}
256	},
257	{
258	"app": "state",
259	"state": "{
260	var[$cancel_tot_key] -= $cancel_amount;
261	if(var[$cancel_tot_key] == 0)var[$cancel_tot_key] = false;
262	var[$key] -= $cancel_amount;
263	if(var[$key] == 0)var[$key] = false;
264	response['message'] = 'canceled order ('\|\|$cancel_asset?'sell':'buy'\|\|' at '\|\|$ratio\|\|' bytes per token)';
265	}"
266	}
267	]
268	},
269	{
270	"if": "{
271	(!trigger.data.cancel and ($asset ? $max_b_to_exchange == 0 : $max_a_to_exchange == 0 )) otherwise bounce('Deposit not allowed, please cancel order first')
272	}",
273	"messages": [
274	{
275	"if": "{$asset}",
276	"app": "payment",
277	"payload": {
278	"asset": "base",
279	"outputs": [
280	{
281	"address": "{$addr}",
282	"amount": "{$base_inp}"
283	}
284	]
285	}
286	},
287	{
288	"app": "state",
289	"state": "{
290	if($asset){
291	var[$total_asset_key] += $asset_inp;
292	var[$asset_key] += $asset_inp;
293	response['message'] = 'deposited '\|\|$asset_inp\|\|' assets to sell at '\|\|$ratio\|\|' bytes per token';
294	}
295	else{
296	var[$total_key] += $base_inp_round;
297	var[$base_key] += $base_inp_round;
298	response['message'] = 'deposited '\|\|$base_inp_round\|\|' bytes to buy at '\|\|$ratio\|\|' bytes per token';
299	}
300	}"
301	}
302	]
303	}
304	]
305	}
306	}
307	]