#alias gadd={#($-40=\$-40+" "+\$1);#print ("Name "+\$1+" added.")}
#alias gcheck={#(@-40=0);#($-41=\$1);gremsub1;#if (\@-40!=0) #print ("Ok. "+\$-41+" is a member."); #else #print ("Member not found.")}
#alias gclean={#($-40="");#print ("Memberslist cleaned. No members now.")}
#alias ghelp={#print;#print ("Quick-Docs for GTell by Dorien (christian@glunet.se)");#print ("Syntaxes:");#print ("gadd <name> - to add a member, gcheck <name> - to check if <name> is a member,");#print ("gclean - to clean the members list, glist - to list current members,");#print ("glistv - same as glist but another format, grem <name> - to remove a member");#print ("gtell <string> - the <string> you wish to tell all your members");#print ("grep - tell the current group to all members");#print;#print ("(Ps. Arion will prob kill me for this)");#print}
#alias glist=#print ("Members:"+($-40))
#alias glistv={#print ("Members:");#for (\@1=1; \@1<=(:?$-40); \@1++) #print (\$-40:\@1)}
#alias grem={#(@-40=0);#($-41=\$1);gremsub1;#if (\@-40!=0) {#print ("Ok. Member "+\$-41+" removed.");gremsub2;#($-40=\$-42)}; #else #print ("Member not found.")}
#alias gremsub1={#for (\@1=1; \@1<=(:?$-40); \@1++) #if (\$-40:\@1==\$-41) #(@-40=\@1)}
#alias gremsub2={#($-42="");#for (\@1=1; \@1<=(:?$-40); \@1++) #if (\$-40:\@1!=\$-41) #($-42=\$-42+" "+(\$-40:\@1))}
#alias grep={#($-42=\$0);#for (\@1=1; \@1<=(:?$-40); \@1++) #send ("tell "+(\$-40:\@1)+" GROUP: Current members:"+(\$-40))}
#alias gtell={#($-42=\$0);#for (\@1=1; \@1<=(:?$-40); \@1++) #send ("tell "+(\$-40:\@1)+" GROUP: "+\$-42)}
#alias gxinfo={#print ("$-40=member string : $-41=member name");#print ("$-42 = Member string temp : @-40 = Found Flag/Number")}