Szukasz skryptu? Zajrzyj tutaj!

@up
Wypierdalaj

szukam scrypta zeby postac walila jednoczesnie z ruzgi i lmm'a
z góry thx

Cytuj:

---

thin napisał

szukam scrypta zeby postac walila jednoczesnie z ruzgi i lmm'a
z góry thx

---

Cytuj:

---

//By Ash Katchup at 30 nov 2008
//Remember: This script use your Right Hand (--->)
Const
MonsterNames = ['Frost Dragon']; //Monster's list to attack with all
RuneId = 3155; //Id of the rune to use on monster
UseRune = 1 //0-Off, 1-On
WeaponId = 8082; //Id of weapon to use when attacking this monster
EquipWeapon = 0; //0-Off, 1 -On
OldWeaponId = 3280; //Id of weapon to use when NOT attacking this monster

function NeedAtk(Name:string):integer;
var
x:integer;
begin
Result:=1000;
for x:=Low(MonsterNames) To High(MonsterNames) do begin
if MonsterNames[x]=Name then Result:=x;
end;
end;

function GetCreatureByName(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].Z <> Self.Z then Continue;
If Creatures.Creature[x].Id = Id then begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

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.Attacking <> nil) then begin
Creature:=GetCreatureByName(Self.Attacking);
If Creature <> nil then begin
If NeedAtk(Creature.Name) <> 1000 then begin
If EquipWeapon = 1 then begin
Weapon:= GetItemFromOpenBackpack(WeaponId);
if (Self.RightHand.Id <> WeaponId) and (Weapon <> nil) then
Weapon.MoveToBody(Self.RightHand,0);
end;
If UseRune = 1 then begin
Self.Containers.UseItemWithCreature(RuneId, Creature);
Sleep(2000);
end;
end else begin
Weapon:= GetItemFromOpenBackpack(OldWeaponId);
If (Weapon <> nil ) and (Self.RightHand.Id <> OldWeaponId) then
Weapon.MoveToBody(Self.RightHand,0);
end;
end;
end;
end;

---

Pozmieniaj sobie ID :)

Prosil bym o skrypt ktory automatycznie otwieral by water elementale czyli uzywal z daleka na cialo fishing roda.
Bardzo dlugo go szukam z regoly slysze ze on jest niemozliwy ale to nieprawda gdyz widzialem juz na moim swiecie ale nikt sie dzielic niechce.
Tak wiec prosze i thx.

Cytuj:

---

Arcanian napisał

Prosil bym o skrypt ktory automatycznie otwieral by water elementale czyli uzywal z daleka na cialo fishing roda.
Bardzo dlugo go szukam z regoly slysze ze on jest niemozliwy ale to nieprawda gdyz widzialem juz na moim swiecie ale nikt sie dzielic niechce.
Tak wiec prosze i thx.

---

A może powiesz do jakiego bota ?

Cytuj:

---

Wolvverine napisał

A Ja Szukam Skryptu Na Gsy Na Poh'u Dla Pallka, Pod Elfbot'a
Z Gory Dzieki

---

refresh !

Jak ustawić na tibiauto by bot atakował slime? ustawiałem wszystko jak na screenie i nie atakował :(

Potrzebuję do stonebota skrypt na lootowanie poison daggera.
Mógłby ktoś go napisać, albo ma juz takowy?

Cytuj:

---

Uslugi napisał

A może powiesz do jakiego bota ?

---

Chodzi o ng.

Potrzebuje skrypt do elf bota na wpisywanie kodu co 15 min na train monkach

minęło 24h więc ja prosze o skrypt

chodzi o depositera bo nie działa wp mam z expa do banku i z banku na expa ale nie działają bot NG a expowisko swamp trole w veno

Cytuj:

---

Depositer napisał

const
CaveToBankWaypoints = 'C:\Program Files\TibiaBot NG450\z expa.wpt
BankToCaveWaypoints = 'C:\Program Files\TibiaBot NG450\na exp.wpt


MinCap = 50;
WaitTime = 10;





var
Coins: integer; 300;


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);
begin
if Z = Self.Z then
begin
Self.Containers.UseItemWithGround(3457, X, Y, Z);
Self.Containers.UseItemWithGround(5710, X, Y, Z);
Sleep(1000);
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.NPCSay('hi');
Sleep(2000);
Self.NPCSay('deposit all');
Sleep(2000);
Self.NPCSay('yes');
Sleep(2000);
Self.NPCSay('bye');
end;

Procedure ResetBP;
begin
updateworld;
If self.containers.count >= 1 then
begin
sleep(2000);
Self.Backpack.Use
sleep(2000);
Self.Arrow.Use
sleep(2000);
Self.Backpack.Use
sleep(2000);
Self.Arrow.Use
sleep(2000);
end;
else
begin
Self.Backpack.Use
sleep(2000);
Self.Arrow.Use
sleep(2000);
end;
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 Self.Capacity > MinCap then exit;


//-------------------------------------------//
//***** Get from the Cave to the banker *****//
//-------------------------------------------//
//
//
FollowWaypoint(CaveToBankWaypoints); //
//
//
//*******************************************//


While (Coins > 0) and (not terminated) do
begin
DepositeGold;
Sleep(WaitTime*1000);
ResetBP;
updateworld;
Coins := CountItemAmountFromOpenBackpack(3031);
end;
if Terminated then Exit;


//-------------------------------------------//
//**** Return from the banker to the cave ***//
//-------------------------------------------//
//
//
FollowWaypoint(BankToCaveWaypoints); //
//
//
//*******************************************//


Sleep(1000);
end;

---

Poszukuje skryptu dla ek na poi dle. Elf bot

szukam skryptu (drink with empty backpacks - jesli takowy jest)
tibiaauto 8.42

Cytuj:

---

Wolvverine napisał

A Ja Szukam Skryptu Na Gsy Na Poh'u Dla Pallka, Pod Elfbot'a
Z Gory Dzieki

---

refresh!!!!!!

Cytuj:

---

Wolvverine napisał

refresh!!!!!!

---

Człowieku widocznie nikt tam nie bouje i nie majątego skryptu ponieważ bot by tam nie ogarną...




Ja szukam skryptu do elf bota aby walił ghosty z hmm.

Z góry dzięki...