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

[TibiaBot NG] Skrypty

Wrotek

Przez Wrotek
w Tibia

Rekomendowane odpowiedzi

Wrotek Weteran

Wrotek

Opublikowano
Weteran

Wrotek

Opublikowano

temat do zamkniecia, nie pisze już skryptów

Witam. Zauwazylem ze coraz wiecej ludzi pisze posty z prosba o skrypty do NG, a wiec jezeli potrzebujesz jakiegos skryptu to sprawdz tutaj: http://forums.tibiabot.com/forumdisplay.php?f=13

 

Jezeli nie znajdziesz tam to czego potrzebujesz, lub potrzebujesz malej przerobki to napisz tutaj a ja postaram sie napisac/przerobic ow skrypt.

Niestety poniewaz jestem koderem na jednym z OTS'ow wiec czesto nie mam czasu wiec piszac tutaj posta prosze byc cierpliwym.

 

Odrazu umieszcze tutaj kilka skryptow ktore sam napisalem, nie jest ich wiele gdyz poprostu wiecej nie potrzebowalem, ale jesli chodzi o moje umiejetnosci w tym to prosze sie nie martwic, jest to zwykle programowanie w pascalu/delphi w ktorym mam jakies doswiadczenie.

 

Acha poniewaz zauwazylem ze niektorzy skrypterzy maja sklonnosc do pisania bezsensownych rzeczy, chodzi mi o np. rzucanie czaru, jedzenie fooda, odrazu mowie, jak juz powiedzialem wg mnie jest to glupota, po co pisac cos co juz jest domyslnie w NG co mniej zamula oraz wieksza pewnosc jest. Tak samo nie robie skryptow ktore robia calosc, wiekszosc skryptow ktore robie sie odrazu koncza (nie robie petli dopuki sie nie zamknie) dzieki czemu mozna dac kilka skryptow naraz, wyjatkiem jest skillowanie na slimie, niestety tutaj jest to niezbedne ze wzgledu na to ze ID matki by sie "zgubilo" gdyby skrypt sie odpalilo drugi raz, aczkolwiek wystarczy ciut przerobic skrypt, dodac cala procedure (zawsze robie osobna procedure z calym kodem a na koncu jest begin i end w ktorym wywoluje dana procedure) oraz ja wywolac w petli "while koniec=false"

 

Skrypty:

 

 

Skillowanie na slimie, na poczatku trzeba dac followa na matke zeby bot wiedzial ktorego slima nie atakowac, follow zniknie oczywiscie. Potem zeby zatrzymac trzeba napisac "stop" najlepiej na defaulcie

////////////////////////////////////////////////////////////////
///////				WRITTEN BY WROTEK				 ///////
///////		[email protected]	   GG:5441801		 ///////
////////////////////////////////////////////////////////////////

var
koniec:boolean;
mon1,mon2:creature;

function HowMuchAtk:integer;
var
x,i:integer;
begin
UpdateWorld;
i:=0;
result:=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) then result:=result+1;
end;
end;

procedure checklife;
var
i,x:integer;
cont:tcontainer;
begin
updateworld;
for i:=0 to self.Containers.count-1 do
begin
   for x:=0 to self.containers.container[i].count-1 do
   begin 
	  if self.containers.container[i].item[x].id = 2874 then 
	  begin
		 cont:=self.containers.container[i];
		 self.containers.container[i].item[x].usewithself;
		 sleep(100);
		 if cont.count = 20 then cont.item[cont.count-1].movetoground(self.x,self.y,self.z,0);
		 cont.item[cont.count-1].movetocontainer(cont,0,0);
		 break;
		 exit;
	  end;
   end;	  
end;						
end;


procedure Event_Message(Channel: integer; Name, Text: String);
begin
if (name=self.name) and (text='stop') then koniec:=true;
end;

procedure GetMonsters;
var
x,i:integer;
begin
UpdateWorld;
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)  then
	begin 
	   if i=0 then 
	   begin
		  mon1:=Creatures.Creature[x];
		  i:=i+1;
	   end
	   else if i=1 then 
	   begin
		  mon2:=creatures.creature[x];
		  i:=i+1;
	   end;		  
	end;
end;
end;


function getmom:creature;
var i:integer;
begin
updateworld;
result:=0;
for i:=0 to creatures.count-1 do
if creatures.creature[i].following=true then result:=creatures.creature[i];
if result=0 then self.displaytext('Musisz pierw dac followa na matke!');
end;

var
id:integer;
mom:creature;
begin
for i:=0 to 30 do
begin
   mom:=getmom;
   if mom>0 then break;  
end;
if mom=0 then 
begin
self.displaytext('nie znaleziono matki! Koniec petli');
exit;
end;
self.displaytext('matka znaleziona!');
koniec:=false;
id:=mom.id;
while koniec=false do
begin
  	if self.health > 150 then
begin
   GetMonsters;
   if HowMuchAtk=2 then
   if mon1.id=id then mon2.attacking := true else mon1.attacking:=true;
   ProcessEvents;
   sleep(1000);
end
else 
begin
   checklife;
   sleep(2010);
end;
end;
end;

 

 

Atakowanie potwora ktory ma wiecej HP (do skillowania przydatne, osobiscie uzywalem tego na rotach), jezeli jest wiecej niz 2 atakujacych, skrypt wlacza full atak i bije potwora ktory ma mniej hp. Mozemy tez ustawic startX, startY i startZ (w const na samym poczatku), dzieki temu skrypt bedzie sprawdzal i ew. szedl w te miejsce (x,y,z mozna wziasc ze scriptera (na dole w statusie pisze)). 

////////////////////////////////////////////////////////////////
///////				WRITTEN BY WROTEK				 ///////
///////		[email protected]	   GG:5441801		 ///////
////////////////////////////////////////////////////////////////
const
startX = 0;
startY = 0;
startZ = 0;

procedure Event_Message(Channel: integer; Name, Text: String);
begin
if name=self.name then
case text of
   'saypos': self.say('X='+self.x+'; Y=' + self.y+ '; Z='+ self.z);
   'showpos': self.displaytext('X='+self.x+'; Y=' + self.y+ '; Z='+ self.z);
end;
end;   

function GoToPos(x,y,z:integer):boolean;
var
i:integer;
begin
return:=false;
self.moveto(x,y,z);
for i:=0 to 10 do
begin
   if (self.x=x) and (self.y=y) and (self.z=z) then
   begin
	  return := true;
	  exit;
   end;
   sleep(500);	
end;  
end;

procedure checkpos;
var
i:integer;
begin
if ((self.x<>startX) or (self.y<>startY) or (self.z<>startZ)) then
begin
   for i :=1 to 5 do if GoToPos(startX,startY,startZ) then exit;  
end;
end;

function GetLowHPMonster : 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)
	  )	   
   then
   begin
	  if first then
	  begin
		 result := Creatures.Creature[x]
		 first:=false;
	  end
	  else if Creatures.Creature[x].health < result.health
		 then result := Creatures.Creature[x];
   end;
end;
end;

function GetMonster: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)
	  )	
   then
   begin
	  if first then
	  begin
		 result := Creatures.Creature[x]
		 first:=false;
	  end;
	  else if Creatures.Creature[x].health > result.health
		 then result := Creatures.Creature[x];
   end;
end;
end;

function HowMuchAtk:integer;
var
x,i:integer;
begin
UpdateWorld;
i:=0;
result:=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) then result:=result+1;
end;
end;  

var
monster : creature;
begin
ProcessEvents;
while HowMuchAtk > 2 do
begin
   self.offensive;
   monster := getLowHPMonster;
   monster.attacking := true;
end;
if (startY>0) and (startX>0) then checkpos;
self.defensive;
monster := getMonster;
monster.attacking :=true;
end;

 

 

Funkcja pijaca Life fluida/ mana fluida/viala gdy za malo hp (if self.health > 150 then usefluid; zamiast 150 nalezy wpisac wlasna liczeb), niestety poniewaz life, mana fluid i vial maja ten sam ID nie da sie ich poznac wiec musimy miec otwarty BP z life fluidami ktory nie ma pustych viali, skrypt po uzyciu lf'a wywala viala pod siebie. Skrypt mozna latwo przerobic na MF'y ale osobiscie nie widze takiej potrzeby gdyz jest taka funkcja w NG domyslnie, nie wiem jak w najnowszej wersji ale w 4.6.1 niestety tez nie rozpoznaje mfow z vialami ;(

 

////////////////////////////////////////////////////////////////
///////				WRITTEN BY WROTEK				 ///////
///////		[email protected]	   GG:5441801		 ///////
////////////////////////////////////////////////////////////////
procedure usefluid;
var
i,x:integer;
cont:tcontainer;
begin
updateworld;
for i:=0 to self.Containers.count-1 do
begin
   for x:=0 to self.containers.container[i].count-1 do
   begin 
	  if self.containers.container[i].item[x].id = 2874 then 
	  begin
		 cont:=self.containers.container[i];
		 self.containers.container[i].item[x].usewithself;
		 sleep(100);
		 if cont.count = 20 then cont.item[cont.count-1].movetoground(self.x,self.y,self.z,0);
		 cont.item[cont.count-1].movetocontainer(cont,0,0);
		 break;
		 exit;
	  end;
   end;	  
end;						
end;

begin
if self.health > 150 then usefluid;
end;

 

 

Ucieczka w wyznaczone miejsce gdy ktos nas zaatakuje oraz powrot gdy ktos nas przesunie. Na poczatku idziemy w miejsce gdzie ma uciekac i wpisujemy w dowolnym kanale "destpos" (wielkosc liter ma znaczenie, no i oczywiscie bez "") powinno nam wyswietlic jaki jest X,Y,Z miejsca ucieczki, a potem idziemy w miejsce ktore ma byc startowa pozycja i wpisujemy "startpos". Od tej chwili jezeli ktos nas zaatakuje, bot ucieknie w miejsce w ktorym wpisalismy "destpos", a jezeli sie ruszymy, albo ktos nas przesunie (oczywiscie z wylaczeniem ucieczki) bot wroci na miejsce w ktorym wpisalismy "startpos"). Zeby skonczyc, albo stopujemy skrypt w Scripterze (w dolnym prawym rogu sa pokazane uruchomione skrypty, klikamy prawym na nazwe i "stop script") albo piszemy "stop" tez w obojetnym kanale.

 

////////////////////////////////////////////////////////////////
///////				WRITTEN BY WROTEK				 ///////
///////		[email protected]	   GG:5441801		 ///////
////////////////////////////////////////////////////////////////
var
koniec,startPos,destPos:boolean;
destX,destY,destZ:integer;
startX,startY,startZ:integer;

function GoToPos(x,y,z:integer):boolean;
var
i:integer;
begin
return:=false;
self.moveto(x,y,z);
for i:=0 to 10 do
begin
   if (self.x=x) and (self.y=y) and (self.z=z) then
   begin
	  return := true;
	  exit;
   end;
   sleep(500);	
end;  
end;

procedure Event_Attacked(ID: integer);
var
i:integer;
begin
if (startpos=true) and (destpos=true) then
begin
   for i:=1 to 5 do
   begin
	  if GoToPos(destX,destY,destZ) then
	  begin
		 koniec:=true;
		 exit;
	  end;
   end;
end;
end;

procedure getDestPos;
begin
destX := self.x;
destY := self.y;
destZ := self.z;
self.displaytext('DestX='+inttostr(destX)+'; destY='+inttostr(destY)+'; destZ='+inttostr(destZ));
destPos:=true;
end;

procedure getStartPos;
begin
startX := self.x;
startY := self.y;
startZ := self.z;
self.displaytext('StartX='+inttostr(startX)+'; startY='+inttostr(startY)+'; startZ='+inttostr(startZ));
startPos:=true;
end;

procedure Event_Message(Channel: integer; Name, Text: String);
begin
if name=self.name then 
case text of
   'stop': koniec:=true;
   'destpos': getDestPos;
   'startpos': getStartPos;
end;
end;

procedure checkpos;
var
i:integer;
begin
if ((self.x<>startX) or (self.y<>startY) or (self.z<>startZ)) then
begin
   GoToPos(startX,startY,startZ)   
end;
end;

begin
koniec :=false;
destpos := false;
startpos:=false;
while not koniec do
begin
   updateworld;
   ProcessEvents;
   if (startpos=true) and (destpos=true) then
   begin
	  updateworld;
	  checkpos;
   end; 
   sleep(1000);		   
end;
end;

 

 

 

Zmiana butow z bohy na soft i na odwrot w zaleznosci od HP. Np, jezeli ustawimy w const HPsoft = 1000 i HPboh = 1500 (tak jak jest teraz), to gdy HP nam spadnie ponizej 1000 to zalozy soft buty, a gdy bedzie powyzej 1500 to zalozy bohy.

 

////////////////////////////////////////////////////////////////
///////				WRITTEN BY WROTEK				 ///////
///////		[email protected]	   GG:5441801		 ///////
////////////////////////////////////////////////////////////////
const
  BohID = 3079;
  SoftID = 6529; 
  HPsoft = 1000;
  HPboh = 1500;

procedure changeBoots(id : integer);
var
 x,i:integer;
begin
  for x:=0 to self.containers.count-1 do
  begin	
  for i:=0 to self.containers.container[x].count -1 do
  begin
	 if self.containers.container[x].item[i].id = id then 
	 begin
		self.containers.container[x].item[i].movetobody(self.feet,1);   
		exit;	 
	 end;   
  end;
  end;
end;

begin
  updateworld;
  if self.health > HPboh then
  if self.feet.ID = bohID then exit
	 else changeBoots(BohID);
  else if self.health < HPsoft then 
  if self.feet.ID = SoftID then exit
	 else changeboots(softID);	  
end;

 

 

Skrypt przy okreslonej lub mniejszej ilosci capa, wrzuca wszystkie rzeczy jednego typu jakie znajdzie w bp 1 (w ng jest pokazane jaki id ma otwarty bp)o wczesniej ustalonym ITEMID (robiony pod rybki wiec ustalony odrazu jest id rybek) do parcela. A potem idzie w okreslona przez mX; mY; mZ (na poczatku w const sie ustawia, x,y,z miejsca mozemy wziasc ze skryptera, na dole w statusie pisze) i wrzuca parcela do mailboxa.

////////////////////////////////////////////////////////////////
///////				WRITTEN BY WROTEK				 ///////
///////		[email protected]	   GG:5441801		 ///////
////////////////////////////////////////////////////////////////
const
  FISHID = 3578;
  CAP = 1000;
  mX = 1030;
  mY = 996;
  mZ = 7;

function GoToPos(x,y,z:integer):boolean;
var
i:integer;
begin
return:=false;
self.moveto(x,y,z);
for i:=0 to 10 do
begin
   if (self.x=x) and (self.y=y) and (self.z=z) then
   begin
	  return := true;
	  exit;
   end;
   sleep(500);	
end;  
end;   

procedure isMailbox;
var
  x,y,z:integer;
begin
  updateworld;
  result:=true;
  for x:=0 to 14 do
  begin	 
  for y:=0 to 10 do
  begin
	 for z:=0 to screen.tile[x][y].count-1 do
	 begin	  
		if screen.tile[x][y].item[z].properties.mailbox=true then exit;
	 end;
  end;
  end;
  result := false;
end;

function findparcel : integer;
var
  i:integer;
begin
  result := -1;
  for i:=0 to self.Containers.Container[0].Count -1 do
  if self.containers.container[0].item[i].id = 3503 then result := i;
end;

procedure sendparcel;
var
  x,y,z:integer;
begin
  for x:=0 to 14 do
  begin	 
  for y:=0 to 10 do
  begin
	 for z:=0 to screen.tile[x][y].count-1 do
	 begin	  
		if screen.tile[x][y].item[z].properties.mailbox=true then
		begin
		  // self.say('X='+inttostr(x)+'; Y='+inttostr(y)+'; Z='+inttostr(z)+'; ID='+inttostr(screen.tile[x][y].item[z].ID));
		   if findparcel >=0 then
		   begin   
			  self.containers.container[0].item[findparcel].movetoground(self.x+(x-7),self.y+(y-5),self.z,1);
			  exit;
		   end; 
		end;	  
	 end;
  end;
  end;
end;

var
  x,i:integer;
begin
  updateworld;   
  if self.capacity < CAP then 
  begin
  for i:=0 to self.Containers.Container[0].Count -1 do
  begin
	 updateworld;
	 if self.containers.container[0].item[i].id = FISHID then
	 begin
		if findparcel >-1 then
		begin
		   self.containers.container[0].item[i].movetocontainer(self.containers.container[0],findparcel,0);
		   sleep(1000);
		   i:=-1;

		end			   
		else begin
		   self.displaytext('Nie znaleziono parcela!');
		   exit;
		end;		  
	 end;
	 if i >= self.Containers.Container[0].Count -1 then break;
  end;
  updateworld; 
  for i:=1 to 5 do 
  begin
	 if GoToPos(mX,mY,mZ) then break;
  end;
  if not isMailBox then
  begin
	 self.displaytext('Nie znaleziono mail boxa!');
	 exit;
  end; 

  sendparcel;
  end; 
end;

 

 

 

Trapowanie garnkami (albo innymi itemami, wystarczy zmienic ITEMID w const na id itema), w const wpisujemy: w NICK nazwa playera ktorego chcemy trapnac i DELAY gdzie wpisujemy jaki ma byc odstep czasu miedzy rzuceniem itemu)

 

////////////////////////////////////////////////////////////////
///////				WRITTEN BY WROTEK				 ///////
///////		[email protected]	   GG:5441801		 ///////
////////////////////////////////////////////////////////////////
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;

 

 

Pozdrawiam

Wrotek.

Wrzuć.se! - zachęcam do dyskusji na temat mojej stronki do uploadowania obrazków przez ich bezpośrednie wklejanie na stronę!

  • Odpowiedzi 70
  • Dodano
  • Ostatniej odpowiedzi
Piterach Budowniczy

Piterach

Opublikowano
Budowniczy

Piterach

Opublikowano

O kurde, niech Ci bedzie napisze to w tym temacie.

Chcialbym abys zmienil skrypty, zeby ziomek zawsze stal jedna kratke przed dp, a jezeli ktos zacznie go bic to zeby sie chowal do dp. No i oczywiscie zeby przy okreslenej liczbie many wymawial odpowiednie slowa na rune.

Chyba zrozumiale napisalem. Jak czegos nie rozumiesz to pytaj.

Wrotek Weteran

Wrotek

Opublikowano
Weteran

Wrotek

  • Autor
Opublikowano

Piterach: ostatni skrypt w pierwszym poscie. Co do tego "liczbie many wymawial odpowiednie slowa na rune. " to ustaw sobie w Rune Makerze.

Wrzuć.se! - zachęcam do dyskusji na temat mojej stronki do uploadowania obrazków przez ich bezpośrednie wklejanie na stronę!

Parker Pasjonat

Parker

Opublikowano
Pasjonat

Parker

Opublikowano

Mam pytanie czy da się przerobić tego scrypta który atakuje potwora który ma więcej hp żeby atakował na ful atak 3 potworka. I gdy ucieka dobija go.

TrueBIader-Pacific.pngbeznazwyxz0.gif

28357.gif

28918.png

Wrotek Weteran

Wrotek

Opublikowano
Weteran

Wrotek

  • Autor
Opublikowano

Dobic ma go przez biegniecie za nim i bicie go z "lapy" czy w jakis inny sposob (runa, czar etc)?

Wrzuć.se! - zachęcam do dyskusji na temat mojej stronki do uploadowania obrazków przez ich bezpośrednie wklejanie na stronę!

Wrotek Weteran

Wrotek

Opublikowano
Weteran

Wrotek

  • Autor
Opublikowano

Parkek: patrz 1 post, sprawdz czy na 100% dziala, nie mialem czasu sprawdzic czy bije 3 potwora na full ataku i czy powraca ew. na miejsce.

Wrzuć.se! - zachęcam do dyskusji na temat mojej stronki do uploadowania obrazków przez ich bezpośrednie wklejanie na stronę!

lostzabol Nowicjusz

lostzabol

Opublikowano
Nowicjusz

lostzabol

Opublikowano

Witam, mógłbyś zrobić mi skrypta to TibiaBot NG na to żeby zakładał soft bootsy jak XX hp i zeby zdejmował jak hp urośnie do XX hp ??(jeszcze jak by sie dało to ze jak juz zdejme te softy to zeby spowrotem nałożył bohy)

pinio Nowicjusz

pinio

Opublikowano
Nowicjusz

pinio

Opublikowano

Ja mam prośbę ... poszukuję skryptu, który używałby runy SD na kimś, kto ma hp mniej niż x%. Znalazłem coś takiego:

 

const

Xhp = 10

delay = 2

RuneID = 3258

MinHP = 200

 

function GetAttackingCreature: 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].Attacking = true then

begin

Result := Creatures.Creature[x];

Exit;

end;

end;

end;

 

procedure Attack(Name:string);

var

Player:TCreature;

x:integer;

begin

updateworld;

Monster := GetAttackingCreature;

if monster <> nil then

if Self.Health>MinHp then

begin

updateworld;

if self.Health > MinHP then

Self.Containers.UseItemWithCreature(RuneID, Monster);

updateworld;

end

end;

 

while not terminated do

begin

updateworld;

Creature := GetAttackingCreature;

if creature <> nil then

if creature.health < XHP

then

repeat

attack(Creature.Name);

updateworld;

sleep(delay * 1000);

until (Creature.health = 0) or (terminated);

Sleep(500);

end;

 

 

Ale coś nie działa .... może mi ktoś pomóc ?

 

Pozdrawiam ...

Wrotek Weteran

Wrotek

Opublikowano
Weteran

Wrotek

  • Autor
Opublikowano

@up: troche dziwny ten skrypt na pierwsze spojrzenie, mozliwe ze dziala, sprawdz jakie ID ma SD bo u mnie ma w ogole inne i daj je w RuneID = 3258 zamiast tego 3258

Wrzuć.se! - zachęcam do dyskusji na temat mojej stronki do uploadowania obrazków przez ich bezpośrednie wklejanie na stronę!

pinio Nowicjusz

pinio

Opublikowano
Nowicjusz

pinio

Opublikowano

Ok, dzięki, zaraz sprawdzę. Ale gdyby nie działało, to byłbyś w stanie napisać taki skrypt działający ? Który by rzucał sd w kogoś, kogo zaatakowałeś i ma hp mniej niż ileś tam procent. Z góry dzięki. ; )

 

Pozdrawiam ...

Wrotek Weteran

Wrotek

Opublikowano
Weteran

Wrotek

  • Autor
Opublikowano

@up: mnie ten skrypt dziala. Musisz dobrze ustawic runeID (powinien to byc 3155)

Wrzuć.se! - zachęcam do dyskusji na temat mojej stronki do uploadowania obrazków przez ich bezpośrednie wklejanie na stronę!

Puszek Odkrywca

Puszek

Opublikowano
Odkrywca

Puszek

Opublikowano

hmm a możesz dla mnie zrobić takiego skrypta ze stoi przy wodzie w ab i łowi ryby i jak złowi 100 ryb to pujdzie je do dp odłozyc i wróciłowic dalej :] mozesz cos takiego zrobić ??

bloodbar.gif
Makin Admin Cienia

Makin

Opublikowano
Admin Cienia

Makin

Opublikowano

Ja mam tą samą prosbę co Puszek, tylko że po prostu gdy skonczy cap pojdzie odniesć rybki do dp. Da radę napisać taki skrypt? Z góry dzięki :)

EXPmIpC.gif

Wrotek Weteran

Wrotek

Opublikowano
Weteran

Wrotek

  • Autor
Opublikowano

da rade da, postaram sie jakos w najblizszym czasie napisac, niestety ale narazie mam szkole + swoje sprawy i nie bardzo mam kiedy

Wrzuć.se! - zachęcam do dyskusji na temat mojej stronki do uploadowania obrazków przez ich bezpośrednie wklejanie na stronę!

Wrotek Weteran

Wrotek

Opublikowano
Weteran

Wrotek

  • Autor
Opublikowano

Hm.. niestety podczas proby otwarcia dp wywala mi blad w tibi "you can not use this object" a wydaje mi sie ze kod jest dobry, jeszcze dokladnie sprawdze jutro, zobacze innych skrypty, ale najprawdopodobniej jest blad w ng :<

Wrzuć.se! - zachęcam do dyskusji na temat mojej stronki do uploadowania obrazków przez ich bezpośrednie wklejanie na stronę!

Wrotek Weteran

Wrotek

Opublikowano
Weteran

Wrotek

  • Autor
Opublikowano

Hm... na forum NG tez nikt nie dal skryptu z uzyciem depotu :< Potem cos wykombinuje :P

Wrzuć.se! - zachęcam do dyskusji na temat mojej stronki do uploadowania obrazków przez ich bezpośrednie wklejanie na stronę!

Krwawy Skalpel Znawca

Krwawy Skalpel

Opublikowano
Znawca

Krwawy Skalpel

Opublikowano

Mam pytanie

jak dodać skrypt do tibi ng ?

robie to tak ale nie wiem czy dobrze

Tools --> Scripter --> wklejam skrypt --> File --> save --> open --> i otwieram zapisany skrypt --> zamykam to okienko

dobrze to robie ?

Zarchiwizowany

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

Tematy
×
×
  • Dodaj nową pozycję...