SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
java

Other Communitys
Mopristhebest

How Long have You Played Runescape
3 years

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

I started scripting a year ago but stopped to go and script moparscape servers soo thats when i learned java. I really like to make woodcutters and fletchers. I am getting better and better and hope to get really good.

MY main goal-To make a pay script in about a year

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

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

const
  StartPlayer  = 0;
  UseBenMouse  = True;   // Use BenMouse?
  treecolor1   =5075056;//re-pick them
  treecolor2   =2897976;
  treecolor3   =3825752;
  longbow      =537419;
  RunDir       ='N';       //Which way to run after fight

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;

  CurrentPlayer := StartPlayer;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name    :='';
  Players[0].Pass    :='';
  Players[0].Nick    :='';  // 3-4 letters from your name
  Players[0].Active:= True;
end;


function FindFastRandoms: Boolean;    // By WT-Fakawi.
var
  i: Integer;
begin
  for I := 1 to 8 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: if FindTalk then
             Result := True;
    end;
    Wait(1);
  end;
end;

procedure antiz; // Made by Reece844     me
begin
case Random(6) of

   0: AlmostLogout;

   1: begin
        HoverSkill('Woodcutting', True);
        Wait(564 + random(365));
        GameTab(4);
      end;

   2: begin
        HoverSkill('Prayer', false);
        Wait(733 + random(421));
        GameTab(4);
      end;

   3: begin
        GameTab(1)
        Wait(126 + random(895));
        GameTab(4)
      end;

   4: SayCurrentLevels('Woodcutting');

   5: PickUpMouse;
end;
end;


Procedure FindThoseRandoms;
begin

  if(FindEnt(1797212))then
    RunAwayDirection('N');
    Wait(9500+Random(5500));
    RunBack;
  if(FindFight)then
  begin
    RunAwayDirection('N');
    Wait(9500+Random(5500));
    RunBack;
  end;
  if(FindDead)then
  begin
    Writeln('You are Dead!');
    Writeln('Next player.');
  end;
  antiz;
  DwarfItem;
  SolveFrog;
  FindCerter;
  FindDemon;
  FindQuiz;
  SolveBox;
  SolveSandWich;
  FindNormalRandoms;
  FindFastRandoms;
    FindLamp('woodcutting');
end;


Procedure findtree;
begin
  if(findcolorspiraltolerance(x,y,treecolor1,msx1,msy1,msx2,msy2,20))or
    (findcolorspiraltolerance(x,y,treecolor2,msx1,msy1,msx2,msy2,15))or
    (findcolorspiraltolerance(x,y,treecolor3,msx1,msy1,msx2,msy2,10))then
  begin
    MMouse(x, y, 3, 3);
    if(IsUpTextMulti('chop','op do','down'))then
    begin
      writeln('Found a tree.')
      writeln('Lets Check It.')
      if(IsUpTextMulti('Tr','ee','down'))then
      begin
      Mouse(x, y, 2, 2, True);
      FindThoseRandoms;
      Wait(13);
      Exit;
    end else
    begin
      writeln('Redo Your colors!')
    end;
 end;
end;
end;

procedure fletch;
begin
mmouse(710, 359, 3, 3);
wait(234)
mouse(x,y, 2, 2, True);
wait(154)
mmouse(750, 359, 3, 3);
wait(325)
mouse(x,y, 2, 2, True);
  if(findcolorspiraltolerance(x,y,longbow,msx1,msy1,msx2,msy2,20))then
  begin
  mmouse(x, y, 3, 3);
  mouse(x, y, 2, 2, False);
  ChooseOption(x, y, 'Make X');
  TypeSend('28');
  KeyDown(13);
Sleep(1);
KeyUp(13);
wait(7500);
end;
end;

procedure saddrop;
begin
  if InvCount = 28 then
  begin
    DropTo(3, 28);
  end;
end;

procedure SetUp;
begin
  if not(LoggedIn)then
    LoginPlayer;
    wait(345)
  HighestAngle;
  MakeCompass('N');
  SetRun(true);
  GameTab(4);
end;

begin
  SetUpSRL;
  BenMouse := UseBenMouse;
  Activateclient;
  SetUp;
  repeat
  findtree;
  FindThoseRandoms;
  fletch;
  FindThoseRandoms;
  saddrop;
  until(isfkeyDown(10))
if(isfkeyDown(10))then
terminatescript;
end.

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

nope sry but its just to simple, could use failsafes also

sorry, too much co-ord clicking :( try again next time with less coord clicking..

:D I see you as a great scripter someday, keep your hopes up :)

It's a no for me. There's too much clicking at the same coordinates (for fletching). But please try again in a month!

Here's a list of things that are very good to have in your script (you already have very many)

multiplayer - needed
Antirandoms - needed
Antiban - needed
FailSafes -needed
DTMs - highly recommended
BitMaps - highly reccomended
Walking (with radialroadwalk/radialwalk) - will greatly increase your chances of getting in
Banking - goes along with walking

My God thanks kikwit for giving a detailed analysis so i didnt have to =)
No, for kikwit and the above peoples reasons.
You still can learn a lot of techniques like bitmaps/dtms and you click co-ords too much.