SRL Archive - Archive

Examples of Me Helping out the community:
http://www.villavu.com/forum/showthread.php?t=5828?t=6711 <— Ultamite Tutorial Guide (From Zero To Hero)

LOL Sry For Multi Posts Tryed to delete but i could find how to just answered every1's Questions(And I Would Like to know who voted no :p)((Pwnaz0r Decides to pursue this quest until he finds the traitor))



sry for the exclaimation marks lol i hadta make sure people see that





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

What is the meaning to life?


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


Programming Knowledge
Basic

Other Communitys
none

How Long have You Played Runescape
3 years

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

Im good hard working and i learn fast..
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
A few more tweaks
Forms
TreeFinding(whileCutting)so it doesnt keep clicking over and over
And Lost Procedure

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

///////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
///////////////////////////                  //////////////////////////////
//////////////////////////      ///////     ///////////////////////////////
/////////////////////////      ///////     ////////////////////////////////
////////////////////////      ///////     /////////////////////////////////
///////////////////////                  //////////////////////////////////
//////////////////////      ///////////////////////////////////////////////
/////////////////////      ////////////////////////////////////////////////
////////////////////      /////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
//Start At SouthernMost Booth in draynor Bank//////////////////////////////
///////////////////////////////////////////////////////////////////////////
//Axe in First Slot////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
//Try To Make it Highest Angle perfect north although it will "north" itself
////////////////////////////////////////////////////////////////////////////
//Fill in Players And Go////////////////////////////////////////////////////


program WoodCutter;
{.include srl/srl.scar}
{.include srl/srl/misc/DraynorColorFinder.scar}
{.include srl/srl/skill/woodcutting.scar}

var Tx, Ty, Spot, AXEX, AXEY : integer;

var
  TreeArray : Array [1..3] of integer;
  BankBanker, WalkedToDray, Banked : integer;
  
Procedure PZDeclarePlayers;
begin
     HowManyPlayers  :=3;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;

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

     Players[1].Name :='';
     Players[1].Pass :='ourpass';
     Players[1].Nick :='urna';
     Players[1].Loc  :='yourloc';
     Players[1].Active:=True;

     Players[2].Name :='yourname';
     Players[2].Pass :='yourpass';
     Players[2].Nick :='urna';
     Players[2].Loc  :='yourloc';
     Players[2].Active:=True;
end;

Procedure PZLogin;
begin
  If(not(LoggedIn))then
    begin
    ActivateClient;
    LoginPlayer;
    end;
end;

Procedure PZSetup;
begin
  PZLogin;
  FindAxeHeadColor;
  Mmouse(363, -128,0,0);
  Mouse(x,y,0,0,true)
  PerfectNorth;
  KeyDown(VK_UP);
  wait(3000);
  KeyUp(VK_UP);
end;

function PZFindHead: Boolean;
var
  Tries, x, y: Integer;
  hStart: Boolean;
begin
  GameTab(4);
  Result := True;

  If(FindChatText('You do not have an axe'))then
  begin
    if ((EquipAxe = False) and
      not (GetColor(590, 220) = Head) or
      not (GetColor(587, 219) = Head2) or
      not (GetColor(588, 218) = Head3)) then
      hStart := True;
    if (EquipAxe) then
    begin
      GameTab(5);
      Wait(200 + Random(200));
      if not (GetColor(597, 294) = Head) or
        not (GetColor(600, 295) = Head2) or
        not (GetColor(599, 298) = Head3) then
      begin
        hStart := True;
        Mouse(592, 297, 2, 2, True);
        Wait(1000);
      end;
    end;
  end;
  if (hStart = True) then
  begin
    Result := False;
    Tries := 0;
    repeat
      if not LoggedIn then
        begin
        PZLogin;
        end;
      if not (FindObjMulti('ake', Head, Head2, Head3, 5)) then
      begin
        Tries := Tries + 1;
        WriteLn('Axe head not found. Taken ' + IntToStr(tries) + ' tries');
        Status('Axe Head not found - Rotating Screen');
        KeyDown(VK_LEFT);
        Wait(1000 + Random(1000));
        KeyUp(VK_LEFT);
        Wait(400 + Random(300));
        if not FindObjMulti('Take', Head, Head2, Head3, 5) then
        begin
          Status('Axe Head not found - Moving to Red Dot');
          x := 648;
          y := 83;
          FindColorSpiral(x, y, 241, 570, 5, 725, 155)
            Mouse(x + 3, y + 3, 2, 2, True);
          Flag;
          Wait(500 + Random(300));
        end;
      end;
      if FindObjMulti('Take', Head, Head2, Head3, 5) then
      begin
        Status('Found Axe Head');
        WriteLn('Axe head was found.  Picking it up');
        Wait(450 + Random(400));
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        Flag;
        Wait(500 + Random(300));
      end;
    until (tries > 9)or(not(tries > 9))
     If(not(tries > 9)) then
      if (AttachHead) then
        Result := True;
  end;
end;

function WalkToDraynor : boolean;
var TempRoadColor, BX, BY : integer;
begin
SymbolAccuracy := 0.8;
TempRoadColor := FindRoadColor;
MakeCompass('N');
wait(1000);
RadialWalk( TempRoadColor , 78, 99, 68, 0, 0);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialWalk( TempRoadColor , 307, 341, 58, 0, 0);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialWalk( TempRoadColor , 287, 311, 70, 0, 0);
wait(2000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 327, 359, 59, 0, 0);
wait(1000);
flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 353, 381, 59, 0, 0);
wait(1000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 337, 379, 59, 0, 0);
wait(1000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 264, 291, 60, 0, 0);
wait(1000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 291, 315, 65, 0, 0);
wait(1000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 246, 295, 38, 0, 0);
wait(1000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 288, 319, 63, 0, 0);
wait(1000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 275, 301, 60, 0, 0);
wait(1000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 278, 296, 61, 0, 0);
wait(1000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 242, 269, 52, 0, 0);
wait(1000);
Flag;
RadialRoadWalk((TempRoadColor), 177, 206, 57, 0, 0);
wait(1000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 194, 219, 60, 0, 0);
wait(1000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 163, 196, 53, 0, 0);
wait(1000);
Flag;
TempRoadColor := FindRoadColor;//For failsafe
RadialRoadWalk((TempRoadColor), 227, 249, 49, 0, 0);
wait(1000);
Flag;
FindSymbol(BX,BY,'bank');
MMouse(BX,BY,0,0);
Mouse(BX,BY,0,0,true);
  result := true;
  Writeln(' Walked To draynor ');
end;

function PZRandoms : Boolean;
var
  i: Integer;
begin
  for i := 1 to 16 do
  begin
    case I of
      1: CloseWindow;
      2: if FindTalk then
          Result := True;
      3: if FindDead then
          WalktoDraynor;
      4: if FindMod then
          Result := True;
      5: if FindMime then
          Result := True;
      6: if FindMaze then
          Result := True;
      7: if FindQuiz then
          Result := True;
      8: if FindDemon then
          Result := True;
      9: if FindScapeRune then
          Result := True;
      10: if FindTalk then
          Result := True;
      11: if FindLamp(Players[CurrentPlayer].Skill) then
          Result := True;
      12: if (FindNewBox) then
          begin
            Result := True;
            if (UseBoxSolver) then
              SolveBox
            else
              LogOut;
              NextPlayer(False);
              Players[CurrentPlayer].loc := ' Boxes in inv ';
          end;
      13: if FindTrade then
          Result := True;
      14: if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
      15: if (FindFight) then
          begin
            result := true;
            RunAwayDirection(Players[CurrentPlayer].String3);
            Wait(5000 + Random(2500));
            RunBack;
          end;
      16: SRLRandomsReport;
    end;
    Wait(1);
  Begin
    For i := 0 to 1 do
    Begin
      Case i of
        0: PZFindHead;
        1: FindBirdsNest;
      end;
    Wait(1);
    end;
   end;
  end;
end;

Function HomeTeleport:Integer;
begin
  wait(200);
  GameTab(7);
  wait(900);
  MMouse(577,238,2,2);
  wait(3000);
  SetRun(True);
  SetRun(False);

  If(not(FindChatText('ou need to wait')))then
  begin
    result := 0;
    exit;
  end;
  If(FindChatText('ou need to wait'))then
    begin
      If(FindChatText('1 min'))then
        begin
          result := 1 * 60000;
        end;
      If(FindChatText('2 min'))then
        begin
          result := 2 * 60000;
        end;
      If(FindChatText('3 min'))then
        begin
          result := 3 * 60000;
        end;
      If(FindChatText('4 min'))then
        begin
          result := 4 * 60000;
        end;
      If(FindChatText('5 min'))then
        begin
          result := 5 * 60000;
        end;
      If(FindChatText('6 min'))then
        begin
          result := 6 * 60000;
        end;
      If(FindChatText('7 min'))then
        begin
          result := 7 * 60000;
        end;
      If(FindChatText('8 min'))then
        begin
          result := 8 * 60000;
        end;
      If(FindChatText('9 min'))then
        begin
          result := 9 * 60000;
        end;
      If(FindChatText('10 min'))then
        begin
          result := 10 * 60000;
        end;
      If(FindChatText('11 min'))then
        begin
          result := 11 * 60000;
        end;
      If(FindChatText('12 min'))then
        begin
          result := 12 * 60000;
        end;
      If(FindChatText('13 min'))then
        begin
          result := 13 * 60000;
        end;
      If(FindChatText('14 min'))then
        begin
          result := 14 * 60000;
        end;
      If(FindChatText('15 min'))then
        begin
          result := 15 * 60000;
        end;
      If(FindChatText('16 min'))then
        begin
          result := 16 * 60000;
        end;
      If(FindChatText('17 min'))then
        begin
          result := 17 * 60000;
        end;
      If(FindChatText('18 min'))then
        begin
          result := 18 * 60000;
        end;
      If(FindChatText('19 min'))then
        begin
          result := 19 * 60000;
        end;
      If(FindChatText('20 min'))then
        begin
          result := 20 * 60000;
        end;
      If(FindChatText('21 min'))then
        begin
          result := 21 * 60000;
        end;
      If(FindChatText('22 min'))then
        begin
          result := 22 * 60000;
        end;
      If(FindChatText('23 min'))then
        begin
          result := 23 * 60000;
        end;
      If(FindChatText('24 min'))then
        begin
          result := 24 * 60000;
        end;
      If(FindChatText('25 min'))then
        begin
          result := 25 * 60000;
        end;
      If(FindChatText('26 min'))then
        begin
          result := 26 * 60000;
        end;
      If(FindChatText('27 min'))then
        begin
          result := 27 * 60000;
        end;
      If(FindChatText('28 min'))then
        begin
          result := 28 * 60000;
        end;
      If(FindChatText('29 min'))then
        begin
          result := 29 * 60000;
        end;
      If(FindChatText('30 min'))then
        begin
          result := 30 * 60000;
        end;
    end;
   DisguiseScar(' You Have To Wait ' + inttostr(result) + ' ms ');
end;

procedure HTP;
begin
If(HomeTeleport=0)then
  exit;
Logout;
Wait(HomeTeleport);
LoginPlayer;
wait(200);
  GameTab(7);
  wait(900);
  MMouse(577,238,2,2);
WalkToDraynor;
end;

function AreWeInDraynor : boolean;
begin
If(FindDraynorColors)then
  begin
    result := true;
  end;
If(not(FindDraynorColors))then
  result := false;
end;
  
procedure SetUp;
begin
If(AreWeInDraynor=true)then
  begin
  SetChat('Hide',1);
  MakeCompass('N');
  end;
If(AreWeInDraynor=false)then
  begin
    Writeln( ' We are not in Draynor ');
    NextPlayer(false);
  end;
end;

Procedure WalkToWillows;
var
  TempWater : integer;
begin
tempWater := FindDraynorWaterColor;
  RadialWalk( TempWater , 185, 226, 68, 0, 0);
  Flag;
end;

procedure WalktoBank;
var
  BSX , BSY, BAX , BAY : integer;
begin
SymbolAccuracy := 0.5;
FindSymbol(BSX,BSY,'bank');
MMouse(BSX-7,BSY+10,0,0);
FindColorFromCentre(BAX,BAY,BSX-7,BSY+10,(BankColor),30,60);
MMouse(Bax+4,BAY,0,0);
Mouse(x,y,0,0,true);
end;

function inbank:boolean;
var bank : integer;
begin
  bank := BitmapFromString(127, 1, 'z78DA33B13076353636A13F69' +
       '6962606C320024A64BCC8C5D8C8D0890C32F1C880999619D1E006' +
       '97A9F43');
  result := false;
  wait(1000);
  If(FindBitMap(bank,x,y))then
    begin
      result := true;
    end;
end;

procedure LoadBankerBitmap;
begin
  BankBanker := BitmapFromString(82, 16, 'z78DAED57C10DC43008' +
      '5B298F46B7C0A9FB8FD46F751191C134E42AE7E107A209608469F' +
      'FF6E3F874A1502814FE399ED3531B4FFC86D62CACC9A8EE75ABB6' +
      'ED76AA181FE3616AFB9B5145CDC778F6E13AABE6FB705D5B73712' +
      'DAE77D3EBFB0C44BEE2F781F175AF9ACCF57A9611A6EFDE7D607C' +
      '3D763FE319D36BC61F61D0DB75BC5E33FE088378D765456255293' +
      '6C3916980F786E5EF659999E1C834C019B1FCF1D982448EB31CE3' +
      '9AE1CE6B8FFD0B64558CBF27571D903990BB9BADB7337A9DC551A' +
      'EDDAB26DE39B066375BD3032B77B3353D10DBFD621B7E9B1EFEAB' +
      'A7EDEFCB888F442814BE152F917DD672');
end;

function BankDraynor : boolean;
var
Array1 : array [1..6] of integer;
m : integer;
G, u : integer;
ER : integer;
Array2 : array [1..7] of integer;
Wooo : integer;
Bx, By : integer;
Q : integer;
begin
wait(2000);
If(BankScreen)then
   begin
   result := true;
   exit;
   end;


Array1[1] := 7040116;
Array1[2] := 7960963;
Array1[3] := 6184550;
Array1[4] := 6645101;
Array1[5] := 7040116;
Array1[6] := 6776687;

Array2[1] := 6061196;
Array2[2] := 606550;
Array2[3] := 6059910;
Array2[4] := 605777;
Array2[5] := 5591128;
Array2[6] := 3888490;
Array2[7] := 4544875;

repeat
MakeCompass('W');
G := G + 1;
for u := 1 to 7 do
If(FindColorFromCentre( x , y, 271, 133, Array2[u],70,10))then
   begin
     repeat
     Q := Q + 1;
     Mouse(x,y,0,0,false);
     ChooseOption(x,y,'uickly');
     Flag;
     wait(4000);
     If(BankScreen)then
       begin
         MakeCompass('N');
         result := true;
         exit;
       end;
     until(BankScreen)or(Q = 2)
   end;
until(G = 6);

repeat
wooo := wooo + 1;
for m := 1 to 6 do
If(FindColorSpiral(Bx,By,Array1[m],10,10,513,337))then
   begin
   repeat
   ER := ER + 1;
   MMouse(BX,BY,0,0);
   Flag;
   Wait(4000);
   Mouse(BX,BY,0,0,false);
   LoadBankerBitmap;
   If(findBitMap(BankBanker, BX, By))then
     begin
     MMouse(Bx,By,0,0);
     Mouse(x,y,0,0,true);
     If(BankScreen)Then
       begin
       MakeCompass('N');
       result := true;
       exit;
       FreeBitMap(BankBanker);
       end;
     end;
   until(ER = 5)
   end;
until(wooo = 6);
   result := false;
end;

function PZ : integer;
begin
  result := 29 + random(300);
end;

function DepositLogs : boolean;
var
  Lx , Ly : integer;
begin
  result := true;
  BankDraynor;
  If(InBank)then
    begin
    repeat
    wait(2000);
    FindItemName('Willow logs');
    GetMousePos(Lx,LY);
    Mouse(Lx,Ly,0,0,false);
    wait(600);
    ChooseOption(x,y,'X');
    wait(1200);
    SendText(IntToStr(PZ) + Chr(13));
    Mmouse(Lx,Ly,0,0);
    until(Not(IsUpText('illow')))
    CloseBank;
    end;
    Banked := Banked + 1;
end;

function AxeBroken : boolean;
begin
If(FindItemName('axe'))then
  begin
  result := false;
  Spot := 1;
  GetMousePos(AXEX, AXEY);
  If(IsUpTextMulti('roken','eadless','Broken'))then
    begin
      result := true;
      Exit;
    end;
  end;
  GameTab(5);
  MMouse(592,303,0,0);
  If(IsUpTextMulti('axe','xe','roken'))then
    begin
    Spot := 2;
    GetMousePos(AXEX, AXEY);
    If(IsUpTextMulti('roken','eadless','Broken'))then
      begin
        result := true;
        Exit;
      end;
    end else
    result := false;
end;

procedure BankNewAxe;
begin
  BankDraynor;
  Flag;
  If(FindItemName('illow logs'))then
    Begin
      Mouse(x,y,0,0,false);
      wait(600);
      ChooseOption(x,y,'X');
      SendText(IntToStr(PZ));
    end;
  If(Spot = 2)then
    begin
      CloseBank;
      Wait(2000);
      GameTab(5);
      MMouse(AXEX,AXEY,0,0);
      Mouse(AXEX,AXEY,0,0,true);
    end;
  If(FindItemName('axe'))then
    begin
      GetMousePos(AXEX, AXEY);
      Mouse(AXEX,AXEY,0,0,true);
    end else
      begin
        Writeln(' Something wrong Next Player');
        Players[CurrentPlayer].Loc := ' Something wrong with axe';
        LogOut;
        NextPlayer(false);
      end;
  Wait(2000);
  MMouse(419,75,0,0);
  If(not(IsUpTextMulti('xe','axe','ronze')))then
    begin
      Writeln(' Something wrong Next Player');
      Players[CurrentPlayer].Loc := ' Something wrong with axe';
      LogOut;
      NextPlayer(false);
    end;
  WalkToWillows;
end;


    
    

function HandleAxe : boolean;
begin
If(AxeBroken = true)then
  begin
  BankNewAxe;
  end;
end;


procedure SetUpArrays;
begin
  TreeArray[1] := 4886656;
  TreeArray[2] := 2785392;
  TreeArray[3] := 3174496;
end;

function FindTree( TreeColor : integer; TreeName : string; MaxTolerance : integer) : boolean;
var yyyyy, CurrentTol : integer;
begin
  CurrentTol := 10;
  repeat
  HandleAxe;
  for yyyyy := 1 to 3 do
  If(FindColorFromCentre(TX, TY, 282,163,TreeArray[yyyyy],100,CurrentTol))then
    begin
    wait(600);
    MMouse(TX, TY, 0, 0);
    If(IsUpTextMulti(TreeName,'illow','hop'))then
      begin
        result := true
        Exit;
      end;
    end;
  for yyyyy := 1 to 3 do
  If(FindObj3(TX, TY, TreeName, TreeArray[yyyyy], CurrentTol))then
    begin
    wait(600);
    MMouse(TX, TY, 0, 0);
    If(IsUpTextMulti(TreeName,'illow','hop'))then
      begin
        result := true
        Exit;
      end;
    end;
  CurrentTol := CurrentTol + 10;
  until(CurrentTol = MaxTolerance)or(CurrentTol >MaxTolerance)
  If(CurrentTol = MaxTolerance)or(CurrentTol >MaxTolerance)then
    begin
     result := false;
     Writeln(' Could Not Find Tree ');
     TerminateScript;
    end;
end;

function IsTreeThere : boolean;
begin
  Flag;
  MMouse(TX,TY,0,0);
  If(IsUpTextMulti('illow','hop down', 'Chop'))then
    begin
      //PZEntFinder;
      repeat
      wait(300);
      until(not(IsUpTextMulti('illow','hop down', 'Chop')))
    end;
end;



function ClickTree : boolean;
var Click : integer;
begin
  SetUpArrays;
  If(FindTree(0,'Willow',80)=true)then
    begin
    If(IsFKeyDown(4))then
      begin
      TerminateScript;
      end;
    Click := random(2);
    Case Click of
    0 : begin
          Mouse(TX,TY,0,0,true);
        end;
    1 : begin
          Mouse(Tx,Ty,0,0,false);
          wait(600);
          ChooseOption(x,y,'hop');
        end;
    end;
    wait(1000);
    If(FindChatText('ou swing'))then
      begin
        result := true;
        PZRandoms;
        Exit;
      end;
    If(FindChatText('ou need'))or
      (FindChatText('ou do not'))then
      begin
        result := false;
        Writeln(' Something is wrong with your axe or ');
        Writeln(' With your woodcutting player        ');
        Writeln(' Next     Player                     ');
        //Players[CurrentPlayer].Loc := ' Cannot Use Axe ';
        LogOut;
        NextPlayer(false);
      end;
    end;
end;

function WillowInvFull : boolean;
begin
  Gametab(4);
  MMouse(710,446,1,1);
  If(IsUpTextMulti('illow logs','se', 'Use'))then
    begin
      result := true;
    end else
      result := false;
end;



Procedure CutTrees;
begin
 repeat
 If(ClickTree = true)then
   begin
   IsTreeThere;
   end;
 until(WillowInvFull = true);
end;



Procedure Report;
var
  logs : integer;
begin
  Logs := Banked * 27;
  Writeln('//---------------------------------------------------\');
  Writeln(' | Script Made By : Pwnaz0r |');
  Writeln(' | You Have Walked to Draynor ' + intToStr(WalkedToDray) + ' times. |');
  Writeln(' | You Have Banked ' + IntToStr(Banked) + ' times and |');
  Writeln(' | You Have Cut ' + IntToStr(Logs) + ' logs |');
  Writeln('\---------------------------------------------------//');
end;



begin
SetUpSRL;
Setup;
WalkToWillows;
CutTrees;
WalktoBank;
DepositLogs;
FreeBitMap(BankBanker);
Report;
end.

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

Havent really looked over this script but i just saw that the waiting to tele function could be shortened lots by using a for loop. I havent tested this but it should work:
Declare i as a integer

  If(not(FindChatText('ou need to wait')))then
  begin
    result := 0;
    exit;
  end;
  If(FindChatText('ou need to wait'))then
    begin
      for i:=1 to 30 do
        If(FindChatText(IntToStr(i)+' min'))then
        begin
          result := i * 60000;
        end
      end
    end
   DisguiseScar(' You Have To Wait ' + inttostr(result) + ' ms ');
end;

Lots shorter :P
Why doesnt anyone that applies to SRL use loops to shorten their code!!!!!! very annoying!!!

Other then that it looks like a good script. Although you say someone wrote the procedures first so maybe yohojo (copy buster) can look at this =)

If it is yours, nice.

One thing, StrToInt and IntToStr are nice functions,
try experimenting with them. :)

From: danrox2004

  If(not(FindChatText('ou need to wait')))then
  begin
    result := 0;
    exit;
  end;
  If(FindChatText('ou need to wait'))then
    begin
      for i:=1 to 30 do
        If(FindChatText(IntToStr(i)+' min'))then
        begin
          result := i * 60000;
        end
      end
    end
   DisguiseScar(' You Have To Wait ' + inttostr(result) + ' ms ');
end;

You can do it alot shorter. ;)
With pos, and between.

Function GetChatMessage: String;

Begin
  Result := Trim(GetTextAtEx(20, 415, 0, SmallChars, False,
    False, 0, 1, 0, 80, False, tr_AllChars));
  WriteLn(Result);
End;

Function GetMins: Integer;

Begin
  If Pos('another', GetChatMessage) <> 0 Then
    Result := 60000 * StrToInt(Trim(Between('another', ' minutes', GetChatMessage)))
  Else Result := 0;
End;

Heh! Nice I have never used pos or between before. Never even knew they existed :(

Ok, i'm voting yes since i know this works almost 100% :P.

Only one thing i saw:

[php]
function AreWeInDraynor : boolean;
begin
If(FindDraynorColors)then
begin
result := true;
end;
If(not(FindDraynorColors))then
result := false;
end;[/php]

Can't you just do:

[php]
function AreWeInDraynor : boolean;
begin
If(FindDraynorColors)then
begin
result := true;
else
result := false;
end;[/php]

yeah well like i said every1 i had to rush through alot of stuff like tele lummy i alkready had that made.. Will fix everythign when i come home from skewl today!!

Actually

function AreWeInDraynor : boolean;
begin
  If(FindDraynorColors)then result := true;
end;

And theres no point in that, so just say FindDraynorColors wherever you call AreWeInDraynor.

Is this fully made by u? I thought i saw something familiar from some other scripts, but not sure… Ill have a closer look and vote later.. As one thing that made the procedures and functions seem like theyre made by different people was the style of them (only the spaces.. Some parts have barely and and others just have kinda "different styles in them"..) But still ill vote laters..

yes, i am withholding my vote untill i have taken a closer look at all the WCing scripts….i think YoHo will do the same.

Edit:

Apparently he did it all, sorry for the misunderstanding ;).

no hey321 none of it is yours the only thing you gave me was the walking procedure to and from the bank i made everything 100% on my own!!!

You know that hey plz dnt say you helped me when you didn't on my procedures
(not being mean in any way)
just saying i made all of those 100% alone

Ooooooh! I though they were just my procedures edited! Then definetly yes!

Well i had everything ready, the forms, the axe replacer, and the istreethere all finsihed and whole script ready and failproof then bank "Program not responding" in the middle of testing so the mouse wouldnt stop moving and for liek 10 minutes i tryed to get it to stop and save it but i couldnt. I will try and get it back up as fast as i can…

From: Boreas
Actually

function AreWeInDraynor : boolean;
begin
  If(FindDraynorColors)then result := true;
end;

And theres no point in that, so just say FindDraynorColors wherever you call AreWeInDraynor.

Yeah Well i slapped this in there last nite and i made it along time ago in my lumbridge chopper that i never got finished so thought hey why mess with it :)

From: GoF
Is this fully made by u? I thought i saw something familiar from some other scripts, but not sure… Ill have a closer look and vote later.. As one thing that made the procedures and functions seem like theyre made by different people was the style of them (only the spaces.. Some parts have barely and and others just have kinda "different styles in them"..) But still ill vote laters..

yeah it may seem like that sry.. see im not very neat when it comes to scripting ,but i put my hand on the srl manual and swear that this is entirely my script;
anyways if you dont believe me then i will prove it in the way of you're choosing

From: Wizzup?
If it is yours, nice.

One thing, StrToInt and IntToStr are nice functions,
try experimenting with them. :)



You can do it alot shorter. ;)
With pos, and between.

yeah i know but see i got this from my woodcutting script i made for lummy awhile back that i never really got finished and this was late last nite i added this so i didnt really wanna mess with it

You cannot delete posts…

You should add some credits in the beginning of your script. (yourself and your friend that you said helped)

no he didnt help originally, We were making it together( me and hey321 ) and
he worked on some of the walking procedures but i did walk to draynor, cutting, banking, and antirandoms, and then he hadta go so so i discussed it with him and i decided to make my own procedures for it to post on my app then go ahead and work with him to produce a public version
,

Look down one..

sry for like triple post :p but my application has been going on for three days now and at one time i had 5 yes's and 1 no, how long do you have to wait on average?

Until someone with 'the power' says so. Which is usually about a week.

alrighty then

its an yes from me.

Whoo just need one more yes comeon :p ill be a good SRL member, helping and stuff

u know scripting atleast! if u did all those procedures/functions by ur self.

function doublepostcheck;
begin
if pwnaz0r < 2 then
begin
writeln('pwnaz0r has double posted')
result:= true;
end;
end;

:(!

in.