SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
S.C.A.R , HTML a lil bit of Pascal

Other Communitys
Sythe(scammers),Moparisthebest,SRL e.t.c

How Long have You Played Runescape
7 months

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

I'm 15 yrs old and i used to script in squig i had applied before. I have made a few scripts before and i would like to paste 2 scripts, The latter one 'SWill0wz_' is one that i havent updated yet.

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

program AutoYewz;
{.include srl/srl.scar}
{.include SRL/SRL/skill/WoodCutting.scar}

//----------------------------------------------------------------------------//
//---> Variables                                                              //
//----------------------------------------------------------------------------//

var
  BrokenAxeMask, AxeMask, x, y, Yew_LogMask, Tries: integer;
  LoadsB, LogsChopped, DeathsAvoided, lol: integer;
  Steel_Axe, Rune_Axe, Addy_Axe, Mith_Axe: integer;
  Chat, Axe, position: string;


procedure LoadVars;
begin;


  AxeMask := DTMFromString('78DA635465606058CA800618914820AD09245' +
    '613500332671D01350A4062150135D244B84703482C23A0461248' +
    'ACC5AF06001A0805A5');

  BrokenAxeMask := DTMFromString('78DA6354616060906040038C0CFFC12403C37' +
    'F20605407326430D52048200D52A348400DC82E79026A1480842C' +
    '01359A404212BF1A005BE90697');

  Rune_Axe := DTMFromString('78DA639CCEC4C0F09401051485F1318800694' +
    '620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035F751' +
    'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03');

  Addy_Axe := DTMFromString('78DA6374606060686440014D497C0C22409A1' +
    '188FF0301A337905187AAC6C6D786810BAA0604187D804415AA1A' +
    '7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8');

  Mith_Axe := DTMFromString('78DA633CC4C4C010C0C8800C5A53F81852803' +
    '448F43F10309E05AAF14155636111CCC0055503028CE7816A5C51' +
    'D5D839C4A2AA3981A9C6C52D0D450D0061FC0C64');

  Steel_Axe := DTMFromString('78DA63CC636260D8C3C8800C5A53F81852803' +
    '448F43F10305602D5EC4055939B9ACAC0055503028CD540351B51' +
    'D594E5E5A2AA29C154D3545989A20600C3BC0E32');

  Yew_logMask := DTMFromString('78DA63CC656260E0646440063E969C601A26C' +
       'A98C284C483014654352540357F19F0ABA900AA1120604E1A508D' +
       '280135B14035BC04D49403D5B0E1570300088D04EC');

end;
//----------------------------------------------------------------------------//
//---> Setup                                                                  //
//----------------------------------------------------------------------------//

const
  Direction = 'W'; // direction to run if in case of fight?
  Mask = 'Norton Anti-Virus'; //what you want scar to desguise it's self as?
  Loads = 2; //how many loads for each player?
  GetBesAxe = 'Rune'; // case of losing your axe :P must have axe on you in bank
                       // Choose from : Addy, Rune, Mith, Steel.
//-----------------------------------------------------------------------//
//---> Version Number No touching                                        //
//-----------------------------------------------------------------------//

  VersionNumber = '0.1'; //leave this alone!

//----------------------------------------------------------------------------//
//---> Setup Players                                                          //
//----------------------------------------------------------------------------//

procedure DeclarePlayers;
begin
  Disguise(Mask);
  getapplication.MINIMIZE;

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


  Players[0].Name := 'Sammy '; //Your Username.
  Players[0].Pass := 'Witch9'; // Your Password.
  Players[0].Nick := 'ammy'; // 3-4 letters from your name.
  Players[0].Active := True; //True = Use player, False = Don't use.
  Players[0].pin := 0000; //pin in here if you dont have dont touch!

  Players[1].Name := ''; //Your Username.
  Players[1].Pass := ''; // Your Password.
  Players[1].Nick := ''; // 3-4 letters from your name.
  Players[1].Active := True; //True = Use player, False = Don't use.
  Players[1].pin := 0000; //pin in here if you dont have dont touch!


  writeln(inttostr(HowManyPlayers) + ' Players');
end;

//----------------------------------------------------------------------------//
//---> SuperScripter's Auto Responder                                         //
//----------------------------------------------------------------------------//

procedure SSAutoRespond;
begin
  if InChat('lol') then
  begin
    case Random(19) of
      2: TypeSend('...')
        5: TypeSend('Lil')
        8: TypeSend('contento')
        13: TypeSend('Hehe')
        15: TypeSend('funy')
        17: TypeSend(':)')
        19: TypeSend('wave:zzzzzz')
    end;
    if InChat(Players[CurrentPlayer].Nick) then
    begin
      case Random(7) of
        2: TypeSend('!!!');
        5: TypeSend('No me gusta ingles'); // <-- SPanish :p
        7: TypeSend('Estoy Trieste'); // some more spanish :D
        9: Typesend('chicos verqueros')
      end;
    end;
  end;
end;

//----------------------------------------------------------------------------//
//---> Find Fast Randoms!!!!                                                  //
//----------------------------------------------------------------------------//

function FindFastRandoms: Boolean; //By Wt-Fakawi
var
  i: Integer;
begin
  for i := 1 to 11 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      8: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      9: begin
          if FindFight then
          begin
            RunTo(Direction, False);
            Wait(5000 + random(3000));
            Runback;
            DeathsAvoided := DeathsAvoided + 1;
          end;
        end;
      10: if FindTalk then
          Result := True;

      11: if ClickToContinue then
          Result := True;
    end;

  end;
end;

//----------------------------------------------------------------------------//
//---> Different Cutting Ways                                                 //
//----------------------------------------------------------------------------//

function DifferentTechniques: Boolean;
begin
  case Random(6) of
      1: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      2: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      3: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      4: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      5: begin
        Mouse(x, y, 1 + Random(6), 5 - Random(4), false)
          wait(200 + Random(234))
          ChooseOption('Chop')
      end;
  end;
end;

//----------------------------------------------------------------------------//
//---> AntiBan                                                                //
//----------------------------------------------------------------------------//

procedure AntiBan;
begin
  case Random(30) of
    1: HoverSkill('Random', false);
    5: AlmostLogout;
    9: HoverSkill('woodcutting', false);
    19: BoredHuman;
    25: RandomMovement;
    30: RandomRClick;
    27: PerfectNorth;
  end;
end;

//----------------------------------------------------------------------------//
//---> Banking Procedure                                                      //
//----------------------------------------------------------------------------//

Procedure NOpenBank;
Begin;
 If FindObj(x,y,'Bank',7042941,5) or
    FindObj(x,y,'booth',2900815,5) or
    FindObj(x,y,'ank boo',7767438,5) then
    Begin
      Mmouse(x,y,0,0)
        If IsUpText('Use') then
          Begin
            Mouse(x,y,0+Random(3),3-Random(2),false)
            ChooseOption('uickly')
            wait(1000+Random(3450))
          end;
         Writeln('Bank Found')
        end;
     end;
//----------------------------------------------------------------------//
//---> Depositing..                                                     //
//----------------------------------------------------------------------//

Procedure NDeposit;
  Begin
   If finddtm(Yew_LogMask,x,y,MIX1,MIY1,MIX2,MIY2) then
    writeln('found')
    Begin
      mouse(x,y,2,0+Random(2),false)
      ChooseOption('All')
      wait(300+Random(700))
    end;
  end;
//----------------------------------------------------------------------//
//---> Get Axe Head                                                     //
//----------------------------------------------------------------------//

procedure GetAxeHead;
begin
  if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin;
    writeln('Found An Axe!!')
      Axe := 'Present'
  end;
  if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
  begin
    Axe := 'Absent';
    writeln('Axe Absent')
  end;
end;

//------------------------------------------------------------------//
//---> Get Best Axe   -->  Will Get axes Up to Steel  <--           //
//------------------------------------------------------------------//

procedure GetBestAxe;
begin
  if Axe = 'Absent' then
  begin
    wait(100 + Random(200))
        NOpenBank;
      if (bankScreen) then
      FixBank;
    begin
      case GetBesAxe of
        'Rune': begin
            if (findDTM(Rune_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
              mouse(x, y, 0, 2, true)
          end;
        'Addy': begin
            if (findDTM(Addy_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
              mouse(x, y, 0, 2, true)
          end;
        'Mith': begin
            if (findDTM(Mith_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
              mouse(x, y, 0, 2, true)
          end;
        'Steel': begin
            if (findDTM(Steel_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
              mouse(x, y, 0, 2, true)
          end;
      end;
      CloseBank;
    end;
  end;
end;

//----------------------------------------------------------------------------//
//---> Waiting Procedure                                                      //
//----------------------------------------------------------------------------//

procedure WaitWhileCutting;
begin
  repeat
    FindEnt(x, y, true);
    AntiBan;
    FindFastRandoms;
    GetAxeHead;
    GetBestAxe;
    SSAutoRespond;
  until (not (IsUpText('Chop')))
end;


//----------------------------------------------------------------------------//
//---> Chop Function!!!!!!!!                                                  //
//----------------------------------------------------------------------------//

function Chop: boolean;
begin
  if FindObj(x, y, 'Yew', 1855816, 5) then
  begin
    FindFastRandoms;
    if isuptext('Chop') then
    begin
      FindEnt(x, y, true)
        mouse(x, y, 2, 2, true)
        wait(30 + Random(290))
        DifferentTechniques;
      WaitWhileCutting;
    end;
  end;
end;

//----------------------------------------------------------------------------//
//---> The walking to yewz!                                                   //
//----------------------------------------------------------------------------//

procedure WalktoYewz;
begin;
 if (not (LoggedIn)) then LoginPlayer;
  HighestAngle;
  wait(200 + Random(340))
  Makecompass('N')
  SetRun(True)
  Gametab(4);
  GetAxeHead;
  mmouse(x,y,0,2)
  GetBestAxe;
  wait(200 + Random(200))
    mouse(646, 124,0+Random(2),5-Random(4),true)
    Flag;
    If findsymbol(x,y,'Tree')then
      Begin
       mouse(x,y+10,0,0,true)
         if (flagpresent) then
           Flag;
        end;
      end;

//--------------------------------------------------//
//---> Get Position                                 //
//---> Switch Position                              //
//--------------------------------------------------//

procedure getposition;
begin
  if findsymbol(x, y, 'water') then
  begin
    position := 'North'
  end else
  begin
    position := 'South'
  end;
end;

function switchposition: boolean;
begin
  getposition;
  if position = 'South' then
  begin
    if findcolorspiraltolerance(x, y, 91905, 630, 20, 672, 67, 50) then
    begin
      mouse(x + 6, y + 5, 2, 2, true)
        flag;
      result := true
    end else
      result := false
  end;
  if position = 'North' then
  begin
    if findcolorspiraltolerance(x, y, 91905, 610, 96, 661, 150, 50) then
    begin
      mouse(x + 6, y - 5, 2, 2, true)
        flag;
      result := true
    end else
      result := false
  end;
end;

{-------------------------------------------------------------------------------}

//------------------------------------------------------------------------//
//---> The Main Bits!!!                                                   //
//------------------------------------------------------------------------//

procedure ChopDown;
begin;
  if not (loggedin) then
    Nextplayer(true);
  SetRun(false);
  gametab(4);
  HighestAngle;
  begin
    repeat
      Chop;
      if not FindObj(x, y, 'Yew', 1855816, 5) then
      if (not IsUpText('Yew'))then
        SwitchPosition;
      AntiBan;
      wait(5000 + Random(1000))
    until (invfull)
      logschopped := logschopped + 27;
  end;
end;

//--------------------------------------------------------------//
//---> Banking                                                  //
//--------------------------------------------------------------//

procedure Bank;
begin;
  if (not(loggedin))then
  NextPlayer(false);
  if (invfull) then
    begin
      GetPosition;
      if position = 'North' then
        SwitchPosition;
          if findsymbol(x, y, 'dungeon') then
            Makecompass('N');
            Mouse(x, y, 0 + Random(3), 1 - Random(1), true);
              if (FlagPresent) then
                Flag;
                SetRun(True);
                mouse(641, 32, 0, 0, true)
              if (flagpresent) then
                Flag;
                if findsymbol(x, y, 'Bank') then
             mouse(x, y, 2 + Random(1), 3 - Random(2), true);
           if (flagpresent) then
         repeat
           wait(6000 + Random(4000))
         until not (flagpresent)
          MakeCompass('E')
          LowestAngle;
          NOpenBank;
     if (PinScreen) then
    begin
      InPin(IntToStr(Players[CurrentPlayer].Pin));
        if (bankScreen) then
          begin
            Deposit(2,28,2);
            wait(1000 + Random(200))
            CloseBank
            LoadsB := LoadsB + 1;
          end;
        end;
      nd;
end;
//-------------------------------------------------------------------//
//---> My Proggie                                                    //
//-------------------------------------------------------------------//

procedure Proggie;
var
  PActive: string;
begin
  SRLRandomsReport;
  if Players[CurrentPlayer].Active then PActive := 'True' else PActive := 'False';
  Writeln('//=============== Auto  ================\\');
  Writeln('\\======== -' + VersionNumber + '- Progress Report ========//');
  Writeln('/==========================================\');
  Writeln('|      Worked for ' + TimeRunning);
  Writeln('|      Chopped ' + IntToStr(LogsChopped) + (' logs.'));
  Writeln('|      Banked ' + IntToStr(LoadsB) + (' times.'));
  writeln('|      DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.'));
  Writeln('\==========================================/');
end;

//----------------------------------------------------------------------------//
//---> The magical Main Loop                                                  //
//----------------------------------------------------------------------------//

begin
  SetupSRL
  DeclarePlayers;
  LoadVars
    proggie;
  repeat
    walktoyewz;
    proggie;
    chopdown;
    proggie;
    Bank;
    proggie;
  until (LoadsB = Loads)
    if (LoadsB = Loads) then
  begin
    writeln('Loads Done Logging out!')
      Logout;
    Nextplayer(true);
  end;
end.

{--------Main Loop Ends----------}
    {-Script Ends Here :(-}

The Next One

program SWill0wz_;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}

//----------------------------------------------------------------------------//
//---> Variables                                                              //
//----------------------------------------------------------------------------//

var
x, y, Cutn: integer;
DeathsAvoided: integer;
Loads, AxeMask: integer;
W0ot: integer;
Axe:string;


//----------------------------------------------------------------------------//
//---> Setup                                                                  //
//----------------------------------------------------------------------------//

Const
HowManyToCut=3; // How many Loads to bank;
VersionNumber='1.0'; //Do Not Touch!!!

procedure DeclarePlayers;
begin
     HowManyPlayers := 2;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer := 0;

     Players[0].Name :='potno';  //UserName in here
     Players[0].Pass :='prator'; //Password here
     Players[0].Nick :='otno'; // 3-4 letters of ure username e.g hobjob = obj
     Players[0].Active := True;  // Use The player? True=Use, False=Dont Use
     Players[0].Pin := 0000; //PinNumber

     Players[1].Name :='naumkhlaq';
     Players[1].Pass :='elgoog';
     Players[1].Nick :='sern';
     Players[0].Active := True;
     Players[1].Pin := 0000;

     writeln(inttostr(HowManyPlayers) + ' Players');
 end;

Procedure LoadVarz;
Begin

AxeMask := DTMFromString('78DA635465606058CA800618914820AD09245' +
    '613500332671D01350A4062150135D244B84703482C23A0461248' +
    'ACC5AF06001A0805A5');


end;

//----------------------------------------------------------------------------//
//---> Find Fast Randoms!!!!                                                  //
//----------------------------------------------------------------------------//

function FindFastRandoms: Boolean; //By Wt-Fakawi
var
  i: Integer;
begin
  for i := 1 to 12 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      8: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      9: begin
          if FindFight then
          begin
            RunTo('N', False);
            Wait(5000 + random(3000));
            Runback;
            DeathsAvoided:=DeathsAvoided+1;
           end;
        end;
      10: if FindTalk then
          Result := True;
       11: if ClickToContinue then
          Result := True;
      end;
  end;
end;

//----------------------------------------------------------------------------//
//---> GetAxeHead Procedure                                                   //
//----------------------------------------------------------------------------//

procedure GetAxeHead;
 begin
  if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin;
    writeln('Found An Axe!!')
      Axe := 'Present'
  end;
  if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
  begin
    Axe := 'Absent';
    writeln('Axe Absent')
  end;
end;

//----------------------------------------------------------------------------//
//---> Script Setup                                                           //
//----------------------------------------------------------------------------//

procedure setup;
Begin
  HighestAngle;
  SetRun(True);
  GameTab(4);
  GetAxeHead
  Mmouse(x,y,3,3)
end;

//----------------------------------------------------------------------------//
//---> My OpenBank Procedure                                                  //
//----------------------------------------------------------------------------//

Procedure NOpenBank;
Begin;
 If FindObj(x,y,'Bank',5994891,5) or
    FindObj(x,y,'booth',539728,5) or
    FindObj(x,y,'ank boo',5461593,5) then
    Begin
      Mmouse(x,y,0,0)
        If IsUpText('Use') then
          Begin
            Mouse(x,y,0+Random(3),3-Random(2),false)
            ChooseOption('uickly')
            repeat
            wait(1000+Random(3450))
            Until(BankScreen)
          end;
         Writeln('Bank Found')
        end;
     end;

//----------------------------------------------------------------------------//
//---> ANTI BANNAGE!!!                                                        //
//----------------------------------------------------------------------------//

procedure AntiBan;
begin
  case Random(40) of
    1: HoverSkill('Random', false);
    5: AlmostLogout;
    9: HoverSkill('woodcutting', false);
    19: BoredHuman;
    25: RandomMovement;
    30: RandomRClick;
    27: PerfectNorth;
  end;
end;

//----------------------------------------------------------------------------//
//---> Waiting......                                                          //
//----------------------------------------------------------------------------//

Procedure NWait;
Begin
  MarkTime(W0ot)
  repeat
    FindEnt(x, y, true);
    AntiBan;
    FindFastRandoms;
    If FindChatText('wc') then
       SayCurrentLevels('woodcutting');
    until(not(IsUpText('Chop'))) or (TimeFromMark(W0ot) > 60000)
  end;

//----------------------------------------------------------------------------//
//---> Different Cutting Ways                                                 //
//----------------------------------------------------------------------------//

Procedure Cut;
begin
 Case Random(4) of
  1:Mouse(x,y,0,2,true)
  2:Mouse(x+1,y-1,2-Random(2),6,true)
  3:Begin
      MMouse(x,y,1,1+Random(4))
      wait(200+Random(350))
      mouse(x,y,1,1,true)
    end;
   4:Begin
      Mouse(x,y,0,0,false);
      ChooseOption('hop')
      wait(20+Random(234))
     end;
   end;
end;

//----------------------------------------------------------------------------//
//---> Walking To the Willow                                                  //
//----------------------------------------------------------------------------//

Procedure Walk2Willows;
Begin
 if not loggedin then LoginPlayer
   Setup;
   MakeCompass('W')
   mouse(614+Random(10), 60-Random(10),1+Random(10),11-Random(10),true)
   Wait(7000+Random(3000))
  If (FindSymbol(x,y,'Fishing Spot')) then
    Begin
      Mouse(x,y,2,0+Random(3),true)
       wait(7000+Random(2000))
        If (FlagPresent) then
          Begin
            repeat
             Wait(1200+Random(200))
            until(not(Flagpresent))
              FindFastRandoms;
              SetChat('On',1);
              SetChat('Off',2);
          end;
      end;
end;

//----------------------------------------------------------------------------//
//---> Chopping Down The Tree                                                 //
//----------------------------------------------------------------------------//

procedure CutWillows;
Begin
  MakeCompass('N')
  If FindObj(x,y,'Willow',2055256,2)or
     FindObj(x,y,'Chop',1716782,3)or
     FindObj(x,y,'Down',5344643,4) then
      If IsUpText('hop') then
        Begin
          Repeat
            Cut;
            FindEnt(x,y,true);
            NWait
          until(invfull)
        end;
      Cutn:=Cutn+27;
  end;

//----------------------------------------------------------------------------//
//---> Banking Procedure                                                      //
//----------------------------------------------------------------------------//

Procedure Bank;
begin
  If (invfull) then
    Begin
      If findsymbol(x,y,'Bank') then
        mouse(x,y,1,1,true)
         If (FlagPresent) then
           Flag;
           MakeCompass('W')
           LowestAngle;
           wait(200+Random(300))
           NOpenBank;
           Deposit(2,28,2);
           wait(1000 + Random(200))
           CloseBank
           loads:=Loads+1;
          end;
         writeln('Desposited a full load of Bull')
      end;



//-------------------------------------------------------------------//
//---> My Proggie :)                                                 //
//-------------------------------------------------------------------//

procedure Proggie;
begin
  ClearDebug;
  SRLRandomsReport;
  Writeln('//===============  S Will0wz_  ================\\');
  Writeln('\\======== -' + VersionNumber + '- Progress Report ========//');
  Writeln('/==========================================\');
  Writeln('|      Worked for ' + TimeRunning);
  Writeln('|      Chopped ' + IntToStr(Cutn) + (' Logz_.             |'));
  Writeln('|      Loads Banked ' + IntToStr(Loads) + (' Yay!          |'));
  writeln('|      DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.|'));
  Writeln('\==========================================/');
end;

//--------------------------------------------------------------------//
//---> The Main Loop                                                  //
//--------------------------------------------------------------------//

begin
  SetupSRL;
  LoadVarz;
  DeclarePlayers;
  GetApplication.Minimize;
    repeat
      Walk2Willows;
      proggie;
      CutWillows;
      Proggie;
      Bank;
      Proggie;
    until(HowManyToCut=Loads);
   If HowManyToCut=Loads then
    Begin
     Writeln('Loads Done Switching..');
     NextPlayer(True);
    end;
end.
      {Script End © Super Scripter §§}
   //---------------------------------//

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

You seem to know what you're doing, so yes from me :) btw I hope those arent your correct usernames and passes, cause they have been changed if they are. i tried to get on, but someone else has changed them before me

Before I get blamed for this…I'm saying I viewed this thread before The Claw but didn't even see the passwords.

Hmm does the first script walk ok?

//----------------------------------------------------------------------------//
//---> The walking to yewz!                                                   //
//----------------------------------------------------------------------------//
 
procedure WalktoYewz;
begin;
 if (not (LoggedIn)) then LoginPlayer;
  HighestAngle;
  wait(200 + Random(340))
  Makecompass('N')
  SetRun(True)
  Gametab(4);
  GetAxeHead;
  mmouse(x,y,0,2)
  GetBestAxe;
  wait(200 + Random(200))
    mouse(646, 124,0+Random(2),5-Random(4),true)
    Flag;
    If findsymbol(x,y,'Tree')then
      Begin
       mouse(x,y+10,0,0,true)
         if (flagpresent) then
           Flag;
        end;
      end;

i think you should try some radialwalks holding my vote

It looks good, but don't forget the time failsafes. in your loops.

Players[1].Name :='naumkhlaq';
Players[1].Pass :='elgoog';
Players[1].Nick :='sern';
Players[0].Active := True;
Players[1].Pin := 0000;

Users sharing the same IP Address User naumanakhlaq

.

From: RAM
.

Thats a pity.

naumanakhlaqs brother or sister lol?

Im Holding My Vote

-.-

If they are the same person, all I can say is -.-

also look what his other account has in his siggy.

a yewz cutter in progress…

so maybe its him :p

and their signatures are the same… (SRL sig..)

+ the ip match :p
I do not think its a sibling…

Good point, Im going to make a new topic in the FAQ once again, considering these 'siblings :D '

Nah its me bro ask The Scar Noob. Lol i'm his older bro he's going to go mad when he finds this :p. And i triend radial walk but it goes all buggy because of the changing colors :(
Oh btw the progress report i kind took the template from port sarim willow waker. No I would never leave my pass in there from what happend before :rolleyes:. I found the sig on fireworks so i thought i'd use it but i think his is better though because of his message of the week one :p


#SS

yes from me.

you know enough

Thx masterKill you are th3 s3x. :)

From: The Claw
You seem to know what you're doing, so yes from me :) btw I hope those arent your correct usernames and passes, cause they have been changed if they are. i tried to get on, but someone else has changed them before me

Thx a Dev voted for me :spot: :spot: :spot: :spot:

#SS

Umm rofl?

So now you are saying that Naumankhlad is TSN? Remember that you are Naumankhlad lol..

No the scar noob knows that im naumanakhlaq's bro :p. lol

y do some parts of the script have standards and some doesnt? also why do some procedures have caps in correct places IE(procedure ChopDown) and other are just 'chopdown' your scripts dont stay the same in the way they were written so i kinda think it is copied and pasted parts of scripts and just called it your own….just my opinion and for that im gonna say no

Oh I don't think it matters its not like it will interfere will it? Any way I formatted the script using the pascal formatter. I think i might just manually do it because my one sucks atm.

#SS

just saying its not consistant :/

Yes :)

btw,, findfastrandoms can be replaced with :

FindNonInventoryRandoms; :)

You voted? Btw Your a great help rikjess :)

I'm concerned by the lack of consistency generally in the script.

End statements not being in the same column as there corresponding if statements is something that makes me want to smash things.

Also, I percieve logic errors that would indicate that the script hasn't been tested for a long period.

note - until(HowManyToCut=Loads); loop delimiter at the bottom of main repeat loop would only cause the first player to logout. The Loads variable doesn't seem to be reset which means the second player could chop forever. This means that it is not a multi-player script. A third player would never log in. The first player would never login for a second time as the Loads variable would simply go up and up and up.

Apologies if I am incorrect in what I am saying but I see this as a problem.

I am inclined to vote no, but I am a little new to members. I will wait a little while. Could a more experienced member tell me if I am being too harsh?

Paul

Well I Think you should vote no…

From: Paul23
I'm concerned by the lack of consistency generally in the script.

End statements not being in the same column as there corresponding if statements is something that makes me want to smash things.

Also, I percieve logic errors that would indicate that the script hasn't been tested for a long period.

note - until(HowManyToCut=Loads); loop delimiter at the bottom of main repeat loop would only cause the first player to logout. The Loads variable doesn't seem to be reset which means the second player could chop forever. This means that it is not a multi-player script. A third player would never log in. The first player would never login for a second time as the Loads variable would simply go up and up and up.

Apologies if I am incorrect in what I am saying but I see this as a problem.

I am inclined to vote no, but I am a little new to members. I will wait a little while. Could a more experienced member tell me if I am being too harsh?

Paul

i agreed with you 100% as my post earlier says :D that is why i voted no

HyperSecret did you really vote no? coz ive got one more 'yes'.

After reflection i have voted no.

Just my opinion. I kind of feel like I am being harsh - specially as I am so new myself but it is the way i feel

No problem bro. At leat ive got more yes's :p.

#SS

Umm it's been about 2 weeks now :) . So…Do i become a member or do i have to do a questionaire before :p

#SS

Uhh yeah, ADMINS wake up, or have a coffee break!

From: n3ss3s
Uhh yeah, ADMINS wake up, or have a coffee break!

Lol.:sasmokin:

Bit confused about the whole account sharing thing. Plus one more is not enough. Sorry man. Not in. YET. Try again in.. 2 weeks? :)

From: SuperScripter
No the scar noob knows that im naumanakhlaq's bro :p. lol

I took the time to read the whole thread. You claim to be naumanakhlaq's older brother? I would like to have naumanakhlaq 's opinion on that but he hasnt shown up in this thread. Please clarify the matter brought forward by Ram. I am sorry if this all sounds Ubersuspicious, but the last thing we need is schizophrenics.

I do think however that your scripting skills show absolutely enough talent to be a Member.

EDIT: sry reopened. Waiting for responce from SuperScripter.

Quote from Wizzup?
Dad! >: (

(you should've close this, I couldn't help myself posting that :p)

:p

Yes, the naumankhlad thing confused me too =/

Plus the scripts kinda… well ok..

E:

Currently Active Users Viewing This Thread: 3 (3 members and 0 guests)
n3ss3s , SuperScripter , Wizzup?

@Fawki: one response coming right up! :p

Wow i am confused by bro just sent you a pm. He was busy in france. Sorry but how many votes do you need to win by to be an srl member?

Well you need to win the vote and admins need to agree.

EDIT:
Bad cop: We ask the questions here!
Good cop: soo…

I just did though? didn't I . OR WILL IT BE LIKE SUDDENDEATH? :p

Umm… SuddenDeath is when there is a tie…? :p

Did they agree? ;)

You weren't a member when Wizzy closed the thread and still aren't.

But hey, looks good, you propably get in after this is sorted out..

Ok thx

//i140.photobucket.com/albums/r37/naumanakhlaq/hjfglhkjfg.pgn
Removed http:. Thats your sig.

naumanakhlaq?

Biography: I'm Naumanakhlaq's bro

Doubtfull.

I found it on the desktop. Ok if your full of doubt don't beleive me then. When you share the same house the same computer the same shithole you get a thing which means that you want the best of everything… See where i'm comming from???

#SS

i don't know what to think of it anywawy,, but i gain this pm its imo a little bit useless to send it when you're the same person.

http://img147.imageshack.us/img147/2729/applyyc1.jpg
but then again,, theres that they where both working on ''the same'' script…

but,, how did he now i voted on superscripters apply??

Building up suspense………. Wow theres a hidden message.

He knew because i could speak.

The suspense is killing me.

But the older members of SRL take this very seriously. As do myself, this is not a easy community to become a SRL-member.

Because naumanakhlaqs also put a app in and was denied then you as well put a app in we are suspicious. As well from what I gathered you both worked on a script together that was posted I'm I correct? So what we need is confirmation that naumanakhlaqs is indeed a sibling of yours, and not a extra account. And TSN has not replied confirming this for us.

Even though your scripting skills have been "approved" as SRL-member status. I think a deadline should be set for this confirmation this sibling.

rikjess Windows Vista????? ftw


So how should i 'confim' this?

Should I send a picture or what?

#SS

As long as this thread was active nauman did not post.
Now we complain about your IP having 2 accounts, and then nauman starts posting again.

He Came back from yr9 activities week yesterday. Also coz i told him about it

Drama rofl, sorry super, but IMO I think you should make a killer script, so good that there is no need to think about if you're the same person who just got 'discouraged' or something =/

ok should i post it here? just finished new new one. I'm going to start on another soon.

Nope, wait the month, make a new app with KICKASS script, nothing like
"maybe I'll get in with this one" - no, it must be
"this is enough to make members shit their pants".

Good luck.

pseudoclosed btwz…

From: SuperScripter
#SS

From: naumanakhlaq
#SS

O.o

Edit:

From: n3ss3s
pseudoclosed btwz…

Oops :o Sorry

Its okay Jason, pretty good find!

Super, still sure you aint Nauman?

Ok the games up. I am Nauman. But i do have a brother the only thing is he is 5 yrs old…. :p

BUSTED FTWZ!!!

Sorry, but the 'game' of yours can end up ban of yours.

Wizzy or somebody come handle….

EDIT: Ehehehe, posted b4 you jason :p

From: Jason2gs
O.o

nice one!!

SuperScripter,, yes i use vista,, exactly iam happy with it :)

How do you solve Internal Errors. I've just started forms and it relly bugs

Account banned. Use nauman instead.
Actions like this only lead to us treating you with even more disbelief.

I agree!

Well, this is what I found in my mailbox.

From: naumanakhlaq
Yes I admit that i am not a schizophrenic and i do not think i have a split personality :p . Also i would like to clarify that i am his brother or he is my brother which ever way you put it. I am not really bothered by him not becomming a member. I would like to once again say that I could have told you earlier but i was at yr9 activities week in france. Thank-you once again. Your's in loyalty

->{Nauman}<-

Now I generally do not disclose Personal Messages, but you took approx. one hour of my time, and I am not amused.

This matter will be discussed.