SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
kelly slater pro surfer - SRL Member Application Form
kelly slater pro surfer

What is the meaning to life?


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

Programming Knowledge
yes php, c, html

Other Communitys
travdev.freehostia.com

How Long have You Played Runescape
1-2 years

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

well iv wrote a website i started scripting about 1 month my bro has been teecheing me and i joiend the site i might not have very mmany posts but i know how to script and here is my script

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

1. u set colors
2. start at prayer guild
3.enjoy

program MonkTermanater;
{.include SRL/srl..scar}

const
  Startplayer = 0;
  mColor1 = 0;  {colour of monk}
  Monster = 'Monk';   
  tol = 5;
  mode = 3;     
  Eat = 'No';    {yes/no}
  Eathp = 15;   //i put 15 incase u lag
  Foodname = '';   {name}
  Foodcolor = 1;    {colour of food}
  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 ProgressReport;
Begin
  ClearDebug;
  Writeln('<|----------------------------------------------|>');
  Writeln(' MonkTermanter v'+VerNumber+' by kelly slater ');
  Writeln(' Worked for: '+ScriptTime2(2));
  Writeln(' Attacked ' + IntToStr(Monsters));
  Writeln('<|----------------------------------------------|>');

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 FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;

////////////////////////////////////////////////////////////////////////////////////////
function AttackTheMonster2(Color1 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
    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;



procedure Fighter;
var
  TempTime:Integer;

begin
if not LoggedIn then Exit;
  m:= 0;
    if AttackTheMonster(mcolor1, 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(MColor1Tol,Monster) then
  begin;
    Writeln('We cant find the monster sorry! Hold on to ur butts!');
    NextPlayer(false);
  end;
end;


procedure Setup;
begin;
  Declareplayers;
  SetupSRL;
  DisguiseScar(inttostr(Monsters));
  ActivateClient;
  SRLRandomsReport;
end;


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

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

Looks Coppied to Me :P

its not trust me

Hmmm. . . You didn't make any of the procedures. . .

(If it's copied I couldn't find it. . .)

i made the eat food and my bro helped a lil on the fighteing and attack monster

o and when i applied i culdent ancer the meaning of life,…..?

Stop Double Posting.

soz (sigh) w/e ill try again next month

Guess that means you give up?
Closed.