SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
alittle php

Other Communitys
none

How Long have You Played Runescape
close to the start of rsc

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

Well, im 18 live in california now. just started learning to script about a month or so ago and have progressed decently. Going to be going to college this year. Like playing xbox, ONLY autoing on rs2, hockey and my car.

I have been reading alot about radial walking and the banking, the two things i want to add to this script, but w/ srl not working its kinda hard to test my new knowledge. I wanted to post this to see if there is any other work i should have done besides the walking and banking.

thanks for your time!

HyperSecret

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

{First Script By: HyperSecret
 This is my woodcutter, and how it works well}
{MANY THANKS TO ALL WHOS TUTS I READ ON SRL,
 WHOCARES357, JAD, AND PWNAZ0R FOR THE GREAT TUTS
AND EVER MORE THANKS TO PENTTI FOR HELPING & ALSO WT-FAWAKI

JASON2GS FOR ALSO HELPING MY ERROR FIXES!!}


program WoodCutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}

var LogsChop: Integer;

const WoodColor = 2836289;// Color Of Wood/Tree
      Tol = 10;//the tolerance/variation of color to look for, keep at 10 if you dont understand
      StartPlayer = 0;//Player to start script with
      LogType = 'Tree';//Set to the log you want to chop, Tree,Oak,Yew,Willow,ect...
      RunDirection = 'N';//Direction to run if in fight N,S,E,W
      LogsToChop = 500;//how many logs to cut

//Declares How Many Players//
procedure DeclarePlayers;
begin
  HowManyPlayers  := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name :=''; //Character name
  Players[0].Pass :=''; //Character PAss
  Players[0].Nick :=''; //Nickname 3 Letter of char name
  Players[0].Active:=True;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

end;


procedure HyperSecretTAG;
begin
  ClearDebug;
   Writeln('H');
   Wait(100);
   Writeln('Hy');
   Wait(100);
   Writeln('Hyp');
   Wait(100);
   Writeln('Hype');
   Wait(100);
   Writeln('Hyper');
   Wait(100);
   Writeln('HyperS');
   Wait(100);
   Writeln('HyperSe');
   Wait(100);
   Writeln('HyperSec');
   Wait(100);
   Writeln('HyperSecr');
   Wait(100);
   Writeln('HyperSecre');
   Wait(100);
   Writeln('HyperSecret''');
   Wait(100);
   Writeln('HyperSecret''s');
   Wait(100);
   Writeln('HyperSecret''s ');
   Wait(100);
   Writeln('HyperSecret''s P');
   Wait(100);
   Writeln('HyperSecret''s Po');
   Wait(100);
   Writeln('HyperSecret''s Pow');
   Wait(100);
   Writeln('HyperSecret''s Powe');
   Wait(100);
   Writeln('HyperSecret''s Power');
   Wait(100);
   Writeln('HyperSecret''s PowerC');
   Wait(100);
   Writeln('HyperSecret''s PowerCh');
   Wait(100);
   Writeln('HyperSecret''s PowerCho');
   Wait(100);
   Writeln('HyperSecret''s PowerChop');
   Wait(100);
   Writeln('HyperSecret''s PowerChopp');
   Wait(100);
   Writeln('HyperSecret''s PowerChoppe');
   Wait(100);
   Writeln('HyperSecret''s PowerChopper');
   Wait(100);
   Writeln('HyperSecret''s PowerChopper!');
   wait(3000 + random(750));
end;

//Goes Thru GameTabs//
procedure Tabs;
 begin
  GameTab(2);
  Wait(500+random(100));
  GameTab(3);
  Wait(500+random(100));
  GameTab(4);
  Wait(500+random(100));
  GameTab(5);
  Wait(500+random(100));
  GameTab(10);
  Wait(500+random(100));
  GameTab(11);
  Wait(500+random(100));
  SetRun(true);
end;

//Randoms By: WT-Fawaki//
function FindFastRandoms: Boolean;//Randoms By: WT-Fawaki//
var
  i: Integer;
begin
  for i := 2 to 8 do   //Randoms By: WT-Fawaki//
  begin
    case I of
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then  //Randoms By: WT-Fawaki//
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;  //Randoms By: WT-Fawaki//
      7: begin
          if NoGameTab then
          begin              //Randoms By: WT-Fawaki//
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin               //Randoms By: WT-Fawaki//
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;       //Randoms By: WT-Fawaki//
  //Randoms By: WT-Fawaki//

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
  SRLRandomsReport;
  if (FindFight) then
  begin
    Status('Running....')
    RunAwayDirection(RunDirection);
    Wait(10000 + random(2500));
    RunBack;
  end;
end;

//HyperSecret AntiBAN//
procedure HSAntiBAN;
begin
  if(not(LoggedIn))then
    Exit;
    case Random(5) of

      0: PickUpMouse;

      1: PickUpMouse;

      2:  begin
            HoverSkill('Woodcutting', false);
            wait(1000+random(1000));
            GameTab(4);
          end;

      3:  begin
            HoverSkill('Firemaking', false);
            wait(1000+random(1000));
            GameTab(4);
          end;

      4: PickUpMouse;

      5: case Random(4) of
           0: TypeSend('WoodCut Lvl?');
           1: TypeSend('WC Lvl?');
           2: TypeSend('WoodCut Level?');
           3: TypeSend('WC Level?');
         end;
    end;
end;

//Talks Randomly//
procedure HSTalking;
begin
  if(not(LoggedIn))then
    Exit;
    case Random(10) of
      0: TypeSend('Hey');
      1: TypeSend('This gets really boring');
      2: TypeSend('Yay, i am bored');
      3: TypeSend('Cant wait to get to my wc lvl');
      4: TypeSend('This is taking forever');
      5: TypeSend('Cant wait for this to stop');
      6: TypeSend('now I have');
      7: TypeSend('hey');
      8: TypeSend('Geez i just want to get to my level');
      9: TypeSend('Whats your wc lvl?');
    end;
end;

//This Sets Up SRL and Players//
procedure SetUp;
begin
  SetupSRL;
  HyperSecretTAG;
  DeclarePlayers;
  if(not(loggedin))then LoginPlayer;
end;

//This Picks a random tab
Procedure RandomTabs;
begin
  GameTab(Random(10)+1);
end;

//This Does The WoodCutting//
procedure Chopping;
var TimeToCut: Integer;
begin
  MarkTime(TimeToCut);
  LogsChop := 0;
  repeat
    HighestAngle;
    If(FindObj(x,y,LogType,WoodColor,Tol)) then
    begin
      MMouse(x,y,0,0);
      if(IsUpText('Chop down'))then
      begin
        case Random(2) of
          0: Mouse(x,y,0,0,true);
          1: Mouse(x,y,0,0,false);
        end;
        begin
          SleepAndMoveMouse(500 + random(500));
          RandomTabs;
        end;
        begin
          LogsChop := LogsChop + 1;
        end;
          Wait(500+random(500));
        end;
      FindRandoms;
    end;
  until(InvFull) or (TimeFromMark(TimeToCut) > 300000+random(30000));;
end;

//Drops Logs When Inventory Is Full//
procedure InventoryDrop;
begin
  if InventoryFull = true then
  DropAll;
  FindRandoms;
end;

//Progress Report//
procedure ProgressReport;
begin
  Writeln('-=[]----------------------------------------------------[]=-');
  Writeln('-=[]---------HyperSecret''s PowerChopper Progress--------[]=-');
  Writeln('-=[]--Worked For : ' + ScriptTime2(2) + '--[]=-');
  Writeln('-=[]----------------Chopped ' + IntToStr(LogsChop) + ' Logs--------------------[]=-');
  Writeln('-=[]----------------------------------------------------[]=-');
  SRLRandomsReport;
end;

//Begins MainLoop//
begin
  Setup;
  Tabs;
  repeat
    FindRandoms;
    HSAntiBAN;
    Chopping;
    InventoryDrop;
    HSTalking;
    ProgressReport;
    If (LogsChop=LogsToChop) then
    begin
      wait(5000+random(1000));
      nextplayer(true);
      LogsChop:=0;
    end;
  until(false);
end.

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

the actual script is kinda small(most is anti ban/from someone else)

hmm idk,
couse it's not detecting ant's and don't reperairs the axe.
also it's dropping evrything in iventory. when you got a rune axe and you can't wair it yet it will be dropped to lol.
i'll hold my vote.

edit: you left your pass and name in! be smart and remove it fast (jagex is waching us)

R0b0t1 starts leaning towards no…

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

  Players[0].Name :=''; //Character name
  Players[0].Pass :=''; //Character PAss
  Players[0].Nick :=''; //Nickname 3 Letter of char name
  Players[0].Active:=True;

  //Unneeded. LoginPlayer does this for you.
  //NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

end;

procedure HyperSecretTAG;
var
  i: integer;
  name: string;
begin
  name := 'HyperSecret''s PowerChopper!';
  for i := 1 to Length(name) do
  begin
     ClearDebug;
     Writeln(Copy(name, 1, i));
     Wait(100);
   end;
   wait(3000 + random(750));
end;

//Goes Thru GameTabs//
procedure Tabs;
var
  i: integer;
begin
  for i := 2 to 11 do
  begin
    GameTab(i);
    Wait(500+random(100));
  end;
  SetRun(true);
end;

No.

Loops, multiplayer.

No Multiplayer = No For Sure
Its also extremely simple.
First learn multiplayer and then learn some more advanced techniques.
Its a NO for now