Address V2CVP3CCB5GQ5WKCRXTBQ6WXSMSX2XFY, transactions and portfolio

V2CVP3CCB5GQ5WKCRXTBQ6WXSMSX2XFY

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) //A bit more than 30 days
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	};
343
344	var["recordToData"] = response_unit;
345	}"
346	}
347	]
348	},
349	{
350	"init": "{
351	$price = trigger.data["price"];
352	if (NOT $price)
353	bounce("price field is mandatory if you intend to sell more than one NFT copy");
354	if ($price < 20000)
355	bounce("The minium price is 20000 bytes");
356	if (NOT is_valid_amount($price))
357	bounce("price is not valid");
358	}",
359	"messages": [
360	{
361	"app": "asset",
362	"if": "{
363	trigger.data["amount"] == 0 //Uncapped asset, no more units can be issued after endTime
364	}",
365	"payload": {
366	"is_private": false,
367	"is_transferrable": true,
368	"auto_destroy": false,
369	"fixed_denominations": false,
370	"issued_by_definer_only": true,
371	"cosigned_by_definer": false,
372	"spender_attested": false
373	}
374	},
375	{
376	"app": "asset",
377	"if": "{
378	trigger.data["amount"] > 0
379	}",
380	"payload": {
381	"cap": "{trigger.data["amount"]}",
382	"is_private": false,
383	"is_transferrable": true,
384	"auto_destroy": false,
385	"fixed_denominations": false,
386	"issued_by_definer_only": true,
387	"cosigned_by_definer": false,
388	"spender_attested": false
389	}
390	},
391	{
392	"app": "state",
393	"state": "{
394	var[$key \|\| response_unit] = {
395	price: $price, //Sale price (this field is only present if the first sale was a fixed price one)
396	type: trigger.data["type"],
397	at: timestamp,
398	royalty: trigger.data["royalty"] OTHERWISE 0, //Max bid time
399	ipfs: trigger.data["ipfs"], //Hash of the content
400	unitsSold: 0,
401	author: $seller, //The original seller
402	soldAt: trigger.data["endTime"] OTHERWISE timestamp + $ONE_MONTH, //End of the auction
403	soldBy: $seller, //Who is currently selling the NFT
404	redeem: trigger.data["redeem"]?true:false
405	};
406	}"
407	}
408	]
409	}
410	]
411	}
412	},
413	{
414	"if": "{
415	$method == "BUY"
416	OR $method == "DIVEST"
417	OR $method == "CLAIM"
418	}",
419	"init": "{
420	$NFT = exists(trigger.data["NFT"])
421	? $saleInfo(trigger.data["NFT"])
422	: false;
423
424
425	$artist = $method == "DIVEST"
426	? $artistInfo(trigger.data["artist"])
427	: $artistInfo($NFT.author);
428
429
430	if ($method == "BUY"){ //Validate buy params
431	if (NOT exists(trigger.data["NFT"]))
432	bounce("NFT field is mandatory");
433
434	$isAuction = $NFT.bid ? true : false; //It can only NOT be an auction if it is first sold and thus $NFT.bid does not exist
435
436	if ($isAuction)
437	$hasBidders = ($NFT.soldBy != $NFT.by) ? true : false; //Booleans cannot be compared
438
439	if ($isAuction AND NOT $NFT.by)
440	bounce("There are no copies of that NFT listed for sale at the moment");
441
442	if (timestamp > $NFT.soldAt){
443	if ($isAuction){
444	if ($hasBidders) //You can still buy it if there were no bidders
445	bounce("The auction is over");
446	}
447	else{
448	bounce("The sale is already over");
449	}
450	}
451	}
452
453	else if ($method == "DIVEST"){ //Validate divest params
454	if (NOT trigger.data["artist"])
455	bounce("artist field is mandatory");
456	if (NOT is_valid_address(trigger.data["artist"]))
457	bounce("artist's address is invalid");
458
459	if (NOT $artist)
460	bounce("That artist never accepted maecenas");
461
462	if (NOT exists(trigger.data["amount"]))
463	bounce("amount field is mandatory");
464	if (NOT is_integer(trigger.data["amount"]) OR trigger.data["amount"] <= 0)
465	bounce("amount must be an integer > 0");
466
467	$investedAmount = var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]];
468
469	if (NOT $investedAmount)
470	bounce("You have no shares of that artist");
471
472	if (trigger.data["amount"] > $investedAmount)
473	bounce("You only have " \|\| $investedAmount \|\| " shares of that artist");
474
475	$yourShare = floor($artist.share * trigger.data["amount"] / $artist.supply, 0);
476
477	if ($yourShare < 20000)
478	bounce("It is not worth divesting your share");
479	}
480
481	else if ($method == "CLAIM"){ //Validate claim params
482	if (NOT trigger.data["NFT"])
483	bounce("NFT field is mandatory");
484
485	$isAuction = $NFT.bid ? true : false;
486
487	if (NOT $isAuction)
488	bounce("You cannot claim a non-auction sale");
489
490	$hasBidders = ($NFT.soldBy != $NFT.by) ? true : false;
491
492	if (timestamp <= $NFT.soldAt)
493	bounce("The auction is not over yet");
494
495	if ($NFT.claimed)
496	bounce("That auction was already claimed");
497	}
498
499	if ($artist AND (($isAuction AND $hasBidders) OR (NOT $isAuction))){
500	$allowsMaecenas = ($artist.sharePercent >= 0.01) ? true : false;
501	$hasMaecenas = $allowsMaecenas
502	? $artist.supply > 0
503	? true
504	: false
505	: false;
506
507
508	if ($allowsMaecenas){
509	if ($method == "BUY")
510	$maecenasShare = $artist.sharePercent * trigger.output[[asset="base"]].amount;
511	else if ($method == "CLAIM" AND $hasBidders)
512	$maecenasShare = $artist.sharePercent * $NFT.bid;
513	else
514	$maecenasShare = 0;
515
516	$sharesInThePool = ($method != "DIVEST")
517	? $artist.supply
518	: ($artist.supply - trigger.data["amount"]); //If divesting we need to substract divested shares
519
520	if ($method == "DIVEST")
521	$p = $artist.share - floor((trigger.data["amount"] / $artist.supply) * $artist.share, 0); //Current share minus what was just divested
522	else
523	$p = $artist.share + $maecenasShare; //Pool value after the sale
524
525	$k = 1 / ($sharesInThePool + 1); //The fraction of the pool 1 share represents
526	$price = $_maecenasCurve($sharesInThePool + 1); //Price of buying one share
527
528
529	if ($method == "BUY"){
530	if ($NFT.soldBy == $NFT.author){ //We do not need to check for auction as we do not invest in those until the claim phase
531	$totalSpendable = floor(
532	$spendableFunds
533	+ $price * $INVESTMENT_CUT //What I save from investment cut as it is paid to myself
534	+ floor(trigger.output[[asset="base"]].amount * $HOUSE_CUT, 0) //What I got as cut from the triggering tx
535	, 0);
536	}
537	else{
538	$totalSpendable = floor(
539	$spendableFunds
540	+ $price * $INVESTMENT_CUT //What I save from investment cut as it is paid to myself
541	- trigger.output[[asset="base"]].amount //Cannot spend the trigering tx as it will be locked
542	, 0);
543	}
544	}
545	else if ($method == "CLAIM"){
546	$totalSpendable = floor(
547	$spendableFunds //Initial amount
548	+ $price * $INVESTMENT_CUT //What I save from investment cut
549	+ $NFT.bid * (1 - $HOUSE_CUT) //What I get from house cut
550	, 0);
551	}
552	else{
553	$totalSpendable = floor($spendableFunds + $price * $INVESTMENT_CUT, 0);
554	}
555
556	$sharesToBuy = $sharesInThePool == 0 ? 0 : ceil($calculateSharesToBuy($price, $p, $k), 0);//Can be 0 and I would still afford 1 share if profitable
557
558	if ($k == 1){
559	$sharesICanAfford = $price < $totalSpendable ? 1 : 0;
560	}
561	else {
562	if ($totalSpendable > $price AND $sharesToBuy >= 1){
563	$sharesICanAfford = floor($totalSpendable / ($price * $sharesToBuy * (1 - $INVESTMENT_CUT)), 0); //Do not buy more shares than what I can afford
564	}
565	else{
566	$sharesICanAfford = 0;
567	}
568	}
569	}
570
571	if ($allowsMaecenas AND $sharesICanAfford > 0){
572	$buyShares = true;
573	}
574	else{
575	$buyShares = false;
576	}
577
578	$shareIWillfinallyBuy = min($sharesToBuy, $sharesICanAfford); //Maybe I can afford more shares than what is profitable to buy
579	$myProfit = floor($buyShares ? $p - $p * $k^$shareIWillfinallyBuy : 0, 0); //0 if no shares are bought
580	$poolFinalValue = $p - $myProfit; //Not actual profit but what I got out of the pool
581	}
582	else {
583	$allowsMaecenas = false;
584	$buyShares = false;
585	$hasMaecenas = false;
586	$maecenasShare = 0;
587	$myProfit = 0;
588	$poolFinalValue = 0;
589	}
590	}",
591	"messages": {
592	"cases": [
593	{
594	"if": "{
595	trigger.data["method"] == "BUY"
596	}",
597	"messages": {
598	"cases": [
599	{
600	"if": "{
601	$isAuction
602	}",
603	"init": "{
604	if (trigger.output[[asset="base"]].amount < 20000)
605	bounce("The minimum bid is 20000 bytes");
606	if (trigger.output[[asset="base"]].amount <= $NFT.bid * (1 + $MIN_BID_INCREMENT))
607	bounce("Your bid must be at least " \|\| $NFT.bid * (1 + $MIN_BID_INCREMENT) \|\| " (0.01% higher than the current)");
608
609	if ($NFT.soldBy == trigger.address)
610	bounce("You cannot bid on your own auction");
611	}",
612	"messages": [
613	{
614	"app": "payment",
615	"if": "{
616	$NFT.by != $NFT.soldBy //If we don't check for this the artists could steal bytes from the AA
617	}",
618	"payload": {
619	"asset": "base",
620	"outputs": [
621	{
622	"address": "{$NFT.by}",
623	"amount": "{$NFT.bid - 10000}"
624	}
625	]
626	}
627	},
628	{
629	"app": "state",
630	"state": "{
631	var["locked"] += trigger.output[[asset="base"]].amount - ($hasBidders ? $NFT.bid : 0); //Increase non-withdrawable funds by the difference between previous and last bid
632	$NFT.bid = trigger.output[[asset="base"]].amount;
633	$NFT.at = timestamp;
634	$NFT.bids = $NFT.bids + 1;
635	$NFT.by = trigger.address;
636	if (var["FREE_" \|\| trigger.data["NFT"]])//We do not extend the deadline of freemarket NFTs
637	var["FREE_" \|\| trigger.data["NFT"]] \|\|= $stripToken($NFT);
638	else
639	var["NFT_" \|\| trigger.data["NFT"]] \|\|= $stripToken($extendDeadLine($NFT));
640	}"
641	}
642	]
643	},
644	{
645	"init": "{
646	if ($NFT.unitsSold == $NFT.cap AND $NFT.cap != 0) //We need to make an additional check for uncapped assets
647	bounce("All NFT copies have been already sold");
648
649	if (trigger.output[[asset="base"]].amount < $NFT.price)
650	bounce("Your payment is lower than the NFT price. You have to send " \|\| $NFT.price \|\| " bytes");
651	}",
652	"messages": [
653	{
654	"app": "payment",
655	"if": "{
656	floor($NFT.price * (1 - $HOUSE_CUT - ($allowsMaecenas ? (($hasMaecenas OR $buyShares) ? $artist.sharePercent : 0) : 0)) - 10000, 0) > 0
657	}",
658	"payload": {
659	"asset": "base",
660	"outputs": [
661	{
662	"address": "{$NFT.soldBy}",
663	"amount": "{floor($NFT.price * (1 - $HOUSE_CUT - ($allowsMaecenas ? (($hasMaecenas OR $buyShares) ? $artist.sharePercent : 0) : 0)) - 10000, 0)}"
664	}
665	]
666	}
667	},
668	{
669	"app": "payment",
670	"payload": {
671	"asset": "{trigger.data['NFT']}",
672	"outputs": [
673	{
674	"address": "{trigger.address}",
675	"amount": 1
676	}
677	]
678	}
679	},
680	{
681	"app": "state",
682	"state": "{
683	if (var["FREE_" \|\| trigger.data["NFT"]])
684	var["FREE_" \|\| trigger.data["NFT"]] \|\|= {unitsSold: $NFT.unitsSold + 1};
685	else
686	var["NFT_" \|\| trigger.data["NFT"]] \|\|= {unitsSold: $NFT.unitsSold + 1};
687	if ($hasMaecenas){
688	var["locked"] += $maecenasShare - $myProfit;
689	var["artist_" \|\| $NFT.author] \|\|= {share: $poolFinalValue};
690	}
691	if ($NFT.unitsSold + 1 == $NFT.cap){
692	if (var["FREE_" \|\| trigger.data["NFT"]])
693	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
694	else
695	var["NFT_" \|\| trigger.data["NFT"]] \|\|= {bid: 0, price: false, soldAt: timestamp}; //Prepare for auction and delist it from normal sale
696	}
697	}"
698	}
699	]
700	}
701	]
702	}
703	},
704	{
705	"if": "{
706	trigger.data["method"] == "CLAIM"
707	}",
708	"messages": {
709	"cases": [
710	{
711	"if": "{
712	$NFT.soldBy == $NFT.author
713	}",
714	"init": "{
715	if ($hasMaecenas OR $buyShares){
716	$paymentFromShares = $shareIWillfinallyBuy * round($price * (1 - $INVESTMENT_CUT), 0);
717	$sellerPayout = floor($NFT.bid * (1 - $HOUSE_CUT - $artist.sharePercent) - 10000 + $paymentFromShares, 0);
718	}
719	else {
720	$sellerPayout = floor($NFT.bid * (1 - $HOUSE_CUT) - 10000, 0);
721	}
722	}",
723	"messages": [
724	{
725	"app": "payment",
726	"if": "{
727	$sellerPayout > 0 //enough to be worth paying
728	AND $NFT.soldBy != $NFT.by //there is at least a bid
729	}",
730	"payload": {
731	"asset": "base",
732	"outputs": [
733	{
734	"address": "{$NFT.soldBy}",
735	"amount": "{$sellerPayout}"
736	}
737	]
738	}
739	},
740	{
741	"app": "payment",
742	"payload": {
743	"asset": "{trigger.data['NFT']}",
744	"outputs": [
745	{
746	"address": "{$NFT.by}",
747	"amount": 1
748	}
749	]
750	}
751	},
752	{
753	"app": "state",
754	"state": "{
755	$decrement = $hasMaecenas //My share does not play a role here
756	? $NFT.bid - $maecenasShare //If it had maecenas the maecenas share remains locked
757	: $NFT.bid; //If it does not have maecenas all bytes are unlocked
758
759	if ($NFT.bid > 20000) //If it had no bids you don't need to reduce locked amount
760	var["locked"] -= $decrement; //These bytes are no longer locked as the artist is getting them in this same unit
761
762	if (var["FREE_" \|\| trigger.data["NFT"]])
763	var["FREE_" \|\| trigger.data["NFT"]] \|\|= {claimed: true};
764	else
765	var["NFT_" \|\| trigger.data["NFT"]] \|\|= {claimed: true}; //No longer listed for sale
766
767	if ($hasMaecenas AND $NFT.bid > 20000)
768	var["artist_" \|\| $NFT.author] \|\|= {share: $artist.share + $maecenasShare}; //Increase the artist pool value
769	}"
770	}
771	]
772	},
773	{
774	"messages": [
775	{
776	"app": "payment",
777	"if": "{
778	$NFT.soldBy != $NFT.by //If we don't do this check the seller could steal bytes from the AA if there were no bids
779	}",
780	"init": "{
781	$share = $NFT.bid * (1 - $HOUSE_CUT);
782	if ($NFT.royalty > 0 AND $NFT.soldBy != $NFT.by){
783	$royalty = $share * $NFT.royalty / 100;
784	$outputs = [
785	{//Royalty
786	address: $NFT.author,
787	amount: floor($royalty, 0) //Percentage of the whole bid, no fees are charged
788	},
789	{//Seller payment
790	address: $NFT.soldBy,
791	amount: floor($share - $royalty, 0) //We take the house cut then royalty cut
792	}
793	];
794	}
795	else{
796	$outputs = [
797	{//Seller payment
798	address: $NFT.soldBy,
799	amount: floor($share, 0)
800	}
801	];
802	}
803	$payload = {outputs: $outputs};
804	}",
805	"payload": "{$payload}"
806	},
807	{
808	"app": "payment",
809	"payload": {
810	"asset": "{trigger.data['NFT']}",
811	"outputs": [
812	{
813	"address": "{$NFT.by}",
814	"amount": 1
815	}
816	]
817	}
818	},
819	{
820	"app": "state",
821	"state": "{
822	var["locked"] -= $NFT.bid;
823	if (var["FREE_" \|\| trigger.data["NFT"]])
824	var["FREE_" \|\| trigger.data["NFT"]] \|\|= {claimed: true};
825	else
826	var["NFT_" \|\| trigger.data["NFT"]] \|\|= {claimed: true}; //No longer listed for sale
827	}"
828	}
829	]
830	}
831	]
832	}
833	},
834	{
835	"if": "{
836	trigger.data["method"] == "DIVEST"
837	}",
838	"messages": [
839	{
840	"app": "payment",
841	"payload": {
842	"asset": "base",
843	"outputs": [
844	{
845	"address": "{trigger.address}",
846	"amount": "{$yourShare - 10000}"
847	}
848	]
849	}
850	},
851	{
852	"app": "state",
853	"state": "{
854	var["artist_" \|\| trigger.data["artist"]] \|\|= {
855	share: $artist.share - $yourShare, //Decrease the share by the amount just divested
856	supply: $artist.supply - trigger.data["amount"] //Decrease the supply by the shares used to divest
857	};
858
859	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]] -= trigger.data["amount"];
860	var["locked"] -= ($yourShare + $myProfit);
861	}"
862	}
863	]
864	}
865	]
866	}
867	},
868	{
869	"if": "{
870	$method == "REDEEM"
871	}",
872	"init": "{
873	if (NOT exists(trigger.data["signed_message"]))
874	bounce("signed_message field is mandatory");
875	if (NOT exists(trigger.data["authors"]))
876	bounce('authors field is mandatory');
877	if (NOT exists(trigger.data["meta"]))
878	bounce("meta field is mandatory");
879
880	$spack = {
881	signed_message: trigger.data["signed_message"],
882	authors: trigger.data["authors"]
883	} \|\| trigger.data["meta"];
884
885	if (NOT is_valid_signed_package($spack, $spack.authors[0]["address"]))
886	bounce("The signed message signature is invalid");
887	if (NOT $spack.signed_message["serial"])
888	bounce("The signed message does not contains a serial field");
889	if (NOT $spack.signed_message["NFT"])
890	bounce("The signer of this message did not include a NFT field");
891
892	//Check if the code has already been redeemed
893	if (var["CODE_" \|\| $spack.signed_message["NFT"] \|\| "_" \|\| sha256($spack.signed_message["serial"])])
894	bounce("That code was already redeemed");
895
896	$NFT = $saleInfo($spack.signed_message["NFT"]);
897
898	if (NOT $NFT)
899	bounce("That NFT does not exist");
900
901	//Prevent author from stealing their NFTs from other people
902	if ($NFT.soldBy != $NFT.author)
903	bounce("You cannot claim an NFT that is not being sold by their author");
904
905	if ($NFT.author != $spack.authors[0]["address"])
906	bounce("The signer of that message is not the author of that NFT");
907
908	//NFTs have to be created with redeemable: true to be redeemable
909	if (NOT $NFT.redeem)
910	bounce("That NFT is not redeemable");
911
912	//Check if sale is over and expire was set in the signed message
913	if ($spack.signed_message["expireDate"])
914	if ($NFT.soldAt < timestamp OR $spack.signed_message["expireDate"] < timestamp)
915	bounce("That NFT is no longer claimable");
916
917	//Check if the NFT is address-locked
918	if ($spack.signed_message["claimer"])
919	if ($spack.signed_message["claimer"] != trigger.address)
920	bounce("You cannot claim that NFT from that address");
921
922	$signedAmount = $spack.signed_message["amount"] OTHERWISE 1;
923
924	//Uncapped asset, we can issue whatever amount was signed
925	if (NOT $NFT.cap){
926	$amount = $signedAmount;
927	}
928	//If it is going over the cap we need to reduce the claimed amount to match the asset cap
929	else {
930	if ($NFT.unitsSold + $signedAmount > $NFT.cap)
931	$amount = $NFT.cap - $NFT.unitsSold;
932	else
933	$amount = $signedAmount;
934	}
935
936	//All copies were issued
937	if ($amount == 0)
938	bounce("All copies of that NFT have been already minted");
939	}",
940	"messages": [
941	{
942	"app": "payment",
943	"payload": {
944	"asset": "{$spack.signed_message["NFT"]}",
945	"outputs": [
946	{
947	"address": "{trigger.address}",
948	"amount": "{$amount}"
949	}
950	]
951	}
952	},
953	{
954	"app": "state",
955	"state": "{
956	if (var["FREE_" \|\| $spack.signed_message["NFT"]])
957	var["FREE_" \|\| $spack.signed_message["NFT"]] \|\|= {unitsSold: $NFT.unitsSold + $amount};
958	else
959	var["NFT_" \|\| $spack.signed_message["NFT"]] \|\|= {unitsSold: $NFT.unitsSold + $amount};
960	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
961	}"
962	}
963	]
964	},
965	{
966	"if": "{
967	$method == "SELL"
968	}",
969	"init": "{
970	//Parameter validation
971	if (NOT exists(trigger.data["endTime"]))
972	bounce("endTime field is mandatory");
973	if (trigger.data["endTime"] < timestamp)
974	bounce("You cannot set the end time in the past");
975	if (trigger.data["endTime"] > timestamp + 2628000)
976	bounce("You cannot set the end time in more than 30 days");
977
978	if (NOT exists(trigger.data["initialPrice"]))
979	bounce("initialPrice field is mandatory");
980	if (NOT is_valid_amount(trigger.data["initialPrice"]))
981	bounce("initialPrice must be a valid amount");
982	if (trigger.data["initialPrice"] < 20000)
983	bounce("The minimum initialPrice is 20000 bytes");
984
985	//NFT validation
986	if (trigger.output[[asset!="base"]].asset == "ambigous")
987	bounce("You cannot send more than one NFT type at a time");
988
989	$feedData = data_feed[[oracles=this_address, feed_name=trigger.output[[asset!="base"]].asset, ifnone="OK", ifseveral="last", type="string"]];
990
991	if ($feedData == "REVOKED")
992	bounce("We revoked the trading of that token probably due to copyright reasons");
993
994	$NFT = $saleInfo(trigger.output[[asset!="base"]].asset) OTHERWISE {};
995
996	if (NOT $NFT)
997	bounce("NFT not found");
998
999	if (trigger.output[[asset!="base"]].amount != 1)
1000	bounce("You cannot auction more than 1 copy of an NFT at a time");
1001
1002	if ($NFT.soldAt >= timestamp)
1003	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");
1004
1005	if ($NFT.bid AND NOT $NFT.claimed)
1006	bounce("That NFT was auctioned but the payment has not been claimed yet. You can force the saller to claim it.");
1007
1008	}",
1009	"messages": [
1010	{
1011	"app": "state",
1012	"state": "{
1013	$NFT.bid = trigger.data["initialPrice"];
1014	$NFT.bids = 0;
1015	$NFT.by = trigger.address;
1016	$NFT.soldBy = trigger.address;
1017	$NFT.at = timestamp;
1018	$NFT.claimed = false;
1019	$NFT.soldAt = trigger.data["endTime"];
1020	if (var["FREE_" \|\| trigger.output[[asset!="base"]].asset])
1021	var["FREE_" \|\| trigger.output[[asset!="base"]].asset] = $stripToken($NFT) \|\| {claimed: false};
1022	else
1023	var["NFT_" \|\| trigger.output[[asset!="base"]].asset] = $stripToken($NFT) \|\| {claimed: false};
1024	}"
1025	}
1026	]
1027	},
1028	{
1029	"if": "{
1030	$method == "ENABLE_INVESTING"
1031	}",
1032	"init": "{
1033	if (var["artist_" \|\| trigger.address])
1034	bounce("You are already accepting maecenas");
1035
1036	if (NOT trigger.data["share"])
1037	bounce("share field is mandatory");
1038
1039	if (NOT is_integer(trigger.data["share"]) OR trigger.data["share"] < 1 OR trigger.data["share"] > 50)
1040	bounce("share must be an integer between 1 - 50");
1041	if (exists(trigger.data["selfBuy"])){
1042	if (NOT is_integer(trigger.data["selfBuy"]))
1043	bounce("selfBuy field must be an integer");
1044	if (trigger.data["selfBuy"] < 0)
1045	bounce("selfBuy must be a positive integer");
1046
1047	$cost = (1161570 * trigger.data["selfBuy"] * (1 + trigger.data["selfBuy"]) * (1 + 2 * trigger.data["selfBuy"])) * $INVESTMENT_CUT;
1048
1049	if (trigger.output[[asset="base"]].amount < $cost)
1050	bounce("You need to send at least " \|\| $cost \|\| " bytes");
1051	}
1052	}",
1053	"messages": [
1054	{
1055	"app": "state",
1056	"state": "{
1057	var["artist_" \|\| trigger.address] = {
1058	supply: trigger.data["selfBuy"] OTHERWISE 0,
1059	share: 0,
1060	sharePercent: trigger.data["share"] / 100
1061	};
1062	if (trigger.data["selfBuy"])
1063	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.address] = trigger.data["selfBuy"];
1064	}"
1065	}
1066	]
1067	},
1068	{
1069	"if": "{
1070	$method == "DISABLE_INVESTING"
1071	}",
1072	"init": "{
1073	$info = $artistInfo(trigger.address);
1074
1075	if (NOT $info)
1076	bounce("You are already not accepting maecenas");
1077
1078	if ($info.supply > 0)
1079	bounce("You cannot stop accepting maecenas right now as you already have some");
1080	}",
1081	"messages": [
1082	{
1083	"app": "state",
1084	"state": "{
1085	var["artist_" \|\| trigger.address] = false;
1086	}"
1087	}
1088	]
1089	},
1090	{
1091	"if": "{
1092	$method == "INVEST"
1093	}",
1094	"init": "{
1095	if (NOT trigger.data["artist"])
1096	bounce("artist field is mandatory");
1097
1098	$artist = $artistInfo(trigger.data["artist"]);
1099
1100	if (NOT $artist)
1101	bounce("That artist is not accepting maecenas");
1102
1103	if (NOT trigger.data["amount"])
1104	bounce("amount field is mandatory");
1105	if (NOT is_integer(trigger.data["amount"]) OR trigger.data["amount"] <= 0)
1106	bounce("amount must be a positive integer");
1107
1108
1109	$x0 = $artist.supply;
1110	$x1 = $artist.supply + trigger.data["amount"];
1111
1112
1113	$upToFirstToken = 1161570 * $x0 * (1 + $x0) * (1 + 2 * $x0);
1114	$upToTargetPurchase = 1161570 * $x1 * (1 + $x1) * (1 + 2 * $x1);
1115
1116	$totalCost = round($upToTargetPurchase - $upToFirstToken, 0);
1117
1118	if (trigger.output[[asset="base"]].amount < $totalCost)
1119	bounce("Your payment is not enough for that purchase");
1120	}",
1121	"messages": [
1122	{
1123	"app": "payment",
1124	"payload": {
1125	"asset": "base",
1126	"outputs": [
1127	{
1128	"address": "{trigger.data["artist"]}",
1129	"amount": "{floor($totalCost * (1 - $INVESTMENT_CUT) - 10000, 0)}"
1130	}
1131	]
1132	}
1133	},
1134	{
1135	"app": "state",
1136	"state": "{
1137	var["artist_" \|\| trigger.data["artist"]] \|\|= {supply: $artist.supply + trigger.data["amount"]};
1138
1139	if (var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]])
1140	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]] += trigger.data["amount"];
1141	else
1142	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]] = trigger.data["amount"];
1143	}"
1144	}
1145	]
1146	},
1147	{
1148	"if": "{
1149	$method == "PROFILE"
1150	}",
1151	"init": "{
1152	$prof = $profile(trigger.address);
1153
1154	$oldUsername = $prof.username;
1155	$newUsername = trigger.data["username"] OTHERWISE $oldUsername;
1156
1157	if (NOT $oldUsername){
1158	if (NOT trigger.data["username"])
1159	bounce("username field is mandatory");
1160	}
1161
1162	if (var["user_" \|\| $newUsername]){
1163	if ($oldUsername){
1164	if ($oldUsername != $newUsername){
1165	bounce("username already taken by a verified user");
1166	}
1167	}
1168	}
1169
1170	if ($prof)
1171	$profileObj = $prof \|\| trigger.data \|\| {username: $newUsername, verified: false};
1172	else
1173	$profileObj = trigger.data \|\| {verified: false, username: $newUsername};
1174	delete($profileObj, "method");
1175	}",
1176	"messages": [
1177	{
1178	"app": "state",
1179	"state": "{
1180	var["profile_" \|\| trigger.address] = $profileObj;
1181	if ($oldUsername){
1182	if ($oldUsername != $newUsername)
1183	var["user_" \|\| $oldUsername] = false; //Free old username
1184	}
1185	//Do not lock new username here. It will be locked upon verification to prevent username squatting
1186	}"
1187	}
1188	]
1189	},
1190	{
1191	"if": "{
1192	$method == "CHANGE_PRICE"
1193	}",
1194	"init": "{
1195	if (NOT trigger.data["NFT"])
1196	bounce("NFT field is mandatory");
1197
1198	$NFT = var["NFT_" \|\| trigger.data["NFT"]];
1199
1200	if (NOT $NFT)
1201	bounce("NFT not found");
1202
1203	if (NOT trigger.data["price"])
1204	bounce("price field is mandatory");
1205	if (NOT is_integer(trigger.data["price"]))
1206	bounce("price must be an integer");
1207	if (NOT is_valid_amount(trigger.data["price"]))
1208	bounce("price is invalid");
1209
1210	if (trigger.data["price"] < 20000)
1211	bounce("The minimum price is 20000 bytes");
1212
1213	if ($NFT.bid)
1214	bounce("You cannot change an auction price!");
1215	}",
1216	"messages": [
1217	{
1218	"app": "state",
1219	"state": "{
1220	var["NFT_" \|\| trigger.data["NFT"]] \|\|= {price: trigger.data["price"]};
1221	}"
1222	}
1223	]
1224	}
1225	]
1226	}
1227	}
1228	]