[Allegro]

Boce kumplowi hara na ultra ots i mam skrypt na strzelanie z sd :

Const
Hmm=3155; // enter the ID of HMM rune.
MiniHealth=400/ enter the minimum hp valuse so if your hp is lower then that,
//it wont shoot hmm so you wont get exusted and will be able to auto uh.
var
Creature:TCreature;
LOCKID:integer;

function GetCreatureByID(ID: integer): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].ID = ID then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;


function GetCreatureByName(Name: String): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].Name = Name then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

begin
while not Terminated do
begin
updateworld;
Creature:=GetCreatureByName('Warlock');
if Creature<>nil then
begin
LOCKID:=Creature.ID;
While Creature <> nil do
begin
If self.Health>MiniHealth then
Self.Containers.UseItemWithCreature(Hmm, Creature);
Sleep(100);
updateworld;
Creature:=GetCreatureByID(LOCKID);
end;
end;
Sleep(100);
end;
end;

Ale on nie dziala [ syntax error ]. wiecie co moze jest zle w nim ?

[muttley]

A jaki nr linii?

[Faraonek]

Const
Hmm=3155; // enter the ID of HMM rune.
MiniHealth=400; // enter the minimum hp valuse so if your hp is lower then that,
//it wont shoot hmm so you wont get exusted and will be able to auto uh.
var
Creature:TCreature;
LOCKID:integer;

function GetCreatureByID(ID: integer): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].ID = ID then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;


function GetCreatureByName(Name: String): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].Name = Name then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

begin
while not Terminated do
begin
updateworld;
Creature:=GetCreatureByName('Warlock');
if Creature<>nil then
begin
LOCKID:=Creature.ID;
While Creature <> nil do
begin
If self.Health>MiniHealth then
Self.Containers.UseItemWithCreature(Hmm, Creature);
Sleep(100);
updateworld;
Creature:=GetCreatureByID(LOCKID);
end;
end;
Sleep(100);
end;
end;

Wystarczyło dodać ; oraz zrobić prawidłowy komentarz w trzeciej linii.

pozdro