can someone please help me with the execution of scar

newb-pie · May 25, 2007

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

maximus · May 25, 2007

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.

newb-pie · May 29, 2007

i tryed it, but got a new error message:

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

:S

Gofez0r · May 29, 2007

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

Log in or Sign up

can someone please help me with the execution of scar

newb-pie Active Member

maximus Active Member

newb-pie Active Member

Gofez0r Guru

Log in or Sign up

can someone please help me with the execution of scar

Thread Tools

newb-pie Active Member

maximus Active Member

newb-pie Active Member

Gofez0r Guru