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
