16
UOSteam / Re: AssistUO
« on: April 12, 2013, 07:55:35 AM »
Alot has to do with whether or not you are using the Scavenger and/ autoloot function. What server are you playing with it?
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Program Paramenot
var
ctime: TDateTime;
Procedure Arrow;
begin
if Mana > 10 then
begin
Cast('Magic Arrow');
WaitTarget(1,1000);
TargetToObject(Self);
end;
end;
Procedure CheckJournal;
begin
if InJournalBetweenTimes ('Paralyze', ctime, Now) <> -1 then
begin
Arrow;
end;
end;
begin
if (GetPathArray(PredictedX, PredictedY, PredictedZ, GetX(Host), GetY(Host), 1, True, p) > 0) then
begin
StepQ(CalcDir(PredictedX, PredictedY, p[0].X, p[0].Y), True);
end;
end
(* Procedure Check_Targets *)
Procedure Check_Targets();
var FriendList : Array of Integer; // If only accessed in this Procedure, no need to reserve Variable Global.
var CurrentFriend : Integer;
begin
FriendList := [$0002A4EF, $0002CE7F, $000F7F27];
if CurrentFriend in FriendList do
begin
if ( (GetHP(CurrentFriend) < GetMaxHP(CurrentFriend)) AND ( GetHP(CurrentFriend) > 0 ) AND ( TargetPreset() ) AND ( GetDistance(CurrentFriend) < 11 ) AND ( Mana() > 10 ) AND (CheckLOS( GetX(Self()) , GetY(Self()) , GetZ(Self()) , GetX(CurrentFriend) , GetY(CurrentFriend) , GetZ(CurrentFriend) , WorldNum() ) ))then
begin
TargetToObject(CurrentFriend);
exit;
end;
end;
end;
begin
losOptions := losTypeRunUO;
while not dead do
begin
//edited out
begin
c := GetPathArray(PredictedX, PredictedY, PredictedZ, GetX(Host), GetY(Host), 1, True, p);
if c > 0 then StepQ(CalcDir(PredictedX, PredictedY, p[0].X, p[0].Y), True);
end;
//edited out
end;
end.
procedure checkthem;
begin
Friend := [$assigned, $assigned, $assigned, $assigned];
for i := 0 to Length(Friend) -1 do
begin
res := CheckLoS(getX(self), getY(self), getZ(self) + 15, getX(Friend[i]), getY(Friend[i]), getZ(Friend[i]) + 15, WorldNum);
//edited out
end;
end;