var item: TL2Item;
function buffCheck: Boolean; var buff: TL2Buff; begin if not User.Buffs.ByID(15653, buff) then begin Result:=true; Print('Buffs are needed. Buffing...'); Engine.UseItem(736); Delay(65000); Engine.MoveTo(207208, 86855, -1053); Delay(5000); Engine.SetTarget(32327); // NPC ID Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel(1); Delay(500); Engine.DlgSel(2); Print('Buffed.'); Engine.MoveTo(207448, 86909, -1041); Engine.MoveTo(207474, 86590, -1032); 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); if User.Buffs.ByID(15653, buffCheck) then begin Engine.MoveTo(207526, 86582, -1032); Delay(2400); Print('Teleport to Apostate.'); Engine.SetTarget(32912); Engine.DlgOpen; Delay(500); Engine.DlgSel(1); Delay(5000); end; if User.Buffs.ByID(15653, buffCheck) then begin Print('Apostate. Moving to spot'); Engine.MoveTo(215609, 79801, 800); Engine.MoveTo(215640, 79803, 800); Engine.MoveTo(215551, 79888, 800); Engine.MoveTo(217136, 78632, 901); Engine.MoveTo(217274, 78575, 933); Engine.MoveTo(217654, 78308, 1016); Engine.MoveTo(217611, 77029, 979); Engine.MoveTo(-13736,-247848,-8160); Print('AA farm: ON!'); Delay(500); Engine.FaceControl(0, true); while not deadCheck do delay(1000); //while not dead, do nothing and wait. end; end; end.
this is what i have so far