Lol, didn't work for me Joker. Thanks to all the lovely people who lured me into thinking that this still worked...
Lol, didn't work for me Joker. Thanks to all the lovely people who lured me into thinking that this still worked...
lol Jack whats wrong wif it
looks verry nice i am going to try it out soon when my magic lvl is high enoug
I think it's just outdated like you said and they were spamming... Could be wrong but i got quite a few errors.
Very nice script and the antiban is just so good!
Got few magic levels with this but, very expensive way to train.
OMG i lost the proggies....
this is really cool because it works for me
looks good but i need to try it hope it works!!!!
too bad iam out of runes to test it![]()
Line 308: [Hint] (19352:10): Variable 'Result' never used in script
Line 408: [Error] (19452:4): Unknown identifier 'AlmostLogout' in script
LOL! What is wrong?
TLOROX.....OUT....
i'll try this out when i get home as well as the others
Im testing now and will post report soon..![]()
leechers/spammers
this script is outdated so wtf....
im atm updating.
AnyWhereTeleporter V.2 RELEASED:
-UPDATED TO CURRENT REV.
-ADDED MORE USE OF ANTI-BAN
-ADDED RANDOM TIME for ea teleporting.
Quick Proggie:
SCAR Code:||===========================||
||~~~~~~~Tattle Telly~~~~~~~~||
||=====AnyWhereTeleporter====||
||~~~~~~DOING:99tellys~~~~~~~||
||===========================||
Worked For 7 Minutes and 43 Seconds
Casted 87
AntiBanPerformed 80
Solved Abby 0
||===========================||
||====Teleports ANYWHERE!====||
||===========================||
||=====Thanks SRL Forums=====||
||===========================||
You Chose to Telly to Varrock!
||===========================||
post proggies
thanks
Love it, Thanks!![]()
np, wheres the proggie?
this looks so cool ... thx man.![]()
Haha bring it back to life, yeah p1nky next time your on msn i need to talk to you about some stuff, i learnt how to radial walk! it was pretty easy just need to fix the distance thing like 0,0,72,0 dont no how far i should go ect.
~Tom~
awsome Tom! keep it up dude. ill be on today, got no school since hurricane.
I'm going to be sure to try this, got a pure mage with 10 hp that needs some leveling. I'll post the proggy when i've used it.![]()
good job on the scipt, it nice.
[CENTER]http://dragcave.net/image/UrBf.gif http://dragcave.net/image/WZUX.gifurl=http://dragcave.net/view/5Kuf]http://dragcave.net/image/5Kuf.gif[/url] http://dragcave.net/image/tLMl.gif[CENTER]
Click on the eggs and help hatch my dragon!!
neat
Guys i need Testers with mage up to 25, with Curses/Mind Runes and cast any of them basic mind spells/curses with enough runes
please PM me
thanks btw and i added a teleporter to the script it is a mage script.
PM ME!
Il test oh and btw..
SCAR Code:program AnyWhereTeleporter;
{.include SRL/SRL/misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/Skill/Magic.scar}
{.include srl/srl/misc/users.scar}
const
Tellytime = 4000;
HowManyTellys = 99;
WhatTypeOfTellys = 'V'; // Varrok =V Fally=C cammy=C Lumby= L
YourSRLId = '3432';
YourSRLpass = 'password';
procedure Cast;
case WhatTypeOfTellys of
'V': cast('Varrock Teleport');
'F': Cast('Falador Teleport');
'C': Cast('Camelot Teleport');
'L': Cast('Lumbridge Teleport');
end;
end;
end;
end;
procedure Sig;
begin
writeln('-------------------------------------------------------------------------------- ');
writeln(' ::::::::: ::: :::: ::: ::: ::: ::: ::: ');
writeln(' :+: :+: :+:+: :+:+: :+: :+: :+: :+: :+: ');
writeln(' +:+ +:+ +:+ :+:+:+ +:+ +:+ +:+ +:+ +:+ ');
writeln(' +#++:++#+ +#+ +#+ +:+ +#+ +#++:++ +#++: ');
writeln(' +#+ +#+ +#+ +#+#+# +#+ +#+ +#+ ');
writeln(' #+# #+# #+# #+#+# #+# #+# #+# ');
writeln('### ####### ### #### ### ### ### ');
writeln('-------------------------------------------------------------------------------- ');
end;
var
antiz, countlawz, NOAbyss, Abyss, x, y: integer;
procedure SRL;
var
SRLRRLT: integer;
begin
if SRLRRLT >= (6 * (60 * 1000)) then
begin
MarkTime(SRLRRLT);
SRLRandomsReport;
end;
end;
procedure Woah;
begin
SRL;
cleardebug;
Writeln('||===========================||');
Writeln('||~~~~~~~Tattle Telly~~~~~~~~||');
Writeln('||=====AnyWhereTeleporter====||');
writeln('||~~~~~~DOING: ' + IntToStr(HowManyTellys) + 'tellys~~~~~~~||');
Writeln('||===========================||');
Writeln(' Worked For ' + TimeRunning);
Writeln(' Casted ' + IntToStr(countlawz));
writeln(' AntiBanPerformed ' + IntToStr(antiz));
writeln(' Solved Abby ' + IntToStr(Abyss));
Writeln('||===========================||');
Writeln('||====Teleports ANYWHERE!====||');
Writeln('||===========================||');
Writeln('||=====Thanks SRL Forums=====||');
Writeln('||===========================||');
SRLRandomsReport;
begin
case Uppercase(WhatTypeOfTellys) of
'F': Writeln(' You Chose to Telly to Falador!');
'V': Writeln(' You Chose to Telly to Varrock!');
'C': Writeln(' You Chose to Telly to Camelot!');
'L': Writeln(' You Chose to Telly to Lumbridge!');
end;
writeln('||===========================||');
end;
end;
function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
var
I, iX, iY: Integer;
begin
if not (LoggedIn) then
Exit;
SRL;
for I := iFrom to ITo do
begin
iX := Round(Distance * Sin(I * Pi / 180)) + 648;
iY := Round( - Distance * Cos(I * Pi / 180)) + 80;
if GetColor(iX, iY) = 0 then
begin
Result := Result + 1;
end;
end;
end;
function InAbyss: Boolean;
var
A: Integer;
begin
if not (LoggedIn) then
Exit;
SRL;
A := ScanMiniMap(0, 359, 50);
if A = 360 then
begin
Result := True;
end
end;
function GuessAbyssRandom: Boolean;
var
AbyssalMark, iX, iY, I, ChosenColor, Tol, Tries: Integer;
WeirdColors: array [0..3] of Integer;
Operate: TPoint;
begin
SRL;
WeirdColors[0] := 13751777;
WeirdColors[1] := 4953873;
WeirdColors[2] := 2509833;
repeat
case Random(4) of
0:
begin
Operate.X := 252;
Operate.Y := 150;
end;
1:
begin
Operate.X := 278;
Operate.Y := 170;
end;
2:
begin
Operate.X := 238;
Operate.Y := 200;
end;
3:
begin
Operate.X := 215;
Operate.Y := 166;
end;
end;
for I := 0 to 2 do
begin
Tol := 0;
repeat
Tol := Tol + 1;
iX := MSCX;
iY := MSCY;
if FindColorSpiralTolerance(iX, iY, WeirdColors[I], MSX1, MSY1, MSX2, MSY2, Tol) then
begin
ChosenColor := WeirdColors[I];
if (Distance(iX, iY, MSCX, MSCY) < 120) then
Break;
end;
if ChosenColor <> 0 then
Break;
until Tol > 9;
end;
if ChosenColor <> 0 then
begin
MMouse(iX, iY, 0, 0);
Wait(10);
if IsUpText('perate') then
begin
GetMousePos(iX, iY);
Mouse(iX, iY, 0, 0, True);
end;
end;
Wait(5000 + Random(500));
if not InAbyss then
begin
Abyss := Abyss + 1;
ReportVars[2] := ReportVars[2] + 1;
Result := True;
Wait(1000);
ClickToContinue;
SRLRandomsReport;
Exit;
end;
Tries := Tries + 1;
if TimeFromMark(AbyssalMark) > 60000 * 5 then
Break;
until Tries > 30;
Tries := 0;
if InAbyss then
begin
repeat
case Random(4) of
0:
begin
Operate.X := 252;
Operate.Y := 150;
end;
1:
begin
Operate.X := 278;
Operate.Y := 170;
end;
2:
begin
Operate.X := 238;
Operate.Y := 200;
end;
3:
begin
Operate.X := 215;
Operate.Y := 166;
end;
end;
iX := Operate.X;
iY := Operate.Y;
if FindColorSpiralTolerance(iX, iY, 3393, MSX1, MSY1, MSX2, MSY2, Tol) or FindColorSpiralTolerance(iX, iY, 2040150, MSX1, MSY1, MSX2, MSY2, Tol) then
begin
if (Distance(iX, iY, MSCX, MSCY) < 80) then
begin
MMouse(iX, iY, 0, 0);
Wait(10);
if IsUpText('perate') then
begin
GetMousePos(iX, iY);
Mouse(iX, iY, 0, 0, True);
Wait(5000 + Random(500));
if not InAbyss then
begin
Abyss := Abyss + 1;
ReportVars[2] := ReportVars[2] + 1;
Result := True;
ClickToContinue;
SRLRandomsReport;
Exit;
end;
end;
end;
end;
Tries := Tries + 1;
Tol := Tol + 2;
if Tol > 20 then
Tol := 2;
until Tries > 50;
end;
LogOut;
NOAbyss := NOAbyss + 1;
ReportVars[9] := ReportVars[9] + 1;
Players[CurrentPlayer].Loc := 'Abyss';
SRLRandomsReport;
WriteLn('Abyss Random Event.');
end;
procedure FindRandoms;
begin
if not (LoggedIn) then
Exit;
FindNormalRandoms;
FindInventoryRandoms;
FindNonInventoryRandoms;
if (InAbyss) then
begin
GuessAbyssRandom;
end;
end;
procedure randomcompass;
begin
if (not (loggedin)) then
Exit;
FindRandoms;
SRL;
antiz := antiz + 1;
ReportVars[1] := ReportVars[1] + 1;
case Random(6) of
0: makecompass('N');
1: makecompass('S');
2: makecompass('E');
3: makecompass('W');
4: setangle(true)
end;
end;
procedure RandomSymbol;
begin
SRL;
FindRandoms;
FindNormalRandoms;
ReportVars[1] := ReportVars[1] + 1;
antiz := antiz + 1;
case Random(2) of
0:
begin
if FindSymbol(x, y, 'fur trader') or FindSymbol(x, y, 'shop') or FindSymbol(x, y, 'quest') then
Mouse(x, y, 1, 1, False);
end;
1:
begin
if FindSymbol(x, y, 'fur trader') or FindSymbol(x, y, 'shop') or FindSymbol(x, y, 'bank') then
Mouse(x, y, 1, 1, False);
end;
end;
end;
procedure RandomButton;
begin
FindRandoms;
SRL;
ReportVars[1] := ReportVars[1] + 1;
antiz := antiz + 1;
if not (LoggedIn) then
Exit;
case Random(3) of
0:
begin
KeyDown(VK_Left);
wait(Random(600) + 500);
KeyUp(VK_Left);
end;
1:
begin
KeyDown(VK_Right);
wait(Random(600) + 500);
KeyUp(VK_Right);
end;
2:
begin
KeyDown(VK_Up);
wait(Random(600) + 500);
KeyUp(VK_Up);
end;
end;
end;
procedure MyAntiBan;
var
DBanMe: Integer;
begin
if not (LoggedIn) then
Exit;
FindRandoms;
SRL;
DBanMe := Random(18);
ReportVars[1] := ReportVars[1] + 1;
antiz := antiz + 1;
case DBanMe of
0: PickUpMouse;
1: GameTab(1 + Random(33));
2: DoEmote(1 + Random(75));
3: RandomRclick;
4: randomMovement;
5: RandomButton;
6: randomMovement;
7: ChooseOption('cancel');
8: MMouse(Random(MSX2), Random(MSY2), 0, 0);
9: HoverSkill('woodcutting', false);
10:
begin
HoverSkill('woodcutting', false);
sleepandmovemouse(200 + Random(100));
gametab(4);
ChooseOption('Cancel');
RandomButton;
MMouse(Random(MSY1), Random(MSX1), 0, 0);
end;
11:
begin
GameTab(1 + Random(13));
wait(1000 + Random(600));
gametab(4);
RandomButton;
ChooseOption('Cancel');
end;
12:
begin
HoverSkill('random', false);
sleepandmovemouse(200 + Random(100));
gametab(4);
RandomButton;
ChooseOption('Cancel');
end;
13: MMouse(x, y, (10 + random(350)), (10 + random(200)));
14: MMouse(x, y, (10 + random(400)), (10 + random(600)));
15: MMouse(x, y, (10 + random(550)), (10 + random(400)));
16: MMouse(x, y, (10 + random(500)), (10 + random(400)));
17: MMouse(Random(MSX2), Random(MSY2), 0, 0);
end;
end;
procedure Telly;
var
e, law, z, i: integer;
begin
if not (LoggedIn) then
Exit;
SRL;
Law := BitmapFromString(8, 8, 'z78DA758E4B0AC0201043AF' + '54AB76DE2CD5EAFD8F5451170E52025984FC5CBE7DBDDCC15AD47' + '554F51D4D63C7E480A21AC924E3572A7571D28B36751A91A80E41' + '8C7F342C165ECAF2173CF764E31F0D670F48934AC261FEF71FA16' + '3AC1BFD9157CA995ABB2365FC41B2E43DB5F4913D7FFEA5F6C53D' + 'F501F645551D');
z := 0;
GameTab(4);
if (FindBitmapSpiralTolerance(law, x, y, (570 + 39 * i), (214 + 35 * e), (609 + 39 * i), (249 + 35 * e), 10)) then
MMouse(x, y, 0, 0);
wait(2000);
Mouse(x, y, 0, 0, false);
writeln('Teleporting!');
GameTab(7);
repeat
FindRandoms;
SRL;
woah;
Cast;
z := z + 1;
countlawz := countlawz + 1;
ReportVars[0] := ReportVars[0] + 1;
RandomCompass;
FindRandoms;
if (InAbyss) then
begin
GuessAbyssRandom;
end;
wait(TellyTime + random(2456));
woah;
if z > 5 then
case Random(3) of
1: RandomSymbol;
2: MyAntiBan;
3: RandomButton;
end;
until (HowManyTellys = countlawz);
writeln('Finished All Teleports Which was: ');
Writeln(IntToStr(HowManyTellys) + ' tellys');
writeln('Stopping Script now :) thanks for using Tattle Telly');
TERMINATESCRIPT;
end;
procedure DoChats;
begin
SRL;
if (not (LoggedIn)) then
begin
Writeln(players[currentplayer].Name + 'is not logged in...');
Writeln('Switching players');
nextplayer(false);
end;
SetChat('on', 1);
SetChat('on', 2);
SetChat('off', 3);
SetChat('off', 4);
end;
begin
Disguise('Made By P1nky AKA ~~JOKER~~');
cleardebug;
Writeln('Waiting For SMART to Start...');
SmartSetupEx(17, True, True, False);
Wait(100);
SetTargetDC(SmartGetDC);
if not (LoggedIn) then
while not (SmartGetColor(386, 249) = 65535) do
Wait(100);
setupsrl;
activateclient;
SRLPlayerForm(True, [], [], [], []);
if LoggedIn then
LogOut;
loginplayer;
ScriptID := '893';
SRLID := YourSRLId;
SRLPassword := YourSRLPass;
SRL;
ReportVars[3] := ReportVars[3] + 1;
wait(2000) dochats;
GetAllLevels;
begin
Sig;
SRL;
woah;
telly;
end;
end.
i had 2 do it it killed my eyes.
nicbaz i swear i just fixed that in my new script hahaha, thats cool same timing
SEE:
SCAR Code:Function TeleportStyle: Integer;
Begin
if WantTeleport then
Case Uppercase(WhatCast) Of
'F':
Cast('Falador Teleport');
'V':
Cast('Varrock Teleport');
'C':
Cast('Camelot Teleport');
'L':
Cast('Lumbridge Teleport');
End;
End;
thnx tho and please post a proggie
appreciate it.
thank you very much, for this good script
There are currently 1 users browsing this thread. (0 members and 1 guests)