Address 4TD4VRB43EB5JXUMDSWIN5U54P3U65B2, transactions and portfolio

4TD4VRB43EB5JXUMDSWIN5U54P3U65B2

Definition

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