/* 
 * @(#)gmember.mcode
 *
 * This is a program designed to more easily find people according to their 
 * guild membership.
 *
 */

DATA:

/* Other guilds to be added in gnames and list of titles */
&gm_data_gnames me=artisans foresters seekers

&gm_data_artisans me=Hirdan Angdan Habaron Celebdan Mirdan Maldan Fengdan Ganneldan Awardan Calardan Nathron Nathril Tindain Gonnhir Cennan Tannur
&gm_data_foresters me=Tauron Tauril Rithron Feredir Feredis Gadhron Gadhril Tellenistron Tellenistril Lhimbadhron Lhimbadhril Tugwiol
&gm_data_seekers me=Isthir Istheryn Gwethron Gwethril Saelon Saeleth Hirbarvasson Gobennasdir Gobennasdis Seinobennasdir Seinobennasdis Celdir Celdis Suiladdan Amarechedor Seinamarechedor Parvasson Teithor Elisthir Idherveld Randir




FUNCTIONS:

/* parse input args ... right now always returns 'seekers 9999 n' for seekers guild, 9999 members sorted by name  ... call like u(gm_fun_parseinput, <args>, %#) */
&gm_fun_parseinput me=
[switch(words(%0),
	1,
		[switch(
			member(lcstr(v(gm_data_gnames)),lcstr(%0)),
			0,
				[switch(
					isnum(%0),
					1,[u(gm_fun_findenactorsguild, %1)] %0 n,
					0,[switch(
						lcstr(%0),
						n,[u(gm_fun_findenactorsguild, %1)] 9999 n,
						l,[u(gm_fun_findenactorsguild, %1)] 9999 l,
						OOPS
					)],
				)],
			lcstr(%0) 9999 n
		)],		
	2,
		[setq(0,setinter(lcstr(v(gm_data_gnames)),lcstr(%0)))]
		[switch(
			words(%q0),
			1,[setq(1,setdiff(lcstr(%0),%q0))]
				[switch(
					isnum(%q1),
					1,%q0 %q1 n,
					0,[switch(
						lcstr(%q1),
						n,%q0 9999 n,
						l,%q0 9999 l,
						OOPS
					)],
					OOPS
				)]
			,
			0,[switch(
				isnum(extract(%0,1,1)),
				1,[switch(
					lcstr(extract(%0,2,1)),
					n,[u(gm_fun_findenactorsguild, %1)] [extract(%0,1,1)] n,
					l,[u(gm_fun_findenactorsguild, %1)] [extract(%0,1,1)] l,
					OOPS
				)],
				0,[if(
					isnum(extract(%0,2,1)),
					[switch(lcstr(extract(%0,1,1)),
					n,[u(gm_fun_findenactorsguild, %1)] [extract(%0,2,1)] [extract(%0,1,1)],
					l,[u(gm_fun_findenactorsguild, %1)] [extract(%0,2,1)] [extract(%0,1,1)],OOPS)],
				)],
				OOPS
			)],
			OOPS
		)],
	3,[setq(0,setinter(lcstr(v(gm_data_gnames)),lcstr(%0)))]
		[switch(
			words(%q0),
			1,[setq(1,setdiff(lcstr(%0),%q0))]
				
				[switch(
					isnum(extract(%q1,1,1)),
					1,[switch(
						lcstr(extract(%q1,2,1)),
						n,%q0 [extract(%q1,1,1)]-%q1 n,
						l,%q0 [extract(%q1,1,1)] l,
						OOPS
					)],
					0,[if(
						isnum(extract(%q1,2,1)),
						[switch(lcstr(extract(%q1,1,1)),
							n,%q0 [extract(%q1,2,1)] n,
							l,%q0 [extract(%q1,2,1)] l,
						OOPS
						)],
					)],
					OOPS
				)]

			,
			0,OOPS,
			OOPS
		)],
	OOPS
)]

&gm_fun_parseinput me=[switch(words(%0),1,[switch(member(lcstr(v(gm_data_gnames)),lcstr(%0)),0,[switch(isnum(%0),1,[u(gm_fun_findenactorsguild, %1)] %0 n,0,[switch(lcstr(%0),n,[u(gm_fun_findenactorsguild, %1)] 9999 n,l,[u(gm_fun_findenactorsguild, %1)] 9999 l,OOPS)],)],lcstr(%0) 9999 n)],2,[setq(0,setinter(lcstr(v(gm_data_gnames)),lcstr(%0)))][switch(words(%q0),1,[setq(1,setdiff(lcstr(%0),%q0))][switch(isnum(%q1),1,%q0 %q1 n,0,[switch(lcstr(%q1),n,%q0 9999 n,l,%q0 9999 l,OOPS)],OOPS)],0,[switch(isnum(extract(%0,1,1)),1,[switch(lcstr(extract(%0,2,1)),n,[u(gm_fun_findenactorsguild, %1)] [extract(%0,1,1)] n,l,[u(gm_fun_findenactorsguild, %1)] [extract(%0,1,1)] l,OOPS)],0,[if(isnum(extract(%0,2,1)),[switch(lcstr(extract(%0,1,1)),n,[u(gm_fun_findenactorsguild, %1)] [extract(%0,2,1)] [extract(%0,1,1)],l,[u(gm_fun_findenactorsguild, %1)] [extract(%0,2,1)] [extract(%0,1,1)],OOPS)],)],OOPS)],OOPS)],3,[setq(0,setinter(lcstr(v(gm_data_gnames)),lcstr(%0)))][switch(words(%q0),1,[setq(1,setdiff(lcstr(%0),%q0))][switch(isnum(extract(%q1,1,1)),1,[switch(lcstr(extract(%q1,2,1)),n,%q0 [extract(%q1,1,1)] n,l,%q0 [extract(%q1,1,1)] l,OOPS)],0,[if(isnum(extract(%q1,2,1)),[switch(lcstr(extract(%q1,1,1)),n,%q0 [extract(%q1,2,1)] n,l,%q0 [extract(%q1,2,1)] l,OOPS)],)],OOPS)],0,OOPS,OOPS)],OOPS)]



/* to find the enactor's guild, call this with [u(gm_fun_findenactorsguild, %#)]  */
&gm_fun_findenactorsguild me=
[setq(1,9999)]
[iter(
	v(gm_data_gnames),
	[setq(2,extract(setinter(v(gm_data_##),get(%0/title)),1,1))]
	[if(
		gt(words(%q2),0),
		[setq(3,member(get(%0/title),%q2))][if(lt(%q3,%q1),[setq(0,##)][setq(1,%q3)])]
	)]
)]%q0

&gm_fun_findenactorsguild me=[setq(1,9999)][iter(v(gm_data_gnames),[setq(2,extract(setinter(v(gm_data_##),get(%0/title)),1,1))][if(gt(words(%q2),0),[setq(3,member(get(%0/title),%q2))][if(lt(%q3,%q1),[setq(0,##)][setq(1,%q3)])])])]%q0



/* call this with [u(gm_fun_gmemberdb, <gname>)]
&gm_fun_gmemberdb me=
[iter(
	get(#10000/imladhrim_list),
	switch(words(setinter(v(gm_data_%0),get(##/title))),0,,##)
)]

&gm_fun_gmemberdb me=[iter(get(#10000/imladhrim_list),switch(words(setinter(v(gm_data_%0),get(##/title))),0,,##))]



/* sort functions for munge() */
&gm_sort_alpha me=[sort(%0)]

&gm_isort_int me=
[setq(9,sort(%0,n))]
[setq(8,add(words(%q9),1))]
[iter(
	%q9,
	[setq(8,sub(%q8,1))][extract(%q9,%q8,1)]
)]

&gm_isort_int me=[setq(9,sort(%0,n))][setq(8,add(words(%q9),1))][iter(%q9,[setq(8,sub(%q8,1))][extract(%q9,%q8,1)])]



/* call u(gm_prettyprint_title,list,output dbref or name d|n,gname) */
&gm_prettyprint_title me=
[iter(%0,
	%r[ljust(
		[switch(%1,
			n,name(##),
			##
		)],15
	)]%t[setinter(
		v(gm_data_%2),get(##/title)
	)]
)]

&gm_prettyprint_title me=[iter(%0,%r[ljust([switch(%1,n,name(##),##)],15)]%t[setinter(v(gm_data_%2),get(##/title))])]



/* call u(gm_prettyprint_last,list,output dbref or name d|n) */
&gm_prettyprint_last me=
[iter(%0,
	%r[ljust(
		[switch(%1,
			n,name(##),
			##
		)],15
	)]%t[get(##/last)]
)]

&gm_prettyprint_last me=[iter(%0,%r[ljust([switch(%1,n,name(##),##)],15)]%t[get(##/last)])]



/* call u(gm_prettyprint_both,list,output dbref or name d|n,gname) */
&gm_prettyprint_both me=
[iter(%0,
	%r[ljust(
		[switch(%1,
			n,name(##),
			##
		)],15
	)]%t[get(##/last)]%t
	[setinter(
		v(gm_data_%2),get(##/title)
	)]
)]

&gm_prettyprint_both me=[iter(%0,%r[ljust([switch(%1,n,name(##),##)],15)]%t[get(##/last)]%t[setinter(v(gm_data_%2),get(##/title))])]



/* call u(gm_prettyprint_long,list,output dbref or name d|n,gname) */
&gm_prettyprint_long me=
[iter(%0,
	%r[ljust(
		[switch(%1,
			n,name(##),
			##
		)],15
	)]%t[get(##/last)]%r----------%r
	[get(##/title)]%r==========
)]

&gm_prettyprint_long me=[iter(%0,%r[ljust([switch(%1,n,name(##),##)],15)]%t[get(##/last)]%r----------%r[get(##/title)]%r==========)]




COMMANDS:

/* gmemberdb */

&do_gmemberdb me=$gmemberdb: think 
[setq(0,u(gm_fun_findenactorsguild,%#))]
[setq(9,u(gm_fun_gmemberdb,%q0))]
[setq(8,iter(%q9,name(##)))]
[iter(munge(gm_sort_alpha,%q8,%q9),##)]

&do_gmemberdb me=$gmemberdb: think [setq(0,u(gm_fun_findenactorsguild,%#))][setq(9,u(gm_fun_gmemberdb,%q0))][setq(8,iter(%q9,name(##)))][munge(gm_sort_alpha,%q8,%q9)]



&do_gmemberdb2 me=$gmemberdb *: think 
[setq(4,u(gm_fun_parseinput,%0,%#))]
[switch(%q4,
	OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\]
			\[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},
	[setq(0,first(%q4))]
		[setq(2,rest(%q4))]
		[setq(1,first(%q2))]
		[setq(2,last(%q4))]
		[setq(9,u(gm_fun_gmemberdb,%q0))]
		[switch(
			%q2,
			n,
				[setq(8,iter(%q9,name(##)))]
				[iter(
					munge(gm_sort_alpha,%q8,%q9),
					[if(lt(#@,add(%q1,1)),##)]
				)],
			l,
				[setq(8,iter(%q9,convtime(get(##/last))))]
				[iter(
					munge(gm_isort_int,%q8,%q9),
					[if(lt(#@,add(%q1,1)),##)]
				)],
			,
		)]
)]

&do_gmemberdb2 me=$gmemberdb *: think [setq(4,u(gm_fun_parseinput,%0,%#))][switch(%q4,OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\] \[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},[setq(0,first(%q4))][setq(2,rest(%q4))][setq(1,first(%q2))][setq(2,last(%q4))][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][iter(munge(gm_sort_alpha,%q8,%q9),[if(lt(#@,add(%q1,1)),##)])],l,[setq(8,iter(%q9,convtime(get(##/last))))][iter(munge(gm_isort_int,%q8,%q9),[if(lt(#@,add(%q1,1)),##)])],)])]



&do_gmemberdb_title me=$gmemberdb/title: think 
[setq(0,[u(gm_fun_findenactorsguild,%#)])]
[setq(1,9999)]
[setq(2,n)]
[setq(9,u(gm_fun_gmemberdb,%q0))]
[switch(
	%q2,
	n,
		[setq(8,iter(%q9,name(##)))]
		[setq(7,munge(gm_sort_alpha,%q8,%q9))]
		[u(gm_prettyprint_title,extract(%q7,1,%q1),d,%q0)],
	l,
		[setq(8,iter(%q9,convtime(get(##/last))))]
		[setq(7,munge(gm_isort_int,%q8,%q9))]
		[u(gm_prettyprint_title,extract(%q7,1,%q1),d,%q0)],
)]


&do_gmemberdb_title me=$gmemberdb/title: think [setq(0,[u(gm_fun_findenactorsguild,%#)])][setq(1,9999)][setq(2,n)][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_title,extract(%q7,1,%q1),d,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_title,extract(%q7,1,%q1),d,%q0)],)]



&do_gmemberdb_title2 me=$gmemberdb/title *: think 
[setq(4,u(gm_fun_parseinput,%0,%#))]
[switch(%q4,
	OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\]
			\[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},
	[setq(0,first(%q4))]
		[setq(2,rest(%q4))]
		[setq(1,first(%q2))]
		[setq(2,last(%q4))]
		[setq(9,u(gm_fun_gmemberdb,%q0))]
		[switch(
			%q2,
			n,
				[setq(8,iter(%q9,name(##)))]
				[setq(7,munge(gm_sort_alpha,%q8,%q9))]
				[u(gm_prettyprint_title,extract(%q7,1,%q1),d,%q0)],
			l,
				[setq(8,iter(%q9,convtime(get(##/last))))]
				[setq(7,munge(gm_isort_int,%q8,%q9))]
				[u(gm_prettyprint_title,extract(%q7,1,%q1),d,%q0)],
		)]
)]

&do_gmemberdb_title2 me=$gmemberdb/title *: think [setq(4,u(gm_fun_parseinput,%0,%#))][switch(%q4,OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\] \[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},[setq(0,first(%q4))][setq(2,rest(%q4))][setq(1,first(%q2))][setq(2,last(%q4))][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_title,extract(%q7,1,%q1),d,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_title,extract(%q7,1,%q1),d,%q0)],)])]



&do_gmemberdb_last me=$gmemberdb/last: think 
[setq(0,[u(gm_fun_findenactorsguild,%#)])]
[setq(1,9999)]
[setq(2,n)]
[setq(9,u(gm_fun_gmemberdb,%q0))]
[switch(
	%q2,
	n,
		[setq(8,iter(%q9,name(##)))]
		[setq(7,munge(gm_sort_alpha,%q8,%q9))]
		[u(gm_prettyprint_last,extract(%q7,1,%q1),d)],
	l,
		[setq(8,iter(%q9,convtime(get(##/last))))]
		[setq(7,munge(gm_isort_int,%q8,%q9))]
		[u(gm_prettyprint_last,extract(%q7,1,%q1),d)],
)]

&do_gmemberdb_last me=$gmemberdb/last: think [setq(0,[u(gm_fun_findenactorsguild,%#)])][setq(1,9999)][setq(2,n)][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_last,extract(%q7,1,%q1),d)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_last,extract(%q7,1,%q1),d)],)]



&do_gmemberdb_last2 me=$gmemberdb/last *: think 
[setq(4,u(gm_fun_parseinput,%0,%#))]
[switch(%q4,
	OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\]
			\[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},
	[setq(0,first(%q4))]
		[setq(2,rest(%q4))]
		[setq(1,first(%q2))]
		[setq(2,last(%q4))]
		[setq(9,u(gm_fun_gmemberdb,%q0))]
		[switch(
			%q2,
			n,
				[setq(8,iter(%q9,name(##)))]
				[setq(7,munge(gm_sort_alpha,%q8,%q9))]
				[u(gm_prettyprint_last,extract(%q7,1,%q1),d)],
			l,
				[setq(8,iter(%q9,convtime(get(##/last))))]
				[setq(7,munge(gm_isort_int,%q8,%q9))]
				[u(gm_prettyprint_last,extract(%q7,1,%q1),d)],
		)]
)]

&do_gmemberdb_last2 me=$gmemberdb/last *: think [setq(4,u(gm_fun_parseinput,%0,%#))][switch(%q4,OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\] \[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},[setq(0,first(%q4))][setq(2,rest(%q4))][setq(1,first(%q2))][setq(2,last(%q4))][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_last,extract(%q7,1,%q1),d)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_last,extract(%q7,1,%q1),d)],)])]



&do_gmemberdb_both me=$gmemberdb/both: think 
[setq(0,[u(gm_fun_findenactorsguild,%#)])]
[setq(1,9999)]
[setq(2,n)]
[setq(9,u(gm_fun_gmemberdb,%q0))]
[switch(
	%q2,
	n,
		[setq(8,iter(%q9,name(##)))]
		[setq(7,munge(gm_sort_alpha,%q8,%q9))]
		[u(gm_prettyprint_both,extract(%q7,1,%q1),d,%q0)],
	l,
		[setq(8,iter(%q9,convtime(get(##/last))))]
		[setq(7,munge(gm_isort_int,%q8,%q9))]
		[u(gm_prettyprint_both,extract(%q7,1,%q1),d,%q0)],
)]

&do_gmemberdb_both me=$gmemberdb/both: think [setq(0,[u(gm_fun_findenactorsguild,%#)])][setq(1,9999)][setq(2,n)][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_both,extract(%q7,1,%q1),d,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_both,extract(%q7,1,%q1),d,%q0)],)]



&do_gmemberdb_both2 me=$gmemberdb/both *: think 
[setq(4,u(gm_fun_parseinput,%0,%#))]
[switch(%q4,
	OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\] 
		\[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},
	[setq(0,first(%q4))]
		[setq(2,rest(%q4))]
		[setq(1,first(%q2))]
		[setq(2,last(%q4))]
		[setq(9,u(gm_fun_gmemberdb,%q0))]
		[switch(
			%q2,
			n,
				[setq(8,iter(%q9,name(##)))]
				[setq(7,munge(gm_sort_alpha,%q8,%q9))]
				[u(gm_prettyprint_both,extract(%q7,1,%q1),d,%q0)],
			l,
				[setq(8,iter(%q9,convtime(get(##/last))))]
				[setq(7,munge(gm_isort_int,%q8,%q9))]
				[u(gm_prettyprint_both,extract(%q7,1,%q1),d,%q0)],
		)]
)]

&do_gmemberdb_both2 me=$gmemberdb/both *: think [setq(4,u(gm_fun_parseinput,%0,%#))][switch(%q4,OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\] \[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},[setq(0,first(%q4))][setq(2,rest(%q4))][setq(1,first(%q2))][setq(2,last(%q4))][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_both,extract(%q7,1,%q1),d,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_both,extract(%q7,1,%q1),d,%q0)],)])]



&do_gmemberdb_long me=$gmemberdb/long: think 
[setq(0,[u(gm_fun_findenactorsguild,%#)])]
[setq(1,9999)]
[setq(2,n)]
[setq(9,u(gm_fun_gmemberdb,%q0))]
[switch(
	%q2,
	n,
		[setq(8,iter(%q9,name(##)))]
		[setq(7,munge(gm_sort_alpha,%q8,%q9))]
		[u(gm_prettyprint_long,extract(%q7,1,%q1),d,%q0)],
	l,
		[setq(8,iter(%q9,convtime(get(##/last))))]
		[setq(7,munge(gm_isort_int,%q8,%q9))]
		[u(gm_prettyprint_long,extract(%q7,1,%q1),d,%q0)],
)]

&do_gmemberdb_long me=$gmemberdb/long: think [setq(0,[u(gm_fun_findenactorsguild,%#)])][setq(1,9999)][setq(2,n)][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_long,extract(%q7,1,%q1),d,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_long,extract(%q7,1,%q1),d,%q0)],)]



&do_gmemberdb_long2 me=$gmemberdb/long *: think 
[setq(4,u(gm_fun_parseinput,%0,%#))]
[switch(%q4,
	OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\]
			\[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},
	[setq(0,first(%q4))]
		[setq(2,rest(%q4))]
		[setq(1,first(%q2))]
		[setq(2,last(%q4))]
		[setq(9,u(gm_fun_gmemberdb,%q0))]
		[switch(
			%q2,
			n,
				[setq(8,iter(%q9,name(##)))]
				[setq(7,munge(gm_sort_alpha,%q8,%q9))]
				[u(gm_prettyprint_long,extract(%q7,1,%q1),d,%q0)],
			l,
				[setq(8,iter(%q9,convtime(get(##/last))))]
				[setq(7,munge(gm_isort_int,%q8,%q9))]
				[u(gm_prettyprint_long,extract(%q7,1,%q1),d,%q0)],
		)]
)]

&do_gmemberdb_long2 me=$gmemberdb/long *: think [setq(4,u(gm_fun_parseinput,%0,%#))][switch(%q4,OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\] \[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},[setq(0,first(%q4))][setq(2,rest(%q4))][setq(1,first(%q2))][setq(2,last(%q4))][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_long,extract(%q7,1,%q1),d,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_long,extract(%q7,1,%q1),d,%q0)],)])]




/* gmember */

&do_gmember me=$gmember: think 
[setq(0,u(gm_fun_findenactorsguild,%#))]
[sort(iter(u(gm_fun_gmemberdb,%q0),name(##)))]

&do_gmember me=$gmember: think [setq(0,u(gm_fun_findenactorsguild,%#))][sort(iter(u(gm_fun_gmemberdb,%q0),name(##)))]



&do_gmember2 me=$gmember *: think 
[setq(4,u(gm_fun_parseinput,%0,%#))]
[switch(%q4,
	OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\]
			\[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},
	[setq(0,first(%q4))]
		[setq(2,rest(%q4))]
		[setq(1,first(%q2))]
		[setq(2,last(%q4))]
		[setq(9,u(gm_fun_gmemberdb,%q0))]
		[switch(
			%q2,
			n,
				[setq(8,iter(%q9,name(##)))]
				[iter(
					sort(iter(%q9,name(##))),
					[if(lt(#@,add(%q1,1)),##)]
				)],
			l,
				[setq(8,iter(%q9,convtime(get(##/last))))]
				[iter(
					munge(gm_isort_int,%q8,%q9),
					[if(lt(#@,add(%q1,1)),name(##))]
				)],
		)]
)]

&do_gmember2 me=$gmember *: think [setq(4,u(gm_fun_parseinput,%0,%#))][switch(%q4,OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\] \[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},[setq(0,first(%q4))][setq(2,rest(%q4))][setq(1,first(%q2))][setq(2,last(%q4))][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][iter(sort(iter(%q9,name(##))),[if(lt(#@,add(%q1,1)),##)])],l,[setq(8,iter(%q9,convtime(get(##/last))))][iter(munge(gm_isort_int,%q8,%q9),[if(lt(#@,add(%q1,1)),name(##))])],)])]



&do_gmember_title me=$gmember/title: think 
[setq(0,[u(gm_fun_findenactorsguild,%#)])]
[setq(1,9999)]
[setq(2,n)]
[setq(9,u(gm_fun_gmemberdb,%q0))]
[switch(
	%q2,
	n,
		[setq(8,iter(%q9,name(##)))]
		[setq(7,munge(gm_sort_alpha,%q8,%q9))]
		[u(gm_prettyprint_title,extract(%q7,1,%q1),n,%q0)],
	l,
		[setq(8,iter(%q9,convtime(get(##/last))))]
		[setq(7,munge(gm_isort_int,%q8,%q9))]
		[u(gm_prettyprint_title,extract(%q7,1,%q1),n,%q0)],
)]

&do_gmember_title me=$gmember/title: think [setq(0,[u(gm_fun_findenactorsguild,%#)])][setq(1,9999)][setq(2,n)][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_title,extract(%q7,1,%q1),n,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_title,extract(%q7,1,%q1),n,%q0)],)]



&do_gmember_title2 me=$gmember/title *: think 
[setq(4,u(gm_fun_parseinput,%0,%#))]
[switch(%q4,
	OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\]
			\[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},
	[setq(0,first(%q4))]
		[setq(2,rest(%q4))]
		[setq(1,first(%q2))]
		[setq(2,last(%q4))]
		[setq(9,u(gm_fun_gmemberdb,%q0))]
		[switch(
			%q2,
			n,
				[setq(8,iter(%q9,name(##)))]
				[setq(7,munge(gm_sort_alpha,%q8,%q9))]
				[u(gm_prettyprint_title,extract(%q7,1,%q1),n,%q0)],
			l,
				[setq(8,iter(%q9,convtime(get(##/last))))]
				[setq(7,munge(gm_isort_int,%q8,%q9))]
				[u(gm_prettyprint_title,extract(%q7,1,%q1),n,%q0)],
		)]
)]

&do_gmember_title2 me=$gmember/title *: think [setq(4,u(gm_fun_parseinput,%0,%#))][switch(%q4,OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\] \[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},[setq(0,first(%q4))][setq(2,rest(%q4))][setq(1,first(%q2))][setq(2,last(%q4))][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_title,extract(%q7,1,%q1),n,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_title,extract(%q7,1,%q1),n,%q0)],)])]



&do_gmember_last me=$gmember/last: think 
[setq(0,[u(gm_fun_findenactorsguild,%#)])]
[setq(1,9999)]
[setq(2,n)]
[setq(9,u(gm_fun_gmemberdb,%q0))]
[switch(
	%q2,
	n,
		[setq(8,iter(%q9,name(##)))]
		[setq(7,munge(gm_sort_alpha,%q8,%q9))]
		[u(gm_prettyprint_last,extract(%q7,1,%q1),n)],
	l,
		[setq(8,iter(%q9,convtime(get(##/last))))]
		[setq(7,munge(gm_isort_int,%q8,%q9))]
		[u(gm_prettyprint_last,extract(%q7,1,%q1),n)],
)]

&do_gmember_last me=$gmember/last: think [setq(0,[u(gm_fun_findenactorsguild,%#)])][setq(1,9999)][setq(2,n)][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_last,extract(%q7,1,%q1),n)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_last,extract(%q7,1,%q1),n)],)]



&do_gmember_last2 me=$gmember/last *: think 
[setq(4,u(gm_fun_parseinput,%0,%#))]
[switch(%q4,
	OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\]
			\[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},
	[setq(0,first(%q4))]
		[setq(2,rest(%q4))]
		[setq(1,first(%q2))]
		[setq(2,last(%q4))]
		[setq(9,u(gm_fun_gmemberdb,%q0))]
		[switch(
			%q2,
			n,
				[setq(8,iter(%q9,name(##)))]
				[setq(7,munge(gm_sort_alpha,%q8,%q9))]
				[u(gm_prettyprint_last,extract(%q7,1,%q1),n)],
			l,
				[setq(8,iter(%q9,convtime(get(##/last))))]
				[setq(7,munge(gm_isort_int,%q8,%q9))]
				[u(gm_prettyprint_last,extract(%q7,1,%q1),n)],
		)]
)]

&do_gmember_last2 me=$gmember/last *: think [setq(4,u(gm_fun_parseinput,%0,%#))][switch(%q4,OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\] \[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},[setq(0,first(%q4))][setq(2,rest(%q4))][setq(1,first(%q2))][setq(2,last(%q4))][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_last,extract(%q7,1,%q1),n)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_last,extract(%q7,1,%q1),n)],)])]



&do_gmember_both me=$gmember/both: think 
[setq(0,[u(gm_fun_findenactorsguild,%#)])]
[setq(1,9999)]
[setq(2,n)]
[setq(9,u(gm_fun_gmemberdb,%q0))]
[switch(
	%q2,
	n,
		[setq(8,iter(%q9,name(##)))]
		[setq(7,munge(gm_sort_alpha,%q8,%q9))]
		[u(gm_prettyprint_both,extract(%q7,1,%q1),n,%q0)],
	l,
		[setq(8,iter(%q9,convtime(get(##/last))))]
		[setq(7,munge(gm_isort_int,%q8,%q9))]
		[u(gm_prettyprint_both,extract(%q7,1,%q1),n,%q0)],
)]

&do_gmember_both me=$gmember/both: think [setq(0,[u(gm_fun_findenactorsguild,%#)])][setq(1,9999)][setq(2,n)][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_both,extract(%q7,1,%q1),n,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_both,extract(%q7,1,%q1),n,%q0)],)]



&do_gmember_both2 me=$gmember/both *: think 
[setq(4,u(gm_fun_parseinput,%0,%#))]
[switch(%q4,
	OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\]
			\[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},
	[setq(0,first(%q4))]
		[setq(2,rest(%q4))]
		[setq(1,first(%q2))]
		[setq(2,last(%q4))]
		[setq(9,u(gm_fun_gmemberdb,%q0))]
		[switch(
			%q2,
			n,
				[setq(8,iter(%q9,name(##)))]
				[setq(7,munge(gm_sort_alpha,%q8,%q9))]
				[u(gm_prettyprint_both,extract(%q7,1,%q1),n,%q0)],
			l,
				[setq(8,iter(%q9,convtime(get(##/last))))]
				[setq(7,munge(gm_isort_int,%q8,%q9))]
				[u(gm_prettyprint_both,extract(%q7,1,%q1),n,%q0)],
		)]
)]

&do_gmember_both2 me=$gmember/both *: think [setq(4,u(gm_fun_parseinput,%0,%#))][switch(%q4,OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\] \[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},[setq(0,first(%q4))][setq(2,rest(%q4))][setq(1,first(%q2))][setq(2,last(%q4))][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_both,extract(%q7,1,%q1),n,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_both,extract(%q7,1,%q1),n,%q0)],)])]



&do_gmember_long me=$gmember/long: think 
[setq(0,[u(gm_fun_findenactorsguild,%#)])]
[setq(1,9999)]
[setq(2,n)]
[setq(9,u(gm_fun_gmemberdb,%q0))]
[switch(
	%q2,
	n,
		[setq(8,iter(%q9,name(##)))]
		[setq(7,munge(gm_sort_alpha,%q8,%q9))]
		[u(gm_prettyprint_long,extract(%q7,1,%q1),n,%q0)],
	l,
		[setq(8,iter(%q9,convtime(get(##/last))))]
		[setq(7,munge(gm_isort_int,%q8,%q9))]
		[u(gm_prettyprint_long,extract(%q7,1,%q1),n,%q0)],
)]

&do_gmember_long me=$gmember/long: think [setq(0,[u(gm_fun_findenactorsguild,%#)])][setq(1,9999)][setq(2,n)][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_long,extract(%q7,1,%q1),n,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_long,extract(%q7,1,%q1),n,%q0)],)]



&do_gmember_long2 me=$gmember/long *: think 
[setq(4,u(gm_fun_parseinput,%0,%#))]
[switch(%q4,
	[switch(
			member(lcstr(v(gm_data_gnames)),lcstr(%0)),
	[setq(0,first(%q4))]
		[setq(2,rest(%q4))]
		[setq(1,first(%q2))]
		[setq(2,last(%q4))]
		[setq(9,u(gm_fun_gmemberdb,%q0))]
		[switch(
			%q2,
			n,
				[setq(8,iter(%q9,name(##)))]
				[setq(7,munge(gm_sort_alpha,%q8,%q9))]
				[u(gm_prettyprint_long,extract(%q7,1,%q1),n,%q0)],
			l,
				[setq(8,iter(%q9,convtime(get(##/last))))]
				[setq(7,munge(gm_isort_int,%q8,%q9))]
				[u(gm_prettyprint_long,extract(%q7,1,%q1),n,%q0)],
		)]
)]

&do_gmember_long2 me=$gmember/long *: think [setq(4,u(gm_fun_parseinput,%0,%#))][switch(%q4,OOPS,{Um\, there's smth. weird with your input!%rTry gmember\[db\]\[/title|/last|/both|/long\] \[guild\] \[count\] \[l|n\]%rWhere <guild> is one of: [v(gm_data_gnames)]},[setq(0,first(%q4))][setq(2,rest(%q4))][setq(1,first(%q2))][setq(2,last(%q4))][setq(9,u(gm_fun_gmemberdb,%q0))][switch(%q2,n,[setq(8,iter(%q9,name(##)))][setq(7,munge(gm_sort_alpha,%q8,%q9))][u(gm_prettyprint_long,extract(%q7,1,%q1),n,%q0)],l,[setq(8,iter(%q9,convtime(get(##/last))))][setq(7,munge(gm_isort_int,%q8,%q9))][u(gm_prettyprint_long,extract(%q7,1,%q1),n,%q0)],)])]



&do_gmember_count me=$gmember/count:think 
[setq(0,[u(gm_fun_findenactorsguild,%#)])]
Members in the [capstr(%q0)] guild: [words(u(gm_fun_gmemberdb,%q0))]

&do_gmember_count me=$gmember/count:think [setq(0,[u(gm_fun_findenactorsguild,%#)])]Members in the [capstr(%q0)] guild: [words(u(gm_fun_gmemberdb,%q0))]



&do_gmember_count2 me=$gmember/count *:think 
[switch(
	words(%0),
	1,[if(gt(member(lcstr(v(gm_data_gnames)),lcstr(%0)),0),
		Members in the [capstr(%0)] guild: [words(u(gm_fun_gmemberdb,%0))]
		,
		{Um\, there's smth. weird with your input!%rTry gmember/count \[guild\]
			%rWhere <guild> is one of: [v(gm_data_gnames)]}
	)],
	{Um\, there's smth. weird with your input!%rTry gmember/count \[guild\]
			%rWhere <guild> is one of: [v(gm_data_gnames)]}
)]

&do_gmember_count2 me=$gmember/count *:think [switch(words(%0),1,[if(gt(member(lcstr(v(gm_data_gnames)),lcstr(%0)),0),Members in the [capstr(%0)] guild: [words(u(gm_fun_gmemberdb,%0))],{Um\, there's smth. weird with your input!%rTry gmember/count \[guild\]%rWhere <guild> is one of: [v(gm_data_gnames)]})],{Um\, there's smth. weird with your input!%rTry gmember/count \[guild\]%rWhere <guild> is one of: [v(gm_data_gnames)]})]