Address GS3UBYEMXON2KGJ7FBOLKWQGHY3FVFVT, transactions and portfolio

GS3UBYEMXON2KGJ7FBOLKWQGHY3FVFVT

defined on 07.06.2021

Definition

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