Temat: Szukasz skryptu? Zajrzyj tutaj!

const SIO_PERCENT = 70;// here is// here is the % of life of ur friend
const UH_PERCENT = 20;// here is the % of life of ur friend
const SIO_MANA = 70;// here is the % of life of ur friend
const ITEM_UH_RUNE = 3160;
var
c: TCreature;
rune: TItem;
function FindItem(id: integer): TItem;
begin
UpdateWorld;
for x := 0 to Self.Containers.Count - 1 do
begin
UpdateWorld;
for y := 0 to Self.Containers.Container[x].Count - 1 do
begin
UpdateWorld;
if Self.Containers.Container[x].Item[y].ID = id then
begin
Result := Self.Containers.Container[x].Item[y];
Exit;
end;
end;
end;
end;

while not Terminated do
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
c := Creatures.Creature[x];
if c.PartyMember then
begin
UpdateWorld;
if c.Health <= UH_PERCENT then
begin
UpdateWorld;
rune := FindItem(ITEM_UH_RUNE);
if rune <> nil then
rune.UseWithCreature(c);
Sleep(2000);
end;
UpdateWorld;
if (c.Health <= SIO_PERCENT) and (self.Mana >= SIO_MANA) then
begin
UpdateWorld;
Self.Say('Exura Sio "' + c.Name + '"');
Sleep(2000);
end;
end;
end;
Sleep(100);
end;