sjlou
2011-12-09 11:40:14
titel says it all
function VTele: boolean;
var
spell: tbox;
P: TPointArray;
begin
result := false;
if FindBlackChatMessage('use') then Exit; /////////// HERE
GameTab(tab_Magic);
if SpellAvailable(spell, 'varrock teleport') then
begin
writeln('using varrock teleport');
MouseBox(spell.x1, spell.y1, spell.x2, spell.y2, 1);
end;
if FindSymbolsMulti(P, ['store','water','quest']) then
begin
wait(6000);
writeln('@ varrock ');
Inc(tele);
result := true;
end
end;
procedure TeleOut;
var
x,y :integer;
label start;
begin
start:
if (not Vtele)then
begin
BA := DTMFromString('mWAAAAHicY2FgYOhiYWDog+JJQHwGKHYOiE9AMbvAeRTMDxRDxoxoGAQAHa4JTw==');
if FindDTM(BA,x,y, MMX1, MMY1, MMX2, MMY2) then
begin
// Mouse(x,y,5,5,true);
MouseFlag(x,y,5,5,5);
freedtm(ba);
end;
goto
start;
end;
end;