Program Fishing var trashitem array of Word Procedure droptrash var in

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
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 Loot;
var
e : integer;
CorpseID : Cardinal;
Loottype: array of Cardinal;
begin
FindDistance:= 1;
Loottype := [$0E3E, $0E3E, $3B03, $09AA];
for e := 0 to Length(Loottype) -1 do
begin
if FindType(Loottype[e],ground) > 0 then
begin
MoveItem(finditem,0,BackPack,0,0,0);
wait(500);
end;
end;
end;
procedure Fish; //???????
var
ex, x, y : Integer;
sTime : TDateTime;
begin
for x:=-4 to 4 do
begin
for y:=-4 to 4 do
begin
repeat
// ToHide;
sTime := Now;
AddToSystemJournal('Fishing');
UseType($0DBF,$FFFF)
WaitForTarget(5000);
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|location|Far|in water|elsewhere|perform|fish into|so close', 150000);
ex := InJournalBetweenTimes( 'no fish|location|Far|in water|elsewhere|Target cannot|fish into|seem to be biting here|so close', sTime, Now );
until ( ex >= 0 );
loot;
end;
end;
end;
begin
SetPauseScriptOnDisconnectStatus(True);
SetARStatus(True);
while not dead or (GetSkillValue('Fishing') < 100.0) do
begin
AddToSystemJournal('1') ;
droptrash;
//NewMoveXY(1370, 3365,True,0,True) ;
AddToSystemJournal('2') ;
Fish;
end;
end.