SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
scar

Other Communitys
cruels sythe eliteswitch

How Long have You Played Runescape
3-4 years

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

i really like scripting and the challenge that goes into learning new ways to create functions, i have been a member here for a while and not that active because i wasnt really into the runescape cheating scene but know im willing to join lol

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

program Autofighter;
{.include SRL/srl.scar}
{.include SRL/srl/skill/Fighting.scar}
{.include SRL/SRL/Extended/xDTM.scar}
{.include SRL/SRL/extended/xObject.scar}
{.include SRL/SRL/Extended/xAutoTalk.scar}
{.include SRL/SRL/extended/xAntiBan.Scar}
 
 
{this is an autofighter that i made
all u have to do is fill out lines 19-28  and run}
 
{thanks alot to mastaraymond for his help creating attack procedures and thanks
to rkroxpunk for all his help}
 
 
var
  m, monsters, Att,Str,Def:Integer;
  Goal : String;
 
const
  Startplayer = 0;
  mColor1 = 10066062;  {colour of monster}
  mcolor2 = 9211010;  {colour of monster}
  mcolor3 = 9474182;  {colour of monster}
  Monster = 'Giant rat';   {name}
  tol = 5;
  mode = 1;     {1 att 2 str 3 controlled 4 defence}
  EvenSkills = False; {true or false}
  Eat = 'No';    {yes/no}
  Eathp = 5;   {when you want to eat}
  Foodname = '';   {name}
  Foodcolor = 1;    {colour of food}
  VerNumber = '5'; {Version Number}
  MaxTime = 5000; {Maximum wait time!}
 
Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := StartPlayer;
 
  Players[0].Name :=;
  Players[0].Pass :=;
  Players[0].Nick :=;
  Players[0].Active := True;
end;
 
procedure WriteLns(Text: string);
begin
  WriteLn(Text);
  Wait(200);
end;
 
procedure Credits;
begin
  WriteLns(' [ B ]');
  WriteLns(' [ B o ]');
  WriteLns(' [ B o n ]');
  WriteLns(' [ B o n f ]');
  WriteLns(' [ B o n f i ]');
  WriteLns(' [ B o n f i e  ]');
  WriteLns(' [ B o n f i e l ]');
  WriteLns(' [ B o n f i e l d ]');
  WriteLns(' [ B o n f i e l d s ]');
  WriteLns(' [ B o n f i e l d s A ]');
  WriteLns(' [ B o n f i e l d s A u ]');
  WriteLns(' [ B o n f i e l d s A u t ]');
  WriteLns(' [ B o n f i e l d s A u t o ]');
  WriteLns(' [ B o n f i e l d s A u t o F ]');
  WriteLns(' [ B o n f i e l d s A u t o F i ]');
  WriteLns(' [ B o n f i e l d s A u t o F i g ]');
  WriteLns(' [ B o n f i e l d s A u t o F i g  h ]');
  WriteLns(' [ B o n f i e l d s A u t o F i g h t ]');
  WriteLns(' [ B o n f i e l d s A u t o F i g h t e ]');
  WriteLns(' [ B o n f i e l d s A u t o F i g h t e r]');
  ClearDebug;
  WriteLn('tell me how my script goes =] =]') ;
end;
 
procedure ProgressReport;
Begin
  ClearDebug;
  Writeln('<|----------------------------------------------|>');
  Writeln(' AutoFighter v'+VerNumber+' by Bonfield ');
  Writeln(' Worked for: '+ScriptTime2(2));
  Writeln(' Attacked ' + IntToStr(Monsters));
  Writeln('<|----------------------------------------------|>');
 
end;
 
 
procedure Mode2name;
begin
  if not LoggedIn then exit;
  if(Mode = 1) then Goal := 'Attack';
  if(Mode = 2) then Goal := 'Strength';
  if(Mode = 3) then Goal := 'Strength';
  if(Mode = 4) then Goal := 'Defence';
end;
 
procedure EatFood;
begin
  if not LoggedIn then exit;
  repeat
    if(eat = 'Yes')then
    begin
      if(gethp < Eathp) then
      begin
        Gametab(4)
        findobjarea(x,y,foodname,MIX1,MIY1,MIX2,MIY2,foodcolor,5,true);
        Mouse(x,y,5,5,true);
        isuptext(foodname);
        
      end;
    end;
  until (gethp > eathp) or(not(LoggedIn));
end;
 
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
if not LoggedIn then Exit;
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;
 
procedure AntiBanage; {made by JAD and i changed a little}
begin
  if(not(LoggedIn))then
  Exit;
  case Random(11) of
    0: RandomRClickEvery(3 + Random(3));
    1: begin
         if mode=1 then
           HoverSkill('Attack', false);
         wait(500+random(500));
         GameTab(4);
       end;
    2: begin
         if mode=2 then
           HoverSkill('Strength', false);
         wait(500+random(500));
         GameTab(4);
       end;
    3: begin
         if mode=4 then
           HoverSkill('Defence', false);
         wait(500+random(500));
         GameTab(4);
       end;
    4: LeaveScreenEvery(10 + Random(4));
    5: PickUpMouse;
    6: BoredEvery(10 + Random(5));
    7: begin
         GameTab(1 + Random(12));
         wait(1000+random(1000));
         GameTab(4);
       end;
    8: MouseBox(MSX1,MMY1,MMX2,MMY2,3);
    9: AntiBan;
    10: SleepAndMoveMouse(600000+random(300000));
 
  end;
end;
 
 
procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;
 
 
procedure SkillCheck;
begin
  if not LoggedIn then exit;
  if(Mode = 1) then
  begin
    HoverSkill('Attack',false);
  end;
  if(Mode = 2) then
  begin
    HoverSkill('Strength',false);
  end;
  if(Mode = 3) then
  begin
    HoverSkill('Attack',false);
    wait(1000 + random(500));
    HoverSkill('Strength',false);
  end;
  if(Mode = 4) then
  begin
    HoverSkill('Defence',false);
  end;
end;
 
procedure EvenSkill; {made by Pentii changed abit}
var
  Att,Str,Def:Integer;
begin
  if not LoggedIn then Exit;
  ProgressReport;
  if(EvenSkills=True)then
  begin
    Att:=GetSkillLevel('Attack')
    Str:=GetSkillLevel('Strength')
    Def:=GetSkillLevel('Defence')
    writeln('Att: '+inttostr(Att))
    writeln('Str: '+inttostr(Str))
    writeln('Def: '+inttostr(Def))
    if(Att>Str)then
    begin
      ProgressReport;
      writeln('Att greater than Str')
      if(mode=2) then
      begin
        ProgressReport;
        exit;
      end;
    end;
    if(Att<Str) then
    begin
      ProgressReport;
      writeln('Att less than Str')
      if(mode=1) then
      begin
        ProgressReport;
        exit;
      end;
    end;
    if(Att>Def) then
    begin
      ProgressReport;
      writeln('Att greater than Def')
      if(mode=3) then
      begin
        ProgressReport;
        exit;
      end;
    end;
    if(Att<Str) then
    begin
      ProgressReport;
      writeln('Attless than Str')
      if(mode=1) then
      begin
        ProgressReport;
        exit;
      end;
    end;
  end;
end;
 
 
function AttackTheMonster2(Color1, Color2, Color3, Tolerance: Integer; MonsterName:  string): Boolean;    {thanks to mastaraymond for the help}
var
  i, x, y: Integer;
begin
if not LoggedIn then Exit;
  Flag;
  for i := 1 to 5 do
  begin
    if (FindColorTolerance(x, y, Color1, MSX1, MSY1, MSX2, MSY2, Tolerance + i)) or
      (FindColorTolerance(x, y, Color2, MSX1, MSY1, MSX2, MSY2, Tolerance + i)) or
      (FindColorTolerance(x, y, Color3, MSX1, MSY1, MSX2, MSY2, Tolerance + i)) then
    begin
      MMouse(x, y, 3, 3);
      Wait(80 + Random(60));
      if (IsUpText('Attack ' + MonsterName)) then
      begin
        Result := True;
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        Wait(40 + Random(20));
        Flag;
        Exit;
      end;
    end;
  end;
end;
 
Function MakeTBoxOfTPointArrays(Points1,Points2,Points3:TPointArray;var ThePoint:TPoint): Boolean;    {thanks to mastaraymond for the help}
Var
  I,II,III:integer;
  L,LL,LLL:integer;
  TempBox:TBox;
begin;
if not LoggedIn then Exit;
  L:= Length(Points1);
  LL:= Length(Points2);
  LLL:= Length(Points3);
  if (L = 0) or (LL = 0) or (LLL = 0) then
  begin;
    Result:= False;
    Exit;
  end;
  For I:= 0 to L-1 do
  begin;
    TempBox.x1:= (Points1[i].x-10);
    TempBox.y1:= (Points1[i].y-10);
    TempBox.x2:= (Points1[i].x+10);
    TempBox.y2:= (Points1[i].x+10);
    For II:= 0 to LL-1 do
      if IntInBox(Points2[II].x,Points2[II].y,TempBox) then
        For III:= 0 to LLL-1 do
 
      if IntInBox(Points2[II].x,Points2[II].y,TempBox) then
        For III:= 0 to LLL do
          if IntInBox(Points3[III].x,Points3[III].y,TempBox) then
          begin;
            Result:=True;
            ThePoint.x:=Round(((Points1[i].x + Points2[II].x + Points3[III].x ) div 3));
            ThePoint.y:=Round(((Points1[i].y + Points2[II].y + Points3[III].y ) div 3));
            exit;
          end;
  end;
end;
 
function AttackTheMonster(Color1, Color2, Color3, Tolerance: Integer; MonsterName:  string): Boolean;     {thanks to mastaraymond for the help}
var
  i, x, y: Integer;
  PointsColors1,PointsColors2,PointsColors3:TPointArray;
  TempPoint:TPoint;
begin;
  Flag;
  FindColorsSpiralTolerance(MSCX,MSCY,PointsColors1,Color1,MSX1,MSY1,MSX2,MSY2,Tolerance);
  FindColorsSpiralTolerance(MSCX,MSCY,PointsColors2,Color2,MSX1,MSY1,MSX2,MSY2,Tolerance);
  FindColorsSpiralTolerance(MSCX,MSCY,PointsColors3,Color3,MSX1,MSY1,MSX2,MSY2,Tolerance);
  if MakeTBoxOfTPointArrays(PointsColors1,PointsColors2,PointsColors3,TempPoint) then
  begin;
  if not LoggedIn then Exit;
    MMouse(TempPoint.x,TempPoint.y, 3, 3);
    Wait(80 + Random(60));
    for I:= 0 to 3 do
    if (IsUpText('Attack ' + MonsterName)) then
    begin;
      Result := True;
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, True);
      Wait(40 + Random(20));
      Flag;
      Exit;
    end;
  end;
  if AttackTheMonster2(Color1, Color2, Color3, Tolerance,MonsterName) then Result:=true;
end;
 
procedure Fighter;
var
  TempTime:Integer;
 
begin
if not LoggedIn then Exit;
  m:= 0;
  antiBanage;
  if AttackTheMonster(mcolor1, mcolor2, mcolor3, tol, monster) then
  begin;
    TempTime:=GetSystemTime;
    FindNormalRandoms;
    Repeat
     FindFastRandoms;
     Wait(50+random(100));
     FindNormalRandoms
    until  not InFight or ((GetSystemTime - TempTime) >= MaxTime) or (not(LoggedIn));
    Monsters := m + 1;
    ProgressReport;
  end else if not FindMonster(MColor1,MColor2,MColor3,Tol,Monster) then
  begin;
    Writeln('We cant find the monster sorry! Logging out!');
    NextPlayer(false);
  end;
end;
 
 
procedure Setup;
begin;
  Declareplayers;
  Credits;
  SetupSRL;
  ActivateClient;
  SRLRandomsReport;
end;
 
 
begin
  setup;
  repeat
    if (not (loggedin)) then
    begin
      loginplayer;
      SetRun(true);
      setfightmode(mode);
      wait(2000 + random(1000));
      highestangle;
    end;
    antiBanage;
    FindNormalRandoms;
    wait(200 + random(200));
    fighter;
    wait(200 + random(200));
    antiBanage;
  until (false);
  ProgressReport;
  Logout;
End.
 

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

procedure EatFood;
begin
  if not LoggedIn then exit;
  repeat
    if(eat = 'Yes')then
    begin
      if(gethp < Eathp) then
      begin
        Gametab(4)
        findobjarea(x,y,foodname,MIX1,MIY1,MIX2,MIY2,foodcolor,5,true);
        isuptext(foodname);
        Mouse(x,y,5,5,true);
      end;
    end;
  until (gethp > eathp) or(not(LoggedIn));
end;

The IsUpText part is done wrong. You need to MMouse(x, y, 5, 5, True) then you check for Uptext.

I'll wait for others votes. A bit simple though.

Simple, but would prolly work.. I'll wait for YoHoJo ..



Also, I got your password in the script and changed it for you, and I am PM-ing it to you.

it does look a bit simple to me.

have you tested this script? any proggies?

you missed a semicolon at line 110.

oh, lol, and then pentis procedure missed like 8.

ok , ill leave you alone. leme look at the rest.

ok, yeah, the rest looks pretty good to me. You seem to know what your doing / how to organise stuff.

i would have loved to see some walking too.

oh, and some more posts.

(looking at ure posts now, ill edit with what i find)

Edit:90 percent of your posts were in ten days…

I find that suspicious.
you have only been around 10 days?

Ill wait for yohojo.
Edit: nah, im going with my hunch, yohojo can catch up this time :p (love you yoho!)

thanks for the feedback, what kind of walking procedures?

lol i have been here for a while now not just 10 days

He means you weren't active till 8 days ago…

I'll give you a yes.

ohh ok thanks for the yes

Yes from me too, but after you edited out your usernames, you forgot in declare players to make it a string.. (inside '')

From: hy71194
Yes from me too, but after you edited out your usernames, you forgot in declare players to make it a string.. (inside '')

ok lol i will fix it thanks for the yes ;)

A yes from me! This guy is cool. Hes learning really fast, and has patience! Maybe he applied a big to fast, but he is cool.

Yes.. Everyone else is saying yes so why not…
Lol lets wait for JAD :D

From: mastaraymond
A yes from me! This guy is cool. Hes learning really fast, and has patience! Maybe he applied a big to fast, but he is cool.

From: n3ss3s
Yes.. Everyone else is saying yes so why not…
Lol lets wait for JAD :D

hey thanks both of you for the yes

EDIT: how long is the poll open for?