SRL Archive - First Scripts

Hi everybody, this was my first ever full script.
However, it doesn't work
It tells me it expects an identifier in line 29 or something.
Also, any help at all is much appreciated.

Vilon, I wasn't able to contact you, but I used your antiban, I hope that is ok?

I tried to use standards.

{ Arrow Shafter by Belt
 Credits:
 WT Fakawi for...a lot of stuff.
 Vilon for his Antiban  }


program BeltArrowShaft;
 {.include SRL/SRL.scar}
 {.include SRL/SRL/skill/WoodCutting.scar}

const
 TreeColor = 927012; //This should work...change if needed.
 ShaftsToMake =5; //How many logs do you want cut to shafts?
 
procedure DeclarePlayers;
 begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 1;
 
 
 Players[1].Name := 'xxx'
 Players[1].Pass := 'xxx'
 Players[1].Nick := 'xxx'
 Players[1].Active := True;
 
procedure ClearDebug;
 begin
  ClearDebug;
  WriteLn('BeltArrowShaft')
end;

function FindFastRandoms: boolean; //By WT-Fakawi.
  var
    i: integer;
  begin
    for i := 1 to 6 do
    begin
      case I of
        1:
          if FindDead then
            Result := True;
        2:
          if FindMod then
            Result := True;
        3:
          if FindMime then
            Result := True;
        4:
          if FindMaze then
            Result := True;
        5:
          if FindQuiz then
            Result := True;
        6:
          if FindDemon then
            Result := True;

procedure FindRandoms;
  begin
    FindFastRandoms;
    FindNormalRandoms;
  end;
procedure AntiBan;       //Taken from Vilon Flax Spinner! Thank you!
 begin
  PlayerCheck;
  case random(35) + 1 of
    0: HoverSkill('fletching', false);
    1: HoverSkill('random', false);
    2: BoredHuman;
    3: HoverSkill('crafting', false);
    4: BoredHuman;
    5: BoredHuman;
    6: HoverSkill('woodcutting', false);
  end;

procedure FindTree;
 begin
  if FindColor(x,y,TreeColor,0,0,600,600) then
    Wait(1500);
    MMouse(x,y,3,3)
    Wait(1500);
  if (IsUpText('Tree')) then
    Mouse(x,y,3,3, False);
    Wait(1500);
    ChooseOption(x,y,'Chop');
    Wait(4000)
    ;
 end;
 
procedure ShaftTime;
 begin
  Mouse(668,228,3,3,True);
  Wait(1500);
  Mouse(624,229,3,3,True);
  Wait(1500);
  MMouse(80,405,3,3);
  Wait(1500);
  if (IsUpText('Make')) then
   Mouse(80,405,3,3,True);
  Wait(3500);
 end;
 
begin
 SetupSRL;
 DeclarePlayers;
 repeat
  FindTree;
  FindRandoms;
  FindFastRandoms;
  ShaftTime;
  ClearDebug;
 until (ShaftsToCut);
end.

k dude 1st of this should go to srl scripting help =/ because it does not work?

btw i cant help you atm im in school , =) sorry just wanted to let you know.

still Good Job =) keep practicing

btw Mouse is bannable because jagex will detect you clicking same place =P

man, if i was you i should go to tut island your script was full of mistakes kind of small things, just look wat changed but its better then my first script so be proud ;)

{ Arrow Shafter by Belt
 Credits:
 WT Fakawi for...a lot of stuff.
 Vilon for his Antiban  }


program BeltArrowShaft;
 {.include SRL/SRL.scar}
 {.include SRL/SRL/skill/WoodCutting.scar}

const
 TreeColor = 927012; //This should work...change if needed.
 ShaftsToCut =5; //How many logs do you want cut to shafts?

var
  x,y,gototutislanddude:integer;


procedure DeclarePlayers;
 begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 1;


 Players[0].Name := 'xxx';
 Players[0].Pass := 'xxx';
 Players[0].Nick := 'xxx';
 Players[0].Active := True;
end;

procedure ClearDebug;
 begin
  ClearDebug;
  WriteLn('BeltArrowShaft')
end;



procedure AntiBan;       //Taken from Vilon Flax Spinner! Thank you!
 begin

  case random(35) + 1 of
    0: HoverSkill('fletching', false);
    1: HoverSkill('random', false);
    2: BoredHuman;
    3: HoverSkill('crafting', false);
    4: BoredHuman;
    5: BoredHuman;
    6: HoverSkill('woodcutting', false);
  end;
end;

procedure FindTree;
 begin
  if FindColor(x,y,TreeColor,0,0,600,600) then
    Wait(1500);
    MMouse(x,y,3,3)
    Wait(1500);
  if (IsUpText('Tree')) then
    Mouse(x,y,3,3, False);
    Wait(1500);
    ChooseOption('Chop');
    Wait(4000)
    ;
 end;

procedure ShaftTime;
 begin
  Mouse(668,228,3,3,True);
  Wait(1500);
  Mouse(624,229,3,3,True);
  Wait(1500);
  MMouse(80,405,3,3);
  Wait(1500);
  if (IsUpText('Make')) then
   Mouse(80,405,3,3,True);
  Wait(3500);
 end;

begin
 SetupSRL;
 DeclarePlayers;
 repeat
  gototutislanddude:=gototutislanddude+1
  FindTree;
  FindNormalRandoms;
  ShaftTime;
  ClearDebug;
 until (gototutislanddude>ShaftsToCut);
end.

From: p1nky


btw Mouse is bannable because jagex will detect you clicking same place =P

no mouse is not ban able onyl clicking on co-oords is ban-able

Lol, thanks hermpie.
I read some of the stuff there, I'll go check it out some more.
I don't know how I forgot to set up the var part

From: p1nky
k dude 1st of this should go to srl scripting help =/ because it does not work?

btw i cant help you atm im in school , =) sorry just wanted to let you know.

still Good Job =) keep practicing

btw Mouse is bannable because jagex will detect you clicking same place =P

From: Belt
Lol, thanks hermpie.
I read some of the stuff there, I'll go check it out some more.
I don't know how I forgot to set up the var part

i know how, you forgot it :p im so (not)funny i can help you but then add me on msn ;)

Standards fixed? (on code hermpie posted)

{ Arrow Shafter by Belt
 Credits:
 WT Fakawi for...a lot of stuff.
 Vilon for his Antiban  }
 
 
program BeltArrowShaft;
  {.include SRL/SRL.scar}
  {.include SRL/SRL/skill/WoodCutting.scar}
 
const
  TreeColor   = 927012; //This should work...change if needed.
  ShaftsToCut = 5;      //How many logs do you want cut to shafts?
 
var
  x, y, gototutislanddude: Integer;
 
 
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 1;

  Players[0].Name := 'xxx';
  Players[0].Pass := 'xxx';
  Players[0].Nick := 'xxx';
  Players[0].Active := true;
end;
 
procedure ClearDebug;
begin
  ClearDebug;
  Writeln('BeltArrowShaft');
end;
 
 
 
procedure AntiBan;       //Taken from Vilon Flax Spinner! Thank you!
begin 
  case Random(35) + 1 of
    0: HoverSkill('fletching', false);
    1: HoverSkill('random', false);
    2: BoredHuman;
    3: HoverSkill('crafting', false);
    4: BoredHuman;
    5: BoredHuman;
    6: HoverSkill('woodcutting', false);
  end;
end;
 
procedure FindTree;
begin
  if FindColor(x, y, TreeColor, 0, 0, 600, 600) then Wait(1500);
  MMouse(x, y, 3, 3);
  Wait(1500);
  if (IsUpText('Tree')) then Mouse(x, y, 3, 3, false);
  Wait(1500);
  ChooseOption('Chop');
  Wait(4000);
end;
 
procedure ShaftTime;
begin
  Mouse(668, 228, 3, 3, true);
  Wait(1500);
  Mouse(624, 229, 3, 3, true);
  Wait(1500);
  MMouse(80, 405, 3, 3);
  Wait(1500);
  if (IsUpText('Make')) then Mouse(80, 405, 3, 3, true);
  Wait(3500);
end;
 
begin
  SetupSRL;
  DeclarePlayers;
  repeat
    gototutislanddude := gototutislanddude + 1  FindTree;
    FindNormalRandoms;
    ShaftTime;
    ClearDebug;
  until (gototutislanddude > ShaftsToCut);
end.

Thanks everybody.
I just found a great tutorial, it is helping a ton :)