Disconnect
Connect
SetVar $version "1.02"
SetVar $ModDate "05-19-2011"
SetVar  $Find_FirstRun "1"
SetVar $File (GAMENAME &"_No_PW.txt")
#SaveVar  $Find_FirstRun
SetEventTrigger dropped :lost "Connect cancelled"
SetDelayTrigger holdin :lost 99850
SetEventTrigger lostconnection :lost "Connection lost"
SetTextTrigger onlyone :onlyone "Only one connection is allowed"
SetTextTrigger Conx :Conx "Please enter your name"
Pause
:Conx
Send "test*#"
SetTextLineTrigger rotate :rotate "Node"
Pause
:Top
KillAllTriggers
SetTextLineTrigger rotate :rotate "Node"
SetTextTrigger out :out "Selection (? for menu)"
Pause
:rotate
GetWord CURRENTLINE $Mode 3
IF ($Mode = "Game")
Add $i 1
GetWordPos CURRENTLINE $where ": "
GetText CURRENTLINE $Game "Game " " :"
CutText CURRENTLINE $Name ($where + 1) 99
SetVar $Game[$i] $Game
GetWord $Name $Name1 1
GetWord $Name $Name2 2
GetWord $Name $Name3 3
GetWord $Name $Name4 4
GetWord $Name $Name5 5
GetWord $Name $Name6 6
GetWord $Name $Name7 7
        IF ($Name7 = 1)
        SetVar $Name ($Name1 &" "& $Name2 &" "& $Name3 &" "& $Name4 &" "& $Name5 &" "& $Name6 &" "& $Name7)
        ElseIF ($Name6 <> 0)
        SetVar $Name ($Name1 &" "& $Name2 &" "& $Name3 &" "& $Name4 &" "& $Name5 &" "& $Name6)
        ElseIF ($Name5 <> 0)
        SetVar $Name ($Name1 &" "& $Name2 &" "& $Name3 &" "& $Name4 &" "& $Name5)
        ElseIF ($Name4 <> 0)
        SetVar $Name ($Name1 &" "& $Name2 &" "& $Name3 &" "& $Name4)
        ElseIF ($Name3 <> 0)
        SetVar $Name ($Name1 &" "& $Name2 &" "& $Name3)
        ElseIF ($Name2 <> 0)
        SetVar $Name ($Name1 &" "& $Name2)
        ElseIF ($Name1 <> 0)
        SetVar $Name $Name1
        End
SetVar $ID[$i] $Name
ElseIF ($Mode = "Menu")
End
SetVar $Counter $i
Goto :Top
:Out
KillAllTriggers
#Echo "**" ANSI_14 "Out*"& $Counter &"*"
#SetVar $t "1"
#While ($t <= $Counter)
#Echo "*"& $Game[$t] &" "& $ID[$t] &"*"
#Add $t 1
#End
SetDelayTrigger Deco :Deco 2000
Pause

:Deco
Add $x "1"
IF ($x > $Counter)
Disconnect
Sound failed.wav
Halt
End
Disconnect
Connect
WaitOn "Please enter your name"
Send $ID[$x] &"*"
WaitOn "Selection (? for menu)"
Send $Game[$x]
WaitOn "[Pause]"
Send "*t***"
WaitOn "Password?"
KillAllTriggers
SetTextTrigger in :in "p)?"
SetTextLineTrigger not :Deco "Invalid password."
Send "***"
Pause

:in
KillAllTriggers
Write $File $ID[$x] &" in game "& $Game[$x]
# Add extra code here to
# change password for them ?
Goto :Deco