Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Problem]TibiaBotNG co dopisać?


Htp

Rekomendowane odpowiedzi

Opublikowano

jak expisz na jednym rodzaju potworku to spróbuj tego(nie wiem czy działa)

 

Const
 spelltouse = 'czar'
 CreatureName = 'potwór
 NumberOfMonsters = 0
 MinHealth = 0
 MinMana = 0 
function CountMonstersBesideYou:Integer;
begin
 Result := 0;
 UpdateWorld;
 for i := 0 to creatures.Count -1 do
 begin
   if i >= Creatures.Count then break
   for x := -1 to 1 do
   begin
  if x >= 2 then break
  for y := -1 to 1 do
  begin
    if y > 1 then break;
    if Creatures.Creature[i].NPC then
    if (Creatures.Creature[i].x = Self.X +x) and (Creatures.Creature[i].y = Self.y + y) and (Creatures.Creature[i].Z = Self.Z) and (Creatures.Creature[i].Name = CreatureName) then
    Result := Result + 1;
  end;
   end;
 end;
end;
while not terminated do
begin
 UpdateWorld;
 if CountMonstersBesideYou >= NumberOfMonsters then
 if Self.Mana >= MinMana then
 if Self.Health > MinHealth then
 Self.Say(spelltouse);
 sleep(100);
end; 

52126142219396245817.jpeg

Pomocnik
Opublikowano

jak expisz na jednym rodzaju potworku to spróbuj tego(nie wiem czy działa)

 

Const
 spelltouse = 'czar'
 CreatureName = 'potwór
 NumberOfMonsters = 0
 MinHealth = 0
 MinMana = 0
function CountMonstersBesideYou:Integer;
begin
 Result := 0;
 UpdateWorld;
 for i := 0 to creatures.Count -1 do
 begin
if i >= Creatures.Count then break
for x := -1 to 1 do
begin
  if x >= 2 then break
  for y := -1 to 1 do
  begin
	if y > 1 then break;
	if Creatures.Creature[i].NPC then
	if (Creatures.Creature[i].x = Self.X +x) and (Creatures.Creature[i].y = Self.y + y) and (Creatures.Creature[i].Z = Self.Z) and (Creatures.Creature[i].Name = CreatureName) then
	Result := Result + 1;
  end;
end;
 end;
end;
while not terminated do
begin
 UpdateWorld;
 if CountMonstersBesideYou >= NumberOfMonsters then
 if Self.Mana >= MinMana then
 if Self.Health > MinHealth then
 Self.Say(spelltouse);
 sleep(100);
end;

 

A mógłbyś takie coś napisać do używania potiona,żeby używal gdy nie ma potwora na ekranie??

Bulixs.png

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...