Phoenix13nl
2008-10-06 16:12:21
ok, here is my first script. its and powerfisher that can fish all types off fish…
just read the description and instructions :)
just read the description and instructions :)
///////////////////////////////////////////////////////////////
// Phoenix's PowerFisher V1.0 //
///////////////////////////////////////////////////////////////
// //
// ////// //
// // // ///// // // // ///// ///// //
// ////// // // // /// // // // // //
// // // // // // // // ///// ///// //
// // // // // // // // // // // //
// // ///// /// /// ///// // // //
// //
// /////// // //
// // ///// // // ///// ///// //
// ////// // // // // // // // //
// // // ///// ////// ///// ///// //
// // // // // // // // // //
// // // ///// // // ///// // // //
// //
///////////////////////////////////////////////////////////////
// Description //
///////////////////////////////////////////////////////////////
// //
// This is PowerFisher is my very first script, it will //
// catch fish anywhere close to a fishing spot, and then //
// drop it drops all the fish and repeats it. //
// It can fish all types of fish. //
// it isn't great but it does work pretty good... //
// //
///////////////////////////////////////////////////////////////
// Instructions //
///////////////////////////////////////////////////////////////
// //
// Log out with your fishing equipment in you first slot //
// of your inventory and you bait (if bait or flyfishing) //
// is in the second slot. also make sure you are close to //
// a fishingspot, and that the spot appears in the screen. //
// //
// Write the data into the procedure of the DeclarePlayers //
// pocedure. further instrunctions out there. //
// //
// Important: Change 'FishType' to the right type. //
// so when fishing with a net, it should be... //
// FishType='Net'; //
// //
// Script created by: Phoenix13nl //
// Special thanks to Tniffoc for his help =) //
// //
///////////////////////////////////////////////////////////////
// Good luck. //
///////////////////////////////////////////////////////////////
program PowerFisher;
{.include srl/srl/misc/smart.scar}
{.include SRL/SRL.Scar}
var
x, y, i : integer;
smartworld : string;
const
FishType='WriteFishingTypeHere'; //Net, Bait, Fly, Cage, Harpoon. Example: FishType='Net';
procedure DeclarePlayers;
begin
howmanyplayers:=1;
numberofplayers(howmanyplayers);
players[0].name:='WriteUsernameHere';
players[0].pass:='WritePasswordHere';
players[0].nick:='WriteNicknameHere'; //Just write 3-4 letters of your username, use correct capitals.
players[0].Integers[0]:=5; //this is the number of loads to do before loggin out again. //Line written by Tniffoc.
players[0].Integers[1]:=0; //Line written by Tniffoc.
players[0].active:=true;
players[0].worked:=0;
end;
procedure Init;
begin
smartworld:='world63';
end;
procedure AntiRandoms;
begin
if(not(LoggedIn))then Exit;
findnormalrandoms;
if findfight=true then runaway('E',true,1,4000+random(2000));
end;
procedure AntiBan;
begin
if(not(LoggedIn))then Exit;
case random(4) of
0: PickUpMouse;
1: RandomMovement;
2: RandomRClick;
3: case random(4) of
0: HoverSkill('Fishing', false);
1: HoverSkill('Cooking', false);
2: HoverSkill('Woodcutting', false);
3: HoverSkill('Firemaking', false);
end;
end;
end;
Procedure CatchFish;
begin
if FishType='Net' then
begin
if not loggedin then exit;
KeyDown(VK_UP);
wait(1500+random(500));
KeyUp(VK_UP);
wait(500+random(500));
writeln('Angle set.');
writeln('Fishing with net.');
repeat
AntiRandoms;
AntiBan;
if (InvFull = true) then exit;
if FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) then
begin
writeln('Net fishing spot spotted.');
MMouse(x, y, 5, 5);
wait(100+random(50));
Mouse(x, y, 1, 1, true);
writeln('Fishing...');
wait(5000+random(2500));
AntiBan;
wait(5000+random(2500));
end;
until(InvFull = true)
end;
if FishType='Bait' then
begin
if not loggedin then exit;
KeyDown(VK_UP);
wait(1500+random(500));
KeyUp(VK_UP);
wait(500+random(500));
writeln('Angle set.');
writeln('Fishing with fishing rod.');
repeat
AntiRandoms;
AntiBan;
if (InvFull = true) then exit;
if FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) or FindObjCustom(x, y, ['Lur','ure ','re F'], [12828090, 11182231], 3) then
begin
writeln('Bait fishing spot spotted.');
MMouse(x, y, 5, 5);
wait(100+random(50));
Mouse(x, y, 1, 1, true);
writeln('Fishing...');
wait(5000+random(2500));
AntiBan;
wait(5000+random(2500));
end;
until(InvFull = true)
end;
if FishType='Fly' then
begin
if not loggedin then exit;
KeyDown(VK_UP);
wait(1500+random(500));
KeyUp(VK_UP);
wait(500+random(500));
writeln('Angle set.');
writeln('Fishing with flyfishing rod.');
repeat
AntiRandoms;
AntiBan;
if (InvFull = true) then exit;
if FindObjCustom(x, y, ['Lur','ure ','re F'], [12828090, 11182231], 3) then
begin
writeln('Fly fishing spot spotted.');
MMouse(x, y, 5, 5);
wait(100+random(50));
Mouse(x, y, 1, 1, true);
writeln('Fishing...');
wait(5000+random(2500));
AntiBan;
wait(5000+random(2500));
end;
until(InvFull = true)
end;
if FishType='Cage' then
begin
if not loggedin then exit;
KeyDown(VK_UP);
wait(1500+random(500));
KeyUp(VK_UP);
wait(500+random(500));
writeln('Angle set.');
writeln('Fishing with Cage.');
repeat
AntiRandoms;
AntiBan;
if (InvFull = true) then exit;
if FindObjCustom(x, y, ['Cage','age ','ge F'], [12828090, 11182231], 3) then
begin
writeln('Cage fishing spot spotted.');
MMouse(x, y, 5, 5);
wait(100+random(50));
Mouse(x, y, 1, 1, true);
writeln('Fishing...');
wait(5000+random(2500));
AntiBan;
wait(5000+random(2500));
end;
until(InvFull = true)
end;
if FishType='Harpoon' then
begin
if not loggedin then exit;
KeyDown(VK_UP);
wait(1500+random(500));
KeyUp(VK_UP);
wait(500+random(500));
writeln('Angle set.');
writeln('Fishing with Harpoon.');
repeat
AntiRandoms;
AntiBan;
if (InvFull = true) then exit;
if FindObjCustom(x, y, ['Cage','age ','ge F'], [12828090, 11182231], 3) then
begin
writeln('Harpoon fishing spot spotted.');
MMouse(x, y, 5, 5);
wait(100+random(50));
Mouse(x, y, 1, 1, true);
writeln('Fishing...');
wait(5000+random(2500));
AntiBan;
wait(5000+random(2500));
end;
until(InvFull = true)
end;
end;
procedure DropFish;
begin
if not loggedin then exit;
if (InvFull = true) then
begin
writeln('Inventory full.');
for i := 3 to 28 do
DropItem(i);
writeln('All fish dropped.');
end;
end;
begin
cleardebug;
init;
smartsetup(smartworld,false,true,false);
settargetdc(smartgetdc);
setupsrl;
lampskill:='smithing'; //Change into any skill you want, make sure to write correctly!
declareplayers;
currentplayer:=0;
logout;
closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
loginplayer;
Repeat
if not loggedin then exit;
Timerunning;
CatchFish
DropFish;
Cleardebug;
Inc(Players[CurrentPlayer].Integers[1]); //Line written by Tniffoc.
Writeln(IntToStr(Players[CurrentPlayer].Integers[1]) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' loops completed.')
Until(Players[CurrentPlayer].Integers[1] >= Players[CurrentPlayer].Integers[0]); //Line written by Tniffoc.
Cleardebug;
Writeln('All ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' loops completed, script will stop now,');
Timerunning;
logout;
end.