A ja potrzebuję scrypta na ue combo :o
@edit
co ja niby złego napisałem że poszedł warned? czemu jest głupi :|?
Wersja do druku
A ja potrzebuję scrypta na ue combo :o
@edit
co ja niby złego napisałem że poszedł warned? czemu jest głupi :|?
;o slepego na torgu mamy =/
yyy? pluton co ty robisz ;x
PAMIETAC! MA MINA 24H OD REQUESTA ZEBY NAPISAC NNOWEGO!
UWAGA! POTRZEBUJE I JA SKRYPTU ;P.
Potrzebuje skryptu na to, ze jezeli zaczynam bic Acolyte of the Cult, Destroyera, Demona to moja postac ma walic z exori hur!
Jezeli widzi Nightmare to ma to zignorowac i nie bic z exori hur.
MIGIEM ;X
Potrzebuje nowego depositera na żółwie w port hope pod Ng
Witam szukalem na forum ng ale jakos nie umie znalezc.
A mianowicie poszukuje skrypta ktory by zanosil kase do depo albo wplacal do banku a nastepnie wracal na expowisko wiem ze taki scrypt istnieje tylko nie umie go znalezc.
Za pomoc bede wdzieczny.
Potrzebuje skrypta do ng w ktorym jest tak że ktoś cie lurnie na góre i ty tam waypointow nie ma to wracasz na dół i jeszcze ze jak widzi gs'a to olewa go i schodzi na dół . Chodzi mi o znany necro house kolo poh , padłem tam pare razy od gs'a ;/
oraz Depositera pod Tibia NG 4.8.2 i opisane co i jak ;d
Cytuj:
noruś napisał
Nie gwarantuję że zadziała,Kod PHP:const minPots = 100; var Pots: Integer; procedure Event_Notice(Text: String); begin if Pos('mana', Text) = 0 then Exit; Delete(Text, 1, 13); Pots := StrToInt(Copy(Text, 1, Pos(' ', Text) - 1)); end; begin Pots := minPots; while not terminated do begin UpdateWorld; ProcessEvents; if Pots < minPots then beep; Sleep(200); end; end;
http://forums.tibiabot.com/showthread.php?t=92616
http://forums.tibiabot.com/showthrea...613#post157613Cytuj:
noruś napisał
Zamiast ID Uha wstaw ID SD.
@dół
Znalazłem tylko SHP ;p
Kod PHP:Const MinHealth = 100 // ile hp NumberOfVialsToDrink = 1 // zostaw jak jest IDPotion = 7876 // to tez zostaw jak jest Delay = 0 // i to tez ;d 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;
Witajcie , potrzebuje skryptów :
1. Rzucanie mwalla odrazu przed przeciwnika uciekajacego
2. Na wrzucanie itemow do baga gdzies ukrytego , w ktorym znajduja sie bp i do nich wrzucac loota.
3. Skrypt na small health potiony na rooku
4. Na skillowanie , jak mi zabija slima nad venore to idzie na gore i czeka na respa?:]
pozdro viv3k
Liczę na pomoc od Graya:>
mam tylko ten na MW.
Kod PHP: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 while not Terminated do begin UpdateWorld; if Self.Attacking <> 0 then begin 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; Sleep(2000); end; end;
Witam potrzebuje skrypt na uhanie sie health potion w bocie ng
3 posty wyżej...
Kod PHP:Const MinHealth = 100 // ile hp NumberOfVialsToDrink = 1 // zostaw jak jest IDPotion = 266 // ID pota Delay = 0 // zostaw jak jest 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;
Elo, potrzebuje skryptu do NG, skiluje na trollach w ab i jak przychodzi troll champion to mnie leje za mocno, wiec skrypt ma atakowac championa z mocnej broni a normalne trolle z slabej....
#down
Niestety ten skrypt nie dziala wyskakuje blad [Error] wzmjx.ng(2): Syntax error
Trzymaj zmien tylko nazwę moba(tego mocniejszego) i ID bromi jakich używasz :)
Kod PHP://Enter the settings for when to change to DEFENSIVE// MonsterName = 'Dwarf Guard' weapon1_ID = 3295 //Enter the settings for when to change to OFFENSIVE back// Weapon2_ID = 3291 function GetItemFromOpenBackpack(ID: integer): TItem; var 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; 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_Attacked(ID:integer); begin Creature := GetCreatureByID(ID); if Creature <> nil then begin A := 0; if Creature.Name = MonsterName then begin Self.Defensive; Weapon := GetItemFromOpenBackpack(Weapon1_ID); if Self.RightHand.ID <> Weapon1_ID then if Weapon = nil then self.DisplayText('Weapon1 wasnt found in open backpack!'); else Weapon.MoveToBody(Self.RightHand,0); A := 1; end; if not self.attacking then if A = 0 then begin Self.Offensive; if Self.RightHand.ID <> Weapon2_ID then begin Weapon := GetItemFromOpenBackpack(Weapon2_ID); if Weapon <> nil then Weapon.MoveToBody(Self.RightHand,0); else Self.DisplayText('Weapon2 wasnt found in opened backpack!'); end; end; end; end; while not terminated do begin UpdateWorld; ProcessEvents; sleep(100); end;
mam crypta na reconnect i wsyztsko ok ale mam problem pozniewaz robie mlv na bocie i jak ktos podejdzie bot daje loga wlogowuje sie po pewnym czasie i nie zaznacza logaut player on screen co mam zrobic?