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

  • Autor
Opublikowano

Ok wybaczcie, ja juz nie mam czasu zeby sie w to bawić

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
  • 4 tygodnie później...
MolotoV Pasjonat

MolotoV

Opublikowano
Pasjonat

MolotoV

Opublikowano

Szukam 2 Skryptów do Tibia Bot Ng ktos mi juz je dal na innym forum tylko ze jakies niedzialajace rezulaty byly przeciwne :) No to tak 1.Bije Wszystkie Potwory (tak jak opcja Target All) jak nie ma nikogo na ekranie poza mna a jak zobaczmy jakiegos gracza bije potwory tylko te ktore atakuja mnie (potrzbne mi to zeby nie bilo potworow graczowi)

2. Skrypt lota dopiero potem bije potwory bo ja mam taki problem w bocie ze jak wyskoczy +3 potwory to zanim obczaji lota z 1 zabitego potwora to juz leci bic te 2 i lota nie bierze podobno jest jakis skrypt by temu zaradzic :) Z gory Thx. I Napewno nie tylko mnie sie to przyda wiec jezeli ktos ma takie informacje nich sie podzili :)

Shadowek Rekrut

Shadowek

Opublikowano
Rekrut

Shadowek

Opublikowano

Witam, potrzebuje skryptu, który będzie rzucał śmieci na dp kogoś, np. iskiński pokazuje mpa to wpisuje skryptowi, name iksińskiego i rzuca mu śmieci typu: worms, 1 gp, parcele itp. Bardzo byłbym wdzięczny.

Aj przypomniało mi się, jeżeli by to się udało, to prosiłbym aby zrobić skrypt odwrotny do tego którego proszę.

  • 2 tygodnie później...
CorrupteDeK Pasjonat

CorrupteDeK

Opublikowano
Pasjonat

CorrupteDeK

Opublikowano

Skrypt na jedzenie fooda (Food_Id = 3725 to brown mushrooms)

Const

Food_Id = 3725; //change this to the food you have on you

MinMana = 0

MinHealth = 0

 

while not terminated do

begin

UpdateWorld;

if (Self.Mana <= MinMana) or (Self.Health <= MinHealth) then

begin

UpdateWorld;

for container := 0 to Self.Containers.Count - 1 do

begin

UpdateWorld;

for item := 0 to Self.Containers.Container[container].Count - 1 do

begin

UpdateWorld;

if Self.Containers.Container[container].Item[item].ID = Food_Id then

Self.Containers.Container[container].Item[item].Use;

sleep(50);

end;

end;

end;

sleep(100);

end;

Life is brutal and full of zasadzkas and sometimes kopas w dupas.

Ia zlóham mózycek s kejgenuw!!1

"Mi tuu iks de"

  • 2 tygodnie później...
Koks Weteran

Koks

Opublikowano
Weteran

Koks

Opublikowano

Potrzebuje skrypt :D do ng ;p oczywiscie ktory automatycznie bedzie zakladal Stone Skin Amulet

 

ktos mnie jebnie stone zniknie i bot go automatycznie zaklada na nowow i tak w kolko :D

 

wielkie dzieki

Czapa Znawca

Czapa

Opublikowano
Znawca

Czapa

Opublikowano

SSA musisz miec w otwartym plecaku!

 

Const 
 SSA_ID = 3572 // ID stone skin amuleta :)

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;  
  else result := self.armor; 
end;  
 end;  
end;  

begin   
updateworld; 
SSA := GetItemFromOpenBackpack(SSA_ID); 
while not terminated do 
begin 
 if SSA <> nil then 
 if SSA = Self.Armor then 
 begin 
self.displayText('You Dont have the requierd amulet on an opened backpack, please fix that and restart the script.'); 
break; 
 end; 
 else 
 begin 
UpdateWorld; 
if Self.Amulet.ID = 0 
then SSA.MoveToBody(Self.Amulet,0); 
Sleep(500); 
 end; 
 sleep(100);
end; 
end;

Koks Weteran

Koks

Opublikowano
Weteran

Koks

Opublikowano

[Exception] Untitled(41): Access violation at address 09343C69 in module 'hook.dll'. Read of address 00000014 when evaluating instruction CallProc ($0,$2,$93EC4E0,$12287038,'MoveToBody'). Stack content is: [integer:3081].

 

????

  • 3 tygodnie później...
barteciuha Budowniczy

barteciuha

Opublikowano
Budowniczy

barteciuha

Opublikowano

siema ja szukam skrypta ze jak mi sie kamyki skacza to ma mi wlaczyc z bp do reki prosze was o napisanie :)

jak najszybciej :P

//Ciach

  • 1 miesiąc temu...
duzy15 Pomocnik

duzy15

Opublikowano
Pomocnik

duzy15

Opublikowano

Mógł by mi ktoś poprawić ten skrypt. Wyskakuje błąd [Error] Untitled(156): Syntax error to scrypt na zanoszenie kasy do depo.

////////////////////////////////////////////

const

CaveToBankWaypoints = 'C:\Tibiabot\DEPOSIT GOLD 1.wpt'

BankToCaveWaypoints = 'C:\Tibiabot\DEPOSIT GOLD 1.wpt'

 

GoldAmount = 2000;

WaitTime = 10;

////////////////////////////////////////////

 

 

 

 

var

Coins: integer;

 

 

Function GetTileFromXYZ(X, Y, Z: integer): TTile;

begin

Result := nil;

if abs((Self.X - 7) - X) > 14 then Exit;

if abs((Self.Y - 5) - Y) > 11 then Exit;

if Self.Z <> Z then Exit;

Result := Screen.Tile[abs((Self.X - 7) - X), abs((Self.Y - 5) - Y)];

end;

 

 

Procedure UseTile(X,Y,Z: Integer);

Var

Tile: TTile;

begin

if Z = Self.Z then

begin

Tile := GetTileFromXYZ(X, Y, Z);

Tile.Item[1].Use;

end;

else Unreachable := True;

end;

 

Procedure UseRope(X,Y,Z: Integer);

begin

if Z = Self.Z then

begin

Self.Containers.UseItemWithGround(3003, X, Y, Z);

end;

else Unreachable := True;

end;

 

Procedure MoveTo(X,Y,Z: Integer);

begin

if Z = Self.Z then

begin

Self.MoveTo(X,Y,Z);

end;

else Unreachable := True;

end;

 

Procedure UseShovel(X,Y,Z: Integer);

var Tile: TTile

begin

if Z = Self.Z then

begin

repeat

Self.Containers.UseItemWithGround(5710, X, Y, Z);

Self.Containers.UseItemWithGround(3457, X, Y, Z);

Sleep(1000);

UpdateWorld;

Tile := GetTileFromXYZ(X, Y, Z);

until Tile.Item[0].Properties.Hole or Terminated

Self.MoveTo(X, Y, Z);

end;

else Unreachable := True;

end;

 

 

Procedure WaypointToAction(X,Y,Z,Action :Integer);

begin

UpdateWorld;

Case Action of

1: UseRope(X,Y,Z);

2: UseTile(X,Y,Z);

3: MoveTo(X, Y+1, Z+1);

4: MoveTo(X, Y-1, Z-1);

5: MoveTo(X, Y, Z-1);

6: MoveTo(X, Y, Z);

7: UseShovel(X,Y,Z-1);

8: MoveTo(X, Y, Z);

9: Sleep(X*1000);

else

MoveTo(X,Y,Z);

end;

end;

 

 

Function WaypointReached(X,Y,Z,Action :Integer): Boolean;

begin

UpdateWorld;

Result := False;

Case Action of

1: if (Z = Self.Z + 1) then Result := True;

2: if (Z = Self.Z + 1) then Result := True;

3: if (Z = Self.Z) then Result := True;

4: if (Z = Self.Z) then Result := True;

5: if (Z = Self.Z) then Result := True;

6: if ((X = Self.X) and (Y = Self.Y) and (Z = Self.Z)) then Result := True;

7: if (Z = Self.Z) then Result := True;

8: if (abs(Z - Self.Z) = 1) then Result := True;

9: Result := True;

else

if ((X = Self.X) and (Y = Self.Y) and (Z = Self.Z)) then Result := True;

end;

end;

 

 

Function CountWaypoints(FilePath: String): Integre;

Var

i: Integer

WaypointFile: TextFile

begin

i := 0

AssignFile(WaypointFile, FilePath);

ReSet(WaypointFile);

while not EoF(WaypointFile) do

begin

temp:= ReadLn(WaypointFile);

i := i+1;

end;

Result:= (i/4);

end;

 

 

Function ExtractWaypointsFromFile(FilePath: String; Count: Integer): Integre;

Var

i: Integr

WaypointsArray: Integer

WaypointFile: TextFile

begin

WaypointsArray := VarArrayCreate([0, Count - 1, 0, 3], $C);

AssignFile(WaypointFile, FilePath);

ReSet(WaypointFile);

for i:=0 to Count-1 do

begin

WaypointsArray[i,0] := StrToInt(ReadLn(WaypointFile));

WaypointsArray[i,1] := StrToInt(ReadLn(WaypointFile));

WaypointsArray[i,2] := StrToInt(ReadLn(WaypointFile));

WaypointsArray[i,3] := StrToInt(ReadLn(WaypointFile));

end;

CloseFile(WaypointFile);

Result := WaypointsArray;

end;

 

 

procedure DepositeGold;

begin

UpdateWorld;

Sleep(2000);

Self.Say('hi'smiley;

Sleep(2000);

Self.Say('deposit'smiley;

Sleep(2000);

Self.Say(IntToStr(Coins));

Sleep(2000);

Self.Say('yes'smiley;

Sleep(2000);

Self.Say('bye'smiley;

end;

 

 

function CountItemAmountFromOpenBackpack(ID: integer): integer;

var

x: integer;

y: integer;

begin

Result := 0;

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 := Result + Self.Containers.Container[x].Item[y].Amount;

end;

end;

end;

end;

 

Procedure FollowWaypoint(FilePath: String)

begin

Index := 0

Unreachable := False

WaypointsCount := CountWaypoints(FilePath);

WP := ExtractWaypointsFromFile(FilePath, WaypointsCount);

 

while (Index <> (WaypointsCount-1)) and (not Terminated) do

begin

if Unreachable then

begin

Index := Index+1;

Unreachable := False;

end;

 

if Index = (WaypointsCount-1) then Index := 0;

if WaypointReached(WP[index,0],WP[index,1],WP[index,2],WP[index,3]) then

Index := Index +1;

 

WaypointToAction(WP[index,0],WP[index,1],WP[index,2],WP[index,3]);

 

Sleep(1000);

end;

end;

 

begin

updateworld

Coins := CountItemAmountFromOpenBackpack(3031);

if Coins < GoldAmount then Exit;

 

 

//-------------------------------------------//

//***** Get from the Cave to the banker *****//

//-------------------------------------------//

//

//

FollowWaypoint(CaveToBankWaypoints); //

//

//

//*******************************************//

 

 

While (Coins > 0) and (not terminated) do

begin

DepositeGold;

Sleep(WaitTime*1000);

updateworld;

Coins := CountItemAmountFromOpenBackpack(3031);

end;

if Terminated then Exit;

 

 

//-------------------------------------------//

//**** Return from the banker to the cave ***//

//-------------------------------------------//

//

//

FollowWaypoint(BankToCaveWaypoints); //

//

//

//*******************************************//

 

 

Sleep(1000);

end;

 

Shadowek Rekrut

Shadowek

Opublikowano
Rekrut

Shadowek

Opublikowano
CaveToBankWaypoints = 'C:\Tibiabot\DEPOSIT GOLD 1.wpt'

BankToCaveWaypoints = 'C:\Tibiabot\DEPOSIT GOLD 1.wpt'

Mogę się mylić, ale wydaje mi się, że powinieneś zrobić 2 plik, tzn: 1 do bank z expa, a drugi z banku do expa.

Nie jestem tego aż tak pewien, ale spróbuj może się uda.

 

  • 2 tygodnie później...
  • 4 tygodnie później...
Bandita Budowniczy

Bandita

Opublikowano
Budowniczy

Bandita

Opublikowano
Poszukuję skrypta, który zaalarmuje mnie kiedy skończą się speary.

 

 

while not terminated do 
begin 
updateworld; 
if Self.RightHand.Amount<=3 then 
PlaySound('C:\Windows\Media\notify.wav'); 
sleep(1000); 
end;

 

jeśli ilość itemu w prawej ręce(nie wiem z której strony :-)) będzie mniejsza niż 3 to włączy sie alarm.

  • 2 tygodnie później...
Los Marianellos Uczeń

Los Marianellos

Opublikowano
Uczeń

Los Marianellos

Opublikowano

Siema,

potrzebuje waszej pomocy. Potrzebuje skrypty, ktory w sytuacji gdy ilosc spearek bedzie wynosic np. 3 bedzie saqm szedl do depo, bral je ze skrytki i wkladal od razu do reki , zostawial pozostaly loot i wracal na resp.

 

Bardzo Prosze O Szybka Odpowiedz

Z Gory Wielkie THX ;]

6216.gif

23652.gif

16451.gif

20784.jpg

11889.png

  • 1 miesiąc temu...
kusy Uczeń

kusy

Opublikowano
Uczeń

kusy

Opublikowano

Otoz w tym poscie prosil bym was (tych ktorzy maja, lub umieja robic skrypty) , o skrypt do tibi ng.Chodzi mi otaki skrypt ktory by rzucal smieci (wormy,parcele itd) na zaznaczone miejsce (ktore ja zaznacze).Z gory ThX:):P

 

  • 2 tygodnie później...
raf11 Nowicjusz

raf11

Opublikowano
Nowicjusz

raf11

Opublikowano

Jest taki skrypt co jak widzi kogos na ekranie pisze leave albo no kill my monster tylko nie spamując bo widzialem kilka ale one spamowały i widac bylo ze bot . chodzi mi o to zeby pisac co jakies 40 sec to leave a nie spam jak jest takie cos to plix xD

  • 5 miesięcy temu...
Bigiello Uczeń

Bigiello

Opublikowano
Uczeń

Bigiello

Opublikowano

Witam, potrzebowalbym skrypta ktory przy danym x% hp lub x%many zjadłby potiona - w tym przypadku na ots'ie wodbo, musi być na procenty, ponieważ tam jest wiecej niż 1 pasek hp, dziekuje. :)

Zarchiwizowany

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

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