Jump to content

adr.bot

Members
  • Posts

    657
  • Credits

  • Joined

  • Last visited

  • Feedback

    100%

Everything posted by adr.bot

  1. i remember that have 1.61, when example log in and dont need change anything it auto accept party, with 1.71 need mark "accept from own bot"
  2. sure why not xd
  3. var action:tl2action; p1,p2:pointer; begin while true do begin engine.waitaction([lakey], p1, p2); if cardinal(p1) = $11 then begin //ctrl print('qqqqqq'); end; end; end. or i bad understand question?
  4. adr.bot

    .

    becouse gloom dont shows like abnormalid, adr can see enemy buffs i guess from GOD+ chronicle, if you whant cast gloom until it success then i guess posible do with checking lasysmsg (just idea i dont think if i can make that :D)
  5. if charlist.items(i).ClassID = 12 then begin //12 class id engine.settarget(charlist.items(i)); end;
  6. oh my god xd, just load script in script window and press play
  7. can be, probably i not good enough :D but when i tried i had problems with captcha reading, and if really i have no idea how the hell make with more success chance xdd
  8. my skype is adr.bot, that you can see in my info, anyway, you can setup that add that death penality remove item and set contidiot Death Penality> 0 , and about cleance just read other thread wich i gived , anyway if whant to i show you then add in skype
  9. idea is, like example make screenshot, and then manipulate screen example with "ImageMagick" and then try read with tesseract, but for me still doesnt work good enough :D
  10. no need bypass for use adr in cartel
  11. more about that? EDIT: i add example with rebuy from other thread, to avoid spam in my pm/skype for same example xd var MP, Shot: TL2Item; buff: TL2Buff; function buffCheck: Boolean; begin if (not User.Buffs.ByID(1062, buff) or (buff.endtime<300000)) then begin //1062 wich buff id checking Result:=true; Delay(1000); Engine.BypassToServer('_bbshome'); //buffer alt and b Delay(1000); Engine.BypassToServer('02'); Delay(1000); Engine.BypassToServer('0b'); Delay(1000); Engine.BypassToServer('0c'); Delay(1000); Engine.BypassToServer('018'); Delay(1000); Engine.BypassToServer('018'); Delay(1000); end; Result:=false; end; function BuyMP:boolean; begin if not Inventory.User.ByID(728, MP) or (MP.count<10) then begin //728 mp id ,10 or less then buy MP so probably change it for your count result:=true; Delay(1000); Engine.BypassToServer('_bbshome'); // alt and b codes to buy mp Delay(1000); Engine.BypassToServer('02'); Delay(1000); Engine.BypassToServer('0c'); Delay(1000); Engine.BypassToServer('01f'); Delay(1000); Engine.NpcExchange(728, 2); //728 mp id, 2 is count how many buy it delay(1000); end; result:=false; end; function BuyShot:boolean; begin if not Inventory.User.ByID(1463, Shot) or (Shot.count<900) then begin //1463 is d grade shot id, change for your shot id, 900 or less then buy shots result:=true; Delay(1000); Engine.BypassToServer('_bbshome'); //alt and b to shots Delay(1000); Engine.BypassToServer('02'); Delay(1000); Engine.BypassToServer('0c'); Delay(1000); Engine.BypassToServer('020'); Delay(1000); Engine.NpcExchange(1463, 50); //1463 id, 50 is count wich buy delay(1000); end; result:=false; 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); end; end; begin while true do begin delay(150); //town coordinates range //buff id wich check //shot id //mp id if user.inrange(-83064, 150600, -3104, 5000) and User.Buffs.ByID(1062, buffCheck) and Inventory.User.ByID(1463, BuyShot) and Inventory.User.ByID(728, BuyMP) then begin Print('Teleport.'); delay(1000); Engine.BypassToServer('_bbshome'); //alt and b where teleport delay(1000); Engine.BypassToServer('02'); delay(1000); Engine.BypassToServer('0a'); delay(1000); Engine.BypassToServer('031'); delay(1000); Engine.BypassToServer('0a'); Delay(10000); end; if user.inrange(-41555, 210012, -5064, 300) then begin //coordinates after teleport Print('Moving'); Engine.MoveTo(-41608, 210904, -5064); //path to spot Engine.MoveTo(-41752, 210984, -5064); Engine.MoveTo(-42696, 210984, -5064); Print('ON!'); Delay(500); Engine.FaceControl(0, true); //turn on bot while not deadCheck do delay(1000); //while not dead, do nothing and wait. end; end; end.
  12. i dont think if that server worth to go play that DB scare me :dat:
  13. if really i have no idea how you use that, anyway if whant add me in skype, i show you how setup xd
  14. just check conditions in bot, probably you dont even checked http://prntscr.com/8p1kus for anchor http://prntscr.com/8p1l3v or http://prntscr.com/8p1lau just press 2 times on that "field" and select anchor (you need get anchor then select) http://www.maxcheaters.com/topic/191661-script-cleanse-l2-adrenaline/
  15. var MP, Shot: TL2Item; buff: TL2Buff; function buffCheck: Boolean; begin if (not User.Buffs.ByID(1062, buff) or (buff.endtime<300000)) then begin //1062 wich buff id checking Result:=true; Delay(1000); Engine.BypassToServer('_bbshome'); //buffer alt and b Delay(1000); Engine.BypassToServer('02'); Delay(1000); Engine.BypassToServer('0b'); Delay(1000); Engine.BypassToServer('0c'); Delay(1000); Engine.BypassToServer('018'); Delay(1000); Engine.BypassToServer('018'); Delay(1000); end; Result:=false; end; function BuyMP:boolean; begin if not Inventory.User.ByID(728, MP) or (MP.count<10) then begin //728 mp id ,10 or less then buy MP so probably change it for your count result:=true; Delay(1000); Engine.BypassToServer('_bbshome'); // alt and b codes to buy mp Delay(1000); Engine.BypassToServer('02'); Delay(1000); Engine.BypassToServer('0c'); Delay(1000); Engine.BypassToServer('01f'); Delay(1000); Engine.NpcExchange(728, 2); //728 mp id, 2 is count how many buy it delay(1000); end; result:=false; end; function BuyShot:boolean; begin if not Inventory.User.ByID(1463, Shot) or (Shot.count<900) then begin //1463 is d grade shot id, change for your shot id, 900 or less then buy shots result:=true; Delay(1000); Engine.BypassToServer('_bbshome'); //alt and b to shots Delay(1000); Engine.BypassToServer('02'); Delay(1000); Engine.BypassToServer('0c'); Delay(1000); Engine.BypassToServer('020'); Delay(1000); Engine.NpcExchange(1463, 50); //1463 id, 50 is count wich buy delay(1000); end; result:=false; 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); end; end; begin while true do begin delay(150); //town coordinates range //buff id wich check //shot id //mp id if user.inrange(-83064, 150600, -3104, 5000) and User.Buffs.ByID(1062, buffCheck) and Inventory.User.ByID(1463, BuyShot) and Inventory.User.ByID(728, BuyMP) then begin Print('Teleport.'); delay(1000); Engine.BypassToServer('_bbshome'); //alt and b where teleport delay(1000); Engine.BypassToServer('02'); delay(1000); Engine.BypassToServer('0a'); delay(1000); Engine.BypassToServer('031'); delay(1000); Engine.BypassToServer('0a'); Delay(10000); end; if user.inrange(-41555, 210012, -5064, 300) then begin //coordinates after teleport Print('Moving'); Engine.MoveTo(-41608, 210904, -5064); //path to spot Engine.MoveTo(-41752, 210984, -5064); Engine.MoveTo(-42696, 210984, -5064); Print('ON!'); Delay(500); Engine.FaceControl(0, true); //turn on bot while not deadCheck do delay(1000); //while not dead, do nothing and wait. end; end; end. after dead checking buff, shots, mp HERE JUST EXAMPLE
  16. begin while true do begin if user.inrange(82995, 148317, -3472, 500) // 500 needed while you checking engine.useitem(1538); delay(5000); end; end.
  17. 1. repeat while true do begin 2.bsoe when specified location if user.inrange(123, 456, 789, 500) then begin //coordinates of loc engine.useitem(121); //bsoe id delay(5000); // 5seconds delay, when teleporting to town to avoid stuck end;
  18. that script are encrypted, so how do you think we can help? :D you need ask him in he thread, not create another one and ask for when when script are enctypred :D
  19. guys is you buy bot then just ask Daniel or that guy from wich you buy bot :D
  20. if cracked adr works, and have test account, add my in skype tomorow we can check this
  21. hmm how detect peace zone i dont know xd
  22. then i have no idea where can be problem xD as i say i dont had problems, and antivirus no need off for me, before i used eset, now avast but no need add to exclusion or off, no problems with bot xd did you tried differed adr version? 1.61, 1.66?
  23. windows defender off? run as admin? if yes then i have no idea, i dont have any problems with bot on windows xp, 7, 8.1, 10
  24. try delete adsmon.ini file and run adsmon.exe as admin select adrenalin exe and press open
×
×
  • Create New...