Fishing AbyssKR

[shinma]

Просто создайте рыбака в нубогороде абиса кр и запустите этот скрипт. он все сделает сам.

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.