Szukasz skryptu? Zajrzyj tutaj!

Adios666 · 16-01-2009 17:41

Witam ;p Szukam skryptu na otwieranie drzwi :D proszę o pomoc
Oczywiscie Tibia BOT NG

Mag Samurai · 16-01-2009 17:49

Adios666 napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

Witam ;p Szukam skryptu na otwieranie drzwi :D proszę o pomoc
Oczywiscie Tibia BOT NG

Kod PHP:

Const
  X1 = 32319
  Y1 = 32253
  
Var
  Tile:TTile;

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; 


while not terminated do
begin
  UpdateWorld;
  Tile := GetTileFromXYZ(X1,Y1,Self.Z);
  if Tile <> nil then
  if tile.count > 1 then  
  if Tile.Item[1].Properties.door then
  if not tile.item[1].properties.walkable then
    Tile.Item[1].Use;
  sleep(1000);    
end;

Gray jak tak robisz ze scrypt jest colorowy ?
#down
sorka zapomnialem sie :P

**Gray** · 16-01-2009 17:54

up
Skoro już wrzucasz skrypta, to może byś wyjasnił jak go użyć ;)
Bo imho 80% userów nie wie co wpisać jako X1 i Y1.

Stajesz w drzwiach,
Tools > Scripter, na samym dole masz taką linijkę:

X: liczba, Y: liczba, Z: liczba

Cyferkę obok X'a wpisujesz jako X1, cyferkę obok Y'a, jako Y1.

samuraj napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

Gray jak tak robisz ze scrypt jest colorowy ?

Używam tagu [php] zamiast [code].

Adios666 · 16-01-2009 18:13

Niestety nie działa ten skrypt na drzwi;/ Czy to dlatego że drzwi są od 8 lvla?

#EDIT
Proszę o zrobione skrypta ,żeby postać przechodziła przez Gate Expertise (bramkę lvlową)

Zapłace doładowaniem 10zł.

Koksik · 16-01-2009 22:58

Witam, minęły już 24 godziny więc piszę swoją prośbę.
Pilnie poszukuję skryptu na uciekanie paladynem. tylko taki który działa bez błędów... Sprawdziłem wiele "takich" skryptow. jednak zaden nie spelnial moich oczekiwan. Dlatego dobrze by było gdyby ktoś taki podał i jeszcze żeby posta stawała na ukos. 2 w 1 jeżeli się da. Aaaa posta niech ucieka na 3 kratki. Będę bardzo wdzięczny :)

Robi Wells · 16-01-2009 23:51

poszukuje takiego skryptu że gdy Postać X zostanie zraniona,przesunięta lub zobaczy kogoś wtedy wysyła prywatna wiadomość do Postaci Y . która to postać Y po dostaniu wiadomości akurat od postaci X wyloguje się bez śladu :P

**Gray** · 17-01-2009 00:16

robbie williams napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

poszukuje takiego skryptu że gdy Postać X zostanie zraniona,przesunięta lub zobaczy kogoś wtedy wysyła prywatna wiadomość do Postaci Y . która to postać Y po dostaniu wiadomości akurat od postaci X wyloguje się bez śladu :P

Ten skrypt odpalasz na postać, która ma wysłać PW:

Kod PHP:

Const 
  SafeList = ['Gracz1','Gracz2','Gracz3'] // podajesz nicki postaci, na ktore bot nie ma reagowac.
  PlayerToMessage = 'Nick drugiej postaci' 
  MessageToSend = 'bot bot bot'  // tego nie zmieniaj, musi zostac tak jak jest!!
while not terminated do 
begin 
  G := false; 
  UpdateWorld; 
  for i := 0 to Creatures.Count -1 do 
  begin 
    if i >= Creatures.Count then break; 
    if Creatures.Creature[i].Z = self.z then 
    if Creatures.Creature[i].NPC = false then 
    if Creatures.Creature[i].Name <> Self.Name then 
    begin 
      A := 0; 
      for B := Low(SafeList) to High(SafeList) do 
      begin 
        if SafeList[b] = Creatures.Creature[i].Name then 
        A := 1; 
        sleep(10); 
      end; 
      if A = 0 then  
      begin 
        G := true; 
        Creature := Creatures.Creature[i]; 
      end; 
    end; 
    sleep(10); 
  end; 
  if G then 
  begin 
    Self.PrivateMessage(PlayerToMessage,MessageToSend); 
    Sleep(2000); 
    PlaySound('C:/Windows/Media/Notify.wav'); 
  end; 
  sleep(100); 
end;

A ten na postać, która ma się wylogować:

Kod PHP:

procedure Event_Message(Channel:integer;Name,Text:String);
begin
  if (channel = 1) or (channel = 4) then
  if pos('bot',text) then
  Self.Logout(true);
end;

while not terminated do
begin
  UpdateWorld;
  ProcessEvents;
  sleep(100);
end;

Najpierw przetestuj, ja nie mam możliwości.

jazo_tron · 17-01-2009 16:20

Siemq all. mam problemy z tymi otwieranymi drzwiami. kiedy staje w drzwiach mam oto liczby w scripterze: X:565 Y:564 Z:9

Skrypt z drzwiami:

Const
X1 = 32319
Y1 = 32253

Var
Tile:TTile;

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;

while not terminated do
begin
UpdateWorld;
Tile := GetTileFromXYZ(X1,Y1,Self.Z);
if Tile <> nil then
if tile.count > 1 then
if Tile.Item[1].Properties.door then
if not tile.item[1].properties.walkable then
Tile.Item[1].Use;
sleep(1000);
end;

i teraz X1 to X, Y1 to Y. Kumam. A w dalszej części skryptu musze XYZ pozamieniać na X:565 Y:564 Z:9?

np: ta linijka
Tile := GetTileFromXYZ(X1,Y1,Self.Z); <--- ma tak zostać czy ma wyglądać tak:

Tile := GetTileFromXYZ(565,564,Self.9);

Oczywiście Tibia NG.

Pozdro!!!

#EDIT:
GRAY ŁAP:
img223.imageshack.us/my.php?image=uo0006di1.jpg

**Gray** · 17-01-2009 16:37

jazo_tron napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

i teraz X1 to X, Y1 to Y.

Powinno wyglądać tak:

Kod PHP:

X1 = 565
Y1 = 564

jazo_tron napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

A w dalszej części skryptu musze XYZ pozamieniać na X:565 Y:564 Z:9?

np: ta linijka
Tile := GetTileFromXYZ(X1,Y1,Self.Z); <--- ma tak zostać czy ma wyglądać tak:

Tile := GetTileFromXYZ(565,564,Self.9);

Resztę zostawiasz bez zmian, zamieniasz tylko te 2 pierwsze.

jazo_tron napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

Głównie mi chodzi o ots, gdzie bedzie otwierac drzwi na trainy...

A co to za drzwi? Bo ten skrypt otwiera tylko takie normalne drzwi.

Mag Samurai · 17-01-2009 17:49

jazo_tron napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

Siemq all. mam problemy z tymi otwieranymi drzwiami. kiedy staje w drzwiach mam oto liczby w scripterze: X:565 Y:564 Z:9

Skrypt z drzwiami:

Const
X1 = 32319
Y1 = 32253

Var
Tile:TTile;

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;

while not terminated do
begin
UpdateWorld;
Tile := GetTileFromXYZ(X1,Y1,Self.Z);
if Tile <> nil then
if tile.count > 1 then
if Tile.Item[1].Properties.door then
if not tile.item[1].properties.walkable then
Tile.Item[1].Use;
sleep(1000);
end;

i teraz X1 to X, Y1 to Y. Kumam. A w dalszej części skryptu musze XYZ pozamieniać na X:565 Y:564 Z:9?

np: ta linijka
Tile := GetTileFromXYZ(X1,Y1,Self.Z); <--- ma tak zostać czy ma wyglądać tak:

Tile := GetTileFromXYZ(565,564,Self.9);

Oczywiście Tibia NG.

Pozdro!!!

#EDIT:
GRAY ŁAP:
img223.imageshack.us/my.php?image=uo0006di1.jpg

nie zadziala na te drzwi a na takie drzwi nie ma scryptu

albert02 · 18-01-2009 07:42

Minelo 24h wiec pisze :) Potrzebuje dwoch skryptow do NG, ktore pewnie przydadza sie kilku osoba do war/pk. Otoz cos jak w Elfie. Gdy wcisne ustalony przycisk w skrypcie bot strzela MW 1 sqm za plecy. I drugi skrypt pod innym klawiszem. Gdy wcisne bot strzela MW 2 sqm przed twarz. Jest mozliwosc wogole zrobienia tego w NG?

@down

Cos jest nie tak ; /

[Error] Untitled(13): Syntax error

Okey, wlaczyl sie. Cos musialem zle skopiowac za first razem.

DZIALA! No to first zrobione. Teraz jeszcze skrypt do malych pomieszczen an stack battle. Czyli, zeby rzucalo MW 1 sqm za plecy. masz cos takiego?:)

@Shutters

Wbudowany licznik Ci nie starcza?;d

Filia the Dragon · 18-01-2009 10:16

albert02 napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

Minelo 24h wiec pisze :) Potrzebuje dwoch skryptow do NG, ktore pewnie przydadza sie kilku osoba do war/pk. Otoz cos jak w Elfie. Gdy wcisne ustalony przycisk w skrypcie bot strzela MW 1 sqm za plecy. I drugi skrypt pod innym klawiszem. Gdy wcisne bot strzela MW 2 sqm przed twarz. Jest mozliwosc wogole zrobienia tego w NG?

Kod :

Var
Creature:TCreature;
function GetCreatureByID(ID: integer): 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].ID = ID then
    begin
      Result := Creatures.Creature[x];
      Exit;
    end;
  end;
end;
procedure Event_KeyDown(Key: integer);
Begin
If key=$11 then //change the number here for any other virtul key number
   begin
   updateworld;
   Creature := GetCreatureByID(Self.Attacking);
      if Creature <> nil then
      begin
        case Creature.Direction of
          0:  Self.Containers.UseItemWithGround(3180, Creature.X, Creature.Y - 2, Creature.Z);
          1:  Self.Containers.UseItemWithGround(3180, Creature.X + 2, Creature.Y, Creature.Z);
          2:  Self.Containers.UseItemWithGround(3180, Creature.X, Creature.Y + 2, Creature.Z);
          3:  Self.Containers.UseItemWithGround(3180, Creature.X - 2, Creature.Y, Creature.Z);
        end;
      end;
    end;
end;
Begin
while not terminated do
begin
ProcessEvents;
Sleep(100);
end;
end;

Nigdy tego nie używałem, ale z tego co wyczytałem to działa to tak, że strzela magic wall'a przed cel(czyli aby zablokować).
Przycisk jest ustalony na 'control'(w skrypcie pomalowałem na czerwono). Jeśli chcesz to zmienić to pod tym adresem masz liste klawiszy z numerami:
http://forums.tibiabot.com/showthread.php?t=10477
Ogólnie to nie polecam 'kopiowania' skryptów Elfa do NG. Nie raz słyszałem, że skrypty zbugowały i np. bot leczył nie tylko członków party ale nawet wrogów ;d

Mam nadzieję, że pomogłem ;)

Shutters · 18-01-2009 10:51

OKEY!
Więc tak- ja (do NG) szukam skryptu....już kiedyś taki miałem, ale format i poszło w pizdu xP

Soł- było tak, że w lewym górnym rogu Tibii pojawiał się napis ile mi zostało do lvl xD a teraz najlepszy bayer- po wciśnięciu jakiegoś klawisza, w miejscu gdzie pojawiają się napisy "Sorry, not possible", "U Cannot throw there" Pokazywało się ile zebrałem expa od włączenia bota i skrypta :P Expię sam, więc chciałbym wiedzieć XD

thx

@EDIT!

znalazłem! może komuś się przyda

var
seconds, min, hours, count:integer;
mini, exp, AvargeExp, total:integer;

procedure Event_Message(Channel: integer; Name, Text: String);
begin
updateworld;
if Text='exppliz1' then
begin
updateworld;
self.PrivateMessage(Name, 'Hunting for '+inttostr(Hours)+':'+inttostr(mini)+':'+inttostr( seconds));
sleep(2000);
self.PrivateMessage(Name, 'Level: '+IntToStr(self.level));
sleep(2000);
self.PrivateMessage(Name, 'Experience: '+IntToStr(self.Experience));
sleep(2000);
self.PrivateMessage(Name, 'Magic Level: '+IntToStr(self.Skills.Magic.level));
sleep(2000);
self.PrivateMessage(Name, 'Exp/Hour: ' +IntToStr(AvargeExp));
sleep(2000);
self.PrivateMessage(Name, 'Gained so far: ' +intTostr(total));
end;
end;

begin
updateworld;
AvargeExp:=0;
exp:=self.Experience;
count:=0;
seconds:=0;
min:=0;
hours:=0;
while not terminated do
begin
sleep(1000);
updateworld;
count:=count+1;
Seconds:=count mod 60;
if count>=60 then
min:=count div 60;
mini:=min mod 60;
if min>=60 then
Hours:=min div 60;
total:=(self.Experience-exp);
AvargeExp:=(self.Experience-exp)/count*60*60;
self.displayText('Running for '+inttostr(Hours)+':'+inttostr(mini)+':'+inttostr( seconds)+' EXP avarge '+inttostr(AvargeExp)+' Gaind so far:'+inttostr(total));
ProcessEvents;
end;
end;

Wystarczy dodać do NG, a w miejscu które opisałem pokazuje się napis...i napisane ile expimy ile zebrealismy expa XD

Muuciek · 18-01-2009 11:35

taki bajer to w blackd jest

ale moze sproboj tego item per hour

na forums znajdziesz

#Down
jaki bot?

Virex · 18-01-2009 13:25

Muuciek nie prosił o skrypt więc chyba mogę napisać pomimo iż nie minęły 24h

Potrzebuję skryptu mniej więcej takiego:
Gdy postać stoi w jednym miejscu dłużej niż np. 30 sekund to się włącza alarm.

Temat: Szukasz skryptu? Zajrzyj tutaj!

Narzędzia tematu

Oceń ten temat

Informacje o temacie

Użytkownicy przeglądający temat

Podobne tematy

Szukasz teamu? Zajrzyj tutaj!

Jaka to piosenka? Zajrzyj tutaj, jeśli szukasz tytułu zasłyszanego gdzieś kawałka.

Szukasz Mappera? Zajrzyj tu!

[7.4] Szukasz oldschoolowego ots'a pod 7.4? Zajrzyj!

Nie wiesz gdzie trenić? Zajrzyj tutaj!

Zakładki

Zakładki

Zasady postowania