Phoenix13nl
Member
- Joined
- Oct 1, 2008
- Sythe Gold
- 0
- Messages
- 33
ok, here is my script, its my first one, and it isnt great but it works 
its and powerfisher, it can fish on all types of fish. just read the description and instructions if you want to know more
srry didint know it whas possible to place code tags, withouth them its unreadable
its and powerfisher, it can fish on all types of fish. just read the description and instructions if you want to know more
Code:
///////////////////////////////////////////////////////////////
// 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;
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,');
logout;
end.srry didint know it whas possible to place code tags, withouth them its unreadable
