SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
Pascal, a bit of Java and C++


Are you a member of any other communities?
No


Tell us about yourself…

From: Deadman1029
I enjoy football, going to the beach, and programming.

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

program new;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
{$i srl/srl/misc/smartgraphics.simba}
var
  runes,profit:integer;
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Nick := '';
  Players[0].Active := True; // Set to true if you want to use Player 0
  Players[0].Pin := '';
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
  profit:=1500;//Profit per inventory;
end;
function FindDDTMs(theWalk:integer): Integer;  //Returns a DTM, based on which DDTM you call via theWalk integer
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..5] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  case theWalk of
  1:
  begin
   dtmMainPoint.x := 957;
  dtmMainPoint.y := 228;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 2652804;
  dtmMainPoint.Tolerance := 20;

  dtmSubPoints[0].x := 957;
  dtmSubPoints[0].y := 228;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 2652804;
  dtmSubPoints[0].Tolerance := 20;

  dtmSubPoints[1].x := 893;
  dtmSubPoints[1].y := 165;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 5999495;
  dtmSubPoints[1].Tolerance := 20;

  dtmSubPoints[2].x := 923;
  dtmSubPoints[2].y := 212;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 3052183;
  dtmSubPoints[2].Tolerance := 20;

  dtmSubPoints[3].x := 957;
  dtmSubPoints[3].y := 188;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 3052183;
  dtmSubPoints[3].Tolerance := 20;

  dtmSubPoints[4].x := 923;
  dtmSubPoints[4].y := 251;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 3306070;
  dtmSubPoints[4].Tolerance := 20;

  dtmSubPoints[5].x := 907;
  dtmSubPoints[5].y := 216;
  dtmSubPoints[5].AreaSize := 0;
  dtmSubPoints[5].AreaShape := 0;
  dtmSubPoints[5].Color := 1663045;
  dtmSubPoints[5].Tolerance := 20;
  end;
  2:
  begin
  dtmMainPoint.x := 912;
  dtmMainPoint.y := 151;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 2055247;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 912;
  dtmSubPoints[0].y := 151;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 2055247;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 928;
  dtmSubPoints[1].y := 171;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 1723457;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 893;
  dtmSubPoints[2].y := 164;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 1988427;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 899;
  dtmSubPoints[3].y := 130;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2709324;
  dtmSubPoints[3].Tolerance := 15;

  dtmSubPoints[4].x := 922;
  dtmSubPoints[4].y := 141;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 2055247;
  dtmSubPoints[4].Tolerance := 15;

  dtmSubPoints[5].x := 895;
  dtmSubPoints[5].y := 214;
  dtmSubPoints[5].AreaSize := 0;
  dtmSubPoints[5].AreaShape := 0;
  dtmSubPoints[5].Color := 10260611;
  dtmSubPoints[5].Tolerance := 15;
  end;
  3:
  begin
   dtmMainPoint.x := 917;
  dtmMainPoint.y := 165;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 15591671;
  dtmMainPoint.Tolerance := 20;

  dtmSubPoints[0].x := 917;
  dtmSubPoints[0].y := 165;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 15591671;
  dtmSubPoints[0].Tolerance := 20;

  dtmSubPoints[1].x := 905;
  dtmSubPoints[1].y := 196;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 6775404;
  dtmSubPoints[1].Tolerance := 20;

  dtmSubPoints[2].x := 899;
  dtmSubPoints[2].y := 175;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 10788779;
  dtmSubPoints[2].Tolerance := 20;

  dtmSubPoints[3].x := 940;
  dtmSubPoints[3].y := 167;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 6185075;
  dtmSubPoints[3].Tolerance := 20;

  dtmSubPoints[4].x := 929;
  dtmSubPoints[4].y := 177;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 10524826;
  dtmSubPoints[4].Tolerance := 20;

  dtmSubPoints[5].x := 906;
  dtmSubPoints[5].y := 163;
  dtmSubPoints[5].AreaSize := 0;
  dtmSubPoints[5].AreaShape := 0;
  dtmSubPoints[5].Color := 15591671;
  dtmSubPoints[5].Tolerance := 20;
  end;
   4:begin
   dtmMainPoint.x := 904;
  dtmMainPoint.y := 147;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 15130846;
  dtmMainPoint.Tolerance := 25;

  dtmSubPoints[0].x := 904;
  dtmSubPoints[0].y := 147;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 15130846;
  dtmSubPoints[0].Tolerance := 25;

  dtmSubPoints[1].x := 928;
  dtmSubPoints[1].y := 117;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 5460561;
  dtmSubPoints[1].Tolerance := 25;

  dtmSubPoints[2].x := 949;
  dtmSubPoints[2].y := 133;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 5460561;
  dtmSubPoints[2].Tolerance := 25;

  dtmSubPoints[3].x := 883;
  dtmSubPoints[3].y := 138;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 5460561;
  dtmSubPoints[3].Tolerance := 25;

  dtmSubPoints[4].x := 901;
  dtmSubPoints[4].y := 159;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 13617864;
  dtmSubPoints[4].Tolerance := 25;

  dtmSubPoints[5].x := 916;
  dtmSubPoints[5].y := 156;
  dtmSubPoints[5].AreaSize := 0;
  dtmSubPoints[5].AreaShape := 0;
  dtmSubPoints[5].Color := 15788776;
  dtmSubPoints[5].Tolerance := 25;
  end;
  end;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;
function FindBankerDa(var x, y : Integer) : Boolean;
var
   a : Integer;
  TPA  : TPointArray;
  ATPA : T2DPointArray;
  MP   : TPoint;
  tmpCTS : Integer;
  Box  : TBox;
begin
  if not LoggedIn then Exit;
 tmpCTS := GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.21,0.66);
  FindColorsSpiralTolerance(MSCX,MSCY,TPA,2376007,MSX1,MSY1,MSX2,MSY2,9);
  SortTPAFrom(TPA,point(MSCX,MSCY));
  ATPA := TPAtoATPAEx(TPA,15,15);
  for a := 0 to High(ATPA) do
  begin
    MP := MiddleTPA(ATPA[a]);
    Box := IntToBox((MP.x - 20),(MP.y - 20),(MP.x + 20),(MP.y + 20));
    SMART_DrawBoxEx(True,False,Box,clYellow);
    MMouse(MP.x,MP.y,4,4);
    if(WaitUpText('ank',750))then
    begin
      x := MP.x; y := MP.y;
      Result := True
      SMART_ClearCanvas;
      Break;
    end;
  end;
  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2,0.2);
end;
function Bank:Boolean;
var
  x,y,home:integer;
begin
  runes := Runes +GetAmountBox(IntToBox(647,213,678,244))
  if(FindBankerDa(x,y)) then
  begin
    Mouse(x,y,1,1,mouse_right);
    if(WaitOption('Bank F',3000)) then
    begin
      if(not(WaitFunc(@BankScreen,10,10000))) then
        Bank;
      Result := True;
      Deposit(3,28,True);
      Withdraw(0,0,0);
      CloseBank;
      if(not(WaitInvMinCount(4,4000))) then
      begin
        Writeln('Out of essense');
        Logout;
        TerminateScript;
      end;
      home:= DTMFromString('78DA63AC61666058CBC8800CF61DF9C42009A' +
      '461A28C1540352B50D594C5CD4055530754B312554D924F07A69A0DA' +
      '86A2458E551D59461AAC98A3C80AAA619A8660DAA9A18B3A3A86A6A8' +
      '16A96A1AAE96E3B86AAA604A86615AA9AB6393750D40000D350162A');
     gametab(tab_magic);
     if(FindDTM(home,x,y,MIX1,MIY1,MIX2,MIY2)) then
     begin
      FreeDTM(home);
       Mouse(x,y,1,1,1);
        While(not((FindSymbol(x,y,'fish')) or (FindColorTolerance(x,y,13706109,MIX1,MIY1,MIX2,MIY2,25)))) do
         Wait(100);
     end;
    end;
  end;
end;
procedure TeleportBank;
var
  x,y,i,theWalk:integer;
  FoundDTM:Boolean;
  theAngle:Extended;
begin
  repeat
      FoundDTM := False;
      theWalk:=FindDDTMs(3);
      While(FoundDTM = False) do
      begin
        if(FindDTMRotated(theWalk,x,y,MMX1,MMY1,MMX2,MMY2,-pi/2,pi/2,0.1,theAngle)) then
        begin
          FoundDTM := True;
          FreeDTM(theWalk);
        end;
      end;
      Wait(2000+random(500));
      mouse(x,y,1,1,1);
      FFlag(0);
      While(IsMoving) do
        Wait(100);
      if FindSymbol(x,y,'bank') then
      begin
        Mouse(x,y,1,1,1);
        FFlag(0);
        While(IsMoving) do
          Wait(100);
      end else
        TeleportBank;
   until(Bank);
end;
procedure GetPos;
var
  myPath:TPointArray;
  theWalk,x,y:Integer;
  theAngle:Extended;
begin
  GameTab(tab_equip);
  Mouse(700,384,4,4,mouse_right);
  if(WaitOption('ele',5000)) then
    TeleportBank;
  SPS_Setup(RUNESCAPE_SURFACE,['0_0_0_0']);
  Writeln(SPS_GetMyPos);
  myPath :=[Point(107, -309), Point(123, -257), Point(123, -197), Point(159, -157),
  Point(159, -97), Point(175, -45), Point(211, 3), Point(247, 43),
  Point(291, 79), Point(339, 111), Point(387, 151), Point(419, 199),
  Point(463, 235), Point(491, 279), Point(491, 279)];
  SPS_WalkPath(myPath);
  theWalk := FindDDTMs(1);
  if(FindDTMRotated(theWalk,x,y,MMX1,MMY1,MMX2,MMY2,(-Pi/2),(Pi/2),0.1,theAngle)) then
  begin
    Mouse(x,y,1,1,1);
    FFlag(0);
    While(IsMoving) do
      Wait(100);
  end;
  FreeDtm(theWalk);
end;

function FindAlter(var x, y : Integer) : Boolean;
var
   a : Integer;
  TPA  : TPointArray;
  ATPA : T2DPointArray;
  MP   : TPoint;
  tmpCTS : Integer;
  Box  : TBox;
begin
  if not LoggedIn then Exit;
 tmpCTS := GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.00,0.03);
  FindColorsSpiralTolerance(MSCX,MSCY,TPA,5328464,MSX1,MSY1,MSX2,MSY2,1);
  SortTPAFrom(TPA,point(MSCX,MSCY));
  ATPA := TPAtoATPAEx(TPA,15,15);
  for a := 0 to High(ATPA) do
  begin
    MP := MiddleTPA(ATPA[a]);
    Box := IntToBox((MP.x - 20),(MP.y - 20),(MP.x + 20),(MP.y + 20));
    SMART_DrawBoxEx(True,False,Box,clYellow);
    MMouse(MP.x,MP.y,4,4);
    if(WaitUpText('tar',750))then
    begin
      x := MP.x; y := MP.y;
      Result := True
      SMART_ClearCanvas;
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2,0.2);
end;
procedure EnterAlter;
var
  x,y,theWalk:integer;
  theAngle:Extended;
begin
  if(FindColorTolerance(x,y,5111207,MSX1,MSY1,MSX2,MSy2,5)) then
  begin
    Mouse(x,y,1,1,1);
    FFlag(0);
    While(not(FindSymbol(x,y,'arrow'))) do
      Wait(100);
    theWalk := FindDDTMs(2);
  if(FindDTMRotated(theWalk,x,y,MMX1,MMY1,MMX2,MMY2,(-Pi/2),(Pi/2),0.1,theAngle)) then
  begin
    Mouse(x,y,1,1,1);
    FFlag(0);
    While(IsMoving) do
      Wait(100);
    if(FindAlter(x,y)) then
    begin
      Mouse(x,y,1,1,1);
      While(ExistsItem(28)) do
        Wait(50);
    end;
  end;
  FreeDtm(theWalk);
  end;
end;


procedure SetupLogin;
begin
  SRL_SixHourFix := True;
  Smart_FixSpeed := True;

  ClearDebug;
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
end;
procedure Progress;
var
  OrePH,XPPH,GPPH:Integer;

begin
  OrePH := Round((Runes * 3600) / (GetTimeRunning / 1000));
  XPPH := Round(((Runes * 9) * 3600) / (GetTimeRunning / 1000));
  GPPH := Round(((Runes * profit) * 3600) / (GetTimeRunning / 1000));
  ClearDebug;
  Writeln('***********Power Nats**********');
  Writeln('*Items made: ' + IntToStr(Runes) + ' (' + IntToStr(OrePH) + ' P/H)');
  Writeln('*XP earned: ' + IntToStr(Runes * 9)+ ' (' + IntToStr(XPPH) + ' P/H)');
  Writeln('*GP Made: ' + IntToStr(Runes * Profit)+ ' (' + IntToStr(GPPH) + ' P/H)');
  Writeln('*Total Time: ' + TimeRunning);
  Writeln('********************************');
end;

begin
  SetupLogin;
  LoginPlayer;
  ClickNorth(SRL_ANGLE_HIGH);
  repeat
  GetPos;
  EnterAlter;
  Progress;
  until(AllPlayersInactive);
end.

Going to vote no due to having little\none activity, being a SRL member isn't 100% about being able to script ect, its also a community rank.

Best of luck.

Only 3 posts, sorry have to vote no.

Guide to SRL Members: http://villavu.com/forum/showthread.php?t=74195
I am not voting, however your chances of getting in are slim to none.
Your script looks pretty good, though I only glossed over it, your major downfall will be that this is a community rank and thus, despite ability alot of people will be looking for your interaction with others in and around Villavu.

Get to know some people, help people out where you can and just general be a friendly and active part of this community and I'm sure you will get in :)

Best of luck.

Your script is impressive. Although you may consider looking into walking such as radial walk and tap walking.
Despite the script I am still going to unfortunately give you a no due to your lack of activity and longevity.
If you truly want to strive for the community rank of srl member then I am sure you will make it in a month or two if you actively make a contribution to the srl community.

~Caotom

The script is fine, you have some programming skill.
One suggestion: you should have a look at the srl includes and study them, theres some cool functions there. For example you could use GetGEPrice() instead of having the profit set as const.
You joined in April, thats a few months. Being a member here isnt all about the scripts, we have some great time reading around and making posts. Im sure you can find some interests too. :)
I voted no, we dont know much about you.

Sorry, Deadman1029.

Unfortunately it appears that you won't be getting in this time :( Post more posts, assist where assistance is called, keep at it and then apply again. :)

You may apply again in one month.

Regards,
~ Daniel.