[TibiaBot NG] Skrypty

[Wrotek]

@Makin i ktos tam jeszcze :P: Ew. dalo by rade zrobic wlasnie z parcelem, ale narazie nie mam za wiele czasu na to, zobacze jeszcze.

 

A topic mozna zamknac, mowie Wam bye bye.

 

@Makin: Masz to co chciales, pierwszy post na koncu.

[Makin]

Wielkie dzięki za skrypt, wszystko działa

[kilo91]

Siema mógłbyś mi podać skrypt atakujący 1 ghula i żeby przestawał atakować jak ma 30 hp i znów zaczynał jak ma 40 byłbym Ci bardzo wdzięczny. Pozdrawiam

[Wrotek]

Poniewaz nie mam jak tibi odpalic nawet, nie mialem jak sprrawdzic ale sprobuj cos takiego:

 

const
  stopHP = 40;
  attackHP = 50;

function findghoul:creature;
var
x,i:integer;
first : boolean;
begin
UpdateWorld;
first := true;
i:=0;
for x := 0 to Creatures.Count - 1 do
begin
   if (
	   (Abs(Creatures.Creature[x].X - Self.X) <= 1) and
	   (Abs(Creatures.Creature[x].Y - Self.Y) <= 1) and
	   (Creatures.Creature[x].Z = Self.Z) and
	   (Creatures.Creature[x].NPC=true) and
   (Creatures.Creature[x].name = 'ghoul') 
	  )	
   then result := Creatures.Creature[x];
end;
end;

var
  ghoul:creature;
begin
  ghoul:=findghoul;
  if ghoul.hp < stopHP then ghoul.attacking := false
  else if ghoul.hp > attackHP then ghoul.attacking := true;
end;

 

powinno dzialac.

 

Aha... hp musisz podac w %

[kilo91]

"[Error] skrip na ghula.ng(29): Unknown identifier or variable is not declared: 'creature' " to mi wyskakuje

[Wrotek]

glupi blad, juz poprawielm

[Adikss]

Ja potrzebuję skrypt, który będzie lootował speary i rzucał je w miejsce broni.

Będzie podnosił np. max 5 spearów, żeby mi się cap nie zawalił samymi spearami. ;-)

[Shadowek]

Witam, byłbym wdzięczny jeśli by ktoś opublikował i napisał jak się go uruchamia. Chodzi mi o "Pot Trap". Czyli, aby 8 potów zablokowywało jakiegoś ziomka.

[Wrotek]

potów? Mow bardziej jak do debila :P

[Shadowek]

potów? Mow bardziej jak do debila :P

Chodzi mi oto, aby trapować ludzi za pomocą potów(garnków). W taki sposób

 

xxx

x0x

xxx

gdzie: x to pot, a 0 to gracz.

[Wrotek]

Dobra jzu wiem o co Ci chodzi :P

 

 

Zrobic takie cos moge ale nie wiem czy to wypali, po wiekszosci akcji (w tym rzucenie itemu, chyba tylko przy chodzeniu sie nie czeka) trzeba odczekac wiec zrobienie trapa z takiego czegos by trwalo kilka sekund

[Shadowek]

Ok nie ma sprawy. Tylko jakbyś mógł odrazu takto wyjaśnić co i jak. Na cavebociarzy się przyda.

[Wrotek]

Na poczatku w DELAY ustawiasz co ile ma rzucac nastepny garnek a w NICK ustawiasz jakiemu gracozwi chcesz trapa zrobic, wklejasz wszystko do scriptera i dajesz execute script. Jezeli chcesz to do jakichs warow uzywac na otsie czy rl tibi to moge Ci dodac zeby odpalalo sie to komenda w grze

 

const
  DELAY = 50;
  NICK = 'Umby';
  ITEMID = 3465;

function getPlayer(name:string) : Creature;
begin
for i := 0 to Creatures.Count - 1 do
  begin
  if Creatures.Creature[i].name = name then
  begin
	 result := Creatures.Creature[i];
	 exit;
  end;
  end;
end;

function getItem : item;
var
  i,j:integer;
begin
  for i:=0 to self.containers.count -1 do
  begin
  for j:=0 to self.containers.container[i].count -1 do
	 if self.containers.container[i].item[j].id = ITEMID then
	 begin
		result := self.containers.container[i].item[j];
		exit; 
	 end;
  end;
end;

procedure trap(name:string);
var
  i,j:integer;
  target : creature;
  pot : item;
begin
  updateworld;
  target := getPlayer(name);
  if target > nil then
  begin
  for i:=-1 to 1 do
  begin
	 for j:=-1 to 1 do
		if not ((j=0) and (i=0)) then
		   begin
			  updateworld;
			  pot := getItem;
			  if pot >=0 then
			  begin  
				 pot.movetoground(target.x+i,target.y+j,target.z,1);
				 sleep(DELAY);
		end else exit;  
	 end;
  end;
  end;
end;

begin
  trap(NICK);
end;

[Shadowek]

Coś nie działa. Wyskakuje mi coś takiego:

[Error] Unititled(54): Syntax error

[Wrotek]

Dziala :P Przy kopiowaniu dodalem mala rzecz i przy NICK = 'Wrotek' dalem 2x ' przez co blad byl :P juz poprawilem

[Shadowek]

No teraz działa, ale mam takie pytanie czy ja ciągle musze naciskać te execute script czy jak? Bo jeżeli nie to bardzo wolno lecą te poty. :/

@edit: pięknie działa ;** dzięki. Może można jakoś by na jakimś hotkey czy coś ustawić?

@edit2: Coś jeszcze... max lecą mi 3 poty. :/

Ponownie coś nie leci więcej niż te 3 poty trzeba w tym skrypcie mieć wolne miejsce all?

[Wrotek]

ze co jak nacisniesz execute script to powinien odrazu 9 potow jebnac, skopiuj jeszcze raz bo przedchwila mala rzecz jeszcze poprawilem, w ogole cos zjebalem przy kopiowaniu, cos starszego dalem dlatego problemy byly, ale juz jest OK :PP

 

89.79.185.221 - poalcz sie z tym otsem to Ci pokaze tongue.gif

 

passy 123/123

[duda12]

wrotek jak potrawisz zrobic scrypta na skilwoanie na rotwormach w thais albo na trolach w thais to wez mi zrob zeby mnie 2 bily tylko z gory dzieki

[Wrotek]

lol... masz w 1 poscie! omfg!

[tymek]

Mam pytanko ....

Jak zrobić aby skrypty Działały ?

[Pawluk1]

Otoz scrackowalem tibia bot ng na tibie 8.1 i chce zeby mi pił potiony, lecz w starszej wersji nie bylo takiej opcji

Ma ktos script dzieki ktoremu moglbym sie leczyc? Z gory dzieki Aha i jescze doddam ze Id great potiona to 239. Ma ktos skrypt?

[Wrotek]

jakie potiony? :P sorry ale od 8.0 nie gram w tibie i nie wiem jakie zmiany sa w 8.1

[Pawluk1]

great health potiony...

[kilo91]

Witam!

Chciałbym uzyskać script, mianowicie taki żeby leczył mnie gdy mam x hp, najmniejszym potionem - rzecz zamiast uh (jeżeli to coś pomoże to mam go ustawiony na F1) z góry wielkie dzięki:)

PS id potiona to 266

[Robsik]

Masz Tu Skrypty na Leczenie!

 

 

Const

Minhealth = 1200

NumberOfVialsToDrink = 1

Delay = 2

while not terminated do

begin

UpdateWorld;

if Self.health <= Minhealth then

begin

for i := 1 to NumberOfVialsToDrink do

begin

if (i >= NumberOfVialsToDrink + 1) or (terminated = true) then break;

Self.Containers.UseItemWithSelf(239);

Sleep(Delay*1000);

end;

end;

Sleep(500);

end;