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...