newguy45
2006-06-22 22:42:46
////////////////////////////////////////////////////////////////////////////////
// -GaiaOnline- //
// -Auto Fisher- //
// -Revamped- //
// -------------------------------------------------------------------------- //
// -Script By JingleBits- //
// -revamped by newguy45- //
// .................................................... //
// -Credit to Immafatmess for dealing with my ranting thanks man- //
// -------------------------------------------------------------------------- //
// -whats new- //
// .................................................... //
// -Newly added SelectRod procedure- //
// -Minor color adjustments- //
// -------------------------------------------------------------------------- //
// -instructions- //
// .................................................... //
// -Drag the crosshair onto the fishing screen- //
// -Set the bait type to eather A,D, or F. //
// -Set the rod choice to eather- //
// -p for proformance- //
// -p+ for Proformance plus- //
// -b for bacic- //
// -b+ for basic plus- //
// -d for distance- //
// -d+ for distance plus- //
// -s for strangth- //
// -s+ for strangth plus- //
////////////////////////////////////////////////////////////////////////////////
program GiaFish;
var Hours,Minutes,RealMins,Seconds,RealSecs,
x,y,c,d,z,z2,x2,x3,xmin,xmax,Fish,Bait,
L,R,P,Q:integer;
StartTime:LongInt;
TotalTime,TotalTime2:string;
const
Click=0;// dont fuck with this
BaitType='F';//A for Grade A. D for Grade D. F for Grade F
RodChoice='p+';//p,b,d,s,p+,b+,d+,s+,b+
procedure SelectRod;
Begin
If(RodChoice='b')Then
begin
if(FindColor(x,y,26367,601,445,631,471))then
repeat
clickmouse(x,y,true);
wait(500);
until(GetColor(541, 386)=5731482);
end;
If(RodChoice='b+')Then
begin
if(FindColor(x,y,26367,601,445,631,471))then
repeat
clickmouse(x,y,true);
wait(500);
until(GetColor(541, 386)=5731482);
clickmouse(x,y,true);
end;
If(RodChoice='d')Then
begin
if(FindColor(x,y,26367,601,445,631,471))then
repeat
clickmouse(x,y,true);
wait(500);
until(GetColor(551, 397)=9402461);
end;
If(RodChoice='d+')Then
begin
if(FindColor(x,y,26367,601,445,631,471))then
repeat
clickmouse(x,y,true);
wait(500);
until(GetColor(551, 397)=9402461);
clickmouse(x,y,true);
end;
If(RodChoice='s')Then
begin
if(FindColor(x,y,26367,601,445,631,471))then
repeat
clickmouse(x,y,true);
wait(500);
until(GetColor(526, 369)=4997255);
end;
If(RodChoice='s+')Then
begin
if(FindColor(x,y,26367,601,445,631,471))then
repeat
clickmouse(x,y,true);
wait(500);
until(GetColor(526, 369)=4997255);
clickmouse(x,y,true);
end;
If(RodChoice='p')Then
begin
if(FindColor(x,y,26367,601,445,631,471))then
repeat
clickmouse(x,y,true);
wait(500);
until(GetColor(533, 362)=7445074);
end;
If(RodChoice='p+')Then
begin
if(FindColor(x,y,26367,601,445,631,471))then
repeat
clickmouse(x,y,true);
wait(500);
until(GetColor(533, 362)=7445074);
clickmouse(x,y,true);
end;
wait(2000);
end;
procedure Cast;
begin
if(Not(GetColor(485, 371)=13033719))Then
begin
c:=0;
If(Getcolor(254,450)=12370107)Then
begin
repeat
Clickmouse(270,315,true);
c:=c+1;
until(c>Click-1);
end;
c:=0;
repeat
wait(10)
c:=c+1;
until(GetColor(414,450)=3813571)or(c>390)
c:=0;
repeat
Clickmouse(270,315,true);
c:=c+1;
until(c>Click);
c:=0;
end;
end;
Procedure SelectBait;
Begin
If(GetColor(313, 215)=16777215)Then
Begin
Bait:=Bait+1;
If(BaitType='A')Then
begin
repeat
ClickMouse(370,278,True);
c:=c+1;
until(c>Click);
end;
If(BaitType='D')Then
begin
repeat
ClickMouse(450,278,True);
c:=c+1;
until(c>Click);
end;
If(BaitType='F')Then
begin
repeat
ClickMouse(526, 267,True);
c:=c+1;
until(c>Click);
end;
Wait(3000)
end;
end;
Procedure FirstBait;
Begin
If(GetColor(313, 215)=16777215)Then
Begin
Bait:=Bait+1;
If(BaitType='A')Then
begin
repeat
ClickMouse(370,278,True);
c:=c+1;
until(c>Click);
end;
If(BaitType='D')Then
begin
repeat
ClickMouse(450,278,True);
c:=c+1;
until(c>Click);
end;
If(BaitType='F')Then
begin
repeat
ClickMouse(526, 267,True);
c:=c+1;
until(c>Click);
end;
Wait(3000)
end;
end;
procedure KeepTime;
begin
Seconds:=(GetSystemTime-StartTime) div 1000;
Minutes:=Seconds div 60;
Hours:=Minutes div 60;
if(not(Minutes=0))then
RealSecs:=Seconds mod (Minutes*60);
if(not(Hours=0))then
begin
RealSecs:=Seconds mod (Minutes*60);
RealMins:=Minutes mod (Hours*60);
end;
if(Minutes=0)then
if(Seconds<10)then
TotalTime:=(inttostr(Hours)+':0'+inttostr(Minutes)+':0'+inttostr(Seconds)) else
TotalTime:=(inttostr(Hours)+':0'+inttostr(Minutes)+':'+inttostr(Seconds));
if(Hours=0)then
begin
if(not(Minutes=0))then
begin
if(Minutes<10)then
begin
if(RealSecs<10)then
TotalTime:=(inttostr(Hours)+':0'+inttostr(Minutes)+':0'+inttostr(RealSecs)) else
TotalTime:=(inttostr(Hours)+':0'+inttostr(Minutes)+':'+inttostr(RealSecs));
end else
begin
if(RealSecs<10)then
TotalTime:=(inttostr(Hours)+':'+inttostr(Minutes)+':0'+inttostr(RealSecs)) else
TotalTime:=(inttostr(Hours)+':'+inttostr(Minutes)+':'+inttostr(RealSecs));
end;
end;
end;
if(not(Hours=0))then
begin
if(RealMins<10)then
begin
if(RealSecs<10)then
TotalTime:=(inttostr(Hours)+':0'+inttostr(RealMins)+':0'+inttostr(RealSecs)) else
TotalTime:=(inttostr(Hours)+':0'+inttostr(RealMins)+':'+inttostr(RealSecs));
end else
begin
if(RealSecs<10)then
TotalTime:=(inttostr(Hours)+':'+inttostr(RealMins)+':0'+inttostr(RealSecs)) else
TotalTime:=(inttostr(Hours)+':'+inttostr(RealMins)+':'+inttostr(RealSecs));
end;
end;
end;
procedure report;
begin
KeepTime;
If(Not(TotalTime=TotalTime2))then
begin
TotalTime2:=TotalTime;
ClearReport;
Addtoreport('We have been working for '+TotalTime+'.');
Addtoreport('We have caught '+inttostr(Fish)+' fish,');
Addtoreport('and have used '+inttostr(Bait)+' bait.');
end;
end;
procedure FindSpeed;
begin
z2:=GetSystemTime;
If(z2-z>500)Then
begin
z:=GetSystemTime;
If(x2>x3)Then
begin
d:=x2-x3;
end;
If(x3>x2)Then
begin
d:=x3-x2;
end;
findcolor(x3,y,0,325,291,436,417);
findcolortolerance(x3,y,526351,325,291,436,417,10);
findcolortolerance(x3,y,16768971,325,291,436,417,10);
findcolortolerance(x3,y,1118495,325,291,436,417,50);
end;
end;
procedure CatchFish;
begin
repeat
{332 for preformance rod. 323 for plus}
if(findcolor(x,y,0,325,291,436,417))or(findcolortolerance(x,y,526351,325,291,436,417,10))or(findcolortolerance(x,y,16768971,325,291,436,417,10))or(findcolortolerance(x,y,1118495,325,291,436,417,50))Then
Begin
x2:=x;
if(x2<xmin)Then
begin
xmin:=x2;
end;
if(x2>xmax)Then
begin
xmax:=x2;
end;
findcolor(c,y,26367,260,203,273,400)
FindSpeed;
if(y<384)Then
begin
status('x is at '+Inttostr(x2)+'. Lowest = '+inttostr(xmin)+'. Highest = '+inttostr(xmax)+'. Arrow = '+inttostr(y)+'. Left= '+inttostr(L)+'. Right= '+inttostr(R)+'. Speed = '+Inttostr(d)+' P/s.');
end;
If(x<380)Then
begin
movemouse(595,415);
R:=R+1;
end;
If(x>380)Then
begin
movemouse(200,415);
L:=L+1;
end;
wait(20) {^^originals} {^^originals}
End
Else
Begin
If(x2<380)or(x2=380)Then
begin
movemouse(592,415);
end;
If(x2>380)Then
Begin
movemouse(200,415);
end;
//clearreport;
//AddtoReport('Color of Lost Spot = '+inttostr(Getcolor(x,y)));
end;
report;
until(GetColor(254,450)=12370107)or(GetColor(521,277)=2699176)
R:=0;
L:=0;
c:=0;
z:=0;
z2:=0;
xmax:=0;
xmin:=600;
end;
procedure Talk;
begin
q:=q+1;
If(Q>150)Then
begin
q:=0;
Clickmouse(532,566,true);
SendKeys('hi guys');
SendKeys(chr(13));
wait(200);
SendKeys('zzzz');
SendKeys(chr(13))
wait(100);
SendKeys('damn cans');
SendKeys(chr(13))
wait(100);
SendKeys('oi! *slap* ure scareing the fish away');
SendKeys(chr(13))
end;
end;
begin
ChangeReportWidth(285)
Status('Looking For Client Window')
repeat
wait(2000)
until(FindWindowBySize(641,581))
FindWindowBySize(641,581);
ActivateClient;
wait(2000)
starttime:=getsystemtime;
xmin:=600;
FirstBait;
SelectRod;
repeat
report;
SelectBait;
//Talk; uncomment if you want to but i think its crap
Cast;
P:=P+1;
repeat
wait(100)
status('~Waiting To Fish~ ~Fish~ ~Waiting To Fish~ '+inttostr(p))
report;
findcolor(x,y,26367,260,203,273,400)
until(GetColor(440,198)=2086904)or(y>390)
If(y>200)and(y<390)and(GetColor(440,198)=2086904)Then
begin
status('FISHING! FISHING! FISHING! FISHING! FISHING! FISHING! FISHING! FISHING!')
wait(1000)
CatchFish;
Fish:=Fish+1;
P:=0;
end;
wait(400)
until(false)
end.please fill free to post comments and errors << if any lol
wond love any feedback good are bad XD