#Death Counter 1.0 alpha
#T0yman
delete "death_counter.txt"
setvar $i 1
setvar $k 1

echo "Game Letter:"
getconsoleinput $letter singlekey
connect
waitfor "Please enter your name"
send LOGINNAME "*"
waitfor "Enter admin password:"
send PASSWORD "*"
waitfor "Selection"
send "e"
waitfor "Select game"
send $letter
waitfor "Trade Wars 2002"
send "g"
waitfor "Max # of players:"
getword CURRENTLINE $max 5
waitfor "General Editor One:"
send "q"
striptext $max ","
send "u"
waitfor "User ID:"
send "1 *"
:reset
settextlinetrigger Observer :observer "Observer"
settextlinetrigger Name :name "<A> Name"
settextlinetrigger NoPlay :observer "Initialize Player"
pause

:observer
killalltriggers
waitfor "(X=Exit)"
send ">"
gosub :count
goto :reset

:name
killalltriggers
waitfor "<B>"
cuttext CURRENTLINE $name[$k]  22 40
waitfor "<M>"
getword CURRENTLINE $chk[$k] 6
if ($chk[$k] = "0")
	write "death_counter.txt" $name[$k] & " - None"
else
	write "death_counter.txt" $name[$k] & " - " & $chk[$k]
end
add $k 1
gosub :count
send ">"
goto :reset

:count
if ($i <= $max)
	add $i 1
else
	send "x q"
	waitfor "Selection"
	send "q"
	halt
end
return