// squadl_remove_sq - remove player from any squad
#include "color_header"

void main()
{
   object oTarget=GetLocalObject(GetPCSpeaker(),"oTarget");
   string sID=GetLocalString(oTarget,"sTeamID");
   object oMod=GetModule();
   int nNum=GetLocalInt(oTarget,"nSquadNum");
   string sMsg;
   object oSQL=GetLocalObject(oMod,"oSquadLead"+sID+IntToString(nNum));
   if (oSQL==oTarget)
   { // cannot use on a squad leader
     SendMessageToPC(GetPCSpeaker(),"You cannot remove a squad leader from a squad that way.");
   } // cannot use on a squad leader
   else
   { // remove from squad
     sMsg="You have been removed from the squad lead by '"+GetName(oSQL)+"' by your leader.";
     sMsg=ColorRGBString(sMsg,0,4,1);
     SendMessageToPC(oTarget,sMsg);
     DeleteLocalInt(oTarget,"nSquadNum");
     sMsg=GetName(oTarget)+" has removed from your squad by the leader.";
     sMsg=ColorRGBString(sMsg,0,4,1);
     if (GetIsObjectValid(oSQL)) SendMessageToPC(oSQL,sMsg);
     sMsg="You have removed "+GetName(oTarget)+" from "+GetName(oSQL)+"'s squad.";
     sMsg=ColorRGBString(sMsg,0,4,1);
     SendMessageToPC(GetPCSpeaker(),sMsg);
   } // remove from s

}