Szukasz skryptu? Zajrzyj tutaj!

Witam.
Szukam skryptu do NG na gobliny, żeby podnosił i dawał do ręki small stones, i sktypt na leczenia health potionami.
Z góry thx.

Cytuj:

---

Scaryario napisał

Witam.
Szukam skryptu do NG na gobliny, żeby podnosił i dawał do ręki small stones, i sktypt na leczenia health potionami.
Z góry thx.

---

1) small stones
-Mam nadzieje ze taki tez moze byc, skrypt ktory ci podaje dziala troszke inaczej
Kiedy skoncza ci sie kamienie w rece, bot przelozy je z bp do reki.

Kod:

---

const
  WeaponID = 3297
  SpearID = 1781
  SpearOz = 3.60
  SpearAmount = 20
  Fluid = [99, 2886, 2887, 2887, 2888, 2889, 2890, 2891]


Procedure PickUpSpears(Spears: TItem);
begin
  if (Self.Capacity <= (Spears.Amount * SpearOz)) then
  begin
    if (Self.Capacity/SpearOz) > 1 then
      Spears.MoveToContainer(Self.Containers.Container[0], 0, Int(Self.Capacity/SpearOz));
  end else Spears.MoveToContainer(Self.Containers.Container[0], 0, 0);
  Sleep(500);
end;

Procedure FindSpears;
var
  x, y, z, i, f: integer;
  Tile: TTile;
begin
  for x := -1 to 1 do
  begin
    for y := -1 to 1 do
    begin
      Tile := Screen.Tile[x + 7, y + 5];
      begin
        for i := 0 to Tile.Count-1 do
        begin
          if i >= Tile.Count then Break;
          if Tile.Item[i].ID = SpearID then
          begin
            if i = 1 then PickUpSpears(Tile.Item[i]);
            else for f := Low(Fluid) to High(Fluid) do if Tile.Item[i-1].ID = Fluid[f] then PickUpSpears(Tile.Item[i]);
            else Tile.Item[i-1].MoveToGround(Self.X+Random(-2,3), Self.Y+Random(-2,3), Self.Z, 0);
          end;
        end;
      end;
    end;
  end;
end;


Function GetItemFromOpenBackpack(ID, Index: 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;
    if x = Index then Continue;
    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;


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;


while not terminated do
begin
  UpdateWorld;
  FindSpears;
 
  Weapon := GetItemFromOpenBackpack(WeaponID, Self.Containers.Count);
  if Weapon <> nil then Weapon.MoveToBody(Self.Arrow, 0);
  Spear := GetItemFromOpenBackpack(SpearID, 0);
  if Spear <> nil then Spear.MoveToContainer(Self.Containers.Container[0], 0, 0);
   
  if (Self.RightHand.ID = SpearID) then
  begin
    if (Self.RightHand.Amount < 90) then
    begin
      Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count);
      if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0);
    end;
  end else begin
    SpearCount := CountItemAmountFromOpenBackpack(SpearID);
    if SpearCount >= SpearAmount then
    begin
      Self.RightHand.MoveToBody(Self.Arrow, 0);
      Sleep(500);
      Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count);
      if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0);
    end else if Self.RightHand.ID = 0 then Self.Arrow.MoveToBody(Self.RightHand, 0);
  end;

  Sleep(500);
end;

---

2) Hp potki

Kod:

---

const
minMana = 0; //minimum mana
minHealth = 350; //Health to start healing with ultimate health potion
maxHealth = 0; //Health to start healing with Exura


while not Terminated do
begin
UpdateWorld;
if (Self.Health < minHealth) then
begin
Self.Containers.UseItemWithSelf(266);
Sleep(1000);
end;
else
begin
if (Self.Health < maxHealth) and (Self.Mana > minMana ) then
begin
Self.Say('Exura'); //change this to Exura or Exura Gran as u wish
Sleep(1500);
end;
end;
Sleep(100);
end;

---

Szukam skryptu do NG, na Dark catedral na 0 poziom... same bandity , wwildy , smugi.. ;D Noi skrypta ja fibule na rotwormy ;> czekam na odpowiedz ;pp

Pls help

Cytuj:

---

Szukam skryptu do NG, na Dark catedral na 0 poziom... same bandity , wwildy , smugi.. ;D Noi skrypta ja fibule na rotwormy ;> czekam na odpowiedz ;pp

Pls help

---

Cytuj:

---

32658
32342
7
6
32646
32343
7
6
32634
32346
7
6
32632
32349
7
6
32630
32350
7
2
32633
32350
6
6
32630
32351
6
6
32630
32350
6
8
32632
32349
7
6
32631
32345
7
6
32623
32346
7
6
32630
32345
7
6
32638
32345
7
6
32654
32344
7
6
32658
32342
7
6
32659
32342
7
8
32656
32339
8
6
32656
32332
8
6
32655
32342
8
6
32647
32343
8
6
32635
32344
8
6
32646
32344
8
6
32661
32344
8
6
32662
32336
8
6
32664
32331
8
6
32661
32341
8
6
32666
32354
8
6
32663
32359
8
6
32660
32367
8
6
32669
32367
8
6
32671
32373
8
6
32671
32376
8
6
32681
32367
8
6
32685
32377
8
6
32678
32366
8
6
32664
32366
8
6
32659
32374
8
6
32647
32367
8
6
32644
32383
8
6
32644
32367
8
6
32631
32370
8
6
32630
32379
8
6
32628
32394
8
6
32631
32380
8
6
32631
32367
8
6
32646
32367
8
6
32658
32358
8
6
32659
32343
8
6
32675
32342
8
6
32695
32347
8
6
32718
32345
8
6
32728
32346
8
8
32736
32349
9
6
32743
32351
9
6
32747
32362
9
6
32741
32350
9
6
32728
32346
9
1
32717
32343
8
6
32704
32345
8
6
32685
32345
8
6
32660
32342
8
8

---

Zobacz to ale nie jestem pewien czy tam nie ma tarantul :P Nie pamietam ale sprawdz. Chyba ze chesz plik z waypointsami to moge wstawic gdzies.

Prosiłbym jeszcze o waypointy dla palla 10 lvl, skille 52/40 eq p Set , na edron gobliny.
BOT NG.


-1 tylko.

Witam, szukam skryptu na larvy w ankrahmun na północ od ank. Z góry dziękuję!

Szukam skryptu ...tibiabotNG Mam capa 0 czy tam 10 to odnosci itemki do dp w thais, a kase wplaca do banku.Pozniej wraca na expowisko do Mitnwillin ;x

Cytuj:

---

Scaryario napisał

Prosiłbym jeszcze o waypointy dla palla 10 lvl, skille 52/40 eq p Set , na edron gobliny.
BOT NG.


-1 tylko.

---

Cytuj:

---

33106
31847
8
6
33099
31840
8
6
33093
31838
8
6
33083
31838
8
6
33075
31839
8
6
33071
31834
8
6
33054
31832
8
6
33051
31830
8
6
33047
31838
8
6
33054
31846
8
6
33057
31846
8
6
33065
31849
8
6
33072
31854
8
6
33076
31862
8
6
33072
31865
8
6
33081
31871
8
6
33089
31873
8
6
33092
31877
8
6
33102
31880
8
6
33109
31868
8
6
33104
31862
8
6
33100
31862
8
6
33100
31859
8
6
33091
31857
8
6
33091
31852
8
6
33091
31846
8
6
33092
31843
8
6
33092
31837
9
5
33094
31835
9
6
33097
31837
9
6
33100
31835
9
6
33101
31827
9
6
33102
31823
9
6
33102
31822
10
5
33099
31819
10
6
33093
31822
10
6
33093
31815
10
6
33099
31812
10
6
33099
31809
10
6
33097
31803
10
6
33102
31805
10
6
33106
31810
10
6
33109
31808
10
6
33113
31801
10
6
33107
31814
10
6
33115
31816
10
6
33105
31819
10
6
33102
31822
10
1
33104
31827
9
6
33098
31837
9
6
33104
31841
9
6
33103
31847
9
6
33104
31851
9
6
33106
31851
10
5
33109
31848
10
6
33107
31844
10
6
33107
31841
10
6
33109
31836
10
6
33102
31844
10
6
33098
31847
10
6
33096
31841
10
6
33103
31852
10
6
33111
31855
10
6
33110
31861
10
6
33109
31868
10
6
33108
31855
10
6
33106
31851
10
1
33102
31853
9
6
33095
31851
9
6
33088
31847
9
6
33079
31848
9
6
33081
31848
9
6
33076
31854
9
6
33073
31849
9
6
33069
31848
10
5
33070
31851
10
6
33072
31854
10
6
33073
31859
10
6
33068
31853
10
6
33063
31853
10
6
33060
31850
10
6
33055
31850
10
6
33052
31850
10
6
33063
31850
10
6
33065
31847
10
6
33066
31842
10
6
33069
31848
10
1
33064
31847
9
6
33065
31842
9
6
33061
31835
9
6
33062
31830
9
6
33062
31825
9
6
33063
31822
10
5
33062
31831
10
6
33063
31822
10
6
33059
31818
10
6
33055
31817
10
6
33051
31815
10
6
33059
31818
10
6
33061
31809
10
6
33065
31814
10
6
33072
31810
10
6
33066
31817
10
6
33075
31823
10
6
33068
31823
10
6
33063
31822
10
1
33057
31830
9
1
33066
31832
8
6
33072
31834
8
6
33071
31838
8
6
33078
31838
8
6
33086
31838
8
6
33092
31844
8
6
33094
31846
8
6
33102
31847
8
6

---

to nie jest tylko -1 ale sa dobre sam je uzywalem(jak pomoglem kliknij na ten krzyzyk :P)

Cytuj:

---

Hylon Tris napisał

Mam skrypt do depositera takowy:
////////////////////////////////////////////
const
CaveToBankWaypoints = 'C:\Program Files\TibiaBot NG\EDRON BANK TO ROTS.wpt'
BankToCaveWaypoints = 'C:\Program Files\TibiaBot NG\EDRON ROTS TO BANK.wpt'

MinCap = 155;
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);
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.Say('hi');
Sleep(2000);
Self.Say('deposit');
Sleep(2000);
Self.Say(IntToStr(Coins));
Sleep(2000);
Self.Say('yes');
Sleep(2000);
Self.Say('bye');
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);
updateworld;
Coins := CountItemAmountFromOpenBackpack(3031);
end;
if Terminated then Exit;

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

Sleep(1000);
end;




I teraz mam problemik ;) co trzeba w niego dokładnie wstawić oprócz drogi do dp.
I gdzie tego skrypta wstawić pod waypointami czy w skrypterem.

Pozdrawiam

---

ponawiam ;)

witam chce skrypt ze kiedy skonczy sie zarcie powiecmy rybki to zabija slime i daje loga... wiem wiem zaraz mnei zjedziecie bo jest multum tego typu skryptow ale mi chodzi tylko o ta funkcje a w innych skryptach jest zeby jadl exurowal sie itd, mi tylko chodzi o to zeby zabil matke i dal loga keidy skonczy sie jedzenie!!!!
Bardzo bym prosil o ten skrypt..

Cytuj:

---

jankiel7 napisał

witam chce skrypt ze kiedy skonczy sie zarcie powiecmy rybki to zabija slime i daje loga... wiem wiem zaraz mnei zjedziecie bo jest multum tego typu skryptow ale mi chodzi tylko o ta funkcje a w innych skryptach jest zeby jadl exurowal sie itd, mi tylko chodzi o to zeby zabil matke i dal loga keidy skonczy sie jedzenie!!!!
Bardzo bym prosil o ten skrypt..

---

Cytuj:

---

setNoFollow
onGMpause
setMeleeKill slime
waitX 5
IfFewItemsGoto FA 0D,1,6
waitX 5
gotoScriptLine 0
sayMessage exiva B:slime
waitX 120
closeConnection

---

gdy nie bedziesz miec ryb bot zacznie bic w slime z fireballa, przy okazji bedzie bil tez matke przez 2 minuty powinien juz zabic matke z fb i daje logouta :> pasi?
jak masz pacca to mozesz ustawic exori zamiast fb


a ja prosze o skrypt na monka, ten ktory był razem z botem od poczatku, tylko ze mi sie gdzies usunął, wklejcie go tu

Witam.
Szukam skryptu na gobliny w edron, żeby nie szedł w najniebezpieczniejsze cave (z dużą ilością assasinów).
NG.

szukam skryptu na mintwalin aby atakowalo pierw mino maga potem archera, guarda i minosa. Jest tu skrypt aby pierwszego mino maga atakowalo ale archery mnie mocno bija jak jest duzo a bot atakuje np. Guardy

Szukam skryptu do ng
na anti bot monstery
np jak bije żółwia za dlugo omija go lub omija go w ogóle

proszę o pomco!

[Tibiaauto] [8.40]
Witam, szukam waypointów na larvy w ankrahmun na północ od ank. Tylko waypointy! Z góry dziękuję!