[szukam] skryptow do tibia bot ng 7.92

[TheRid3rPL]

siema ma ktos skrypty na mwalla przed sb manarune i sd pod tibia bot ng 7.92 ?

[quzevsky]

Na manarunowanie:

Const
  Manarune_ID = 3157
  MinMana = 1200
  MaxMana = 2030

while not terminated do
begin
  UpdateWorld;
  if Self.Mana <= MinMana then
  while Self.Mana < MaxMana do  
  begin
    if terminated then break;
    self.containers.useitemwithself(ManaRune_ID);
    sleep(100);
    UpdateWorld;
  end;
  sleep(100);
end;

Na sd oraz rzucanie m walli przd siebie niestety nie mam, a też szukam

[C4T]

MR:

Const
  Manarune_ID = 3157
  MinMana = 1200
  MaxMana = 2030

while not terminated do
begin
  UpdateWorld;
  if Self.Mana <= MinMana then
  while Self.Mana < MaxMana do  
  begin
    if terminated then break;
    self.containers.useitemwithself(ManaRune_ID);
    sleep(100);
    UpdateWorld;
  end;
  sleep(100);
end;

M WALL PRZED FACE

// by Kylu =)

while not terminated do
 begin
	UpdateWorld;
        case Self.Direction of 
          0:  Self.Containers.UseItemWithGround(3180, Self.X, Self.Y - 1, Self.Z);
          1:  Self.Containers.UseItemWithGround(3180, Self.X + 1, Self.Y, Self.Z);
          2:  Self.Containers.UseItemWithGround(3180, Self.X, Self.Y + 1, Self.Z);
          3:  Self.Containers.UseItemWithGround(3180, Self.X - 1, Self.Y, Self.Z);
        end; 
 sleep(150);
end; 

SD:

const  
  delay = 0.1 // delay to wait between shooting SDs on the demon. 
  MonsterName = 'NAAZWA MOOBAA'  
  MinHP = 0 // if YOU have under this HP you will not shoot sd.  
  MonsterHP = 0 // if MONSTER has this % of HP or less it will not shoot on it.  
  RuneID = 3155 // enter the ID of rune.  

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;     

procedure Attack(Name:string);     
var     
   Player:TCreature;     
   x:integer;     
begin     
  updateworld;     
  Monster :=GetCreatureByName(Name);     
  if monster <> nil then   
  if Self.Health>MinHp then     
  begin     
    Self.Containers.UseItemWithCreature(RuneID, Monster);     
    updateworld;     
  end     
end;     

while not terminated do  
begin  
  Yes := false;  
  UpdateWorld;  
  for i := 0 to creatures.Count - 1 do  
  begin  
    if creatures.Creature[i].Z = Self.Z then  
    If Creatures.Creature[i].Name = MonsterName then  
    begin   
      Yes := true;  
      repeat  
        Attack(MonsterName);  
        Sleep(Delay * 1000);  
        UpdateWorld;  
        for g := 0 to creatures.Count -1 do  
        begin  
          if creatures.Creature[i].Z = Self.Z then  
          If Creatures.Creature[i].Name = MonsterName then  
          Yes := True else Yes := false; else yes := false;  
        end;  
      until Yes = false;  
    end;  
    sleep(100);  
  end;  
  Sleep(100);  
end; 

[qwert1213344]

siema szukam skryptu na otwieranie cial ng 8.7

 

 

http://wklej.org/id/2078794/re/?s=1

 

ten skrypt pod tym linkiem nie działa