Szukasz skryptu? Zajrzyj tutaj!

**Korzeń** · 11-04-2009 21:45

dernight napisał

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

Witam
Potrzebuje skrypt do ots a mianowicie
Gdy 99% hp uzywa UH

Kod PHP:

Const 
  ProcentToHealth = 99
   
   
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; 
    end; 
  end; 
end; 


while not Terminated do 
begin 
  UpdateWorld; 
  if Self.Health/Self.MaximumHealth*100 < ProcentToHealth then 
  begin 
    Rune := GetItemFromOpenBackpack(3195); 
    if Rune <> nil then 
    begin 
      Rune.UseWithGround(Self.X, Self.Y, Self.Z); 
      Sleep(500); 
    end; 
  end; 
  Sleep(10); 
end;

Nie sprawdzałem.

Manolo · 11-04-2009 22:12

dernight napisał

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

Witam
Potrzebuje skrypt do ots a mianowicie
Gdy 99% hp uzywa UH

Może powiesz na jakiego bota?!

qbass889 · 12-04-2009 10:09

Witam, potrzebuje skrypt do NG bota na skórowanie dragonów za pomocą obsidian knife. Znalazłem w tym temacie skrypt do skórowania minotaurów, myśle że można by go edytować tak aby skórował też dragi ale nie znam ID martwego dragona, prosze o działający skrypt bądź ID draga.

$Yaki Paladinek$ · 12-04-2009 12:33

Siema, szukam już bardzo długo na forum tibiabot.com, otóż przedchwilą 'nabyłem' za darmo bota elfbot ;P
Potrzebuje skryptu do SKILLOWANIA knightem, obojętnie na czym (mam p-set, i knife) skille 40\37 jest to świat non-pvp.
Obojętnie na czym, byle skrypt był sprawdzony i mógłbym dobić 60\60~ skrypt pod elfbot oczywiście :)

up@
id draga zaraz podam, mam gdzieś mapeditorze ;d
to jest 2844 ;}

Manolo · 12-04-2009 13:35

@UP
To słabo szukałeś, a w sumie było na tym forum przewinąć kilka stron w tył i byś miał bo już z 2 razy to dawałem.

http://forums.tibiabot.com/showthread.php?t=85397

qbass889 · 12-04-2009 18:16

$Yaki Paladinek$ napisał

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

up#
id draga zaraz podam, mam gdzieś mapeditorze ;d
to jest 2844 ;}

Edytowałem ale nie trybi, chyba tak sie nie da. Ponawiam prośbę - działający skrypt do ng na skórowanie smoków.

Izno · 12-04-2009 22:32

Witam potrzebuję skryptu do elfbota który po upływie 12 min otworzy drzwi za sobą i wróci do miejsca w którym uprzednio stał

Manolo · 13-04-2009 00:48

Zrób to w cave bocie jako normalne waypointy.
A tu masz 4 'action' które będą Ci potrzebne:

usegroundxyz x y z

wait 720000

settargeting on

settargeting off

To jest nic trudnego :> Ja ci więcej nie dam bo niewidze miejsca w którym to robisz.

dernight · 13-04-2009 11:47

Witam
czy da sie napisac taki scrypt do NG pod ots

atakuje cel i jak najszybciej zaznacza i odznacza atakowany cel.

poniewaz gram na takim ots gdzie jest fast atak ale tylko z odznaczaniem i zaznaczaniem

$Yaki Paladinek$ · 13-04-2009 12:07

dernight#
z tego co wiem, nic takiego nie napiszesz (i nikt inny)
Ale za to u mnie w Elfbocie jest darmowa opcja (kurwa, szkoda gadać) że zmienia się z 'stand while fighting' do 'Chase oponent'
i to około 10 razy na sekundę, tylko mryga. O co chodzi?
Ale to tak przy okazji sie spytałem, bo chciałbym skrypt na wyprowadzenie druida do 27 poziomu, świat pvp (PANDORIA)
mam aktualnie 13 i moonlight roda. Waste nie wchodzi w grę, bo dopiero tam zacząłem grać i mam 3k ;\

Bocik tibiaauto, ew. ten elbot do którego nie jestem przekonany, z powodu tego przełączania ciągłego (cały komputer mi muli przez to, w dodatku tibia się tak zacina jakbyś szedł strzałkami w prawo ciągle, i klikał myszką po lewej stronie chara)

down@
KU##A J###NA MAĆ, NIE ROZUMIESZ?!
Co to znaczy? Ano, ma to wyglądać w ten sposób:
Osoba nr. 1 umieszcza requesta.
Osoba nr. 2 odpowiada na pytanie osoby numer 1
Osoba nr. 3 umieszcza requesta.
Osoba nr. 4 odpowiada na pytanie osoby numer 3
Osoba nr. 4 umieszcza requesta.
itd.
TAK TRUDNO TO ZROZUMIEĆ? PLUTON TO JEST KU##A ANIOŁ NORMALNIE ŻE WYTRZYMUJE TO! POWTARZA MILIONY RAZY, REQUEST, ODPOWIEDŹ, REQUEST ITD. JAK MOŻNA TEGO NIE ROZUMIEC?+ jak widzę twój nick to mi się na kur##ce zbiera

Myszku · 13-04-2009 13:50

albo sciagnij ta wlacz cave bota odznacz tam wszytsko i wlacz enable a w ng target all ;p bedzie caly czas zaznaczal i odznaczal lub tez auto attack jezeli masz skrypt a jak nie to juz daje
var
LockID:integer;
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;
begin
updateworld;
while self.attacking=0 do
begin
sleep(200);
updateworld;
end;
LockID:=self.attacking;
while not terminated do
begin
updateworld;
ProcessEvents;
if ((self.attacking)<>(LockID)) and ((self.attacking)<>(0)) then
LockID:=Self.Attacking;
If Self.Attacking=0 then
begin
Creature:=GetCreatureByID(LockID);
If Creature<>nil then Creature.Attacking:=true;
end;
sleep(100);
end;
end;
witam potrzebuje skryptu ktory bedzie wyciagal z chesta(id 2418) bp (id 2854) zakladal na siebie, a nastepnie robil rlg z tym bp i odlozyl na miejsce do chesta, czynnosc najlepiej zeby sie powtarzala co 7 min

raks123 · 14-04-2009 21:40

Potrzebuje skryptu na dragon lair kolo venore Tibia Auto

Uniteraks · 16-04-2009 08:17

Witam
Potrzebuje scrypt ktory bedzie stawal na ukos od potworka
Pod NG
Pozdrawiam

Poducha · 16-04-2009 16:53

Ja bym poprosił skrypta na anty-paralize do NG...
@down:
Nie działa ...
Niech ktoś zrobi to...

Myszku · 16-04-2009 17:52

tutaj na anty paralize

while not terminated do
begin
UpdateWorld;
if not self.hasting then
if self.mana >= 100 then
self.say('utani gran hur');
Sleep(100);
end;

tam gdzie utani gran hur mozna zmienic na utani hur ;)

a stawanie na ukos od moba masz tu

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]; /////Made by medaking
Exit;
end;
end;
end;

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;

function TileIsWalkable(X, Y, Z: integer): boolean;
const Ramps = [1950, 1952, 1954, 1956, 385, 1947, 434, 414, 604]
var Tile: TTile;
begin
Result := True;
Tile := GetTileFromXYZ(X, Y, Z);
If (Tile <> nil) and (Tile.Count <> 0) then
for i := 0 to Tile.Count - 1 do
begin
if Tile.Item[i].Properties.Hole then Result := False;
else if Tile.Item[i].Properties.Stairs then Result := False;
else if not Tile.Item[i].Properties.Walkable then Result := False;
else for j := Low(Ramps) to High(Ramps) do if Tile.Item[i].ID = Ramps[j] then Result := False;
end;
end;

while not Terminated do
begin
UpdateWorld;
if Self.Attacking then
begin
Monster := GetCreatureByID(Self.Attacking);
if Monster <> nil then
Case Monster.Direction of
0:begin
if (Self.X = Monster.X) and (Self.Y = Monster.Y-1) and (Self.Z = Monster.Z) then
begin
if TileIsWalkable(Monster.X-1, Monster.Y-1, Monster.Z) then Self.MoveTo(Monster.X-1, Monster.Y-1, Monster.Z);
else
if TileIsWalkable(Monster.X+1, Monster.Y-1, Monster.Z) then Self.MoveTo(Monster.X+1, Monster.Y-1, Monster.Z);
end;
end;
1:begin
if (Self.X = Monster.X+1) and (Self.Y = Monster.Y) and (Self.Z = Monster.Z) then
begin
if TileIsWalkable(Monster.X+1, Monster.Y-1, Monster.Z) then Self.MoveTo(Monster.X+1, Monster.Y-1, Monster.Z);
else
if TileIsWalkable(Monster.X+1, Monster.Y+1, Monster.Z) then Self.MoveTo(Monster.X+1, Monster.Y+1, Monster.Z);
end;
end;
2:begin
if (Self.X = Monster.X) and (Self.Y = Monster.Y+1) and (Self.Z = Monster.Z) then
begin
if TileIsWalkable(Monster.X-1, Monster.Y+1, Monster.Z) then Self.MoveTo(Monster.X-1, Monster.Y+1, Monster.Z);
else
if TileIsWalkable(Monster.X+1, Monster.Y+1, Monster.Z) then Self.MoveTo(Monster.X+1, Monster.Y+1, Monster.Z);
end;
end;
3:begin
if (Self.X = Monster.X-1) and (Self.Y = Monster.Y) and (Self.Z = Monster.Z) then
begin
if TileIsWalkable(Monster.X-1, Monster.Y-1, Monster.Z) then Self.MoveTo(Monster.X-1, Monster.Y-1, Monster.Z);
else
if TileIsWalkable(Monster.X-1, Monster.Y+1, Monster.Z) then Self.MoveTo(Monster.X-1, Monster.Y+1, Monster.Z);
end;
end;
end;
end;
Sleep(250);
end;

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