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?



What is your general programming knowledge?
I've coded private server's for a number of years, I learned on my own so I'm very well at picking up new languages. (I picked up pascal in a few hours).


Are you a member of any other communities?
Rune-server, Old School Runescape


Tell us about yourself…

From: Brid Mayhem
I'm 16, I've coded Runescape Private servers for ~3 years. I'm fairly mature. (Or so I've been told). I go to a charter school so I only go two days a week for 4-5 hours. I get out of school in May. My real name is Daniel.


Only reason I'd like membership is to release scripts there. (I wont release scripts without an anti-leech to regular members who wont work at all to unlock their use.)

TL;DR-
I have school 2 days, i'm on the computer a ton and i'd like to be a member so I can still script for Simba with this community.

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



xPoultryPillager - My first independent script. I have been making a ton of tweaks to this, and i've made a gui. (Unfinished GUI)

program xPoultryPillager;

/////////////////////////////////////////////////
//////         xPoultryPillager          ///////
/////       Scripy by: Brid Mayhem        /////
///   Running this will SOON open a GUI   ////
// So wont worry about changing anything! ///
////////////////////////////////////////////

{$Define SMART8}
{$i Srl/Srl.simba}
{$i P07Include.simba}

//////// CONFIGURATION////////////////
Function BuryBones: Boolean;
  begin;
          result := true;        //true to bury, false to not.
  end;
Const

StatToTrain = 'strength';   //What stat are you going to train?

FightStyle = 2;            // 1 = Attack/Accurate, 2 = Strength/Rapid, 3 = Controlled/Long range, 4 = Defence

TakeFeathers  = 'true';    //should the bot pickup feathers?

TakeArrows    = 'true';   //should the bot pickup any arrows?

ArrowType     = 'bronze';    //What type of arrows do you want to collect?

TakeBolts     = 'true';   //should the bot pickup any bolts?

BoltType     = 'bronze';    //What type of bolts do you want to collect?

Username      = 'Not Set'; //Enter your username

Password      = 'Not set'; //Enter your password


///////// OPTIONAL CONFIGURATION //////////


HoverSkill1   = 'Range'; //choose which skill to hover

HoverSkill2   = 'Hitpoints'; //choose which skill to hover


//////////////// MONSTER COLORS //////////////////
///////You shouldn't have to change these!////////
//////////////////////////////////////////////////


CColor = 2708594;                   // Chicken Color 1
CColor2 = 8036533;                  // Chicken Color 2
CColor3 = 3627894;                 // Chicken Color 3
CColor4 = 1585218;                  // Chicken Color 4


//////////////// LOOTING COLORS ///////////////////
///////You shouldn't have to change these!////////
/////////////////////////////////////////////////


ArrowColor = 922990;                 // Color of arrow end(red)

ArrowColor2 = 602966;                //Color of arrow shaft

BoltColor   = 599091;               //Color of bolt

FeatherColor = 13882329;             // Color of feathers

BonesColor = 14145500;          //Color of bones



///////////////END CONFIGURATION! DON'T GO PAST HERE!/////////////
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
var
X, Y, BonesBuried, TotalBoneCount, BoneCount, InvBones, Attacked, InCombat,
StartingLevel, StartingPrayerLevel, LevelsGained, PrayerLevelsGained: Integer;
procedure P07_DeclarePlayers;
  begin
    P07_PlayerName := Username;
    P07_PlayerPass := Password;
  end;










 // SET RUN
procedure P07_SetRun(Run: Boolean);
var
  x, y: integer;
begin

  if not P07_TabInventoryTab(12) then
    begin
      writeln('ERROR: Could not P07_TabInventoryTab(12) -> Error in P07 include or random! Exiting');
      Exit;
    end;

  if (FindColor(x, y, 4342852, 627, 416, 658, 444)) then
    begin
      mouse(x, y, 1, 1, 1);
     Writeln('> ON');
    end;
  writeln('-> Going to inventory tab');
  P07_TabInventoryTab(4);
end;
//END SET RUN


//START SETUP
procedure SettingUp;
begin
  StartingLevel := GetSkillLevel(StatToTrain);
  StartingPrayerLevel := GetSkillLevel(SKILL_PRAYER);
  if(FightStyle = 0) then
    begin
      writeln('ERROR: Please fill in the FightStyle settings!');
      TerminateScript;
    end;
    writeln('--Generating settings--');
    writeln('-> AutoRetaliate:');
  P07_AutoRetaliate(true);
    writeln('> ON!');
  writeln('-> Attack type:');
    P07_CombatStance(FightStyle);
  writeln('> Correct!');
    writeln('-> Changing compass:');
  P07_MakeCompassdegree(randomrange(200, 360));
    writeln('> Successful!');
  writeln('-> Fixing angle:');
    P07_MakeCameraAngleLow;
  writeln('> Successful!');
    writeln('-> Run:');
  P07_SetRun(true);
    writeln('> DONE!');
  writeln('--Script successfully confgured!--');
  writeln('');
  BonesBuried := 0;
  InvBones := DTMFromString('mQwAAAHicY2ZgYJjNxMCwAIgnA/FTIP8FED8G4uWzZwFJRoYNS5YwsAJZMMyIhIEAAG7VCG8=');
end;
//END SETUP


//START PROGGIE
procedure ProgressReport;

  begin
  LevelsGained := GetSkillLevel('SKILL_'+StatToTrain) - StartingLevel;
  LevelsGained := GetSkillLevel('SKILL_PRAYER') - StartingPrayerLevel;

    Wait(randomRange(600, 800));
    ClearDebug;
    writeln('-============- xPoultryPillager -============-');
    writeln('|- Time Running: '+TimeRunning+'!');
    Writeln('|- Chickens Attacked: ' + intToStr(Attacked));
  if BuryBones = true then
    begin
      Writeln('|- Total Bones grabbed: ' +intToStr(TotalBoneCount)+'!');
      Writeln('|- Bones held: ' +intToStr(BoneCount)+'!');
      Writeln('|- Bones buried: ' + intToStr(BonesBuried));
      Writeln('|- Prayer Exp gained:   ' + intToStr(BonesBuried*4));
    end;
    //Writeln('|- '+StatToTrain+' levels gained: '+ IntToStr(LevelsGained) +'! Current level: ' +IntToStr(GetSkillLevel('SKILL_'+StatToTrain))+'!');
    //Writeln('|- Prayer levels gained: '+ IntToStr(PrayerLevelsGained) +'! Current level: ' +IntToStr(GetSkillLevel('SKILL_PRAYER'))+'!');
  if not BuryBones then
      begin
       Writeln('-Bury Bones: OFF');
      end;
  end;
//END PROGGIE

// START ENTERCOMBAT
procedure EnterCombat;
var x, y: Integer;
  begin
      wait(350 + random(500))
                     // FAIL SAFE
       if P07_FindObjCustom(x, y, [''], [8042720, 4160933], 5) then
          begin
            wait (randomrange(50, 100));
            ClickMouse2(Mouse_Left);
            end;
      if P07_FindObjCustom(x,y, ['ttack', 'icken'], [CColor, CColor2, CColor3, CColor4], 5) then

      begin
        if InCombat = (0) then
         begin
           P07_MouseBox(X, Y, X, Y, mouse_left);
           wait(random(500));
         end;

      end;
     Attacked := Attacked + 1;
     ProgressReport;
  end;
// END ENTERCOMBAT

//START LOOTING
procedure Looting;
begin;
    InCombat := 1;

        if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
        begin
          WriteLn('In Combat . . .');
        end
        else InCombat := 0;
        if BuryBones = true then
          //Collect bones
           if P07_FindObjCustom(x , y, ['Bones'], [BonesColor], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(300, 500));
            P07_ChooseOptionMulti(['Bones']);
            boneCount := boneCount + 1;
            TotalBoneCount := TotalBoneCount + 1;
          end;

        if (FindColor(X, Y, 65280, 220, 110, 330, 220)) = false then
          if TakeFeathers = ('') = false then
          //Collect Feathers
          if P07_FindObjCustom(x,y, ['Feather'], [FeatherColor], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(300, 500));
            P07_ChooseOptionMulti(['Feather']);
          end;

           //Collect Arrows
        if TakeArrows = ('') = false then
          if P07_FindObjCustom(x,y, [''+ArrowType+' Arrow'], [ArrowColor, ArrowColor2], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(300, 500));
            P07_ChooseOptionMulti([''+ArrowType+' Arrow']);
          end;

      //Collect Bolts
        if TakeBolts = ('') = false then
          if P07_FindObjCustom(x,y, [''+BoltType+' Bolts'], [BoltColor], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(300, 500));
            P07_ChooseOptionMulti([''+BoltType+' Bolts']);
          end;
            progressreport;
      end;
// END LOOTING

// START BONE BURYING
procedure Buryallbones;
var RepeatC:Integer;
begin
  RepeatC := 0;
  FindDTM(InvBones, X, Y,559, 214,726, 463);
  repeat
    Mouse(x,y,3,3,true);
    sleep(randomrange(200, 800));
    RepeatC := RepeatC + 1;
    BonesBuried := BonesBuried + 1;
    ProgressReport;
  until(FindDTM(invBones,x,y,559, 214,726, 463) = false);
end;
// END BONE BURYING

// START BONE RESET
procedure boneReset;
begin
  if boneCount <> 0 then
  boneCount := 0;
end;
//END BONE RESET

// START FREE DTM

procedure BonesDTM;
begin
  FreeDtm(invBones);
end;
//END FREE DTM

// START ANTI-BAN
Procedure Antiban;
var
Random2, Random1: integer;
  Begin
    Random1 := (5);
    Random2 := (random(25));
    sleep(2000)
    if Random2 < Random1 then
      Writeln('Anti-Ban initated');
      Case Random(8) Of
        1: begin P07_HoverSkill(HoverSkill1,RandomRange(1500,2500));
        Writeln('Anti-Ban chosen - Hover ' +HoverSkill1+'!'); end;

        2: begin Boredhuman
        Writeln('Anti-Ban chosen there will be a breif pause!'); end;

        3: begin Wait(2500 + random(1000));
        Writeln('Anti-Ban chosen - Pausing for a breif moment'); end;

        4: begin p07_HoverSkill(HoverSkill2,RandomRange(1500,2500));
        Writeln('Anti-Ban chosen - Hover skill ' +HoverSkill2+'!'); end;

        5: begin PickUpMouse;
        Writeln('Anti-Ban chosen this will be a breif pause!'); end;

        6: begin RandomMovement;
        Writeln('Anti-Ban chosen - Creating a random movement'); end;

        7: begin RandomRClick;
        Writeln('Anti-Ban chosen - Random right click'); end;

        8: begin P07_MakeCompassdegree(randomrange(0, 360));
        Writeln('Anti-Ban chosen - Change compass!'); end;
      end;
  end;

Procedure RandomCompass;
var
Random2, Random1: integer;
  Begin;
    Random1 := (5);
    Random2 := (random(10));
    sleep(2000)
    if Random1 < 10 then
      Writeln('Anti-Ban initated');
      Case Random(3) of

       1: begin P07_MakeCompassdegree(randomrange(0, 360));
        P07_MakeCameraAngleLow;
        Writeln('Anti-Ban chosen - Change compass angle to Low!'); end;

       2: begin P07_MakeCompassdegree(randomrange(0, 360));
       P07_MakeCameraAngleHigh;
        Writeln('Anti-Ban chosen - Change compass angle to High!'); end;

      3: begin P07_MakeCompassdegree(randomrange(0, 360));
        P07_MakeCameraAngleLow;
        Writeln('Anti-Ban chosen - Change compass angle to High!'); end;

        end;
      end;
// END ANTIBAN



begin
    P07_DeclarePlayers;
    Addonterminate('BonesDTM');
    SetupSRL();
    SetupP07Include;
    ClearDebug;
      writeln('--Poultry Pillager v1.0--');
      writeln(' ----By Brid Mayhem-----');
      writeln('  ---------------------');
      wait(2500);
  if (not P07_LoggedIn) then
      P07_LogInPlayer;
      SettingUp;
  repeat
    if (not P07_LoggedIn) then
      begin
        P07_LogInPlayer;
        SettingUp;
      end;
  if incombat = 0 then
      wait (randomrange(4000, 6000));
      progressreport;
  if(P07_InvFull) then
    begin
      RandomCompass;
      wait(2500);
      buryAllbones;
      boneReset;
    end;
    progressreport;
  if InCombat = 0 then
  begin
    entercombat;
    ProgressReport;
  end;
    RandomCompass;
    looting;
    looting;
    Antiban;
    wait(RandomRange(300, 2000));
  until (false)
end.

xPoultryPillager



xTreeTorture (Was meant to be an AIO Woodcutter but I haven't gotten around to finish it)

program xTreeTorture;

/////////////////////////////////////////////////
//////          xTreeTorture             ///////
/////       Scripy by: Brid Mayhem        /////
///   Running this will SOON open a GUI   ////
// So wont worry about changing anything! ///
////////////////////////////////////////////

{$Define SMART8}
{$i Srl/Srl.simba}
{$i P07Include.simba}

//////// CONFIGURATION////////////////
Const

Username      = 'Not Set'; //Enter your username

Password      = 'Not set'; //Enter your password


///////// OPTIONAL CONFIGURATION //////////


HoverSkill1   = 'Woodcutting'; //choose which skill to hover

HoverSkill2   = 'Mining'; //choose which skill to hover


///////////////END CONFIGURATION! DON'T GO PAST HERE!/////////////
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
var
X, Y, BowsMade, knifeDTM,logDTM,shortBowDTM,oakDTM: Integer;
procedure P07_DeclarePlayers;
  begin
    P07_PlayerName := Username;
    P07_PlayerPass := Password;
  end;

 // SET RUN
procedure P07_SetRun(Run: Boolean);
var
  x, y: integer;
begin

  if not P07_TabInventoryTab(12) then
    begin
      writeln('ERROR: Could not P07_TabInventoryTab(12) -> Error in P07 include or random! Exiting');
      Exit;
    end;

  if (FindColor(x, y, 4342852, 627, 416, 658, 444)) then
    begin
      mouse(x, y, 1, 1, 1);
     Writeln('> ON');
    end;
  writeln('-> Going to inventory tab');
  P07_TabInventoryTab(4);
end;
//END SET RUN

// FLETCH TIMER
Procedure FletchWait;
begin
Wait(500+Random(100));
end;
// END FLETCH TIMER

// START DTM
procedure DTMZ;
begin
  knifeDTM := DTMFromString('mrAAAAHic42BgYEhjYmDIBuICIC4B4iIgzgHidCBOBuKPQDWvgPghEN8E4mtAfB+InwPxewYQYCSA8QNidQMAf2MKpg==');
  logDTM := DTMFromString('mWAAAAHicY2FgYOhjYmCYDsT9QNwLxNyMDAxcQCwAxKxAnOUlyZAXYsSwrs8fjNEBIxoGAQCU9wdX');
  oakDTM := DTMFromString('mFQEAAHic42VgYJjAxMAwD4iXAPECIJ4GxN1A3A7lLwXiPiCeDcRToXKijAwMgkDMB8T/gWYwAGkWIOaG0pyMELG/QEoYqhYsQDImHVBsCwCL+Qpl');
  shortBowDTM := DTMFromString('mlwAAAHicY2dgYOhiYmCYCsSzgHgOEC8G4vlA3A3EZowMDEZArAvEqkCsAMRaUDEGBkY8GDcgQhcAwXAFgw==');
  Writeln('Loaded DTM''s');
end;

procedure DTMFree;
begin
  FreeDTM(knifeDTM);
  FreeDTM(logDTM);
  FreeDTM(oakDTM);
  FreeDTM(shortBowDTM);
  writeln('Freed DTM''s');
end;

// END DTM

//START SETUP
procedure SettingUp;
begin
  writeln('--Generating settings--');
  writeln('-> Changing compass:');
  P07_MakeCompassdegree(randomrange(200, 360));
  writeln('> Successful!');
  writeln('-> Fixing angle:');
  P07_MakeCameraAngleHigh;
  writeln('> Successful!');
  writeln('-> Run:');
  P07_SetRun(true);
  writeln('--Script successfully confgured!--');
  writeln('');
end;
//END SETUP


// CHOP TREE
procedure chopOak;
  begin
    repeat
    if P07_FindObjCustom(x,y, ['Oak'], [1199684, 3300694], 5) Then
        ClickMouse2(mouse_left);
        MouseSpeed := 12;
        Wait (RandomRange(9000,10000))
      until(P07_InvFull)
  end;
procedure shortBower;
  begin
    wait(Random(1000));
  if(findDTM(knifeDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
    begin
      MMouse(x,y,Random(10),Random(5));
      ClickMouse2(mouse_left);
      wait(Random(500));
    if(findDTM(oakDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
      begin
        MMouse(x,y,Random(20),Random(5));
        FletchWait;
        ClickMouse2(mouse_left);
        MMouse(75, 408,Random(12),Random(15));
        FletchWait;
        ClickMouse2(mouse_right);
        FletchWait;
        P07_ChooseOptionMulti(['10']);
        BowsMade := BowsMade + 10;
        wait(20000+Random(5000));
      end;
    end;
  end;
//END CHOPPING

// FLETCH BOWS
Procedure MakeShortBows;
  begin;
    repeat
      MouseSpeed := 10;
      ShortBower;
    until not findDTM(oakDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2);
  end;

// DROP BOWS
procedure DropBows;
  begin
    If P07_InvFull then
        P07_DropAllExcept([1]);
        Wait(200+Random(100))
    end;

//START PROGGIE
procedure ProgressReport;

  begin
    Wait(randomRange(600, 800));
    ClearDebug;
    writeln('|-=============- xTreeTorchure -==============-|');
    writeln('|- Time Running : ' +TimeRunning);
    Writeln('|- Bows made: ' + intToStr(BowsMade));
    Writeln('|- Prayer Exp gained: ' + intToStr(1162*4));
    Writeln('|----------------------------------------------|');
  end;
//END PROGGIE

// START ANTI-BAN
Procedure Antiban;
var
Random2, Random1: integer;
  Begin
    Random1 := (5);
    Random2 := (random(50));
    sleep(RandomRange(900, 1000));
    if Random2 < Random1 then
      begin
        Writeln('Anti-Ban initated');
        Case Random(8) Of
          1: begin P07_HoverSkill(HoverSkill1,RandomRange(1500,2500));
          Writeln('Anti-Ban chosen - Hover ' +HoverSkill1+'!'); end;

          2: begin Boredhuman
          Writeln('Anti-Ban chosen there will be a breif pause!'); end;

          3: begin Wait(2500 + random(1000));
          Writeln('Anti-Ban chosen - Pausing for a breif moment'); end;

          4: begin p07_HoverSkill(HoverSkill2,RandomRange(1500,2500));
          Writeln('Anti-Ban chosen - Hover skill ' +HoverSkill2+'!'); end;

          5: begin PickUpMouse;
          Writeln('Anti-Ban chosen this will be a breif pause!'); end;

          6: begin RandomMovement;
          Writeln('Anti-Ban chosen - Creating a random movement'); end;

          7: begin RandomRClick;
          Writeln('Anti-Ban chosen - Random right click'); end;

          8: begin P07_MakeCompassdegree(randomrange(0, 360));
          Writeln('Anti-Ban chosen - Change compass!'); end;
        end;
      end;
  end;

Procedure RandomCompass;
var
Random2, Random1: integer;
  Begin;
    Random1 := (5);
    Random2 := (random(20));
    sleep(2000)
    if Random1 < Random2 then
      begin
        Writeln('Anti-Ban initated');
        Case Random(3) of

          1: begin P07_MakeCompassdegree(randomrange(0, 360));
            P07_MakeCameraAngleLow;
            Writeln('Anti-Ban chosen - Change compass angle to Low!'); end;

          2: begin P07_MakeCompassdegree(randomrange(0, 360));
            P07_MakeCameraAngleHigh;
            Writeln('Anti-Ban chosen - Change compass angle to High!'); end;

          3: begin P07_MakeCompassdegree(randomrange(0, 360));
           P07_MakeCameraAngleLow;
           Writeln('Anti-Ban chosen - Change compass angle to High!'); end;

        end;
      end;
    end;
// END ANTIBAN



begin
    P07_DeclarePlayers;
    SetupSRL();
    SetupP07Include;
    ClearDebug;
      writeln('--xTreeTorture[V1.0]--');
      writeln(' ----By Brid Mayhem----');
      writeln('  ---------------------');
      wait(2500);
    SettingUp;
    DTMZ;
    AddOnTerminate('DTMFree');
  if (not P07_LoggedIn) then
      begin
        P07_LogInPlayer;
      end;
    repeat
    ProgressReport;
    ChopOak;
    RandomCompass;
    MakeShortBows;
    Antiban;
    DropBows;
  until (false)
end.

xTreeTorture



[Upgraded] AIO fighter - an AIO fighter. I've been working on multiple monster presets for this. I've also started a GUI.

program AIOFighter;
    //Shorteh96 would like to thank the following users:
    // RequiredOne: I used part of your AutoFighter script as backbone.
    // Eduard: I used a lot of your Fight Cave script as backbone to convert to SMART.
    // Ogre: Thank you for helping me with my remedial errors in the chatbox every time I asked for help.
    //Shorteh96 would like to take very little credit for this script
    // as I have no idea how to code in all honesty but am capable of reading
    // and copying premade code into a new working script. Thank you!

    //Special thanks to Phury
     //Brid Mayhem has updated the script with the following:
     //Added more color options, Phury's Bone burying method, Toggle on/off for the bone looting/burying
    //Added them to the progress report, Updated a few things with antiban method, Added more items able to be picked up
    //Edited setup method, Monsters attacked, updated progress Report So it shows alot more, plus it's more organized.
    //Also made it update more often, Made everything Smoother, Fixed up the bury bones(BuryAll) method

{$Define SMART8}
{$i Srl/Srl.simba}
{$i P07Include.simba}

var
x, y: Integer;
Combat1, num1, num2, attnum, bonesInv, buriedBones, Bonecount, MAttacked, StartingLevel: Integer;
       ////// CHOOSE TO BURY BONES //////
  Function BuryBones: Boolean;
  begin;
          result := true;        //true to bury, false to not.
  end;
const

    // REQUIRED CONFIGURATION BY USER:
  StatToTrain = 'Strength';            //Which skill are you training?
  FightStyle = 2;                     // 1 = Attack/Accurate, 2 = Strength/Rapid, 3 = Controlled/Long range, 4 = Defence
  MNick = 'ow';                       // Monster name without the first letter
  MFullName = 'Cow';                   // Monster's full name
  MColor = 2967635;                   // Monster Color 1
  MColor2 = 7042951;                  // Monster Color 2
  MColor3 = 11975872;                 // Monster Color 3
  MColor4 = 5926535;                  // Monster Color 4

    // OPTIONAL CONFIGURATION BY USER
  ABan1 = 'Strength';                   // First skill for the anti-ban to check
  ABan2 = 'Hitpoints';                // Second skill for the anti-ban to check
  Loot1 = 'Coins';                    // Loot 1 name including the first letter
  LColor1 = 1479346;                  // Color of Loot 1 to pick up
  Loot2 = 'Coins';                    // Loot 2 name including the first letter
  LColor2 = 1479346;                 // Color of Loot 2 to pick up
  Loot3 = 'Coins';                    // Loot 3 name including the first letter
  LColor3 = 1479346;                 // Color of Loot 3 to pick up
  Loot4 = 'Coins';                    // Loot 4 name including the first letter
  LColor4 = 1479346;                 // Color of Loot 4 to pick up

    // DON'T CHANGE THIS UNLESS YOU'RE HAVING PROBLEMS //
  BonesColor = 14145500;

procedure P07_DeclarePlayers;
  begin
    P07_PlayerName := 'randomname112@live.com';  // Username for 07Scape
    P07_PlayerPass := '';     // Password for 07Scape
  end;
    // END OF CONFIGURATION

procedure P07_SetRun(Run: Boolean);
var
  x, y: integer;
begin
  if not P07_TabInventoryTab(12) then
  begin
    writeln('ERROR: Could not P07_TabInventoryTab(12) -> Error in P07 include or random! Exiting');
    Exit;
    end;
  if (FindColor(x, y, 4342852, 627, 416, 658, 444)) then
  begin
    writeln('-> Run = on!');

    mouse(x, y, 1, 1, 1);
  end;
  writeln('-> Going to inventory tab');
  P07_TabInventoryTab(4);
end;

procedure SetMeUp;
begin
  writeln('-- Configuring player --');
  writeln('-> Checking AutoRetaliate.');
  P07_AutoRetaliate(true);
  writeln('-> Checking CombatStance');
  if(FightStyle = 0) then
  begin
  writeln('ERROR: Please fill in the FightStyle settings!');
  TerminateScript;
  end;
  P07_CombatStance(FightStyle);
  writeln('-> CombatStance = '+Inttostr(FightStyle)+'');
  writeln('-> Making Compass South');
  P07_MakeCompassSouth;
  writeln('-> Making Camera Angle High');
  P07_MakeCameraAngleHigh;
  P07_SetRun(true);
  writeln('-- Configuration completed --');
  writeln('');
  buriedBones := 0;
  bonesInv := DTMFromString('mQwAAAHicY2ZgYJjNxMCwAIgnA/FTIP8FED8G4uWzZwFJRoYNS5YwsAJZMMyIhIEAAG7VCG8=');
end;

procedure ProgressReport;
  begin
    Wait(5000);
    ClearDebug;
    writeln('-- AIO Fighter Release 0.1 ---------');
    writeln('-Time Running: '+TimeRunning+'!');
    writeln('-Monster to attack: '+MFullName+'.');
    Writeln('-'+MFullName+'s Attacked: ' + intToStr(MAttacked));
    //writeln('-'+intToStr(StatToTrain)+' levels gained: '+intToStr(P07_GetLevel(StatToTrain) - StartingLevel);
    if BuryBones = true then
    begin
  Writeln('-Bones buried: ' + intToStr(buriedBones));
  Writeln('-Prayer Exp gained:   ' + intToStr(buriedBones*4));
  Writeln('-Bones currently in inventory: ' + intToStr(boneCount));
    end;
  end;

procedure Random1;
  begin
    attnum := (Random(1000));
  end;

procedure Attack;
var x, y: Integer;
  begin
      wait(500 + random(800))
      if P07_FindObjCustom(x,y, ['ttack', MNick], [MColor, MColor2, MColor3, MColor4], 5) then
      begin
        if combat1 = (0) then
         begin
           P07_MouseBox(X, Y, X, Y, mouse_left);
           wait(random(500));
         end;
      end;
     MAttacked := MAttacked + 1;
    progressreport;
  end;
procedure freeDTMz;
begin
  FreeDtm(bonesInv);
end;
procedure buryAll;
var repeatCounter, randomSleep :Integer;
begin
  randomSleep := 200 + random(700);
  repeatCounter := 0;
  FindDTM(bonesInv,x,y,559, 214,726, 463);
  repeat
    Mouse(x,y,3,3,true);
    sleep(randomSleep);
    repeatCounter := repeatCounter + 1;
    buriedBones := buriedBones + 1;
    ProgressReport;
  until(FindDTM(bonesInv,x,y,559, 214,726, 463) = false);
end;
procedure boneReset;
begin
  if boneCount <> 0 then
  boneCount := 0;
end;
procedure Combat;
begin;
    Combat1 := 1;

        if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
        begin
        progressreport;
          WriteLn('In Combat . . .');
        end
        else Combat1 := 0;
        if BuryBones = true then
           if P07_FindObjCustom(x,y, ['Bones'], [BonesColor], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(300, 700));
            P07_ChooseOptionMulti(['Bones']);
            boneCount := boneCount + 1;
            progressreport;
          end;
        if (FindColor(X, Y, 65280, 220, 110, 330, 220)) = false then
        if Loot1 = ('') = false then
          if P07_FindObjCustom(x,y, [Loot1], [LColor1], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(400, 900));
            P07_ChooseOptionMulti([Loot1]);
            progressreport;
          end;
        if Loot2 = ('') = false then
          if P07_FindObjCustom(x,y, [Loot2], [LColor2], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(400, 900));
            P07_ChooseOptionMulti([Loot2]);
            progressreport;
          end;
       if Loot3 = ('') = false then
          if P07_FindObjCustom(x,y, [Loot3], [LColor3], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(400, 900));
            P07_ChooseOptionMulti([Loot3]);
            progressreport;
          end;
      if Loot4 = ('') = false then
          if P07_FindObjCustom(x,y, [Loot4], [LColor4], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(400, 900));
            P07_ChooseOptionMulti([Loot4]);
            progressreport;
          end;
              progressreport;
      end;

Procedure Antiban;
  Begin
  Writeln('Starting Anti-ban');
    num2 := (5);
    num1 := (random(27));
    sleep(2000)
    if num2 < num1 then
      Case Random(10) Of
        1: begin P07_HoverSkill(ABan1,RandomRange(2500,3500));
        Writeln('Anti-Ban chosen - Hover ' +ABan1+'!'); end;
        3: begin Boredhuman
        Writeln('Anti-Ban chosen this will be a breif pause!'); end;

        4: begin Wait(2500 + random(4500));
        Writeln('Anti-Ban chosen - Pausing for a breif moment'); end;

        5: begin p07_HoverSkill(ABan2,RandomRange(2500,3500));
        Writeln('Anti-Ban chosen - Hover skill ' +ABan2+'!'); end;

        6: begin PickUpMouse;
        Writeln('Anti-Ban chosen this will be a breif pause!'); end;

        7: begin RandomMovement;
        Writeln('Anti-Ban chosen - Creating a random movement'); end;

        8: begin RandomRClick;
        Writeln('Anti-Ban chosen - Random right click'); end;

        9: begin P07_MakeCompassdegree(randomrange(0, 360));
        Writeln('Anti-Ban chosen - Hover skill ' +ABan1+'!'); end;
      end;
  end;

begin
  P07_DeclarePlayers;
  Addonterminate('freeDTMz');
  SetupSRL();
  SetupP07Include;
  ClearDebug;
    writeln('Welcome to the upgraded AIO fighter');
    writeln('Please thank Shorteh96, Phury and Brid Mayhem for making this possible');
    writeln('');
  if (not P07_LoggedIn) then
    P07_LogInPlayer;
  SetMeUp;
  repeat
    if (not P07_LoggedIn) then
    begin
      P07_LogInPlayer;
      SetMeUp;
    end;
    if combat1 = 0 then
      Random1;
    Combat;
  if(P07_InvFull) then
    begin
      wait(2500);
      buryAll;
      boneReset;
    end;
    if Combat1 = 0 then
    Attack;
    Antiban;
    progressreport;
        wait(2000 + random(100));
  until (false)
end.

[urlhttps://dl.dropbox.com/s/8popajk19tw424u/%5BUpgraded%5D%20AIO%20Fighter.simba?token_hash=AAG1-v81M76cEO2LbEzyQuGP16AZIDtheUsie9BeK4JtzA&dl=1][Upgraded] AIO Fighter

For the AIO fighter, it isn't all done by me. I started with a base script and revised everything, fixed mostly everything then added a few revised methods from Phury.

I'm sorry this is not as in depth as I swear my original writing was a second ago, but I just hit f5 instead of 5 and lost my near essay I wrote. If you want I can give plenty of advice on your coding styles and improvements you can make, but most importantly of what I had to say was essentially this:

Read this and this as they will give great advice on things typically looked for in future members and their applications.

However, even if someone was the best scripter we have ever seen, that would not guarantee a winning member's application. We also look for people that are active, friendly, courteous, and kind. You have an account that is only 5 days old. In that time, you have released a couple scripts, posted an unbelievable amount of times, and on several occasions been quite pleasant and curious. All of which is fairly impressive. However, you have also had many times where you were abrupt and straight out rude. It does not matter if some of the situations involved people who were less than polite or in some manner ignored advice/the rules. Another person being impolite does not give you a good reason to be impolite in turn. There is no idea of fairness in that aspect.

As of right now, with a 5 day old account and a variety of posts ranging from good to bad, that alone will likely keep you out of a successful member's application. However, being patient and improving can make a tremendous difference. And just because you miss out on member's does not mean you miss out on every rank above "registered user." Just prove yourself first. You also have a lot you can improve upon in your script that hopefully other people will comment on shortly, and if not, feel free to ask me tomorrow after I sleep.

No from me. Scripts are still not quite there knowledge-wise. Would like to see some tpa, atpa usage and more advanced object finding in the future. Check out this thread for more of an idea as to what we are looking for:

http://villavu.com/forum/showthread.php?t=74195


Also this rank is a community rank - and even if the scripts were up to par, I would vote no based on your "goodbye srl" thread.

http://villavu.com/forum/showthread.php?t=98618&p=1194858#post1194858

One thing I want to note to you joined this month, although the activity is solid and the scripts are ok (A bit on the weaker side) I will hold my vote. I personally always vote no if they joined within the month they are applying but you look like you are putting in a good amount of effort so again I am holding my vote!

The only time I was abrupt and rude to someone who was ignorant was when they flamed me over an anti-leech.

Honestly, I don't care that I didn't get members but sadly I wont be trying again.

Also voting because I haven't been registered a month is biased, I've been more active the past few days than most of the members have in a month. I haven't spammed, I've scripted a descent amount of scripts and I've helped out users in need as well.


Also, can someone explain where my scripts lack experience? I'm able to pick up on a language in less than an hour because of my experience, and i'm fairly sure I've done everything the most efficient way possible.

From: Brid Mayhem
Honestly, I don't care that I didn't get members but sadly I wont be trying again

So you don't really want to be a member now? There are a lot of people that do not get accepted first time or even second time round. Read the comments of others and prepare yourself properly for your next app.

From: Brid Mayhem
Also voting because I haven't been registered a month is biased, I've been more active the past few days than most of the members have in a month

You are comparing your activity to other members, yet you have been here less than 7 days.

From: Brid Mayhem
Also, can someone explain where my scripts lack experience? I'm able to pick up on a language in less than an hour because of my experience, and i'm fairly sure I've done everything the most efficient way possible.

Your scripts are a great start. However, as Asha stated above, they lack some of the more advanced functions that are essential to demonstrate your knowledge. In addition to the threads linked above, refer to Daniel's thread of what is expected in a membership application.

From: The Mayor
So you don't really want to be a member now? There are a lot of people that do not get accepted first time or even second time round. Read the comments of others and prepare yourself properly for your next app.

The only reason I was planning to be a member was to release scripts to members only, but I can't do that either. I'm not going to give out any scripts because we aren't allowed to put anti-leeches in it.

From: The Mayor

You are comparing your activity to other members, yet you have been here less than 7 days.

Yes, i'm comparing activity, not registry date.

From: The Mayor

Your scripts are a great start. However, as Asha stated above, they lack some of the more advanced functions that are essential to demonstrate your knowledge. In addition to the threads linked above, refer to Daniel's thread of what is expected in a membership application.

They're as advanced as they could be that I could've seen, I'm not inexperienced in programming. I'm wondering where exactly you see a margin of improvement, because I've re-done everything through multiple times.



EDIT:
Ugh, I posted the wrong version of my Poultry Pillager. Well I guess that's a plus, right?!

http://villavu.com/forum/showthread.php?t=98618&p=1195150#post1195150

You say your leaving the community?

From: Ollybest
http://villavu.com/forum/showthread.php?t=98618&p=1195150#post1195150

You say your leaving the community?

You're* ;)

And I meant I don't want to be someone who contributes to this community. I was angry that the leechers just get what they came for now. I'm not releasing scripts to the public unless they're close to useless, or poorly done.

From: Brid Mayhem


Honestly, I don't care that I didn't get members but sadly I wont be trying again.

Also voting because I haven't been registered a month is biased, I've been more active the past few days than most of the members have in a month. I haven't spammed, I've scripted a descent amount of scripts and I've helped out users in need as well.


Also, can someone explain where my scripts lack experience? I'm able to pick up on a language in less than an hour because of my experience, and i'm fairly sure I've done everything the most efficient way possible.

This, this right here makes me want to vote no.
"If I don't get members, I won't try again."
That sounds like you're not dedicated to SRL. You want to strive to achieve it, not just throw up a shot in your first month and then quit if you miss.

And as for activity, 1 month is kind of early to gauge your activity levels.

Onto real judging:

Your scripts lack that extra thing we're looking for, such as TPA and ATPA's.

Maybe you could experiment with them.

You also do an infinite loop for your main loop, repeat until(false) isn't a good idea. If it goes off course, you could be there, just doing antiban for hours.

   if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
        begin
          WriteLn('In Combat . . .');
        end

Use FindColorTolerance, not just FindColor.

I'm going to have to vote No.

I didn't even read your scripts properly however I'm voting no based on your attitude, I don't think you would create a good example for SRL members in the eyes of some of our younger or newer members.
I am using the following post/thread as my main evidence:

From: Brid Mayhem

Honestly, I don't care that I didn't get members but sadly I wont be trying again.

Also voting because I haven't been registered a month is biased, I've been more active the past few days than most of the members have in a month. I haven't spammed, I've scripted a descent amount of scripts and I've helped out users in need as well.


Also, can someone explain where my scripts lack experience? I'm able to pick up on a language in less than an hour because of my experience, and i'm fairly sure I've done everything the most efficient way possible.

http://villavu.com/forum/showthread.php?t=98618&p=1195150#post1195150

From: Brid Mayhem
The only time I was abrupt and rude to someone who was ignorant was when they flamed me over an anti-leech.

You have also been rude to people when they simply asked saying they didn't understand how to solve your anti-leech and in your "I'm leaving" post.

From: Brid Mayhem
Also, can someone explain where my scripts lack experience? I'm able to pick up on a language in less than an hour because of my experience, and i'm fairly sure I've done everything the most efficient way possible.

I know I have already posted on how terribly inefficient this exact line is in a separate post:

Function BuryBones: Boolean;
  begin;
          result := true;        //true to bury, false to not.
  end;

There is no reason to have a user setting be a dedicated function. You literally have a section of user settings following dedicated as constants. There is also no language where this is the most efficient option. I can guarantee that.
You have inconsistent standards, varying from wait(100+random(200)) to wait(randomrange(100,300)). You don't follow many of the standards more akin to PascalScript as opposed to other languages (I can give many examples if you wish). Your randomness outside of wait times is fairly minute, most of your searches are based on searching for multiple colors instead of a single color within a tolerance, and you use inefficient string concatenations that are entirely superfluous, as seen here:

''+ArrowType+' Arrow'//There is no advantage to the extra string concatenation: ''+

Those are only some of the issues in your first posted script, there are more, and I haven't even looked at your other two.

I'm sorry you seem extremely confident due to possible past experiences having been quite positive, but you are simply being cocky now because of it. And beyond that, you are throwing your cocky nature around with us having no idea of any reason why you truly should be cocky.

I've been more active the past few days than most of the members have in a month. I haven't spammed, I've scripted a descent amount of scripts and I've helped out users in need as well.

You have made villavu posts in the public section than most of the members have in a month. I could believe that with many members being gone now, having left over time, and with you being unable to see the private sections or any of the groups I've noted you've failed to join. You have a decent amount of scripts for that short time, I agree; that does not mean they are amazing scripts or that even if they were you could gain member's just like that. And you have helped out some users in need, I did make mention of that in a positive manner, and that is good.

As for refusing to release a public script, you could stick around and apply again without having released anything publicly. Some people's first script is their application script (which still had to be quite decent). Or you could even only put out power leveler versions of your scripts with no money making options.

I get your point, I voted yes

From: nivek1989
You have also been rude to people when they simply asked saying they didn't understand how to solve your anti-leech and in your "I'm leaving" post.


I know I have already posted on how terribly inefficient this exact line is in a separate post:

Function BuryBones: Boolean;
  begin;
          result := true;        //true to bury, false to not.
  end;

There is no reason to have a user setting be a dedicated function. You literally have a section of user settings following dedicated as constants. There is also no language where this is the most efficient option. I can guarantee that.
You have inconsistent standards, varying from wait(100+random(200)) to wait(randomrange(100,300)). You don't follow many of the standards more akin to PascalScript as opposed to other languages (I can give many examples if you wish). Your randomness outside of wait times is fairly minute, most of your searches are based on searching for multiple colors instead of a single color within a tolerance, and you use inefficient string concatenations that are entirely superfluous, as seen here:

''+ArrowType+' Arrow'//There is no advantage to the extra string concatenation: ''+

Those are only some of the issues in your first posted script, there are more, and I haven't even looked at your other two.

I'm sorry you seem extremely confident due to possible past experiences having been quite positive, but you are simply being cocky now because of it. And beyond that, you are throwing your cocky nature around with us having no idea of any reason why you truly should be cocky.

You have made villavu posts in the public section than most of the members have in a month. I could believe that with many members being gone now, having left over time, and with you being unable to see the private sections or any of the groups I've noted you've failed to join. You have a decent amount of scripts for that short time, I agree; that does not mean they are amazing scripts or that even if they were you could gain member's just like that. And you have helped out some users in need, I did make mention of that in a positive manner, and that is good.

As for refusing to release a public script, you could stick around and apply again without having released anything publicly. Some people's first script is their application script (which still had to be quite decent). Or you could even only put out power leveler versions of your scripts with no money making options.

No need for the essay if you're repeating what was said. There's no reason there shouldn't be a user dedicated function, actually, why shouldn't there be? Obviously there was other ways of going about it but that was the more efficient way.

Anyways, I'm not sure that you get what I said half the time because you just seemed to counter it with inaccurate accusations.

From: Brid Mayhem
No need for the essay if you're repeating what was said. There's no reason there shouldn't be a user dedicated function, actually, why shouldn't there be? Obviously there was other ways of going about it but that was the more efficient way.

Anyways, I'm not sure that you get what I said half the time because you just seemed to counter it with inaccurate accusations.

There are actually a couple of very good reasons to have BuryBones be a constant instead of a function. Although, I am quite curious what your reasoning is to have that one setting alone be a function while everything else is a constant? I would suggest treating it as a constant instead as, in all programming languages, a function call instates a "jump" command, a function pointer change, additional resources being dedicated to the stack, and a second function call to simply return to the calling code. Some languages allow for "inline" optimizations, where it will automatically change what you wrote into a more efficient inline operation during compile time. However, even in those cases, there was no advantage to having created the separate function.

I'm not trying to simply accuse you anything, and I'm not sure you understand that I'm trying to be nice and offer advice (noting that I have not actually voted at this time) despite it getting harder as you simply appear to be getting mad at me.

Edit: As a side not, please stop being a grammar nazi all over the forums. People tend to not appreciate it and see it as rude, and you don't exactly have the best grammar.

Wanna change my vote to no :p Wasn't up to date.

It's a no from me simply because you aren't approaching this with the right attitude. You're starting to come off obnoxious and arrogant. I understand your point about anti leech but don't attack the people who are trying to help you.

From: Brid Mayhem
Oh well I was never one for rep. & I lose hope in the community.

No from me.

Would already vote no based on attitude.
Script is not advanced and mainly relies on functions made by others. So that isn't going to help you either.

Voted No.
Didn't even bother to look at your scripts.
You say you no longer want to be a part of this community, and then you apply for srl-members? It really annoys me when people "quit" for attention.

http://villavu.com/forum/showthread.php?t=98618&p=1195150

From: Noob King
Voted No.
Didn't even bother to look at your scripts.
You say you no longer want to be a part of this community, and then you apply for srl-members? It really annoys me when people "quit" for attention.

http://villavu.com/forum/showthread.php?t=98618&p=1195150

Jesus, stop repeating what was said already, that's called spamming. I've seen this and replied to it over 10 times. You obviously haven't read a single post on this thread; plus you voted without investigation.

From: Brid Mayhem
Jesus, stop repeating what was said already, that's called spamming. I've seen this and replied to it over 10 times. You obviously haven't read a single post on this thread; plus you voted without investigation.

Would you rather he just post "no" with no reason?
You seriously need to grow up before you apply. When criticism is given, you shut it down like it's our fault you scripted poorly (some parts.) It's really annoying that you say "I can master a language in under an hour." Truth be told, this isn't real Pascal programming, just like if you script for RSBot, doesn't mean you know Java. You can't master a language in under an hour, it's impossible.

Close Requested.