Address TVH5NSNESDBNTPUQ2VKIPSHBO3QHWKXU, transactions and portfolio

TVH5NSNESDBNTPUQ2VKIPSHBO3QHWKXU

Definition

1	[
2	"autonomous agent",
3	{
4	"bounce_fees": {
5	"base": 10000
6	},
7	"init": "{\r
8	$HOUSE_CUT = 0.1; //We will take this cut on the debut of an NFT in our platform. We charge 0.1% for foreign NFTs.\r
9	$FREEMARKET_CUT = 0.01; //We take 1% on every foreign NFT trade\r
10	$ARTIST_CUT = 0.01; //The artist will get 1% from every resale of their NFT\r
11	$INVESTMENT_CUT = 0.01;//We take a 1% cut from all maecenas investments\r
12	$HALF_HOUR = 1800; //30m = 1800s. An auction is extended by 1800s every time there is a new bid near the deadline\r
13	$RESERVE_AMOUNT = 200000; //We will always keep > 200.000 in the AA\r
14	$MIN_BID_INCREMENT = 0.0001;\r
15	\r
16	$extendDeadLine = $NFT=>($NFT.soldAt <= timestamp + $HALF_HOUR) ? ($NFT \|\| {soldAt: $NFT.soldAt + $HALF_HOUR}) : $NFT; //Extend the auction if there is a bid less than half an hour before the auction is closed\r
17	/*\r
18	** Strips $NFT of computed fields to reduce AA's storage size\r
19	*/\r
20	$stripToken = $NFT=>{\r
21	delete($NFT, "isBanned");\r
22	delete($NFT, "issuer");\r
23	delete($NFT, "cap");\r
24	delete($NFT, "mintedAt");\r
25	delete($NFT, "duration"); //For foreign NFTs\r
26	delete($NFT, "meta");\r
27	return $NFT;\r
28	};\r
29	\r
30	if (NOT trigger.data["method"])\r
31	bounce("method field is mandatory");\r
32	\r
33	$method = trigger.data["method"];\r
34	\r
35	$spendableFunds = balance["base"] - var["locked"] - storage_size - $RESERVE_AMOUNT;\r
36	$owner = var["owner"];\r
37	$calculateSharesToBuy = ($price, $pool, $myShare)=>ln($price / ($pool * $myShare)) / ln($myShare);\r
38	$_maecenasCurve = $x=>6969420 * $x^2;\r
39	}",
40	"getters": "{\r
41	$saleInfo = $NFT=>{\r
42	$unit = unit[$NFT];\r
43	$info = var["NFT_" \|\| $NFT];\r
44	\r
45	if (NOT $info)\r
46	bounce("That NFT is not for sale or does not exist");\r
47	\r
48	return $info \|\| {\r
49	cap: $unit.messages[[.app="asset"]].payload.cap,\r
50	mintedAt: $unit.timestamp\r
51	};\r
52	};\r
53	/*\r
54	** All the artist information\r
55	*/\r
56	$artistInfo = $artist=>var["artist_" \|\| $artist];\r
57	$profile = $artist=>var["profile_" \|\| $artist];\r
58	}",
59	"messages": {
60	"cases": [
61	{
62	"if": "{\r
63	NOT $owner //The owner has not been set\r
64	}",
65	"messages": [
66	{
67	"app": "state",
68	"state": "{\r
69	var["owner"] = "IUU43O7TS2TBYKAPGKUARDZHOTAE275A"; //Set the Owner to my address\r
70	var["locked"] = 0; //Bytes locked in bids are not withdrawable by the Owner\r
71	}"
72	}
73	]
74	},
75	{
76	"if": "{\r
77	trigger.address == $owner\r
78	AND ($method == "payout"\r
79	OR $method == "approve"\r
80	OR $method == "transferOwnership"\r
81	OR $method == "setHelper"\r
82	OR $method == "verifyProfile")\r
83	}",
84	"messages": {
85	"cases": [
86	{
87	"if": "{\r
88	$method == "payout"\r
89	}",
90	"messages": [
91	{
92	"app": "payment",
93	"payload": {
94	"asset": "base",
95	"outputs": [
96	{
97	"address": "{trigger.address}"
98	}
99	]
100	}
101	}
102	]
103	},
104	{
105	"if": "{\r
106	$method == "approve"\r
107	}",
108	"init": "{\r
109	if (NOT trigger.data["NFT"])\r
110	bounce("NFT field is mandatory");\r
111	\r
112	$NFT = var["pending_" \|\| trigger.data["NFT"]];\r
113	\r
114	if (NOT $NFT)\r
115	bounce("That NFT is not known by this AA");\r
116	}",
117	"messages": [
118	{
119	"app": "state",
120	"state": "{\r
121	$isFreeNFT = var["free_" \|\| trigger.data["NFT"]];\r
122	if ($isFreeNFT)\r
123	var["free_" \|\| trigger.data["NFT"]] = false; //Delete previous data so it is no longer tradable in the free market\r
124	\r
125	var["SOLD_" \|\| trigger.data["NFT"]] = {\r
126	author: "foreign",\r
127	ipfs: $NFT.ipfs,\r
128	type: $NFT.type\r
129	};\r
130	\r
131	var["pending_" \|\| trigger.data["NFT"]] = false; //Delete from the pendingApproval list\r
132	}"
133	}
134	]
135	},
136	{
137	"if": "{\r
138	$method == "verifyProfile"\r
139	}",
140	"init": "{\r
141	if (NOT trigger.data["artist"])\r
142	bounce("artist field is mandatory");\r
143	}",
144	"messages": [
145	{
146	"app": "attestation",
147	"payload": "{var["profile_" \|\| trigger.data["artist"]]}"
148	},
149	{
150	"app": "state",
151	"state": "{\r
152	var["profile_" \|\| trigger.data["artist"]] \|\|= {verified: true};\r
153	}"
154	}
155	]
156	},
157	{
158	"if": "{\r
159	$method == "transferOwnership"\r
160	}",
161	"init": "{\r
162	if (NOT trigger.data["newOwner"])\r
163	bounce("newOwner field is mandatory");\r
164	if (NOT is_valid_address(trigger.data["newOwner"]))\r
165	bounce("newOwner field is not a valid address");\r
166	}",
167	"messages": [
168	{
169	"app": "payment",
170	"payload": {
171	"asset": "base",
172	"outputs": [
173	{
174	"address": "{trigger.address}",
175	"amount": "{$spendableFunds}"
176	}
177	]
178	}
179	},
180	{
181	"app": "state",
182	"state": "{\r
183	var["owner"] = trigger.data["newOwner"];//Ownership is transferred\r
184	}"
185	}
186	]
187	},
188	{
189	"if": "{\r
190	$method == "setHelper"\r
191	}",
192	"init": "{\r
193	if (NOT trigger.data["helper"])\r
194	bounce("helper field is mandatory");\r
195	}",
196	"messages": [
197	{
198	"app": "state",
199	"state": "{\r
200	var["helper"] = trigger.data["helper"];\r
201	}"
202	}
203	]
204	}
205	]
206	}
207	},
208	{
209	"if": "{\r
210	(trigger.address == $owner OR trigger.address == var["helper"])\r
211	AND $method == "revoke"\r
212	}",
213	"init": "{\r
214	if (NOT trigger.data["NFT"])\r
215	bounce("NFT field is mandatory");\r
216	}",
217	"messages": [
218	{
219	"app": "data_feed",
220	"payload": {
221	"{trigger.data["NFT"]}": "REVOKED"
222	}
223	}
224	]
225	},
226	{
227	"if": "{\r
228	$method == "MINT"\r
229	}",
230	"init": "{\r
231	if (NOT trigger.data["amount"])\r
232	bounce("amount field is mandatory");\r
233	if (NOT is_valid_amount(trigger.data["amount"]))\r
234	bounce("The amount of NFT copies to mint is not valid");\r
235	\r
236	if (NOT trigger.data["ipfs"])\r
237	bounce("ipfs field is mandatory");\r
238	\r
239	if (NOT trigger.data["type"])\r
240	bounce("type field is mandatory");\r
241	\r
242	if (NOT is_valid_address(trigger.data["seller"]))\r
243	bounce("The seller address is not valid");\r
244	\r
245	if (NOT trigger.data["endTime"])\r
246	bounce("endTime field is mandatory");\r
247	\r
248	if (trigger.data["endTime"] <= timestamp)\r
249	bounce("The endTime cannot be set in the past");\r
250	\r
251	if ($owner != trigger.address){ //The owner reserves the right to post sales with longer deadlines (e.g: for licenses)\r
252	if (trigger.data["endTime"] - timestamp > 2628000)\r
253	bounce("You cannot set the end time in more than 30 days in the future");\r
254	}\r
255	\r
256	$seller = (trigger.address == $owner) //Only the owner can list NFTs in behalf of others\r
257	? trigger.data["seller"]\r
258	: trigger.address;\r
259	\r
260	$key = ((trigger.address == $owner)\r
261	? "NFT_"\r
262	: "FREE_");\r
263	}",
264	"messages": {
265	"cases": [
266	{
267	"if": "{\r
268	trigger.data["amount"] == 1\r
269	}",
270	"messages": [
271	{
272	"app": "asset",
273	"payload": {
274	"cap": 1,
275	"is_private": false,
276	"is_transferrable": true,
277	"auto_destroy": false,
278	"fixed_denominations": false,
279	"issued_by_definer_only": true,
280	"cosigned_by_definer": false,
281	"spender_attested": false
282	}
283	},
284	{
285	"app": "data",
286	"if": "{\r
287	var["recordToData"]\r
288	}",
289	"payload": {
290	"asset": "{var["recordToData"]}",
291	"name": "{trigger.data["title"] OTHERWISE "Untitled"}",
292	"decimals": 0
293	}
294	},
295	{
296	"app": "state",
297	"state": "{\r
298	var[$key \|\| response_unit] = {\r
299	bid: 20000, //Max current bid (a NFT can have this field because it was resold. Check for price field instead)\r
300	bids: 0,\r
301	type: trigger.data["type"],\r
302	by: trigger.data["seller"],\r
303	at: timestamp, //Max bid time\r
304	ipfs: trigger.data["ipfs"], //Hash of the content\r
305	author: $seller, //The original seller\r
306	soldAt: trigger.data["endTime"], //End of the auction\r
307	soldBy: $seller //Who is currently selling the NFT\r
308	};\r
309	\r
310	if (typeof(trigger.data["meta"]) == "object")\r
311	var["meta_" \|\| response_unit] = trigger.data["meta"];\r
312	\r
313	var["recordToData"] = response_unit;\r
314	}"
315	}
316	]
317	},
318	{
319	"init": "{\r
320	$price = trigger.data["price"];\r
321	if (NOT $price)\r
322	bounce("price field is mandatory if you intend to sell more than one NFT copy");\r
323	if ($price < 20000)\r
324	bounce("The minium price is 20000 bytes");\r
325	if (NOT is_valid_amount($price))\r
326	bounce("price is not valid");\r
327	}",
328	"messages": [
329	{
330	"app": "asset",
331	"if": "{\r
332	trigger.data["amount"] == 0 //Uncapped asset, no more units can be issued after endTime\r
333	}",
334	"payload": {
335	"is_private": false,
336	"is_transferrable": true,
337	"auto_destroy": false,
338	"fixed_denominations": false,
339	"issued_by_definer_only": true,
340	"cosigned_by_definer": false,
341	"spender_attested": false
342	}
343	},
344	{
345	"app": "asset",
346	"if": "{\r
347	trigger.data["amount"] > 0\r
348	}",
349	"payload": {
350	"cap": "{trigger.data["amount"]}",
351	"is_private": false,
352	"is_transferrable": true,
353	"auto_destroy": false,
354	"fixed_denominations": false,
355	"issued_by_definer_only": true,
356	"cosigned_by_definer": false,
357	"spender_attested": false
358	}
359	},
360	{
361	"app": "state",
362	"state": "{\r
363	var[$key \|\| response_unit] = {\r
364	price: $price, //Sale price (this field is only present if the first sale was a fixed price one)\r
365	type: trigger.data["type"],\r
366	at: timestamp, //Max bid time\r
367	ipfs: trigger.data["ipfs"], //Hash of the content\r
368	unitsSold: 0,\r
369	author: $seller, //The original seller\r
370	soldAt: trigger.data["endTime"], //End of the auction\r
371	soldBy: $seller //Who is currently selling the NFT\r
372	};\r
373	if (typeof(trigger.data["meta"]) == "object")\r
374	var["meta_" \|\| response_unit] = trigger.data["meta"];\r
375	}"
376	}
377	]
378	}
379	]
380	}
381	},
382	{
383	"if": "{\r
384	$method == "BUY"\r
385	OR $method == "DIVEST"\r
386	OR $method == "CLAIM"\r
387	}",
388	"init": "{\r
389	$NFT = exists(trigger.data["NFT"])\r
390	? $saleInfo(trigger.data["NFT"])\r
391	: false;\r
392	\r
393	\r
394	$artist = $method == "DIVEST"\r
395	? $artistInfo(trigger.data["artist"])\r
396	: $artistInfo($NFT.author);\r
397	\r
398	\r
399	if ($method == "BUY"){ //Validate buy params\r
400	if (NOT exists(trigger.data["NFT"]))\r
401	bounce("NFT field is mandatory");\r
402	\r
403	$isAuction = $NFT.bid ? true : false; //It can only NOT be an auction if it is first sold and thus $NFT.bid does not exist\r
404	\r
405	if ($isAuction)\r
406	$hasBidders = ($NFT.soldBy != $NFT.by) ? true : false; //Booleans cannot be compared\r
407	\r
408	if ($isAuction AND NOT $NFT.by)\r
409	bounce("There are no copies of that NFT listed for sale at the moment");\r
410	\r
411	if (timestamp > $NFT.soldAt){\r
412	if ($isAuction){\r
413	if ($hasBidders) //You can still buy it if there were no bidders\r
414	bounce("The auction is over");\r
415	}\r
416	else{\r
417	bounce("The sale is already over");\r
418	}\r
419	}\r
420	}\r
421	\r
422	else if ($method == "DIVEST"){ //Validate divest params\r
423	if (NOT trigger.data["artist"])\r
424	bounce("artist field is mandatory");\r
425	if (NOT is_valid_address(trigger.data["artist"]))\r
426	bounce("artist's address is invalid");\r
427	\r
428	if (NOT $artist)\r
429	bounce("That artist never accepted maecenas");\r
430	\r
431	if (NOT exists(trigger.data["amount"]))\r
432	bounce("amount field is mandatory");\r
433	if (NOT is_integer(trigger.data["amount"]) OR trigger.data["amount"] <= 0)\r
434	bounce("amount must be an integer > 0");\r
435	\r
436	$investedAmount = var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]];\r
437	\r
438	if (NOT $investedAmount)\r
439	bounce("You have no shares of that artist");\r
440	\r
441	if (trigger.data["amount"] > $investedAmount)\r
442	bounce("You only have " \|\| $investedAmount \|\| " shares of that artist");\r
443	\r
444	$yourShare = floor($artist.share * trigger.data["amount"] / $artist.supply, 0);\r
445	\r
446	if ($yourShare < 20000)\r
447	bounce("It is not worth divesting your share");\r
448	}\r
449	\r
450	else if ($method == "CLAIM"){ //Validate claim params\r
451	if (NOT trigger.data["NFT"])\r
452	bounce("NFT field is mandatory");\r
453	\r
454	$isAuction = $NFT.bid ? true : false;\r
455	\r
456	if (NOT $isAuction)\r
457	bounce("You cannot claim a non-auction sale");\r
458	\r
459	$hasBidders = ($NFT.soldBy != $NFT.by) ? true : false;\r
460	\r
461	if (timestamp <= $NFT.soldAt)\r
462	bounce("The auction is not over yet");\r
463	\r
464	if ($NFT.bid == 0)\r
465	bounce("That auction was already claimed");\r
466	}\r
467	\r
468	if ($artist AND (($isAuction AND $hasBidders) OR (NOT $isAuction))){\r
469	$allowsMaecenas = ($artist.sharePercent >= 0.01) ? true : false;\r
470	$hasMaecenas = $allowsMaecenas\r
471	? $artist.supply > 0\r
472	? true\r
473	: false\r
474	: false;\r
475	\r
476	\r
477	if ($allowsMaecenas){ \r
478	if ($method == "BUY")\r
479	$maecenasShare = $artist.sharePercent * trigger.output[[asset="base"]].amount;\r
480	else if ($method == "CLAIM" AND $hasBidders)\r
481	$maecenasShare = $artist.sharePercent * $NFT.bid;\r
482	else\r
483	$maecenasShare = 0;\r
484	\r
485	$sharesInThePool = ($method != "DIVEST")\r
486	? $artist.supply\r
487	: ($artist.supply - trigger.data["amount"]); //If divesting we need to substract divested shares\r
488	\r
489	if ($method == "DIVEST")\r
490	$p = $artist.share - floor((trigger.data["amount"] / $artist.supply) * $artist.share, 0); //Current share minus what was just divested\r
491	else\r
492	$p = $artist.share + $maecenasShare; //Pool value after the sale\r
493	\r
494	$k = 1 / ($sharesInThePool + 1); //The fraction of the pool 1 share represents\r
495	$price = $_maecenasCurve($sharesInThePool + 1); //Price of buying one share\r
496	\r
497	\r
498	if ($method == "BUY"){\r
499	if ($NFT.soldBy == $NFT.author){ //We do not need to check for auction as we do not invest in those until the claim phase\r
500	$totalSpendable = floor(\r
501	$spendableFunds\r
502	+ $price * $INVESTMENT_CUT //What I save from investment cut as it is paid to myself\r
503	+ floor(trigger.output[[asset="base"]].amount * $HOUSE_CUT, 0) //What I got as cut from the triggering tx\r
504	, 0);\r
505	}\r
506	else{\r
507	$totalSpendable = floor(\r
508	$spendableFunds\r
509	+ $price * $INVESTMENT_CUT //What I save from investment cut as it is paid to myself\r
510	- trigger.output[[asset="base"]].amount //Cannot spend the trigering tx as it will be locked\r
511	, 0);\r
512	}\r
513	}\r
514	else if ($method == "CLAIM"){\r
515	$totalSpendable = floor(\r
516	$spendableFunds //Initial amount\r
517	+ $price * $INVESTMENT_CUT //What I save from investment cut\r
518	+ $NFT.bid * (1 - $HOUSE_CUT) //What I get from house cut\r
519	, 0);\r
520	}\r
521	else{\r
522	$totalSpendable = floor($spendableFunds + $price * $INVESTMENT_CUT, 0);\r
523	}\r
524	\r
525	$sharesToBuy = $sharesInThePool == 0 ? 0 : ceil($calculateSharesToBuy($price, $p, $k), 0);//Can be 0 and I would still afford 1 share if profitable\r
526	\r
527	if ($k == 1){\r
528	$sharesICanAfford = $price < $totalSpendable ? 1 : 0;\r
529	}\r
530	else {\r
531	if ($totalSpendable > $price AND $sharesToBuy >= 1){\r
532	$sharesICanAfford = floor($totalSpendable / ($price * $sharesToBuy * (1 - $INVESTMENT_CUT)), 0); //Do not buy more shares than what I can afford\r
533	}\r
534	else{\r
535	$sharesICanAfford = 0;\r
536	}\r
537	}\r
538	}\r
539	\r
540	if ($allowsMaecenas AND $sharesICanAfford > 0){\r
541	$buyShares = true;\r
542	}\r
543	else{\r
544	$buyShares = false;\r
545	}\r
546	\r
547	$shareIWillfinallyBuy = min($sharesToBuy, $sharesICanAfford); //Maybe I can afford more shares than what is profitable to buy\r
548	$myProfit = floor($buyShares ? $p - $p * $k^$shareIWillfinallyBuy : 0, 0); //0 if no shares are bought\r
549	$poolFinalValue = $p - $myProfit; //Not actual profit but what I got out of the pool\r
550	}\r
551	else {\r
552	$allowsMaecenas = false;\r
553	$buyShares = false;\r
554	$hasMaecenas = false;\r
555	$maecenasShare = 0;\r
556	$myProfit = 0;\r
557	$poolFinalValue = 0;\r
558	}\r
559	}",
560	"messages": {
561	"cases": [
562	{
563	"if": "{\r
564	trigger.data["method"] == "BUY"\r
565	}",
566	"messages": {
567	"cases": [
568	{
569	"if": "{\r
570	$isAuction\r
571	}",
572	"init": "{\r
573	if (trigger.output[[asset="base"]].amount < 20000)\r
574	bounce("The minimum bid is 20000 bytes");\r
575	if (trigger.output[[asset="base"]].amount <= $NFT.bid * (1 + $MIN_BID_INCREMENT))\r
576	bounce("Your bid must be at least " \|\| $NFT.bid * (1 + $MIN_BID_INCREMENT) \|\| " (0.01% higher than the current)");\r
577	\r
578	if ($NFT.soldBy == trigger.address)\r
579	bounce("You cannot bid on your own auction");\r
580	}",
581	"messages": [
582	{
583	"app": "payment",
584	"if": "{\r
585	$NFT.by != $NFT.soldBy //If we don't check for this the artists could steal bytes from the AA\r
586	}",
587	"payload": {
588	"asset": "base",
589	"outputs": [
590	{
591	"address": "{$NFT.by}",
592	"amount": "{$NFT.bid - 10000}"
593	}
594	]
595	}
596	},
597	{
598	"app": "state",
599	"state": "{\r
600	var["locked"] += trigger.output[[asset="base"]].amount - ($hasBidders ? $NFT.bid : 0); //Increase non-withdrawable funds by the difference between previous and last bid\r
601	$NFT.bid = trigger.output[[asset="base"]].amount;\r
602	$NFT.at = timestamp;\r
603	$NFT.bids = $NFT.bids + 1;\r
604	$NFT.by = trigger.address;\r
605	var["NFT_" \|\| trigger.data["NFT"]] \|\|= $stripToken($extendDeadLine($NFT));\r
606	}"
607	}
608	]
609	},
610	{
611	"init": "{\r
612	if ($NFT.unitsSold == $NFT.cap AND $NFT.cap != 0) //We need to make an additional check for uncapped assets\r
613	bounce("All NFT copies have been already sold");\r
614	\r
615	if (trigger.output[[asset="base"]].amount < $NFT.price)\r
616	bounce("Your payment is lower than the NFT price. You have to send " \|\| $NFT.price \|\| " bytes");\r
617	}",
618	"messages": [
619	{
620	"app": "payment",
621	"if": "{\r
622	floor($NFT.price * (1 - $HOUSE_CUT - ($allowsMaecenas ? (($hasMaecenas OR $buyShares) ? $artist.sharePercent : 0) : 0)) - 10000, 0) > 0\r
623	}",
624	"payload": {
625	"asset": "base",
626	"outputs": [
627	{
628	"address": "{$NFT.soldBy}",
629	"amount": "{floor($NFT.price * (1 - $HOUSE_CUT - ($allowsMaecenas ? (($hasMaecenas OR $buyShares) ? $artist.sharePercent : 0) : 0)) - 10000, 0)}"
630	}
631	]
632	}
633	},
634	{
635	"app": "payment",
636	"payload": {
637	"asset": "{trigger.data['NFT']}",
638	"outputs": [
639	{
640	"address": "{trigger.address}",
641	"amount": 1
642	}
643	]
644	}
645	},
646	{
647	"app": "state",
648	"state": "{\r
649	var["NFT_" \|\| trigger.data["NFT"]] \|\|= {unitsSold: $NFT.unitsSold + 1};\r
650	if ($hasMaecenas){\r
651	var["locked"] += $maecenasShare - $myProfit;\r
652	var["artist_" \|\| $NFT.author] \|\|= {share: $poolFinalValue};\r
653	}\r
654	if ($NFT.unitsSold + 1 == $NFT.cap){\r
655	var["NFT_" \|\| trigger.data["NFT"]] = false; //Delist it from sale\r
656	var["SOLD_" \|\| trigger.data["NFT"]] = $stripToken($NFT); //Add it to meta\r
657	}\r
658	}"
659	}
660	]
661	}
662	]
663	}
664	},
665	{
666	"if": "{\r
667	trigger.data["method"] == "CLAIM"\r
668	}",
669	"messages": {
670	"cases": [
671	{
672	"if": "{//NFT was first sold\r
673	$NFT.soldBy == $NFT.author\r
674	}",
675	"init": "{\r
676	if ($hasMaecenas OR $buyShares){\r
677	$paymentFromShares = $shareIWillfinallyBuy * round($price * (1 - $INVESTMENT_CUT), 0);\r
678	$sellerPayout = floor($NFT.bid * (1 - $HOUSE_CUT - $artist.sharePercent) - 10000 + $paymentFromShares, 0);\r
679	}\r
680	else {\r
681	$sellerPayout = floor($NFT.bid * (1 - $HOUSE_CUT) - 10000, 0);\r
682	}\r
683	}",
684	"messages": [
685	{
686	"app": "payment",
687	"if": "{\r
688	$sellerPayout > 0 //enough to be worth paying\r
689	AND $NFT.soldBy != $NFT.by //there is at least a bid\r
690	}",
691	"payload": {
692	"asset": "base",
693	"outputs": [
694	{
695	"address": "{$NFT.soldBy}",
696	"amount": "{$sellerPayout}"
697	}
698	]
699	}
700	},
701	{
702	"app": "payment",
703	"payload": {
704	"asset": "{trigger.data['NFT']}",
705	"outputs": [
706	{
707	"address": "{$NFT.by}",
708	"amount": 1
709	}
710	]
711	}
712	},
713	{
714	"app": "state",
715	"state": "{\r
716	$decrement = $hasMaecenas //My share does not play a role here\r
717	? $NFT.bid - $maecenasShare //If it had maecenas the maecenas share remains locked\r
718	: $NFT.bid; //If it does not have maecenas all bytes are unlocked\r
719	\r
720	if ($NFT.bid > 20000) //If it had no bids you don't need to reduce locked amount\r
721	var["locked"] -= $decrement; //These bytes are no longer locked as the artist is getting them in this same unit\r
722	\r
723	var["SOLD_" \|\| trigger.data["NFT"]] = $stripToken($NFT); //Save for the next auction\r
724	var["NFT_" \|\| trigger.data["NFT"]] = false; //No longer listed for sale\r
725	\r
726	if ($hasMaecenas AND $NFT.bid > 20000)\r
727	var["artist_" \|\| $NFT.author] \|\|= {share: $artist.share + $maecenasShare}; //Increase the artist pool value\r
728	}"
729	}
730	]
731	},
732	{
733	"messages": [
734	{
735	"app": "payment",
736	"if": "{\r
737	$NFT.soldBy != $NFT.by //If we don't do this check the seller could steal bytes from the AA if there were no bids\r
738	}",
739	"payload": {
740	"asset": "base",
741	"outputs": {
742	"cases": [
743	{
744	"if": "{\r
745	floor($NFT.bid * $ARTIST_CUT, 0) - 10000 > 0 //It is worth paying the original artist\r
746	}",
747	"outputs": [
748	{
749	"address": "{$NFT.soldBy}",
750	"amount": "{floor($NFT.bid * (1 - $ARTIST_CUT) - 10000, 0)}"
751	},
752	{
753	"address": "{$NFT.author}",
754	"amount": "{floor($NFT.bid * $ARTIST_CUT, 0) - 10000}"
755	}
756	]
757	},
758	{
759	"outputs": [
760	{
761	"address": "{$NFT.soldBy}",
762	"amount": "{floor($NFT.bid * (1 - $ARTIST_CUT) - 10000, 0)}"
763	}
764	]
765	}
766	]
767	}
768	}
769	},
770	{
771	"app": "payment",
772	"payload": {
773	"asset": "{trigger.data['NFT']}",
774	"outputs": [
775	{
776	"address": "{$NFT.by}",
777	"amount": 1
778	}
779	]
780	}
781	},
782	{
783	"app": "state",
784	"state": "{\r
785	var["locked"] -= $NFT.bid;\r
786	var["SOLD_" \|\| trigger.data["NFT"]] = $stripToken($NFT); //Save for the next auction\r
787	var["NFT_" \|\| trigger.data["NFT"]] = false;\r
788	}"
789	}
790	]
791	}
792	]
793	}
794	},
795	{
796	"if": "{\r
797	trigger.data["method"] == "DIVEST"\r
798	}",
799	"messages": [
800	{
801	"app": "payment",
802	"payload": {
803	"asset": "base",
804	"outputs": [
805	{
806	"address": "{trigger.address}",
807	"amount": "{$yourShare - 10000}"
808	}
809	]
810	}
811	},
812	{
813	"app": "state",
814	"state": "{\r
815	var["artist_" \|\| trigger.data["artist"]] \|\|= {\r
816	share: $artist.share - $yourShare, //Decrease the share by the amount just divested\r
817	supply: $artist.supply - trigger.data["amount"] //Decrease the supply by the shares used to divest\r
818	};\r
819	\r
820	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]] -= trigger.data["amount"];\r
821	var["locked"] -= ($yourShare + $myProfit);\r
822	}"
823	}
824	]
825	}
826	]
827	}
828	},
829	{
830	"if": "{//[PUBLIC] Resell a NFT\r
831	$method == "SELL"\r
832	}",
833	"init": "{\r
834	//Parameter validation\r
835	if (NOT exists(trigger.data["endTime"]))\r
836	bounce("endTime field is mandatory");\r
837	if (trigger.data["endTime"] < timestamp)\r
838	bounce("You cannot set the end time in the past");\r
839	if (trigger.data["endTime"] > timestamp + 2628000)\r
840	bounce("You cannot set the end time in more than 30 days");\r
841	\r
842	if (NOT exists(trigger.data["initialPrice"]))\r
843	bounce("initialPrice field is mandatory");\r
844	if (NOT is_valid_amount(trigger.data["initialPrice"]))\r
845	bounce("initialPrice must be a valid amount");\r
846	if (trigger.data["initialPrice"] < 20000)\r
847	bounce("The minimum initialPrice is 20000 bytes");\r
848	\r
849	//NFT validation\r
850	if (trigger.output[[asset!="base"]].asset == "ambigous")\r
851	bounce("You cannot send more than one NFT type at a time");\r
852	\r
853	$feedData = data_feed[[oracles=this_address, feed_name=trigger.output[[asset!="base"]].asset, ifnone=false, ifseveral="last", type="string"]];\r
854	\r
855	$NFT = var["SOLD_" \|\| trigger.output[[asset!="base"]].asset] \|\| {isBanned: $feedData == "REVOKED" ? true : false}; //[We need $NFT.isBanned]This already checks for $NFT existence\r
856	\r
857	if (NOT $NFT)\r
858	bounce("NFT not found");\r
859	\r
860	$sale = var["NFT_" \|\| trigger.output[[asset!="base"]].asset];\r
861	\r
862	if (trigger.output[[asset!="base"]].amount != 1)\r
863	bounce("You cannot auction more than 1 copy of an NFT at a time");\r
864	\r
865	if ($NFT.isBanned)\r
866	bounce("We revoked the trading of that token probably due to copyright reasons");\r
867	\r
868	if ($sale)\r
869	bounce("A copy of that NFT is already being auctioned. The auction is expected to end at " \|\| timestamp_to_string($sale.soldAt) \|\| " UTC but may be delayed depending on the number of bids");\r
870	}",
871	"messages": [
872	{
873	"app": "state",
874	"state": "{\r
875	$NFT.bid = trigger.data["initialPrice"];\r
876	$NFT.bids = 0;\r
877	$NFT.by = trigger.address;\r
878	$NFT.soldBy = trigger.address;\r
879	$NFT.at = timestamp;\r
880	$NFT.soldAt = trigger.data["endTime"];\r
881	var["NFT_" \|\| trigger.output[[asset!="base"]].asset] = $stripToken($NFT);\r
882	}"
883	}
884	]
885	},
886	{
887	"if": "{\r
888	$method == "PRELIST"\r
889	}",
890	"init": "{\r
891	if (NOT trigger.data["NFT"])\r
892	bounce("NFT field is mandatory");\r
893	if (NOT asset[trigger.data["NFT"]].exists)\r
894	bounce("That NFT does not exist within the Obyte network");\r
895	\r
896	$isFreeNFT = var["FREE_" \|\| trigger.data["NFT"]];\r
897	\r
898	if (NOT $isFreeNFT){//If the NFT was not listed in the free marked we need to know more about it\r
899	if (NOT trigger.data["ipfs"])\r
900	bounce("ipfs field is mandatory");\r
901	\r
902	if (NOT trigger.data["type"])\r
903	bounce("type field is required");\r
904	}\r
905	}",
906	"messages": [
907	{
908	"app": "state",
909	"state": "{\r
910	if ($isFreeNFT){\r
911	var["pending_" \|\| trigger.data["NFT"]] = $isFreeNFT;\r
912	}\r
913	else{\r
914	var["pending_" \|\| trigger.data["NFT"]] = { //We save it as pending approval until we certify the provided info is valid\r
915	ipfs: trigger.data["ipfs"],\r
916	type: trigger.data["type"]\r
917	};\r
918	}\r
919	}"
920	}
921	]
922	},
923	{
924	"if": "{\r
925	$method == "ENABLE_INVESTING"\r
926	}",
927	"init": "{\r
928	if (var["artist_" \|\| trigger.address])\r
929	bounce("You are already accepting maecenas");\r
930	\r
931	if (NOT trigger.data["share"])\r
932	bounce("share field is mandatory");\r
933	\r
934	if (NOT is_integer(trigger.data["share"]) OR trigger.data["share"] < 1 OR trigger.data["share"] > 50)\r
935	bounce("share must be an integer between 1 - 50");\r
936	if (exists(trigger.data["selfBuy"])){\r
937	if (NOT is_integer(trigger.data["selfBuy"]))\r
938	bounce("selfBuy field must be an integer");\r
939	if (trigger.data["selfBuy"] < 0)\r
940	bounce("selfBuy must be a positive integer");\r
941	\r
942	$cost = (1161570 * trigger.data["selfBuy"] * (1 + trigger.data["selfBuy"]) * (1 + 2 * trigger.data["selfBuy"])) * $INVESTMENT_CUT;\r
943	\r
944	if (trigger.output[[asset="base"]].amount < $cost)\r
945	bounce("You need to send at least " \|\| $cost \|\| " bytes");\r
946	}\r
947	}",
948	"messages": [
949	{
950	"app": "state",
951	"state": "{\r
952	var["artist_" \|\| trigger.address] = {\r
953	supply: trigger.data["selfBuy"] OTHERWISE 0,\r
954	share: 0,\r
955	sharePercent: trigger.data["share"] / 100\r
956	};\r
957	if (trigger.data["selfBuy"])\r
958	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.address] = trigger.data["selfBuy"];\r
959	}"
960	}
961	]
962	},
963	{
964	"if": "{\r
965	$method == "DISABLE_INVESTING"\r
966	}",
967	"init": "{\r
968	$info = $artistInfo(trigger.address);\r
969	\r
970	if (NOT $info)\r
971	bounce("You are already not accepting maecenas");\r
972	\r
973	if ($info.supply > 0)\r
974	bounce("You cannot stop accepting maecenas right now as you already have some");\r
975	}",
976	"messages": [
977	{
978	"app": "state",
979	"state": "{\r
980	var["artist_" \|\| trigger.address] = false;\r
981	}"
982	}
983	]
984	},
985	{
986	"if": "{\r
987	$method == "INVEST"\r
988	}",
989	"init": "{\r
990	\r
991	if (NOT trigger.data["artist"])\r
992	bounce("artist field is mandatory");\r
993	\r
994	$artist = $artistInfo(trigger.data["artist"]);\r
995	\r
996	if (NOT $artist)\r
997	bounce("That artist is not accepting maecenas");\r
998	\r
999	if (NOT trigger.data["amount"])\r
1000	bounce("amount field is mandatory");\r
1001	if (NOT is_integer(trigger.data["amount"]) OR trigger.data["amount"] <= 0)\r
1002	bounce("amount must be a positive integer");\r
1003	\r
1004	\r
1005	$x0 = $artist.supply;\r
1006	$x1 = $artist.supply + trigger.data["amount"];\r
1007	\r
1008	\r
1009	$upToFirstToken = 1161570 * $x0 * (1 + $x0) * (1 + 2 * $x0);\r
1010	$upToTargetPurchase = 1161570 * $x1 * (1 + $x1) * (1 + 2 * $x1);\r
1011	\r
1012	/* DEBUG\r
1013	$upToFirstToken = 10000/3 * $x0 * (1 + $x0) * (1 + 2 * $x0);\r
1014	$upToTargetPurchase = 10000/3 * $x1 * (1 + $x1) * (1 + 2 * $x1);\r
1015	*/\r
1016	$totalCost = round($upToTargetPurchase - $upToFirstToken, 0);\r
1017	\r
1018	if (trigger.output[[asset="base"]].amount < $totalCost)\r
1019	bounce("Your payment is not enough for that purchase");\r
1020	}",
1021	"messages": [
1022	{
1023	"app": "payment",
1024	"payload": {
1025	"asset": "base",
1026	"outputs": [
1027	{
1028	"address": "{trigger.data["artist"]}",
1029	"amount": "{floor($totalCost * (1 - $INVESTMENT_CUT) - 10000, 0)}"
1030	}
1031	]
1032	}
1033	},
1034	{
1035	"app": "state",
1036	"state": "{\r
1037	var["artist_" \|\| trigger.data["artist"]] \|\|= {supply: $artist.supply + trigger.data["amount"]};\r
1038	\r
1039	if (var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]])\r
1040	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]] += trigger.data["amount"];\r
1041	else\r
1042	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]] = trigger.data["amount"];\r
1043	}"
1044	}
1045	]
1046	},
1047	{
1048	"if": "{\r
1049	$method == "PROFILE"\r
1050	}",
1051	"init": "{\r
1052	$prof = $profile(trigger.address);\r
1053	\r
1054	if ($prof.verified)\r
1055	bounce("You have to contact support to modify a verified profile. We do this to prevent already verified accounts from impersonating another artist");\r
1056	\r
1057	$profileObj = $prof \|\| trigger.data \|\| {verified: false};\r
1058	delete($profileObj, "method");\r
1059	}",
1060	"messages": [
1061	{
1062	"app": "state",
1063	"state": "{\r
1064	var["profile_" \|\| trigger.address] = $profileObj;\r
1065	}"
1066	}
1067	]
1068	},
1069	{
1070	"if": "{\r
1071	$method == "SET_META"\r
1072	}",
1073	"init": "{\r
1074	if (NOT exists(trigger.data["NFT"]))\r
1075	bounce("NFT field is mandatory");\r
1076	\r
1077	$NFT = var["SOLD_" \|\| trigger.data["NFT"]];\r
1078	\r
1079	if (NOT $NFT)\r
1080	bounce("NFT not found");\r
1081	\r
1082	if ($NFT.author != trigger.address)\r
1083	bounce("You can only set the metadata of NFTs minted by yourself");\r
1084	\r
1085	if (var["meta_" \|\| trigger.data["NFT"]])\r
1086	bounce("That NFT meta was already set");\r
1087	}",
1088	"messages": [
1089	{
1090	"app": "state",
1091	"state": "{\r
1092	var["meta_" \|\| trigger.data["NFT"]] = trigger.data;\r
1093	}"
1094	}
1095	]
1096	},
1097	{
1098	"if": "{\r
1099	$method == "CHANGE_PRICE"\r
1100	}",
1101	"init": "{\r
1102	if (NOT trigger.data["NFT"])\r
1103	bounce("NFT field is mandatory");\r
1104	\r
1105	$NFT = var["NFT_" \|\| trigger.data["NFT"]];\r
1106	\r
1107	if (NOT $NFT)\r
1108	bounce("NFT not found");\r
1109	\r
1110	if (NOT exists(trigger.data["price"]))\r
1111	bounce("price field is mandatory");\r
1112	if (NOT is_integer(trigger.data["price"]))\r
1113	bounce("price must be an integer");\r
1114	if (NOT is_valid_amount(trigger.data["price"]))\r
1115	bounce("price is invalid");\r
1116	\r
1117	if ($NFT.bid)\r
1118	bounce("You cannot change an auction price!");\r
1119	}",
1120	"messages": [
1121	{
1122	"app": "state",
1123	"state": "{\r
1124	var["NFT_" \|\| trigger.data["NFT"]] \|\|= {price: trigger.data["price"]};\r
1125	}"
1126	}
1127	]
1128	},
1129	{
1130	"if": "{\r
1131	$method == "FREESELL"\r
1132	}",
1133	"init": "{\r
1134	if (trigger.output[[asset!="base"]].asset == "ambigous")\r
1135	bounce("You cannot send more than 1 NFT type per transaction");\r
1136	if (trigger.output[[asset!="base"]].amount != 1)\r
1137	bounce("You cannot sell more than 1 NFT unit at a time");\r
1138	\r
1139	$isApproved = var["NFT_" \|\| trigger.output[[asset!="base"]].asset] OTHERWISE var["SOLD_" \|\| trigger.output[[asset!="base"]].asset];\r
1140	\r
1141	if ($isApproved)\r
1142	bounce("That NFT is already verified, thus it cannot be traded in the free market");\r
1143	\r
1144	$feedData = data_feed[[oracles=this_address, feed_name=$isApproved, ifnone="false", ifseveral="last", type="string"]];\r
1145	$isBanned = $feedData == "REVOKED" ? true : false;\r
1146	\r
1147	if ($isBanned)\r
1148	bounce("We have revoked the trading of that token. Probably due to copyrights");\r
1149	\r
1150	$NFT = var["FREE_" \|\| trigger.output[[asset!="base"]].asset];\r
1151	\r
1152	if ($NFT.soldAt < timestamp)\r
1153	bounce("A copy of that NFT is already being auctioned. It is expected to end at " \|\| timestamp_to_string($NFT.soldAt) \|\| " UTC");\r
1154	\r
1155	\r
1156	if (NOT $NFT){ //We do not know about the NFT\r
1157	if(NOT exists(trigger.data["ipfs"]))\r
1158	bounce("ipfs field is required as we do not know which file that NFT represents");\r
1159	}\r
1160	\r
1161	if (NOT exists(trigger.data["endTime"]))\r
1162	bounce("endTime field is mandatory");\r
1163	if (NOT is_integer(trigger.data["endTime"]))\r
1164	bounce("endTime must be integer");\r
1165	if (trigger.data["endTime"] < timestamp)\r
1166	bounce("endTime cannot be set in the past");\r
1167	if (trigger.data["endTime"] > timestamp + 2628000)\r
1168	bounce("endTime cannot be set in more than a month in the future");\r
1169	\r
1170	if (exists(trigger.data["price"])){ //Is normal sale\r
1171	if (NOT is_valid_amount(trigger.data["price"]))\r
1172	bounce("price is invalid");\r
1173	else\r
1174	$toCreate = {price: trigger.data["price"]};\r
1175	}\r
1176	else{ //Is auction\r
1177	$toCreate = {bid: 20000, by: trigger.address, at: timestamp};\r
1178	}\r
1179	}",
1180	"messages": [
1181	{
1182	"app": "state",
1183	"state": "{\r
1184	var["FREE_" \|\| trigger.output[[asset!="base"]].asset] = $toCreate \|\| {ipfs: (NOT $NFT) ? trigger.data["ipfs"] : $NFT.ipfs, bids: 0, author: 'foreign', soldBy: trigger.address, soldAt: trigger.data["endTime"]};\r
1185	}"
1186	}
1187	]
1188	},
1189	{
1190	"if": "{\r
1191	$method == "FREEBUY"\r
1192	}",
1193	"init": "{\r
1194	if (NOT trigger.data["NFT"])\r
1195	bounce("NFT field is mandatory");\r
1196	if (NOT exists(trigger.data["NFT"]))\r
1197	bounce("NFT field is mandatory");\r
1198	\r
1199	$NFT = var["FREE_" \|\| trigger.data["NFT"]];\r
1200	\r
1201	if (NOT $NFT)\r
1202	bounce("That NFT does not exist");\r
1203	\r
1204	if (trigger.address == $NFT.soldBy)\r
1205	bounce("You cannot buy/bid on your own NFTs");\r
1206	\r
1207	if (trigger.output[[asset="base"]].amount < $NFT.bid * (1 + $MIN_BID_INCREMENT))\r
1208	bounce("You have to send at least " \|\| $NFT.bid * (1 + $MIN_BID_INCREMENT) \|\| " bytes as you need to increment the current bet by at least 0.01%");\r
1209	}",
1210	"messages": [
1211	{
1212	"app": "state",
1213	"state": "{\r
1214	var["FREE_" \|\| trigger.data["NFT"]] \|\|= {bid: trigger.output[[asset="base"]].amount, at: timestamp, by: trigger.address, bids: $NFT.bids + 1};\r
1215	var["locked"] += trigger.output[[asset="base"]].amount;\r
1216	}"
1217	}
1218	]
1219	},
1220	{
1221	"if": "{\r
1222	$method == "FREECLAIM"\r
1223	}",
1224	"init": "{\r
1225	if (NOT trigger.data["NFT"])\r
1226	bounce("NFT field is mandatory");\r
1227	\r
1228	$NFT = var["FREE_" \|\| trigger.data["NFT"]];\r
1229	\r
1230	if (NOT $NFT)\r
1231	bounce("NFT not found");\r
1232	\r
1233	if ($NFT.soldAt < timestamp)\r
1234	bounce("The auction/sale is not over yet");\r
1235	\r
1236	$isAuction = $NFT.bid ? true : false;\r
1237	}",
1238	"messages": [
1239	{
1240	"if": "{\r
1241	$NFT.by != $NFT.soldBy\r
1242	}",
1243	"app": "payment",
1244	"payload": {
1245	"asset": "base",
1246	"outputs": [
1247	{
1248	"address": "{$NFT.soldBy}",
1249	"amount": "{$NFT.price * (1 - $FREEMARKET_CUT)}"
1250	}
1251	]
1252	}
1253	},
1254	{
1255	"app": "payment",
1256	"payload": {
1257	"asset": "{trigger.data["NFT"]}",
1258	"outputs": [
1259	{
1260	"address": "{$NFT.by}",
1261	"amount": 1
1262	}
1263	]
1264	}
1265	},
1266	{
1267	"app": "state",
1268	"state": "{\r
1269	var["FREE_" \|\| trigger.data["NFT"]] = false;\r
1270	var["FREESOLD_" \|\| trigger.data["NFT"]] = $stripToken($NFT);\r
1271	}"
1272	}
1273	]
1274	}
1275	]
1276	}
1277	}
1278	]