Bomb's OldSchool Tokkul Arena Completer!

Oh my god you'll never guess what i found......

After the Sythe crash i lost like 20 of my scripts and i got really mad.
Today i was looking at some wannabe cheating website (rs101.info) and i found my script!

They said they made it and it has all of my info in it.

Enjoy.....

Code:

{.Script Info:
# ScriptName  = BOMBS AUTO TOKKUL
# Author      = the bomb 454
# Description = tightness
# Version     = 3.1
# Date        = 12/28/05
# Comments    = tightness/1337
/Script Info}
program BOMBS_Tokkul_Completer;
{.include Squig.txt}
////Setup ////
//Start in front of the entrance (cave) to minigame////
Const
BankSymbol = 5034473; //Color of the bank symbol
ampSkill='strength'; //i meant for it to be lampskill
TotalNeeded = 0; //Number of times you want to go thru, 0 for unlimited
Combat = 1; //The type of combat you wish to fight with 1=attk 2= str 3= other str and 4= defence
////End Setup////

Var
a, b, x, chance, talk, TotalDone : Integer;

Procedure ChangeReport(Reason : String);
Begin
Status(Reason);
ClearReport;
AddToReport('+=+=+=+=+=+=+=BOMBS TOKKULL REPORT=+=+=+=+=+=+=+=+=+');
AddToReport('Right Now You Are: ' + Reason);
AddToReport(WorkedFor);
AddToReport('You Have Completed cave ' + inttostr(TotalDone) + ' times ');
AddToReport(inttostr(TotalNeeded - TotalDone) + ' times left');
End;

Function indObjectIn(a1, b1, a2, b2 : Integer; text : String; color, tol : Integer) : Boolean;
Var
  a, b, c, x1, y1, x2, y2, cc, dd : Integer;
  Changed : Boolean;
Begin
  x1:= a1;
  cc:= (a2 - a1) / 10;
  dd:= (b2 - b1) / 10;
  changed:= false;
  y1:= b1;
  x2:= a1 + 15;
  y2:= b1 + 15;
  c:= 0;
  result:= false;
  If(findcolortolerance(a, b, color, a1, b1, a2, b2, tol)= false)Then
    exit;
  Repeat
    If(getcolor(215, 435)=  16711680)Then
      MouseC(random(20) + 265, random(5) + 436, 1);
    a:= x1 + ((x2 - x1) / 2);
    b:= y1 + ((y2 - y1) / 2);
    If(FindColorSpiralTolerance(a, b, color, x1, y1, x2, y2, tol))And(a > (a1 - 30))Then
      Begin
        MouseC(a + random(3), b + random(3), 0);
        changed:= true;
        wait(random(100) + 100);
      End;
    c:= c + 1;
    If(c= 215)Then
      Begin
        result:= false;
        exit;
      End;
    x1:= x2;
    x2:= x1 + cc;
    If(x2>= b2)Then
      Begin
        x1:= a1;
        x2:= x1 + cc;
        y1:= y1 + dd;
        y2:= y1 + dd;
      End;
    If(y1>= b2)Then
      Begin
        result:= false;
        exit;
      End;
    wait(10);
    While(x1>512)Or(x2>512)Do
      Begin
        If(x1>512)Then
          x1:= x1 - random(3) - 1;
        If(x2>512)Then
          x2:= x2 - random(3) - 1;
      End;
    While(y1>334)Or(y2>334)Do
      Begin
        If(y1>334)Then
          y1:= y1 - random(3) - 1;
        If(y2>334)Then
          y2:= y2 - random(3) - 1;
     End;
  Until(istextat3(9, 9, text, 100))And(changed= true);
  result:= true;
End;
Procedure indText;
Var
  counter, a, b, a1, b1, c, d : Integer;
Begin
  counter:= 0
  If(findcolor(a, b, 65535, 10, 20, 515, 338))
  Or(Istextat3(185, 36, 'The Bank', 100))Then
    wait(200)
  If((User='')and(findcolor(a, b, 65535, 10, 20, 515, 338))
  And(Istextat3(185, 36, 'The Bank', 100)= false))or
  ((not(User=''))and(findcolor(a, b, 65535, 10, 20, 515, 338))
  And(FindBitmapMaskTolerance(CreateBitmapMaskFromText(User,ChrCharsNormal),a,b,138,77,399,255,10,85))
  And(Istextat3(185, 36, 'The Bank', 100)= false))Then
    Begin
      Repeat
        counter:= counter + 2 + random(1);
        MoveMouseSmoothEx(a + counter, b + 15 + random(3), 1, 6, 15, 20, 20);
        wait(1)
        If(istextat3(9, 9, 'Talk', 100))And(IsTextAt3(9, 9, 'Talk-to Banker', 100)=False)Then
          Begin
            getmousepos(a1, b1);
            MouseC(a1, b1, 2);
            Repeat
              wait(random(100) + 200);
            Until(findcolor(a, b, 0, a1 - 30, b1 - 30, a1 + 30, b1 + 30));
            If(IsTextIn3(S1, S2, S3, S4, c, d, 'Talk'))Then
              Begin
                MouseC(c + random(10), d + random(3), 1);
                MapFlagging;
                TalkToRand;
                exit;
              End;
          End;
      Until(counter>= 150);
    End;
End;

Function indLost : Boolean;
Var
  a, b, c, d, dtmlostfound : Integer;
  Screenie : Boolean;
Begin
  result:=false;
  DTMLostFound := DTMFromString('78DA636C656260086000035608C5F0FFFF7F0' +
       '64920CD0861FF676C02AAF145559362A6025703028C6D44AA09C4' +
       '6D17584D33A61A0C7332816A0C51D5C0005CCD2CA01A2322D4A41' +
       '0509302545340404D0E504D101176F9E257030003C71610');
  While(FindDtm(dtmLostFound, a, b, M1, M2, M3, M4) = true)Do
    Begin
      If(Screenie = false)And(Screenshots)Then
        Begin
          TakeScreenShot('Lost&Found',1);
          Screenie:= True;
        End;
      Sendarrowsilentwait(0, random(300) + 600);
      wait(random(300) + 300);
      MapCompass('N');
      wait(random(300) + 300);
      c:= c + 1;
      Case c Of
        1 : Begin a:= 235; b:= 60; End;
        2 : Begin a:= 325; b:= 150; End;
        3 : Begin a:= 240; b:= 222; End;
        4 : Begin a:= 175; b:= 140; End;
      End;
      Repeat
        Mousec(random(30) + a, random(15) + b, 0);
        wait(random(10) + 30);
        d:= d + 1;
      Until(IsTextUp('Operate')) Or (d = 60);
      If(d = 60)Then
        Begin
          Logout;
          writeln('Lost & Found, logging out');
          TerminateScript;
        End
        Else
        Begin
          getmousepos(a, b);
          MouseC(a, b, 1);
        End;
      wait(random(1000) + 4500);
    End;
    BlueText;
    wait(random(300) + 600);
    result:= true;
    FreeDtm(DtmLostFound);
End;



Procedure FindLogoutRandoms;
Var
  a, b, bmpModCrown, bmpStaffCrown, x, y, bmpFreakyForester : Integer;
Begin
If(checkmods= true)Then
Begin
  bmpModCrown := BitmapFromString(13, 11, 'z78DAB334B7044203BCC0' +
       '926835AE0620884B3D44D6D10804F1ABA19D6998EA91C591212E3' +
       '5B4300DBF5E6220660850D7344C3391C57189E04F3998A6E167D3' +
       'D334882CA910D9040004DCB3A1');
  bmpstaffcrown := BitmapFromString(13, 11, 'z78DA7331B374353234' +
       'C00B5C8856E306041626B8D44364DDCCDDDC0C2CF0ABA19D6998E' +
       'A91C591495C6A68611A7EBDC4909821405DD330CD4411C721823F' +
       'E5609A869F4D4FD320B2A492C8260000F512BB2D');
  If (findbitmaptolerancein(bmpStaffcrown, a, b, 1, 345, 110, 430, 50))
  Or(findbitmaptolerancein(bmpModcrown, a, b, 1, 345, 110, 430, 50))Then
    Begin
      If(Screenshots)Then
        TakeScreenShot('Staff Found', 1);
      writeln('Staff / Mod Found, logged out And will log in later');
      a:= 0;
      LogOutFor(15);
    End;
  FreeBitmap(bmpStaffCrown);
  FreeBitmap(bmpModCrown);
End;
If(CheckForester= true)Then
Begin
  bmpFreakyForester := BitmapFromString(106, 2, 'z78DAA552410AC0' +
       '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
       'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
       'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
       '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
       'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  If(FindBitmap(bmpFreakyForester, x, y))Then
    Begin
      If(Screenshots)Then
        TakeScreenShot('ForesterFound',1);
      wait(random(300)+300);
      LogOut;
      writeln('Forester Found, logged out');
      TerminateScript;
    End;
  FreeBitmap(bmpFreakyForester);
End;
If(checkmaze= true)Then
Begin
  If (getcolor(378, 33)= 15395562)And(getcolor(156, 46)= 15395562)
  And(getcolor(331, 46)= 15395562) Then
  Begin
    If(Screenshots)Then
      TakeScreenshot('Maze', 1);
    LogOut;
    writeln('Maze found');
    TerminateScript;
  End;
End;
If(CheckQuiz= true)Then
Begin
  If(similarcolors(getcolor(178, 372), 6495240, 20))Then
    Begin
      If(Screenshots)Then
        TakeScreenshot('Quiz Master', 1);
      writeln('Quiz found');
      LogOut;
      TerminateScript;
    End;
End;
If(CheckBob= True)Then
Begin
  If(FindColorTolerance(a, b, 4936133, 35, 355, 110, 425, 5))Then
    Begin
      If(Screenshots)Then
        TakeScreenShot('Evil Bob',0);
      writeln('Logged out for evil bob');
      LogOut;
      TerminateScript;
    End;
end;
If(CheckMime= True)then
Begin
  If(FindColor(a,b,11503238,10,350,480,435))And(checkmime=true)Then
    Begin
      If(Screenshots)Then
        TakeScreenshot('Mime', 1);
      writeln('Find Mime');
      Logout;
      writeln('Infinit Loop, so your script doesnt try To Do anything stupid');
      TerminateScript;
    End;
End;
end;

Function olveFrog : Boolean;
//Created by Stupid3ooo, edited by Squigglyo
Var
  tx, ty, a, c, cc, CrownColor, x, y : Integer;
  i, x1, y1, x2, y2, dtmfrogspot, imgfrog : Integer;
Begin
  dtmFrogSpot := DTMFromString('78DA63AC606260B06100030E2006F2184AF36' +
     '2C07C4620FE0F048CDD405167881A56A8B8555D3A033F940D565B' +
     '0254A349404D12508D037E35000D030BB3');
  imgFrog := BitmapFromString(30, 2, 'z78DA73727274B534B23000012' +
     '74747270B47E249645DB84C808A836D4126C91447321317498C9B' +
     '5154426CC160633119C355982EC4A51E00B445523B');
  If(FindBitmap(imgFrog, x, y))Or(FindDtm(dtmFrogSpot, x, y, 570, 5, 725, 160))Then
    Begin
      TotalFrogs:= TotalFrogs + 1;
      If(Screenshots)Then
        TakeScreenShot('FrogFound', TotalFrogs);
      If(FindDtm(dtmFrogSpot, x, y, 570, 5, 725, 160))Then
        Begin
          MouseC(x + random(5), y + random(5), 1);
          wait(random(200) + 400);
          MapFlagging;
        End;
      x1:= 245;
      y1:= 165;
      x2:= 277;
      y2:= 185;
      Repeat
        a:= a + 1;
        If(a = 1)Then
          c:= c + 1;
        If(a = 3)Then
          c:= c + 1;
        For i:=1 To c Do
          Begin
            If(a = 1)Then
              Begin
                x1:= x1 + 30;
                x2:= x2 + 30;
              End;
            If(a = 2)Then
              Begin
                y1:= y1 - 20;
                y2:= y2 - 20;
              End;
            If(a = 3)Then
              Begin
                x1:= x1 - 30;
                x2:= x2 - 30;
              End;
            If(a = 4)Then
              Begin
                y1:= y1 + 20;
                y2:= y2 + 20;
              End;
            If(x1 = 485)And(x2 = 517)Then
              x2:= x2 - 2;
            If(y1 = 325)And(y2 = 345)Then
              y2:= y2 - 7;
            If(x1 > 515)Then
              Break;
            If(FindColorTolerance(x, y, 1077773, x1, y1, x2, y2, 20))Then
              Begin
                MouseC(x + random(5), y + random(5), 0);
                If(IsTextUp('Talk'))Then
                  Begin
                    For cc:= 1 To 20 Do
                      Begin
                        If(FindColorTolerance(tx, ty, 3460859, x-20, y-20, x+20, y+20, cc))Then
                          Begin
                            CrownColor:= GetColor(tx, ty);
                            Break;
                          End;
                      End;
                      If(FindColor(tx, ty, CrownColor, x - 20, y - 20, x + 20, y + 20))And
                      (not(FindColoredAreaTolerance(tx, tx, 2965499, x - 25, y - 25, x + 25, y + 25, 4, 20)))Then
                        Begin
                          MouseC(x + random(5), y + random(5), 1);
                          MapFlagging;
                          Wait(2000 + random(1000));
                          While(FindColor(x, y, 16711680, 5, 345, 510, 465))And
                          (not(GetColor(20, 434) = 0))Or
                          (FindColor(x, y, 16777215, 5, 345, 510, 465))And
                          (not(GetColor(20, 434) = 0))Do
                            Begin
                              MouseC(x + random(20), y + random(2), 1);
                              wait(500 + random(500));
                            End;
                          MouseC(256 + random(3), 401 + random(3), 1);
                          Wait(5000 + random(1000));
                          While(FindColor(x, y, 16711680, 5, 345, 510, 465))And
                          (not(GetColor(20, 434) = 0))Or
                          (FindColor(x, y, 16777215, 5, 345, 510, 465))And
                          (not(GetColor(20, 434) = 0))Do
                            Begin
                              MouseC(x + random(20),y + random(2), 1);
                              wait(500 + random(500));
                            End;
                          Result:= true;
                          Break;
                        End;
                      End;
                  End;
              End;
            If(a = 4)Then
              a:= 0;
      Until(x2 > 515)Or(Result = true);
    End;
  FreeBitmap(imgfrog);
  FreeDtm(dtmfrogspot);
End;
Function etQuestion : Integer;
Begin
  result:= 0 ;
  If(istextat3(194, 260, 'Which shape is Y', 100))Then
    result:=  1;  // Color Yellow
  If(istextat3(200, 260, 'Which shape is B', 100))Then
    result:=  2;  // Color Blue
  If(istextat3(202, 260, 'Which shape is R', 100))Then
    result:=  3;  // Color Red
  If(istextat3(185, 260, 'What colour is the C', 100))Then
    result:=  4;  // Shape Cirlce
  If(istextat3(180, 260, 'What colour is the Sq', 100))Then
    result:=  5;  // Shape square
  If(istextat3(173, 260, 'What colour is the H', 100))Then
    result:=  6;  // Shape Halfmoon
  If(istextat3(178, 260, 'What colour is the T', 100))Then
    result:=  7;  // Shape Triangle
  If(istextat3(189, 260, 'What colour is the St', 100))Then
    result:=  8;  // Shape Star
End;
function indObject(text : string; color, tol : integer):boolean;
var
  a,b,w,c,i,x1,y1,x2,y2:integer;            //From SSi2.txt, edited by Starblaster100
begin
  if(Findcolorspiraltolerance(a,b,color,s1,s2,s3,s4,tol))then
  begin
    x1:=245;
    y1:=165;
    x2:=277;
    y2:=185;
    repeat
    w:=w+1;
    if(w=1)then
      c:=c+1;
    if(w=3)then
      c:=c+1;
    for i:=1 to c do
    begin
      if(w=1)then
      begin
        x1:=x1+30;
        x2:=x2+30;
      end;
      if(w=2)then
      begin
        y1:=y1-20;
        y2:=y2-20;
      end;
      if(w=3)then
      begin
        x1:=x1-30;
        x2:=x2-30;
      end;
      if(w=4)then
      begin
        y1:=y1+20;
        y2:=y2+20;
      end;
      if(x1=485)and(x2=517)then
        x2:=x2-2;
      if(y1=325)and(y2=345)then
        y2:=y2-7;
      if(x2>515)then
        Break;
      if(FindColorTolerance(a,b,color,x1,y1,x2,y2,tol))then
      begin
        MoveMouseSmoothEx(a + random(3), b + random(3), 1, 6, 15, 20, 20);
        Wait(50 + random(70));
        if(IsTextup(text))then
        begin
          Result:=true;
          Break;
        end;
      end;
    end;
    if(w=4)then
      w:=0;
    until(x2>515)or(Result=true)
  end;
end;
Procedure endKeysHuman2(text:String);
Var
  a1, a2, a3 : Integer;
  char1, char2 : String;
  mistake : Boolean;
Begin
  a1:= 1;
  a3:= random(4) + 1
  Repeat
    a2:= random(50);
    If(a2<>5)Or(mistake = true)Then
      Begin
        wait(random(50)+20);
        sendkeys('i am the king of no pants');
      End
      Else
      Begin
        mistake:= true;
        char1:= (copy(text, a1, 1));
        char1:= Lowercase(char1);
        char2:= char1;
        a2:= random(2);
        If(a2= 0)Then
          Case char1 Of
            '`' : char2:= '`';
            '1' : char2:= '`';
            '2' : char2:= '1';
            '3' : char2:= '2';
            '4' : char2:= '3';
            '5' : char2:= '4';
            '6' : char2:= '5';
            '7' : char2:= '6';
            '8' : char2:= '7';
            '9' : char2:= '8';
            '0' : char2:= '9';
            '-' : char2:= '0';
            '=' : char2:= '-';
            '~' : char2:= '~';
            '!' : char2:= '~';
            '@' : char2:= '!';
            '#' : char2:= '@';
            '$' : char2:= '#';
            '%' : char2:= '$';
            '^' : char2:= '%';
            '&' : char2:= '^';
            '*' : char2:= '&';
            '(' : char2:= '*';
            ')' : char2:= '(';
            '_' : char2:= ')';
            '+' : char2:= '_';
            'q' : char2:= 'q';
            'w' : char2:= 'q';
            'e' : char2:= 'w';
            'r' : char2:= 'e';
            't' : char2:= 'r';
            'y' : char2:= 't';
            'u' : char2:= 'y';
            'i' : char2:= 'u';
            'o' : char2:= 'i';
            'p' : char2:= 'o';
            '[' : char2:= 'p';
            '{' : char2:= 'P';
            ']' : char2:= '[';
            '}' : char2:= '{';
            '\' : char2:= ']';
            '|' : char2:= '}';
            'a' : char2:= 'a';
            's' : char2:= 'a';
            'd' : char2:= 's';
            'f' : char2:= 'd';
            'g' : char2:= 'f';
            'h' : char2:= 'g';
            'j' : char2:= 'h';
            'k' : char2:= 'j';
            'l' : char2:= 'k';
            ';' : char2:= 'l';
            ':' : char2:= 'L';
            chr(39) : char2:= ';';
            '"' : char2:= ':';
            'z' : char2:= 'z';
            'x' : char2:= 'z';
            'c' : char2:= 'x';
            'v' : char2:= 'c';
            'b' : char2:= 'v';
            'n' : char2:= 'b';
            'm' : char2:= 'n';
            ',' : char2:= 'm';
            '<' : char2:= 'M';
            '.' : char2:= ',';
            '>' : char2:= '<';
            ' / ' : char2:= '.';
            '?' : char2:= '>';
          End;
        If(a2= 1)Then
          Case char1 Of
            '`' : char2:= '1';
            '1' : char2:= '2';
            '2' : char2:= '3';
            '3' : char2:= '4';
            '4' : char2:= '5';
            '5' : char2:= '6';
            '6' : char2:= '7';
            '7' : char2:= '8';
            '8' : char2:= '9';
            '9' : char2:= '0';
            '0' : char2:= '-';
            '-' : char2:= '=';
            '=' : char2:= '=';
            '~' : char2:= '!';
            '!' : char2:= '@';
            '@' : char2:= '#';
            '#' : char2:= '$';
            '$' : char2:= '%';
            '%' : char2:= '^';
            '^' : char2:= '&';
            '&' : char2:= '*';
            '*' : char2:= '(';
            '(' : char2:= ')';
            ')' : char2:= '_';
            '_' : char2:= '+';
            '+' : char2:= '+';
            'q' : char2:= 'w';
            'w' : char2:= 'e';
            'e' : char2:= 'r';
            'r' : char2:= 't';
            't' : char2:= 'y';
            'y' : char2:= 'u';
            'u' : char2:= 'i';
            'i' : char2:= 'o';
            'o' : char2:= 'p';
            'p' : char2:= '[';
            '[' : char2:= ']';
            '{' : char2:= '}';
            ']' : char2:= '\';
            '}' : char2:= '|';
            '\' : char2:= '\';
            '|' : char2:= '|';
            'a' : char2:= 's';
            's' : char2:= 'd';
            'd' : char2:= 'f';
            'f' : char2:= 'g';
            'g' : char2:= 'h';
            'h' : char2:= 'j';
            'j' : char2:= 'k';
            'k' : char2:= 'l';
            'l' : char2:= ';';
            ';' : char2:= chr(39);
            ':' : char2:= '"';
            chr(39) : char2:= chr(39);
            '"' : char2:= '"';
            'z' : char2:= 'x';
            'x' : char2:= 'c';
            'c' : char2:= 'v';
            'v' : char2:= 'b';
            'b' : char2:= 'n';
            'n' : char2:= 'm';
            'm' : char2:= ',';
            ',' : char2:= '.';
            '<' : char2:= '>';
            '.' : char2:= '/';
            '>' : char2:= '?';
            '/' : char2:= '/';
            '?' : char2:= '?';
          End;
          sendkeys(char2);
      End;
    a1:= a1 + 1;
  Until a1 > length(text);
End;
Function sTextAt3(x, y : Integer; S : String; Tolerance : Integer) : Boolean;
Var
  a, b : Integer;
Begin
  result:= IsTextInAreaEx(x - 2, y - 2, x + 2, y + 2, a, b, S, Tolerance, ChrCharsNormal, True, False, 0, 1, -1);
End;
Function heckChatMsg(Text: String) : Boolean;
Begin
  Result:= IsTextAtEx(20, 415, Text, 40, ChrChatChars, False, True, 0, 1, 0);
End;
Procedure lickHuman(x, y : Integer; left : Boolean);
Begin
  holdmouse(x, y, left);
  wait(random(20) + 15);
  releasemouse(x, y, left);
End;
Procedure OpenTab(TabNumber:integer);
begin
   Case TabNumber of
       1 : Begin      //Atack Style
              If(getcolor(558, 180) = 5531511)Then
                 MouseC(random(10) + 550, random(10) + 175, 1);
           End;
       2 : Begin      //Stats
              If(getcolor(590, 177) = 5531511)Then
                 MouseC(random(10) + 575, random(10) + 175, 1);
           End;
       3 : Begin      //Quests
              If(getcolor(620, 177) = 5531511)Then
                 MouseC(random(10) + 605, random(10) + 175, 1);
           End;
       4 : Begin     //Inventory
              If(getcolor(634, 174) = 5531511)Then
                 MouseC(random(10) + 635, random(10) + 175, 1);
           End;
       5 : Begin     //Equipment
              If(getcolor(680, 173) = 5531511)Then
                 MouseC(random(10) + 675, random(10) + 175, 1);
           End;
       6 : Begin     //Prayer
              If(getcolor(701, 177) = 5531511)Then
                 MouseC(random(10) + 700, random(10) + 175, 1);
           End;
       7 : Begin     //Magic
              If(getcolor(730, 176) = 5531511)Then
                 MouseC(random(10) + 730, random(10) + 175, 1);
           End;
       8 : Begin    //Friends
              If(getcolor(574, 491) = 2699832)Then
                 MouseC(random(10) + 575, random(10) + 470, 1);
           End;
       9 : Begin      //Ignore
              If(getcolor(603, 495) = 3095106)Then
                 MouseC(random(10) + 605, random(10) + 470, 1);
           End;
       10: Begin      //Logout
             If(getcolor( 632, 483) = 4543586)Then
                MouseC(random(10) + 635, random(10) + 475, 1);
           End;
       11: Begin      //Tools
             If(getcolor(675, 476) = 4543586)Then
                MouseC(random(10) + 675, random(10) + 470, 1);
           End;
       12: Begin      //Option
             If(getcolor(704, 483) = 4543586)Then
                MouseC(random(10) + 700, random(10) + 470, 1);
           End;
       13: Begin       //Music
             If(getcolor(731, 494) = 5531511)Then
                MouseC(random(10) + 730, random(10) + 470, 1);
           End;
   end;
end;
Procedure heckLamp;
Var
  a, b, bmpTheLamp : Integer;
Begin
  OpenTab(4);
  bmpTheLamp := BitmapFromString(29, 6, 'z78DAB59241AEC3300844AF' +
       '044E6CC3128873FF231565DCB451175FFA4D59CC22B1CD9BD110D' +
       'D3FBA68E162DD2A37FAF16CEB5638FE77D7D53BB720DF597D71E6' +
       '0666DD34B8C0C56D9C1CB905BB3EF50F4E77E50642271BC919E65' +
       '74ED9C4B9F4D62B8DBB38B1CB9BAFA9C323BFB7A84F9D27232C55' +
       'A35FFFCE17407EBC00665B2D69D5544EF2262B8D6E5D69E45123A' +
       'D5B0DD2EFFB33D9A0235EFC4B9493F0F035398F3E4CBFE8839A9C' +
       'CC48BB6B4B25D993BC08D3801764252AF265FE479F272DC83F39D' +
       'F08671FDE38F3CAFE4C183C48180D41E6F002BF39952E0D7C002E' +
       '11D78A');
  If(findbitmaptolerancein(bmpthelamp, a, b, I1, I2, I3, I4, 20))Then
    Begin
      MouseC(random(5) + a, random(5) + b, 1);
      Repeat
        wait(100);
      Until(getcolor(127, 118)= 65535)
      TotalLamps:= TotalLamps + 1;
      If(Screenshots)Then
        TakeScreenShot('Lamp Found', TotalLamps);
      a:= 0;
      LampSkill:= Uppercase(LampSkill);
      Case LampSkill Of
        '', 'ATTACK', 'ATK', 'AGI', 'AGILITY', 'MINING', 'MINE' : a:= 155;
        'STRENGTH', 'STR', 'HERBLORE', 'HERBLAW', 'HERB', 'SMITHING',
        'SMITH', 'SMITHER' : a:= 185;
        'RANGE', 'RANGER', 'THIEVING', 'THIEVE', 'THIEF', 'THEIVING',
        'FISH', 'FSHING' : a:= 220;
        'MAGIC', 'MAGE', 'CRAFTING', 'CRAFTER', 'CRAFT', 'COOKING',
        'COOK' : a:= 250;
        'DEFENSE', 'DEF', 'RC', 'RUNECRAFTING', 'RUNE', 'FIREMAKING',
        'FIRE' : a:= 285;
        'HITPOINTS', 'HP', 'HEALTH', 'HITS', 'SLAYER', 'SLAY', 'WOODCUTTING',
        'WC' : a:= 315;
        'PRAYER', 'PRAY', 'FARMING', 'FARM', 'FLETCHING', 'FLETCH' : a:= 345;
      End;
      Case LampSkill Of
        '', 'ATTACK', 'ATK', 'STRENGTH', 'STR', 'RANGE', 'RANGER', 'MAGIC', 'MAGE',
        'DEFENSE', 'DEF''HITPOINTS', 'HP', 'PRAYER', 'PRAY' : b:= 185;
        'AGILITY', 'AGI', 'HERBLORE', 'HERBLAW', 'HERB', 'THIEVING', 'THEIVING',
        'THIEVE', 'THIEF', 'CRAFTING', 'CRAFT', 'RUNECRAFTING', 'RC', 'SLAYER',
        'SLAY', 'FARMING', 'FARM' : b:= 220;
        'MINING', 'MINE', 'SMITHING', 'SMITH', 'FISHING', 'FISH', 'COOKING', 'COOK',
        'FIREMAKING', 'FIRE', 'WOODCUTTING', 'WC', 'FLETCHING', 'FLETCH' : b:= 220;
      End;
      If(a= 0)Or(b= 0)Then
        Begin
          a:= random(5) + 185;
          b:= random(5) + 145;
        End;
      MouseC(a + random(5), b + random(5), 1);
      wait(random(300) + 1000);
      MouseC(random(20) + 240, random(5) + 250, 1);
      wait(random(500) + 2000);
  End;
  FreeBitmap(bmpTheLamp);
End;

Procedure Box(z1, z2:Integer);
Var
  a1, c, a2, a3, a4, a5, a6, a7, a8, a, b, qw, switch, totala : Integer;
  Star1, Circle1, Halfmoon1, square1, Triangle1, answer : String;
Begin
  Answer:= 'Error';
  Star1:= '0';
  Circle1:= '0';
  Halfmoon1:= '0';
  square1:= '0';
  Triangle1:= '0';
  z1:= z1 + random(10);
  z2:= z2 + random(5);
  MouseC(z1, z2, 1);
  wait(random(500) + 500);
  totala:= 0;
  c:= random(3);
  MouseC(random(10) + 145 + (c * 120), 290 + random(10), 0);
  Repeat
    wait(100);
    c:= c + 1;
    If(c= 25)Then
      exit;
  Until(istextat3(9, 9, 'Ok', 100));
  TotalBoxes:= TotalBoxes + 1;
  If(Screenshots)Then
    TakeScreenShot('Strange Box Found', TotalBoxes);
  status('Solving Box, please wait For 5 To 15 seconds');
  wait(random(220) + 220);
  switch:= 0;
  Repeat  // Find Star
    wait(1);
    switch:= switch + 1;
    a1:= GetColor(233, 119);
    a2:= GetColor(263, 142);
    a3:= GetColor(243, 125);
    a4:= GetColor(275, 82);
    a5:= GetColor(277, 96);
    a6:= GetColor(263, 143);
    a7:= GetColor(279, 131);
    a8:= GetColor(274, 87);
    switch:= switch + 1;
    If(a3= a4)Then
      Begin
        a1:= a3;
        a2:= a4;
      End;
    If(a5= a6)Then
      Begin
        a1:= a5;
        a2:= a6;
      End;
    If(a7= a8)Then
      Begin
        a1:= a7;
        a2:= a8;
      End;
  Until(a1= a2)And((similarcolors(a1, 4084651, 22))Or(similarcolors(a1, 5613239, 22))
  Or(similarcolors(a1, 9524307, 22)))Or(switch= 2000);
  If(a1= a2)And(similarcolors(a1, 5613239, 22))Then Star1:= 'Yellow';
  If(a1= a2)And(similarcolors(a1, 4084651, 22))Then Star1:= 'Red';
  If(a1= a2)And(similarcolors(a1, 9524307, 22))Then Star1:= 'Blue';
  If(Star1= 'Yellow')Or(Star1= 'Red')Or(Star1= 'Blue')Then
    Totala:= totala + 1;
  switch:= 0;
  getmousepos(a, b);
  MouseC(a + random(5) - random(5), b + random(5) - random(5), 0);
  Repeat  // Finding The Circle
    wait(1);
    a1:= GetColor(286, 113);
    a2:= GetColor(228, 88);
    a3:= GetColor(271, 132); // Blue Circle
    a4:= GetColor(275, 140);
    a5:= GetColor(258, 128); // Red Circle
    a6:= GetColor(294, 110);
    a7:= GetColor(281, 134); // Red Circle 2
    a8:= GetColor(262, 90);
    switch:= switch + 1;
    If(a3= a4)Then
      Begin
        a1:= a3;
        a2:= a4;
      End;
    If(a5= a6)Then
      Begin
        a1:= a5;
        a2:= a6;
      End;
  Until(a1= a2)And((similarcolors(a1, 4084651, 22))Or(similarcolors(a1, 5613239, 22))
  Or(similarcolors(a1, 9524307, 22)))Or(switch= 2000);
  If(a1= a2)And(similarcolors(a1, 5613239, 22))Then Circle1:= 'Yellow';
  If(a1= a2)And(similarcolors(a1, 4084651, 22))Then Circle1:= 'Red';
  If(a1= a2)And(similarcolors(a1, 9524307, 22))Then Circle1:= 'Blue';
  If(Circle1= 'Yellow')Or(Circle1= 'Red')Or(Circle1= 'Blue')Then
    Totala:= totala + 1;
  switch:= 0;
  getmousepos(a, b);
  MouseC(a + random(5) - random(5), b + random(5) - random(5), 0);
  Repeat  // Finding The square
    wait(1)
    a1:= GetColor(215, 104);
    a2:= GetColor(291, 103);
    a3:= GetColor(304, 110);
    a4:= GetColor(236, 112);
    switch:= switch + 1
    If(a3= a4)Then
      Begin
        a1:= a3;
        a2:= a4;
      End;
  Until(a1= a2)And((similarcolors(a1, 4084651, 22))Or(similarcolors(a1, 5613239, 22))
  Or(similarcolors(a1, 9524307, 22)))Or(switch= 2000);
  If(a1= a2)And(similarcolors(a1, 5613239, 22))Then square1:= 'Yellow';
  If(a1= a2)And(similarcolors(a1, 4084651, 22))Then square1:= 'Red';
  If(a1= a2)And(similarcolors(a1, 9524307, 22))Then square1:= 'Blue';
  If(square1= 'Yellow')Or(square1= 'Red')Or(square1= 'Blue')Then
    Totala:= totala + 1;
  switch:= 0;
  getmousepos(a, b);
  MouseC(a + random(5) - random(5), b + random(5) - random(5), 0);
  If(totala<3)Then
    Repeat  // Finding The Half Moon
      wait(1);
      a1:= GetColor(312, 115);
      a2:= GetColor(302, 120);
      switch:= switch + 1;
    Until(a1= a2)And((similarcolors(a1, 4084651, 22))Or(similarcolors(a1, 5613239, 22))
  Or(similarcolors(a1, 9524307, 22)))Or(switch= 2000);
  If(a1= a2)And(similarcolors(a1, 5613239, 22))Then Halfmoon1:= 'Yellow';
  If(a1= a2)And(similarcolors(a1, 4084651, 22))Then Halfmoon1:= 'Red';
  If(a1= a2)And(similarcolors(a1, 9524307, 22))Then Halfmoon1:= 'Blue';
  If(Halfmoon1= 'Yellow')Or(Halfmoon1= 'Red')Or(Halfmoon1= 'Blue')Then
    Totala:= totala + 1;
  switch:= 0;
  getmousepos(a, b);
  MouseC(a + random(5) - random(5), b + random(5) - random(5), 0);
  If(totala<3)Then
  Repeat  // Finding The Triangle
    wait(1)
    a1:= GetColor(258, 72);
    a2:= GetColor(275, 106);
    switch:= switch + 1;
  Until(a1= a2)And((similarcolors(a1, 4084651, 22))Or(similarcolors(a1, 5613239, 22))
  Or(similarcolors(a1, 9524307, 22)))Or(switch= 2000);
  If(a1= a2)And(similarcolors(a1, 5613239, 22))Then Triangle1:= 'Yellow';
  If(a1= a2)And(similarcolors(a1, 4084651, 22))Then Triangle1:= 'Red';
  If(a1= a2)And(similarcolors(a1, 9524307, 22))Then Triangle1:= 'Blue';
  switch:= 0;

  qw:= getquestion;
  If(qw= 1)Then
    If(square1= 'Yellow')Then
      Answer:= 'square'
    Else If (Circle1= 'Yellow')Then
      Answer:= 'Circle'
    Else If (Star1= 'Yellow')Then
      Answer:= 'Star'
    Else If (Halfmoon1= 'Yellow')Then
      Answer:= 'Halfmoon'
    Else If (Triangle1= 'Yellow')Then
      Answer:= 'Triangle'
    Else
      Answer:= 'Error';

  If(qw= 2)Then
    If(square1= 'Blue')Then
      Answer:= 'square'
    Else If (Circle1= 'Blue')Then
      Answer:= 'Circle'
    Else If (Star1= 'Blue')Then
      Answer:= 'Star'
    Else If (Halfmoon1= 'Blue')Then
      Answer:= 'Halfmoon'
    Else If (Triangle1= 'Blue')Then
      Answer:= 'Triangle'
    Else
      Answer:= 'Error';

  If(qw= 3)Then
    If(square1= 'Red')Then
      Answer:= 'square'
    Else If (Circle1= 'Red')Then
      Answer:= 'Circle'
    Else If (Star1= 'Red')Then
     Answer:= 'Star'
    Else If (Halfmoon1= 'Red')Then
      Answer:= 'Halfmoon'
    Else If (Triangle1= 'Red')Then
      Answer:= 'Triangle'
    Else
      Answer:= 'Error';

  If(qw= 4)Then
    If (Circle1<>'0')Then
      Answer:=  Circle1
    Else
      Answer:= 'Error';

  If(qw= 5)Then
    If (square1<>'0')Then
      Answer:=  square1
    Else
      Answer:= 'Error';

  If(qw= 6)Then
    If (Halfmoon1<>'0')Then
      Answer:=  Halfmoon1
    Else
      Answer:= 'Error'

  If(qw= 7)Then
    If (Triangle1<>'0')Then
      Answer:= Triangle1
    Else
      Answer:= 'Error';

  If(qw= 8)Then
    If (Star1<>'0')Then
      Answer:= Star1
    Else
      Answer:= 'Error';

  If(answer= 'Error')Then
    If(qw = 1)Then
      Answer:= 'Star'
    Else If(qw = 3)Then
      Answer:= 'Circle'
    Else If(qw = 4)Then
      Answer:= 'Red'
    Else If(qw = 8)Then
      Answer:= 'Yellow';

  If(answer= 'Red')Then
    If(ClickText('Red', 120, 285, 178, 306, true)=False)Then
      If(ClickText('Red', 239, 286, 298, 309, true)=False)Then
        If(ClickText('Red', 354, 287, 413, 310, true)=False)Then
          answer:= 'Error';
  If(answer= 'Blue')Then
    If(ClickText('Blue', 120, 285, 178, 306, true)=False)Then
      If(ClickText('Blue', 239, 286, 298, 309, true)=False)Then
        If(ClickText('Blue', 354, 287, 413, 310, true)=False)Then
          answer:= 'Error';
  If (answer= 'Yellow')Then
    If(ClickText('Yellow', 120, 285, 178, 306, true)=False)Then
      If(ClickText('Yellow', 239, 286, 298, 309, true)=False)Then
        If(ClickText('Yellow', 354, 287, 413, 310, true)=False)Then
          answer:= 'Error';
  If (answer= 'Circle')Then
    If(ClickText('Circle', 120, 285, 178, 306, true)=False)Then
      If(ClickText('Circle', 239, 286, 298, 309, true)=False)Then
        If(ClickText('Circle', 354, 287, 413, 310, true)=False)Then
          answer:= 'Error';
  If (answer= 'Triangle')Then
    If(ClickText('Triangle', 120, 285, 178, 306, true)=False)Then
      If(ClickText('Triangle', 239, 286, 298, 309, true)=False)Then
        If(ClickText('Triangle', 354, 287, 413, 310, true)=False)Then
          answer:= 'Error';
  If (answer= 'square')Then
    If(ClickText('Square', 120, 285, 178, 306, true)=False)Then
      If(ClickText('Square', 239, 286, 298, 309, true)=False)Then
        If(ClickText('Square', 354, 287, 413, 310, true)=False)Then
          answer:= 'Error';
  If (answer= 'Halfmoon')Then
    If(ClickText('Halfmoon', 120, 285, 178, 306, true)=False)Then
      If(ClickText('Halfmoon', 239, 286, 298, 309, true)=False)Then
        If(ClickText('Halfmoon', 354, 287, 413, 310, true)=False)Then
          answer:= 'Error';
  If (answer= 'Star')Then
    If(ClickText('Star', 120, 285, 178, 306, true)=False)Then
      If(ClickText('Star', 239, 286, 298, 309, true)=False)Then
        If(ClickText('Star', 354, 287, 413, 310, true)=False)Then
          answer:= 'Error';
  If (answer= 'Error')Then
    begin
      getmousepos(a, b);
      MouseC(a, b, 1);
    end;
  writeln('The answer was ' + answer);
  wait(random(400) + 800);
End;
Procedure ToRand;
Var
  c, MaxClicks, a, b : Integer;
Begin
  Repeat
    wait(1);
    c:= c + 1;
    If(c=2750)Then
      exit;
  Until(Findcolor(a,b,16711680,C1,C2,C3,C4))or(FindColor(a,b,16777215,C1,C2,C3,C4));
  YellowTextTotal:= YellowTextTotal + 1;
  If(Screenshots)Then
    TakeScreenShot('Talked To Random', YellowTextTotal);
  Status('Talking To Random Event');
  While(Findcolor(a,b,16711680,C1,C2,C3,C4))or(FindColor(a,b,16777215,C1,C2,C3,C4))and(Maxclicks<10)do
    Begin
    MouseC(a+10,b+1,1);
    wait(1300 + random(400));
    MaxClicks:=MaxClicks+1;
    end;
End;

function Present : Boolean;
Var
  bmpTheLamp, a, b : Integer;
begin
  bmpTheLamp := BitmapFromString(29, 8, 'z78DAB5934D9284300885AF' +
       '04D1FCB00C18EF7FA4A6F2D2B656666AAA469B050B93C0C7F341F' +
       '47CC8228143CD3572A22FC7B66E81ED7F6F55347332D29D451765' +
       '4E60964D8C03A6788C93CDBBA0D79CFFE054154E2054AACD39ADE' +
       'A95B36C4539E49423B5A738D14B93AE9E9B9A7F4F16DF79DC34AB' +
       '9EC5F2F574540079AF00E6BA56A7952AE5204F65A5966B166A7EB' +
       '592C42D1AC97DFF0C36E4661FFEC5C241D8E71A9CDD0F635EF841' +
       '6A3998A17696E499CAEEE4A13035CC02AD8A947253FFEEE7410BF' +
       '299F34438FC70E2F427FB5B61F0406138049A6316CCEB1149EE3B' +
       'FCACF66F7ACEB46755A1279C00E61FBAF47F870A8F79030A8376D' +
       'A32F8F0A22A76AD73CE1B07C2E1F9C9C32F4C292029');
  If(FindBitmaptolerancein(bmpTheLamp, a, b, 560, 215, 730, 455, 20))Or
    FindBitmaptolerancein(bmpTheLamp, a, b, 95, 65, 440, 255, 20)Then
      Result:= true;
  FreeBitmap(bmpTheLamp);
end;
begin
SetupSquig;
ChangeReport('Setting the screen up');
MapCompass('S');
SendArrowSilentWait(2, random(500) + 1000);
ChangeReportWidth(300);
CombatType(Combat);
If(FindColor(a, b, BankSymbol, M1, M2, M3, M4)=False)Then
Begin
writeln('couldnt see the bank symbol');
Logout;
Exit;
End;
Repeat
changeReport('Finding the cave entrance');
If(FindObject('Enter', 11382457, 20)=False)Then
enter
If(FindTextArcSpiral(a, b, 240 + random(5), 140 + random(5), 14, 208, 'Enter')=False)Then
begin
writeln('couldn''t find the the entrance');
break;
end;
Getmousepos(a, b);
MouseC(a, b, 1);
While(GetColor(254, 361) <> 128) Do
Wait(1);
While(GetColor(254, 361) = 128) Do
Wait(random(300) + 300);
ChangeReport('Fighting');
Repeat
wait(3000+1000)
MapCompass('N');
wait(random(10000) + 12341);
changeReport('Still owning noobs');
If(Not(InFight))Then
x:= x + 1
Else
x:= 0;
BlueText;
If(x = 10)Then
Begin
Repeat
Repeat
MouseBox(595, 40, 690, 110, 1);
wait(random(300) + 300);
Until(FlagPresent);
MapCompass('E')
Wait(random(1000) + 4000);
Until(FindColorTolerance(a, b, 60909, M1, M2, M3, M4, 15));
x:= 0;
 end;
 begin
chance:=1+random(5)
if (chance=1)then
begin
 talk:=1+random(100)
  if(talk=1) then
   begin
   sendkeys('Die' + chr(13))

   end;
  if(talk=2) then
   begin
   sendkeys('Hate training...'  + chr(13))

   end;
  if(talk=3) then
   begin
   sendkeys('Rock on!!!' +chr(13))

   end;
  if (talk=4) then
   begin
   sendkeys('gah!' +chr(13))

   end;
  if (talk=5) then
   begin
   sendkeys('This is so boring...' +chr(13))
    ;
   end;
  if (talk=6) then
   begin
   sendkeys('I wish i had an abby whip...' +chr(13))

   end;
  if (talk=7) then
   begin
   sendkeys('go blink182!' +chr(13))

   end;
  if (talk=8) then
   begin
   sendkeys('go franz ferdinand!' +chr(13))

   end;
  if (talk=9) then
   begin
   sendkeys('must...get...lvs up!' +chr(13))
    ;
   end;
  if (talk=10) then
   begin
   sendkeys('die little chiken man!' +chr(13))
    ;
   end;
  if (talk=11) then
   begin
   sendkeys('Lalalala' +chr(13))
    ;
   end;
  if (talk=12) then
   begin
   sendkeys('Punk 4 life' +chr(13))
    ;
   end;
  if (talk=13)then
   begin
   sendkeys('Grr leveling is so slow' +chr(13))
    ;
   end;
  if (talk=14) then
   begin
   sendkeys('Im sooooooooooooo bored' +chr(13))
    ;
   end;
  if (talk=15) then
   begin
   sendkeys('i love chicks' +chr(13))
    ;
   end;
  if (talk=16) then
   begin
   sendkeys('they r so cool' +chr(13))
    ;
   end;
  if (talk=17) then
   begin
   sendkeys('Eat this monster dude!' +chr(13))
    ;
   end;
  if(talk=18) then
   begin
   sendkeys('wish i had food' +chr(13))
    ;
   end;
  if(talk=19) then
   begin
   sendkeys('all hail blink182!' +chr(13))
    ;
   end;
  if(talk=20) then
   begin
   sendkeys('all hail my chemical romance!' +chr(13))
    ;
   end;
  if (talk=21) then
   begin
   sendkeys('Take that poophead' +chr(13))
    ;
   end;
  if (talk=22) then
   begin
   sendkeys('ahhaha rolf lmao' +chr(13))
    ;
   end;
  if (talk=23) then
   begin
   sendkeys('Im so dam cool' +chr(13))
    ;
   end;
  if (talk=24) then
   begin
   sendkeys('all hail toilets' +chr(13))
    ;
   end;
  if (talk=25) then
   begin
   sendkeys('I need a break from rs...' +chr(13))
    ;
   end;
  if (talk=26) then
   begin
   sendkeys('Im hungry' +chr(13))
    ;
   end;
  if (talk=27) then
   begin
   sendkeys('OMG its huge!!' +chr(13))
    ;
   end;
  if (talk=28) then
   begin
   sendkeys('I hate school' +chr(13))
    ;
   end;
  if (talk=29) then
   begin
   sendkeys('no boarders no nations' +chr(13))
    ;
   end;
  if (talk=30) then
   begin
   sendkeys('no flags no patriots' +chr(13))
    ;
   end;
  if (talk=31) then
   begin
   sendkeys('i hate nazi people' +chr(13))
    ;
   end;
  if (talk=32) then
   begin
   sendkeys('vote green party!!!' +chr(13))
    ;
   end;
  if (talk=33) then
   begin
   sendkeys('o fiddle stix ' +chr(13))
    ;
   end;
  if (talk=34) then
   begin
   sendkeys('my fingers hurt...' +chr(13))
    ;
   end;
  if (talk=35) then
   begin
   sendkeys('mommy!' +chr(13))
    ;
   end;
  if (talk=36) then
   begin
   sendkeys('gosh darn it!' +chr(13))
    ;
   end;
  if (talk=37) then
   begin
   sendkeys('i want moneys' +chr(13))
    ;
   end;
  if (talk=38) then
   begin
   sendkeys('i got scammed yesterday' +chr(13))
    ;
   end;
  if (talk=39) then
   begin
   sendkeys('brain washing piece of rag!' +chr(13))
    ;
   end;
  if (talk=40) then
   begin
   sendkeys('ibrokemyspacebarkey' +chr(13))
    ;
   end;
  if (talk=41) then
   begin
   sendkeys('hey obby ppl Defense L3v3lsz?' +chr(13))
    ;
   end;
  if (talk=42) then
   begin
   sendkeys('the new hary poter boke is awesome' +chr(13))
    ;
   end;
  if (talk=43) then
   begin
   sendkeys('Im very very very hungry' +chr(13))
    ;
   end;
  if (talk=44) then
   begin
   sendkeys('just die already' +chr(13))
    ;
   end;
  if (talk=45) then
   begin
   sendkeys('omg....' +chr(13))
    ;
   end;
  if (talk=46) then
   begin
   sendkeys('I want a party hat' +chr(13))
    ;
   end;
  if (talk=47) then
   begin
   sendkeys('santa hats are ciwl' +chr(13))
    ;
   end;
  if (talk=48) then
   begin
   sendkeys('i want a xmas cracker!' +chr(13))
    ;
   end;
  if (talk=49) then
   begin
   sendkeys('oo0oo0o0o0o0oo0o' +chr(13))
    ;
   end;
  if (talk=50) then
   begin
   sendkeys('I hate cheaters' +chr(13))
    ;
   end;
 if (talk=51) then
   begin
   sendkeys('Pigs fly!' +chr(13))
    ;
   end;
 if (talk=52) then
   begin
   sendkeys('Im a member! :d' +chr(13))
    ;
   end;
 if (talk=53) then
   begin
   sendkeys('Did you hear about the new skill?  Flying...' +chr(13))
    ;
   end;
 if (talk=54) then
   begin
   sendkeys('I cna smit reun pl8!' +chr(13))
    ;
   end;
 if (talk=55) then
   begin
   sendkeys('Im cooooooler than U!!' +chr(13))
    ;
   end;
  if (talk=56) then
   begin
   sendkeys('I hate being on dial op internet' +chr(13))
    ;
   end;
  if (talk=57) then
   begin
   sendkeys('me want a t3 conection' +chr(13))
    ;
   end;
  if (talk=58) then
   begin
   sendkeys('fun fnu fun' +chr(13))
    ;
   end;
  if (talk=59) then
   begin
   sendkeys('holy poop, im geting beter' +chr(13))
    ;
   end;
  if (talk=60) then
   begin
   sendkeys('almost at lv 126 lol' +chr(13))
    ;
   end;
  if (talk=61) then
   begin
   sendkeys('owned' +chr(13))
    ;
   end;
  if (talk=62) then
   begin
   sendkeys('owned' +chr(13))
    ;
   end;
  if (talk=63) then
   begin
   sendkeys('simple plan and good charlotte is stinky' +chr(13))
    ;
   end;
  if (talk=64) then
   begin
   sendkeys('burn baby burn' +chr(13))
    ;
   end;
  if (talk=65) then
   begin
   sendkeys('light em up' +chr(13))
    ;
   end;
  if (talk=66) then
   begin
   sendkeys('burn burn burn' +chr(13))
    ;
   end;
  if (talk=67) then
   begin
   sendkeys('aliens' +chr(13))
    ;
   end;
  if (talk=68) then
   begin
   sendkeys('....?' +chr(13))
    ;
   end;
  if (talk=69) then
   begin
   sendkeys('ha' +chr(13))
    ;
   end;
  if (talk=70) then
   begin
   sendkeys('ownde' +chr(13))
    ;
   end;
  if (talk=71) then
   begin
   sendkeys('booo!' +chr(13))
    ;
   end;
  if (talk=72) then
   begin
   sendkeys('ownage' +chr(13))
    ;
   end;
  if (talk=73) then
   begin
   sendkeys('owned' +chr(13))
    ;
   end;
  if (talk=74) then
   begin
   sendkeys('i luv the airforce' +chr(13))
    ;
   end;
  if (talk=75) then
   begin
   sendkeys('burn in hell obby ppls!' +chr(13))
    ;
   end;
  if (talk=76) then
   begin
   sendkeys('eat u no wut creature of my bathroom' +chr(13))
    ;
   end;
  if (talk=77) then
   begin
   sendkeys('move donkey!' +chr(13))
    ;
   end;
  if (talk=78) then
   begin
   sendkeys('lalalalala' +chr(13))
    ;
   end;
  if (talk=79) then
   begin
   sendkeys('sheet!' +chr(13))
    ;
   end;
  if (talk=80) then
   begin
   sendkeys('must get p hat!' +chr(13))
    ;
   end;
  if (talk=81) then
   begin
   sendkeys('must kill!' +chr(13))
    ;
   end;
  if (talk=82) then
   begin
   sendkeys('ahaha rofll lmaoz' +chr(13))
    ;
   end;
  if (talk=83) then
   begin
   sendkeys('time to own some n00bletz' +chr(13))
    ;
   end;
  if (talk=84) then
   begin
   sendkeys('hatrid!' +chr(13))
    ;
   end;
  if (talk=85) then
   begin
   sendkeys('dam' +chr(13))
    ;
   end;
  if (talk=86) then
   begin
   sendkeys('......' +chr(13))
    ;
   end;
  if (talk=87) then
   begin
   sendkeys('......' +chr(13))
    ;
   end;
  if (talk=88) then
   begin
   sendkeys('......' +chr(13))
    ;
   end;
  if (talk=89) then
   begin
   sendkeys('......' +chr(13))
    ;
   end;
  if (talk=90) then
   begin
   sendkeys('more tokkul!' +chr(13))
    ;
   end;
  if (talk=91) then
   begin
   sendkeys('......' +chr(13))
    ;
   end;
  if (talk=92) then
   begin
   sendkeys('eat my weapon creatue of hell' +chr(13))
    ;
   end;
  if (talk=93) then
   begin
   sendkeys('......' +chr(13))
    ;
   end;
  if (talk=94) then
   begin
   sendkeys('......' +chr(13))
    ;
   end;
  if (talk=95) then
   begin
   sendkeys('i hate yous!' +chr(13))
    ;
   end;
  if (talk=96) then
   begin
   sendkeys('ooooooo' +chr(13))
    ;
   end;
  if (talk=97) then
   begin
   sendkeys('so close!' +chr(13))
    ;
   end;
  if (talk=98) then
   begin
   sendkeys('99 str 99 str....' +chr(13))
    ;
   end;
  if (talk=99) then
   begin
   sendkeys('ark!' +chr(13))
    ;
   end;
  if (talk=100) then
   begin
   sendkeys('w0ot im almost done' +chr(13))
    ;
   end;
 end;
end;
MapCompass('W');
wait(5000)
MapCompass('S');
MouseC(S1 + random(S3), S2 + random(S4), 0);
Until(FindColor(a, b, BankSymbol, M1, M2, M3, M4));
TotalDone:= TotalDone + 1;
ChangeReport('Finally Finished a fight');
CombatType(Combat)
Until(TotalDone = TotalNeeded);
wait(random(300) + 300);
LogOut;
end.

this is a really old script so you will probably get banned using it, i just posted it for educational purposes only. I am going to go through the script and update all of the methods so this script can be released and used without getting banned.


if you do decide to use it, start out standing in front of the cave with your view all the way on the floor facing the entrance

 

Don't use this, it works with an old include that's outdated... it's not SRL...

 

Oh my god you'll never guess what i found......Its so detectable.

The Squig include is very old and outdated, It will get you banned in a matter of minutes.

 

read the whole damn post retard, i said that it was for educational pruposes and that if you use it you will most likely be banned

kthnx bye motherfucker

 

rs2101.info or what ever sucks i was on it all there scar scripts use boxbreaker and stuff and all the autobots suck they move to fast = easy ban

 

Hehe, you see, Buckley and me aren't he only one...

 

idk if i wanna auto in that place but its a nice peice of work u have!

 

i agree good work

 

lol why do u guys post old scripts?

 

omg i wan t a tokkul script that works i cant find one dizzys has probloms too and boberts also i hate it and im obviously not useing this one lol

 

what is the tokkul arena? lol

 

Id put that its for educational purposes only at the top.. Cause some tard is prolly gonna try to use it, eh?