SRL Archive - Archive

GoF - SRL Member Application Form
GoF

What is the meaning to life?


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



Programming Knowledge
Some vb, very little c++

Other Communitys
Im known as Gofez0r at sythe.

How Long have You Played Runescape
Around 5 years.

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

Ive been using SCAR scripts for quite long now, but i got into scripting only some time ago as i thought its too complicated and hard, but didnt take long to learn… U can check my other scripts from the free scripts section (ive posted a few of them) and my last application, well, not sure what happened to it, i didnt get any kind of notification what so ever. Well, my scripting has improved, so i hope ill do better with this one… Well, thats pretty much all i can think of right now…

~GoF

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

{
 Seagull Slasher by Gofez0r aka. GoF

 This script is autocolor, no need to set any colors =)
 Very simple, very working. Post progressreports and
 let me know what u think, and if you find any bugs from it...
}

{Instructions:
 Fill in the setup and forms... And of course, Enjoy :D }

{ Upcomin updates:
 -Forms.. I get weird and annoying errors >:-(
 -Walkback (already started with it..)
 -Other things if i get good suggestions =)
}


program SeagullKiller;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
{.include SRL/SRL/Skill/Ranging.scar}

const
GullsToOwn    = 125;
FightWay      = 2; //The way to fight. 1-4 ..
ReportTime    = 60; //How often to show progress report in minutes.
RandomTimeOut = 5; // 5-10... How often to check for randoms? 5 lowest, 10 max.
WaitTime      = 3; //Approximately how long it takes to kill the seagull? In seconds.
FastKilling   = True; //Set to true if ur acc usually 1 or 2 hits the gulls..
ArrowPicking  = False;//Set to true or false... Didnt feel to redo the forms, 5th time...
AntiB         = true;//True if u want antiban
AntiR         = True; //Set to true if u want antirandoms.

var
 GullCol : array[0..5]of integer;
 KillsDone,WaitGull,Attacks,FastWaiting,MMWater :integer;
 WAN :boolean;

///////////////////////////////////////////////////////////////////

procedure DeclarePlayers;
begin
  HowManyPlayers:= 1;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name     :='';
  Players[0].Pass     :='';
  Players[0].Nick     :='';
  Players[0].Active   :=True;

end;

///////////////////////////////////////////////////////////////////


procedure SetUpPlayer;
begin
 if(not(LoggedIn))then
 begin
   LogInPlayer;
  end;
 if(LoggedIn)then
  begin
  SetFightMode(FightWay);
    Wait(345+random(800));
      SetRun(True);
      Wait(450+random(300));
    PerfectNorth;
  end;
end;

///////////////////////////////////////////////////////////////////

procedure Getposition;
var
  GFC   :integer;
  WA    :integer;
  BL    :integer;
  ToF   :boolean;

begin
GFC:=0;
BL:=0;
WAN:=False;
 if(FindBitmapToleranceIn(MMWater,x,y,MMx1,MMy1,MMx2,MMy2,50))then
  begin
     Writeln('Found water');
     WAN:=True;
     Exit;
   end;
    if(not(FindBitmapToleranceIn(MMWater,x,y,MMx1,MMy1,MMx2,MMy2,50)))then
      Writeln('Cant find water... We maybe lost..');
     repeat
       BL:=BL+1;
       WA:=random(5);
      if(FindObj(x,y,'eag',GullCol[WA],15))then
       begin
         Writeln('Still found the seagull..');
       Players[CurrentPlayer].loc := 'Not clear.';
       ToF:=True;
         end;
        until(ToF=True)or(BL=10);
         if(BL=10)then
        begin
         Writeln('Cant find water or seagulls! We must be lost.');
           LogOut;
            WAN:=False;
         TerminateScript;
         if(ToF=True)then
          begin
           Writeln('We will try to survive...');
            WAN:=True;
             Exit;
        end;
    end;
end;


///////////////////////////////////////////////////////////////////

Procedure AntiBanzZ;
var
RaBC   : Integer;
 
begin
 if(AntiB)then
 begin
  if(not(LoggedIn))then
   begin
     Exit;
    end;
    RaBC:=Random(35)
   case RaBC of
    1: BoredEvery(2 + Random(10));
    2: MakeCompass('N');
    3: HoverSkill('Strenght',false);
    4: LeaveScreenEvery(10 + Random(5));
    5: BoredEvery(9 + Random (21));
    6: DoEmote(1 + Random(20));
    7: RotateEvery(20 + Random(5));
    8: MMouse(Random(300),Random(400),10,10)
   end;
 end;
end;

///////////////////////////////////////////////////////////////////

procedure CheckLogin;
begin
 if(not(LoggedIn))then
  begin
    Writeln('Not logged in...');
      LogInPlayer;
    Writeln('Logged in.');
  end;
end;

///////////////////////////////////////////////////////////////////

procedure LoadStuff;
begin
  GullCol[0]:= 6596828;
  GullCol[1]:= 6399189;
  GullCol[2]:= 15395821;
  GullCol[3]:= 9737375;
  GullCol[4]:= 14869733;
  GullCol[5]:= 5673663;
  
  MMWater:=BitmapFromString(2,2,'6277A56277A56277A56277A5');//Found this from some script.

  WaitGull:=WaitTime*1000;

end;

///////////////////////////////////////////////////////////////////

procedure LoadWaiting;
begin
  if(FastKilling=true)then
   begin
     FastWaiting:=12*10000;
    end;
   if(FastKilling=true)then
    begin
  FastWaiting:=20*10000;
 end;
end;

///////////////////////////////////////////////////////////////////

procedure QuickRands;
begin
if(not(AntiR))then
  begin
   exit;
  end;
 if(AntiR)then
  begin
   CloseWindow;
     Wait(10);
   FindTalk;
     Wait(10);
   FindDead;
     Wait(10);
   FindMime;
     Wait(10);
   FindMaze;
     Wait(10);
   FindQuiz;
     Wait(10);
   FindScapeRune;
     Wait(10);
   ClickToContinue;
     Wait(10);
   FindTalk;
 Wait(10+Random(50));
 end;
end;


///////////////////////////////////////////////////////////////////

procedure CheckFightStatus;
var
ReleaseLoop  :integer;

begin
ReleaseLoop:=0;
  if(not(InFight))then
   begin
     Exit;
    end;
   if(InFight)then
    begin
    repeat
      ReleaseLoop:=ReleaseLoop+1;
        Wait(WaitGull+random(2000));
      QuickRands;
    until(not(InFight))or(ReleaseLoop=5)
  KillsDone:=KillsDone+1;
  end;
end;

///////////////////////////////////////////////////////////////////

procedure KillTheBitches;
var
RAG   :integer;
DBL   :integer;
WA    :integer;
MarkT :integer;

begin
MarkTime(MarkT);
  DBL:=0;
  RAG:=RandomTimeOut+random(5);
  Writeln('Killing seagulls..');
    repeat
      CheckLogin;
        DBL:=DBL+1;
      CheckFightStatus;
        WA:=random(5);
      if(FindObj(x,y,'eag',GullCol[WA],15))then
       begin
         MMouse(x+random(3),y+random(3),2,2);
         Mouse(x,y,2,2,true);
       Flag;
     Attacks:=Attacks+1;
     QuickRands;
     Wait(WaitGull+Random(2000));
     end;
   until(DBL=RAG)or(TimeFromMark(MarkT)=FastWaiting+random(12000));
end;


///////////////////////////////////////////////////////////////////

procedure ProgressReport;
begin
   Writeln('****----Seagull Slasher by GoF ProgressReport----****');
   Writeln('');
   Writeln('Killed '+inttostr(KillsDone)+' out of '+inttostr(GullsToOwn)+' Seagulls.');
   Writeln('Total time used: '+TimeRunning);
   Writeln('Times Attacked Seagulls:'+IntToStr(Attacks)+'');
   Writeln('');
   Writeln('****----------------End Of Report----------------****');
end;

///////////////////////////////////////////////////////////////////

procedure MainLoop;
begin
 if (not(LoggedIn)) then
  begin
   LoginPlayer;
    end;
      SetUpPlayer;
     repeat
     if(not(LoggedIn)) then
      begin
        LoginPlayer;
       end;
       KillTheBitches;
         AntiBanzz;
       Getposition;
      FindNormalRandoms;
    ProgressReport;
  until (KillsDone=GullsToOwn)
end;

///////////////////////////////////////////////////////////////////

begin
  SetUpSRL;
  LoadStuff;
  LoadWaiting;
  DeclarePlayers;
  MainLoop;
end.

——————————————————

Got to say Yes! :D Script looks fine, and you are nice guy. :D You know basics of scripting and SRL so why couldn't you be SRL member.

Yes, I have to say yes also. Very nice job on the seagull killer and I also seen your flax0r too :) good job.

Meh fine, yes from me…

I wonder why didn't you post youre autofighter ?
As a fact. that was really good script for me to learn how to script.

Definedly, I vote: yes

In, in, in!