Address OC2VACJYJ6BA6WDPNECRXSFKPFCBDLJE, transactions and portfolio

OC2VACJYJ6BA6WDPNECRXSFKPFCBDLJE

defined on 25.04.2021

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