//Spkys Tele Fanatic,
//Setup: Drag crosshair on to runescape screen, have everything
//Setup then click play.
//It will hopefully logout if it finds the teleporting random
//If not then add me on msn.. Spky@hotmail.co.uk and give advice
//Credits: Squigglyo for a great include, Driger for suporting me
//All the way and Home for being there for all my questions,
//Thanks People !

Program SpkysTeleFanatic ;
{.include Squig.txt}

Var
Randomi ,LoggedOff, InvalidUserOrPass, ClickHere, Varrock, Cammy,
Lumby, Fally, Ardy, Wtchtwr, Teled, x, y : integer ;

Const

YourUser = '' ; // Enter Your Username

YourPassword = '' ; // Enter Your Password

TeleTimes = 0 ; // How Many Times You Want To Teleport

WhereTo = 1 ; //1 To Varrock, 2 To Lumbridge, 3 To Falador
              //4 To Camelot, 5 To Ardougne And 6 To WatchTower
              
 Procedure LoadBmps ;
Begin;

 Cammy := BitmapFromString(12, 12, 'z78DAB5924B0AC0200C05AFD4' +
       '98F8E952D0DCFF486DCD26F0A808B50AB308CFC1444B2F4D99842' +
       '8E89C65248DC7B3C8189334093E996BAE7A22576C6F67E74EB4F9' +
       '0C4796D491F3BB798FE5ADA2AAFDDE835659B1A1C177BD62C359A' +
       '107E96D7F7876F5B56BCE7BDFFDFB3FBC00BEF1BF06');

 Lumby := BitmapFromString(10, 15, 'z78DAA593410AC0200C04BF64' +
       '1A5BED5168F6FF4FAAE025B0288178988366168D5ACA1CD2AD7FD' +
       '0380B5952452E9CC9397EB58D36F03239E15C1FC9F1F37A6B7D8C' +
       'C92E5B000CB6BAE1C909DE5A353B9713BC15717D42C6DDED99193' +
       'F75A457993BCABC8DCC9BCCFC851F02F0C797');

 Varrock := BitmapFromString(15, 12, 'z78DAB5D2B10AC0200C04D05F' +
       'AA26563B5A34FFFF49A57511C2855BEA7083C1E721965387E6F2E' +
       '5F1AEB4B2CD364CF8DCCF16D52E776C264D295B9CC867CCDA6BB7' +
       'CB27E37B1369F12DDE8F7B4A113DA74FA67F6CA2D7637C649AD93' +
       '428AF29F2BDBCF76464DF9F9191EF771899698EDA2299F11973E5' +
       '7FBFEE01049DEE03');
       
  Fally := BitmapFromString(9, 14, 'z78DA9D914B0EC0200844AF540' +
       '43F5D9A28F73F52D3B02199421A5DBC05CE3066AC4D9694EB3D64' +
       '1C7B2C65A4D7E4CA3F24212A9A33D2F7D9A7DE48DC1029F30D7EC' +
       '295A56D64B4C16E5575EB07D16B13EBD334D8B3D1A7FB39A6445E' +
       '744559C6B317466DE4FAB3E6CF7EF901354AA880');
       
  Ardy := BitmapFromString(11, 10, 'z78DA9591E10AC02008845F69' +
       'CEB6DCCF60FAFE8FB42DFF0487E20A8E38BA4F4B51B98D652A35A' +
       '2DD5CFBE8C32ED4F58E40364A556848E083DBA9A81101B3DBB7C8' +
       'CCF4DD53DD414E9EF5333AC859B3581D3B414E44C89DBC93FA2BF' +
       '29F44FD3B91CA341F3E50934F');
       
 Wtchtwr := BitmapFromString(9, 9, 'z78DA3377347774B334279A3434' +
       '313434724316313635363173C52471E982C81A8080212689A9172' +
       '2E2E6E6E6EA8653174416592FB2387E5DC8F692A70BD3851036A6' +
       '08F1BEC3A59EBC900700969F6C0A');


  ClickHere := BitmapFromString(42, 7, 'z78DA8D945B8EC3200C' +
       '45B76448C9A49FED68B2FF2575C4A5D241D64DE0238ACCF5E3184' +
       '36BB147D9FF6A9476620556B6EFEFF21B4FA7A7666F25628AECBC' +
       '54437B9516C74DE41EB3F5CA7FCEADD6AAFFED1DDBFF468F90F3C' +
       'A574AEA1D8B34EBEC8F23EA7757BE5969BD4464D807518F465EF9' +
       '0EA2AEA125C791AF728DBCE6DC5D04DB931E93EC4E49CB8A5E150' +
       'EEACEC86E9065B0BB1E22CB0DBB89202F57A12A191D5E8E7CC30E' +
       'C6895DDDC62D905DF3ECF292FD9AC54DCEB9B05C049BF1F27DC8D' +
       '3C2B36307AED9792FF89F5F1591BA77291696E2D0C2B3CBCAAC77' +
       '8BE7485FB18B6BD26336C425CD78F73A17FBC9699CB2680E398DD' +
       '4247BBE9B9C5BBE9393176AE0EEF4C50CE45B4F467A7D00693A83' +
       '80');


        InvalidUserOrPass := BitmapFromString(23, 13, 'z78DAB594C10' +
       'EC3200C437FA95D43588FA86BFFFF933601072363C6548D830FC1' +
       '499E689A68D1E315B3FAEE299AAFBEF9195238DC59F9B64464D62' +
       '3583851EDB033ECA8258E0CD7E72C0B2B776455E4CCC32445B19A' +
       '2229E74BAF89D7987999AAB90233489261AF290FB18D49E667E08' +
       'EFE4AA2BE204E146A730B7D396E4F4B61439EF184A829EAF0A86A' +
       '226EAB6DF6421E95AB2A3049C34F59AA4265C82A69C1D3B955FCD' +
       '324D87DECBF4FA23CF85DE6F7C93F4870361A7F8E2CE2D497C9B9' +
       '4D1CA6BDB37F708F517DCC454F25C41966450F399B9DC624D80BF' +
       'E91A26FA4858DC5');


  LoggedOff := BitmapFromString(20, 9, 'z78DAAD934B0EC3200C44' +
       'AF94D6E3A85946F9DCFF48AD308BA9268352A95EBC05D83C1B41E' +
       'C716289463C10D8F1C29A717E629A8A15D870E4C2BCC869B596ED' +
       'FC20E31D2FAFD8DEC8C2BBCC2F1719EF78DD8AAB759D2BFFEBADB' +
       '92EBC3CB5E4FCE0955A25673A8E4FD09B743D6BF479E5ADBA773B' +
       '36BA97A9AC93F399C8C3B1726CE7EEC69ADD56B177CD6D9E3BC5D' +
       'B39FC9B4CFE2FFA67DFF1DBEEEF');

End;

Procedure Loginme;
Begin;
  Sleep(2500);
If(FindColorSpiral(x, y, 65535, 448, 243, 455, 252))Then
MouseC(446, 290, 1)
  Else
   Repeat
  Wait(1000);
   Until(False);
  Wait(1000);
SendKeys(YourUser + chr(13));
  Sleep(2000);
SendKeys(YourPassword + chr(13));
  Sleep(500);
MouseC(300,320, 1);
  Sleep(5000);
If(FindBitmap(InvalidUserOrPass, x, y))Then
Writeln(' Invalid Username Or Password ')Else
  LoadBmps;
Repeat;
  Sleep(2000);
 MouseC(300, 320, 1);
Until
  (FindBitmap(ClickHere, x, y));
  Sleep(500)
  MouseC(x, y, 1);
  Sleep(500)
  MouseC(x, y, 1);
Repeat;
  Sleep(1000);
Until
findcolorspiral(x, y, 1881790, 733, 186, 739, 191)
Sleep(500)
MouseC(x, y, 1);
End;

Procedure LoggOff;
Begin
 Wait(1000)
  MouseC(641, 480, 1)
 Wait(2000)
  MouseC(635, 376, 1)
End;

 Procedure Va ;
Begin;
  Sleep(2300 + Random (500))
  If(FindBitmap(Varrock, x, y))Then
    MouseC(x + Random (7), y + Random (8), 1)
   Else MouseC(738 + Random (10), 188 + Random(10), 1)
    If(Not FindBitmap(Varrock, x, y))Then
     Begin;
      Repeat
     Status(' Cannot Find Bitmap, Infinate Loop Sterted . ');
      Wait(1000)
      Status(' Cannot Find Bitmap, Unless I Find Bitmap Again ');
      Wait(2500)
     Until(FindBitmap(Varrock, x, y));
End;
 Teled:= Teled + 1;
 Randomi:= Randomi +1;
End;

 Procedure Lu ;
Begin;
  Sleep(2300 + Random (500))
  If(FindBitmap(Lumby, x, y))Then
    MouseC(x + Random (7), y + Random (8), 1)
   Else MouseC(738 + Random (10), 188 + Random(10), 1)
    If(Not FindBitmap(Lumby, x, y))Then
     Begin;
      Repeat
     Status(' Cannot Find Bitmap, Infinate Loop Sterted . ');
      Wait(1000)
      Status(' Cannot Find Bitmap, Unless I Find Bitmap Again ');
      Wait(2500)
     Until(FindBitmap(Lumby, x, y));
End;
 Teled:= Teled + 1;
 Randomi:= Randomi +1;
End;

 Procedure Fa ;
Begin;
  Sleep(2300 + Random (500))
  If(FindBitmap(Fally, x, y))Then
    MouseC(x + Random (7), y + Random (8), 1)
   Else MouseC(738 + Random (10), 188 + Random(10), 1)
    If(Not FindBitmap(Fally, x, y))Then
     Begin;
      Repeat
     Status(' Cannot Find Bitmap, Infinate Loop Sterted . ');
      Wait(1000)
      Status(' Cannot Find Bitmap, Unless I Find Bitmap Again ');
      Wait(2500)
     Until(FindBitmap(Fally, x, y));
End;
 Teled:= Teled + 1;
 Randomi:= Randomi +1;
End;

 Procedure Ca ;
Begin;
  Sleep(2300 + Random (500))
  If(FindBitmap(Cammy, x, y))Then
    MouseC(x + Random (7), y + Random (8), 1)
   Else MouseC(738 + Random (10), 188 + Random(10), 1)
    If(Not FindBitmap(Cammy, x, y))Then
     Begin;
      Repeat
     Status(' Cannot Find Bitmap, Infinate Loop Sterted . ');
      Wait(1000)
      Status(' Cannot Find Bitmap, Unless I Find Bitmap Again ');
      Wait(2500)
     Until(FindBitmap(Cammy, x, y));
End;
 Teled:= Teled + 1;
 Randomi:= Randomi +1;
End;


 Procedure Ar ;
Begin;
  Sleep(2300 + Random (500))
  If(FindBitmap(Ardy, x, y))Then
    MouseC(x + Random (7), y + Random (8), 1)
   Else MouseC(738 + Random (10), 188 + Random(10), 1)
    If(Not FindBitmap(Ardy, x, y))Then
     Begin;
      Repeat
     Status(' Cannot Find Bitmap, Infinate Loop Sterted . ');
      Wait(1000)
      Status(' Cannot Find Bitmap, Unless I Find Bitmap Again ');
      Wait(2500)
     Until(FindBitmap(Ardy, x, y));
End;
 Teled:= Teled + 1;
 Randomi:= Randomi +1;
End;

 Procedure Wt ;
Begin;
  Sleep(2300 + Random (500))
  If(FindBitmap(Wtchtwr, x, y))Then
    MouseC(x + Random (7), y + Random (8), 1)
   Else MouseC(738 + Random (10), 188 + Random(10), 1)
    If(Not FindBitmap(Wtchtwr, x, y))Then
     Begin;
      Repeat
     Status(' Cannot Find Bitmap, Infinate Loop Sterted . ');
      Wait(1000)
      Status(' Cannot Find Bitmap, Unless I Find Bitmap Again ');
      Wait(2500)
     Until(FindBitmap(Wtchtwr, x, y));
End;
 Teled:= Teled + 1;
 Randomi:= Randomi +1;
End;

Procedure Min;
Begin;
  Loadbmps;
    case WhereTo of
    1 : Va;
     2 : Lu;
    3 : Fa;
     4 : Ca;
    5 : Ar;
     6 : Wt;
End;
End;

Begin
 Teled:= 0;
  Randomi:= 0;
 SetupSquig;
  LoadBmps;
 Repeat
 If(FindBitmap(LoggedOff, x, y))Then
  Loginme;
 Min;
  If (Randomi = 20 + Random (5))Then
Begin;
    Findrandoms;
      Randomi:= 0;
     Wait(1300)
  If (Teled =  TeleTimes) Then
Begin;
  Writeln(' Thanks For Using This, You Have Teled ' + +inttostr(TeleTimes) + ' Times')
    LoggOff;
 Terminatescript;
 End;
	End;
 Until( Teled = TeleTimes)
End.