SRL Archive - First Scripts

program PowerFisher;
{.include srl/srl.scar}
{.include srl/srl/skill/fishing.scar}
const
fishspot1= 15191480;
fishspot2= 14858129;
salmon= 5990048;
trout= 10066341;


var x, y, Tries: integer;

procedure DropFish;       // Drop To doesnt work any more
var i: integer;
begin
mousespeed := 12 + random(3)
for i := 5 to 5 do
  DropItem(i);
for i := 9 to 9 do
  DropItem(i);
for i := 13 to 13 do
  DropItem(i);
for i := 17 to 17 do
  DropItem(i);
for i := 21 to 21 do
  DropItem(i);
for i := 25 to 25 do
  DropItem(i);
for i := 6 to 6 do
  DropItem(i);
for i := 10 to 10 do
  DropItem(i);
for i := 14 to 14 do
  DropItem(i);
for i := 18 to 18 do
  DropItem(i);
for i := 22 to 22 do
  DropItem(i);
for i := 26 to 26 do
  DropItem(i);
for i := 3 to 3 do
  DropItem(i);
for i := 7 to 7 do
  DropItem(i);
for i := 11 to 11 do
  DropItem(i);
for i := 15 to 15 do
  DropItem(i);
for i := 19 to 19 do
  DropItem(i);
for i := 23 to 23 do
  DropItem(i);
for i := 27 to 27 do
  DropItem(i);
for i := 4 to 4 do
  DropItem(i);
for i := 8 to 8 do
  DropItem(i);
for i := 12 to 12 do
  DropItem(i);
for i := 16 to 16 do
  DropItem(i);
for i := 20 to 20 do
  DropItem(i);
for i := 24 to 24 do
  DropItem(i);
for i := 28 to 28 do
  DropItem(i);
end;

begin
  SetupSRL;
  repeat
   DropFish;
   until (False);
end.program PowerFisher;
{.include srl/srl.scar}
{.include srl/srl/skill/fishing.scar}
const
fishspot1= 15191480;
fishspot2= 14858129;
salmon= 5990048;
trout= 10066341;


var x, y, Tries: integer;

procedure DropFish;       // Drop To doesnt work any more
var i: integer;
begin
mousespeed := 12 + random(3)
for i := 5 to 5 do
  DropItem(i);
for i := 9 to 9 do
  DropItem(i);
for i := 13 to 13 do
  DropItem(i);
for i := 17 to 17 do
  DropItem(i);
for i := 21 to 21 do
  DropItem(i);
for i := 25 to 25 do
  DropItem(i);
for i := 6 to 6 do
  DropItem(i);
for i := 10 to 10 do
  DropItem(i);
for i := 14 to 14 do
  DropItem(i);
for i := 18 to 18 do
  DropItem(i);
for i := 22 to 22 do
  DropItem(i);
for i := 26 to 26 do
  DropItem(i);
for i := 3 to 3 do
  DropItem(i);
for i := 7 to 7 do
  DropItem(i);
for i := 11 to 11 do
  DropItem(i);
for i := 15 to 15 do
  DropItem(i);
for i := 19 to 19 do
  DropItem(i);
for i := 23 to 23 do
  DropItem(i);
for i := 27 to 27 do
  DropItem(i);
for i := 4 to 4 do
  DropItem(i);
for i := 8 to 8 do
  DropItem(i);
for i := 12 to 12 do
  DropItem(i);
for i := 16 to 16 do
  DropItem(i);
for i := 20 to 20 do
  DropItem(i);
for i := 24 to 24 do
  DropItem(i);
for i := 28 to 28 do
  DropItem(i);
end;

begin
  SetupSRL;
  repeat
   DropFish;
   until (False);
end.

haha it drops fish faster than
drop for i:= x to y do
dropitem(i);

<.< idk atleast this one works for me i'm makin progress.

awesome thanks!