SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
I used some HTML, some c++, And some javascript

Other Communitys
Gamefaqs

How Long have You Played Runescape
3 years

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

Well, as you might already know, this is my second time applying for member I am really sorry about the first time, I do not know what I was thinking!

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

Here is a simple Willow Chopper, complete with a form.

program Willow_Chopper;
{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
  var
  frmDesign : TForm;
  Username : TEdit;
  Password : TEdit;
  SmartWorld : TEdit;
  TreeBaseColor : TEdit;
  Start : TButton;
  Loads : TEdit;
  x , y , cx , cy , i , TreesChopped , loadsdone : Integer;
  loadz : string;
  TreeBaseColor1 : String;

const
///Set up your colors below///
WillowColor1 = 4487022;

CurrentVersion  =  '2.0';// no need to change this

yourSRLID='';

yourSRLPW='';

WillowColor2 = 4480100;

BoothColor1 = 739167;//You have to set these colors If it cannot find the bank booth

BoothColor2 = 671057;

Procedure SetupFormz(sender: tobject);
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := Username.text;
  Players[0].Pass := Password.text;
  Loads.text := loadz;
  TreeBaseColor.Text := TreeBaseColor1;
  FrmDesign.ModalResult := Mrok;

end;

Procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 656;
frmDesign.Top := 223;
frmDesign.Width := 220;
frmDesign.Height := 248;
frmDesign.Caption := 'Willow Chopper';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -14;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 120;
Username := TEdit.Create(frmDesign);
Username.Parent := frmDesign;
Username.Left := 8;
Username.Top := 8;
Username.Width := 113;
Username.Height := 24;
Username.TabOrder := 8;
Username.Text := 'Username';
Password := TEdit.Create(frmDesign);
Password.Parent := frmDesign;
Password.Left := 8;
Password.Top := 48;
Password.Width := 113;
Password.Height := 24;
Password.TabOrder := 9;
Password.Text := 'Password';
SmartWorld := TEdit.Create(frmDesign);
SmartWorld.Parent := frmDesign;
SmartWorld.Left := 8;
SmartWorld.Top := 88;
SmartWorld.Width := 113;
SmartWorld.Height := 24;
SmartWorld.TabOrder := 10;
SmartWorld.Text := 'SmartWorld';
TreeBaseColor := TEdit.Create(frmDesign);
TreeBaseColor.Parent := frmDesign;
TreeBaseColor.Left := 8;
TreeBaseColor.Top := 128;
TreeBaseColor.Width := 113;
TreeBaseColor.Height := 24;
TreeBaseColor.TabOrder := 11;
TreeBaseColor.Text := 'TreeBaseColor';
Start := TButton.Create(frmDesign);
Start.Parent := frmDesign;
Start.Left := 8;
Start.Top := 168;
Start.Width := 97;
Start.Height := 25;
Start.Caption := 'Start';
Start.TabOrder := 12;
Start.OnClick := @SetupFormz;
Loads := TEdit.Create(frmDesign);
Loads.Parent := frmDesign;
Loads.Left := 120;
Loads.Top := 48;
Loads.Width := 89;
Loads.Height := 24;
Loads.TabOrder := 13;
Loads.Text := 'Loads';
end;

Procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

Procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

Procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;





{****************************************************************************}
{Procedure BankWalk                                                          }
{By: Wade007                                                                 }
{Description: This will walk to to the bank                                  }
{****************************************************************************}


Procedure BankWalk;
 begin
  RadialWalk(FindRoadColor,0,90,50,5,5)
  Flag;
  if(FindSymbol(x,y,'bank'))then
   begin
   writeln('Walking To bank!')
   Mouse(x,y,2,2,true)
   flag;
   FindNormalRandoms;
  end;
end;
{****************************************************************************
Procedure WillowWalk
By: Wade007
Description: This will walk you to willows.
{****************************************************************************}

Procedure WillowWalk;
 begin
  If(Not(LoggedIn)) then LoginPlayer;
  setangle(true)
  Status('Walking to willows')
  writeln('Walking to willows')

 end;
{*****************************************************************************
function InFight: Boolean;
By: WT-Fakawi
Description: Returns as True if in fight.
*****************************************************************************}

function InFight: Boolean;
var
  x, y : Integer;
begin
  Result := (FindColor(x, y, 65280, 230, 130, 280, 180) or FindColor(x, y, 255,
    230, 130, 280, 180))
end;
{****************************************************************************
Procedure Depositing
By: the find and open bank part is by Wade007 and the deposit part is by frozen_soul
Description: This will deposit your logs.
*****************************************************************************}


procedure Depositing;
  begin
    if FindObjCustom(cx, cy, ['booth', 'ooth'], [BoothColor1, BoothColor2], 3) then
      begin
      repeat
      Status('Banking');
      Mouse(cx,cy,2,2,false)
      chooseoption('Use-quickly')
      wait(1000)
       until(bankscreen)
         Begin
          for i := 2 to 28 do
          Begin
          if ExistsItem(i) then
          Begin
          MouseItem(i, false);
          ChooseOption('ll');
          Wait(1000 + random(500));
         end;
        end;
    Mouse(485, 41, 4, 4, True);
    Wait(500 + random(250));
  end;
       {case random(2) of       //Use this if the banking doesn't work.
          1: Deposit(2, 28, 2)
          2: Deposit(2, 28, 2)
          end;}
      closebank;
      FindNormalRandoms;
      loadsdone := loadsdone+1
      WillowWalk;
  end;
end;

{****************************************************************************
Procedure: ChopDemWillows
By: Wade007
Description: This Chops trees (DUH!)
*****************************************************************************}


Procedure ChopDemWillows;
 var tries:Integer;
 Begin
   if FindObjCustom(cx, cy, ['illow', 'llow'], [WillowColor1, WillowColor2], 3) then
     begin
     Status('Chopping Willows');
     if(FindEnt(cx, cy, True))then exit;
     Mouse(cx,cy,2,2,False)
     ChooseOption('hop')
     flag;
     Wait(4000+random(800))
     TreesChopped := TreesChopped+1
     FindNormalRandoms;
 end else
  begin
    tries := tries+1;
    if (tries = 10)then
     begin
      Writeln('Could not find any trees :(')
      Writeln('Try changing the colors.')
     NextPlayer(false);
   end;
  end;
end;

{****************************************************************************
Procedure FFindEnt
By: Osmm
Description: This will find an ent, and run away from it.
*****************************************************************************}


function FFindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
  arUpTextEntColorPoints: TPointArray;
  x, y, EntTime, tcts: Integer;
begin
  if not(LoggedIn)then exit;
  GetMousePos(x, y);
  if(x <> fx)or(y <> fy)then
  mmouse(fx, fy, 0, 0);
  if(IsUpText('Chop'))then
  begin
    tcts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorspeed2Modifiers(0.4, 0.4);
    FindColorsTolerance(arUpTextEntColorPoints, 51657, 80, 6, 127, 20, 5);
    Result := Length(arUpTextEntColorPoints) > 10;
    ColorToleranceSpeed(tcts);
  end;
  if(result)then
    begin
      MarkTime(EntTime);
      WriteLn('Ent Found!!');
      Writeln('Waiting for it to go away.');
      begin
        case random(10) of
          1: mouse(628, 85, 5, 5, true);
          2: DoEmote(4);
          3: BoredHuman;
        end;
      end;
      Inc(EntsAvoided);
    end;
end;

{****************************************************************************
Procedure Proggy
By: Wade007
Description: This will print a proggy to the debug box.
*****************************************************************************}

Procedure Proggy;
begin
  Writeln('Thank you for using')
  Writeln('             |\     /|(  ___  )(  __  \ (  ____ \(  __   )(  __   )/ ___  \ ')
  Writeln('             | )   ( || (   ) || (  \  )| (    \/| (  )  || (  )  |\/   )  )')
  Writeln('             | | _ | || (___) || |   ) || (__    | | /   || | /   |    /  / ')
  Writeln('             | |( )| ||  ___  || |   | ||  __)   | (/ /) || (/ /) |   /  / ')
  Writeln('             | || || || (   ) || |   ) || (      |   / | ||   / | |  /  /   ')
  Writeln('             | () () || )   ( || (__/  )| (____/\|  (__) ||  (__) | /  /')
  Writeln('             (_______)|/     \|(______/ (_______/(_______)(_______) \_/      ''s Willow chopper')
  Writeln('Willow Chopper by wade007 has run for ' +TimeRunning)
  Writeln('Willow Chopper has Chopped ' +intToStr(TreesChopped)+ ' Trees')
  Writeln('We have done'+inttostr(loadsdone)+'loads')
end;


{****************************************************************************
Procedure: Running
By: Wade007
Description: This TINY procedure will run away if it is in a fight.
*****************************************************************************}

Procedure Running;
begin
  If (InFight) then
    begin
    Writeln('We have found a fight! Running away!')
    Status('Running');
    BankWalk;
    wait(2000)
    WillowWalk;
    end else
     begin
     Exit;
     end;
end;


{****************************************************************************
Procedure: SetUp
By: Wade007
Description: this will run when it is start up....
*****************************************************************************}


procedure SetUp;
begin
  ScriptID := '651';
  if not(yourSRLID = '') then SRLID := yourSRLID;
  if not(yourSRLPW = '') then SRLPassword := yourSRLPW;
  If (GetPage('http://wade007.freehostia.com/version.txt')) > '2.0' then
  begin
    Writeln('Hmm... Your version is not up to date. please get the new update from the topic.')
    Writeln('I hope to have a direct download link for this in the near future.')
    logout;
  end else
   begin
     writeln('You have the latest version, Continueing.')
   end;
end;


{****************************************************************************
MAIN LOOP
Description: This is where it all begins...
*****************************************************************************}


begin
   SetupSRL;
  SafeInitForm;
  SafeShowFormModal;
 SetUp;
  SmartSetupEx((124),false,false);
    SetTargetDC(SmartGetDC);
  repeat
  If (not (loggedIn)) then loginplayer;
  WillowWalk;
  FindNormalRandoms;
   repeat
   ChopDemWillows;
   solvesandwich;
   Running;
   FindNormalRandoms;
   Until(InvFull);
  Running;
  bankWalk;
  wait(100)
  depositing;
  SetUp;
  ClearDebug;
  Proggy;
  i := +1
 until(inttostr(loadsdone) = loadz)
  ClearDebug;
  Proggy;
 end.

That is my first script that is over 400 lines long by the way, Thank you for your time.


EDIT: I forgot to say, that Da 0wner helped me with some errors, along with wizzup?

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

Too Simple, Not Good Enuf Quality, Only Your Work Please?… No.

same as above,

no

The script has to be atleast 90% yours, your script maybe is, but it is very small especially if we wouldn't count the form.

The script is also very simple and doesn't fill the requirements told in this sticky that's title tells you to read it before applying for membership.


Make a longer, more complex script, maybe a banking script with a bit more walking, that fills are the requirements and wait atleast a month before re-applying.



Hmm, seems like osmm copied half of his EntFinder from SRL…

No, bit short.

Also entfinding doesn't look good

if(result)then
    begin
      MarkTime(EntTime);
      WriteLn('Ent Found!!');
      Writeln('Waiting for it to go away.');
      begin
        case random(10) of
          1: mouse(628, 85, 5, 5, true);
          2: DoEmote(4);
          3: BoredHuman;
        end;
      end;
      Inc(EntsAvoided);
    end;
end;

There is actually 2 change out of 10 that you will avoid the ent, DoEmote and Mouse().

Hint, random(10) returns random number, 0 - 9, not 1 - 10, like you thought,

Gl next time.
Cheers.

Ok, I understand guys. I will try harder next time. feel free to close this…

It is actually okay - I will say yes, but continue to work on it more! :)

Edit: When it finds an ent, use this, it works very good for running off it :)

MFF(MMCX + Random(5), MMCY + Random(5), 10, 10);
    FFlag(Random(3));

I also will say "yes", because Hy said yes, and because I think you have potential, but I expect you to try hard to learn more, and improve yourself. :)

Like Wade said.
Good try, just not good enough… Yet.
Your indenting is quite alright, though. :)
Good luck next time!
Feel free to apply again (after 2 weeks) when you feel ready.

dont forget about proper multiplayer :)

Users sharing the same IP Address User hackman wade11

.