SRL Archive - Archive

h4ph4z4rd - SRL Member Application Form
h4ph4z4rd

What is the meaning to life?


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



Programming Knowledge
Mastered PHP, C and Java, delphi/pascal is coming along

Other Communitys
was at kait, just joined mopar

How Long have You Played Runescape
5 years on and off =p

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

I know you must've read loads of paragraphs like this everyday, so i'll try and make this as short and sweet as possible. My name is Faith, i am 15yo. I'd like to join the SRL member. Since this is such a nice forum, i've learn so much of it, i want to contribute. I will help as many people as possible, and i will be cheerful as usual. I have wrote aryan scripts before, and i've just started Scar. I think it's working quite well for me, as i find it really easy. I will use my privilege as a member to learn even more, and it'd be a benifit for everyone =)


~faith

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

{      .--.   _,                                               ,_   .--.
   .--;    \ /(_                                               _)\ /    ;--.
  /    '.   |   '-._    . ' .                     . ' .    _.-'   |   .'    \
 |       \  \    ,-.)  -= * =-                   -= * =-  (.-,    /  /       |
  \ /\_   '. \((` .(    '/. '                     ' .\'    ). `))/ .'   _/\ /
   )\ /     \ )\  _/   _/                             \_   \_  /( /     \ /(
  /  \\    .-'   '--. /_\                             /_\ .--'   `-.    //  \
 |    \\_.' ,        \/||     ______      _ __  __    ||\/        , '._//    |
 \     \_.-';,_) _)'\ \||    / ____/___ _(_) /_/ /    ||/ /`(_ (_,;`-._/     /
  '.       /`\   (   '._/   / /_  / __ `/ / __/ __ \  \_.'   )   /`\       .'
    `\   .;  |  . '.       / __/ / /_/ / / /_/ / / /       .' .  |  ;.   /`
      ).'  )/|      \     /_/    \__,_/_/\__/_/ /_/       /      |\(  `.(
      `    ` |  \|   |                                   |   |/  | `    `
              \  |   |         Tut Island Runner         |   |  /
               '.|   |           Private Alpha           |   |.'
                  \  '\__                              __/'  /
                   `-._  '. _                      _ .'  _.-`
                      \`;-.` `._                _.` `.-;`/
                       \ \ `'-._\              /_.-'` / /
                        \ |                          | /
                         \ )                        ( /
                          \_\                      /_/
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-Notes!-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
//PLEASE DO NOT RELEASE THIS SCRIPT YET!
// This script help you auto more than one character throught Tutorial Island
// Script still sometimes buggy, but works perfect in most casses
// Lots of codes taken for other people, that why it will not be release until i indentify them
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-Setup!-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
program FaithTutRunner;

{.include srl\srl.scar}
{.include srl\srl\skill\firemaking.scar}
{.include srl\srl\skill\Cooking.scar}
{.include srl\srl\skill\Magic.scar}
{.include Randomless login.scar}


{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-Setup!-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
const
NumberOfUsers  = {i will use>>>>} 5; {<<<<<players this time}
StartPlayer    = {and i'll start with player number>>>>} 0; {<<<<}
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-Done!!-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


var
minimaparrow,MainScreenArrow:integer;
acceptdtm,fishspotdtm:integer;
Shrimp,CookedShrimp,BurntShrimp,LogsBmp,Pot,Bucket,BreadD,TinOre,BronzeBar,Dagger,Shield,Sword,Bow,Arrow:integer;

Procedure DeclarePlayers;
begin
    HowManyPlayers := NumberOfUsers;
    NumberOfPlayers( HowManyPlayers );
    CurrentPlayer := StartPlayer;
    Players[0].Name :='just test o6';
    Players[0].Pass :='Pass';
    Players[0].Nick :='';
    Players[0].Active :=True;

    Players[1].Name :='just test o2';
    Players[1].Pass :='Pass';
    Players[1].Nick :='';
    Players[1].Active :=True;

    Players[2].Name :='just test o3';
    Players[2].Pass :='pass';
    Players[2].Nick :='';
    Players[2].Active :=True;

    Players[3].Name :='just test o4';
    Players[3].Pass :='pass';
    Players[3].Nick :='';
    Players[3].Active :=True;

    Players[4].Name :='just test o5';
    Players[4].Pass :='pass';
    Players[4].Nick :='';
    Players[4].Active :=True;

   { Players[5].Name :='i kill u o0p';
    Players[5].Pass :='pass';
    Players[5].Nick :='';
    Players[5].Active :=True;   }
End;


Procedure loadbmps;
Begin
mainscreenarrow := BitmapFromString(7, 4, 'z78DA73737433373' +
       '27223823400014362D418208021116A9081210609050059A123C0' +
       '');

minimaparrow := BitmapFromString(4, 4, 'z78DA73737433377474' +
       'C3200D40C01087B801B22C846D800EA02200224414B5');
End;

procedure Loadbmp(bmp:String);
begin

  Case (lowercase(bmp)) of

  'accept' : acceptdtm:= DTMFromString('78DA63FCC4C0C020C3C880020E3030F003299' +
       '0E87F2060FC88450D14C04401329606ED');

  'shrimp' : Shrimp := BitmapFromString(12, 5, 'z78DAA590490A03310C04BF6' +
       '42DADE528DBA3FF3F29860924107208E9431D84BA101AE384C6DF' +
       '294F0A9D941173BC9C3F333BD2AF92D8414F671525B6168590D25' +
       '9BC99B00939D3E97DB7DE19E1B015DBD33AC9B7735ECEC8BB1565' +
       'D02BC6D1BAB1BAB83548F6E73DD636104EC6285703966F949A2DB' +
       'D64A11502986C6E656EC6F8F2CF070DB949EE');

  'cooked shrimp' : CookedShrimp := BitmapFromString(12, 5, 'z78DA9D90410E4231' +
       '0844AF349429B44B2AF5FE4792AF46A3C685CEE22DC8CB04002A8' +
       '227FF4CA477E1325F42BC77FEC0308730C25BF1DA7992A1E2493B' +
       'CB144A89374E650AEE3E6DBF72C2E470ACDCE966C5E8C7045C826' +
       '134A46F36A4356D35D81AC8CF7DBC7197695D1E8C3A306DA923FB' +
       '566074B685C12AC2F8F6C90B43B8486B');

  'burnt shrimp' : BurntShrimp := BitmapFromString(14, 5, 'z78DA9D90310EC4200' +
       'C04BF14DBBB70291190FF3FE91C9B225292E2CE234DB192178B22' +
       '6CDC592994ED9CABFF1C1EFC38C0C4F46E7322B9F5FFE0BC7075A' +
       '63389FE020EF64C04E24B696BE7E30FBB610C5414479D063AE9C8' +
       '6DD8EE44835553077A3855A9B44D878EB76BD7D6D5D9165BD9B06' +
       'C2A2A32A54B7FFBF92F078E54CD');

  'fishspot' : fishspotdtm:= DTMFromString('78DA63EC646460B0046224B0E2C47B8600200' +
       'D12FD0F048C5D986A2273A7318840D5800000869109A9');

  'log' : LogsBmp := BitmapFromString(11, 7, 'z78DA9DD0410A80300C04C02F3' +
       '59B4DAD4723F5FF4F52DA1C02A2A097A1A4BB25B436AE609D3A1D' +
       'B5E6C9BB2081CFADA41DD703F8D79DD295B2C5995AA4B1292EC73' +
       'CECBA889BE82ABB515DBA35ED7284CE8292938FF9919C3BC7E6F3' +
       '078691BCE7532BE743E3020DEFB7EFE6EEF0042DC86109');

  'pot' : Pot := BitmapFromString(8, 6, 'z78DA7DCF410E80300844D12B396' +
       '52C74292DDCFF4836D68589D1FD1B7E208B01A1C160322525CA88' +
       '113D7BEBCD866D9A9636513D24E146668126BD6CEA6C48352A868' +
       '2825E83802F59298E66857DCAA727F71FFF75FF5A7DF9BBF2F277' +
       '65799531BDED98FEB95AADF717973F0148E93F8E');

  'bucket' : Bucket := BitmapFromString(8, 7, 'z78DA8D8FC10EC3300C427FC9' +
       '38E0B8C7A469FEFF939AB59BB4D33A213D71002C6B6AA6EB6FD27' +
       'C58162E13DE311603DDE4407E8881154302E63A581D01368758BA' +
       'ED0FFCCA07B97B89CAE98C26B862881ED5149EB5287D5365C154A' +
       '3DC1EBA17352451A461BCF97BE16ADDB7627F3D1BA943471435B5' +
       '8072E9DEDC04D909BDCD4804');

  'bread d' : BreadD := BitmapFromString(5, 4, '98977093936D8F8E6A8A8A678' +
       '786649C9C7398977093936D8F8E6A8887659E9D749A997195946F' +
       '91916C8D8C68A09F769C9C7398977093936D8F8E6A');

  'tinore' : TinOre := BitmapFromString(9, 10, 'z78DA7D515B0EC42008BC92A' +
       'EC00C9FD5DAFB1F69ADF8D166E30E89318179A0924A2DD560C9D2' +
       '44DE9C2F88CB80653DD4ADDB00B2D1B89B0F68962A3558503BAD0' +
       '1765947B16ABEE3AA6BD1F2F23A21A32E8CD871FFE5AEF9F09AFA' +
       '2C38E0543454021D279D09D773D37887D8058E84C40C82ACCCA31' +
       'A3FA3266BE9CCEE9A8F5D66AAA5DF2914CFBCDB0FEED331F2AF6C' +
       'D3C50B39CC85C7989E0A3F4FB2B82B49B8DC0ED5C993EDFF2F443' +
       '7F4FD76E8BBBFFE026C3B6F96');

  'bronze bar' : BronzeBar := BitmapFromString(4, 5, 'z78DA33B134B6303230218' +
       '234B5343131B2C014819046CE464686C61092187100D57D18BF');

  'dagger' : Dagger := BitmapFromString(9, 7, 'z78DA75904B1284300844AF04' +
       '02212C81C4FB1F493465958E352C7A91F46B3E8EB623C2592F6DC' +
       '49D3A07D9864F5DBF4ABAC1F08B75F78EBCDEFFF92F051161E8BA' +
       'EB8461D3F266A385207FFDAB88A9D265CAF861D5E56C1267AB190' +
       '3F5BB85804051A15E949B15C54EE507DF4B2D1439316BA1F4EC77' +
       '820819F4A52D5BBC591F1EF7CC3932509FFEA52BA70E88C5AA49B' +
       '19F3B1F9E534FA6');

  'shield' : Shield := BitmapFromString(6, 6, 'z78DA337536313674338590E6' +
       '26065849FC6A8C8D5D0C5D0898805F0D4496AA6A00D6B72EDD');

  'sword' : Sword := BitmapFromString(6, 7, 'z78DA75CD3B12C3300804D02BE' +
       'D8AC586528AA3FB1FC9CC2845C61F0A0A782CC0A5D882936CDF26' +
       '6A4DEEFDB645ECE13806FBA45E12606E0E74EF462DF9BF5DA5A18' +
       '14CA5913FA9D11E24B5B75E32727B90F58B13701A919BAC32E388' +
       '4FC93A22973C01E84E3321');

  'bow' : Bow := BitmapFromString(8, 6, 'z78DA33300002437327732320C42' +
       '00DC0B20648807895B8D4E3526980E4122435982AA122E66EA6E6' +
       '062E044C7336353170317336B124A8D2C0C4099B4A008343392B');

  'arrow' : Arrow := BitmapFromString(7, 6, 'z78DA33300002430330696A666' +
       'C6C6069801031C01487B08DCC0CCD61B2B8C4E96F1A8424C63408' +
       '090026F230D5');
  end;
end;

Procedure DropAllBmps;
begin
FreeBitmap(Arrow)
FreeBitmap(Bow)
FreeBitmap(Sword)
FreeBitmap(Shield)
FreeBitmap(Dagger)
FreeBitmap(BronzeBar)
FreeBitmap(TinOre)
FreeBitmap(BreadD)
FreeBitmap(Bucket)
FreeBitmap(Pot)
FreeBitmap(LogsBmp)
FreeBitmap(FishSpotDTM)
FreeBitmap(Shrimp)
FreeBitmap(AcceptDtm)
end;

procedure CustomSRL;
begin
mousespeed := 5
screenshots := True;
end;

const
Message1=' ____  __    ____  ____  _   _ ';
Message2='( ___)/__\  (_  _)(_  _)( )_( )';
Message3=' )__)/(__)\  _)(_   )(   ) _ ( ';
Message4='(__)(__)(__)(____) (__) (_) (_) tut runner is now loading...';

procedure setup;
begin
SetupSRL;
customsrl;
loadbmps;
LoadFireMakingBitmaps;
DisguiseScar('iTune')
ClearReport;
ClearDebug;
Writeln(Message1);
Writeln(Message2);
Writeln(Message3);
Writeln(Message4);
wait(4000);
ActivateClient;
wait(3000);
Writeln('  . ');
Writeln(' . .');
Writeln('. . .');
Writeln('running fine');
end;

procedure lost;
begin
  writeln(players[currentplayer].name + ' is lost')
  writeln('Loging out')
  logout
  //nextplayer(true)
end;

Function ClickMiniArrow:boolean;
var
c:integer;
begin
repeat
wait (25)
c := c+1
until (findbitmaptolerancein(minimaparrow,x,y,MMX1, MMY1, MMX2, MMY2,10)) or (c >= 10)
if not (c >= 20) then
   begin
   mouse (x,y,3,3,true)
   flag;
   result := true;
   end else
   result := false;
end;

function TalkTo: Boolean;
var
  c: Integer;
begin
  repeat
    if (not (Loggedin)) then
      break;
    c := c + 1;
    if (FindColor(x, y, 16711680, 216, 433, 387, 454)) and (not (GetColor(20, 434) = 0)) then
    begin
      result := true
        Mouse(x, y, 50, 2, True);
      Wait(500 + Random(500));
    end;
    if (FindColor(x, y, 16777215, 216, 433, 387, 454)) and (not (GetColor(20, 434) = 0)) then
    begin
      result := true
        GetMousePos(x, y);
      Mouse(x, y, 50, 2, True);
      Wait(500 + Random(500));
    end;
  until (GetColor(20, 434) = 0) or (c >= 20);
end;

Function TalkToTut(Color,Tol:integer):boolean;
Var
c:integer;
begin
Clickminiarrow;
findobj(x,y,'Talk-to',Color,tol)
mouse(x,y,0,0,true);
flag;
repeat
wait (1000+random(1000))
c:= C + 1
until (TalkTo) or (C >= 5)
if (C >= 5) then
   begin
   Clickminiarrow;
   findobj(x,y,'Talk-to',Color,tol)
   mouse(x,y,0,0,true);
   flag;
   repeat
   wait (1000+random(1000))
   c:= C + 1
   until (TalkTo) or (C >= 10)
         If (C >= 10) Then
         begin
         Result := False
         Exit;
         end;
   End;
Result := True
end;

procedure ranclothes;
{var
ran1,m,left,right:integer;}
begin
 { ran1:= 10+random(30)
  for m:= 1 to ran1 do
  begin
    left:=random(10)
    right:=random(10)
    if left >= right then mouse(52+(random(2)*112),90+(random(7)*36),10,7,true)
    if right > left then mouse(350+(random(2)*112),96+(random(5)*36),10,7,true)
  end
  mouse(248,276,5,5,true)
  wait(1000)  }
  highestangle
end;

Procedure RunescapeGuide;
begin
Repeat
TalkToTut(462720,10);
wait (200+random(200))
Until (TabExists(11))
gametab(11)
wait (500+random(500))
TalkToTut(462720,10);
clickminiarrow;
makecompass ('E')
wait (100+random(100))
findobj (x,y,'pen Doo',1199984,10)
mouse (x,y,0,0,true)
flag;
wait (1000+random(1000))
end;

Procedure CutTree;
Var
c:integer;
begin
clickminiarrow;
wait(100+random(100))
findobj(x,y,'hop down T',1587248,10)
mouse (x,y,2,2,true)
wait(100+random(100))
gametab(11)
repeat
wait (500)
c := c+1
until (TalkTo) or (c >= 20)
if (c >= 20) then
   begin
   Cuttree;
   end;
end;

Procedure MakeFire;
begin
mouse (663,121,5,5,true)
wait (1000+random(1000))
flag;
wait(100+random(100))
UseItem(2)
wait(100+random(100))
UseItem(3)
Repeat
wait (50)
Until (TabExists(2))
end;

Procedure MakeFire1;
Var
c:integer;
begin
Writeln('Cannot find fire, making one.')
wait(100+random(100))
findobj(x,y,'Chop down T',1587248,10)
mouse (x,y,2,2,true)
c:= 0
repeat
wait (500)
C:= C + 1
until (TalkTo) or (C >= 20)
If (C >= 20) then
   begin
   wait(100+random(100))
   findobj(x,y,'Chop down T',1587248,10)
   mouse (x,y,2,2,true)
   repeat
   wait (500)
   until (TalkTo)
   end;
mouse(635,55,10,10,true)
flag;
ClickItemBmpTol(LogsBmp,10,true)
wait (100+random(100))
UseItem(2)
Repeat
wait (500)
Until (ThereIsFire(x,y))
end;

procedure fishing;
var
C:integer;
begin
gametab(4)
ClickMiniArrow;
wait(100+random(100))
makecompass('E')
wait(100+random(100))
repeat
  repeat
    repeat
      repeat
        wait(200)
      until finddtm(fishspotdtm,x,y,MSX1, MSY1, MSX2, MSY2)
      mmouse(x,y,3,3)
    until option2('et Fish')
    mouse(x,y,3,3,true)
    flag
    wait(7000)
  until findcolortolerance(x,y,6390982,MIX1, MIY1, MIX2, MIY2,33)
C:= C+1
until (c >= 3)
end;

Procedure Cook;
begin
makecompass('S')
If not (thereisFire(x,y)) then
   begin
   MakeFire1;
   end;
wait (100+random(100))
ClickItemBmpTol(Shrimp,60,True)
wait (100+random(100))
ThereIsFire(x,y)
Writeln('There is a fire, cooking shrimp')
mouse(x,y,0,0,true)
Repeat
      wait (1000+random(1000))
Until (FindItemBmpTol(BurntShrimp,60))
If not (thereisFire(x,y)) then
   begin
   MakeFire1;
   end;
wait (100+random(100))
ClickItemBmpTol(Shrimp,60,True)
wait (100+random(100))
ThereIsFire(x,y)
Writeln('There is a fire, cooking shrimp')
mouse(x,y,0,0,true)
Repeat
      wait (1000+random(1000))
Until (FindItemBmpTol(CookedShrimp,60))
end;

procedure findfishtut;
begin
Loadbmp('log')
Loadbmp('fishspot')
Loadbmp('shrimp')
Loadbmp('burnt shrimp')
LoadBmp('Cooked Shrimp')
TalkToTut(3224938,10);
wait (200+random(100))
gametab(4)
wait(100+random(100))
CutTree;
MakeFire;
wait (200+random(100))
gametab(2)
wait(100+random(100))
ClickMiniArrow;
TalkToTut(3224938,10)
fishing;
Cook;
ClickMiniArrow;
MakeCompass('W')
FindObj(x,y,'Open G',6443,10)
mouse(x,y,0,0,True)
Wait(5000+random(2000))
DropAllBmps;
end;

Procedure WalkToCook;
begin
wait(2000+random(2000))
ClickMiniArrow;
Flag;
findobj(x,y,'Open Do',1196635,10)
mouse(x,y,3,3,true)
Flag;
wait(2000+random(2000))
end;

Procedure CookTut;
begin
LoadBmp('Pot')
LoadBmp('Bucket')
LoadBmp('Bread D')
TalkToTut(16119286,10)
Wait(100+random(100))
ClickItemBmpTol(Pot,5,true)
Wait(100+random(100))
ClickItemBmpTol(Bucket,10,true)
wait(100+random(100))
MakeCompass('S')
wait(100+random(100))
ClickMiniArrow;
Flag;
wait(100+random(100))
ClickItemBmpTol(BreadD,10,True)
wait(100+random(100))
FindColorTolerance(x,y,858566,MSX1, MSY1, MSX2, MSY2,10)
mouse (x,y,0,0,true)
wait(100+random(100))
repeat
Wait (500)
Until (TabExists(13))
wait(100+random(100))
GameTab(13)
wait(2000+random(2000))
ClickMiniArrow;
wait(2000+random(2000))
Flag;
MakeCompass('W')
wait(100+random(100))
FindObj(x,y,'Open Do',866127,10)
mouse(x,y,0,0,true)
repeat
wait(500)
until (TabExists(12))
gametab(12)
DropAllBmps;
end;

Procedure WalkToQuestTut;
begin
PerfectNorth;
wait(100+random(100))
RunAwayDirection('N')
wait(100+random(100))
RunAwayDirection('N')
wait(100+random(100))
RandomEmote;
Wait (1000+random(1000))
RunAwayDirection('N')
SetRun(false)
wait(1000+random(1000))
SetRun(true)
wait(100+random(100))
ClickMiniArrow
Flag;
wait(100+random(100))
FindObj(x,y,'Open Doo',869215,10)
Mouse(x,y,0,0,True)
end;

Procedure QuestTut;
Begin
wait(1000+random(1000))
TalkToTut(2642197,10)
wait(100+random(100))
GameTab(3)
wait(100+random(100))
TalkToTut(2642197,10)
wait(100+random(100))
ClickMiniArrow;
Flag;
MakeCompass('S')
wait(100+random(100))
FindObj(x,y,'Climb-dow',1390677,10)
mouse(x,y,0,0,True)
Repeat
Wait(500)
Until(Getcolor(647, 132) = 0)
End;

Procedure WalkToMiningTut;
Begin
Mouse(667,50,5,5,True)
Flag;
End;

Procedure SetBright;
begin
GameTab(11)
Wait(100+random(100))
Mouse(714,226,0,0,True)
Mouse(714,226,0,0,True)
Wait(100+random(100))
GameTab(4)
Wait(100+random(100))
end;

Procedure TheMiningInstructor;
Begin
LoadBmp('TinOre')
LoadBmp('Bronze Bar')
LoadBmp('Dagger')
TalkToTut(9191559,10)
Wait(100+random(100))
ClickMiniArrow;
Flag;
Wait(100+random(100))
FindObj(x,y,'Mine',5263446,10)
Mouse(x,y,0,0,False)
Wait(100+random(100))
PopUp('Pros')
Wait(100+random(100))
Repeat
Wait(500)
Until (TalkTo)
Wait(100+random(100))
ClickMiniArrow;
Flag;
Wait(100+random(100))
FindObj(x,y,'Mine',3360091,10)
Mouse(x,y,0,0,False)
Wait(100+random(100))
PopUp('Pros')
Wait(100+random(100))
Repeat
Wait(500)
Until (TalkTo)
Wait(100+random(100))
TalkToTut(9191559,10)
Wait(100+random(100))
ClickMiniArrow;
Flag;
FindObj(x,y,'Mine',5263446,10)
Mouse(x,y,0,0,True)
Repeat
Wait(500)
Until(TalkTo)
Wait(100+random(100))
ClickMiniArrow;
Flag;
FindObj(x,y,'Mine',3294041,10)
Mouse(x,y,0,0,True)
Repeat
Wait(500)
Until(TalkTo)
Wait(100+random(100))
ClickMiniArrow;
Flag;
ClickItemBmpTol(TinOre,10,True)
Wait(100+random(100))
Repeat
Wait(25)
Until(FindMainColor(x,y,1451660,10,True))
Mouse(x,y,2,2,True)
Wait(2000+random(1000))
TalkToTut(9191559,10)
Wait(100+random(100))
ClickMiniArrow;
Flag;
MakeCompass('N')
Wait(100+random(100))
ClickItemBmpTol(BronzeBar,10,True)
Wait(100+random(100))
FindMainColor(x,y,2763308,10,True)
Mouse(x,y,0,0,True)
Wait(1000+random(1000))
FindBitMapTol(x,y,Dagger,MSX1, MSY1, MSX2, MSY2)
mouse(x,y,2,2,true)
Wait(3000+Random(3000))
ClickMiniArrow;
Flag;
DropAllBmps;
End;

Procedure WalkToFightTut;
Begin
MakeCompass('E')
Wait(100+Random(100))
FindObj(x,y,'Open',8421770,10)
Mouse(x,y,0,0,True)
Wait(100+Random(100))
MakeCompass('N')
Wait(100+Random(100))
end;

Procedure EnterPen;
Begin
ClickMiniArrow;
MakeCompass('W')
FindObj(x,y,'Open',7040117,10)
Mouse(x,y,3,3,True)
End;

Procedure ExitPen;
Begin
FindColorTolerance(x,y,241,MMX1, MMY1, MMX2, MMY2,3)
Mouse(x,y,2,2,True)
MakeCompass('W')
FindObj(x,y,'Open',7040117,10)
Mouse(x,y,3,3,True)
End;

Procedure FightRat;
Begin
FindObj(x,y,'Attack',8950419,10)
Mouse(x,y,3,3,True)
Wait(300+random(300))
Repeat
Wait (1000+Random(1000))
Until Not (FindFight)
End;

Procedure TheCombatInstructor;
Begin
LoadBmp('Sword')
LoadBmp('Shield')
LoadBmp('Dagger')
LoadBmp('Bow')
loadBmp('Arrow')
TalkToTut(7247298,10)
Wait(100+Random(100))
GameTab(5)
Wait(100+Random(100))
Mouse(651,431,5,5,True)
Wait(100+Random(100))
ClickItemBmpTol(Dagger,10,True)
mouse(x,y,2,2,true)
Wait(100+Random(100))
TalkToTut(7247298,10)
Wait(100+Random(100))
GameTab(5)
ClickItemBmpTol(Dagger,10,True)
mouse(x,y,2,2,true)
Wait(100+Random(100))
GameTab(4)
ClickItemBmpTol(Sword,10,True)
mouse(x,y,2,2,true)
Wait(100+Random(100))
ClickItemBmpTol(Shield,10,True)
mouse(x,y,2,2,true)
Wait(500+Random(500))
GameTab(1)
Wait(100+Random(100))
EnterPen;
FightRat;
ExitPen;
Wait(100+Random(100))
TalkToTut(7247298,10)
Wait(100+Random(100))
GameTab(4)
ClickItemBmpTol(Bow,10,True)
mouse(x,y,2,2,true)
Wait(100+Random(100))
ClickItemBmpTol(Arrow,10,True)
mouse(x,y,2,2,true)
Wait(500+Random(500))
MakeCompass('N')
FindObj(x,y,'Attack',7371129,10)
Mouse(x,y,0,0,True)
Repeat
Wait(1000+random(1000))
Until (findbitmaptolerancein(minimaparrow,x,y,564,7,721,60,10))
ClickMiniArrow;
Wait(100+Random(100))
FindObj(x,y,'Climb-up',2511215,10)
Mouse(x,y,0,0,True)
Repeat
Wait(500)
Until not (GetColor(708, 101) = 0)
DropAllBmps;
End;

Procedure BankTut;
Begin
ClickMiniArrow;
FindObj(x,y,'Use Ba',608095,10)
Mouse(x,y,0,0,True)
Repeat
Wait (500+random(500))
Until (TalkTo)
ClickNpcChatText('Yes')
Wait(1000+Random(1000))
ClickMiniArrow;
MakeCompass('E')
Wait(100+Random(100))
FindObj(x,y,'Open Doo',2122111,10)
Mouse(x,y,0,0,True)
Wait(100+Random(100))
TalkToTut(13948122,60)
Wait(100+Random(100))
FindObj(x,y,'Open',2388885,10)
Mouse(x,y,0,0,True)
Wait(500+Random(500))
End;

Procedure Monk;
Begin
Mouse(710,76,2,2,True)
Flag;
Wait(100+Random(100))
ClickMiniArrow;
If FindObj(x,y,'Open Large',2254726,10) then
   begin
   Mouse(x,y,0,0,True)
   Flag;
   End;
Wait(100+Random(100))
TalkToTut(7576521,10)
Wait(100+Random(100))
GameTab(6)
Wait(100+Random(100))
TalkToTut(7576521,10)
Wait(100+Random(100))
GameTab(8)
Wait(500+Random(500))
GameTab(9)
Wait(100+Random(100))
TalkToTut(7576521,10)
Wait(100+Random(100))
ClickMiniArrow;
MakeCompass('S')
Wait(100+Random(100))
FindObj(x,y,'Open',1724264,10)
Wait(100+Random(100))
End;

Procedure Wizard;
Begin
Mouse(616,44,3,3,True)
Flag;
Wait(100+Random(100))
Mouse(613,85,3,3,True)
Flag;
Wait(100+Random(100))
TalkToTut(9724177,10)
Wait(100+Random(100))
GameTab(7)
Wait(100+Random(100))
TalkTo;
Wait(2000+Random(2000))
ClickMiniArrow;
Wait(100+Random(100))
PerfectNorth;
Wait(100+Random(100))
GameTab(7)
Mouse(590,227,0,0,True)
FindMSColorTol(x,y,595305,5)
Mouse(x,y,0,0,True)
Wait(500+Random(500))
TalkToTut(9724177,10)
Wait(100+Random(100))
ClickNpcChatText('Yes')
Repeat
Wait(100+Random(100))
Until (TalkTo)
End;

Procedure FinalMessage;
Begin
Writeln ('  _ (.".) _')
Writeln (' `-"/. .\`-"')
Writeln ('   ( o o )     We made it to Lumbridge')
Writeln ('    `"-"`')
Writeln ('                   Happy Macroing!!!')
Writeln ('                   ~Love Faith')
End;

begin
Setup;
DeclarePlayers;
CurrentPlayer := StartPlayer;
TutLoginPlayer;
RanClothes;
RunescapeGuide;
FindFishTut;
WalkToCook;
CookTut;
WalkToQuestTut;
QuestTut;
WalkToMiningTut;
SetBright;
TheMiningInstructor;
WalkToFightTut;
TheCombatInstructor;
BankTut;
Monk;
Wizard;
FinalMessage;
end.

——————————————————

wow nice job….look good….musta taken long time to get those pixy people right lol…but you got a yes from me…very nice script works perfect for me =)

You know what dude, get a life
its people like you who really piss me off
Why don't you just take the time to learn and script? Its actually fun and easy.
Its sad to see you want to get out SRL Member scripts so bad that you would copy another persons script. We get enough of these as it is and trust me, i don't let ANY by.

I read script, search for similar scripts and compare.
and omg! Look what i found -.-
http://villu-reborn.com/showthread.php?t=5427&highlight=tutorial

I know you must've read loads of paragraphs like this everyday, so i'll try and make this as short and sweet as possible. My name is Faith, i am 15yo. I'd like to join the SRL member. Since this is such a nice forum, i've learn so much of it, i want to contribute. I will help as many people as possible, and i will be cheerful as usual. I have wrote aryan scripts before, and i've just started Scar. I think it's working quite well for me, as i find it really easy. I will use my privilege as a member to learn even more, and it'd be a benifit for everyone =)

This BS sickens me…

May the SRL Gods smite you and shall you NEVER get accepted into SRL member.

Once you leech a script and try to pass it on your own its even harder to get in.
Next time you apply (with your own script hopefully) im going to have to grade it harder than i normally do.
You have been here for less than a month and already you are creating a bad image.

Not a smart move dude, not a smart move….

Yohojo, good you found that out.

And I say NO. Yeah, script is great, but its not yours script.

Wow thats really sad. You didnt even bother to change some things around. Learn how to script and saying BS in your paragraph. For now and maybe next time I vote a No

This is why I never vote before yoho looks at the script lol

Score := Score + 1 for the anti leecher-noob team :D

The Leecher - Noob cup is coming, im working on it now. ;)

Score := Score + 10 for the anti leecher-noob yohojo =)
I really want a special title!
I pwn at finding these damn copiers! =)
ME and rofuken rock

aw yeah! Special cup for us plox? :D

Ruroken + YoHoJo = Anti Leech - Noob Team

:eek: im shocked! please change my vote to NO :fiery: :mad:

:duh: *slams head into wall* i feel so stupid

noobs these days…(shakes head) cant trust any of em…

Closed. Thanks for pointing that out, Yoho You will hence forward be titled CopyBuster.