newguy45
2006-06-14 02:58:10
JingleBits really did all the work here all i did was changed some values so the procedures would work, for instance i fixed the SelectBait; procedure and I disabled the talk procedure because it was just…bad anyway ill be adding a choose rod procedure soon so keep a look out.
//made by JingleBits EDITED by newguy45
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;//keep as 0 the slient feacture is broken...
BaitType='F';//A for Grade A. D for Grade D. F for Grade F.
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 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; // uncomment the procedure in the main loop to use
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;
repeat
report;
SelectBait;
//Talk;
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.