Address GNE3LZAKIKY33HWEIOHP7BUU6SOEURLS, transactions and portfolio

GNE3LZAKIKY33HWEIOHP7BUU6SOEURLS

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