The Clan Lord Sentinel

Code: Select all

setglobal groupdispatchc 0
setglobal groupkillc 0
setglobal groupslaughterc 0
setglobal groupvanquishc 0
setglobal solodispatchc 0
setglobal solokillc 0
setglobal soloslaughterc 0
setglobal solovanquishc 0
setglobal totaldispatchc 0
setglobal totalkillc 0
setglobal totalslaughterc 0
setglobal totalvanquishc 0
setglobal counting 0


"/count"
	{
		call counter
	}

"\count"
	{
		call counter
	}

"/countdata"
	{
		call counterdata
	}

"\countdata"
	{
		call counterdata
	}

"/countreset"
	{
		call countreset
	}

"\countreset"
	{
		call countreset
	}

counter
	{
		if counting == 0
			setglobal counting 1
			message "* Now counting kills, slaughters, dispatches and vanquishes."
			goto count
		else counting == 1
			setglobal counting 0
			message "* Stopped counting."
			goto end
		end if

		 label count 
          if counting != 0 
               set msg @env.textLog 
               if msg.word[0] >= "You" 
                    if msg.word[1] >= "helped" 
                         call group 
                    else if msg.word[1] != "helped" 
                         call solo 
                    end if 
                    pause 1 
                    goto count 
               else 
                    pause 1 
                    goto count 
               end if 
          end if



		label end
	}

group
	{
		if msg.word[2] >= "dispatch"
			setglobal totaldispatchc + 1
			setglobal groupdispatchc + 1
			message "Dispatches: " totaldispatchc ""
		else if msg.word[2] >= "kill"
			setglobal totalkillc + 1
			setglobal groupkillc + 1
			message "Kills: " totalkillc ""	
		else if msg.word[2] >= "vanquish"
			setglobal totalvanquishc + 1
			setglobal groupvanquishc + 1
			message "Vanquishes: " totalvanquishc ""
		else if msg.word[2] >= "slaughter"
			setglobal totalslaughterc + 1
			setglobal groupslaughterc + 1
			message "Slaughters: " totalslaughterc ""
		end if
	}

solo
	{
		if msg.word[1] >= "dispatched"
			setglobal totaldispatchc + 1
			setglobal solodispatchc + 1
			message "Dispatches: " totaldispatchc ""
		else if msg.word[1] >= "killed"
			setglobal totalkillc + 1
			setglobal solokillc + 1
			message "Kills: " totalkillc ""	
		else if msg.word[1] >= "vanquished"
			setglobal totalvanquishc + 1
			setglobal solovanquishc + 1
			message "Vanquishes: " totalvanquishc ""
		else if msg.word[1] >= "slaughtered"
			setglobal totalslaughterc + 1
			setglobal soloslaughterc + 1
			message "Slaughters: " totalslaughterc ""
		end if
	}

counterdata
   {
      message "Counted:"
      message "Slaughters:	" soloslaughterc "" groupslaughterc "" totalslaughterc ""
      message "Dispatches:	" solodispatchc "" groupdispatchc "" totaldispatchc ""
      message "kills:	          " solokillc "" groupkillc "" totalkillc ""
      message "Vanquishes:	" solovanquishc "" groupvanquishc "" totalvanquishc ""
   }

countreset
{
message "*Resetting countdata."
setglobal groupdispatchc 0
setglobal groupkillc 0
setglobal groupslaughterc 0
setglobal groupvanquishc 0
setglobal solodispatchc 0
setglobal solokillc 0
setglobal soloslaughterc 0
setglobal solovanquishc 0
setglobal totaldispatchc 0
setglobal totalkillc 0
setglobal totalslaughterc 0
setglobal totalvanquishc 0
}