procedure getbypass;
var InpStr, TxtOut : string;
begin
InpStr := engine.DlgText;
TxtOut:= Copy(InpStr,pos('-h',InpStr),290) ;
TxtOut:= Copy(TxtOut,4,pos('"',TxtOut)-4);
engine.bypasstoserver(TxtOut);
end;
simple procedure to send bypass on last quest step, usage
procedure getbypass;
var InpStr, TxtOut : string;
begin
InpStr := engine.DlgText;
TxtOut:= Copy(InpStr,pos('-h',InpStr),290) ;
TxtOut:= Copy(TxtOut,4,pos('"',TxtOut)-4);
engine.bypasstoserver(TxtOut);
end;
begin
Engine.SetTarget(31547); /////beolin
Engine.DlgOpen;
Engine.DlgSel('Quest');
Delay(500);
Engine.DlgSel('Specialty Liquor Delivery');
delay(1111);
getbypass;
end.