Procedure Login;
Begin
 If(Not(Username='No Relog'))Then
  Begin
   If(Not(Relog_Phase='1'))Then
    Begin
     Relog_Phase:='1';
    End;
   If(Relog_Phase='1')Then
   Begin
   Repeat
   Repeat
   SClick(113, 361);
   ClearDebug;
   Writeln('Pressing "Play Game"...');
   Sleep(1000);
   If(GetColor(374, 314)=10079232)Then
   Begin
   SClick(374, 314);
   ClearDebug;
   Writeln('Message Box Found!');
   Sleep(1000);
   End;
   Until(GetColor(411, 323)=255);
   ClearDebug;
   Writeln('Typing Username: '+Username);
   WriteStr(Username, 0);
   Sleep(100);
   KeyPress(9, 350);
   Sleep(100);
   ClearDebug;
   Writeln('Typing Password: *******');
   WriteStr(Password, 0);
   Sleep(100);
   KeyPress(13, 350);
   Sleep(100);
   If(GetColor(377, 316)=OK)Then
   Begin
    SClick(377, 316);
   End;
   Until(GetColor(405, 149)=55031);
   If(GetColor(405, 149)=55031)Then
   Begin
   Relog_Phase:='2';
   End;
   End;
  If(Relog_Phase='2')Then
   Begin
    If(GetColor(405, 149)=55031)Then
     Begin
      If(Character<1)or
      (Character>3)Then
       Begin
        Writeln('Error: Character Number Not Valid');
        TerminateScript;
       End;
      If(Character=1)Then
       Begin
        Repeat
         KeyPress(49, 350);
        Until(GetColor(530, 371)=15159832);
        ClearDebug;
        Writeln('Logging In To Character One!');
       End;
      If(Character=2)Then
       Begin
        Repeat
         KeyPress(50, 350);
        Until(GetColor(530, 371)=15159832);
        ClearDebug;
        Writeln('Logging In To Character Two!');
       End;
      If(Character=3)Then
       Begin
        Repeat
         KeyPress(51, 350);
        Until(GetColor(530, 371)=15159832);
        ClearDebug;
        Writeln('Logging In To Character Three!');
       End;
      Repeat
       Sleep(100);
      Until(GetColor(36, 397)=RelogLock);
      ClearDebug;
      Writeln('You Are Now Logged In!');
     End
    Else
     Begin
      Repeat
       Sleep(100);
      Until(GetColor(405, 149)=55031);
     End;
   End;
  End;
End;