SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Firey Chicken Cannonball - SRL Member Application Form
Firey Chicken Cannonball

What is the meaning to life?


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


Programming Knowledge
Small Knowledge in xhtml code

Other Communitys
none

How Long have You Played Runescape
3 years

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

I have much experience with scar, as shown in how long this acoount has existed. i have gone though many scripts and found what things work, and which dont. over time i have a developed a large knowledge of scar and i hope my script is acceptable

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

{
 MonFighter SRL v1.0.0

 Program in your settings on line 18.

 Universal AutoFighter, with Anti-Ban and Anti-Randoms.

 - Enjoy
}
program MFSRL;
var
col1,col2,col3,coltol,attacktime,antibanmins,killscripthour,size: integer;
colmonname,rawmenutext: string;
{.Include srl/srl.scar}

Procedure ScriptSettings;
begin
 colmonname:= 'rawler'  //Monster Name
 col1:= 1076883         //Monster Color 1
 col2:= 1076111         //Monster Color 2
 col3:= 1658214         //Monster Color 3
 size:= 1               //Monster Range (1-5) The area the mouse randomly moves to away from the monster color it returns.
 coltol:= 5             //Tolerance of Monster Colors
 attacktime:= 4000      //Repeat time for re-attacking Monsters
 AntiBanMins:= 1        //Every Minute to do Antibans
 KillScriptHour:= 5     //How many hours to kill script
end;

//SRL PROCEDURES AND FUNCTIONS --- >
procedure KillScript(hours: Integer);
begin
  if ((TimeFromMark(KillScriptMark) / 1000) / 3600 >= hours) then
  begin
    WriteLn('Stopping script at ' + IntToStr(hours) + ' hours');
    MMouse(Random(500), -10, 0, 0);
    TerminateScript;
  end;
end;
procedure RotateEvery(mins: Integer);
begin
  if ((TimeFromMark(RotateMark) / 1000) / 60 >= mins) then
  begin
    MarkTime(RotateMark);
    SendArrowSilentWait(Random(4), 500 + Random(500));
    SendArrowSilentWait(Random(4), 500 + Random(500));
    MakeCompass('n');
    SendArrowSilentWait(0, 1400 + Random(100));
  end;
end;
procedure RandomRClickEvery(mins: Integer);
begin
  if ((TimeFromMark(RandomClickMark) / 1000) / 60 >= mins) then
  begin
    MarkTime(RandomClickMark);
    RandomRClick;
  end;
end;
function InFight: Boolean;
begin
  Result := (FindColor(x, y, 65280, 230, 130, 280, 180) or FindColor(x, y, 255,
    230, 130, 280, 180))
end;
//SRL PROCEDURES AND FUNCTIONS < ---

Procedure Attackmon;
var
RightOrLeft: Integer;
Begin
RightOrLeft:=Random(2)
 If InFight=True Then
  Begin
   Wait(500+Random(500))
  End;
 If InFight=False Then
  Begin
   If FindColorTolerance(x,y,col1,0,0,509,336,coltol) or
      FindColorTolerance(x,y,col2,0,0,509,336,coltol) or
      FindColorTolerance(x,y,col3,0,0,509,336,coltol) then
       Begin
        MouseSpeed:=1+random(5)
         Case RightOrLeft Of
          1:
           Begin;
            Mouse(x,y,size,size,false)
            Wait(300+random(300))
            if ChooseOption(x,y,(colmonname))then
             Begin
              Wait(attacktime+random(2000))
             End
            if not ChooseOption(x,y,(colmonname))then
             Begin
              Attackmon;
             End;
           End;
          2:
           Begin
            Mouse(x,y,1,1,True)
            Wait(attacktime+random(2000))
           End;
        End;
      End;
  End;
End;

Procedure NoBan;
var
bancheck: integer;
begin
 RotateEvery(2)
 RandomRClickEvery(4)
 KillScript(KillScriptHour)
 bancheck:=Random(8)
 if BanCheck=3 Then
  begin
   If FindNormalRandoms=True Then
    Begin
     SolveTalkingRandom(RawMenuText)
    end;
  end;
end;

Procedure EnableRun;
Begin
 Mouse(675,546,5,5,true)
 Wait(500+random(500))
 If Not FindColorTolerance(x,y,1974404,617,468,668,516,5) then
  begin
   Mouse(639,493,5,5,true)
   Wait(300+random(300))
  end;
End;

Procedure MouseMovements;
var
WhatMouseMovements: Integer;
Begin
 WhatMouseMovements:=Random(10)
  if WhatMouseMovements=1 then
   begin
    MMouse(92,130,80,100)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=2 then
   begin
    MMouse(86,351,75,165)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=3 then
   begin
    MMouse(321,378,175,175)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=4 then
   begin
    MMouse(501,210,80,100)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=5 then
   begin
    MMouse(654,374,10,100)
    Wait(200+random(200))
   end;
End;

Procedure ClickATab;
var
Whichtab: Integer;
Begin
Wait(200+random(300))
 Whichtab:=Random(5)
 if Whichtab=1 Then
  Begin
   Mouse(579,247,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=2 Then
  Begin
   Mouse(541, 246,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=3 Then
  Begin
   Mouse(577,547,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=4 Then
  Begin
   Mouse(709,243,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=5 Then
  Begin
   Mouse(577,249,10,10,true)
   Wait(200+random(200))
   MMouse(582,316,7,7)
   Wait(1500+random(500))
  End;
End;

Procedure RandomActionProc;
var
WhatAction: Integer;
begin
 WhatAction:=Random(3)
 if WhatAction=1 Then
  Begin
   ClickATab;
   Writeln('click a tab')
  End;
 if WhatAction=2 Then
  Begin
   MouseMovements;
   Writeln('Mouse Movements')
  End;
 if WhatAction=3 Then
  Begin
   EnableRun;
   Writeln('Enable Run')
  End;
end;

Procedure StartScript;
var
RandomAction: Integer;
begin
 Attackmon;
 NoBan;
 Wait(200+Random(200))
 RandomAction:=Random(3)
 if RandomAction=2 then
  begin
   RandomActionProc;
  end;
end;


begin
SetupSRL;
 Repeat
  ScriptSettings;
  Wait(500+random(100))
  StartScript;
 Until(false);
end.

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

heey, you got a very nice start over there. but i'm sorry but i think its to simple and not good enough for srl members. most if the script is anti-ban and stuff.

also there are 'srl functions' for gametabs, use like this:

Procedure ClickATab;
Begin
  case random(5) of
    0: GameTab(1);
    1: GameTab(2);
    2: GameTab(3);
    3: GameTab(4);
    4: GameTab(5);
  end;
End;

^ that's a lil easyer ^


so i'm sorry but it's a no, plz come back in a month with a very nice and more advaced script.

so much more to learn! keep it up and good luck!

No Multiplayer
Simple Code
You should learn to use cases instead of all of those if then statements.
Click co-ordiantes less and use more bitmaps/dtms
Try reading some more tuts on 'how to become srl member' and make sure you have all of the aspects stated in your script and try again.
Its a wonderful start, but still not enough.
Please work on it more and reapply later.
Remember you must wait AT LEAST one month before applying again.