Jump to content

Recommended Posts

Posted

    var Figth_Flag:boolean;
     Item: TL2Item;
     Npc: TL2Npc;
     Obj: TL2Buff;
     IdBuff: integer;
     Buffs:TL2Buff;
var L2Skill: TL2Skill;

 

  
procedure toVillage;
begin
  Delay(100);
    if (User.HP=0) then
      begin
       Delay(2000);
       Engine.GoHome;
       Engine.Facecontrol(0,False);
       Buff;
      end;
end;

 

    //REBUFF
procedure buff;
begin
    Delay (2000);
    Engine.BypassToServer('_bbshome');
    delay(1500);
    Engine.BypassToServer('_bbs_buffer');
    delay(1500);
    Engine.BypassToServer('_bbs_buffer_scheme;use; Player ; PvP');
    delay(1500);
    Engine.BypassToServer('_bbs_buffer_action;use;1; Player');
   RunTo;
end;

 

    //TELEPORT
procedure RunTo;
begin
     Engine.BypassToServer('_bbshome');
     delay(1500);
     Engine.BypassToServer('_bbs_link;gk/teleport.htm');
     delay(1500);
     Engine.BypassToServer('_bbs_link;gk/townarea/aden.htm');
     delay(1500);
     Engine.BypassToServer('_bbs_goto;376');
     delay(1500);
     Fight;
end;

 

    //CHECK
procedure toBuff;
  begin
  IdBuff:= 268 ; //Check BUFF
   while not User.Buffs.ById(IdBuff,obj) do begin
        Print('Song of Wind');
        Engine.UseItem(736);  //Scroll Escape
        Delay(20000);
        Engine.Facecontrol(0,False);
        buff;
   end;
end;

 

    //SPOT
procedure Fight;
   begin
   Print('Fight zone');
    Engine.MoveTo(171472, 56201, -5504);
    delay(1000);
    Engine.MoveTo(172042, 56543, -5680);
    delay(1000);
    Engine.MoveTo(172860, 56696, -5865);
    delay(1000);
    Engine.MoveTo(174000, 56768, -5920);
    delay(1000);
    Engine.LoadConfig('Player');
    Engine.LoadZone('sv.zmap');
    Print('Done');
    toVillage;
    Engine.Facecontrol(0,True);
end;


//-----------------------------------------------------------------------------
begin    //REPEAT
Print('repeat again');
  repeat
   toBuff;
   toVillage;
  until Engine.Status = lsOffline;
  Delay(5000);
end.

 

 

this is my script check/rebuff, back on spot... i want to add refill for soushot and mana potions  help please

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...