SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Bonfield, i met him through university and he introduced me to this forum

Programming Knowledge


Other Communitys


How Long have You Played Runescape


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

i am studying computer programming at university this year, i would really like to improve this community and enjoy the challenge of scripting



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

program MyAutoFighter;
{.include SRL/SRL.scar}


var
  m, monsters, Att,Str,Def:Integer;

Const
Color1 = 2577265;    // color of monster to attack
Color2 = 15198954;   // color of monster to attack
Color3 = 1847094;    // color of monster to attack
NumberOfUsers = 1;   // how many characters are you going to use with this script
StartPlayer = 0;     // number of start player in DeclarePlayers
FoodColor = 000000;  // color of food
HpToEat = 10;        // when to eat



///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
                                    VersionNumber = 1.0;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Procedure DeclarePlayers;


  Begin
     HowManyPlayers:= NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := StartPlayer;


     Players[0].Name :='UserName';
     Players[0].Pass :='Password';
     Players[0].Nick :='3-4 Letters Of Youre Username';
     Players[0].integers[3] := 40; //  Attack level to Train to
     Players[0].integers[4] := 99; //  Strength level to Train to
     Players[0].integers[5] := 10;  // Defence level to Train to
     Players[0].Active:=True;


     Players[1].Name :='UserName';
     Players[1].Pass :='Password';
     Players[1].Nick :='3-4 Letters Of Youre Username';
     Players[1].integers[3] := 40; //  Attack level to Train to
     Players[1].integers[4] := 99; //  Strength level to Train to
     Players[1].integers[5] := 10;  // Defence level to Train to
     Players[1].Active:=True;

end;


Procedure FindEnemy;
var x, y: Integer;
Begin
If
(FindColorSpiral(x,y,Color1,2,2,418,304)) Or
(FindColorSpiral(x,y,Color2,2,2,418,304)) Or
(FindColorSpiral(x,y,Color3,2,2,418,304)) Then
Begin
Writeln('Found Enemy Now Starting Script')
End Else
Writeln('We cant find the monster sorry! Logging out!');
end;

procedure AttackMode;
var
  i,att,str,def:integer;
begin
  if not(loggedIn) then exit;
  if (players[currentplayer].skill='') then
  begin
    gametab(2);
    wait(200);
    att:=getskilllevel('attack');
    str:=getskilllevel('strength');
    def:=getskilllevel('defence');
    if dbug then writeln(inttostr(att)+' attack');
    if dbug then writeln(inttostr(str)+' strength');
    if dbug then writeln(inttostr(def)+' defence');
    marktime(a);
    if (lowercasE(players[currentplayer].skill)='attack') then
      if (att<players[currentplayer].integers[3]) then exit else players[currentplayer].skill:='';
    if (lowercasE(players[currentplayer].skill)='strength') then
      if (str<players[currentplayer].integers[4]) then exit else players[currentplayer].skill:='';
    if (lowercasE(players[currentplayer].skill)='defence') then
      if (def<players[currentplayer].integers[5]) then exit else players[currentplayer].skill:='';
    for i:=0 to 0 do
    begin
      if (players[currentplayer].skill='') then
      begin
        if (att<players[currentplayer].integers[3]) then
          if not(players[currentplayer].integers[3]=99) then
          begin
            players[currentplayer].skill:='attack';
            break;
          end;
        if (str<players[currentplayer].integers[4]) then
          if not(players[currentplayer].integers[4]=99) then
          begin
            players[currentplayer].skill:='strength';
            break;
          end;
        if (def<players[currentplayer].integers[5]) then
          if not(players[currentplayer].integers[5]=99) then
          begin
            players[currentplayer].skill:='defence';
            break;
          end;
        if (players[currentplayer].integers[3]=99) then players[currentplayer].skill:='attack';
        if (players[currentplayer].integers[4]=99) then players[currentplayer].skill:='strength';
        if (players[currentplayer].integers[5]=99) then players[currentplayer].skill:='defence';
      end;
    end;
    gametab(1);
    case lowercase(players[currentplayer].skill) of
      'attack': setfightmode(1);
      'strength': setfightmode(2);
      'defence','defense': setfightmode(4);
    end;
  end;
end;


function AttackTheMonster2(Color1, Color2, Color3, Tolerance: Integer; MonsterName:  string): Boolean;
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;
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;
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;
    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 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;


procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;


function DoAntiBan: Boolean;
begin
  AntiBan;
  wait(50 + random(100));
  BoredEvery(3 + random(3));
  wait(100 + random(100))
    RotateEvery(7 + random(4));
  wait(750 + random(250));
  LeaveScreenEvery(5 + random(7));
  wait(500 + random(150));
end;

procedure ProgressReport;
Begin
  ClearDebug;
  Writeln('<|----------------------------------------------|>');
  Writeln(' AutoFighter v'+VersionNumber+' by Pwnzr ');
  Writeln(('Worked for ' + TimeRunning + '');
  Writeln(' Attacked ' + IntToStr(Monsters));
  Writeln('<|----------------------------------------------|>');
end;

procedure WriteLns(Text: string);
begin
  WriteLn(Text);
  Wait(200);
end;

procedure Intro;
begin
  WriteLns('`||''|.                                       ');
  WriteLns(' ||   || ... ... ... .. ...   ......  ... ..  ');
  WriteLns(' ||...|`  ||  ||  |   ||  ||  `  .|`   ||` '' ');
  WriteLns(' ||        ||| |||    ||  ||   .|.     ||     ');
  WriteLns('.||.        |   |    .||. ||. ||....| .||.    ');
  ClearDebug;
  WriteLn('tell me how my script goes =] =]') ;
end;


  Procedure Setup;
  begin;
  Declareplayers;
  Credits;
  SetupSRL;
  ActivateClient;
  SRLRandomsReport;
end;


begin
  setup;
  repeat
    if (not (loggedin)) then
    begin
      loginplayer;
      SetRun(true);
      AttackMode;
      wait(2000 + random(1000));
      highestangle;
    end;
    FindNormalRandoms;
    wait(200 + random(200));
    fighter;
    wait(200 + random(200));
  until (false);
  ProgressReport;
  Logout;
End.

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

EDIT: nielsje owned me.

Nice script :). Some standards are a little bit of. yes from me.

From: MasterKill
dubble aply!

plz all respond to this one:
http://www.villavu.com/forum/showthread.php?t=25661?t=28049

closed?

Keep it on this one please ;)

Sorry, it's a bit too simple for my yes =/

Could you explain what does MakeTBoxOfTPointArrays do?

If you want the middle of the TPointArrays, just make a 2D TPA and do CombineTPA in a loop, and then do MiddleTPA.

If you want the TBox like the bounds of the TPointArrays, also make a 2D TPA instead of the three and do CombineTPA in a loop, and then do Box := GetTPABounds(TPA) :)

From: nielsie95
Keep it on this one please ;)

you gotta love admin powers…



——->

  until (false);
  ProgressReport;  // this will never be called
  Logout; // this will never be called to!
End.

script looks ok, but plz fix your standaards!

your postcount is way to low.

i'm holding my vote.

From: MasterKill
your postcount is way to low.

Post count doens't really matter on these forums ;)
but indeed its low. tough, garret got in with 3 posts :p

From: rikjess
Post count doens't really matter on these forums ;)
but indeed its low. tough, garret got in with 3 posts :p

it looks kinda leacher to me, but hey, the longlivety bar is empty.

o dear,

YES

Busted! The attack mode is from ForeFeathers -

function AttackMode:boolean;
var
  i,att,str,def:integer;
begin
  if not(loggedIn) then exit;
  result:=true;
  if (timefrommark(a)>30000)or(players[currentplayer].skill='') then
  begin
    gametab(2);
    wait(200);
    att:=getskillinfo('attack',false);
    str:=getskillinfo('strength',false);
    def:=getskillinfo('defence',false);
    if dbug then writeln(inttostr(att)+' attack');
    if dbug then writeln(inttostr(str)+' strength');
    if dbug then writeln(inttostr(def)+' defence');
    marktime(a);
    if (lowercasE(players[currentplayer].skill)='attack') then
      if (att<players[currentplayer].integers[3]) then exit else players[currentplayer].skill:='';
    if (lowercasE(players[currentplayer].skill)='strength') then
      if (str<players[currentplayer].integers[4]) then exit else players[currentplayer].skill:='';
    if (lowercasE(players[currentplayer].skill)='defence') then
      if (def<players[currentplayer].integers[5]) then exit else players[currentplayer].skill:='';
    for i:=0 to 0 do
    begin
      if (players[currentplayer].skill='') then
      begin
        if (att<players[currentplayer].integers[3]) then
          if not(players[currentplayer].integers[3]=99) then
          begin
            players[currentplayer].skill:='attack';
            break;
          end;
        if (str<players[currentplayer].integers[4]) then
          if not(players[currentplayer].integers[4]=99) then
          begin
            players[currentplayer].skill:='strength';
            break;
          end;
        if (def<players[currentplayer].integers[5]) then
          if not(players[currentplayer].integers[5]=99) then
          begin
            players[currentplayer].skill:='defence';
            break;
          end;
        if (players[currentplayer].integers[3]=99) then players[currentplayer].skill:='attack';
        if (players[currentplayer].integers[4]=99) then players[currentplayer].skill:='strength';
        if (players[currentplayer].integers[5]=99) then players[currentplayer].skill:='defence';
      end;
    end;
    gametab(1);
    case lowercase(players[currentplayer].skill) of
      'attack': setfightmode(1);
      'strength': setfightmode(2);
      'defence','defense': setfightmode(4);
      else result:=false;
    end;
  end;
end;

Nielsie, could you show him the door? xD

From: pwnzr


Are you affilated in anyway with Jagex LTD?
No Comment

joined: 5th of Feb

5 days to do such a script? Sounds suspicious to me.

is this your first an only srl account?

edit: Seems like n3ss3s got here first than me :p

~RM

From: rikjess
Nice script :). Some standards are a little bit of. yes from me.

il fix up my standards this script is a little messy

From: nielsie95
Keep it on this one please ;)

sorry but when i applied there was a 404 error and i couldnt find my first application i didnt know it went through

From: n3ss3s
Sorry, it's a bit too simple for my yes =/

Could you explain what does MakeTBoxOfTPointArrays do?

If you want the middle of the TPointArrays, just make a 2D TPA and do CombineTPA in a loop, and then do MiddleTPA.

If you want the TBox like the bounds of the TPointArrays, also make a 2D TPA instead of the three and do CombineTPA in a loop, and then do Box := GetTPABounds(TPA) :)

thanks MakeTBoxOfTPointArrays was to find the middle but the way you said is an easier way to do it thanks

From: MasterKill
it looks kinda leacher to me, but hey, the longlivety bar is empty.

yeah i will be more active on this forum after the coming week i have an exam but after that i have nothing on for a while


also thanks for the yes votes :)

EDIT: that was the only procedure that i used from another script was munks attack procedure

lol i have nothing to do with jagex i just forgot to answer that question in my application, yeah this is my only account, y do u think otherwise

Lol ownt!

No!

I highly doubt some of this is yours.

From: pwnzr
il fix up my standards this script is a little messy



sorry but when i applied there was a 404 error and i couldnt find my first application i didnt know it went through



thanks MakeTBoxOfTPointArrays was to find the middle but the way you said is an easier way to do it thanks



yeah i will be more active on this forum after the coming week i have an exam but after that i have nothing on for a while


also thanks for the yes votes :)

EDIT: that was the only procedure that i used from another script was munks attack procedure

lol i have nothing to do with jagex i just forgot to answer that question in my application, yeah this is my only account, y do u think otherwise

Do you have any comments on the copied procedure?

FindEnemy and writeLns are just using up space, because you never actually call FindEnemy. script without those procedures and munk's Attack mode is 265 lines long. procedures which are clearly yours have the wrong standards, while more complicated procedures have the right standards.

i don't really buy it, 5 days and your using TPAs… but maybe it's just me being a cynic.

anyway:
no walking, no bitmaps/dtms/ddtms, wrong standards, no banking, doesn't compile.

edit:; and FindMonster2 will look for the monster with the same colors the FindMonster1 did, only with a lil more tol. why not do it all in one procedure?

~RM

Ban Hammer!

0% longetivity, 5% activity, O.o…

No from me…just because you activity and longetivity, whoever you are…

From: n3ss3s
Do you have any comments on the copied procedure?

no i just liked the procedure that munk used to change the attack mode, i just realised that the script i applies with doesnt call on a couple of procedures

anyways the only part that i didnt create myself was that 1 procedure

You should always credit people even if it was only one proc.

Unfortunately for you the script doesn't compile.

Your antiban procedure:

function DoAntiBan: Boolean;
begin
  AntiBan;
  wait(50 + random(100));
  BoredEvery(3 + random(3));
  wait(100 + random(100))
    RotateEvery(7 + random(4));
  wait(750 + random(250));
  LeaveScreenEvery(5 + random(7));
  wait(500 + random(150));
end;

has got stuff from pre-SRL 4 times.

Also GetSkillLevel was removed/modified in the last couple of revisions before you joined so either this is copied script (which I'm sure of but can't prove) or you've got another account which is against the rules. Either way I'd say we should close this.

Oh and you don't call NextPlayer…. and I don't particularly like your longevity and activity on the forums.

Also GetSkillLevel was removed/modified in the last couple of revisions before you joined so either this is copied script (which I'm sure of but can't prove) or you've got another account which is against the rules. Either way I'd say we should close this.

Agreed, but Nielsie said that his IP is clean.

Also, I'm starting to have a feeling that I've seen that MakeTBoxOfTPointArrays

somewhere before too… hmm…


I agree with the to-be-closed, he can improve, hang around more and then when he feels like (over one month) he can apply again…

It looks like you're not getting in this time.
Try again in one month.
Closed.