SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
DHTML

Other Communitys
Just this place! :)

How Long have You Played Runescape
Wayy too long

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

Well, I just applied about a week ago and I requested that the poll be closed because everyone wanted an updated script.

Well, I spent a LOTTT of time rereading tutorials and came up with a half-decent Rune Mysteries Quest Runner!

About me: I was an SRL Member about a year ago until I made a stupid "joke" that went wayyyy too far. I live in Georgia! Its really nice here. I'm a freshman (9th grade). I love to script and I love this community! I also own v10games.com. (its cooler than addictinggames.com ;) )

Thanks for your time!
-Travis

P.S. I want to be an SRL Member more than anything!

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

Tuts I made:
http://www.villavu.com/forum/showthread.php?t=13094?t=14492
http://www.villavu.com/forum/showthread.php?t=16332?t=17925

This is to show I'm not a leecher now. I still script :)

{
[-]--------------------------------------------------------------------------[+]
[-]--------------------------------------------------------------------------[+]
[-]                    [B2C][REFLECTION] RMQR V0.1                           [+]
[-]                    by Born2Code AKA Travis V10                           [+]
[-]                                                                          [+]
[-]--------------------------------------------------------------------------[+]
[-]                      Description/Startup Info                            [+]
[-]--------------------------------------------------------------------------[+]
[-]     Simple, runs Rune Mysteries Quest so you can mine ess or rc          [+]
[-]                                                                          [+]
[-]--------------------------------------------------------------------------[+]
[-]                              Features                                    [+]
[-]--------------------------------------------------------------------------[+]
[-]~AntiBan                                                                  [+]
[-]~AntiRandoms                                                              [+]
[-]~FailSafes                                                                [+]
[-]~Reflection Walking & SMART                                               [+]
[-]~Will make sure you have completed a step!                                [+]
[-]                                                                          [+]
[-]--------------------------------------------------------------------------[+]
[-]                           Coming Updates!                                [+]
[-]--------------------------------------------------------------------------[+]
[-]~Faster walking and more routes                                           [+]
[-]~More after you complete options                                          [+]
[-]~More failsafes                                                           [+]
[-]                                                                          [+]
[-]--------------------------------------------------------------------------[+]
[-]                               Versions                                   [+]
[-]--------------------------------------------------------------------------[+]
[-]~V0.1 First Release! -                                                    [+]
[-]  Good. Basics are done                                                   [+]
[-]--------------------------------------------------------------------------[+]
[-]--------------------------------------------------------------------------[+]
}
program RMQR;
{.Include SRL\SRL\Misc\Smart.Scar}
{.Include SRL\SRL.Scar}
{.Include SRL\SRL\reflection\reflection.Scar}
{.include SRL/SRL/Skill/Magic.Scar}


const
DisguiseText = '[B2C][REFLECTION]RMQR';

var
x, y, ATDTM: integer;


Procedure DeclarePlayers;
Begin

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
  Players[0].Integer

end;



{-------------------------------------------------------------------------------
-- AntiRandoms & AntiBan
-------------------------------------------------------------------------------}


procedure AntiBan;
begin
     case Random(300) of
     0: RandomRClick;
     1: HoverSkill('Runecrafting', false);
     2: HoverSkill('Mining', false);
     3: PickUpMouse;
     4: BoredHuman;
     5: RandomMovement;
     6: HoverSkill('Attack', false);
     7: GameTab(1 + random(12));
     end;
end;




procedure Randoms;
begin
  AntiBan;
  FindTalk;
  FindNormalRandoms;
  FindLamp('Mining');
  FindNonInventoryRandoms;
end;



{-------------------------------------------------------------------------------
-- Load paths and walk functions
-------------------------------------------------------------------------------}

function LumbyToLadder: TPointArray;
begin
  SetLength(Result, 4);

  Result[0] := Point(3222, 3217);
  Result[1] := Point(3215, 3217);
  Result[2] := Point(3214, 3226);
  Result[3] := Point(3207, 3226);
end;


function LumbyToTower: TPointArray;
begin
  SetLength(Result, 70);

  Result[0] := Point(3214, 3226);
  Result[1] := Point(3215, 3219);
  Result[2] := Point(3221, 3217);
  Result[3] := Point(3226, 3217);
  Result[4] := Point(3231, 3217);
  Result[5] := Point(3235, 3219);
  Result[6] := Point(3235, 3224);
  Result[7] := Point(3232, 3228);
  Result[8] := Point(3228, 3232);
  Result[9] := Point(3225, 3235);
  Result[10] := Point(3223, 3238);
  Result[11] := Point(3222, 3241);
  Result[12] := Point(3220, 3246);
  Result[13] := Point(3219, 3250);
  Result[14] := Point(3218, 3255);
  Result[15] := Point(3217, 3259);
  Result[16] := Point(3217, 3263);
  Result[17] := Point(3217, 3267);
  Result[18] := Point(3216, 3271);
  Result[19] := Point(3213, 3277);
  Result[20] := Point(3209, 3279);
  Result[21] := Point(3204, 3279);
  Result[22] := Point(3197, 3278);
  Result[23] := Point(3193, 3280);
  Result[24] := Point(3186, 3281);
  Result[25] := Point(3184, 3284);
  Result[26] := Point(3179, 3286);
  Result[27] := Point(3175, 3286);
  Result[28] := Point(3169, 3286);
  Result[29] := Point(3164, 3287);
  Result[30] := Point(3160, 3288);
  Result[31] := Point(3155, 3291);
  Result[32] := Point(3151, 3293);
  Result[33] := Point(3146, 3294);
  Result[34] := Point(3141, 3294);
  Result[35] := Point(3135, 3293);
  Result[36] := Point(3131, 3295);
  Result[37] := Point(3125, 3296);
  Result[38] := Point(3120, 3296);
  Result[39] := Point(3115, 3294);
  Result[40] := Point(3110, 3293);
  Result[41] := Point(3110, 3290);
  Result[42] := Point(3109, 3287);
  Result[43] := Point(3108, 3284);
  Result[44] := Point(3106, 3278);
  Result[45] := Point(3105, 3275);
  Result[46] := Point(3105, 3270);
  Result[47] := Point(3104, 3266);
  Result[48] := Point(3104, 3258);
  Result[49] := Point(3104, 3252);
  Result[50] := Point(3104, 3248);
  Result[51] := Point(3104, 3244);
  Result[52] := Point(3105, 3241);
  Result[53] := Point(3105, 3234);
  Result[54] := Point(3107, 3232);
  Result[55] := Point(3110, 3228);
  Result[56] := Point(3110, 3226);
  Result[57] := Point(3110, 3221);
  Result[58] := Point(3115, 3216);
  Result[59] := Point(3118, 3212);
  Result[60] := Point(3115, 3208);
  Result[61] := Point(3114, 3202);
  Result[62] := Point(3113, 3197);
  Result[63] := Point(3112, 3189);
  Result[64] := Point(3112, 3184);
  Result[65] := Point(3113, 3180);
  Result[66] := Point(3113, 3176);
  Result[67] := Point(3113, 3171);
  Result[68] := Point(3111, 3167);
  Result[69] := Point(3108, 3166);
end;

function LumbyToVarrock: TPointArray;
begin
  SetLength(Result, 65);

  Result[0] := Point(3224, 3218);
  Result[1] := Point(3228, 3217);
  Result[2] := Point(3233, 3217);
  Result[3] := Point(3237, 3219);
  Result[4] := Point(3237, 3223);
  Result[5] := Point(3243, 3224);
  Result[6] := Point(3248, 3224);
  Result[7] := Point(3253, 3224);
  Result[8] := Point(3258, 3227);
  Result[9] := Point(3260, 3232);
  Result[10] := Point(3260, 3235);
  Result[11] := Point(3260, 3239);
  Result[12] := Point(3259, 3242);
  Result[13] := Point(3255, 3247);
  Result[14] := Point(3252, 3252);
  Result[15] := Point(3249, 3257);
  Result[16] := Point(3247, 3262);
  Result[17] := Point(3244, 3267);
  Result[18] := Point(3242, 3271);
  Result[19] := Point(3240, 3277);
  Result[20] := Point(3239, 3282);
  Result[21] := Point(3240, 3290);
  Result[22] := Point(3239, 3294);
  Result[23] := Point(3239, 3300);
  Result[24] := Point(3241, 3305);
  Result[25] := Point(3244, 3310);
  Result[26] := Point(3249, 3314);
  Result[27] := Point(3251, 3316);
  Result[28] := Point(3254, 3320);
  Result[29] := Point(3260, 3322);
  Result[30] := Point(3265, 3324);
  Result[31] := Point(3268, 3328);
  Result[32] := Point(3274, 3331);
  Result[33] := Point(3280, 3332);
  Result[34] := Point(3283, 3332);
  Result[35] := Point(3289, 3332);
  Result[36] := Point(3294, 3334);
  Result[37] := Point(3299, 3334);
  Result[38] := Point(3303, 3338);
  Result[39] := Point(3301, 3343);
  Result[40] := Point(3301, 3349);
  Result[41] := Point(3300, 3356);
  Result[42] := Point(3297, 3361);
  Result[43] := Point(3294, 3366);
  Result[44] := Point(3297, 3370);
  Result[45] := Point(3298, 3376);
  Result[46] := Point(3295, 3379);
  Result[47] := Point(3293, 3386);
  Result[48] := Point(3293, 3391);
  Result[49] := Point(3292, 3397);
  Result[50] := Point(3292, 3402);
  Result[51] := Point(3291, 3406);
  Result[52] := Point(3288, 3410);
  Result[53] := Point(3287, 3415);
  Result[54] := Point(3288, 3419);
  Result[55] := Point(3285, 3423);
  Result[56] := Point(3280, 3427);
  Result[57] := Point(3273, 3427);
  Result[58] := Point(3268, 3427);
  Result[59] := Point(3265, 3422);
  Result[60] := Point(3265, 3419);
  Result[61] := Point(3264, 3414);
  Result[62] := Point(3262, 3408);
  Result[63] := Point(3259, 3405);
  Result[64] := Point(3254, 3400);
end;


function VarrockToLumby: TPointArray;
begin
  SetLength(Result, 56);

  Result[0] := Point(3258, 3402);
  Result[1] := Point(3259, 3407);
  Result[2] := Point(3261, 3414);
  Result[3] := Point(3265, 3416);
  Result[4] := Point(3266, 3421);
  Result[5] := Point(3268, 3427);
  Result[6] := Point(3275, 3428);
  Result[7] := Point(3282, 3427);
  Result[8] := Point(3286, 3421);
  Result[9] := Point(3287, 3415);
  Result[10] := Point(3288, 3409);
  Result[11] := Point(3292, 3405);
  Result[12] := Point(3292, 3400);
  Result[13] := Point(3293, 3392);
  Result[14] := Point(3293, 3385);
  Result[15] := Point(3295, 3380);
  Result[16] := Point(3298, 3377);
  Result[17] := Point(3296, 3369);
  Result[18] := Point(3296, 3362);
  Result[19] := Point(3299, 3357);
  Result[20] := Point(3303, 3356);
  Result[21] := Point(3305, 3351);
  Result[22] := Point(3300, 3348);
  Result[23] := Point(3302, 3342);
  Result[24] := Point(3303, 3336);
  Result[25] := Point(3298, 3333);
  Result[26] := Point(3292, 3333);
  Result[27] := Point(3286, 3332);
  Result[28] := Point(3278, 3331);
  Result[29] := Point(3272, 3331);
  Result[30] := Point(3267, 3325);
  Result[31] := Point(3262, 3323);
  Result[32] := Point(3255, 3322);
  Result[33] := Point(3251, 3317);
  Result[34] := Point(3248, 3313);
  Result[35] := Point(3242, 3309);
  Result[36] := Point(3238, 3302);
  Result[37] := Point(3238, 3294);
  Result[38] := Point(3239, 3287);
  Result[39] := Point(3240, 3279);
  Result[40] := Point(3242, 3274);
  Result[41] := Point(3246, 3267);
  Result[42] := Point(3249, 3263);
  Result[43] := Point(3251, 3257);
  Result[44] := Point(3253, 3250);
  Result[45] := Point(3258, 3245);
  Result[46] := Point(3259, 3239);
  Result[47] := Point(3260, 3232);
  Result[48] := Point(3259, 3226);
  Result[49] := Point(3254, 3225);
  Result[50] := Point(3248, 3224);
  Result[51] := Point(3241, 3224);
  Result[52] := Point(3237, 3224);
  Result[53] := Point(3234, 3218);
  Result[54] := Point(3228, 3217);
  Result[55] := Point(3220, 3217);
end;

function PathWalk(Path: array of TPoint; Tol, FlagD: integer): Boolean;
var
Count : integer;
begin
  Count := 0;
  repeat
      Result := WalkToTile(Path[Count], Tol, FlagD);
    if not(Result) then
    begin
      WriteLn('Path walk failed');
      Exit;
    end;
    Count := Count + 1;
  until (not(Result)) or (Count = GetArrayLength(Path))
end;





{-------------------------------------------------------------------------------
-- Main procedures
-------------------------------------------------------------------------------}


procedure ClimbLumby;
var
Pass: integer;
begin
       SetAngle(True);
       MakeCompass('N');
       SetRun(True);
       PathWalk(LumbyToLadder, 0, 0);
       Randoms;
       Pass := 0;
       repeat
       if FindObj(x, y, 'limb', 6317928, 3) then
       begin
          Mouse(x, y, 2, 2, false);
          ChooseOption('limb');
          Wait(1000 +random(400));
          Pass := 1;
       end;
       until(Pass = 1);
       Pass := 0;
       Randoms;
       Wait(1550 + random(450));
       WalkToTile(Point(3207, 3221), 1, 0);
       Wait(650 + random(450));
       SetAngle(False);
       MakeCompass('E');
       repeat
       if FindObj(x, y, 'oor', 3622225, 3) then
       begin
          if isUpText('pen') then
          begin
            Mouse(x, y, 2, 2, false);
            ChooseOption('Open');
            Flag;
            Wait(1800 + random(400));
          end;
          Wait(550 + random(450));
          FindSymbol(x, y, 'Quest');
          Mouse(x, y, 3, 3, true);
          Flag;
          Pass := 1;
       end;
       until(Pass = 1);
       Pass := 0;
       Randoms;
end;



procedure ClimbLumbyQuestDraynorCenter;
var
Pass: integer;
begin
       ClimbLumby;
       Randoms;
       SetAngle(True);
       MakeCompass('N');
       repeat
       if FindObj(x, y, 'uke', 1586757, 3) then
       begin
            repeat
            Mouse(x, y, 1, 1, false);
            ChooseOption('alk-to');
            Flag;
            Wait(2800 + random(500));
            until(FindNPCChatText('eetings', nothing));
            Pass := 1;
       end;
       until(Pass = 1);
       Pass := 0;
       Randoms;
       Wait(550 + random(550));
       FindNPCChatText('lick', ClickLeft);
       Wait(550 + random(200));
       FindNPCChatText('me', ClickLeft);
       Wait(650 + random(200));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(900));
       FindNPCChatText('lick here', ClickLeft);
       Wait(350 + random(400));
       FindNPCChatText('lick here', ClickLeft);
       Wait(250 + random(200));
       FindNPCChatText('lick here', ClickLeft);
       Wait(450 + random(200));
       FindNPCChatText('oblem', ClickLeft);
       Wait(550 + random(200));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(200));
       FindNPCChatText('lick here', ClickLeft);
       Wait(250 + random(200));
       FindNPCChatText('lick here', ClickLeft);
       Wait(350 + random(500));
       GameTab(4);
       repeat
       if FindDTM(ATDTM, x, y, 553, 209, 726, 458) then
       begin
          WriteLn('Found Air Talisman!');
          Pass := 1;
       end;
       until(Pass = 1);
       repeat
       if FindObj(x, y, 'oor', 5532284, 2) then
       begin
          Mouse(x, y, 1, 1, false);
          ChooseOption('Open');
          Flag;
          Wait(800 + random(400));
          Pass := 1;
       end;
       until(Pass = 1);
       Pass := 0;
       Randoms;
       WalkToTile(Point(3206, 3227), 1, 0);
       Wait(1550 + random(250));
       repeat
       if FindObj(x, y, 'limb', 8291976, 3) then
       begin
          Mouse(x, y, 2, 2, false);
          ChooseOption('limb-down');
          Wait(1000 +random(400));
          Pass := 1;
       end;
       until(Pass = 1);
       Pass := 0;
       Randoms;
       SetRun(true);
       PathWalk(LumbyToTower, 1, 0);
       Randoms;
end;

procedure ClimbWizzy;
var
Pass: integer;
begin
       SetAngle(false);
       MakeCompass('N');
       Pass := 0;
       repeat
       if FindObjTPA(x, y, 3363948, 7, -1, 6, 6, 12, ['oor']) then
       begin
          if isUpText('pen') then
          begin
            Mouse(x, y, 2, 2, false);
            ChooseOption('Open');
            Flag;
            Wait(1800 + random(400));
          end;
          Pass := 1;
       end;
       until(Pass = 1);
       Pass := 0;
       Randoms;
       WalkToTile(Point(3108, 3161), 0, 0);
       Wait(1550 + random(250));
       MakeCompass('W');
       Wait(550 + random(250));
       repeat
       if FindObjTPA(x, y, 3363948, 7, -1, 6, 6, 12, ['oor']) then
       begin
          if isUpText('pen') then
          begin
            Mouse(x, y, 2, 2, false);
            ChooseOption('Open');
            Flag;
            Wait(1800 + random(400));
          end;
          Pass := 1;
       end;
       until(Pass = 1);
       Pass := 0;
       Randoms;
       SetAngle(true);
       WalkToTile(Point(3104, 3159), 0, 0);
       Wait(550 + random(550));
       repeat
       if FindObj(x, y, 'adder', 2311774, 3) then
       begin
          Mouse(x, y, 2, 2, false);
          ChooseOption('Climb-down');
          Flag;
          Wait(800 + random(400));
          Pass := 1;
       end;
       until(Pass = 1);
       Pass := 0;
       Randoms;
       Wait(880 + random(250));
       WalkToTile(Point(3108, 9571), 1, 0);
       repeat
       if FindObj(x, y, 'arge door', 2244683, 2) then
       begin
          if isUpText('pen') then
          begin
            Mouse(x, y, 1, 1, false);
            ChooseOption('Open');
            Flag;
            Wait(1800 + random(400));
          end;
          Pass := 1;
       end;
       until(Pass = 1);
       Pass := 0;
       Randoms;
end;

procedure ClimbWizTowerP2;
var
Pass: integer;
begin
       ClimbWizzy;
       Randoms;
       repeat
       if FindObj(x, y, 'edridor', 13535515, 5) then
       begin
            repeat
            Mouse(x, y, 1, 1, false);
            ChooseOption('alk-to');
            Flag;
            Wait(1200 + random(500));
            until(FindNPCChatText('elcome', nothing));
          Pass := 1;
       end;
       until(Pass = 1);
       Pass := 0;
       Randoms;
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('head wizard', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('here you are', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('es', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Wait(550 + random(550));
       FindNPCChatText('lick here', ClickLeft);
       Randoms;
end;


procedure ToVarrockAlmostDone;
var
Pass: integer;
begin
     GameTab(7);
     Cast('Home Teleport');
     Randoms;
     Wait(15500 + random(2450));
     Randoms;
     PathWalk(LumbyToVarrock, 1, 2);
     Randoms;
     Pass := 0;
     repeat
     if FindObj(x, y, 'ubury', 1808866, 5) then
     begin
          repeat
          Mouse(x, y, 1, 1, false);
          ChooseOption('alk-to');
          Flag;
          Wait(1200 + random(500));
          until(FindNPCChatText('ant to', nothing));
        Pass := 1;
     end;
     until(Pass = 1);
     Pass := 0;
     Randoms;
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('been sent', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     repeat
     if FindObj(x, y, 'ubury', 1808866, 5) then
     begin
          repeat
          Mouse(x, y, 1, 1, false);
          ChooseOption('alk-to');
          Flag;
          Wait(1200 + random(500));
          until(FindNPCChatText('adven', nothing));
        Pass := 1;
     end;
     until(Pass = 1);
     Pass := 0;
     Randoms;
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Randoms;
end;


procedure ToLumbyFinished;
var
Pass: integer;
begin
     PathWalk(VarrockToLumby, 0, 0);
     Randoms;
     SetRun(true);
     PathWalk(LumbyToTower, 1, 0);
     Randoms;
     ClimbWizzy;
     Randoms;
     repeat
     if FindObj(x, y, 'edridor', 13535515, 5) then
     begin
          repeat
          Mouse(x, y, 1, 1, false);
          ChooseOption('alk-to');
          Flag;
          Wait(1200 + random(500));
          until(FindNPCChatText('elcome', nothing));
        Pass := 1;
     end;
     until(Pass = 1);
     Pass := 0;
     Randoms;
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     Wait(550 + random(550));
     FindNPCChatText('lick here', ClickLeft);
     if IsChatBlackTextAnyLine('omplete') then
     begin
          Writeln('The quest has been completed.');
     end;
     Randoms;
end;




{-------------------------------------------------------------------------------
-- Sig, DTMs & Loops
-------------------------------------------------------------------------------}

procedure LoadDTMs;
begin
     ATDTM := DTMFromString('78DA63E4646060E06640038C482490E60012C' +
       '204D4B0010939026AB880842C0135BC40428A801A4120214E408D' +
       '28901024A006E42766026A5881040F1176A1A9111311415103000' +
       '88A0193');
end;

procedure Signature;
begin
  ChangeReportWidth(220);
  Status('Starting Up...');
  WriteLn('  __________________                                              ');
  Wait(250);
  WriteLn(' |                  |                 __                          ');
  Wait(250);
  WriteLn(' |______       _____|                |__|                         ');
  Wait(250);
  WriteLn('        |     |__  _______ __      _____  _________               ');
  Wait(250);
  WriteLn('        |     |  |/__\    \  \    /  /  |/  ______/               ');
  Wait(250);
  WriteLn('        |     |   /  ___   \  \  /  /|  |  \______                ');
  Wait(250);
  WriteLn('        |     |  |  |   |   \  \/  / |  |\_____   \               ');
  Wait(250);
  WriteLn('        |     |  |  |___|    \    /  |  |______/  /               ');
  Wait(250);
  WriteLn('        |_____|__|________/\__\__/   |__|\_______/                ');
  Wait(250);
  WriteLn('          [B2C][REFLECTION] RMQR | Version V0.1                   ');
  Wait(3000);
end;



procedure MainLoop;
begin
     LoginPlayer;
     ClimbLumbyQuestDraynorCenter;
     ClimbWizTowerP2;
     ToVarrockAlmostDone;
     ToLumbyFinished;
end;




begin
  SetupSRL;
  LoadDTMs;
  Disguise(DisguiseText);
  Signature;
  SymbolAccuracy := 0.6;
  SmartSetup('world14', False, True, False);
  Wait(1000);
  SetTargetDC(SmartGetDC);
  DeclarePlayers;
  MainLoop;
end.

SpoonDynamite (Tutorial Island Runner Part)

var
Shield,
  Sword,Dagger,Hammer,BronzeB,
  PAxe:integer;
  tx, ty, Pot, Bucket, PlzWait, Arrow, Bow, Tin, Copper,
  Dough, Accept1, MMArrow, TopMMArrow, MSArrow, TopMSArrow, Shrimp, LogDTM, TinderDTM: integer;

procedure LoadBitmaps;
begin

    Arrow := DTMFromString('78DA63DCC7C4C0A0C5C8800CC24C3819FE036' +
       '990E87F206004A95140550391859140FA2C116A8E00D5981350B3' +
       '19A8C698809A8344D8B583B05D006F8E0C1C');

    Bow := DTMFromString('78DA63746162600862644006B99EBC0CFF813' +
       '448F43F10303A00D5F8A2AA81C8C248206D0254134E408D1F508D' +
       '0B0135DE40357E04D4D803D584E1570300DE920950');


    Shield := DTMFromString('78DA633CC8C4C0A0C3C8800C826D6519FE036' +
       '990E87F2060DC0E54A386AA06220B2381F461A01A79026AB602D5' +
       '181350730AA8C688809A9D4035A6F8D50000CE2D0B4A');

    Sword := DTMFromString('78DA6374616260D06064400676FAB20CFF813' +
       '448F43F10305A03D558A3AA81C8C24820ED0D54234B408D3B508D' +
       '1A01350E40353A04D480DC6344408D13508D197E3500863D08B7');

    Dagger := DTMFromString('78DA639CC5C4C0A0C6C8800CBCAD1419FE036' +
       '990E87F20609C0B542387AA06220B2381F424A01A53026A7A816A' +
       '2C08A8590054A34040CD44A01A6D026A40FE32C0AF0600E3F00B1' +
       '8');

    Hammer := DTMFromString('78DA63DCCFC4C0A0CBC8800C02CC3818FE036' +
       '990E87F2060DC0B54A389AA06220B2381F431A01A75026A0E02D5' +
       'C81150B30DA8C682809A9D40355604D480FC65885F0D006E330C2' +
       '2');

    BronzeB := DTMFromString('78DA639CCEC4C0A0C9C8800C7CAC9418FE036' +
       '990E87F2060EC04AA31465503918591407A2A508D3201358B806A' +
       'D409A8990554634640CD44C2E6000055930A4C');

    PAxe    := DTMFromString('78DA633CC0C4C0F09F0105C0B88C203610306' +
       'E03AA11604455C4C0884402E9834035BF18F0AB390554C348C09C' +
       'DD40357C04D46C06AAF987DF2E005E7A0CA1');

    Tin := DTMFromString('78DA63CC636260D065644006DD4D8D0C46401' +
       'A24FA1F081863816A0C50D540646124904E07AAB122A0A60AA846' +
       '85809A0CA01A05026ACA806A4CF0AB0100F6020979');

    Copper := DTMFromString('78DA6374616260D067644006D7AB4D198C803' +
       '448F43F10301A03D5E8A0AA81C8C24820ED0954A340408D03508D' +
       '150135B640358A04D40402D5A8E25703006EBD0862');

  PlzWait := BitmapFromString(63, 2, 'z78DA33303030707373' +
       '727474B27044212D1D4D2D0C0D3064A12260596412531CA708865' +
       'D386DC12B82451C6217316C8A5D4EA60BF186214E1B8976272E73' +
       '70B90DBFCB89F22972D862A41F9CE2148433A62CA9210F0080F3B' +
       '0CA');


  MMArrow := BitmapFromString(15, 14, 'z78DAEDD24B0E80200C84E' +
       '12B3142425CB6E2DCFF485EC0C2E0236EECE25F7E49A129750672' +
       '6707DCD97C89FACB8FC98D563DEAA7727851DC688551E56B1C384' +
       'ABB5B80CE3597D9CA6F0E1A2B4CE9A57FC40BE6C0BF6D9EF8BA79' +
       '00C3A2078F');

  TopMMArrow := BitmapFromString(6, 5, 'z78DA737372B3343671C3' +
       '4F3ABA991B3A52421A80802184C42B8B0C0C71C90200FB5828A4');

  MSArrow := BitmapFromString(21, 23, 'z78DAEDD3310AC0200C85E' +
       '12B456D1147A3E6FE472A38554A4B6A0D8112877FF47B0802700F' +
       '35AA1838058163BAE90A7AA5929053D37FA6E7889C9ACEBAB350D' +
       'E9B56FB04A7E59E9EA16FD88A742F2E0C1B905248127D740537B0' +
       'DD7143A6E8FD974EB9E3BF5072E7DE61A9FB62C39DEB825B37C77' +
       '15C8E7800DECE700D');

  TopMSArrow := BitmapFromString(8, 5, 'z78DA737374333732721B' +
       '04A40108184248A25522034362540200128F35BE');
end;

function FindMMArrow(var x, y: integer):Boolean;
var
  c, tx, ty: integer;
begin
  repeat
   Wait(50);
   c := c +1
  until ((c > 50) or (FindBitmapToleranceIn(TopMMArrow, tx, ty, MMX1, MMY1, MMX2, MMY2, 10)));

  if c > 50 then
  begin
    c := 0;
     repeat
      Wait(50);
      c := c +1
     until ((c > 50) or (FindBitmapToleranceIn(MMArrow, tx, ty, MMX1, MMY1, MMX2, MMY2, 10)));
    if c > 50 then
    begin
      Status('Could not find the MMArrow');
      Result := False;
      Exit;
    end
  end

  Result := True;
  x := tx +4;
  y := ty +6;
end;

function FindMSArrow(var x, y: integer):Boolean;
var
  c, tx, ty: integer;
begin

  repeat
   Wait(50);
   c := c +1
  until ((c > 50) or (FindBitmapToleranceIn(TopMSArrow, tx, ty, MSX1, MSY1, MSX2, MSY2, 10)));

  if c > 50 then
  begin
    c := 0;
     repeat
      Wait(50);
      c := c +1
     until ((c > 50) or (FindBitmapToleranceIn(MSArrow, tx, ty, MSX1, MSY1, MSX2, MSY2, 10)));
    if (c > 50) then
    begin
      Status('Could not find the MSArrow');
      Result := False;
      Exit;
    end
  end

  Result := True;
  x := tx +4;
  y := ty +6;
end;

function FindFastMSArrow(var x, y: integer):Boolean;
var
  c, tx, ty: integer;
begin

  repeat
   Wait(50);
   c := c +1
  until ((c > 3) or (FindBitmapToleranceIn(TopMSArrow, tx, ty, MSX1, MSY1, MSX2, MSY2, 10)));

  if c > 3 then
  begin
    c := 0;
     repeat
      Wait(50);
      c := c +1
     until ((c > 3) or (FindBitmapToleranceIn(MSArrow, tx, ty, MSX1, MSY1, MSX2, MSY2, 10)));
    if c > 3 then
    begin
      Result := False;
      Exit;
    end
  end

  Result := True;
  x := tx +4;
  y := ty +6;
end;



{>>                                                    <<)
(>>              Click Accept!(clothes XD)             <<)
(>>                                                    <<}

procedure ClickAccept1;
var
  b, a: integer;
begin

//DTMs for Accept
  Accept1 := BitmapFromString2(False, 'a0ABAE78DAED953D0EC020' +
       '0846AF847F684725F6FE472AB8B8591BB5699B32BC013E44C4280' +
       '040F60C888AA163663A5B88B1322013B508D10551062B7E47C2BD' +
       '468D9575D0176EA63239A62FA57C92DCA0C4AFB5D42A46D0B276F' +
       '46946CBA26FECB4CD9EAC759A59AB5D9D290D9F2D74EC76AEF2EF' +
       'F4CE4EFBEFE4F766FA9C4E57BF4834307DE8D6BCF1EF38B703920' +
       '');

  b := 100;
  repeat
    a := a + 1;
    Wait(100);
  until(a = b) or (FindBitmapToleranceIn(Accept1, x, y, MSX1, MSY1, MSX2, MSY2, 10));
  Mouse(x, y, 2, 3, true);
end;




{>>                                                    <<)
(>>              Begin Talk Procedures!                <<)
(>>                                                    <<}



procedure Talk(npc, afterchat: string);
begin
  repeat
    if FindMSArrow(tx, ty) then
    begin
      Mouse(tx, ty, 2, 2, false);
      Wait(150+Random(50));
      ChooseOption(npc);
      FFlag(0);
      Wait(550+random(250));
    end;
    Wait(150+random(20));
  until(FindNpcChatText(afterchat));
end;



procedure HandleTalk;
begin
  repeat
   ClickNpcChatText('Click here to continue', True);
   Wait(1600+random(150));
  until(not(ClickNpcChatText('Click here to continue', True)));
end;



{>>                                                    <<)
(>>           Begin Some Walking Procedures!           <<)
(>>                                                    <<}



procedure MSArrowRClick(option: string);
begin
  repeat
    if FindMSArrow(tx, ty) then
    begin
      Mouse(tx, ty, 3, 2, false);
      Wait(150+Random(50));
      ChooseOption(option);
      FFlag(0);
      Exit;
    end;
    Wait(550+random(50));
  until(not(FindMSArrow(tx, ty)));
end;

procedure Search4It(TextUp, Option, After: string);
begin
  repeat
    if FindMSArrow(x, y) then
    begin
      MMouse(x, y, 0, 0);
      Wait(250+random(50));
      if(isUpText(TextUp))then
      begin
        Mouse(x, y, 0, 0, false);
        Wait(250+random(50));
        ChooseOption(Option);
      end;
    end;
  Wait(3550+random(550));
  until(FindNpcChatText(After));
end;

function WalkToMMArrow: Boolean;
var tx, ty: integer;
begin
  Status('Walking to MM arrow');
  if FindMMArrow(tx, ty) then
  begin
    MouseFindFlag(tx, ty, 1, 1);
    FFlag(0);
    Result := True;
  end;
end;


{>>                                                    <<)
(>>              Begin Step Procedures!                <<)
(>>                                                    <<}

procedure Step1;
begin

//DTMs for Step 1

  LogDTM := DTMFromString('78DA6374656260E0656440062D69760CFF813' +
       '448F43F10307A03D5FC6540038C482490B66442E2E15063025423' +
       '40408D17508D200135814035DC04D43811760F006029095C');

  TinderDTM := DTMFromString('78DA63CC67626078CA8002929C3819FE03694' +
       '620FE0F048C4540353718D000231209A413806ADE12505342849A' +
       '6AA09A2744D8F598809A0CA09ADBF8D50000091F0EFC');

  Shrimp := DTMFromString('78DA63DCCEC4C0F09401054C6D2C63F80FA41' +
       '981F83F103082D4DC6540038C4824903E0254F381809A1340350F' +
       '09A8390654739B809A6D40356FF1AB010083791076');

  ClickAccept1;
  HighestAngle;
  MakeCompass('N');
  Talk('RuneScape Guide', 'Greetings');
  Wait(550+random(150));
  HandleTalk;
  Mouse(665,474,10,10,True);
  Wait(1550+random(770));
  SetRun(True);
  Talk('RuneScape Guide', 'I/''m glad');
  HandleTalk;
  Search4It('oor', 'pen', 'Follow the path');
end;

procedure Step2;
begin
  WalkToMMArrow;
  Talk('Survival Expert', 'Hello there');
  HandleTalk;
  MouseBox(633, 174, 655, 195, true);//GT4
  WalkToMMArrow;
  repeat
    if(FindObj(x, y, 'ree', 860958, 5)) then
    begin
      Mouse(x, y, 2, 2, false);
      Wait(300+Random(500));
      ChooseOption('hop');
      Wait(6550+random(1550));
    end;
    Wait(1550+random(550));
  until(FindNpcChatText('You get some logs'));
  HandleTalk;
  SymbolAccuracy := 0.4;
  if (FindSymbol(x,y,'fishing spot')) then
  begin
    Mouse(x, y, 2, 2, true);
    Wait(550+random(550));
    FFlag(0);
  end;
  repeat
    if(FindDTM(LogDTM,x,y,MIX1,MIY1,MIX2,MIY2))then
    begin
      Mouse(x,y,2,2,True);
      if(FindDTM(TinderDTM,x,y,MIX1,MIY1,MIX2,MIY2))then
      begin
        Mouse(x,y,2,3,True);
        Wait(5550+random(1880));
      end;
    end;
    Wait(1550+random(880));
  until(FindNpcChatText('some experience')) or (FindNpcChatText('please wait'));
  Wait(1550+random(350));
  repeat
    MouseBox(565, 174, 585, 195, true);//GT2
    Wait(1550+random(350));
   until(FindNpcChatText('Your skill'));
   WalkToMMArrow;
   Talk('Survival Expert', 'Well done!');
   HandleTalk;
   Mouse(633,173,10,10,True);
end;


procedure Step3;
var
  cx, cy: integer;
begin
  Shrimp := BitmapFromString(17, 3, 'z78DA7D4F410A043108FB925' +
       '5A3F658EDF4FF4F9A427B1B761542089A28D1AE467FB19E9C8941' +
       '914198AA0227B0AC5023CD2E56D05EE13E87750A64EB239EB32BC' +
       '4BB613A950FFF85DFDC9378785FAEA8913E8D13018BE2584E29FB' +
       '0A3F3327E5A2EA90BCF851BEFE57E198C1A5DBB95575389A356E3' +
       'CD403F7A317CB363F8F');

  WalkToMMArrow;
  repeat
    WalkToMMArrow;
    if FindMSArrow(tx, ty) then
      begin
        FFlag(0);
        Wait(1550+random(250));
        Mouse(tx, ty, 0, 0, false);
        Wait(500+Random(100));
        ChooseOption('et');
        Wait(6550+random(1550));
        Mouse(tx, ty, 0, 0, false);
        Wait(500+Random(100));
        ChooseOption('et');
        Wait(6550+random(1550));
      end;
    Wait(550+random(150));
  until(FindNpcChatText('Cooking your'));
  if (FindSymbol(x,y,'fishing spot')) then
  begin
    Mouse(x, y, 2, 2, true);
    Wait(550+random(550));
    FFlag(0);
  end;
  repeat
    if(FindColorRightTol(cx, cy, 2601201, MSX1, MSY1, MSX2, MSY2, 30)) then
    begin
      if(FindColorRightTol(x, y, 4876191, MIX1, MIY1, MIX2, MIY2, 3))then
      begin
        Mouse(x, y, 2, 2, true);
        Mouse(cx,cy,0,0,False);
        Wait(300+Random(500));
        ChooseOption('ire');
      end;
    end;
    FFlag(0);
    Wait(3550+random(1550));
  until(FindNpcChatText('just cook'));
  FreeBitmap(Shrimp);
end;

procedure Step4;
begin

//DTMs for Step
  Pot := DTMFromString('78DA639CCCC4C020CAC8800C66A49B33FC07D' +
       '220D1FF40C0D8C304E52103462412487701D50811503317D32E0C' +
       '350B806A5809A8990154F39701BF1A90BFC4F19B03002A170BC0');

  Bucket := DTMFromString('78DA633CC0C4C020C0C8800CE6367A32FC07D' +
       '220D1FF40C0B80BA8E61F031A60442281F461A01A3146FC6A4E02' +
       'D5701350B303A88697809A9D40352204D46C07AA6126A0E614500' +
       'D137E350080F70DDE');

  Dough := DTMFromString('78DA639CC6C4C0C0C5C8800CD6ADEB62F80FA' +
       '441A2FF8180B117A8E63F031A60442281F464A09ABF04D44C00AA' +
       '1162C4AFA613A88693809AF94C483C1C6A1611B60B00EA0A0D4C');

  WalkToMMArrow;
  Search4It('ate', 'pen', 'Follow the path');
  WalkToMMArrow;
  Search4It('oor', 'pen', 'Talk to the');
  Talk('Master Chef', 'Ah!');
  HandleTalk;
  repeat
    if(FindDTM(Pot,x,y,MIX1,MIY1,MIX2,MIY2))then
    begin
      Mouse(x,y,2,2,True);
      if(FindDTM(Bucket,x,y,MIX1,MIY1,MIX2,MIY2))then
      begin
        Mouse(x,y,2,3,True);
      end;
    end;
    Wait(1550+random(880));
  until(FindNpcChatText('Now you have'));
  WalkToMMArrow;
  repeat
    if(FindDTM(Dough,x,y,MIX1,MIY1,MIX2,MIY2))then
    begin
      Mouse(x,y,2,2,True);
      MSArrowRClick('se');
      Wait(6500+random(550));
    end;
  until(FindNpcChatText('Well done! Your'));
  MouseBox(730,471,750,493,True);
  WalkToMMArrow;
  Search4It('oor', 'pen', 'Now, how about');
  Wait(1550+random(770));
  MouseBox(698,472,716,494,True);
  Wait(1550+random(770));
  MouseBox(MIX1,MIY1,715,457,True);
  Wait(1550+random(770));
  Mouse(665,474,10,10,True);
  Wait(1550+random(770));
  SetRun(True);
end;

procedure Step5;
begin

  repeat
    Mouse(650,30,9,10,True);
    FFlag(0);
  until(FindMMArrow(x, y));
  WalkToMMArrow;
  Search4It('oor', 'pen', 'Talk with');
  WalkToMMArrow;
  Talk('Quest Guide', 'Ah.');
  HandleTalk;
  Mouse(596,171,20,20,True);
  Talk('Quest Guide', 'Now you');
  HandleTalk;
  WalkToMMArrow;
  MakeCompass('W');
  Search4It('adder', 'limb-down', 'Next let');
  MakeCompass('N');
end;

procedure Step6;
var
  Dirt, DirtA: integer;
begin

//Bitmaps
  Dirt := BitmapFromString2(False, 'a5146678DA333080015367206' +
       '162610224CDDC2C81A4B9A511887402891858BA81482747536363' +
       '0343635249001DD');
  DirtA := AutoColorThis(Dirt, 50, MMX1, MMY1, MMX2, MMY2);
  RadialWalk(DirtA, 240, 170, 70, 2, 2);
  FFlag(0);
  WalkToMMArrow;
  Talk('Mining', 'Hi there');
  HandleTalk;
  WalkToMMArrow;
  Search4It('ocks', 'Prospect', 'This rock');
  Wait(1550+random(300));
  ClickToContinue;
  WalkToMMArrow;
  Wait(550+random(300));
  Search4It('ocks', 'Prospect', 'This rock');
  Wait(1550+random(300));
  ClickToContinue;
  WalkToMMArrow;
  Wait(550+random(300));
  Talk('Mining', 'I prospected');
  HandleTalk;
  WalkToMMArrow;
  Wait(550+random(300));
  Search4It('ocks', 'Mine', 'You manage');
  Wait(550+random(300));
  ClickToContinue;
  WalkToMMArrow;
  Wait(550+random(300));
  Search4It('ocks', 'Mine', 'You manage');
  Wait(550+random(300));
  ClickToContinue;
  WalkToMMArrow;
  GameTab(4);
  repeat
    if(FindDTM(Tin,x,y,MIX1,MIY1,MIX2,MIY2))then
    begin
      Mouse(x,y,2,2,True);
      MSArrowRClick('se');
      Wait(7500+random(1550));
    end;
    Wait(1150+random(550));
  until(FindDTM(BronzeB,x,y,MIX1,MIY1,MIX2,MIY2));
  Wait(550+random(300));
  MouseBox(310,400,311,430,True);
  WalkToMMArrow;
  Talk('Mining', 'How do I');
  HandleTalk;
  WalkToMMArrow;
  if(FindDTM(BronzeB,x,y,MIX1,MIY1,MIX2,MIY2))then
  begin
    Mouse(x,y,2,2,True);
    Talk('nvil', 'se');
    Wait(2550+random(200));
  end;
  MouseBox(15,51,40,80,True);
  Wait(3050+random(750));
  MouseBox(310,400,311,430,True);
  WalkToMMArrow;
  repeat
    if(FindObj(x, y, 'ate', 7171449, 5)) then
    begin
      Mouse(x, y, 2, 2, false);
      Wait(300+Random(500));
      ChooseOption('pen');
      Wait(4020+random(550));
    end;
    Wait(550+random(550));
  until(FindNpcChatText('In this'));
end;

procedure Step7;
begin

  WalkToMMArrow;
  Talk('Combat', 'My name');
  HandleTalk;
  MouseBox(662,172,684,192,True);
  GameTab(5);
  MouseBox(594,419,621,444,True);
  repeat
    if(FindDTM(Dagger,x,y,MIX1,MIY1,MIX2,MIY2))then
    begin
      Mouse(x, y, 2, 2, true);
    end;
    Wait(550+random(50));
  until(FindDTM(Dagger,x,y,MSX1,MSY1,MSX2,MSY2));
  WalkToMMArrow;
  Talk('Combat', 'Very good');
  HandleTalk;
  GameTab(5);
  MouseBox(594,419,621,444,True);
  repeat
    if(FindDTM(Dagger,x,y,MSX1,MSY1,MSX2,MSY2))then
    begin
      Mouse(x, y, 2, 2, true);
    end;
    Wait(550+random(50));
  until(FindDTM(Dagger,x,y,MIX1,MIY1,MIX2,MIY2));
  GameTab(4);
  repeat
    if(FindDTM(Shield,x,y,MIX1,MIY1,MIX2,MIY2))then
    begin
      Mouse(x, y, 2, 2, true);
    end;
    Wait(2550+random(550));
    if(FindDTM(Sword,x,y,MIX1,MIY1,MIX2,MIY2))then
    begin
      Mouse(x, y, 2, 2, true);
    end;
    Wait(3050+random(550));
  until(FindNpcChatText('Click on the flashing'));
  Mouse(533,178,9,11,True);
  WalkToMMArrow;
  repeat
    if(FindObj(x, y, 'ate', 7171449, 5)) then
    begin
      Mouse(x, y, 2, 2, false);
      Wait(300+Random(500));
      ChooseOption('pen');
      Wait(4020+random(550));
    end;
    Wait(550+random(550));
  until(FindNpcChatText('To attack'));
  repeat
    if(FindObj(x, y, 'iant rat', 4870738, 10)) then
    begin
      Mouse(x, y, 2, 2, false);
      Wait(300+Random(500));
      ChooseOption('ttack');
      Wait(15020+random(2550));
    end;
    Wait(550+random(550));
  until(FindNpcChatText('Pass'));
  repeat
    if(FindObj(x, y, 'ate', 7171449, 5)) then
    begin
      Mouse(x, y, 2, 2, false);
      Wait(300+Random(500));
      ChooseOption('pen');
      Wait(4020+random(550));
    end;
    Wait(550+random(550));
  until(FindNpcChatText('through the'));
  WalkToMMArrow;
  Talk('Combat', 'I did it');
  HandleTalk;
  GameTab(4);
  repeat
    if(FindDTM(Bow,x,y,MIX1,MIY1,MIX2,MIY2))then
    begin
      Mouse(x, y, 2, 2, true);
    end;
    Wait(2550+random(550));
    if(FindDTM(Arrow,x,y,MIX1,MIY1,MIX2,MIY2))then
    begin
      Mouse(x, y, 2, 2, true);
    end;
    Wait(3050+random(550));
  until(not(FindDTM(Bow,x,y,MIX1,MIY1,MIX2,MIY2))) and (not(FindDTM(Arrow,x,y,MIX1,MIY1,MIX2,MIY2)));
  WalkToMMArrow;
  repeat
    if(FindObj(x, y, 'iant rat', 4870738, 10)) then
    begin
      Mouse(x, y, 2, 2, false);
      Wait(300+Random(500));
      ChooseOption('ttack');
      Wait(17020+random(3550));
    end;
    Wait(550+random(550));
  until(FindNpcChatText('You have completed'));
  WalkToMMArrow;
  MakeCompass('W');
  Search4It('adder', 'Climb', 'Follow the');
  MakeCompass('N');
end;

procedure Step8;
begin
  WalkToMMArrow;
  LowestAngle;
  repeat
    if(FindObj(x, y, 'ank booth', 141371, 3)) then
    begin
      Mouse(x, y, 2, 2, false);
      Wait(300+Random(500));
      ChooseOption('se');
      Wait(1020+random(3550));
    end;
    Wait(550+random(550));
  until(FindNpcChatText('Good day'));
  Wait(550+random(50));
  ClickToContinue;
  Wait(1950+random(550));
  MouseBox(250, 394, 271, 409, true);
  CloseBank;
  WalkToMMArrow;
  HighestAngle;
  Search4It('oor', 'pen', 'The guide');
  WalkToMMArrow;
  Talk('Financial', 'Hello');
  HandleTalk;
  WalkToMMArrow;
  Search4It('oor', 'pen', 'Follow the');
  MouseBox(630, 134, 652, 153, true);
  FFlag(0);
  if(FindObj(x, y, 'pen', 2243679, 3)) then
  begin
    if(isUpText('pen'))then
    begin
      Mouse(x, y, 0, 0, false);
      Wait(250+random(50));
      ChooseOption('pen');
    end;
  end;
  WalkToMMArrow;
  Talk('Brother', 'Good day');
  HandleTalk;
  Mouse(698,174,10,10,True);
  WalkToMMArrow;
  Talk('Brother', 'This is');
  HandleTalk;
  repeat
    MouseBox(570,475,585,485,True);
    Wait(2550+random(300));
    MouseBox(605,475,10,10,True);
    Wait(2550+random(300));
  until(FindMSArrow(x, y));
  WalkToMMArrow;
  Talk('Brother', 'Good.');
  HandleTalk;
  WalkToMMArrow;
  repeat
    if(FindObj(x, y, 'pen', 801620, 5)) then
    begin
      if(isUpText('pen'))then
      begin
        Mouse(x, y, 0, 0, false);
        Wait(250+random(50));
        ChooseOption('pen');
        Wait(2550+random(550));
      end;
    end;
  Wait(550+random(150));
  until(FindNpcChatText('Just follow'));
  MouseBox(670, 113, 688, 129, true);
  FFlag(0);
  WalkToMMArrow;
end;



procedure Step9;
begin
  WalkToMMArrow;
  Talk('Magic', 'Hello');
  HandleTalk;
  repeat
    MouseBox(733, 173, 748, 195, true);
  until(FindNpcChatText('Good.'));
  Talk('Magic', 'Good.');
  HandleTalk;
  repeat
    MouseBox(593, 235, 597, 241, true);
    if(FindObj(x, y, 'icken', 7248823, 5)) then
    begin
      if(isUpText('icken'))then
      begin
        Mouse(x, y, 0, 0, false);
        Wait(250+random(50));
        ChooseOption('ast');
        Wait(1550+random(550));
      end;
    end;
  until(FindNpcChatText('All you'));
  WalkToMMArrow;
  Talk('Magic', 'Well');
  HandleTalk;
  MouseBox(250, 396,296, 405, true);
  Wait(550+random(300));
  HandleTalk;
  Wait(5550+random(300));
  if (FindSymbol(x, y, 'guide')) then
  begin
    Writeln('Tut. Island completed!');
  end;
end;


procedure TutRunner;
begin
  LoadBitmaps;
  Step1;
  Step2;
  Step3;
  Step4;
  Step5;
  Step6;
  Step7;
  Step8;
  Step9;
end;

To see more advanced scripts,
SpoonDynamite (tut island runner, deathwalk to draynor!, then tree chopper and banker! (phew)
Varrock Yew Cutter
Rimmington Willow Chopper and Seller (never released)

Thanks again! :)

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

standards = fail.

Ps- You were told to wait 2 weeks, no? Has it only been sometime around 2 days? :S

I say no anyway. No matter how amazing the script. The attitude just isn't there. You are like an over eager dog who tries too hard.

Nope… Fix up the code. Use loops more so that you aren't just rewriting things out. Also, you need to fix the standards as well as the HUGE LIST OF PATHS.

Make it something like:

Path := [Point(23, 324), Point(234, 234)];

Sorry man, no.

From: skilld u
standards = fail.

Haha, thats embarrassing!

I'm too used to PHP and Javascript standards. I'm pretty sure my older scripts have good standards… :duh:

He isn't allowed to apply anyway..

"You may try again in 2 weeks, good luck
Closed."

By Nielsie. As of August 31, which is 3 days ago..

From: 3Garrett3
He isn't allowed to apply anyway..

"You may try again in 2 weeks, good luck
Closed."

By Nielsie. As of August 31, which is 3 days ago..

Oh im sorry I didn't read the last post I just saw it was closed.

My apologies. Ill fix my standards in the meantime. I'm really sorry ya'll :redface:

@3garrett3 - Your being really harsh but I understand where your coming from
@Nava2 - I just used that Sumilions Pathmaker output. I don't need loops either. It runs just fine. Also like I said, my standards are fine in my other scripts!

You guys are being pretty mean. Most people got in from powerminers and stuff. I've wanted this for so long and shown that I can script and contribute to this community! I try so hard and it all comes back to my attitude.

From: born2code
Oh im sorry I didn't read the last post I just saw it was closed.

My apologies. Ill fix my standards in the meantime. I'm really sorry ya'll :redface:

@3garrett3 - Your being really harsh but I understand where your coming from
@Nava2 - I just used that Sumilions Pathmaker output. I don't need loops either. It runs just fine. Also like I said, my standards are fine in my other scripts!

You guys are being pretty mean. Most people got in from powerminers and stuff. I've wanted this for so long and shown that I can script and contribute to this community! I try so hard and it all comes back to my attitude.

Yer. It wasn't supposed to sound mean. I was mad at my dog, and you were acting along those lines, so I figured I would throw it in there.

E: Nobody gets in with Powerminers… Barely anyone gets in right now I think. That's the way it should be. It was too leniant before..

From: 3Garrett3
Yer. It wasn't supposed to sound mean. I was mad at my dog, and you were acting along those lines, so I figured I would throw it in there.

E: Nobody gets in with Powerminers… Barely anyone gets in right now I think. That's the way it should be. It was too leniant before..

Well most of the members have left. I think it is just fine how it was. You expect too much.

Also my scripts are great! A tut runner then deathwalk and tree chopper and banker, I'd say thats up to SRL mems status… (h)

I promise to whomever, if you vote yes you wont ever regret it!

BTW, I already got into srl members with these scripts plus a new one:
http://www.villavu.com/forum/showthread.php?t=16229

just wait to weeks ensure that all reflection is backed up by traditional SRL tecniques because no matter how good a script is if it solely uses reflection noboy will vote yes there has been a couple of recent apps like this

so just wait a while test ur script thats all i can say

From: Bonfield
just wait to weeks ensure that all reflection is backed up by traditional SRL tecniques because no matter how good a script is if it solely uses reflection noboy will vote yes there has been a couple of recent apps like this

so just wait a while test ur script thats all i can say

Omg its not my only script! lol

Its actually my only reflection script

i never said that it was ur only script i know that u used to be a member i know everything that happened, but u are trying to show ppl that you are more mature and u apply 3 days after your last app was closed

did u notice that i didnt vote im going see what other ppl think i believe that u have changed and will become an active member that has good scripting ability, but it has been said before that scripting ability is not everything it also depends on yor attitude

From: Bonfield
i never said that it was ur only script i know that u used to be a member i know everything that happened, but u are trying to show ppl that you are more mature and u apply 3 days after your last app was closed

did u notice that i didnt vote im going see what other ppl think i believe that u have changed and will become an active member that has good scripting ability, but it has been said before that scripting ability is not everything it also depends on yor attitude

Oh I totally understand what you mean. I really do think my attitude was bad in the past. I'm trying to be better and I hopefully haven't pissed anyone off… lol ;)

From: born2code
Oh I totally understand what you mean. I really do think my attitude was bad in the past. I'm trying to be better and I hopefully haven't pissed anyone off… lol ;)

lol

yeah but ppl still might veiw this as being immature anyways goodluck and hopefully u will become a member in a couple of weeks

From: Bonfield
lol

yeah but ppl still might veiw this as being immature anyways goodluck and hopefully u will become a member in a couple of weeks

Its not really immature. Idk what word would classify it… lol but not immature :redface:

Well TY for the comments! Im watching the UK version of the US The office. The us version is so awesome I decided to watch the uk version

yeah i wouldnt say immature but i couldnt think of any other word sorry =]

im not really a fan of the office…….. so bored i think i might go watch tv lol

From: Bonfield
yeah i wouldnt say immature but i couldnt think of any other word sorry =]

im not really a fan of the office…….. so bored i think i might go watch tv lol

Omg its awesome. Use thepiratebay.com or something and get a torrent of season one. I promise you'll love it. I also watch Lost, South Park, & Heroes. u?

Well I understand you wanting to get back your SRL-Member status badly. I don't know when you last logged in before you came back. But I believe you were part of the "pruning" that was done a while ago, so you must of been totally inactive.

Right now I think your rushing it to much, which is stabbing you in the back (if you know what i mean). Just try to relax and develop a nice Color SRL script for you next Members application.

Best way imo, its if you like to play RS to find something you want to do a lot of, and try to develop a perfect script that will run a long time. Tends to be the best motivator and you see all your bugs in the process.

Good luck on your next application.

From: Narcle
Well I understand you wanting to get back your SRL-Member status badly. I don't know when you last logged in before you came back. But I believe you were part of the "pruning" that was done a while ago, so you must of been totally inactive.

Right now I think your rushing it to much, which is stabbing you in the back (if you know what i mean). Just try to relax and develop a nice Color SRL script for you next Members application.

Best way imo, its if you like to play RS to find something you want to do a lot of, and try to develop a perfect script that will run a long time. Tends to be the best motivator and you see all your bugs in the process.

Good luck on your next application.

I dont play runescape at all. :)

Ofc. Legend.

From: Sp0rky
Ofc. Legend.

Im sorry, what does Ofc mean?

of course lol

From: Bonfield
of course lol

Oh :redface:

I know it's a nil vote, but I'm going to give you a yes on this one.

Why? I never expected you to come back after you left from that horridly drawn out conflict. Since you did, I gotta give you credit.

Also, I like your ambition. Quest runners aren't exactly the norm :)


I'd love to see your script refined more, but that comes with practice, and seeing as how this is your first reflection script, I totally understand. It can be pretty confusing at first. You'll get better (h). One suggestion. Write a couple 'test' scripts, have some fun with reflection. Maybe try a simple path recorder, or something that goes through every NPC/Object on the screen. I did that sort of stuff when reflection first came out, and found it extremely helpful.

Good Luck. PM me after you apply next time for my vote.

~Smartz

From: Smartzkid
I know it's a nil vote, but I'm going to give you a yes on this one.

Why? I never expected you to come back after you left from that horridly drawn out conflict. Since you did, I gotta give you credit.

Also, I like your ambition. Quest runners aren't exactly the norm :)


I'd love to see your script refined more, but that comes with practice, and seeing as how this is your first reflection script, I totally understand. It can be pretty confusing at first. You'll get better (h). One suggestion. Write a couple 'test' scripts, have some fun with reflection. Maybe try a simple path recorder, or something that goes through every NPC/Object on the screen. I did that sort of stuff when reflection first came out, and found it extremely helpful.

Good Luck. PM me after you apply next time for my vote.

~Smartz

Thanks! Getting a yes from smartz means a lot ;) (seriously though, it does!)

Oh btw, I bought a EVGA graphics card from newegg a monthish ago. Its really great! (I saw your sig)

From: born2code
Thanks! Getting a yes from smartz means a lot ;) (seriously though, it does!)

And getting a yes from me doesn't? >_>

not very much advanced stuff there sorry its a no.

From: Sp0rky
And getting a yes from me doesn't? >_>

Oh I didn't know you did, sorry! lol (It does!)

From: NiCbaZ
not very much advanced stuff there sorry its a no.

How are my scripts not advanced?! :mad:

hmm, this is a hard decision, I know you can script, I know that you want in, but this is to early. No

From: Mylesmadness
hmm, this is a hard decision, I know you can script, I know that you want in, but this is to early. No

How about if I wait 2 weeks?

Legend or not, Im sorry to say no..

You lack in some places such as Walking… Try not using Reflection!
And if you still need to have proper backups :)

From: N1ke!
Legend or not, Im sorry to say no..

You lack in some places such as Walking… Try not using Reflection!
And if you still need to have proper backups :)

My other scripts dont use reflection! :mad:

My scripts are great how can you say that?

Rather simple, You applied with a script with reflection walking.. Not with your uber leet normal walking script :)

Yes.

But I wont vote cus nielsie95 would close it in about…. 13 hours from now off (guessing).
And I like how you are ;)

From: born2code
How about if I wait 2 weeks?

2 weeks from the date of this tread being closed. And to people who think this script is to basic. Look at the old ones, he is good

From: Mylesmadness
2 weeks from the date of this tread being closed. And to people who think this script is to basic. Look at the old ones, he is good

Aaaahhhh! Thanks! :) NO ONE ever looks at my old ones… :/ Ty for saying that. I absolutely know the Rune Mysteries Quest Runner is too simple. It took me a day to make ;)

@N1ke! - Listen to Mylesmadness ;)
@Zytex! - Thanks too!

So if I wait 2 weeks, do I have ya'll's votes?

lol if its good than yes…
we dont feel sorry for people :P we have some people apply atleast 4+ times…

From: ~~Joker~~
lol if its good than yes…
we dont feel sorry for people :P we have some people apply atleast 4+ times…

This is my 9th app :/

That's because you app too soon a lot.

From: 3Garrett3
That's because you app too soon a lot.

Would you vote for me if I waited 2 weeks?

Born2Code, Seriously! Post the script(s) you want to apply with.. And don't tell me to go look after your older ones. You were told to do a new script if i remember right?, You did and guess what its a no this time…

Im 90% that you get in after 2 weeks from now…

Good luck and please don't pm me saying why i typed this :)

From: N1ke!
Born2Code, Seriously! Post the script(s) you want to apply with.. And don't tell me to go look after your older ones. You were told to do a new script if i remember right?, You did and guess what its a no this time…

Im 90% that you get in after 2 weeks from now…

Good luck and please don't pm me saying why i typed this :)

Dude, if you read my post it says "To see more advanced scripts,
SpoonDynamite (tut island runner, deathwalk to draynor!, then tree chopper and banker! (phew)
Varrock Yew Cutter
Rimmington Willow Chopper and Seller (never released)"

Next time I will post all of my scripts instead of just linking to them ;)

(SRL Members are lazy! lol jk!)

Also dw about pming you. I wont :)

EDIT: Any admin wanna close this?

We are pretty lazy. Come back with a script that is fully working SRL colour, and I will vote yes. And if it is in at least 2 weeks.

From: 3Garrett3
We are pretty lazy. Come back with a script that is fully working SRL colour, and I will vote yes. And if it is in at least 2 weeks.

I have already made a SRL Color script. There is no need to make another one. :mad:

From: born2code
I have already made a SRL Color script. There is no need to make another one. :mad:

There is if your other ones use outdated methods. Learn tpa's and the such :)

From: 3Garrett3
There is if your other ones use outdated methods. Learn tpa's and the such :)

Just because something is old, doesn't mean it doesn't work well. My walking was and is fine. Ill learn tpa's this weekend. :) They sound cool

From: 3Garrett3
There is if your other ones use outdated methods. Learn tpa's and the such :)

=D

Still got that avatar.

My other scripts dont use reflection!

your other scripts do not Use TPA finding and RRW, and DDTM walking either.

From: born2code
EDIT: Any admin wanna close this?

Please wait the two weeks this time?
If you apply one day sooner, it will be closed and you will have to wait the usual 1 month. So you are lucky I am extending nielsies grace of only 2 weeks. Please don't disappoint us.

Better luck next time.

Cheers.