SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
none

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.

This is my second try to become SRL member, if this time doesn't work out I'm giving up.

I'm kinda new to SCAR and SRL, but I know it for a very long time.
Before I actually started trying to create scripts I was one of those dumb leechers… and I'm not proud about that… Nowadays I try to create my own script, even though there already is a script for it. But just for myself to test my capabilities.

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

  program SimpleAutocurser;
  {.include SRL\SRL.scar}
  {.include SRL\SRL\skill\magic.scar}
  ////////////////////////////////////////////////////////////
  ////////////////////////////////////////////////////////////
  //////             Made by: jellehier0                //////
  //////             This is my first script            //////
  //////             so please, don't flame me          //////
  //////             if you have any comments,          //////
  //////             please PM me..                       //////
  //////             Thnx alot!                         //////
  ////////////////////////////////////////////////////////////
  ////////////////////////////////////////////////////////////
  // How to use: fill in everything.. stand next to the zamorak mage
  //             in varrock castle with enough runes to cast 'curse'


  var
  i: Integer;
  x,y: Integer;
  Castedspells: Integer;
  g,p: Integer;
  Randomsfound: Integer;


  const
  Lampskilll=    'prayer'; // same, but for failsave
  Spelll=        'curse'; // change curse into weaken, curse of confuse or any other spell
  Monstername=   'onk'; // part of the name of the monk
  ZammonkColor1= 2172254; //colour of 'monk of zamorak'
  ZammonkColor2= 3488915; //second colour of the monk
  ZammonkColor3= 4212913; //third color of the monk
  Runs=          0; // times you want to run the script ( 0 = unlimited)

  procedure declareplayers;
  begin
   HowManyPlayers :=2;
   NumberOfPlayers(HowManyPlayers);
   CurrentPlayer:=0;

   Players[0].Name :='name'; //name
   Players[0].Pass :='pass'; // password
   Players[0].Nick :='nick'; // nickname, abriviation of your name.
   Players[0].Skill:='Magic';// skill doing is magic
   players[0].loc:='varrock castle';// location
   Players[0].Active:=True;

   Players[1].Name :='name'; //name
   Players[1].Pass :='pass'; // password
   Players[1].Nick :='nick'; // nickname, abriviation of your name.
   Players[1].Skill:='Magic';// skill doing is magic
   players[0].loc:='varrock castle';// location
   Players[1].Active:=false;  // change to true if you use 2 accounts
  end;


  function FindNormalRandom: Boolean;
  var
     i: Integer;
  begin
  for i := 1 to 13 do
  begin
  case I of
    1: if SolveChatRandom then
        Result := True;
    2: Respond;
    3: if FindTalk then
        Result := True;
    4: if FindDead then
        Result := True;
    5: if FindMod then
        Result := True;
    6: if FindMime then
        Result := True;
    7: if FindMaze then
        Result := True;
    8: if FindQuiz then
        Result := True;
    9: if FindTalk then // Call it twice
        Result := True;
    10: if FindLamp(LampSkilll) then // Maybe we missed it?
        Result := True;
    11: if (FindBox) then
      begin
        Result := True;
        if (UseBoxSolver) then
          SolveBox
        else
          GambleBox;
      end;
    12:
      begin
        if NoGameTab then
        begin
          Result := True;
          Players[CurrentPlayer].Rand := 'No GameTab';
          //Players[CurrentPlayer].loc := 'No GameTab';
          Logout;
          Exit;
        end;
      end;
    13: if RC then
        Result := True;
  end;
  if Result then
    Break;
  Wait(1);
  end;
  end;



  procedure Runaway;
  begin
       Findtalk;
  begin
  case Random (4) of

   1: Findnormalrandom;

  end;

  if (FindFight= true) then
  begin
       MakeCompass ('n')
       RunAwayDirection('s');
       wait(10000);
       RunBack;
  end;
  end;
  end;

  procedure antiiban;
  begin
  case random (35) of


   0: begin
      GameTab(2);
      Hoverskill('magic',false);
      end;
   1: Typesend('good way of training magic!'+chr(13));
   2: SendText('lool...'+chr(13));
   3: Typesend('Booooring!!!!!'+chr(13));
   4: SendText('let him live!'+chr(13));
   5: Typesend('cmn... almost magic lvl up =)'+chr(13));
  end;
  end;




  procedure Curse; //select the curse spell

  Begin
       Cast(spelll);
  end;

  procedure Findmage; //find the mage of zamorak

  Begin
   if (FindObj(x,y,monstername,zammonkcolor1,10))
   or (FindObj(x,y,monstername,zammonkcolor2,10))
   or (FindObj(x,y,monstername,zammonkcolor3,10)) then
  begin
   Writeln('Found Zamorak Monk');
   MMouse( x,y,5,2);
   Mouse(x,y,1,1,true);
   Castedspells:= castedspells + 1;
  end else
   if (not(FindObj(x,y,monstername,ZammonkColor1,10)))
   or (not(FindObj(x,y,monstername,ZammonkColor2,10)))
   or (not(FindObj(x,y,monstername,ZammonkColor3,10))) then
  begin
    p:= 1;
   begin
    p:= p + 1;
    Writeln ('Did not found zamorak monk');
  Case random (3) Of
       0: Makecompass ('s')
       1: Makecompass ('n')
       2: Makecompass ('w')
       3: Makecompass ('e')
  end;
    if p = 10 then
  begin
    Logout;
    Writeln('logging out...')

  end;
  end;
  end;
  end;

  procedure Report;
  begin
    Cleardebug;
    Writeln('>---------------------------<');
    Writeln('jellehier0s simpleautocurser!');
    Writeln('running time:' + (timerunning) + '');
    Writeln('curses casted:' + inttostr(castedspells) +'');
    Writeln('randoms found:' + inttostr(randomsfound) +'');
  end;


  begin //mainloop
    SetupSRL;
    SetupMagic;
    Disguise('MSN Messenger 8.3');
    DeclarePlayers;
   if (not (Loggedin)) then
  begin
    Loginplayer;
    HighestAngle;
    Makecompass ('w')
  end;
  begin
   i:= 0;
  repeat
   i:= i + 1;
    Curse;
    Ftwait(1+Random(1));
    Findmage;
    Runaway;
    Wait(879+Random(114));
  begin;
  case Random (5) of

       1: Antiiban;

  end;
    Report;
  end;
    until(i = runs)
     Nextplayer(false)
     Logout;
    end;
  end.

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