SRL Archive - First Scripts

Please remember that this is my first script.

Program WillowPwn3r;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
 



--------------------


var x, y: integer;
XPGained := 0;
 
const 
YourPin:='0000'; 

 
------ChopTree-----------

Procedure ChopTree;
begin
  if not LoggedIn then
  Exit;
  MakeCompass('S');
  repeat
     if FindObjCustom(x, y, ['wil', 'low'], [1989969, 3760987, 2844763], 7) then
      begin
      Mouse(x,y,0,0,false);
      repeat
         Wait(100 + (random(150)));
         ChooseOption('hop')
       until(InvFull)
      XPGained + 1890; //Willow Logs give 67.5 XP each. So 1980 XP per 28 (Full Inventory)
      end;
  until(InvFull)
end;


--------Main AntiBan Procedure-------

procedure Antiban;
begin
  if not LoggedIn then Exit;
  case Random(68) of
    0:
      begin
        HoverSkill('Mining', False);
        Antibans:=Antibans+1;
      end;
    1:
      begin
        HoverSkill('Smithing', false);
        Antibans:=Antibans+1;
      end;
    2:
      begin
        GameTab(1 + Random(12));
        wait(800 + random(500));
        GameTab(4);
        Antibans:=Antibans+1;
      end;
    3:
      begin
        BoredHuman;
        Antibans:=Antibans+1;
      end;
    4:
      begin
        AlmostLogout;
        Antibans:=Antibans+1;
      end;
    5:
      begin
        DoEmote(400 + Random(90));
        Antibans:=Antibans+1;
      end;
  end;
end;


--------Progress Report----------------


procedure ProgressReport;
begin
  cleardebug;
  writeln('/------------Progress Report-----------\');
  writeln('|======================================|');
  writeln('Performed '+IntToStr(Antibans)+' Antibans!');
  writeln('Script run for '  +TimeRunning);
  writeln('XP Gained: ' +XPGained);
  writeln('|--Created by Ascension.- Version 1.0--|');
  writeln('|======================================|');
  writeln('\--------------------------------------/');
end;




------------Power Dropper-------------


Procedure PowerDrop;
var i, x, y: Integer;
begin
 For i := 1 to 28 do
  If ExistsItem(i) then
   Begin
    Mouse(x, y, 1, 1, false);
    ChooseOption('rop')
  end;
end;


 
//Mainloop.
begin
repeat
   ChopTree;
   PowerDrop;
until ()
end.

Program WillowPwn3r;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}

var
  x, y, XPGained, LoadsDone, AntiBans: integer; //You can't have it be XPGained := 0;, it has to be a type

const
  LoadsToDo = 100;

//------ChopTree----------- //You need to comment out lines that aren't part of the script
                            //With // at the beginning, or { } or (* *)

Procedure ChopTree;
begin
  if not LoggedIn then
  Exit;
  MakeCompass('S');
  repeat
    if FindObjCustom(x, y, ['wil', 'low'], [1989969, 3760987, 2844763], 7) then
    begin
      Mouse(x, y, 2, 2, false); //Add randomness to it
      repeat
        Wait(100 + (random(150)));
        ChooseOption('hop');
      until(InvFull);
      Inc(LoadsDone); //Inc(var X); adds 1 to X (1 to LoadsDone)
      IncEx(XPGained, 1890); //Willow Logs give 67.5 XP each. So 1890 XP per 28 (Full Inventory)
    end;                   //IncEx(var X; N: LongInt); will add N to X (1890 to XPGained)
  until(InvFull)
end;

{--------Main AntiBan Procedure-------}

procedure Antiban;
begin
  if not LoggedIn then Exit;
  case Random(10) of (*Just different cases*)
    0: begin
         HoverSkill('Mining', False);
         Inc(AntiBans);
       end;
    2: begin
         HoverSkill('Smithing', false);
         Inc(AntiBans);
       end;
    4: begin
         GameTab(1 + Random(12));
         wait(800 + random(500));
         GameTab(4);
         Inc(AntiBans);
       end;
    6: begin
         BoredHuman;
         Inc(AntiBans);
       end;
    8: begin
         DoEmote(400 + Random(90));
         Inc(AntiBans);
       end;
  end;
end;

//--------Progress Report----------------

procedure ProgressReport;
begin
  cleardebug;
  writeln('/------------Progress Report-----------\');
  writeln('|======================================|');
  writeln('Performed '+IntToStr(Antibans)+' Antibans!');
  writeln('Script run for '  +TimeRunning);
  writeln('XP Gained: ' +IntToStr(XPGained));
  writeln('|--Created by Ascension.- Version 1.0--|');
  writeln('|======================================|');
  writeln('\--------------------------------------/');
end;

{------------Power Dropper-------------}

Procedure PowerDrop;
var i, x, y: Integer;
begin
  For i := 1 to 28 do
  If ExistsItem(i) then
  Begin
    Mouse(x, y, 1, 1, false);
    ChooseOption('rop');
  end;
end;

//Mainloop.
begin
  repeat
    ChopTree;
    PowerDrop;
  until(LoadsDone >= LoadsToDo); //Will end the script once it does a certain amount of loads
end.

nice work for first ;D

Antibans:=Antibans+1; = Inc(Antibans);

Inc() increases the value of a variable by 1.

Try using

Procedure PowerDrop;
var i, x, y: Integer;
begin
 if(InvFull) then
 begin
 For i := 1 to 28 do
  If ExistsItem(i) then
   Begin
    Mouse(x, y, 1, 1, false);
    ChooseOption('rop')
  end;
end;