SRL Archive - Archive

fourscape - SRL Member Application Form
fourscape

What is the meaning to life?


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


Programming Knowledge
Yes

Other Communitys
Sythe.org

How Long have You Played Runescape
6 years

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

I have been on Villu-Reborn for only a week or so. For a while I have been on Sythe and have been finding too many scams and viruses I can't be there all the time. Also I don't believe I get as much scripting help and expierience there as I have here. This is a well run community and I would love to be a part of it. I am an amature scripter but have been learning fast. I'll post my best script. I have included it and put as much organization into it as I could. My real name is RJ and on Sythe and Villu, Fourscape. If I get accepted or don't I would love to meet more and more people and make more friends on this great site, and become a recognized member of this comunity.

–Fourscape–

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

This is a good Bone Picker and Burrier. Usefull in areas where there are many bones.

{                        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;

//[][][][][][][][][][][][][][][][][][][][]
//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;


//[][][][][][][][][][][][][][][][][][][][]
//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)
//------------------------------//
 If NameofTree = ('Oak') then
  InvColor := (3694460)
 If NameofTree = ('Willow') then
  InvColor := (2051414)
 If NameofTree = ('Tree') then
  InvColor := (3430514)
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;
end;

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

Procedure Drop;
Begin
 Repeat
  ClickItemColorTol(InvColor,4,False)
   ChooseOption(x,y,'Drop')
   Wait(800+random(200)+random(200))
  MyAntiRandoms;
 Until (CountItemColorTol(InvColor,4)<Random(4))
  Loats:=Loats+1
End;

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

Begin
 MySetup;
   SafeInitForm;
  SafeShowFormModal;
  Convert2;
  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.

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

Im sorry to say that it seems a little too simple to me. Im going to have to vote no

igualmente (means me too in spanishi think)

how can you have been here only for a week or so when your acount exists for a couple of months, anyways you shouldnt put any players[].active to false at the start of the script… nextplayer(false/true) chooses the next player which is active… but looks like a nice script:)

My account may have existed a few months… but I have not done anything for a while.. I just made an account a while ago to get SRL. Thanks for comments on Why you voted no =D. Ill take that sudjestion on the players and fix up the script a little.

no. Make a real script. Not a item picker uper.

From: Ruroken
no. Make a real script. Not a item picker uper.

Agreed. And learn SCAR standards too. I see that you tried but that's a long way from being perfected. Sorry, but no from me too. :(

- Da Der Der

Lol , who gave me the pitty vote =P. The script is not just meant to be an item picker uper, It is meant to take bones from the ground and burry them. It has the antirandoms, some antiban. For my computer at least, If the screen isn't rotated, IsUpText doesn't always work, So I made the screen rotate. This may not be the most complicated script, but it has the needed elements. Thanks for the comments =D