Temat: Szukasz skryptu? Zajrzyj tutaj!

auto 1000 useitem 3031

and then auto 3000 stackitems

 Const
MinCreatures = 3
BPnumber = 2 // in which BP to put back the ring?
Ring_ID = 3091 //enter the ID of the ring.
RingInUse_ID = 3094
MonsterList = ['Frost Dragon','Dragon Lord','Demon','Hydra','Warlock','Ancient Scarab']

function CountCreatures: integer;
begin
Result := 0;
for x := 0 to Creatures.Count - 1 do
begin
if (Creatures.Creature[x].Z = Self.Z) and
(Creatures.Creature[x].NPC) then
Result := Result + 1;
end;
end;

function GetCreatureByIDAndName(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
for i := LoW(MonsterList) to high(MonsterList) do
if Creatures.Creature[x].Name = MonsterList[i] then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

function GetItemFromOpenBackpack(ID: integer): TItem;
var
x: integer;
y: integer;
begin
Result := nil;
for x := 0 to Self.Containers.Count - 1 do
begin
if x >= Self.Containers.Count then Break;
for y := 0 to Self.Containers.Container[x].Count - 1 do
begin
if y >= Self.Containers.Container[x].Count then Break;
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;
if CountCreatures >= MinCreatures then
begin
C := GetCreatureByIDAndName(Self.Attacking);
if C <> nil then
if Self.Ring.ID <> RingInUse_ID then
begin
Ring := GetItemFromOpenBackpack(Ring_ID);
if Ring <> nil then
Ring.MoveToBody(Self.Ring,0);
else Self.DisplayText('Ring wasnt found in an opened BP');
end;
if C = nil then
if Self.Ring.ID = RingInUse_ID then
Self.Ring.MoveToContainer(Self.Containers.Containe r[BPnumber-1],0,0);
sleep(500);
end;
end;
Reply With Quote