SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
bobzilla69 - SRL Member Application Form
bobzilla69

What is the meaning to life?


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


Programming Knowledge
i am currently learning Java, and VBA at uni, and i know HTML and some C++

Other Communitys
nope

How Long have You Played Runescape
over a year and half, might be 2 now

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

well lets see, i have started uni and i am learning java and VBA, which is really fun.
i am hoping to make a java bot once i know more about java.

this is one of a few script i have made, others were not that complex so i made this one.

i have played ligit for about a year or so, and sarted autoing when i found this forum.

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

ok my script.

this is still in development, so it aint perfect.
the script contains basiclt no failsafes and will run forever, which aint good but i am working on it so that will change.

i have tested it and the walking aint so good and should be improved, but apart from that it works very well.

//Welcome To Bobzilla69's Random Skill Trainer.
//I created this script to help level up new account
//The script will randomly choose one of the 4 skill
//and train the account on that for 30 minutes
//This is due to the home teleport requiring 30 min to recharge
//onece the 30 min is up it will teleport home
//and the script will start again training another random skill
//There is a chance that it will train the same skill
//There is also a chance that it wont choose any of the skills

//The walking and pickup of required tools for skill can be buggy
//I recomend wearing 3 bits of armour including a weapon

//WARNING: THIS SCRIPT HAS NO FAILSAFES,
//THIS MEANS IF IT GETS LOST IT STAYS LOST AND WONT LOG OUT
//I WOULD RECOMEND CHECKING UP ON IT EVERY NOW AND AGAIN

//This script is for new accounts that have been created

Program MultiSkiller;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Fishing.scar}
{.include SRL\SRL\skill\Mining.scar}
{.include SRL\SRL\skill\Magic.scar}

const SymbolColor = 11644332;    //Greyish color on symbol
const YourSRLID = '';           //srl stats id
const YourSRLPassword = '';     //srl stats password

var
x, y:Integer;
Timer:Integer;
f:Integer;
m:Integer;
w:Integer;
a:Integer;
s1:Integer;
s2:Integer;
s3:Integer;
s4:Integer;

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

    Players[0].Name := 'Username';
    Players[0].Pass := 'Password';
    Players[0].Nick := 'Nickname'; //3 or 4 letter from your username
    Players[0].Active :=True;

    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

Procedure AntiBanFishing;  //diffrent antiban for each skill
begin                      //that can be trained, all are same
  case Random(13) of       //except for the hover skill
    2: HoverSkill('fishing', False);
    5: PickUpMouse;
    9: Wait(2500);
    11: BoredHuman;
    13: FindNormalRandoms;
  end;
end;
 
Procedure AntiBanAttacking;
begin
  case Random(13) of
    2: BoredHuman;
    5: PickUpMouse;
    9: HoverSkill('strength', False);
    11: Wait(2000);
    13: FindNormalRandoms;
  end;
end;
 
Procedure AntiBanMining;
begin
  case Random(13) of
    2: HoverSkill('mining', False);
    5: Wait(2000);
    9: BoredHuman;
    11: PickUpMouse;
    13: FindNormalRandoms;
  end;
end;
 
Procedure AntiBanWoodcutting;
begin
  case Random(13) of
    2: FindNormalRandoms;
    5: PickUpMouse;
    9: BoredHuman;
    11: Wait(2000);
    13: HoverSkill('woodcutting', False);
  end;
end;
 
procedure Report;
begin
  ClearDebug;
  SRLRandomsReport;
  WriteLn('Welcome To Bobzilla69''s''Random Skill Trainer');
  WriteLn('');
  WriteLn('So Far Your Character Has: ');
  WriteLn('  Fished Around: ' +IntToStr(f)+' Shrimps');
  WriteLn('  Mined Around: ' +IntToStr(m)+' Ores');
  WriteLn('  Cut Around: ' +IntToStr(w)+' Logs');
  WriteLn('  Attacked Around: ' +IntToStr(a)+' Chickens');
  WriteLn('This Has Happened For ' +TimeRunning);
  WriteLn('');
  WriteLn('Number Of Times Trained A Skill');
  WriteLn('  Attack: ' +IntToStr(s1));
  WriteLn('  Mining: ' +IntToStr(s3));
  WriteLn('  Fishing: ' +IntToStr(s4));
  WriteLn('  Woodcutting: ' +IntToStr(s2));
  WriteLn('');
  WriteLn('Please Post Report');
  WriteLn('');
  SendSRLReport;
end;
 
procedure Tele;              //teleports home after 30 min of training
begin                        //on a random skill, script will then
  CastSpell(1);              //randomly choose another skill
  Wait(30000 + random(1500));
  DropAll;
  Logout;
end;

Procedure FightCheck;       //checks for fight random and runs away
begin
  FindNormalRandoms;
  if FindFight then
  begin
    RunAwayDirection('N');
    Wait(1500 + random(1000));
    RunBack;
  end;
end;

Procedure WalkToFish;            //walks from lumbridge to fishing spot
begin
  RadialRoadWalk(FindRoadColor, 85, 100, 52, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 160, 210, 66, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 120, 182, 58, 0, 0);
  Wait(500);
  RadialWalk(FindWaterColor, 157, 184, 70, 0, 0);
  Wait(500);
  Flag;
  RadialWalk(FindWaterColor, 175, 206, 70, 0, 0);
  Wait(500);
  Flag;
  RadialWalk(FindWaterColor, 184, 230, 40, 0, 0);
  Wait(500);
  Flag;
  FindObj(x, y, 'net', 2897213, 45);
  Mouse(x, y, 2, 2, True);
  Flag;
  Wait(600);
  FindSymbol(x, y, 'fish');
  Mouse(x, y, 4, 2, True);
  Flag;
end;

procedure GetPic;                   //gets a pickaxe for mining
begin
  FindObj(x, y, 'Mining tutor', 12829643, 40);
  Mouse(x, y, 2, 2, True);
  Flag;
  Wait(2500);
  ClickNpcChatText('teach me the basics', True);
  Wait(500);
  ClickNpcChatText('here to continue', True);
  Wait(500);
  ClickNpcChatText('here to continue', True);
  Wait(500);
end;

Procedure WalkToMine;            //walks from lumbridge to mining area
begin
  RadialRoadWalk(FindRoadColor, 85, 100, 52, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 160, 210, 66, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 120, 182, 58, 0, 0);
  Wait(500);
  RadialWalk(FindWaterColor, 157, 184, 70, 0, 0);
  Wait(500);
  Flag;
  RadialWalk(FindWaterColor, 175, 220, 70, 0, 0);
  Wait(500);
  Flag;
  RadialWalk(FindWaterColor, 175, 222, 50, 0, 0);
  Wait(500);
  Flag;
  RadialWalk(FindWaterColor, 180, 248, 50, 0, 0);
  Wait(500);
  Flag;
  FindSymbol(x, y, 'mining site')
  Mouse(x, y, 4, 2, True);
  Flag;
  Wait(500);
  If not FindSymbol(x, y, 'mining site') then
  begin
    RadialWalk(SymbolColor, 278, 315, 65, 0, 0);
    Flag;
    Wait(500);
  end;
end;
  
Procedure GetAxe;                  //gets axe for woodcutting
begin
  if FindObj(x, y, 'Woodsman', 10790064, 40)then
  begin
    Mouse(x, y, 2, 2, True);
    Flag;
    Wait(1500);
    ClickNpcChatText('teach me the basics', True);
    ClickNpcChatText('already know a bit', True);
    Wait(500);
    ClickNpcChatText('here to continue', True);
    wait(500);
    ClickNpcChatText('here to continue', True);
    wait(500);
    ClickNpcChatText('here to continue', True);
    wait(500);
  end;
end;

Procedure WalkToTrees;         //walks from lumbridge to woods
begin
  RadialRoadWalk(FindRoadColor, 86, 102, 58, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 305, 355, 66, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 280, 345, 66, 0, 0);
  Wait(500);
  Mouse(668, 69, 4, 2, True);
  Flag;
  Wait(500);
  GetAxe;
  Wait(500);
  RadialRoadWalk(FindRoadColor, 225, 270, 55, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 320, 350, 40, 0, 0);
  Wait(500);
  Mouse(580, 97, 11, 17, True);
  Wait(500);
  Flag;
end;

procedure WalkToChickens;  //walks from lumbridge to chicken pen (NE)
begin
  RadialRoadWalk(FindRoadColor, 80, 110, 55, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 50, 90, 55, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 65, 95, 55, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 340, 380, 65, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 312, 350, 65, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 330, 370, 65, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 310, 350, 65, 0, 0);
  Wait(500);
  RadialRoadWalk(FindRoadColor, 340, 368, 40, 0, 0);
  Wait(500);
end;

procedure CheckGate;
begin                         //checks if chicken pen gate is open
  if FindObj(x, y, 'lose Gate', 938614, 60) then
  begin
    Exit;
  end
  else
  begin
  FindObj(x, y, 'lose Gate', 938614, 60)
  Mouse(x, y, 2, 2, True);
  Flag;
  Wait(1500);
  end;
end;

Procedure IntoPen;          //enters chicken pen if gate is open
begin
  if FindSymbol(x, y, 'churn')then
  begin
    Mouse(x, y - 10, 2, 2, True);
  end
  else
  begin
    Mouse(609, 83, 4, 3, True);
    Flag;
    Wait(500);
  end;
end;

procedure StartAttacking;         //attacks chickens for 30 min
begin
  repeat
  FindObj(x, y, 'ttack', 924026, 30);
  Mouse(x, y, 1, 1, True);
  Flag;
  Wait(2000);
  AntiBanAttacking;
  FindNormalRandoms;
  Wait(2000);
  if FindColor(x, y, 65280, 260, 140, 270, 150)then
  begin
    FindNormalRandoms;
    a:= a + 1;
    ReportVars[7] := ReportVars[7] + 1;
    wait(1500);
  end;
  Report;
  if(TimeFromMark(Timer) >= 1800000) then
  begin
    Tele;
    Break;
  end;
  until(not FindColor(x, y, 65280, 260, 140, 270, 150))
  begin
    StartAttacking;
  end;
end;

Procedure StartMining;           //mines for 30 min
begin
  repeat
  FindObj(x, y, 'Rocks', 5077416, 40);
  Mouse(x, y, 2, 2, True);
  Wait(2500 + random(1500));
  GasFound(x, y);
  FightCheck;
  AntiBanMining;
  Wait(1500 + random(1000));
  if(TimeFromMark(Timer) >= 1800000) then
  begin
    Tele;
    Break;
  end;
  until(InvFull);
  begin
    GameTab(4);
    Wait(250);
    DropToPosition(2, 28);
    FightCheck;
    m:= m + 27;
    ReportVars[5] := ReportVars[5] + 1;
    Report;
    StartMining;
  end;
end;


procedure StartFishing;         //fishes for 30 min
begin
  repeat
  FindObj(x, y, 'Net Fishing', 14663331, 20);
  Mouse(x, y, 2, 2, True);
  Wait(500);
  if FindObj(x, y, 'Fishing', 1516077, 20) then
  Wait(3000 + Random(1000));
  FightCheck;
  Wait(3500 + Random(530));
  AntiBanFishing;
  FightCheck;
  if(TimeFromMark(Timer) >= 1800000) then
  begin
    Tele;
    Break;
  end;
  Until(InvFull);
  begin
    GameTab(4);
    Wait(250);
    DropToPosition(2, 28);
    FightCheck;
    f:= f + 27;
    ReportVars[4] := ReportVars[4] + 27;
    Report;
    StartFishing;
  end;
end;

procedure StartWoodcutting;       //cuts wood for 30min
begin
  repeat
  FindObj(x, y, 'Tree', 4426878, 30);
  Mouse(x, y, 2, 4, True);
  Wait(2500 + random(1000));
  FightCheck;
  AntiBanWoodcutting;
  Wait(3000 + random(1500));
  FightCheck;
  if(TimeFromMark(Timer) >= 1800000) then
  begin
    Tele;
    Break;
  end;
  until(InvFull);
  begin
    GameTab(4);
    Wait(250);
    DropToPosition(2, 28);
    FightCheck;
    w:= w + 27;
    ReportVars[6] := ReportVars[6] + 1;
    Report;
    StartWoodcutting;
  end;
end;

Procedure Attack;            //procedure for attacking
begin
  WriteLn('Training Attack');
  s1:= s1 + 1;
  ReportVars[0] := ReportVars[0] + 1;
  Wait(500);
  WalkToChickens;
  CheckGate;
  IntoPen;
  MarkTime(Timer);
  StartAttacking;
end;

Procedure Woodcutting;          //procedure for cutting wood
begin
  WriteLn('Training Woodcutting');
  s2:= s2 + 1;
  ReportVars[3] := ReportVars[3] + 1;
  Wait(500);
  WalkToTrees;
  MarkTime(Timer);
  StartWoodcutting;
end;

Procedure Mining;           //procedure for mining
begin
  WriteLn('Training Mining');
  s3:= s3 + 1;
  ReportVars[2] := ReportVars[2] + 1;
  Wait(500);
  WalkToMine;
  GetPic;
  MarkTime(Timer);
  StartMining;
end;

Procedure Fishing;            //procedure for fishing
begin
  WriteLn('Training Fishing');
  s4:= s4 + 1;
  ReportVars[1] := ReportVars[1] + 1;
  Wait(500);
  WalkToFish;
  MarkTime(Timer);
  StartFishing;
end;

Procedure RandomSkillToTrain;       //randomly selects skill to train
begin
  WriteLn('Choosing Random Skill to Train........');
  case Random(4) of
    1: Attack;
    2: Woodcutting;
    3: Fishing;
    4: Mining;
  end;
end;
 
Procedure MainLoop;      //gets screen set up and starts the script
begin
  SetUpSRL;
  DeclarePlayers;
  ScriptID := '351';
  SRLID := YourSRLId;
  SRLPassword := YourSRLPassword;
  LoginPlayer;
  MakeCompass('N');
  HighestAngle;
  RandomSkillToTrain;
  repeat
  If not LoggedIn then
  begin
    MainLoop;
  end;
  until(False);
end;
 
begin
  MainLoop;
end.

i would have added othe scripts but thay aint on this computer :(

so here is a link to one of my others on the forum http://www.villavu.com/forum/showthread.php?t=13479?t=14894

——————————————————
<!– END TEMPLATE: formanswers –>

Here is bobzilla's application.
I'm curious what you guys make of it this time. :)

//warning: This Script Has No Failsafes,

I don't like that.

also: (not a big deal)

var
x, y:Integer;
Timer:Integer;
f:Integer;
m:Integer;
w:Integer;
a:Integer;
s1:Integer;
s2:Integer;
s3:Integer;
s4:Integer;

should be more like

var
  x, y, Timer, f, m, w, a, s1, s2, s3, s4:Integer;

ok. now my opion,
you made a kinda fun script, but you should add fail saves. but you know the basics, and enough to become a member. just make the script better in the future, i'll say yes, but you got something to prove us (a good and released script i'm talking about). so, good luck and keep it up. hope to see more of you.

yes

no Multiplayer, no Failsafe, no Randoms handle its scary

oops i didn't saw he hasn't got randoms…

i should vote no now to, but I allready voted.

my new opion:

add anti randoms, fail saves and multi player, and come back after 30 days. :)

wow, your eye catch must be very fast

yea i was in kind of a hurry :)

Procedure MainLoop;      //gets screen set up and starts the script
begin
  SetUpSRL;
  DeclarePlayers;
  ScriptID := '351';
  SRLID := YourSRLId;
  SRLPassword := YourSRLPassword;
  LoginPlayer;
  MakeCompass('N');
  HighestAngle;
  RandomSkillToTrain;
  repeat
  [B]If not LoggedIn then
  begin
    MainLoop;
  end;[/B]
  until(False);
end;
 
begin
  MainLoop;
end.

Doesent look so good..

He does have randoms, they are in find fight….

From: mat_de_b
He does have randoms, they are in find fight….

Was hoping you guys would see it.. ;)
Might want to change your opinion?

basics, basics and standards, sorry NO, and i think about randoms maybe he just forgot them, they are easy to add…srl does randoms for you…next try after 30 days

its a great idea of a script and some nice things in there…but also it should have failsafes and also multiplayer would be a big big PLUS…also 30 minutes per skill is really long especially for no ENT fighter or GAS finder for cutting and mining…also the mainloop is not very promising…my answer is no