can someone please help me with the execution of scar

hello,
i downloaded all the necessary components and now i want to try and run the script published in this thread http://www.sythe.org/showthread.php?t=212824&highlight=alcher but i cant seem to get it going

after i have set up the script i click play then it says "[Error] (15211:1): Unexpected end of file
Failed when compiling"

can anybody here please tell me how i may be able to fix this? your help would be greatly appreciated

 

It compiled just fine. Im useing scar 2.03

make sure you use this exactly (un edited)

Code:

program AmpleAlcher;
{/////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{\\\\\\\\\\\\\\\\\\\\\///////////////////////}
{Title:           Ample Alcher               }
{Version:         1.02                       }
{Author:          WhoCares357                }
{Special Thanks:  God                        }
{Settings:        Very Bright; 32 bit        }
{Recommendation:  Less Crowded Location      }
{SetUp Lines:     19-83                      }
{/////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{\\\\\\\\\\\\\\\\\\\\\///////////////////////}
          {.include SRL\SRL.scar}
{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                   Begin SetUp                  }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
const
  RunD = 's'; //Direction to run from Attacking Random (n, s, w, e)
  FailedChecks = 5; //Amount of times to allow Double Check if Fail
                    //Recommended FailedChecks = 5

procedure DeclarePlayers;
begin
  HowManyPlayers := 6; //Amount of Characters using
  NumberOfPlayers(HowManyPlayers); //Don't touch
  CurrentPlayer := 0; //Player to start with (e. Players[0] = 0

  Players[0].Name := 'Username'; //Username
  Players[0].Pass := 'password'; //Password
  Players[0].Nick := 'ern'; //3-4 small letters of Username
  Players[0].Active := True; //Using Character?
  Players[0].Boolean1 := True; //True=High Alch; False=Low Alch
  Players[0].Boolean2 := True; //True=Fire Staff; False=Fire Runes
  Players[0].Integer1 := 0; //Slot number of item to alch
  Players[0].Integer2 := 0; //Amount to Alch

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := ''; //3-4 small letters of Username
  Players[1].Active := True; //Using Character?
  Players[1].Boolean1 := True; //True=High Alch; False=Low Alch
  Players[1].Boolean2 := True; //True=Fire Staff; False=Fire Runes
  Players[1].Integer1 := 0; //Slot number of item to alch
  Players[1].Integer2 := 0; //Amount to Alch

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := ''; //3-4 small letters of Username
  Players[2].Active := True; //Using Character?
  Players[2].Boolean1 := True; //True=High Alch; False=Low Alch
  Players[2].Boolean2 := True; //True=Fire Staff; False=Fire Runes
  Players[2].Integer1 := 0; //Slot number of item to alch
  Players[2].Integer2 := 0; //Amount to Alch

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := ''; //3-4 small letters of Username
  Players[3].Active := True; //Using Character?
  Players[3].Boolean1 := True; //True=High Alch; False=Low Alch
  Players[3].Boolean2 := True; //True=Fire Staff; False=Fire Runes
  Players[3].Integer1 := 0; //Slot number of item to alch
  Players[3].Integer2 := 0; //Amount to Alch

  Players[4].Name := '';
  Players[4].Pass := '';
  Players[4].Nick := ''; //3-4 small letters of Username
  Players[4].Active := True; //Using Character?
  Players[4].Boolean1 := True; //True=High Alch; False=Low Alch
  Players[4].Boolean2 := True; //True=Fire Staff; False=Fire Runes
  Players[4].Integer1 := 0; //Slot number of item to alch
  Players[4].Integer2 := 0; //Amount to Alch

  Players[5].Name := '';
  Players[5].Pass := '';
  Players[5].Nick := ''; //3-4 small letters of Username
  Players[5].Active := True; //Using Character?
  Players[5].Boolean1 := True; //True=High Alch; False=Low Alch
  Players[5].Boolean2 := True; //True=Fire Staff; False=Fire Runes
  Players[5].Integer1 := 0; //Slot number of item to alch
  Players[5].Integer2 := 0; //Amount to Alch
end;
{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                     End SetUp                  }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                Do Not Touch Below              }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

var
  i, Total, Items, Failed, uxp, txp: Integer;
  slvl, clvl: Integer;
  FirstCheck: Boolean;
  RedBulb, HighAlch, LowAlch: Integer; //DTM
  Nat, Fire: Integer; //Bitmaps

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                   My Signature                 }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

procedure MySig;
begin
  WriteLn('');
  WriteLn('');
  WriteLn('');
  WriteLn('');
  WriteLn('Thanks for Using the Ample Alcher');
  WriteLn('          /\                     ');
  WriteLn('     __  /  \  __   ______       ');
  WriteLn('     \ \/ /\ \/ /  /  ____\      ');
  WriteLn('      \  /  \  /  /  /    *      ');
  WriteLn('       \/    \/   \  \____/|     ');
  WriteLn('       *     *     \_______/     ');
  WriteLn('  Brought to you by WhoCares357  ');
  WriteLn('Visit http://www.zamorak.org/index.php?referrerid=21');
  WriteLn('');
  Wait(1000 + random(300));
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{             Forwarded for Early Use            }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

procedure SwitchNow; forward;
procedure DReport; forward;
function FailedCheck: Boolean; forward;
function Randoms: Boolean; forward;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{           StartUp of First Character           }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

procedure StartUp;
begin
  Wait(200+random(100));
  ClearDebug;
  FirstCheck := true;
  Failed := 0;
  Total := 0;
  uxp := 0;
  txp := 0;
  clvl := 0;
  slvl := 0;
  SetupSRL;
  DeclarePlayers;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  MySig;
  DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
  ActivateClient;
  Wait(200+random(100));
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{              Logs In First Character           }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

procedure LogIn;
begin
  if not LoggedIn then
    LogInPlayer;
  Wait(200+random(500));
  if Players[CurrentPlayer].Integer2 <= 0 then
  begin
    WriteLn('Set the correct alch amount.');
    WriteLn('');
    LogOut;
    SwitchNow;
  end;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                 Load Spell DTMs                }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

procedure LoadDTMs;
begin
  HighAlch := DTMFromString('78DA63E4666060E0674001BFBEF130FC02D28' +
       'C40FC1F081885800C2E0634C08844026990194C04D4B001091E02' +
       '6A9830DD83A106E46661026A448184007E3500757D07B4');

  LowAlch := DTMFromString('78DA63E46760601064400106070D187E01694' +
       '620FE0F048C0240063B031A60442281B43090E027A04608488810' +
       '50C305242408A8610612A204D4B063FA0B430D0761BB00CAA8072' +
       '0');
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{            Looks for Item Bag Tab              }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function FindTabs: Boolean;
begin
  if TabExists(4) then
  begin
    Result := true;
  end else
  begin
    WriteLn('Tab not found.');
    WriteLn('');
    Result := false;
    LogOut;
    SwitchNow;
  end;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{            Find Correct Magic Level            }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function FindLvl: Boolean;
begin
  GameTab(2);
  clvl := GetSkillLevel('Magic');
  slvl := GetSkillLevel('Magic');
  if Players[CurrentPlayer].Boolean1 then
  begin
    if slvl < 55 then
    begin
      Result := false;
      WriteLn('Incorrect Magic Level.');
      WriteLn('');
      LogOut;
      SwitchNow;
    end else
      Result := true;
  end else
  begin
    if slvl < 21 then
    begin
      Result := false;
      WriteLn('Incorrect Magic Level.');
      WriteLn('');
      clvl := GetSkillLevel('Magic');
      LogOut;
      SwitchNow;
    end else
  end;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{              Looks for Nature Rune             }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function FindNat: Boolean;
begin
  Nat := BitmapFromString(29, 2, 'z78DA7DCF410EC330080' +
       '4C02F611CC3EE1170FCFF27D56AA22A55A57258090E6856644F33' +
       '3719CB96C1E0E1EA0DC3D313850EC589034753541BCFA4620F0F0' +
       '48286FC2430512416CE3B938DC249A53E3F84707084D2E9610C32' +
       '2A242425468CB4BD65566AAABC9DF2D0FA6165E5E5DD3BDCA717E' +
       '8CBCFAD69905FEDD582B22BDA2DFFEBFF6A7AF91F2D78B2B3DF7E' +
       'EEDBBCCD8819F372BE0042484CD8');
  Wait(100+random(200));
  GameTab(4);
  if FindBitmapToleranceIn(Nat, x, y, 555, 206, 746, 464, 50) then
  begin
    FreeBitmap(Nat);
    Result := true;
    Wait(100+random(200));
  end else
  begin
    Result := false;
    FreeBitmap(Nat);
    WriteLn('Nature Rune(s) not found.');
    WriteLn('');
    clvl := GetSkillLevel('Magic');
    LogOut;
    SwitchNow;
  end;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{ Looks for the Item (to alch) in Indicated Slot }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function FindItem: Boolean;
begin
  GameTab(4);
  if ExistsItem(Players[CurrentPlayer].Integer1) then
  begin
    Result := true;
  end else
  begin
    Result := false;
    WriteLn('Please place the item to alch in inv slot 1.');
    WriteLn('');
    clvl := GetSkillLevel('Magic');
    LogOut;
    SwitchNow;
  end;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{            Looks for Fire Rune/Staff           }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function FindFireSource: Boolean;
begin
  if Players[CurrentPlayer].Boolean2 = true then
  begin
    RedBulb := DTMFromString('78DA6394606060E06040011F4DE5187E01694' +
       '620FE0F048CD2400627031A60442281B430906027A0460C48B010' +
       '5003720F3701355240820BBF1A00ED94070B');
    GameTab(5);
    Wait(100+random(200));
    if FindDTM(RedBulb, x, y, 593, 288, 610, 304) then
    begin
      Result := true;
      FreeDTM(RedBulb);
    end else
    begin
      Result := false;
      WriteLn('Please wield the fire staff and restart.');
      WriteLn('');
      clvl := GetSkillLevel('Magic');
      LogOut;
      SwitchNow;
    end;
  end else
  begin
  Fire := BitmapFromString(29, 2, 'z78DA758F510A03310844A' +
       'F646CE28C9F9A6CEE7FA4864D282D4B15DEC788F8145955ACB5D9' +
       '065E9696482894868E247061D0299887496509AA96B6C9C9C6E64' +
       '2A37DE79BDE18743776E64F1E6B6F1EA6CBEAE1BA7A7AF5BA56BA' +
       '67CCA85113D1A3CBEDB9B90E8909C4DC1C8E026101C1C38A401CF' +
       'F9B4FABE717C7EACF17674A5E1CC7F9B68DB214EC63ABA1699111' +
       'DBF30DE7B84C35');
    GameTab(4);
    if FindBitmapToleranceIn(Fire, x, y, 558, 205, 742, 464, 50) then
    begin
      Result := true;
      FreeBitmap(Fire);
    end else
    begin
      WriteLn('Fire Runes not found.');
      WriteLn('');
      FreeBitmap(Fire);
      Result := false;
      clvl := GetSkillLevel('Magic');
      LogOut;
      SwitchNow;
    end;
  end;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{           Looks for Alching Spell(s)           }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function FindSpell: Boolean;
begin
   GameTab(7);
   if Players[0].Boolean1 = True then
   begin
     if FindDTM(HighAlch, x, y, 558, 210, 738, 446) then
     begin
       Result := true;
     end else
     begin
       WriteLn('Spell not found.');
       WriteLn('');
       Result := false;
       clvl := GetSkillLevel('Magic');
       LogOut;
       SwitchNow;
     end;
   end else
   begin
     if FindDTM(LowAlch, x, y, 558, 210, 738, 446) then
     begin
       Result := true;
     end else
     begin
       WriteLn('Spell not found.');
       WriteLn('');
       clvl := GetSkillLevel('Magic');
       Result := false;
       LogOut;
       SwitchNow;
     end;
   end;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{       Checks all Requirements for Begin        }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function Check: Boolean;
begin
  if FirstCheck then
     FindLvl;
   if FindTabs and FindNat and FindItem and
     FindFireSource and FindSpell and not FailedCheck then
  begin
    WriteLn('All requirements in order.');
    WriteLn('');
    Result := true;
    FirstCheck := false;
  end else
  begin
    Result := false;
    clvl := GetSkillLevel('Magic');
    LogOut;
    SwitchNow;
  end;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                    Clicks Spell                }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function Spell: Boolean;
begin
  GameTab(7);
  Wait(200 + random(200));
  {//If High Alch\\}
  if Players[CurrentPlayer].Boolean1 then
  begin
    if FindDTM(HighAlch, x, y, 708, 319, 735, 350) then
    begin
      Wait(100 + random(100));
      MMouse(x, y, 2, 2);
      Wait(100 + random(50 + random(20)));
      if IsUpText('igh') then
      begin
        Mouse(x, y, 2, 2, true);
        Result := true;
        Wait(400 + random(200));
      end else
      begin
        WriteLn('Could not find Spell.');
        WriteLn('');
        Failed := Failed + 1;
        Check;
        Result := false;
      end;
    end else
    begin
      WriteLn('Could not find Spell.');
      WriteLn('');
      Failed := Failed + 1;
      Check;
      Result := false;
    end;
  end else
  {\\If High Alch//}

  {//If Low Alch\\}
  begin
    if FindDTM(LowAlch, x, y, 710, 249, 733, 276) then
    begin
      Wait(100 + random(100));
      MMouse(x, y, 2, 2);
      Wait(100 + random(50 + random(20)));
      if IsUpText('ow') then
      begin
        Mouse(x, y, 2, 2, true);
        Result := true;
        Wait(400 + random(200));
      end else
      begin
        Mouse(90, 441, 15, 5, true);
        WriteLn('Could not find Spell.');
        WriteLn('');
        Failed := Failed + 1;
        Check;
        Result := false;
      end;
    end else
    begin
      Mouse(90, 441, 15, 3, true);
      WriteLn('Could not find Spell.');
      WriteLn('');
      Failed := Failed + 1;
      Check;
      Result := false;
    end;
  end;
  {\\If Low Alch//}
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                    Clicks Item                 }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

procedure ItemClick;
begin
  if Randoms then
  begin
    Mouse(90, 441, 15, 3, true);
    Randoms;
    Exit;
  end;
  {//If High Alch\\}
  if Players[CurrentPlayer].Boolean1 then
  begin
    if ExistsItem(Players[CurrentPlayer].Integer1) then
    begin
      MMouseItem(Players[CurrentPlayer].Integer1);
      if IsUpText('igh') then
      begin
        MouseItem(Players[CurrentPlayer].Integer1, true);
        Wait(1000+random(200));
        if GetCurrentTab = 7 then
        begin
          Failed := 0;
          Items := Items + 1;
          Total := Total + 1;
          uxp := uxp + 65;
          txp := txp + 65;
          SwitchNow;
          Exit;
        end else
        begin
          Mouse(90, 441, 15, 3, true);
          Failed := Failed + 1;
          Exit;
        end;
      end else
      begin
        Mouse(90, 441, 15, 3, true);
        Failed := Failed + 1;
        Check;
        Exit;
      end;
    end else
    begin
      Mouse(90, 441, 15, 3 , true);
      Failed := Failed + 1;
      Check;
      Exit;
    end;
  end else
  {\\If High Alch//}

  {//If Low Alch\\}
  begin
    if ExistsItem(Players[CurrentPlayer].Integer1) then
    begin
      MMouseItem(Players[CurrentPlayer].Integer1);
      if IsUpText('ow') then
      begin
        MouseItem(Players[CurrentPlayer].Integer1, true);
        Wait(1000+random(200));
        if GetCurrentTab = 7 then
        begin
          Failed := 0;
          Items := Items + 1;
          Total := Total + 1;
          uxp := uxp + 31;
          txp := txp + 31;
          SwitchNow;
          Exit;
        end else
        begin
          Mouse(90, 441, 15, 3, true);
          Failed := Failed + 1;
          Exit;
        end;
      end else
      begin
        Mouse(90, 441, 15, 3, true);
        Failed := Failed + 1;
        Check;
        Exit;
      end;
    end else
    begin
      Mouse(90, 441, 15, 3 , true);
      Failed := Failed + 1;
      Check;
      Exit;
    end;
  end;
  {\\If Low Alch//}
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{ Checks if Switch Player Needed/Switches Player }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

procedure SwitchNow;
begin
  if not (LoggedIn) or (Items >= Players[CurrentPlayer].Integer2) then
  begin
    if LoggedIn then
      clvl := GetSkillLevel('Magic');
      LogOut;
    if (Items >= Players[CurrentPlayer].Integer2) then
    begin
      WriteLn('Alched all required for ' + Players[CurrentPlayer].Name);
      WriteLn('Switching character.');
      WriteLn('');
    end;
    if (Items >= Players[CurrentPlayer].Integer2) or not (LoggedIn) then
    begin
      DReport;
      MySig;
      NextPlayer(false);
      FirstCheck := true;
      Wait(100 + random(200));
      Check;
      Items := 0;
      uxp := 0;
      Failed := 0;
      if Players[CurrentPlayer].Integer2 <= 0 then
      begin
        WriteLn('Set the correct alch amount.');
        WriteLn('');
        LogOut;
        Exit;
      end;
    end;
  end;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                     Anti-Ban                   }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function MyAntiBan: Boolean;
begin
  i := random(1000);
  if i > 300 then
  begin
  case random(100) of
    1:  begin MouseBox(MSx1, MSy1, MSx2, MSy2, 2 + random(2));
        Result := true; Wait(2000 + random(500)); end;

    13: begin MouseBox(MIx1, MIy1, MIx2, MIy2, 2 + random(2));
        Result := true; Wait(2000 + random(500)); end;

    25: begin GameTab(2); HoverSkill('Magic', False); Result := true;
        Wait(2000 + random(500)); end;

    38: begin RandomRClick; Result := true; Wait(2000 + random(500));
        end;

    59: begin PickUpMouse; Result := true; Wait(2000 + random(500));
        end;

    83: begin AlmostLogout; Result := true; Wait(2000 + random(500));
        end;
    else Result := false;
  end;
  end else
    Result := false;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                   Chat Anti-Ban                }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function MyTalkAntiBan: Boolean;
begin
  if InChat('lvl') then
  begin
    TypeSend(IntToStr(clvl));
    Result := true;
  end;
  if InChat('hi') or InChat('hello') or InChat('yo')
     or InChat('hey') then
  begin
    Result := false;
    case random(7) of
      0: TypeSend('Hi');
      1: TypeSend('So boring...');
      2: TypeSend('Go away.');
      3: TypeSend('Only ' + IntToStr(Players[CurrentPlayer].Integer2 - Items)
                          + 'to go!');
      4: TypeSend('Hello');
      5: TypeSend('Wuzup');
      6: TypeSend('Yo');
    end;
  end else
    Result := false;
end;


{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                   Anti-Randoms                 }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function Randoms: Boolean;
begin
  if LoggedIn and FindNormalRandoms then
    begin
      Result := true;
    end else
      Result := false;
  if FindFight then
    begin
      Result := true;
      RunAwayDirection(RunD);
      Wait(10000 + random(2000));
      RunBack;
   end else
     Result := false;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{      Full Anti-Ban/Wait if No Anti-Ban         }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

procedure FullAnti;
begin
  if not MyAntiBan and not MyTalkAntiBan then
  begin
    Wait(1500 + random(1000));
  end;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{   If Failed is Amount or More, Switch Player   }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

function FailedCheck: Boolean;
begin
  if Failed >= FailedChecks then
  begin
    Result := true;
    WriteLn('Could not continue script.');
    WriteLn('Please check the problem Manually.');
    WriteLn('');
    LogOut;
    SwitchNow;
  end else
    Result := false;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                      Report                    }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

procedure DReport;
begin
  WriteLn('');
  WriteLn('');
  WriteLn('');
  WriteLn('');
  WriteLn('');
  WriteLn('');
  WriteLn('<><><><><><><><><>Ample Alcher<><><><><><><><>');
  WriteLn('Current Character: ' + Players[CurrentPlayer].Name);
  WriteLn('Items Alched for ' + Players[CurrentPlayer].Name +
           ': ' + IntToStr(Items));
  WriteLn('Items Left for ' + Players[CurrentPlayer].Name +
          ': ' + IntToStr(Players[CurrentPlayer].Integer2 - Items));
  WriteLn('Total Alched: ' + IntToStr(Total));
  WriteLn('Levels Gained for ' + Players[CurrentPlayer].Name +
          ': ' + IntToStr(clvl - slvl));
  WriteLn('XP Gained for ' + Players[CurrentPlayer].Name +
          ': ' + IntToStr(uxp));
  WriteLn('Total XP Gained: ' + IntToStr(txp));
  WriteLn('Worked for: ' + ScriptTime2(2));
  WriteLn('<><><><><><><><><><><><><><><><><><><><><><><><>');
  SRLRandomsReport;
end;

{/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\}
{                     Main Loop                  }
{\\\\\\\\\\\\\\\\\\\\\\\\\///////////////////////}

begin
{//First Player StartUp\\}
  StartUp;
  LogIn;
  LoadDTMs;
  slvl := GetSkillLevel('Magic'); //First check of level (to subtract)
  Check;
{\\First Player StartUp//}

  begin
    repeat
    if LoggedIn then
    begin

{//Spell/Item Click\\}
      if Spell then
      begin
        ItemClick;
        SwitchNow;
      end;
    end;
{\\Spell/Item Click//}

{//Double-Check + Report\\}
    if LoggedIn and not FailedCheck then
    begin
      FullAnti;
      DReport;
    end else
      SwitchNow;
{\\Double-Check + Report//}

   until(false);
  end;
end.

 

i tryed it, but got a new error message:

SRL Compiled in 15msec.
[Runtime Error] : Out Of Range in line 40 in script

:S

 

Set the player arrays right so you wont get Out of Range errors.