adr.bot

Solutions: 1)play that server without bot 2)buy adrenalin 3) dont play that shit server i think 3 is best selection xd

i have no idea how that works xd

begin Print(engine.ServerTime); end.

i dont know, maybe this works function captcha:boolean; begin while true do begin if engine.dlgtext.contains('Refresh') or engine.dlgtext.contains('Captcha') or engine.dlgtext.contains('60 seconds') or engine.dlgtext.contains('Bot') then begin //SetForegroundWindow(Engine.GameWindow); PlaySound(exepath+'\sounds\'+'PlayerAlarm'+'.wav'); delay(500); StopSound; end; end; end; function deadCheck: Boolean; begin Result := false; if User.Dead then begin Result := true; Print('Dead. Pressing to village.'); Delay(1000); Engine.FaceControl(0,false); Engine.GoHome; Delay(10000); teleport; end; end; procedure teleport; begin while true do begin engine.bypasstoserver('_bbshome'); delay(1000); Engine.bypasstoserver('02'); delay(1000); Engine.bypasstoserver('0a'); delay(1000); Engine.bypasstoserver('033'); delay(1000); Engine.bypasstoserver('0f'); delay(1000); Engine.MoveTo(-18824,13544,-4880) end; end; procedure buffs; var buff:tl2buff; buffID,seconds:cardinal; begin buffID:= 1085; //change buff id seconds:= 300; //buff end time seconds while true do begin if not user.buffs.byid(buffID, buff) or (buff.endtime < 300*1000) then begin if (user.target.dead) or (user.target = nil) then begin engine.facecontrol(0,false); while user.incombat do delay(1000); engine.bypasstoserver('_bbshome'); delay(1000); Engine.bypasstoserver('02'); delay(1000); Engine.bypasstoserver('0b'); delay(1000); Engine.bypasstoserver('0f'); delay(1000); Engine.bypasstoserver('_bbsgetfav'); delay(1000); engine.facecontrol(0,true); while not deadCheck do delay(1000); end; end; end; end; begin Script.NewThread(@captcha); Script.NewThread(@buffs); end. even this doesnt work then somethink like this must looks like

here is example maybe it help http://rghost.net/74jH9rxPg http://rghost.net/7fQCRgpLH

i newer used array so cant help with this xd

try engine.dlgsel(1); and etc change 2 ,3 or what ever you need press, if still doesnt work then use engine.bypasstoserver

engine.sendmail('Nick', 'Theme','text', [57, 1]) // 57 aden id, 1 adena count

if rly, that script useless for me, i dont know, maybe when i have free time then i try make that, but also not 100% to i can make that, and say what that script must do,send all items or only 1?tell me more EDIT: if dont know how use send mail here example engine.sendmail('Nick', 'Theme','text', [57, 1]) // 57 aden id, 1 adena count

you need find that buff id then find in skillgrp.dat i gues and see like like other guy post and http://prntscr.com/7tw2i9 this number be 0 if not debuff change it to 1 and then that shows like debuff

or maybe try learn some basics? xd var buff:tl2buff; buffID,seconds:cardinal; begin buffID:= 1036; //change buff id seconds:= 30; //buff end time seconds while true do begin if not user.buffs.byid(buffID, buff) or (buff.endtime < seconds*1000) then begin if (user.target.dead) or (user.target = nil) then begin engine.facecontrol(0,false); while user.incombat do delay(1000); engine.bypasstoserver('_bbshome'); //use alt and b change for your server delay(1000); engine.bypasstoserver('_bbsbuffer'); delay(1000); engine.bypasstoserver('_bbscastgroupbuff 1 Player'); delay(1000); engine.facecontrol(0,true); end; end; end; end.

check 10 page

oh sry cant help, i dont know tower scripts

so then maybe show that script?

var item: TL2Item; function buffCheck: Boolean; var buff: TL2Buff; begin if not User.Buffs.ByID(1388, buff) then begin Result:=true; Print('Buffs are needed. Buffing...'); Engine.MoveTo(81909, 148285, -3464); Delay(500); Engine.SetTarget('Horadrim'); // NPC ID Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel('farm'); Delay(500); Print('Buffed.'); Engine.MoveTo(83378, 147917, -3400); end; Result:=false; end; function deadCheck: Boolean; begin Result := false; if User.Dead then begin Print('Dead. Pressing to village.'); Delay(1000); Engine.FaceControl(0,false); Engine.GoHome; Delay(10000); end; end; procedure all; begin while true do begin delay(150); if User.Dead then begin deadCheck; end; if User.inrange(131369,114436,-3713, 250, 1000) then begin Engine.MoveTo(134874,114441,-3720); Engine.FaceControl(0,true); Delay(20000); Engine.MoveTo(135968,114977,-3720); Delay(20000); Engine.MoveTo(137824,114366,-3720); Engine.MoveTo(139808,114388,-3720); //close to entrance Delay(20000); Engine.MoveTo(141847,114428,-3720); Engine.MoveTo(142725,113730,-3720); Engine.MoveTo(144446,114477,-3720); Engine.MoveTo(146443,112252,-3720); end; if user.inrange(81940, 148398, -3469, 10000) then begin buffCheck; end; if user.inrange(83378, 147917, -3400, 500) and User.Buffs.ByID(1388, buffCheck) then begin Engine.SetTarget('Mystra'); delay(500); Engine.DlgOpen; delay(500); Engine.DlgSel('High Level Hunting Areas'); delay(500); Engine.DlgSel('Dragon Valley Cave'); delay(500); Engine.DlgSel('Confirm'); end; end; end; procedure weapons; var meele, range, lowHP, highHP:cardinal; item:tl2item; begin lowHP := 40; //change HP count in % meele := 6592; //weapon ID highHP := 80; //change HP count in % range := 7577; //weapon ID while true do begin delay(500); if (user.hp<lowHP) and inventory.user.byid(meele, item) and not(item.equipped) then begin engine.useitem(meele); end; if (user.hp>highHP) and inventory.user.byid(range, item) and not(item.equipped) then begin engine.useitem(range); end; end; end; begin Script.NewThread(@all); Script.NewThread(@weapons); end. example how merge scripts procedure script1; begin while true do begin delay(1000); print('Here is script1.'); end; end; procedure script2; begin while true do begin delay(1000); print('Here is script2.'); end; end; begin Script.NewThread(@script1); Script.NewThread(@script2); end.

have fun xd var meele, range, lowHP, highHP:cardinal; item:tl2item; begin lowHP := 40; //change HP count in % meele := 6592; //weapon ID highHP := 80; //change HP count in % range := 7577; //weapon ID while true do begin delay(500); if (user.hp<lowHP) and inventory.user.byid(meele, item) and not(item.equipped) then begin engine.useitem(meele); end; if (user.hp>highHP) and inventory.user.byid(range, item) and not(item.equipped) then begin engine.useitem(range); end; end; end. EDIT: rly nice, take script and run, even "thanks" dont say xd

i dont understand xd, script already writed and stuck or doesnt have crocus script part? xd

dialog interface? more about this?

aham i just wonder how we can help, if dont give that stuck part of script?

http://www.maxcheaters.com/topic/192915-l2adrenaline-request/

if not user.buffs.byid(123, buff) or (buff.endtime<60*1000) then begin //123 buff id // 60*1000 is 60 seconds engine.useitem(456); // use item, soe, or change it to engine.entertext('/unstuck'); delay(10000); //delay to wait until end cast soe/unstuck and teleport to town, to awoid stuck or somethin end; gived example, have fun

this not enter captcha script, this is only alarm

if doesnt work then you need check if engine.dlgtext.contains('Refresh') or chnange refresh name of your captcha dialog, second cant be if your captcha added not in dialog window thats why doesnt work

var i:integer; begin while true do begin delay(100); for i := 0 to NpcList.Count - 1 do begin if (user.target.dead) or (user.target = nil) then begin if npclist.items(i).attackable and not npclist.items(i).dead then engine.settarget(npclist.items(i)); end; end; end; end. for l2 dread add skills in bot like normaly farm, and mark in bot "Manual target search" http://prntscr.com/7qbmau

var i:integer; begin for i := 0 to NpcList.Count - 1 do begin if npclist.items(i).attackable and not npclist.items(i).dead then begin engine.settarget(npclist.items(i)); repeat delay(500); engine.useskill(1245); ///change skill id until user.target.dead; end; if user.target.dead then engine.canceltarget; end; end. on l2dread this will help, maybe not best way but better then nothing xd