SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Bomb - SRL Member Application Form
Bomb

What is the meaning to life?
To macro and become rich

Where you Referred to SRL? If yes, by whom?
No


Programming Knowledge
Java, C, HTML

Other Communitys
Kaitnieks, Sythe, Fagex

How Long have You Played Runescape
7 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Hey, My name is Bomb, but some people know me as The Bomb 454. I used to scar script ALOT and script for aryan back when those two were still around. When Kaitnieks and Aryan got shutdown i quit macroing all-together. Scar was crap back then, so there was no point in trying that. I started making private servers (not nooby ones) and had the fourth private server ever made. I created the first minigames, random events, and spawnable objects. I was also the first person to discover client side graphics (how to fire magic spells client side). Then SRL came out and now i want back into the macroing action.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

Hey, This is one of my very old Tokkul Arena scripts that i am currently updating with SRL.

{.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.

——————————————————
<!– END TEMPLATE: formanswers –>

Nice script and all but SRL member needs SRL script. At least you got the SCAR part down, so learning SRL shouldn't take you long. Apply again once you have finished converting it. (I know it's p2p but add mutliplayer anyway so we know that you know, or just submit a simple powerchopper with multiplayer along with it.)

I would say yes, if your script was SRL script.

This is stupid.
You just copied random event solves from squig include to your script and changed the name so you wouldn't get duplicate identifier errors.

I dont even see any fighting stuff in the mainloop?
Idk what to say for this. but i know its a NO

Im just wondering why you copy/pasted procedures from suig..?

Before I even look at whatever script you post, you need to clean up your standards, as of now they are awful.

Here is why i said no.

From: Pentti
I would say yes, if your script was SRL script.

From: Bam Bam
You need to clean up your standards

I say no because its not even a script.
Its like squig include -.-

SRL-ify it and clean up your standars, you will probably get a yes from most of the people here.

Since it isn't SRL its going to be a no from me, sorry.