SRL Archive - Archive

How Long have You Played Runescape?
7 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
Hunaja


What is your general programming knowledge?
Basic


Are you a member of any other communities?
No


Tell us about yourself…

From: ubex
21 year old guy from finland, interested about this community and coding.

Please show us one (or multiple) of your scripts.

Program UbexBarbFisher;
{$Define Smart8}
{$i srl/srl.simba}
{$i P07Include.simba}

var
x,y: Integer;

Function Look: Boolean;
begin
     case random(100) of
  0: P07_MakeCompassEast;
  1: P07_MakeCompassWest;
  end;
end;

procedure Fish;
begin
 If P07_InvCount>25 Then P07_DropAllExcept([1,2,3,]);
 If P07_FindObjCustom(x, y, ['ure','ishing','ot'], [15515598, 14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 10) Then
  ClickMouse2(mouse_left);
 If (not(P07_FindObjCustom(x, y, ['ure','ishing','ot'], [15515598, 14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 10))) Then
   begin
    repeat
    Look;
    until P07_FindObjCustom(x, y, ['ure','ishing','ot'], [15515598, 14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 10)
   If P07_FindObjCustom(x, y, ['ure','ishing','ot'], [15515598, 14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 10) Then
     ClickMouse2(mouse_left);
   end;
end;

Procedure AntiBan;
begin
  case(random(250)) of
    0: MMouse(random(500), random(500), 1, 2);
    10: P07_HoverSkill('Fishing',1000+Random(4000));
    20: P07_HoverSkill('Fishing',1000+Random(4000));
    30: P07_MakeCameraAngleHigh;
    40: P07_MakeCameraAngleLow;
    50: P07_MakeCompassDegree(random(360));
  end;
end;

procedure FindRod;
begin
 If P07_FindObjCustom(x,y,['rod'],[1208726,1141389],5) Then
   begin
   ClickMouse2(mouse_left);
   wait(1250+random(200))
   end;
end;

procedure ClickGenie;
begin
 If P07_FindObjCustom(x,y,['enie'],[1650385],5) Then
   begin
   ClickMouse2(mouse_left);
   wait(2000+random(1000))
   P07_ClickToContinue;
   wait(500+random(100))
   If P07_FindObjCustom(x,y,['enie'],[1650385],5) Then
    repeat
     wait(200);
    until not(P07_FindObjCustom(x,y,['enie'],[1650385],5))
   end;
end;

procedure ClickMan;
begin
 If P07_FindObjCustom(x,y,['ious','alk'],[5849352],5) Then
   begin
   ClickMouse2(mouse_left);
   wait(2000+random(1000))
   P07_ClickToContinue;
   wait(500+random(100))
   If P07_FindObjCustom(x,y,['ious','alk'],[5849352],5) Then
    repeat
     wait(200);
    until not(P07_FindObjCustom(x,y,['ious','alk'],[5849352],5))
  end;
end;

procedure RunSwarm;
begin
 If P07_FindObjCustom(x,y,['alk','ere'],[255],5) Then
   begin
    wait(8000+random(500))
    If P07_FindObjCustom(x,y,['alk','ere'],[255],5) Then
     begin
      If P07_FindObjCustom(x,y,['alk','ere'],[3179891],5) Then
       begin
        ClickMouse2(mouse_left);
        wait(3000+random(1000))
       end;
     end;
  end;
end;

procedure ClickJekyll;
begin
 If P07_FindObjCustom(x,y,['ekyll'],[594262],5) Then
   begin
   ClickMouse2(mouse_left);
   wait(2000+random(1000))
   P07_ClickToContinue;
   wait(500+random(100))
   If P07_FindObjCustom(x,y,['ekyll'],[594262],5) Then
    repeat
     wait(200);
    until not(P07_FindObjCustom(x,y,['ekyll'],[594262],5))
  end;
end;

procedure ClickFruit;
begin
 If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],5) Then
  begin
   wait(5000+random(1000))
   ClickMouse2(mouse_left);
   wait(500+random(100))
   If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],5) Then
    repeat
     wait(200);
    until not(P07_FindObjCustom(x,y,['ick','ruit'],[12479637],5))
 end;
end;

procedure ClickDwarf;
begin
 If P07_FindObjCustom(x,y,['warf'],[1844602],5) Then
   begin
   ClickMouse2(mouse_left);
   wait(2000+random(1000))
   P07_ClickToContinue;
   wait(500+random(100))
   If P07_FindObjCustom(x,y,['warf'],[1844602],5) Then
    repeat
     wait(200);
    until not(P07_FindObjCustom(x,y,['warf'],[1844602],5))
  end;
end;

procedure ClickHand;
begin
 If P07_FindObjCustom(x,y,['and'],[3549040],5) Then
  begin
   ClickMouse2(mouse_left);
   wait(2000+random(1000))
   P07_ClickToContinue;
   wait(500+random(100))
   If P07_FindObjCustom(x,y,['and'],[3549040],5) Then
    repeat
     wait(200);
    until not(P07_FindObjCustom(x,y,['and'],[3549040],5))
  end;
end;

procedure ClickRick;
begin
 If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],5) Then
   begin
   ClickMouse2(mouse_left);
   wait(2000+random(1000))
   P07_ClickToContinue;
   wait(500+random(100))
   If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],5) Then
    repeat
     wait(100);
    until not(P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],5))
  end;
end;

procedure Security;
begin
 If P07_FindObjCustom(x,y,['ecut','ity'],[2500136],5) Then
   begin
   ClickMouse2(mouse_right);
   P07_ChooseOptionMulti(['alk']);
   wait(2000+random(1000))
   P07_ClickToContinue;
   wait(3000+random(1000))
  end;
end;

Procedure Waitfishing;
Var
 Inv1,Inv2:Integer;
Begin
 repeat
 Inv1 := P07_InvCount;
 wait(8000+random(200))
 Inv2 := P07_InvCount;
 If Inv2 > Inv1 then
  begin
  If P07_InvFull then Exit;
  P07_MakeCompassWest;
  ClickJekyll;
  ClickMan;
  ClickHand;
  ClickRick;
  ClickDwarf;
  ClickGenie;
  ClickFruit;
  If P07_InvFull then Exit;
  end;
 If Inv2=Inv1 then Exit;
 until(false);
end;


begin
SetupSRL;
SetupP07Include;
ActivateClient;
repeat
 P07_MakeCameraAngleHigh;
 Fish;
 Waitfishing;
 FindRod;
 until(false);

If P07_InvFull then
P07_DropAllExcept([1, 2, 3]);
Repeat Wait(1000) until P07_invFull;
end.

4 posts, Not even going to look at the script sorry.
SRL members is a community rank which means you should be active in the community.

Im active but just not been posting anything, sorry for no pc.

You should learn TPAs/ATPAs, instead of FindObjCustom, and other basic color-finding methods, so that we know that YOU know how to utilize the script.

Your activity and the like is too low to be accepted into members. Not going to vote, because I'm still too new.

Best of luck on your application!

You need to become more active - so we get to know you better :)

sorry.

alright, understood. Admin can lock this application.

Hi ubex,

As your probably already understood from the others, you need to be a well known
member before you can become an SRL member. Since the rank is a community rank
beside being a scripting rank. A good minimum you should think of is about 200
posts. This ensures everyone has probably heard of your name in a thread.

Your script is looking great, you can see you put some energy in it! It however
isn't at the level we require for SRL member yet, maybe it will be in the future ;).
Is suggest looking into TPAs and such for improvement. Also it seems you have some
functions you repeat often, just with different numbers, try to make one function
that is able to click all these persons and objects instead of copy pasting your
code.

Good luck!

Bart