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?
Srl, Visual Basic


Are you a member of any other communities?
no


Tell us about yourself…

From: blazingrobin
I build and repair computers and I have started scripting with SRL in my free time.

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

program ArrowKiller; //by Blazingrobin
{$DEFINE SMART}
{$DEFINE CRASHSMART}
{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}
{$include sps/sps.simba}

//Setup
//1)fill out form below
//2)put either Headless or Shaft exactly, it is case sensitive
//3)Have fun!!
//4)????
//5)Profit!!

var
x, y, Logs, Shafts, Knife, ShaftsC, Feather, HeadlessC: integer;
MapleLog, MapleB, MapleC: integer;

MapleXP, ShaftXP, HeadlessXP:integer;
MaplePH,ShaftPH,HeadlessPH,XPPH,GPPH:Integer;

const   ////////////////////////////////////////////////////////////////////
       /////////////////Leave this area alone
    Shaft = 1;   //Place Number in Form below that you are fletching
    Headless = 2; //ie fletching headless put 2
    Maple = 3;
     ////////////////////////////////////////
Procedure SetDTM;       //declaring dtms
begin
Logs := DTMFromString('m6wAAAHic42ZgYDBhZmAwBmIjILYAYmsgtgdidyB2hmJbILYB4tWMDAwbgXgrEG8H4m1AvAWK1wHxciBeA8SbgTjURorBx0ycIdRBjSHJS5shwUMLjFN9dMBiMPE4d00GfqA7iMWMJGAkAAB2BxOF');
Shafts := DTMFromString('mKgEAAHic42NgYEhgZmCIheIoZgg/GYjToDgLiHOBOB+IC4A4Eyq+gpGBYS0QbwbiHUC8DYi3AvEWIN4J5W+CqlkFxeuAmIGBCYwNFBTgbGc1TjgfxAbRQlwQNozPDyTJwYxkYlQAABaeEzI=');
Knife := DTMFromString('mwQAAAHicjc2hCoAwAEXRp23JbxAEQREEwWC1iAjimFMW/P/P8LKwqg9OeOkaSUsurdiw44CFg8eFCSMG9OjQoEaFEqe1mluT3M7pCSEK3sdf0PuS/ZD2AuXdDK0=');
ShaftsC := DTMFromString('mFQEAAHicncjBCkVQFIXhxVDJK5xiwkDULY/A2NA7SQa3W0RS3tN/dAwM3V1fe60VSuo9acCIL36YsWDDgd3lFRNKX8qRIoFxYtetDAU+qCD5atLg8bu2VmHMxW73btktIr3l/eFxJwpnDyo=');
Feather := DTMFromString('mKgEAAHicnc5NCoNADAXgN3Xjyu49oKBUFCqeQ/wZhGkRlHFT8Yw+Z9KFWwMfCS8EEgFoAq+jlgYa6UMTzWSlT5Kf+1oBbyopp5fIREqJZAVVyt+EcYjNWvyWBfu6uvnv3H21xmwMP3u42Qy9608md6ibrnUAJPIkpg==');
HeadlessC := DTMFromString('maQEAAHicrc45CoAwEAXQMVYWIiJYRwkR9wUVe6/h/c/hj3wLsdTAYyaZhcQiopVIBgYslNCQy2toYaAeRphhgwUm6KDijpwKzrr6ypmefYZ1w/tuA/xGPeKg9ZU7RxI+4t2Thv4VnQivX3k/eJ0Tjg8Lcg==');
MapleLog := DTMFromString('mKgEAAHic42NgYPBnZmAIAuIQIA4H4lggTgTiFCBOB+JsIE6F4jggjgDiYCD+BtT7A4h/Q/FPJAyS+wzE74H4FRS/heKKUFWGXB9FMA3CMTa8DHG2vAwJ9hDay4ALjP2NuRkCTbkZIix5wOr4gXrJwYxkYlQAABh9HYc=');
MapleB := DTMFromString('mAAEAAHic42FgYNjJBMF7gHg/EO+F0oeg+CAQHwHiY0B8EojPAfWcAOLDQHwciC8A8VkgPgPlH4HKgfingTjGhpchypqHIcKSh8HHiAvOB2EHLU4wHxnzA/WQghlJxMgAAP5WGq0=');
MapleC := DTMFromString('mrAAAAHic42BgYNBgYmBQA2IlIJYDYhkglgBiESDmA+I9jAwM24F4AxCvBeJVQLwMiJcC8SIgLs9KY2gozmdIiQpniAsJZJjR0czQUVnKkJ+cwDCxqZaBH2gHPsxIAMMAAPvdEYg=');
end;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers)
  CurrentPlayer := 0;

  Players[0].Name := ''; //Username Here
  Players[0].Pass := ''; //Password Here
  Players[0].Nick := '';
  Players[0].Active := True;
  Players[0].Pin :='';   //Pin Here
  Players[0].Integers[0] := 2; //Check Chart Above
end;
//////////////////////////////STOP HERE/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

procedure DepositItems; //Depositing after done fletching
begin
    OpenBankChestEdge(SRL_BANK_SW);
    if (PinScreen) then
  InPin(Players[CurrentPlayer].Pin);
    if BankScreen then
    wait(1000 + random(200));
      begin
      writeln('Depositing Items')
        DepositAll;
       If Players[0].Integers[0] = 1 then
        ShaftXP := ShaftXP + 420;
       If Players[0].Integers[0] = 3 then
        MapleXP := MapleXP + 28;
      end;
end;

Procedure MapleMaker; //idea from Sockz with alot of help from Mayazcherquoi on #srl chat
begin
    begin
    writeln('Fletching')
    wait(1500)
   If FindDTM(MapleLog,x,y,MIX1,MIY1,MIX2,MIY2) = True then
    wait(1500 + random(100));
    Mouse(x, y, 1, 1, true);
    If FindDTM(Knife,x,y,MCX1,MCY1,MCX2,MCY2) = True then
      Mouse(x, y, 1, 1, true);
      wait(1500 + random(100));
    If FindDTM(Knife,x,y,MCX1,MCY1,MCX2,MCY2) = False then
      wait(1000 + random(100));
      Begin
        If FindDTM(MapleC,x,y,MCX1,MCY1,MCX2,MCY2) = True then
        Mouse(x, y, 1, 1, true);
        wait(52000)
      end;
  If FindDTM(MapleLog,x,y,MIX1,MIY1,MIX2,MIY2) = True then
    wait(3000 + random(100));
  if FindDTM(MapleLog,x,y,MIX1,MIY1,MIX2,MIY2) = False then
    begin
      Writeln('Opening Bank')
      DepositItems;
    end;
end;
end;

Procedure WithdrawItemsL;
begin
   begin;
    OpenBankChestEdge(SRL_BANK_SW);
    if (PinScreen) then
  InPin(Players[CurrentPlayer].Pin);
    if BankScreen then
    wait(1000 + random(200));
  end;
  begin
  DepositAll;
    if FindDTM(Logs,x,y,MBX1,MBY1,MBX2,MBY2) then
    begin
      Mouse(x,y, 4, 4,False);
      WaitOption('Withdraw-28',1500);
    end;
    wait(500 +random(200));

    if FindDTM(Logs,x,y,MBX1,MBY1,MBX2,MBY2) = False then //runs out of 5kg
    begin
    Logout;
    writeln('Could not find Logs or Out of Logs')
    end;
  end;
  begin
    CloseBank;
    wait(1000 + random(200));
  end;
end;

procedure WithdrawItemsM; //initial banking
begin
  begin;
    OpenBankChestEdge(SRL_BANK_SW);
    if (PinScreen) then
  InPin(Players[CurrentPlayer].Pin);
    if BankScreen then
    wait(1000 + random(200));
    writeln('Getting Materials')
  end;
    begin
    DepositAll;
    wait(1500)
      if FindDTM(MapleB,x,y,MBX1,MBY1,MBX2,MBY2) = true then
      Mouse(x,y, 4, 4,False);
      WaitOption('Withdraw-28',1500);
    end;
    wait(500 +random(200));
    begin
    CloseBank;
    wait(1000 + random(200));
  end;

end;

Procedure HeadlessMaker; //idea from Sockz with alot of help from Mayazcherquoi on #srl chat
begin
    begin
    writeln('Fletching')
    MouseItem(1,1)
    MouseItem(2,1)
    Wait(1050 + RandomRange(200,400));
    If FindDTM(HeadlessC,x,y,MCX1,MCY1,MCX2,MCY2) = True then
      Mouse(x, y, 1, 1, true);
      HeadlessXP := HeadlessXP + 150;
      wait(14000);
      end;
end;

Procedure CraftItems; //Crafting from logs to shafts
begin
   writeln('Fletching')
  If FindDTM(Logs,x,y,MIX1,MIY1,MIX2,MIY2) = True then
    wait(1500 + random(100));
    Mouse(x, y, 1, 1, true);
    If FindDTM(Knife,x,y,MCX1,MCY1,MCX2,MCY2) = True then
      Mouse(x, y, 1, 1, true);
      wait(1500 + random(100));
    If FindDTM(Knife,x,y,MCX1,MCY1,MCX2,MCY2) = False then
      wait(1500 + random(100));
      Begin
        If FindDTM(ShaftsC,x,y,MCX1,MCY1,MCX2,MCY2) = True then
        Mouse(x, y, 1, 1, true);
        wait(52000)
      end;
  If FindDTM(Logs,x,y,MIX1,MIY1,MIX2,MIY2) = True then
    wait(3000 + random(100));
  if FindDTM(Logs,x,y,MIX1,MIY1,MIX2,MIY2) = False then
    begin
      Writeln('Opening Bank')
      DepositItems;
    end;
end;

Procedure MapleProg; //credit to NKN for tutorial
begin
  MaplePH := Round((MapleXP * 3600) / (GetTimeRunning / 1000));
  XPPH := Round(((MapleXP * 59) * 3600) / (GetTimeRunning / 1000));
  GPPH := Round(((MapleXP * 80) * 3600 )/ (GetTimeRunning / 1000));
  Writeln('***********Arrow Killer**********');
  Writeln('*         ~By Blazingrobin~               ');
  Writeln('*Maples Made: ' + IntToStr(MapleXP) + ' (' + IntToStr(MaplePH) + ' P/H)');
  Writeln('*XP earned: ' + IntToStr(MapleXP * 59)+ ' (' + IntToStr(XPPH) + ' P/H)');
  Writeln('*GP Made: ' + IntToStr(MapleXP * 80)+ ' (' + IntToStr(GPPH) + ' P/H)');
  Writeln('*Total Time: ' + TimeRunning);
  Writeln('********************************');
end;

Procedure ShaftProg;  //credit to NKN for tutorial
begin
  ShaftPH := Round((ShaftXP * 3600) / (GetTimeRunning / 1000));
  XPPH := Round(((ShaftXP * (1)/(3)) * 3600) / (GetTimeRunning / 1000));
  GPPH := Round(((ShaftXP * 12) * 3600) / (GetTimeRunning / 1000));
  Writeln('***********Arrow Killer**********');
  Writeln('*         ~By Blazingrobin~               ');
  Writeln('*Shafts Made: ' + IntToStr(ShaftXP) + ' (' + IntToStr(ShaftPH) + ' P/H)');
  Writeln('*XP earned: ' + IntToStr(ShaftXP * (1)/(3))+ ' (' + IntToStr(XPPH) + ' P/H)');
  Writeln('*GP Made: ' + IntToStr(ShaftXP * 12)+ ' (' + IntToStr(GPPH) + ' P/H)');
  Writeln('*Total Time: ' + TimeRunning);
  Writeln('********************************');
end;

Procedure HeadlessProg;  //credit to NKN for tutorial
begin
  HeadlessPH := Round((HeadlessXP * 3600) / (GetTimeRunning / 1000));
  XPPH := Round(((HeadlessXP * 1) * 3600) / (GetTimeRunning / 1000));
  GPPH := Round(((HeadlessXP * 45) * 3600) / (GetTimeRunning / 1000));
  Writeln('***********Arrow Killer**********');
  Writeln('*        ~By Blazingrobin~               ');
  Writeln('*Headless Made: ' + IntToStr(HeadlessXP) + ' (' + IntToStr(HeadlessPH) + ' P/H)');
  Writeln('*XP earned: ' + IntToStr(HeadlessXP * 1)+ ' (' + IntToStr(XPPH) + ' P/H)');
  Writeln('*GP Made: ' + IntToStr(HeadlessXP * 45)+ ' (' + IntToStr(GPPH) + ' P/H)');
  Writeln('*Total Time: ' + TimeRunning);
  Writeln('********************************');
end;

Procedure MasterPlan;
begin
 If Players[0].Integers[0] = 1 then
         begin
           WithdrawItemsL;
           Wait(1500)
           CraftItems;
           ShaftProg;
          end;
 If Players[0].Integers[0] = 2 then
        begin
         HeadlessMaker;
         HeadlessProg;
        end;
      If Players[0].Integers[0] = 3 then
         begin
           WithdrawItemsM;
           Wait(1500)
           MapleMaker;
           MapleProg;
          end;

end;

begin
  Smart_Signed := TRUE;
  Smart_Members := True;
  Smart_SuperDetail := FALSE;
  Smart_Server := 60;


  SetUpSrl;
  SetDTM;
  ActivateClient;
  DeclarePlayers;
  MouseSpeed := 20;
  LoginPlayer;
  ClearDebug;
  repeat
   SetAngle(SRL_ANGLE_HIGH);
   MasterPlan;
  until false;
end.

No anti-randoms, very few failsafes, and there is just not enough knowledge being shown in the script. It's a no from me, sorry.

kinda figured it would be but had to try

No from me. Sorry. Just too simple and other factors such as activity always remember SRL members is a community rank we are here to help.

Try to follow this guide to become a SRL member:
http://villavu.com/forum/showthread.php?t=74195

For learning purposes I recommend starting with YoHoJo's video tutorials, informative and they will teach you what you need to know to create a basic/decent script.
http://villavu.com/forum/showthread.php?t=69179

For more advanced scripting I would suggest reading these guides:
http://villavu.com/forum/forumdisplay.php?f=96

Also one thing I really think is important is being community focused, you have 34 posts! Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted.

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Anyway, sorry for the roughness. Good luck.

From: R4nd0m
No from me. Sorry. Just too simple and other factors such as activity always remember SRL members is a community rank we are here to help.

…..

Anyway, sorry for the roughness. Good luck.

Like I had said, I figured I wouldn't get anywhere but I had to try and I really do appreciate you trying to help me out. Oh, and you weren't "rough" it's just you were stating why I need to keep working at it.

Sorry dude, a bit too simple but you're getting there. Remember to freedtms either after use or on terminate.

const   ////////////////////////////////////////////////////////////////////
       /////////////////Leave this area alone
    Shaft = 1;   //Place Number in Form below that you are fletching
    Headless = 2; //ie fletching headless put 2
    Maple = 3;
     ////////////////////////////////////////

could be replaced with:

const  
//setup
type=1; //1 for shaft, 2 for headless, 3 for maple.

if type=1 then
 makeshaft;
if type=2 then
 makehead;

I am not going to vote, but I figured this could be seen as a simpler method for setup. Ironicly I see you in me, and I see this application similar to one of mine, where I submitted my fletching script (still working as far as I know, but I dont have members any more). which can be found in the public scripts fletching section if you want to have a look for learning purposes.

No, sorry Mate… You could do better by adding TPA and some walking usage.

Looks like you're not getting in this time.
You may try again in two weeks.