PDA

View Full Version : Simple PowerFisher



codx1
06-01-2007, 05:30 PM
Heres my powerfisher, it fishes full load of fish and drops
supports net/cage and harpoon fishing

Works only with scar 2.03

Instructions:

Start near fishingspot fishing equipment in first inventory slot,
if not in first it will get dropped. Then run the script

Known Bugs:

- will drop fishing equipment if not in first slot
- switches fishingspot every 20 second


Credits:

SRL
------------------

program PowerFisher;

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fishing.scar}


var
DidhandleRandoms: Boolean;
fishAmount,i: Integer;


const

FishSpotColor = 15714472; // set fishspot color here, if cant find
Loads = 6; // how many loads per player?
FishWait = 20000; // time it waits between clicks

procedure DeclarePlayers;
begin
HowManyPlayers := 3; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;


Players[0].Name :=' '; // Name Here
Players[0].Pass :=' '; // PassWord Here
Players[0].Nick :=' '; // 3-4 letters of your name
Players[0].Active:=True; // True if active, false if not

Players[1].Name :=' ';
Players[1].Pass :=' ';
Players[1].Nick :=' ';
Players[1].Active:=True;

Players[2].Name :=' ';
Players[2].Pass :=' ';
Players[2].Nick :=' ';
Players[2].Active:=true;

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

End;

procedure LoggIn;

begin
SetUpSRL;
SetupSRLFishing;
DeclarePlayers;
LoginPlayer;
end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
if (Result = true) then
DidhandleRandoms := true;
end;

procedure DoRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
PopUp('ontinue')
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;

Procedure Running;
Begin
SetRun(True);
GameTab(4);
end;

procedure FindFish;
begin
repeat
if FindObj(x,y,'age',FishSpotColor,5)or
FindObj(x,y,'net',FishSpotColor,5)or
FindObj(x,y,'poon',FishSpotColor,5)
then
MMouse(x,y,0+random(2),0+random(3));
Mouse(x,y,0,0+random(3),true);
Wait(FishWait+random(2000));
DoRandoms;
HandleWhirlPool;
until(InvFull);
FishAmount:= FishAmount + 27;
end;


procedure DropFish;
begin
DropTo(2, 28);
end;

procedure ProggyReport;
begin
Writeln('///////////////////////////////////////////');
Writeln('------CoDx1---PowerFisher---Report-------');
Writeln('///////////////////////////////////////////');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Fished '+ IntToStr(FishAmount) + ' fish');
Writeln('///////////////////////////////////////////');
end;

begin
i := i + 1;
ClearDebug;
ActivateClient;
LoggIn;
repeat
HighestAngle;
Makecompass('N');
Running;
FindFish;
DropFish;
ProggyReport;
SRLRandomsReport;
if (not(Loggedin)) then NextPlayer(false);
if (loads=i)then
begin
NextPlayer(True);
HighestAngle;
MakeCompass('N');
end;
until(false);
end.


Should be able to run atleast over 10 hours , I think :bart:


have fun :)

rs_power
06-01-2007, 05:59 PM
idk undertstand teh nickname part or hoow 2 set it up can u plz give me explampe like fill in the the place that need 2 be fulled like put anything in there just so i know where 2 full it in.

codx1
06-01-2007, 06:09 PM
Ok heres an example how you set it up


Players[0].Name :=' power'; // Name Here
Players[0].Pass :='123456 '; // PassWord Here
Players[0].Nick :='owe '; // 3-4 letters of your name
Players[0].Active:=True; // True if active, false if not

just take 3 letters from ur name and put in it

codx1
06-02-2007, 11:47 AM
my latest proggy:

------CoDx1---PowerFisher---Report-------
///////////////////////////////////////////
Worked For : 1 Hours, 54 Minutes, and 11 Seconds
Fished and dropped 540 fish
///////////////////////////////////////////

| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fight Random[s] : 3 |
| Talking Random[s] : 1 |
| Capn Hand[s] Solved : 1 |
| New Box[es] Solved : 1 |
| Whirlpool[s] found : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

mchl_faust
09-15-2007, 11:25 PM
can it work on scar 3.11

mchl_faust
09-15-2007, 11:26 PM
o and how do i set it up

mchl_faust
09-15-2007, 11:27 PM
plz answer me soon:D

Wise Fries
09-21-2007, 07:48 PM
It's nice, but it'd be nicer with banking as an additional option and being available for SCAR 3.11 DIVI.

Hasslarn
09-22-2007, 04:17 PM
Good job .. im gonna test it now :D



EDIT
Good Job it worked perfectly for me ! Keep up the good work

harvie60
09-23-2007, 08:12 AM
mine worked quiet good

Repentinus
09-23-2007, 08:27 AM
Omg, I do not like this script dude because it switches fishing spot after every 20 secs but otherwise it is OK.

12345678
09-23-2007, 06:43 PM
nice script but does it work with 3.1?

michaels
09-23-2007, 06:47 PM
nice script. well done:)

markrulz
09-28-2007, 07:51 AM
Scar is such a shitty program, the peice of shit doesnt do anything, ive tried like 100 scripts, NONE WORK, fucken crap

LordGregGreg
09-28-2007, 07:55 AM
Scar is such a shitty program, the peice of shit doesnt do anything, ive tried like 100 scripts, NONE WORK, fucken crap
rofl.


dude

the computer is only as smart as you

/me dies laughing.

ahem. ok, sorry, that was un profesional.

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

markrulz= read some tutorials, make sure you have the right versions or scar and srl, and make sure the script works wiht them too.

wizzups is a good script to try it out on.

oh, and while im here, please people. dont doulbe post. use the edit button instead, for all purposes.

it is not ok , specaily when your just trying to get yoru post count up.

NOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOB

You, Mchl_faust, have been reported for being a NOOB.
Your Current violations include Double Posting for http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265) http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265)
Double Posting for http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265) http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265)
This brings you to a new total of http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265)http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265)http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265)http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265) (4) Noob Points!

For more information on Mchl_faust (http://noobpoints.tehintar.net/noobadmin.php?noob_name=Mchl_faust) please go Here. (http://noobpoints.tehintar.net/noobadmin.php?noob_name=Mchl_faust)

For more information from This database (http://noobpoints.tehintar.net/noobadmin.php) please go Here. (http://noobpoints.tehintar.net/noobadmin.php?)

For more information on The Noob Points System (http://noobpoints.tehintar.net/) please go Here. (http://noobpoints.tehintar.net/)

For more information on Noobs (http://www.villavu.com/forum/showthread.php?t=5265) please go Here. (http://www.villavu.com/forum/showthread.php?t=5265)

NOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOB

NOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOB

You, Codx1, have been reported for being a NOOB.
Your Current violations include Double Posting for http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265) http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265)
This brings you to a new total of http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265)http://www.greg.impwiki.org/noobpoints/noobpoints.png (http://www.villavu.com/forum/showthread.php?t=5265) (2) Noob Points!

For more information on Codx1 (http://noobpoints.tehintar.net/noobadmin.php?noob_name=Codx1) please go Here. (http://noobpoints.tehintar.net/noobadmin.php?noob_name=Codx1)

For more information from This database (http://noobpoints.tehintar.net/noobadmin.php) please go Here. (http://noobpoints.tehintar.net/noobadmin.php?)

For more information on The Noob Points System (http://noobpoints.tehintar.net/) please go Here. (http://noobpoints.tehintar.net/)

For more information on Noobs (http://www.villavu.com/forum/showthread.php?t=5265) please go Here. (http://www.villavu.com/forum/showthread.php?t=5265)

NOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOB

ratchet jr2
09-28-2007, 08:11 PM
egh sry my comp wont let me download scar 2.03(says files r corrupt when there not wtf?)

http://noobpoints.tehintar.net/dynamicblue.php (http://noobpoints.tehintar.net/noobadmin.php)

LOL?
10-02-2007, 04:01 PM
Going to try it now.. Im wanting to make a draynor shrimp fisher -> banker.
Can any1 help me pls i know NOTHING about scrips :s

~ LOL? ~

HyperSecret
10-02-2007, 07:08 PM
wow stop being grave diggers this script is alost 3 months old and doesnt work with srl 4 at all!!!

peter911
10-13-2007, 10:45 AM
it writes:
Line 48: [Error] (14884:1): Unknown identifier 'SetupSRLFishing' in script
what should i do??

niqje
10-13-2007, 05:25 PM
Heres my powerfisher, it fishes full load of fish and drops
supports net/cage and harpoon fishing

Works only with scar 2.03

Instructions:

Start near fishingspot fishing equipment in first inventory slot,
if not in first it will get dropped. Then run the script

Known Bugs:

- will drop fishing equipment if not in first slot
- switches fishingspot every 20 second


Credits:

SRL
------------------

program PowerFisher;

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fishing.scar}


var
DidhandleRandoms: Boolean;
fishAmount,i: Integer;


const

FishSpotColor = 15714472; // set fishspot color here, if cant find
Loads = 6; // how many loads per player?
FishWait = 20000; // time it waits between clicks

procedure DeclarePlayers;
begin
HowManyPlayers := 3; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;


Players[0].Name :=' '; // Name Here
Players[0].Pass :=' '; // PassWord Here
Players[0].Nick :=' '; // 3-4 letters of your name
Players[0].Active:=True; // True if active, false if not

Players[1].Name :=' ';
Players[1].Pass :=' ';
Players[1].Nick :=' ';
Players[1].Active:=True;

Players[2].Name :=' ';
Players[2].Pass :=' ';
Players[2].Nick :=' ';
Players[2].Active:=true;

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

End;

procedure LoggIn;

begin
SetUpSRL;
SetupSRLFishing;
DeclarePlayers;
LoginPlayer;
end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
if (Result = true) then
DidhandleRandoms := true;
end;

procedure DoRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
PopUp('ontinue')
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;

Procedure Running;
Begin
SetRun(True);
GameTab(4);
end;

procedure FindFish;
begin
repeat
if FindObj(x,y,'age',FishSpotColor,5)or
FindObj(x,y,'net',FishSpotColor,5)or
FindObj(x,y,'poon',FishSpotColor,5)
then
MMouse(x,y,0+random(2),0+random(3));
Mouse(x,y,0,0+random(3),true);
Wait(FishWait+random(2000));
DoRandoms;
HandleWhirlPool;
until(InvFull);
FishAmount:= FishAmount + 27;
end;


procedure DropFish;
begin
DropTo(2, 28);
end;

procedure ProggyReport;
begin
Writeln('///////////////////////////////////////////');
Writeln('------CoDx1---PowerFisher---Report-------');
Writeln('///////////////////////////////////////////');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Fished '+ IntToStr(FishAmount) + ' fish');
Writeln('///////////////////////////////////////////');
end;

begin
i := i + 1;
ClearDebug;
ActivateClient;
LoggIn;
repeat
HighestAngle;
Makecompass('N');
Running;
FindFish;
DropFish;
ProggyReport;
SRLRandomsReport;
if (not(Loggedin)) then NextPlayer(false);
if (loads=i)then
begin
NextPlayer(True);
HighestAngle;
MakeCompass('N');
end;
until(false);
end.


Should be able to run atleast over 10 hours , I think :bart:


have fun :)

i will try out ^^

Dumpin
10-13-2007, 05:31 PM
are you leechers fucking blind?! look what hypersecret wrote, IT DOESN'T WORK!! so stop posting useless shit and post some normal posts.

killer1
10-14-2007, 02:58 AM
well done very organzied

alpinethat
10-14-2007, 09:40 PM
nice script :)

Cruel100
10-23-2007, 08:15 PM
A version for new scar will be cool!

alucard dumart
10-23-2007, 11:11 PM
it look nice but it could use a bank in it would make it better but it still nice

camdo2
10-23-2007, 11:39 PM
Uh... I'm making a script based off of yours and when I use "DropTo" it does not work.

maywyue
10-25-2007, 07:30 AM
i'm new.. testin this..
but i get
Line 31: [Error] (57:1): Duplicate identifier '' in script C:\Program Files\SCAR 3.11\includes\SRL/SRL/Core/Globals.scar
:s why is it so ?

draeger
11-09-2007, 04:11 AM
Line 48: [Error] (14884:1): Unknown identifier 'SetupSRLFishing' in script C:\Program Files\SCAR 3.12\Scripts\PoweFisher by Codx1.scar


i dont get it? what should go there?.... other than that script should work fine.. =]

The Mod
11-09-2007, 05:32 AM
Ima try it