SRL Archive - Help and Support

I have decided to make a powercutter and have been working on it for more than 3 hours. I don't even know what to do as I keep getting errors all the time. I don't think I am ever going to become a member and I thought this was easy…

Well here is the code.

[PHP]{————————————————————————–]

ScriptName = All Tree PowerCutter
Author = Leader
Description = PowerCuts any tree
Date = May 7, 2006
Comments = Sometimes cuts normal tree instead of Oak.
Credits : Jagex_Fagex, Ejjman1 & all People listed on his Miner
{————————————————————————–]

Setup
~~~~~~~~~~~~~~~~~~~~~~~~Setup Lines 65-82~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.Have Runescape Client, Low-Detail, Very Bright, 32-Bit True Resolution.
2.Move the camera position as far north as possible.
3.If you're not wielding axe, put in the first spot of your inventory.
6.Hit the play button.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

program PowerCutter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}

var
Cut, LogsCut, LoadsDone :integer;
Drop, DropY, rx, ry, m, n : Integer;


const
Color =3170392; //Tree Color
Color1 =4288658; //Another Tree Color
Total = 1000; //Approximate number of trees to cut.

procedure AntiRandoms;
begin
AntiBan;
FindNormalRandoms;
FindLamp('Woodcutting');
if FindColorTolerance(x,y,515029,1,1,180,39,20) then begin
Writeln('Ent found');
SetRun(True);
RunAwayDirection('N');
RunBack;
end;
if(FindFight)then
begin
WriteLn('We Are Being Attacked')
SetRun(True);
RunAwayDirection('N');
RunBack;
end;
if(FindFrog)then
begin
WriteLn('Found Frog Logging Out')
Logout;
end;
end;

procedure ProgressReport;
begin
Writeln('Leader''s PowerCutter');
Writeln('————————–');
Writeln('Worked for '+ ScriptTime2(2));
Writeln('Cut ' + inttostr(Logscut) + ' Logs');
Writeln('You Have Done ' + +inttostr(LoadsDone) + ' Loads');
Writeln('PowerCutter By Leader');
end;

procedure WoodCut;
begin
if (FindColorSpiralTolerance(x, y, Color, 0, 0, 513, 337, 5)) or
(FindColorSpiralTolerance(x, y, Color1, 0, 0, 513, 337, 5)) then
begin
MMouse(x, y, 2, 2);
AntiRandoms;
if (IsUpText('Mine')) then
begin
Mouse(x, y, 2, 2, True);
AntiRandoms;
end;
end;

procedure DropLogs;
var
Drop, DropY, rx, ry, m, n : Integer;
begin
Drop := BitmapFromString(28, 6, 'z78DA737343000324E04684382' +
'E35A4AA2446BD1BC5EEC46F23B5C4A965E6A83B87AE3B29497B94' +
'E42362DC00008F0FEAE5');
DropY := BitmapFromString(28, 6, 'z78DA737373733330700393C8' +
'C08D08715C6A4855498C7A378ADD89DF466A8953CBCC51770E5D7' +
'75292F628C947C4B8010058BBDB99');
Status('Dropping Logs');
Gametab(4)
begin
for M:=1 to 7 do
begin
for n:=1 to 4 do
begin
rx := 544 + (n * 42)
ry := 192 + (m * 36)
mmouse(rx, ry, 0, 0)
wait(100 + random(100));
begin
getmousepos(x, y)
mouse(x, y, 5, 5, false);
wait(100 + random(50));
if(Findbitmap(Drop, x, y))or(Findbitmap(DropY, x, y))then
begin
mouse(x, y+1, 14, 1, true);
ait(150 + random(210));
end else
mmouse(233, 123, 50, 50)
end;
end;
end;
end;
end;

procedure RepeatThis;
Begin
repeat
repeat
Woodcut;
until (InventoryFull=True);
DropLogs;
ProgressReport;
until(Cut = Total);
end;


Begin
SetupSRL;
PerfectNorth;
BenMouse:=True;
FindAxeHeadColor;
SetChat('Friends',1);
SetChat('Off',2);
SetChat('Off',3);
RepeatThis;
until(false)
end.[/PHP]

i spy… soooo many errors in this.

1) STANDARDS

2) Please attempt something EASIER… maybe scripts that do not use RS before attempiting one. You need practive, and lots of it

3)

{--------------------------------------------------------------------------]

          ScriptName  = All Tree PowerCutter
          Author      = Leader
          Description = PowerCuts any tree
          Date        = May 7, 2006
          Comments    = Sometimes cuts normal tree instead of Oak.
          Credits     : Jagex_Fagex, Ejjman1  & all People listed on his Miner
{--------------------------------------------------------------------------]

                              Setup
~~~~~~~~~~~~~~~~~~~~~~~~Setup Lines 65-82~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.Have Runescape Client, Low-Detail, Very Bright, 32-Bit True Resolution.
2.Move the camera position as far north as possible.
3.If you're not wielding axe, put in the first spot of your inventory.
6.Hit the play button.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

program PowerCutter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}

var
Cut, LogsCut, LoadsDone :integer;
Drop, DropY, rx, ry, m, n : Integer;


const
Color  =3170392;  //Tree Color
Color1 =4288658;  //Another Tree Color
Total  = 1000;    //Approximate number of trees to cut.

procedure AntiRandoms;
begin
  AntiBan;
  FindNormalRandoms;
  FindLamp('Woodcutting');
if FindColorTolerance(x,y,515029,1,1,180,39,20) then begin
   Writeln('Ent found');
   SetRun(True);
   RunAwayDirection('N');
   RunBack;
   end;
if(FindFight)then
  begin
   WriteLn('We Are Being Attacked')
   SetRun(True);
   RunAwayDirection('N');
   RunBack;
   end;
if(FindFrog)then
   begin
   WriteLn('Found Frog Logging Out')
   Logout;
   end;
   end;

procedure ProgressReport;
begin
    Writeln('Leader''s PowerCutter');
    Writeln('--------------------------');
    Writeln('Worked for '+ ScriptTime2(2));
    Writeln('Cut ' + inttostr(Logscut) + ' Logs');
    Writeln('You Have Done ' + +inttostr(LoadsDone) + ' Loads');
    Writeln('PowerCutter By Leader');
end;

procedure WoodCut;
begin
  if (FindColorSpiralTolerance(x, y, Color, 0, 0, 513, 337, 5)) or
     (FindColorSpiralTolerance(x, y, Color1, 0, 0, 513, 337, 5)) then
     begin
     MMouse(x, y, 2, 2);
     AntiRandoms;
if (IsUpText('Mine')) then
     begin
     Mouse(x, y, 2, 2, True);
     AntiRandoms;
      end;
      end;
      end;

procedure DropLogs;
var
  Drop, DropY, rx, ry, m, n : Integer;
begin
  Drop := BitmapFromString(28, 6, 'z78DA737343000324E04684382' +
         'E35A4AA2446BD1BC5EEC46F23B5C4A965E6A83B87AE3B29497B94' +
         'E42362DC00008F0FEAE5');
  DropY := BitmapFromString(28, 6, 'z78DA737373733330700393C8' +
         'C08D08715C6A4855498C7A378ADD89DF466A8953CBCC51770E5D7' +
         '75292F628C947C4B8010058BBDB99');
    Status('Dropping Logs');
    Gametab(4)
    begin
      for M:=1 to 7 do
      begin
        for n:=1 to 4 do
        begin
          rx := 544 + (n * 42)
          ry := 192 + (m * 36)
          mmouse(rx, ry, 0, 0)
          wait(100 + random(100));
begin
    getmousepos(x, y)
    mouse(x, y, 5, 5, false);
    wait(100 + random(50));
    if(Findbitmap(Drop, x, y))or(Findbitmap(DropY, x, y))then
    begin
    mouse(x, y+1, 14, 1, true);
    wait(150 + random(210));
    end else
    mmouse(233, 123, 50, 50)
end;
end;
end;
end;
end;

procedure RepeatThis;
Begin
     repeat
     repeat
     Woodcut;
until (InventoryFull=True);
     DropLogs;
     ProgressReport;
     until(Cut = Total);
     end;


Begin
   repeat
   SetupSRL;
   PerfectNorth;
   BenMouse:=True;
   FindAxeHeadColor;
   SetChat('Friends',1);
   SetChat('Off',2);
   SetChat('Off',3);
   RepeatThis;
   until(false)
   end.

Compiles, no time to do standards now


3) You have until false but no repeat. Begins but no ends. And you mispelled a wait to ait

Oh sorry

Well dude I am just going to quit trying to make a script. I really wanted to be a good scripter but I don't have time now. High School is a pain and I have so much homework. Also my parents keep getting mad at me because I am on the computer too much. This is too much for me mate, well thanks for attemping to help me and for giving me some advice.