Szukam skryptu dzięki któremu moja postać która będzie miała full mp będzie wpisywała zawszę exurke. Mam BlackD i nigdzie nie widzę opcji gdzie takie coś ustawić więc myślę że skrypt potrzebny:)
Wersja do druku
Szukam skryptu dzięki któremu moja postać która będzie miała full mp będzie wpisywała zawszę exurke. Mam BlackD i nigdzie nie widzę opcji gdzie takie coś ustawić więc myślę że skrypt potrzebny:)
@UP
Weź koleś.... "Mana trainer" - słyszałeś o takim czymś?? Jak nie umiesz się BlackD obsługiwać to idź na NG...
Ponawiam mój request:
Ja natomiast szukam skryptu, który ma działanie następujące(Tibia Bot NG):
Gdy widzi skulla/rsa bądź przyjmie jakieś obrażenia, postać idzie do określonego waypointu ( tu: do pz ).
I szukam skryptu na używanie potionów. Odpowiedzi proszę na pw
Jezeli bym napisal na pw to by modek mogl pomyslec ze nie dostales odp i dostalbym warna.Cytuj:
Shilen napisał
Skrypt na poty : 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;
Sam prosze o skrypt do Blackd Proxy. Podobno jest taki skrypt ze char sam zaczyna expic bije lvl zarabia gold kupuje eq dalej expi wbija 8 lvl podchodzi do oracle i loga. Prosze o niego :pp
#up
Kod:#####Config#####
fastExiva _bugslevel = 6
fastExiva _branchtries = 4
################
onGMpause
fastExiva < B4 14 $hex-tibiastr:Advanced Rook to Main v2.1 Olaf Pozdrawia.$
waitX 2
fastExiva < B4 14 $hex-tibiastr:Script created by Darkmystery (Jesse), please give me credit if you ***** this script. ^^$
waitX 1
fastExiva < B4 12 $hex-tibiastr:Chapter I: The tutorial.$
move 32023,32273,7
move 32025,32273,6
move 32032,32273,6
fastExiva > A2 $hex-idofname:Santiago$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
fastExiva > A2 00 00 00 00
move 32034,32279,6
move 32032,32279,5
useItem 32034,32276,5
waitX 1
fastExiva > 0F 00 78 FF FF 40 00 00 EA 0D 00 FF FF 04 00 00 01
move 32032,32279,5
move 32034,32279,6
move 32032,32273,6
fastExiva > A2 $hex-idofname:Santiago$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
fastExiva > A2 00 00 00 00
move 32036,32278,6
move 32036,32277,7
move 32038,32274,7
move 32038,32273,8
move 32034,32278,8
useItem 32033,32278,8
waitX 1
fastExiva > 0F 00 78 FF FF 06 00 00 68 0B 00 22 7D 16 7E 08 01
move 32034,32284,8
fastExiva > 0A 00 82 23 7D 1D 7E 08 46 1E 01 00
:roach
setMeleeKill Cockroach
setLoot CA 1E
IfEnoughItemsGoto CA 1E,3,$nlineoflabel:deadroach$
move 32035,32285,9
gotoScriptLine $nlineoflabel:roach$
:deadroach
resetLoot
resetKill
move 32035,32285,9
move 32035,32286,8
move 32038,32273,8
move 32038,32274,7
move 32036,32277,7
move 32036,32278,6
move 32032,32273,6
fastExiva > A2 $hex-idofname:Santiago$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade no
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
fastExiva > 0A 00 82 FF FF 06 00 00 CD 1E 00 01
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
fastExiva > A2 00 00 00 00
move 32045,32271,6
move 32047,32271,7
move 32057,32270,7
fastExiva > A2 $hex-idofname:Zirella$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade alright
fastExiva > A2 00 00 00 00
fastExiva < B4 12 $hex-tibiastr:This part is tricky since other players may steal your branches.$
fastExiva testding
fastExiva _tries = 0
:branch
move 32066,32282,7
waitX 2
fastExiva > 0A 00 82 43 7D 19 7E 07 49 1E 01 00
waitX 1
fastExiva > 0F 00 78 42 7D 1A 7E 07 48 1E 02 41 7D 16 7E 07 01
waitX 1
fastExiva > 0F 00 78 42 7D 1A 7E 07 48 1E 01 41 7D 16 7E 07 01
move 32065,32277,7
waitX 1
fastExiva > 0F 00 78 41 7D 16 7E 07 48 1E 01 3E 7D 10 7E 07 01
waitX 1
fastExiva > 0F 00 78 41 7D 16 7E 07 48 1E 02 3E 7D 10 7E 07 01
move 32063,32273,7
fastExiva > 11 00 83 3E 7D 10 7E 07 48 1E 01 3E 7D 0F 7E 07 5C 1E 01
waitX 1
fastExiva > 11 00 83 3E 7D 10 7E 07 48 1E 02 3E 7D 0F 7E 07 5C 1E 01
fastExiva _tries = $numericalexp:{$_tries$}+1$
IfTrue ($_tries$#number<#$_branchtries$) Goto $nlineoflabel:branch$
move 32057,32270,7
fastExiva > A2 $hex-idofname:Zirella$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
fastExiva > A2 00 00 00 00
move 32058,32267,7
useItem 32058,32266,7
move 32058,32265,7
fastExiva > 0A 00 82 3B 7D 09 7E 07 4D 1E 02 00
waitX 2
fastExiva > 0F 00 78 FF FF 06 00 00 CB 1E 00 FF FF 40 00 00 01
waitX 1
fastExiva > 0F 00 78 FF FF 06 00 00 CB 1E 00 FF FF 40 00 00 01
useItem 32058,32266,7
move 32069,32266,7
move 32070,32266,8
move 32067,32265,8
useItem 32067,32264,8
waitX 1
fastExiva > 0F 00 78 FF FF 06 00 00 CC 1E 00 FF FF 40 00 00 01
move 32070,32266,8
move 32070,32267,7
move 32086,32265,7
fastExiva > A2 $hex-idofname:Carlos$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
fastExiva > 08 00 D3 82 00 00 4F 4D 00 00
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
fastExiva > A2 00 00 00 00
:killcuteanimals
setLoot F9 0D
setMeleeKill Rabbit
setMeleeKill Deer
IfEnoughItemsGoto F9 0D,1,$nlineoflabel:deadanimals$
move 32094,32266,7
IfEnoughItemsGoto F9 0D,1,$nlineoflabel:deadanimals$
move 32082,32260,7
gotoScriptLine $nlineoflabel:killcuteanimals$
:deadanimals
setLootOff
resetLoot
resetKill
move 32086,32265,7
fastExiva > A2 $hex-idofname:Carlos$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade trade
waitX 1
fastExiva > 7B F9 0D 00 $numbertohex1:{$countitems:F9 0D$}$
waitX 1
sayInTrade ready
fastExiva > A2 00 00 00 00
waitX 1
fastExiva > 0F 00 78 FF FF 06 00 00 D7 0B 00 FF FF 40 00 00 $numbertohex1:{$countitems:D7 0B$}$
waitX 1
fastExiva > 0F 00 78 FF FF 40 00 02 81 0D 02 FF FF 06 00 00 01
waitX 1
fastExiva > 0F 00 78 FF FF 40 00 01 BB 0B 01 FF FF 0A 00 00 01
move 32075,32258,7
move 32075,32256,6
move 32075,32249,6
move 32075,32246,7
move 32087,32226,7
fastExiva < B4 12 $hex-tibiastr:Chapter II: The food collecting.$
:food
setMeleeKill Deer
setMeleeKill Rabbit
setMeleeKill Sheep
setLootOn
setLoot F9 0D
setLoot 0B 0E
setLoot FE 0D
move 32087,32216,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32079,32216,7
fastExiva > 0A 00 82 4E 7D D8 7D 07 81 08 01 01
:soldfood
move 32065,32209,7
IfTrue ($mycap$#number<=#10000) Goto $nlineoflabel:sellfoodfence$
move 32074,32219,7
fastExiva > 0A 00 82 4A 7D DC 7D 07 83 08 02 01
move 32075,32233,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32084,32239,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32096,32213,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32113,32241,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32110,32248,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32098,32246,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32097,32213,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
gotoScriptLine $nlineoflabel:food$
:sellfoodfence
fastExiva > 0A 00 82 43 7D CE 7D 07 83 08 01 01
:sellfood
move 32048,32205,7
fastExiva > A2 $hex-idofname:Willie$
waitX 2
sayMessage hi
waitX 1
sayInTrade trade
waitX 1
IfFewItemsGoto FE 0D,1,$nlineoflabel:noham$
fastExiva > 7B FE 0D 00 $numbertohex1:{$countitems:FE 0D$}$
waitX 1
:noham
IfFewItemsGoto F9 0D,1,$nlineoflabel:nomeat$
fastExiva > 7B F9 0D 00 $numbertohex1:{$countitems:F9 0D$}$
waitX 1
:nomeat
IfFewItemsGoto 0B 0E,1,$nlineoflabel:nocarrot$
fastExiva > 7B 0B 0E 00 $numbertohex1:{$countitems:0B 0E$}$
waitX 1
:nocarrot
sayInTrade bye
stackItems
fastExiva > A2 00 00 00 00
IfEnoughItemsGoto D7 0B,66,$nlineoflabel:eq$
move 32067,32205,7
fastExiva > 0A 00 82 43 7D CE 7D 07 83 08 01 01
gotoScriptLine $nlineoflabel:soldfood$
:eq
resetLoot
resetKill
fastExiva < B4 12 $hex-tibiastr:Chapter III: The art of trading.$
move 32097,32205,7
move 32107,32203,7
waitX 2
fastExiva > 0F 00 78 FF FF 04 00 00 EA 0D 00 6B 7D CB 7D 07 01
waitX 1
fastExiva > 0F 00 78 FF FF 05 00 00 C6 0C 00 6B 7D CB 7D 07 01
waitX 1
fastExiva > 0F 00 78 FF FF 06 00 00 81 0D 00 6B 7D CB 7D 07 01
waitX 1
fastExiva > 0F 00 78 FF FF 0A 00 00 BB 0B 00 FF FF 40 00 00 01
waitX 1
sayMessage hi
waitX 1
sayInTrade trade
waitX 1
fastExiva > 07 00 7A C9 0C 00 01 00 00
waitX 1
sayInTrade bye
move 32110,32208,7
move 32110,32206,6
move 32107,32207,6
waitX 2
sayMessage hi
waitX 1
sayInTrade trade
waitX 1
fastExiva > 07 00 7A 54 0D 00 01 00 00
waitX 1
fastExiva > 07 00 7A E7 0D 00 01 00 00
waitX 1
fastExiva > 07 00 7A 33 0D 00 01 00 00
waitX 1
IfFewItemsGoto D7 0B,12,$nlineoflabel:nohelmet$
fastExiva > 07 00 7A 1B 0D 00 01 00 00
waitX 1
:nohelmet
sayInTrade bye
move 32110,32206,6
move 32110,32208,7
move 32097,32205,7
fastExiva < B4 12 $hex-tibiastr:Chapter IV: The hunting.$
:entercave
move 32060,32174,7
fastExiva > 0A 00 82 3C 7D AD 7D 07 B3 01 01 01
move 32059,32172,8
move 32059,32171,9
:hunt
setMeleeKill Rat
setMeleeKill Bug
setMeleeKill Cave Rat
setLoot D7 0B
move 32050,32161,9
move 32050,32160,9
move 32050,32159,10
move 32050,32156,10
move 32050,32155,11
move 32035,32156,11
move 32025,32160,11
move 32014,32161,11
move 32008,32174,11
move 31993,32177,11
move 31985,32167,11
move 31984,32147,11
move 31983,32138,11
move 31996,32132,11
move 32012,32142,11
IfTrue ($mylevel$#number<#$_bugslevel$) Goto $nlineoflabel:nobugs$
move 32011,32153,11
move 32001,32154,11
move 31991,32145,11
move 31986,32152,11
move 31986,32153,10
move 31978,32154,10
move 31977,32154,11
move 31979,32154,11
move 31979,32153,12
move 31979,32141,12
move 31980,32141,13
move 31984,32136,13
move 31984,32137,12
move 31983,32129,12
move 31984,32135,12
move 31984,32136,13
move 31980,32141,13
move 31980,32142,12
move 31979,32153,12
move 31979,32154,11
move 31977,32154,11
move 31977,32155,10
move 31986,32153,10
move 31986,32152,11
:nobugs
move 32023,32153,11
move 32027,32148,11
move 32047,32155,11
move 32050,32155,11
move 32050,32156,10
move 32050,32159,10
move 32050,32160,9
IfEnoughItemsGoto D7 0B,500,$nlineoflabel:leavecave$
IfTrue ($myexp$#number>#6000) Goto $nlineoflabel:leavecave$
gotoScriptLine $nlineoflabel:hunt$
:leavecave
move 32059,32171,9
move 32060,32173,8
move 32060,32174,7
:deposit
move 32096,32191,7
move 32096,32191,8
move 32117,32190,8
sayMessage hi
waitX 1
sayInTrade deposit all
waitX 1
sayInTrade yes
waitX 1
sayInTrade balance
waitX 1
sayInTrade bye
move 32096,32191,8
move 32096,32191,7
IfTrue ($myexp$#number>#6000) Goto $nlineoflabel:cya$
gotoScriptLine $nlineoflabel:entercave$
:cya
fastExiva < B4 12 $hex-tibiastr:Chapter V: The End.$
fastExiva < B4 14 $hex-tibiastr:Thanks for using this script, money can be found at the bank.$
fastExiva testding
fastExiva close
Potrzebuje skryptu, zeby ng chodzilo po burnach oraz jezeli postac ma mniej niz xxx mana potionow to ma zabic wszystko dookola i lognac.
tibiaBot NG 4.6.9
szukam scryptu do uzupelniania spearow przy treningu tylko chodzi o to ze bag ze spirami lezy na ziemi do tego anty logout i jedzenie ps bicie ciagle 1 potworka Trainer
(nie chodzi o rl tibie dlatego numery itemow dozucam)
spear 3277
bag 2853
Meat 3577
szukalem wszedzie z gory dzieki
Potrzebuje skrypt NG, w którym bot zamienia gold coins na platinum coins potem jeszcze grupuje, a jeżeli będzie 100 platinum coins to zamieni na 1 crystal coin :-) Jeżeli była już taka prośba to proszę o link do posta, a ten usunąć.
up proszę nie sprawdzałęm ale powinien działać
var
Kod:Coins: integer;
Finished: boolean;
function GetCreatureByName(Name: string): 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].Name = Name then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;
procedure Event_Message(Channel: integer; Name, Text: String);
begin
UpdateWorld;
Creature := GetCreatureByName(Name);
if Creature = nil then Exit;
if Creature.NPC then
begin
if Pos('platinum', Text) <> 0 then
begin
Self.Say(IntToStr(Coins));
Sleep(1000);
Self.Say('yes');
Sleep(1000);
Self.Say('bye');
Finished := True;
end;
end;
end;
procedure Event_Notice(Text: String);
begin
if Pos('gold coins', Text) = 0 then Exit;
Delete(Text, 1, 13);
Coins := IntToStr(Copy(Text, 1, Pos(' ', Text) - 1)) div 100;
if Coins <> 0 then
begin
Self.Say('hi');
Sleep(1000);
Self.Say('change gold');
end;
end;
begin
Finished := False;
UpdateWorld;
Self.Containers.UseItemWithSelf(3031);
while ((not Terminated) and (not Finished)) do
begin
ProcessEvents;
Sleep(100);
end;
end;
potrzebuje skrypta na ng lub black proxy aby postać jak skończą się jej akmienie na trolach ab wracała do dp i brała kamienie
Potrzebuje 3 scrypty:
1.
Na trolle pod ab,
z depositerem i otwieraniem drzwi.
2.
Na chikeny w nort porcie(zeby mi zbieral),
3.
Jakis scrypt na ghoule i szkielety, albo inne dobre miejsce da knighta o nastepujacych skillach:
28 lvl,
4 mlvl,
skille 68/67
Eq:
Platinum amulet,
crusader helmet,
mms,
golden armor,
k legi,
leather bootsy.
Blackd Proxy oczywiscie
Prosze o sprawdzone i dobre scrypty.
Nidaime
witam, potrzebuje skryptu ktory bedzie robil sd normalnie ale jadl jedzenie co 720 sec(dragon ham) tibia bot ng
Potrzebuje skrypt ktory grupuje platinum jak i to co up. Tyle ze nie u NPC lecz w bp {tak samo z siebie[TO JEST OTS]}
Ale mi chodzi o OTS ;d Można tam przez kliknięcie lpm zmienić 100 gp na platynke czaisz? PONAWIAM PROŚBĘ!!Cytuj:
Teron Daja napisał
Nadal mnie nie rozumiesz, MAM JUZ SKRYPT NA ZAMIENIANIE GP i szukam takiego ktory je grupuje
Cytuj:
Mickey napisał
Kod:procedure StackItems;
var
T: array of integer;
x, y, z: integer;
Temp: integer;
begin
T := VarArrayCreate([0, 19] , 3);
Temp := -1;
for x := 0 to Self.Containers.Count - 1 do
begin
if x >= Self.Containers.Count then Break;
for z := 0 to Self.Containers.Container[x].Count - 1 do
begin
T[z] := Self.Containers.Container[x].Item[z].ID;
end;
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].Properties.Pilable then
begin
if Self.Containers.Container[x].Item[y].Amount < 100 then
begin
for z := y + 1 to Self.Containers.Container[x].Count - 1 do
begin
if T[z] = Self.Containers.Container[x].Item[y].ID then
begin
if Self.Containers.Container[x].Item[z].Amount < 100 then
begin
Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x], z, 0);
end;
end;
end;
end;
end;
end;
end;
end;
begin
while not Terminated do
begin
UpdateWorld;
StackItems;
Sleep(1000);
end;
end;
Skrypt do blackproxy lub ng żeby robił lootbagi z mino ze wszystkiego oprócz axe i chain helma
Da rade coś takiego zrobić ?
up.. z tego co wiem nie bo sam prosilem nie dawno o podobny i nikt nie umial mi pomoc.. w takim razie chcialem poprosic o skrypt do blackd na train z kamieniami pallkiem na monku... jesli mozna objasnic co i jak bo zawsze uzywalem ng i nie bardzo mam pojecie w obsludze blackd