P1nky
2008-06-07 12:43:47
P1NKY
PRESENTS:
Tattle Telly
AnyWhereTeleporter
What does this script do?
Teleport's anywhere:
Falador/Varrock/Camelot/Lumbridge
[if you want more location go ahead tell me and ill add it]
"Where To Start?
ANYWHERE!
YES I SAID ANYWHERE!" from p1nky's powerchopper :P
Features:
*CRAZY ANTI-BAN LIKE MY OTHER SCRIPTS~
*GOOD PROGGIE EASY TO READ~
*SOLVES THE ABBY RANDOM~ (though not sure it works) will need you to test~
*FINDS RANDOMS~
NOTE: use this on your own risk, nothing happened to me while i was testing, though consider this as a warning.
ALL PROGGIES ARE GOING TO BE IN SECOND POST!
please post proggies/bugs.
future update plans:
~make a high alcher with this.
~MAKE A L33T FORM
~prob a abby solver of my owns?
/Total Downloads\:
VERSION 3:
PRESENTS:
Tattle Telly
AnyWhereTeleporter
What does this script do?
Teleport's anywhere:
Falador/Varrock/Camelot/Lumbridge
[if you want more location go ahead tell me and ill add it]
"Where To Start?
ANYWHERE!
YES I SAID ANYWHERE!" from p1nky's powerchopper :P
Features:
*CRAZY ANTI-BAN LIKE MY OTHER SCRIPTS~
*GOOD PROGGIE EASY TO READ~
*SOLVES THE ABBY RANDOM~ (though not sure it works) will need you to test~
*FINDS RANDOMS~
NOTE: use this on your own risk, nothing happened to me while i was testing, though consider this as a warning.
ALL PROGGIES ARE GOING TO BE IN SECOND POST!
please post proggies/bugs.
future update plans:
~make a high alcher with this.
~MAKE A L33T FORM
~prob a abby solver of my owns?
/Total Downloads\:
VERSION 3:
Program AnyWhereTeleporter;
{.include SRL/SRL/misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/Skill/Magic.scar}
{.include srl/srl/misc/users.scar}
{1.start at:
anywhere.... dah?
2. REMEMBER THESE:
V= Varrock Telly
F= Falador Telly
C= Camelot Telly
L= Lumby Telly
for setting's...
3.i do 2-4 seconds ea telly.
4.Make sure to do accurate Tellys so if u got 40 laws and all requirements so
put 40 in "HowManyTellys" below.
thanks and please post PROGGIES!}
Const
Tellytime = 4000;
{=4 seconds between telly , so 1000 is 1 sec 2000 is 2 sec so on...
so if its 1/2/3/4 secs i added a random other 1-2 secs in there
for antiban purpose.}
HowManyTellys = 99;
WhatTypeOfTellys = 'V'; //MUST BE CAPS GO READ BELOW FOR DIFFRENT TYPE'S
YourSRLId = '3432'; // Must be a string!
YourSRLpass = 'password'; // Must be a string!
{V= Varrock Telly
F= Falador Telly
C= Camelot Telly
L= Lumby Telly
}
//DONT TOUCH BELOW============================================================
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;
{yes those F/V/C/L IS NOOBY:p just too lazy to make it all in 1 proc!}
Procedure F;
Begin
Cast('Falador Teleport');
End;
Procedure V;
Begin
cast('Varrock Teleport');
End;
Procedure C;
Begin
Cast('Camelot Teleport');
End;
Procedure L;
Begin
Cast('Lumbridge Teleport');
End;
{FROM DOOFY'S SCRIPT and i think its really made off wizzup?}
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;
Function TypeofTelly: Integer;
Begin
Case Uppercase(WhatTypeOfTellys) Of
'F': f;
'V': v;
'C': c;
'L': l;
End;
End;
Procedure randomcompass; //PART OF ANTI-BAN NOTHING MUCH JUST MOVES MOUSE
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); //same
RandomButton; //same
ChooseOption('Cancel'); //same
End;
12:
Begin
HoverSkill('random', false); //any random skill =Z
sleepandmovemouse(200 + Random(100));
gametab(4); //same
RandomButton; //same
ChooseOption('Cancel');
End;
13: MMouse(x, y, (10 + random(350)), (10 + random(200)));
//random movement
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' + //Law rune
'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;
TypeOfTelly;
//Cast(WhatTypeOfTellys);
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.