SRL Archive - Test corner

hey guys… i was wondering why this is not working well…

//***********************************************************************\\
//********************************A.A.2P.********************************\\
//***********************************************************************\\
// Created By: Aztek                                                     \\
// Script Version: Beta 1.0                                              \\
// Useage: Alch on two names at the same time                            \\
//    ~Directions~                                                       \\
//      1. Log on to both names                                          \\
//      2. Put items you want alched under the alch button (high or low) \\
//      3. Make sure both Game Windows are in the same spot(same x,y)    \\
//      4. Fill Out Setup                                                \\
//      5. Hit Start                                                     \\
//   *SRL Version: 3.6*                                                  \\
// *** Report Bugs> (SRL Forums> pm "Aztek") & (aztekstools@hotmail.com) \\
//***********************************************************************\\
//********************************A.A.2P.********************************\\
//***********************************************************************\\

Program AztekAlch2P;
{.include SRL\SRL.scar}

Var
 AlchP1, AlchP2: integer;
  
Const
 AlchTypeP1 = 'high'; //Player 1: "high" for high alch, "low" for low alch
 AlchTypeP2 = 'high'; //Player 2: "high" for high alch, "low" for low alch
 TimesP1    = 1000; //Times to alch specified for player 1
 TimesP2    = 1000; //Times to alch specified for player 2
 XCoordW1   = 110; //X coordinate of (minimized) window 1
 YCoordW1   = 700; //Y coordinate of (minimized) window 1

//********************************A.A.2P.********************************\\

Procedure SwitchToP2;
Var
 Sex, Sey: integer;
Begin
 Sex:= (XCoordW1);
 Sey:= (YCoordW1);
   Mouse(Sex, Sey, 0, 0, True);
    Wait(100 + Random(200));
      Sex:= (Sex + 150);
      Sey:= (Sey + 0);
       Mouse(Sex, Sey, 0, 0, True);
        Wait(500 + Random(200));
End;

//********************************A.A.2P.********************************\\

Procedure SwitchToP1;
Var
 Sexx, Seyy: integer;
Begin
 Sexx:= (XCoordW1 + 150);
 Seyy:= (YCoordW1 + 0);
   Mouse(Sexx, Seyy, 0, 0, True);
    Wait(100 + Random(200));
      Sexx:= (XCoordW1);
      Seyy:= (YCoordW1);
       Mouse(Sexx, Seyy, 0, 0, True);
        Wait(500 + Random(200));
End;

//********************************A.A.2P.********************************\\

Procedure HAlchThisNegro;
Begin
 Wait(100 + Random(100));
 MouseBox(700, 320, 715, 330, 3);
   Wait(500 + Random(300));
   Mouse(x, y, 0, 0, true);
    Wait(100 + Random(100));
End;

//********************************A.A.2P.********************************\\

Procedure LAlchThisNegro;
Begin
 Wait(100 + Random(100));
 MouseBox(715, 255, 700, 245, 3);
   Wait(500 + Random(300));
   Mouse(x, y, 0, 0, true);
    Wait(100 + Random(100));
End;

//********************************A.A.2P.********************************\\

Begin
 SetupSRL;
 ClearDebug;
 Writeln('Thanks For Using Azteks Auto-Alcher For 2 Players!!!');
 AlchP1:= 0;
 AlchP2:= 0;
 SwitchToP2;
 SwitchToP1;

  If (AlchTypeP1 = 'high') Then
   Begin
    HAlchThisNegro;
    AlchP1:= AlchP1 + 1;
   End;
  If (AlchTypeP2 = 'high') Then
   Begin
    SwitchToP2;
    HAlchThisNegro;
    AlchP2:= AlchP2 + 1;
   End;
     If (AlchTypeP1 = 'low') Then
   Begin
    SwitchToP1;
    LAlchThisNegro;
    AlchP1:= AlchP1 + 1;
   End;
     If (AlchTypeP2 = 'high') Then
   Begin
    SwitchToP2;
    HAlchThisNegro;
    AlchP2:= AlchP2 + 1;
   End;

 Repeat
  If (AlchTypeP1 = 'high') Then
   Begin
    SwitchToP1;
    HAlchThisNegro;
    AlchP1:= AlchP1 + 1;
   End;
  If (AlchTypeP2 = 'high') Then
   Begin
    SwitchToP2;
    HAlchThisNegro;
    AlchP2:= AlchP2 + 1;
   End;
     If (AlchTypeP1 = 'low') Then
   Begin
    SwitchToP1;
    LAlchThisNegro;
    AlchP1:= AlchP1 + 1;
   End;
     If (AlchTypeP2 = 'high') Then
   Begin
    SwitchToP2;
    HAlchThisNegro;
    AlchP2:= AlchP2 + 1;
   End;

 Until
 (AlchP2 >= TimesP2) or (AlchP1 >= TimesP1)
end.

If you can get that to run please re-post or give me the reason why.. thx

Much appreciated
~Aztek

lol can't help you with your script…but i LOVE you movie!!!!!!!!!!!!!!!:spot: :spot: :spot: :spot: :spot: i give it 5/5 dancing spots

lol yeaa… umm… did i make that.. lol

anyways.. i dont know why the script isnt working.. lol it has perfect coding.. and it just looks so clean and sheeeet… im depressed.

oh…then why ur sig say "created by : me"? good luck with ur script looks like really nice 1 if u get it workin

offtopic.. yes i did make it, but it was a lnog time ago and its kinda gotten embarassing lol

anyway… does anybody know how to make it work…?

~Aztek