Szukasz skryptu? Zajrzyj tutaj!

Muuciek · 02-01-2009 19:43

#Wyzej na poprzedniej stronie ktos chcial na anti-bota skrypt prosze

Kod :


const
// Time in seconds to kill a creature. If it takes more than it, script will assume that creature as an anti-botter.
AverageTimeKill = 25;

// Play alarm in case of an anti-botter detected? 1 = yes / 0 = no
SoundAlarm  = 1;
// Alarm Path
AlertSound  = 'c:\windows\media\notify.wav';

// Don't change this
IgnoreLimit = 250;
 
var
CreaturesIgnore: array of integer;
CreatureAttacking        : integer;
CreatureAttackingBefore : integer;
TimeAttack, TimeStamp, TimeElapsed : integer;
y : integer;

// #credits hxxp://forums.tibiabot.com/showthread.php?t=77814
function TimeNow:integer;
var
  hours, minutes, seconds, miliseconds:integer;
begin
  DecodeTime(Now, hours, minutes, seconds, miliseconds);
  Result := hours * 60 * 60 * 1000 + minutes * 60 * 1000 + seconds * 1000 + miliseconds;
end;

procedure PlayAlarm;
begin
    if SoundAlarm then
    begin
        if (Pos('.wav', AlertSound) <> 0) then
        begin
            try
               PlaySound(AlertSound);
            except
               ShowMessage('Please enter a valid path for the sound file!');
            end;
        end;
    end;
end;

// Check if player is attacking something, if yes return attacked creature id
function CheckAttacking: integer;
begin
   UpdateWorld;
   for x := 0 to Creatures.Count - 1 do
   begin
      UpdateWorld;
      if Creatures.Creature[x].Attacking then
      begin
         if CreatureAttackingBefore > 0 and CreatureAttackingBefore <> Creatures.Creature[x].ID then
            CreatureAttackingBefore := CreatureAttacking;
         
         Result := Creatures.Creature[x].ID;
         Exit;
      end;
   end;
   Result := 0;
   Exit;
end;

//Check if an ID is in ignore list
function CheckIgnored(ID : integer) : boolean;
var x : integer;
begin 
    if y >= 1 then
    begin
        for x := 0 to y-1 do
        begin
            if ID = CreaturesIgnore[x] then // ignored creature
            begin
                Result := true;
                Exit;
            end;
        end;
    end;
    Result := false;
end;


// Add an ID to the ignore list
procedure IgnoreCreature(ID : integer);
begin
    Self.DisplayText('IgnoreCreature #' + IntToStr(ID));
    CreaturesIgnore[y] := ID;
    y := y + 1;
    if y > IgnoreLimit then y := 1;
end;

procedure StopAttack;
begin
    for x := 0 to Creatures.Count - 1 do
    begin
        UpdateWorld;
        if Creatures.Creature[x].Attacking then
        begin
            Creatures.Creature[x].Attacking := false;
            Exit;
        end;
    end;
end;

// Check if the player has been attacked, then attack the attacker if it isn't a player
procedure Event_Attacked(ID: integer);
begin
    if not CheckIgnored(ID) then
    begin
       for x := 0 to Creatures.Count - 1 do
       begin
          UpdateWorld;
          if Creatures.Creature[x].ID = ID and
          (not Creatures.Creature[x].WhiteSkull and not Creatures.Creature[x].RedSkull and not Creatures.Creature[x].YellowSkull) // ignore player attack (is there a better way?)
          then
          begin
                         TimeAttack := TimeNow;
             Creatures.Creature[x].Attacking := True;
             Exit;
          end;
       end;
    end;
end;

begin 
    CreatureAttackingBefore := 0;
    CreatureAttacking := 0;
    y := 0;
    CreaturesIgnore := VarArrayCreate([y, IgnoreLimit], $C);

    UpdateWorld;   
    while not Terminated do 
    begin
        UpdateWorld;

        if not CheckAttacking then
        begin
            ProcessEvents;
                        CreatureAttacking := CheckAttacking;            
        end;

        if CheckAttacking then
        begin
            TimeStamp   := TimeNow;
            TimeElapsed := TimeStamp - TimeAttack;

            if CreatureAttacking = CreatureAttackingBefore and (TimeElapsed > (AverageTimeKill*1000)) then
            begin
                IgnoreCreature(CreatureAttacking);
                StopAttack;
                PlayAlarm;
            end;

            CreatureAttackingBefore := CreatureAttacking;
        end;
        
        sleep(500);
    end;
end;

Pisac Pomoge Z Botem NG !!

Mag Samurai · 03-01-2009 11:34

potzrebuje scryptu aby jak mi mana zejdzie ponizej 80 to zeby uzyl mf a jak zycie mi spadnie ponizej 350 to zeby uzyl hp NG
@edit
a czy istnieje taki skrypt aby wypowiadal exana pox tylko i wylacznie jak mnie zatruje scorpion ? ah i jescze jak zrobic aby atakowalo wszystkie potwory nawet te ktore mnie nie atakuja ?

Muuciek · 03-01-2009 12:58

#up na privie masz

Adi_wro · 03-01-2009 15:44

Szukam skryptu na rotwormy nad thais w ancient temple oraz skrypta na rotwormy na darashii na polnoc od dp do Tibiaauto 7.40.

Yonash · 03-01-2009 19:33

[TIBIAAUTO]

Poszukuję, jak ustawić aby postać podasz expienia robiła także runki.. Gdy zaznaczam Rune maker to chowa mi roda do bp, a chciałbym aby chował go gdy będzie wystarczająco many na rune, przeżuci, zrobi rune i tak w kółko..
Jest to możliwe w TA, bo już zaznaczyłem wszystkie opcje a ona dalej tego roda do bp wrzuca i nie moge expic i robić run jednocześnie.
Proszę o pomoc!

Amitel · 04-01-2009 11:05

potrzebuje skrypt zeby zbieral loota i odnosil go w jedno miejsce .

uzywam bota ng

Nidaime · 04-01-2009 12:21

@up:
Podaj jakiego bota uzywasz to moze ci moge jesli bede potrafil.

@topic:

Prosilbym o scrypt ktory zbieral by mi bear i wolf pawy w jakims dobrym miejscu,
(bez ucieczki przed pk),
Najchetniej zebyt starczyl char z skillami 45/45 albo nawet 40/40 i 20 lvl.
Facc,
BlackD

Z gory dziekuje.

Nidaime

lukaszz_90 · 04-01-2009 13:27

@up

Chodzi koło Thais, zbiera to co potrzebujesz.

Kod :

onGMpause
stackItems
setLootOn
setFriendly
setMeleeKill cave rat
setMeleeKill wolf
setMeleeKill bear
setMeleeKill rat
setMeleeKill wasp
setMeleeKill snake
setMeleeKill minotaur
setMeleeKill spider
setMeleeKill poison spider
setLoot 09 17
setLoot 0E 17
setLoot 08 17
move 32321,32075,7
move 32319,32081,7
move 32317,32088,7
move 32317,32093,7
move 32319,32100,7
move 32319,32106,7
move 32319,32112,7
move 32317,32121,7
move 32309,32121,7
move 32311,32129,7
move 32316,32131,7
move 32325,32129,7
move 32327,32125,7
move 32339,32128,7
move 32342,32133,7
move 32345,32141,7
move 32353,32147,7
move 32359,32154,7
move 32364,32157,7
move 32369,32162,7
move 32378,32162,7
move 32387,32162,7
move 32394,32162,7
move 32405,32161,7
move 32412,32155,7
move 32417,32149,7
move 32421,32151,7
move 32429,32153,7
move 32437,32158,7
move 32446,32160,7
move 32453,32153,7
move 32453,32147,7
move 32467,32152,7
move 32474,32157,7
move 32478,32162,7
move 32485,32163,7
move 32489,32166,7
move 32491,32171,7
move 32499,32172,7
move 32496,32179,7
move 32472,32169,7
move 32459,32175,7
move 32453,32179,7
move 32448,32177,7
move 32438,32184,7
move 32439,32188,7
move 32441,32195,7
move 32443,32201,7
move 32446,32214,7
move 32446,32226,7
move 32446,32235,7
move 32446,32242,7
move 32446,32250,7
move 32440,32261,7
move 32435,32273,7
move 32421,32287,7
move 32417,32295,7
move 32404,32296,7
move 32393,32299,7
move 32376,32304,7
move 32365,32305,7
move 32355,32310,7
move 32357,32319,7
move 32357,32326,7
move 32355,32332,7
move 32362,32334,7
move 32372,32335,7
move 32393,32336,7
move 32401,32337,7
move 32408,32342,7
move 32411,32347,7
move 32402,32349,7
move 32390,32354,7
move 32382,32352,7
move 32376,32351,7
move 32370,32354,7
move 32363,32357,7
move 32361,32363,7
move 32360,32369,7
move 32360,32370,7
move 32362,32372,8
move 32365,32377,8
move 32373,32384,8
move 32374,32388,8
move 32369,32383,8
move 32362,32380,8
move 32361,32387,8
move 32359,32383,8
move 32359,32375,8
move 32361,32371,8
move 32361,32371,8
move 32359,32371,7
move 32351,32372,7
move 32340,32371,7
move 32330,32370,7
move 32309,32371,7
move 32294,32378,7
move 32278,32379,7
move 32265,32383,7
move 32262,32384,7
move 32256,32384,8
move 32249,32375,8
move 32244,32371,8
move 32240,32370,9
move 32237,32370,9
move 32231,32372,10
move 32214,32370,10
useItem 32208,32370,10
move 32208,32370,10
move 32201,32369,9
useItem 32198,32367,9
move 32198,32367,9
move 32189,32368,8
move 32181,32368,8
useItem 32179,32367,8
move 32179,32367,8
move 32179,32373,7
move 32179,32382,7
move 32174,32385,7
move 32164,32380,7
move 32162,32370,7
move 32151,32373,7
move 32142,32377,7
move 32132,32381,7
move 32132,32388,7
move 32132,32398,7
move 32132,32403,7
move 32133,32410,7
move 32135,32418,7
move 32133,32422,7
move 32131,32429,7
move 32132,32436,7
move 32137,32433,7
move 32133,32430,7
move 32134,32421,7
move 32135,32408,7
move 32135,32403,7
move 32134,32394,7
move 32139,32390,7
move 32149,32384,7
move 32157,32386,7
move 32165,32384,7
move 32173,32384,7
move 32183,32381,7
move 32193,32378,7
move 32199,32380,7
move 32208,32384,7
move 32213,32386,7
move 32218,32388,7
move 32222,32392,7
move 32225,32403,7
move 32213,32403,7
move 32211,32391,7
move 32207,32381,7
move 32206,32377,7
move 32207,32370,7
move 32201,32362,7
move 32195,32369,7
move 32184,32370,7
move 32180,32367,7
move 32197,32367,8
move 32199,32367,9
move 32207,32370,9
move 32209,32370,10
move 32221,32370,10
move 32225,32372,10
move 32234,32372,10
useItem 32236,32370,10
move 32236,32370,10
useItem 32244,32370,9
move 32244,32370,9
move 32245,32372,8
useItem 32261,32384,8
move 32261,32384,8
move 32263,32384,7
move 32270,32378,7
move 32268,32365,7
move 32263,32360,7
move 32260,32355,7
move 32255,32354,7
move 32257,32348,7
move 32265,32348,7
move 32272,32342,7
move 32276,32327,7
move 32276,32320,7
move 32281,32308,7
move 32275,32288,7
move 32272,32283,7
move 32273,32274,7
move 32278,32266,7
move 32288,32261,7
move 32302,32252,7
move 32312,32249,7
move 32332,32249,7
move 32338,32240,7
move 32338,32226,7
move 32339,32215,7
move 32354,32215,7
move 32364,32215,7
move 32368,32206,7
move 32368,32194,7
move 32368,32181,7
move 32368,32172,7
move 32367,32162,7
move 32357,32149,7
move 32347,32142,7
move 32342,32133,7
move 32331,32126,7
move 32325,32127,7
move 32322,32136,7
move 32313,32137,7
move 32306,32128,7
move 32306,32118,7
move 32314,32105,7
move 32321,32096,7
move 32320,32089,7
move 32318,32085,7
move 32319,32077,7
gotoScriptLine 0

pozdro

Nidaime · 04-01-2009 15:45

Thx za scrypt.

Nidaime

Adi_wro · 04-01-2009 18:45

Szukam skryptu na rotwormy nad thais w ancient temple oraz skrypta na rotwormy na darashii na polnoc od dp do Tibiaauto 7.40.

pucekk · 05-01-2009 17:37

Potrzebuje skryptu do NG żeby zakładał SSA jak zniknie.
Proszę o opisanie bo jestem zielony w tym.

Mentos · 05-01-2009 18:49

pucekk napisał

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

Potrzebuje skryptu do NG żeby zakładał SSA jak zniknie.
Proszę o opisanie bo jestem zielony w tym.

Kod :


const

  MightRing_ID = 3048; 
  Elven_ID     = 3082;
  StoneSkin_ID = 3081;
  IceRapier_ID = 3284;
  
  use_might   = 0;
  use_ssa     = 1;
  use_elven   = 0;
  use_ice     = 0;
  use_left    = 0;
  use_right   = 0;

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;

Procedure CheckSelf;
begin
  // Moves a might ring to the ring spot if it's empty.
  if use_might then
  begin
    if Self.Ring.ID <> MightRing_ID then
    begin
       Ring := GetItemFromOpenBackpack(MightRing_ID);
       if Ring <> nil then Ring.MoveToBody(Self.Ring,0);
       sleep(100);
    end;
  end;
  if use_ssa then
  begin
    if Self.Amulet.ID <> StoneSkin_ID then
    begin
      Amulet := GetItemFromOpenBackpack(StoneSkin_ID);
      if Amulet <> nil then Amulet.MoveToBody(Self.Amulet,0);
      sleep(100);
    end;   
  end
  else
  begin
    if use_elven then
    begin
      if Self.Amulet.ID <> Elven_ID then
      begin
        Amulet := GetItemFromOpenBackpack(Elven_ID);
        if Amulet <> nil then Amulet.MoveToBody(Self.Amulet,0);
        sleep(100);
      end;
    end;  
  end;
  if use_ice then
  begin
    if Self.RightHand.ID <> IceRapier_ID then
    begin
      Rapier := GetItemFromOpenBackpack(IceRapier_ID);
      if use_right then
      begin
        if Rapier <> nil then Rapier.MoveToBody(Self.RightHand, 0);
        sleep(100);
      end
      else
      begin
        if Rapier <> nil then Rapier.MoveToBody(Self.LeftHand, 0);      
        sleep(100);
      end;
    end;  
  end;
end;
 
While not Terminated do
begin
  UpdateWorld;
  CheckSelf;
  Sleep(100); 
end;

Zakladka tools > Scripter > wklejasz skrypta >klikasz execute script
Oczywiscie plecak/plecaki z ss musza byc otwarte
Nie zapomnij sciagnac wersji 4.8.5 wczesniejsza czasem miewala debugi przy pracy ze skryptami.

@down

Nattann napisał

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

Potrzebuje skryptu do ng na necro housie zeby leczyl sie np exura gdy mam 1200 hp a potionem gdy 800hp

Kod :

const 
minMana = 0; //minimum mana 
minHealth = 800; //Health to start healing with ultimate health potion 
maxHealth = 1200; //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;

Nattann · 05-01-2009 19:00

Potrzebuje skryptu do ng na necro housie zeby leczyl sie np exura gdy mam 1200 hp a potionem gdy 800hp

Mały Devil · 05-01-2009 19:16

Skrypt na picie potionów daje niżej a żeby się exurował na 1200 hp to ustaw na self healingu...

//Just Change ID of Potion, Delay(?), Min Health, Numbers of Vials to Drink.
Const
MinHealth = 800 // min Healh
NumberOfVialsToDrink = 1 // how many health fluids to drink
IDPotion = 239 // ID of Potion
Delay = 0 // in seconds

while not terminated do
begin
UpdateWorld;
if Self.Health <= MinHealth then
begin
for i := 1 to NumberOfVialsToDrink do
begin
if (i >= NumberOfVialsToDrink + 1) or (terminated = true) then break;
Self.Containers.UseItemWithSelf(IDPotion);
Sleep(Delay*1000);
end;
end;
Sleep(500);
end;

Hylon Tris · 06-01-2009 18:43

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

Temat: Szukasz skryptu? Zajrzyj tutaj!

Narzędzia tematu

Oceń ten temat

Zakladanie SSA.

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