Code: Select all
Program Fishing;
var
trashitem:array of Word;
Procedure droptrash; //Выкидываем хлам под ноги
var
i:integer;
begin
trashitem := [$170F ,$1711,$170D,$170B,$09CE,$09CC, $09CF,$09CD];
for i:=0 to (GetArrayLength(trashitem)-1) do
while FindType(trashitem[i],BackPack) > 0 do
begin
Drop(FindItem, 999, GetX( Self )+random(2),GetY( Self )-random(2),GetZ( Self ));
wait(2000);
end;
end;
procedure ToHide; //встаем в хайд
begin
if not Hidden then
begin
UseSkill('Hiding');
WaitJournalLine( Now, 'You have|You can', 6000 );
AddToSystemJournal('Hiding') ;
end;
end;
procedure Fish; //рыбачим
var
ex, x, y : Integer;
sTime : TDateTime;
begin
for x:=-5 to 5 do
begin
for y:=1 to 5 do
begin
repeat
// ToHide;
sTime := Now;
AddToSystemJournal('Fishing');
UseObject( $400F1E33);
//TargetToTile( 1341,( GetX( Self ) + x ),( GetY( Self ) + y ),0 );
TargetToXYZ(( GetX( Self ) + x ),( GetY( Self ) + y ),0);
AddToSystemJournal('X='+inttostr(GetX( Self ) + x)+' Y='+inttostr(GetY( Self ) + y ));
WaitJournalLine( sTime, 'no fish here|You fish a while|location|far away|in water|You pull|elsewhere|found|perform|seem to be biting here', 6000);
ex := InJournalBetweenTimes( 'no fish here|location|far away|in water|elsewhere|Target cannot|seem to be biting here', sTime, Now );
until ( ex >= 0 );
end;
end;
end;
begin
SetPauseScriptOnDisconnectStatus(True);
SetARStatus(True);
while not dead or (GetSkillValue('Fishing') < 100.0) do
begin
AddToSystemJournal('1') ;
droptrash;
NewMoveXY(3520, 2607,True,0,True) ;
AddToSystemJournal('2') ;
Fish;
AddToSystemJournal('3') ;
droptrash;
NewMoveXY(3504, 2616,True,0,True) ;
AddToSystemJournal('4') ;
Fish;
end;
end.