jammin6996
2013-05-13 22:39:03
i was suprised to not see an auto-teleporter, it seems like it would be pretty easy but i dont know much about scripting.
2013-05-13 22:39:03
2013-05-14 14:15:33
From: jammin6996
i was suprised to not see an auto-teleporter, it seems like it would be pretty easy but i dont know much about scripting.
2013-05-14 19:57:12
From: jammin6996
i was suprised to not see an auto-teleporter, it seems like it would be pretty easy but i dont know much about scripting.
2013-06-14 08:40:04
2013-06-14 18:03:16
program Teleporter;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
const
Tele = 'Varrock'; // Teleport location
var
Where, Loc: TPoint;
Cords: TPointArray;
begin
setupSRL;
Cords := [Point (595, 288), Point(667, 287), Point(572, 312), Point(619, 312), Point(691, 312)];
case Lowercase(Tele) of
'varrock': Loc := Cords[0];
'lumbridge': Loc := Cords[1];
'falador': Loc := Cords[2];
'house': Loc := Cords[3];
'camelot': Loc := Cords[4];
end;
GameTab(tab_magic);
MMouse (Loc.x, Loc.y, 5, 5);
repeat
GetMousePos(where.x, where.y);
if ((where.x > (Loc.x + 10)) OR (where.x < (Loc.x - 10)) OR (where.y > (Loc.y + 10)) OR (where.y < (Loc.y - 10))) then
MMouse (Loc.x, Loc.y, 5, 5);
if (IsUpText ('Cast')) then
ClickMouse2(Mouse_left);
if (Randomrange(1,50) = 1) then
wait (Randomrange(5000,7000));
wait(randomrange(2000,2500));
until (IsChatBoxTextBetween('enough', clMessage, 4, 8));
end.
2013-08-11 15:50:12