Address G7TQMT6F5NZQIVX23RNH25EBLMWR4KMM, transactions and portfolio

G7TQMT6F5NZQIVX23RNH25EBLMWR4KMM

Definition

1	[
2	"autonomous agent",
3	{
4	"bounce_fees": {
5	"base": 10000
6	},
7	"init": "{
8	$INVESTMENT_CUT = 0.01; //We take a 1% cut from all maecenas investments
9	$RESERVE_AMOUNT = 200000; //We will always keep > 200.000 in the AA
10
11	if (NOT trigger.data["method"])
12	bounce("method field is mandatory");
13
14	$method = trigger.data["method"];
15
16	$spendableFunds = balance["base"] - var["locked"] - storage_size - $RESERVE_AMOUNT;
17	$owner = var["owner"];
18	$calculateSharesToBuy = ($price, $pool, $myShare)=>ln($price / ($pool * $myShare)) / ln($myShare);
19	$_maecenasCurve = $x=>6969420 * $x^2;
20	}",
21	"getters": "{
22	/*
23	** Attested profile (or just the address if not found)
24	*/
25	$profileOf = $artist=>{
26	return ((attestation[[attestors=this_address, address=$artist, ifseveral='last', ifnone=false, type="auto"]]["data"] OTHERWISE {}) \|\| {address: $artist});
27	};
28	$artistInfoOf = $artist=>var["artist_" \|\| $artist];
29	}",
30	"messages": {
31	"cases": [
32	{
33	"if": "{
34	NOT $owner
35	}",
36	"messages": [
37	{
38	"app": "state",
39	"state": "{
40	var["owner"] = "IUU43O7TS2TBYKAPGKUARDZHOTAE275A"; //Set the Owner to my address
41	var["helper"] = "IUU43O7TS2TBYKAPGKUARDZHOTAE275A";
42	var["locked"] = 0; //Bytes locked in investments are not withdrawable by the Owner
43	}"
44	}
45	]
46	},
47	{
48	"if": "{
49	trigger.address == $owner
50	AND ($method == "payout"
51	OR $method == "transferOwnership"
52	OR $method == "setHelper"
53	OR $method == "setAA"
54	OR $method == "delAA"
55	OR $method == "unverify")
56	}",
57	"messages": {
58	"cases": [
59	{
60	"if": "{
61	$method == "payout"
62	}",
63	"messages": [
64	{
65	"app": "payment",
66	"payload": {
67	"asset": "base",
68	"outputs": [
69	{
70	"address": "{trigger.address}",
71	"amount": "{$spendableFunds}"
72	}
73	]
74	}
75	}
76	]
77	},
78	{
79	"if": "{
80	$method == "unverify"
81	}",
82	"init": "{
83	if (NOT trigger.data["artist"])
84	bounce("artist field is mandatory");
85	$_ = $profileOf(trigger.data["artist"]);
86	$oldUsername = $_["username"];
87	$prof = $_ \|\| {verified: false, username: false};
88	}",
89	"messages": [
90	{
91	"app": "attestation",
92	"payload": "{
93	{
94	address: trigger.data["artist"],
95	profile: {
96	data: $prof
97	}
98	}
99	}"
100	},
101	{
102	"app": "state",
103	"state": "{
104	var["user_" \|\| $oldUsername] = false; //Free username
105	}"
106	}
107	]
108	},
109	{
110	"if": "{
111	$method == "transferOwnership"
112	}",
113	"init": "{
114	if (NOT trigger.data["newOwner"])
115	bounce("newOwner field is mandatory");
116	if (NOT is_valid_address(trigger.data["newOwner"]))
117	bounce("newOwner field is not a valid address");
118	}",
119	"messages": [
120	{
121	"app": "payment",
122	"payload": {
123	"asset": "base",
124	"outputs": [
125	{
126	"address": "{trigger.address}",
127	"amount": "{$spendableFunds}"
128	}
129	]
130	}
131	},
132	{
133	"app": "state",
134	"state": "{
135	var["owner"] = trigger.data["newOwner"];//Ownership is transferred
136	}"
137	}
138	]
139	},
140	{
141	"if": "{
142	$method == "setHelper"
143	}",
144	"init": "{
145	if (NOT trigger.data["helper"])
146	bounce("helper field is mandatory");
147	}",
148	"messages": [
149	{
150	"app": "state",
151	"state": "{
152	var["helper"] = trigger.data["helper"];
153	}"
154	}
155	]
156	},
157	{
158	"if": "{
159	trigger.data["method"] == "setAA"
160	}",
161	"init": "{
162	if (NOT is_valid_address(trigger.data["AA"]))
163	bounce("AA is not a valid address");
164	}",
165	"messages": [
166	{
167	"app": "state",
168	"state": "{
169	var["AA_" \|\| trigger.data["AA"]] = true;
170	}"
171	}
172	]
173	},
174	{
175	"if": "{
176	trigger.data["method"] == "delAA"
177	}",
178	"init": "{
179	if (NOT var["AA_" \|\| trigger.data["AA"]])
180	bounce("AA is not a valid address");
181	}",
182	"messages": [
183	{
184	"app": "state",
185	"state": "{
186	var["AA_" \|\| trigger.data["AA"]] = false;
187	}"
188	}
189	]
190	}
191	]
192	}
193	},
194	{
195	"if": "{
196	(trigger.address == $owner
197	OR trigger.address == var["helper"])
198	AND $method == "verifyProfile"
199	}",
200	"init": "{
201	if (NOT trigger.data["artist"])
202	bounce("artist field is mandatory");
203	$prof = $profileOf(trigger.data["artist"]);
204	}",
205	"messages": [
206	{
207	"app": "attestation",
208	"payload": "{
209	{
210	address: trigger.data["artist"],
211	profile: { //Wrapper to be able to query the whole object at once since you can only query attestations by fields
212	data: $prof \|\| {verified: true}
213	}
214	}
215	}"
216	},
217	{
218	"app": "state",
219	"state": "{
220	var["user_" \|\| $prof.username] = trigger.data["artist"]; //Username is now taken
221	}"
222	}
223	]
224	},
225	{
226	"if": "{
227	$method == "DIVEST"
228	}",
229	"init": "{
230	$artist = $profileOf(trigger.data["artist"]);
231
232	if (NOT trigger.data["artist"])
233	bounce("artist field is mandatory");
234	if (NOT is_valid_address(trigger.data["artist"]))
235	bounce("artist's address is invalid");
236
237	if (NOT $artist)
238	bounce("That artist never accepted maecenas");
239
240	if (NOT exists(trigger.data["amount"]))
241	bounce("amount field is mandatory");
242	if (NOT is_integer(trigger.data["amount"]) OR trigger.data["amount"] <= 0)
243	bounce("amount must be an integer > 0");
244
245	$investedAmount = var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]];
246
247	if (NOT $investedAmount)
248	bounce("You have no shares of that artist");
249
250	if (trigger.data["amount"] > $investedAmount)
251	bounce("You only have " \|\| $investedAmount \|\| " shares of that artist");
252
253	$yourShare = floor($artist.share * trigger.data["amount"] / $artist.supply, 0);
254
255	if ($yourShare < 20000)
256	bounce("It is not worth divesting your share");
257
258	$allowsMaecenas = ($artist.sharePercent >= 0.01) ? true : false;
259	$hasMaecenas = $allowsMaecenas
260	? $artist.supply > 0
261	? true
262	: false
263	: false;
264
265
266	if ($allowsMaecenas){
267	$maecenasShare = 0;
268	$sharesInThePool = $artist.supply - trigger.data["amount"]; //If divesting we need to substract divested shares
269	$p = $artist.share - floor((trigger.data["amount"] / $artist.supply) * $artist.share, 0); //Current share minus what was just divested
270
271	$k = 1 / ($sharesInThePool + 1); //The fraction of the pool 1 share represents
272	$price = $_maecenasCurve($sharesInThePool + 1); //Price of buying one share
273
274	$totalSpendable = floor($spendableFunds + $price * $INVESTMENT_CUT, 0);
275
276	$sharesToBuy = $sharesInThePool == 0 ? 0 : ceil($calculateSharesToBuy($price, $p, $k), 0);//Can be 0 and I would still afford 1 share if profitable
277
278	if ($k == 1){
279	$sharesICanAfford = $price < $totalSpendable ? 1 : 0;
280	}
281	else {
282	if ($totalSpendable > $price AND $sharesToBuy >= 1){
283	$sharesICanAfford = floor($totalSpendable / ($price * $sharesToBuy * (1 - $INVESTMENT_CUT)), 0); //Do not buy more shares than what I can afford
284	}
285	else{
286	$sharesICanAfford = 0;
287	}
288	}
289	}
290
291	if ($allowsMaecenas AND $sharesICanAfford > 0){
292	$buyShares = true;
293	}
294	else{
295	$buyShares = false;
296	}
297
298	$shareIWillfinallyBuy = min($sharesToBuy, $sharesICanAfford); //Maybe I can afford more shares than what is profitable to buy
299	$myProfit = floor($buyShares ? $p - $p * $k^$shareIWillfinallyBuy : 0, 0); //0 if no shares are bought
300	$poolFinalValue = $p - $myProfit; //Not actual profit but what I got out of the pool
301	}",
302	"messages": [
303	{
304	"app": "payment",
305	"payload": {
306	"asset": "base",
307	"outputs": [
308	{
309	"address": "{trigger.address}",
310	"amount": "{$yourShare - 10000}"
311	}
312	]
313	}
314	},
315	{
316	"app": "state",
317	"state": "{
318	var["artist_" \|\| trigger.data["artist"]] \|\|= {
319	share: $artist.share - $yourShare, //Decrease the share by the amount just divested
320	supply: $artist.supply - trigger.data["amount"] //Decrease the supply by the shares used to divest
321	};
322	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]] -= trigger.data["amount"];
323	var["locked"] -= ($yourShare + $myProfit);
324	}"
325	}
326	]
327	},
328	{
329	"if": "{
330	$method == "ENABLE_INVESTING"
331	}",
332	"init": "{
333	if (var["artist_" \|\| trigger.address])
334	bounce("You are already accepting maecenas");
335
336	if (NOT trigger.data["share"])
337	bounce("share field is mandatory");
338
339	if (NOT is_integer(trigger.data["share"]) OR trigger.data["share"] < 1 OR trigger.data["share"] > 50)
340	bounce("share must be an integer between 1 - 50");
341	if (exists(trigger.data["selfBuy"])){
342	if (NOT is_integer(trigger.data["selfBuy"]))
343	bounce("selfBuy field must be an integer");
344	if (trigger.data["selfBuy"] < 0)
345	bounce("selfBuy must be a positive integer");
346
347	$cost = (1161570 * trigger.data["selfBuy"] * (1 + trigger.data["selfBuy"]) * (1 + 2 * trigger.data["selfBuy"])) * $INVESTMENT_CUT;
348
349	if (trigger.output[[asset="base"]].amount < $cost)
350	bounce("You need to send at least " \|\| $cost \|\| " bytes");
351	}
352	}",
353	"messages": [
354	{
355	"app": "state",
356	"state": "{
357	var["artist_" \|\| trigger.address] = {
358	supply: trigger.data["selfBuy"] OTHERWISE 0,
359	share: 0, //Pooled amount availabe to investors
360	sharePercent: trigger.data["share"] / 100
361	};
362	if (trigger.data["selfBuy"])
363	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.address] = trigger.data["selfBuy"];
364	}"
365	}
366	]
367	},
368	{
369	"if": "{
370	$method == "DISABLE_INVESTING"
371	}",
372	"init": "{
373	$info = $profileOf(trigger.address);
374
375	if (NOT $info)
376	bounce("You are already not accepting maecenas");
377
378	if ($info.supply > 0)
379	bounce("You cannot stop accepting maecenas right now as you already have some");
380	}",
381	"messages": [
382	{
383	"app": "state",
384	"state": "{
385	var["artist_" \|\| trigger.address] = false;
386	}"
387	}
388	]
389	},
390	{
391	"if": "{
392	$method == "INVEST"
393	}",
394	"init": "{
395	if (NOT trigger.data["artist"])
396	bounce("artist field is mandatory");
397
398	$artist = $profileOf(trigger.data["artist"]);
399
400	if (NOT $artist)
401	bounce("That artist is not accepting maecenas");
402
403	if (NOT trigger.data["amount"])
404	bounce("amount field is mandatory");
405	if (NOT is_integer(trigger.data["amount"]) OR trigger.data["amount"] <= 0)
406	bounce("amount must be a positive integer");
407
408
409	$x0 = $artist.supply;
410	$x1 = $artist.supply + trigger.data["amount"];
411
412
413	$upToFirstToken = 1161570 * $x0 * (1 + $x0) * (1 + 2 * $x0);
414	$upToTargetPurchase = 1161570 * $x1 * (1 + $x1) * (1 + 2 * $x1);
415
416	$totalCost = round($upToTargetPurchase - $upToFirstToken, 0);
417
418	if (trigger.output[[asset="base"]].amount < $totalCost)
419	bounce("Your payment is not enough for that purchase");
420	}",
421	"messages": [
422	{
423	"app": "payment",
424	"payload": {
425	"asset": "base",
426	"outputs": [
427	{
428	"address": "{trigger.data["artist"]}",
429	"amount": "{floor($totalCost * (1 - $INVESTMENT_CUT) - 10000, 0)}"
430	}
431	]
432	}
433	},
434	{
435	"app": "state",
436	"state": "{
437	var["artist_" \|\| trigger.data["artist"]] \|\|= {supply: $artist.supply + trigger.data["amount"]};
438
439	if (var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]])
440	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]] += trigger.data["amount"];
441	else
442	var["maecenas_" \|\| trigger.address \|\| "_" \|\| trigger.data["artist"]] = trigger.data["amount"];
443	}"
444	}
445	]
446	},
447	{
448	"if": "{
449	$method == "PROFILE"
450	}",
451	"init": "{
452	$prof = $profileOf(trigger.address);
453
454	$oldUsername = $prof.username;
455	$newUsername = trigger.data["username"] OTHERWISE $oldUsername;
456
457	if (NOT $oldUsername){
458	if (NOT trigger.data["username"])
459	bounce("username field is mandatory");
460	}
461
462	if (var["user_" \|\| $newUsername]){
463	if ($oldUsername){
464	if ($oldUsername != $newUsername){
465	bounce("username already taken by a verified user");
466	}
467	}
468	}
469	if (exists(trigger.data["username"]) OR exists(trigger.data["name"]) OR exists(trigger.data["company"]))
470	$unverify = true;
471	else
472	$unverify = false;
473
474	if ($prof)
475	$profileObj = $prof \|\| trigger.data \|\| {username: $newUsername, verified: $unverify};
476	else
477	$profileObj = trigger.data \|\| {username: $newUsername, verified: $unverify};
478	delete($profileObj, "method");
479	}",
480	"messages": [
481	{
482	"app": "attestation",
483	"payload": "{
484	{
485	address: trigger.address,
486	profile: {
487	data: $profileObj
488	}
489	}
490	}"
491	},
492	{
493	"app": "state",
494	"state": "{
495	//var["profile_" \|\| trigger.address] = $profileObj;
496	if ($oldUsername){
497	if ($oldUsername != $newUsername)
498	var["user_" \|\| $oldUsername] = false; //Free old username
499	}
500	//Do not lock new username here. It will be locked upon verification to prevent username squatting
501	}"
502	}
503	]
504	},
505	{
506	"if": "{
507	$method == "addShare"
508	}",
509	"init": "{
510	if (NOT var["AA_" \|\| trigger.address])
511	bounce("You have no power here");
512	}",
513	"messages": [
514	{
515	"app": "state",
516	"state": "{
517	$current = $artistInfoOf(trigger.data["artist"]);
518	var[trigger.data["artist"]] = $current \|\| {share: trigger.output[[asset="base"]].amount};
519	}"
520	}
521	]
522	}
523	]
524	}
525	}
526	]