#("=====> RIDING, GROUPS, FOLLOWERS ")
#al buffer={#var $tank=$1;#print ("%% "+attr "yellow"+Tank set to: "+attr "bold red"+$tank)+noattr};
#al tank={#var $tank=$1;#print ("%% "+attr "yellow"+"Tank set to: "+attr "bold red"+$tank+noattr)};
#al leader={#var $leader=$1;#var $tank=$1;#print ("%% "+attr "yellow"+"Leader set to: "+attr "bold red"+$leader+noattr);#print ("%% "+attr "yellow"+"Tank set to: "+attr "bold red"+$tank+noattr)};
#al grou={#var $group=$0;#print ("%% "+attr "yellow"+"group set to: "+attr "red"+$group+noattr)};

#mar is now a group member.=bold yellow
#mar ACK!&=bold red
#mark & raises $ hand.=bold white


#("====> AUTOGROUPING (RAISE) ----------------------------------------------------")
#var $swag=off
#ac >-autogroup &1 raises &2 hand.={group $1;#print}
#ac >-autogroup1 &1 is a group leader!={#print;tell $1 $1, you are in another group. Please DISBAND and RAISE again.}
#ac >-autogroup2 &1 is in another group already.={#print;tell $1 $1, you are in another group. Please DISBAND and RAISE again.}
#al ag+={#ac +autogroup;#ac +autogroup1;#ac +autogroup2;#var $swag=ON;#print ("%% "+attr "yellow"+"autogroup: "+attr "bold red"+"ON"+noattr)}
#al ag-={#ac -autogroup;#ac -autogroup1;#ac -autogroup2;#var $swag=off;#print ("%% "+attr "yellow"+"autogroup: "+attr "bold red"+"OFF"+noattr)}


#("=====> $GRP-VARIABLE ACTIONS/MARK/ASSIST --------------------------------------")
#("=====> MARK GROUP MEMEBERS ")
#al mg={#ac +mg;#var $grp= ;group;#in markgrp (1000) #ac -mg}
#ac >-mg ^     $1={#if (("$1"?" "==0) && ("$1"!="A") && ("$1"!=($chnam))) {#mar $1 =bold cyan;#var $grp=("$1"+" "+$grp)}}


#("=====> GROUP TELL")
#al gt={#var $txt=$0;#for (\@1=1; $grp:\@1!=""; \@1++) #send ("tell "+($grp:\@1)+" GROUPTELL: "+($txt))}
#al tg={#var $txt=$0;#for (\@1=1; $grp:\@1!=""; \@1++) #send ("tell "+($grp:\@1)+" GROUPTELL: "+($txt))}

#("=====> RE-SET VARIABLE TRIGGERS")
#var $swmg=ON
#ac >+grp0 ^Your group consists of:={}
#ac >+grp1 ^&1 has been kicked out of the group!={#print;#if ("$1"?"*"==0) mg}
#ac >+grp2 ^&1 has left the group!={#print;#if ("$1"?"*"==0) mg}
#ac >+grp3 ^&1 is now a group member.={#print;#if ("$1"?"*"==0) mg}
#ac >+grp4 ^Group disbanded.={#print;#if ("$1"?"*"==0) mg}
#ac >+grp5 ^&1 disbands $2 group.={#print;#if ("$1"?"*"==0) mg}
#ac >+grp6 ^You are now a member of &2 group.={#print;#if ("$1"?"*"==0) mg}
#ac >+grp7 ^You leave the group.={#print;#if ("$1"?"*"==0) mg}

#("=====> (DE-)ACTIVATE ALL THAT")
#al mg-={#print ("%% group-marking set to: off");#var $swmg=off;#ac -grp0;#ac -grp1;#ac -grp2;#ac -grp3;#ac -grp4;#ac -grp5;#ac -grp6;#ac -grp7}
#al mg+={#print ("%% group-marking set to: ON");#var $swmg=ON;#ac +grp0;#ac +grp1;#ac +grp2;#ac +grp3;#ac +grp4;#ac +grp5;#ac +grp6;#ac +grp7;mg}

#("=====> ASSISTING GROUP")
#al aa={at;#for (\@1=1; $grp:\@1!=""; \@1++) #if ($grp:\@1!=$tank) #send ("assist "+($grp:\@1))}
#al at=#if ($tank!="") #send ("assist "+$tank)
#al ass=aa