SRL Archive - OSR Script Requests

[REQ]Auto-Teleporter


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.

Jake

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.

Check out the tutorials then since you don't know much
http://villavu.com/forum/forumdisplay.php?f=490

djm995

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.


If you only want it to get to like lvl 55 or something then just use an auto clicker and baby sit it :)

okokokok

2013-06-14 08:40:04

Could make you one, but I would need runes to test it.
Not gonna make myself poor testing this :D

bob_dole

2013-06-14 18:03:16

ummm


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.

Complete with anti-ban, or an attempt at anti-ban.

poopyscripts

2013-08-11 15:50:12

i made one go check it out