Jump to content

ApoLo_dps

Members
  • Posts

    1
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

About ApoLo_dps

Profile Information

  • Gender
    Male
  • Country
    Brazil

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

ApoLo_dps's Achievements

Newbie

Newbie (1/16)

0

Reputation

  1. I would like to help you guys, I use this script without serving to play, and I would like to add a line so he can check the amount of adena and exchange for gold bar through the alt + b menu if it repeats all as times that reach x of adena for example. I'm noob in the script so give that strength there. var Figth_Flag:boolean; Item: TL2Item; Npc: TL2Npc; Obj: TL2Buff; IdBuff: integer; Buffs:TL2Buff; var L2Skill: TL2Skill; procedure toVillage; begin Print('To Village'); Delay(100); if (User.HP=0) then begin Delay(2000); Engine.GoHome; Engine.Facecontrol(0,False); Buff; end; end; procedure buff; begin Engine.BypassToServer('_bbshome'); Delay(2000); Engine.BypassToServer('_bbsloc'); Delay(2000); Engine.BypassToServer('_bbsloc_buffer'); Delay(2000); Engine.BypassToServer('_bbsloc_functions_buffer_showProfiles_buffforme'); Delay(2000); Engine.BypassToServer('_bbsloc_functions_buffer_buffforme_ Fighter'); Delay(2000); Engine.BypassToServer('_bbshome'); Delay(2000); Engine.BypassToServer('_bbsloc'); Delay(2000); Engine.BypassToServer('_bbsloc;gmshop'); Delay(2000); Engine.BypassToServer('_bbsloc_sendMultisell 65045'); Delay(2000); Engine.NpcExchange(3470, 199); Delay(2000); RunTo; end; procedure RunTo; begin Engine.BypassToServer('_bbshome'); Delay(2000); Engine.BypassToServer('_bbsloc'); Delay(2000); Engine.BypassToServer('_bbsloc;gatekeeper;main_gk'); Delay(2000); Engine.BypassToServer('_bbsloc_teleport 11'); Delay(2000); Engine.BypassToServer('_bbshome'); Delay(2000); Fight; end; procedure toBuff; begin IdBuff:=1040 ; //Check BUFF while not User.Buffs.ById(IdBuff,obj) do begin Print('Check Buff'); Delay(3000); buff; end; end; procedure Fight; begin Print('Fight zone'); Engine.MoveTo(-82474, 150832, -2995); Delay(500); Engine.LoadConfig('1'); //Название Вашего конфига Engine.LoadZone('Gludin Adena.zmap'); //zona de combat Print('Фарм'); toVillage; Engine.Facecontrol(0,True); end; //----------------------------------------------------------------------------- begin //repete novamente o script Print('repete novamente'); repeat toBuff; toVillage; until Engine.Status = lsOffline; Delay(5000); end. I tried to put something like this but it did not work because it does not constantly check Engine.BypassToServer('_bbshome'); Delay(2000); Engine.BypassToServer('_bbsloc'); Delay(2000); Engine.BypassToServer('_bbsloc_sendMultisell 65045'); Delay(2000); Engine.NpcExchange(3470, 199); Delay(2000);
×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock