SRL Archive - Archive

fourscape - SRL Member Application Form
fourscape

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
I had to check out everything going on here.

Programming Knowledge
Yes

Other Communitys
Sythe.org

How Long have You Played Runescape
Long time… since RS2 came out

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

I have been using SCAR for quite some time. I am still not the best scripter in the world. YOHOJO8 is still teaching me things I never knew existed. Very usefull things. Such as DTM's and Forms. I have both in my latest script. I have writen a few scripts, ranging from an auto talker to my latest and I believe best, powercutter. I hope you vote yes but hope even more that, if you vote no, you tell me why, and give me some advice on what I could do better. Thank you for taking the time to read this.

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

My powerwoodcutter. ALOT of credit has to be given to Yohojo8. For many of the things in this script. Helping me learn alot of things, and to Charms. Whether he knows it or not, his scripts helped me alot in learning SRL. (More thanks at botom of the script)

{                        INSTRUCTIONS   v2
       1. Declare your players starting at line 29 of script.
       2. Hit play then fill out Setup Form.
       3. You must enter the tree name EXACTLY 'Willow' not 'willow'
       4. Trees can be either 'Tree' 'Oak' or 'Willow
       5. Hit OK and Watch.             }
       
{.include SRL\SRL.SCAR}

Var
TreeColor,InvColor,Loats,cx,cy: Integer;
  Setup : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Button1 : TButton;
  NameofTree : string;
  Loads : integer;
  Logg  : integer;
//[][][][][][][][][][][][][][][][][][][][]
//Declare Players <======================
//[][][][][][][][][][][][][][][][][][][][]

Procedure DeclarePlayers;
begin

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

     Players[0].Name      := 'UserName';
     Players[0].Pass      := 'Password';
     Players[0].Nick      := 'Nickname';
     Players[0].Active    := True;

     Players[1].Name      := 'UserName';
     Players[1].Pass      := 'Password';
     Players[1].Nick      := 'Nickname';
     Players[1].Active    := True;

     Players[2].Name      := 'UserName';
     Players[2].Pass      := 'Password';
     Players[2].Nick      := 'Nickname';
     Players[2].Active    := True;
     
     Players[3].Name      := 'UserName';
     Players[3].Pass      := 'Password';
     Players[3].Nick      := 'Nickname';
     Players[3].Active    := True;
end;

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

procedure ShowFormModal;
begin
  setup.ShowModal;
end;

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

Procedure InitForm;
Begin
Setup := CreateForm;
Setup.Left := 321;
Setup.Top := 193;
Setup.Width := 328;
Setup.Height := 227;
Setup.Caption := 'Fours Setup';
Setup.Color := clBtnFace;
Setup.Font.Color := clWindowText;
Setup.Font.Height := -11;
Setup.Font.Name := 'MS Sans Serif';
Setup.Font.Style := [];
Setup.Visible := False;
Setup.PixelsPerInch := 96;
Label1 := TLabel.Create(Setup);
Label1.Parent := Setup;
Label1.Left := 80;
Label1.Top := 0;
Label1.Width := 156;
Label1.Height := 33;
Label1.Caption := 'Fours Power Cutter';
Label1.Font.Color := clBlue;
Label1.Font.Height := -24;
Label1.Font.Name := 'Mandela';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(Setup);
Label2.Parent := Setup;
Label2.Left := 4;
Label2.Top := 54;
Label2.Width := 187;
Label2.Height := 20;
Label2.Caption := 'What tree are you cutting?';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -16;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(Setup);
Label3.Parent := Setup;
Label3.Left := 4;
Label3.Top := 105;
Label3.Width := 198;
Label3.Height := 20;
Label3.Caption := 'How many loads per player?';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -16;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(Setup);
Label4.Parent := Setup;
Label4.Left := 4;
Label4.Top := 74;
Label4.Width := 141;
Label4.Height := 13;
Label4.Caption := 'Exactly like RS '#39'Oak'#39' not '#39'oak'#39;
Edit1 := TEdit.Create(Setup);
Edit1.Parent := Setup;
Edit1.Left := 220;
Edit1.Top := 54;
Edit1.Width := 90;
Edit1.Height := 22;
Edit1.Font.Color := clWindowText;
Edit1.Font.Height := -11;
Edit1.Font.Name := 'Arial';
Edit1.Font.Style := [fsBold];
Edit1.ParentFont := False;
Edit1.TabOrder := 8;
Edit1.Text := 'Oak';
Edit2 := TEdit.Create(Setup);
Edit2.Parent := Setup;
Edit2.Left := 220;
Edit2.Top := 105;
Edit2.Width := 25;
Edit2.Height := 21;
Edit2.OEMConvert := True;
Edit2.TabOrder := 9;
Edit2.Text := '4';
Button1 := TButton.Create(Setup);
Button1.Parent := Setup;
Button1.Left := 120;
Button1.Top := 139;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Ok, Start';
Button1.ModalResult := 1;
Button1.TabOrder := 10;
end;


Procedure Convert2;
Begin
NameofTree := Edit1.text
Loads :=  StrToInt(Edit2.text)
end;

//[][][][][][][][][][][][][][][][][][][][]
//Load DTMs <============================
//[][][][][][][][][][][][][][][][][][][][]
procedure loadDTM;
begin
logg := DTMFromString('78DA632C666260E0646440067921460CFF813' +
       '448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
       '22604E23500D0F0135C94035DCF8D50000507909F5');
end;



//[][][][][][][][][][][][][][][][][][][][]
//MySetup <==============================
//[][][][][][][][][][][][][][][][][][][][]
Procedure MySetup;
Begin
 SetupSrl;
  UseBoxSolver := True
   wait(10)
    UseCerterSolver := True
    wait(10)
    UseSandwichSolver :=True
   ClearDebug;
  cx:=x;
 cy:=y;
end;

//[][][][][][][][][][][][][][][][][][][][]
//Second Setup <=========================
//[][][][][][][][][][][][][][][][][][][][]
Procedure SecondSetup;
Begin
 If NameofTree = ('Oak') then
  TreeColor := (2252880)
 If NameofTree = ('Willow') then
  TreeColor := (1982520)
 If NameofTree = ('Tree') then
  TreeColor := (1730648)
WriteLn('You are cutting a[n] '+(NameofTree) + ' and the color of it is ' +IntToStr(TreeColor) + '.')
WriteLn('You are cutting '+ InttoStr(Loads) +' load[s] of logs per login.')
end;

//[][][][][][][][][][][][][][][][][][][][]
//AntiRandoms Procedure <================
//[][][][][][][][][][][][][][][][][][][][]

Procedure MyAntiRandoms;
Begin
 FindNormalRandoms;
  wait(10)
       wait(10)
        FindMaze;
         wait(10)
          Solvepinball;
         Wait(10)
        if (FindFight) then
       begin
      RunAwayDirection('E');
     Wait(8500 + random(3500));
    RunBack;
    end;
   Wait(10);
  FindTalk;
end;

//[][][][][][][][][][][][][][][][][][][][]
//AntiBan Procedure <====================
//[][][][][][][][][][][][][][][][][][][][]

Procedure MyAntiban;
Begin
 GameTab(1+Random(7))
 MyAntiRandoms;
  Wait(2000+Random(1000)+Random(500))
  MyAntiRandoms;
   MMouse(200,200,300,300)
   MyAntiRandoms;
    If (2+random(3)=4) then
   Begin
   MyAntiRandoms;
    GetSkillLevel('Woodcutting')
   If (2+random(3)=3) then
  Begin
  MyAntiRandoms;
   GetXp('Woodcutting')
    end;
  end;
end;


//[][][][][][][][][][][][][][][][][][][][]
//Chopping Procedure <===================
//[][][][][][][][][][][][][][][][][][][][]

Procedure Chopping;
Begin
 Repeat
  If FindObj(x,y,NameofTree,TreeColor,3) then
 Begin
  Mouse(x,y,1,1,true)
   wait(100)
    MyAntiRandoms;
     ChooseOption(x,y,'Chop')
      MyAntiRandoms;
     MyAntiBan;
    Wait(6000+random(3000))
   If(Not(LoggedIn)) then NextPlayer(False);
  end;
 Until InvFull;
GameTab(4)
end;

//[][][][][][][][][][][][][][][][][][][][]
//Droping Procedure <====================
//[][][][][][][][][][][][][][][][][][][][]

Procedure Drop;

Begin
 Repeat
  If (FindDTM(Logg,x,y,MIX1,MIY1,MIX2,MIY2)) then
  begin
    Mouse(x,y,0,0,false)
   ChooseOption(x,y,'Drop')
   Wait(800+random(200)+random(200))
  MyAntiRandoms;
 end;
 Until (FindDTM(Logg,x,y,MIX1,MIY1,MIX2,MIY2)) = false
  Loats:=Loats+1
  end;

//[][][][][][][][][][][][][][][][][][][][]
//MAIN THING <===========================
//[][][][][][][][][][][][][][][][][][][][]

Begin
 MySetup;
   SafeInitForm;
  SafeShowFormModal;
  Convert2;
  loadDTM;
  DeclarePlayers;
   SecondSetup;
   Loats:=0
    Wait(3000+random(1000))
     LoginPlayer;
    Repeat
     Repeat
      MakeCompass('N')
       HighestAngle;
       Chopping;
      If(Not(LoggedIn)) then NextPlayer(False);
     Drop;
    SrlRandomsReport;
   Until (Loads = Loats)
     NextPlayer(True)
      Loats:=0
     If(Not(LoggedIn)) then NextPlayer(False);
    Until False;
end.

//THANK YOU ALL!
//Fours.

//Credits will go to EVERYONE in the SRL community. Yohojo8. I took up
//alot of his time and he put up with me. Charms. Procedures and scripts
//helped me alot in learning SRL and SCAR procedures/function.

——————————————————

Yes for sure. This guy has learned forms (pretty advanced for new guys) and DTMs very fast. He is very determined and never gives up. I let him solve most of his own problems before giving him hints and he really does like scripting for scripting, not just to get into members.

I know he will over time become a good scripter with his patience and determination.

This is why i vote
YES

From: yohojo8
Yes for sure. This guy has learned forms (pretty advanced for new guys) and DTMs very fast. He is very determined and never gives up. I let him solve most of his own problems before giving him hints and he really does like scripting for scripting, not just to get into members.

I know he will over time become a good scripter with his patience and determination.

This is why i vote
YES

Sounds like a good contributor to me. + The fact that he's been taught some of this stuff means that he'll probably have some more advanced knowledge of it.
:bart:
I say yes!

Just because I feel bad, I'll vote yes. :(
Seems like this guy has potential and knowledge, and not so bad tutor :P

Thanks =D

From: c0de
Just because I feel bad, I'll vote yes. :(
Seems like this guy has potential and knowledge, and not so bad tutor :P

HES not a tutor.
im HIS tutor =)
and hes the only cool noob i know! =)

well….since YoHo likes him i'll vote….NO!

Buahahahaha! Just kidding YoHo ;)

I think we could let him in, he has a stable idea of SRL and scripting.

From: yohojo8
HES not a tutor. MAYBE SOME DAY
im HIS tutor =) TRUE…
and hes the only cool noob i know! VERY TRUE! =)

thanks for the comments

Just don't tell anyone we went soft on the not applying too often thing.

From: Boreas
Just don't tell anyone we went soft on the not applying too often thing.

yeah. Dont. :wink:

Oh 1 every other day is often? =/(kidding). yeah sorry about that. Yohojo said I had a good chance with this script though =D. Once you get to know me (if you choose to do so, im a good guy… dont bite often ) you'll know im member worthy… I hope =D

In.