Bardzo błagam o skrypt, że przestaje bić monka jak jest yellow, a jak green zowu zaczyna, kurde bardzo ważna sprawa.
Wersja do druku
Bardzo błagam o skrypt, że przestaje bić monka jak jest yellow, a jak green zowu zaczyna, kurde bardzo ważna sprawa.
deleted
Pisze z palucha:Cytuj:
H5N1 napisał
Sprawdz czy działaKod:const
bl=$005C68B4;
bl_offset=156;
procedure stopattack;
var p: array [0..0] of byte;
begin
p[0]:=$BF;
packet(p,1);
end;
procedure monk;
var i:integer;
begin
for i:=0 to 250 do begin
if (memreadstring(bl+(i*bl_offset))='Bonk') and (memreadinteger(bl+(i*bl_offset)+128)=100) then begin memwritestring(bl+(i*bl_offset),Monk',4); end;
if (memreadstring(bl+(i*bl_offset))='Monk') and (memreadinteger(bl+(i*bl_offset)+128)<50) then begin memwritestring(bl+(i*bl_offset),'Bonk',4);
stopattack;
end;
end;
end;
wklejam do bota ten skrypt na logout i jak daje enable to wyskakuje error (25:1) unexpected end of file :/
@up Ogarnij skladnie pascala. Pewnie sama procedure wkleiłes, poza tym, wbudowałem funkcje logout()
procedure dontkillme;
var i,adr,bl,bl_offset:integer;
begin
bl:=$005C68B4;
bl_offset:=156;
for i:=0 to 250 do
begin
adr:=bl+(i*bl_offset);
if memreadinteger(adr-4)=memreadinteger($5C684C) then continue;
if memreadinteger(adr+40)=playerz then
if (abs(memreadinteger(adr+32)-playerx)<7) and (abs(memreadinteger(adr+36)-playery)<7) then
if memreadinteger(adr+136)=1 then begin
alarm; logout;
end;
end;
end;
dontkillme();
END.
Na co to? Logout jak ktoś się pojawi?
Cytuj:
zpujb napisał
niby tak tylko coś mam źle bo nie działa xd
Kod:procedure dontkillme;
var i,adr,bl,bl_offset:integer;
begin
bl:=$005C68B4;
bl_offset:=156;
for i:=0 to 250 do
begin
adr:=bl+(i*bl_offset);
if memreadinteger(adr-4)=memreadinteger($5C684C) then continue;
if memreadinteger(adr+40)=playerz then
if (abs(memreadinteger(adr+32)-playerx)<7) and (abs(memreadinteger(adr+36)-playery)<7) then
if memreadinteger(adr+136)=1 then begin
alarm; logout;
end;
end;
end;
//VVVVV
BEGIN
//^^^^
dontkillme();
END.
dziękuję bardzo :)
A daloby rade, zeby leczyl sie eksura od 200 do 300 hp, a jak mniej to exura gran/vita?
I uzywania manafluida gdy mana ponizej 300
kod:Cytuj:
zbajgii napisał
Cytuj:
if (gethp<300) and (gethp>200) then say('exura');
if gethp<201 then say('exura vita');
if getmp<300 then usewith(2006,playerx,playery,playerz);
Cytuj:
LordCompi napisał
możesz mi połączyć ten skrypt z rune makerem?
begin
if getmp>120 then say('adori gran flam');
end.
Posiada ktoś skrypt na auto uh gdy hp spada ponizej 40%?
Cytuj:
Arcash napisał
@Arcash ;Kod PHP:procedure dontkillme; var i,adr,bl,bl_offset:integer; begin bl:=$005C68B4; bl_offset:=156; for i:=0 to 250 do begin adr:=bl+(i*bl_offset); if memreadinteger(adr-4)=memreadinteger($5C684C) then continue; if memreadinteger(adr+40)=playerz then if (abs(memreadinteger(adr+32)-playerx)<7) and (abs(memreadinteger(adr+36)-playery)<7) then if memreadinteger(adr+136)=1 then begin alarm; logout; end; end; end; //VVVVV BEGIN //^^^^ dontkillme(); if getmp>120 then say('adori gran flam'); END.
Cytuj:
Ywawrk Saj napisał
też bym go bardzo potrzebowal z gory dziekowka ;)
procedure leczenie;
var
h:integer;
begin
h:=round(0.4*getmaxhp);
if gethp<h then begin
usewith(WPISZ-ID-UHa,playerx,playery,playerz);
end;
end;
begin
leczenie;
end.
sprawdź to, nie wiem czy dobrze @Zoikowski ; @Ywawrk Saj ;
WORK WIELKIE THX
jak sprawdzic id itemu?
Dać Look w Tibii i w bocie w zakladce Info bedzie SEEID tego itemu.
Swietna robota! gram na tibianicu moje relacje,
w zakladce INFO pokazuje mi sie dobre x/y/z w kazdym razie sie zmienia z kadym krokiem.
see ID dziala w 100% klikajac na + w cavebocie w wpt pokazuje sie 00000000000
debugi przy otwieraniu bp,
ORAZ kiedy ustawilem light hacka nie dzialal ale po debugu i ponownym podlaczeniu bota do clienta tibianica full light hack ;) z starego zdebugowanego! powodzenia
Cytuj:
LordCompi napisał
ten skrypt nie dziala, ma ktos poprawiona wersje?
Bot dodany do spisu w oficjalnym, przyklejonym temacie:
EverBot
Oficjalna strona i download: everbot.pl
Licencja: darmowy
Wyrabianie kluczy: -
Forum: everbot.pl
Wsparcie klienta: Classicus/Tibianic 7.72
Aktualny temat: [EverBot] Bot pod Classicusa/Tibianica - Oficjalny Temat
Pozdrawiam i życzę powodzenia! :)
Co nie działa dokladnie? Nie przestaje atakować? Nie zmienia Nicku?Cytuj:
Pumpkin napisał
@Tomix ; dzięki ;)
moglby mi ktos zlaczyc skrypty na uhanie i spalanie many ?
procedure leczenie;
var
h:integer;
begin
h:=round(0.4*getmaxhp);
if gethp<h then begin
usewith(WPISZ-ID-UHa,playerx,playery,playerz);
end;
end;
begin
leczenie;
if getmp>1000 then say('adori gran mort');
end.
Gdy wlaczam select client lista postaci jest pusta, mam windows 7.
Wie ktos moze o co chodzi? Gram na classicusie.
Zmienilem ASLR na disabled, nic nie dalo.Cytuj:
Mateuszzz napisał
masz napisane pare stron wczesniej.. Wystarczy przejrzeć temat .
ma ktos skrypta na exura vita gdy x hp ?
gdy x hp?Cytuj:
aque napisał
if gethp=x then say('exura vita');
Skrypt na lowienie rybek, please.
mam pytanko czy wszystkim freezuje sie co 10~~ kratek cavebot?? jak mozna temu zaradzic?
nie dziala :(Cytuj:
BBsrv napisał
działa na pewno wklej to między begin a end.Cytuj:
aque napisał
@aque ;
begin
if gethp=500 then say('exura vita');
end.
tako zrobilem i zero reakcji
a masz równo 500 hp?Cytuj:
aque napisał
chciałeś skrypt 'jeśli mam x hp rzuć exura vita' więc taki dostałeś, myślę że nawet gimbus 12 letni zrozumie kod który ci podałem i jeśli chcesz żeby używał jeśli ma mniej niż 500hp to masz zmienić znak = na <
nie kompiluje sięCytuj:
LordCompi napisał
a jeszcze mam pytanie co do jednej rzeczy: chcę żeby bot co 200 sekund rzucał pewien czar. Jak mam to zrobić? Jeśli zrobię zwykłą pętle a w niej wait 200000 to na czas czekania bot przerywa całkowicie działanie. A ja chciałbym żeby cavebot w tym czasie normalnie chodził, jak to zrobić?
Ogarnoł by mi ktoś skrypta jezeli 10< blanek daje loga prosil bym go o sklejenie go razem z autologout if player on screen
aktualnie niewykonalne, gdyż musiałbyś zrobić timera, a bez dostępu do kodu raczej tego nie zrobiszCytuj:
Pumpkin napisał
dz , wlasnie mi chodzilo o to ze ponizej x hp i nie napisalem tego :d dzCytuj:
BBsrv napisał
ps jak laczyc 2 skrypty ?
normalnie, jeden pod drugim, między begin a end.Cytuj:
aque napisał
mam windows 7, wyłaczylem tym program , jednak bot dalej mi nie dziala na tibianic , co zrobic ? chodzi mi tylko o rune markera i light hack, dodam ze ten przycisk obtain tibianic.dll jest nie mozliwy do wcisniecia
Witam serdecznie poproszę o skrypty tak hmm
1.Na zakładanie life ringa jak się kończy obecny i na zakładanie throwing stars (Atk:30).do lewej ręki.
2.Na leczenie przez exure vita tylko gdy nie mam many na ten czar żeby przeskakiwało na uha jeżeli oczywiście się da:p
3.Żeby mi robiło runki czyli uh maker ale w stylu że jak nie ma pustych blanków żeby nie rzucał dalej czaru i mi nie spamował
i serdecznie podziękował za to co wrzucisz:)
aa i najważniejszy 4.gdy spada hp poniżej jakiejś ilości żeby automatycznie zakładał energy ringa a gdy się uleczę ściągał za to będę cię wielbił i bardzo będę wdzięczny
1, 4 nie mozliwe aktualnie
2
begin
If gethp<400 then begin
If getmp>160 then begin
Say('exura vita');
End else begin
usewith(WPISZ-ID-UHa,playerx,playery,playerz);
End;
End;
End.
Pisane z telefonu, moglem sie jebnac
4)3. Chyba nie da sie jeszcze sprawdzac itemcounta, wiec jedynie jesli da sie tworzyc blanki
If getmp>500 then begin
Say('adori blank');
Sleep(2000);
Say('czar na rune');
End;
Jak chcesz pkt 2 i 3 razem to wklej 3 przed "end."
PodbijamCytuj:
maselkolubie napisał
skrypt zeby dawal loga jak player na ekranie (oprocz ten z white listy)
A co z nim nie tak?Cytuj:
Byczek napisał
przy tym 2pkt muszą być na końcu tyle end?
Raczej tak:Cytuj:
Freestyle napisał
Cytuj:
begin
If gethp<400 then begin
If getmp>160 then begin
Say('exura vita');
End else begin
usewith(WPISZ-ID-UHa,playerx,playery,playerz);
End; /// (przeznaczony dla drugiego "if")
End; /// (przeznaczony dla pierwszego "if")
End. /// (przeznaczony dla begin)
Jak ktoś będzie potrzebował jakiegoś skrypta (w sensie nie cavebot itd tylko wszelakiego rodzaju leczenia itd ) to tagnijcie mnie, to wam napisze ( @BBsrv ; )
@up
łowienie rybek aktualnie raczej nie możliwe