Temat: Szukasz skryptu? Zajrzyj tutaj!

Const 
  BPnumber = 1 // do ktorego bp odkladac ringa
  Ring_ID = 3092
  RingInUse_ID = 3094 // tu musisz sam wpisac id (bo nie znam)
  MonsterList = ['Frost Dragon','Dragon Lord','Demon','Hydra'] // wszystkie potwory, jakie mozesz spotkac

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; 
  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.Container[BPnumber-1],0,0); 
  sleep(500); 
end;