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
Cheatengineforum

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 –>

Standards please, then Ill look again.

Not sure what will I vote though

HMMMM.

it's a bit to simple, hmm…….

i'll hold my vote and wait for some other people.



Edit:

why is this?: (no need to case??)

procedure Runaway;
 
...
  
case Random (4) of
 
1: Findnormalrandom;

end;

and about this:
(Procedure mouse is moving and clicking… so there is no need to have MMouse 2)

MMouse( x,y,5,2);
Mouse(x,y,1,1,true);

sorry but i have to say no, but it's a very nice start though. plz come back when you got a 'uber' script :)

gl

From: MasterKill
HMMMM.



i'll hold my vote and wait for some other people.

isn't the whole theory of voting to be independent?

and its a no from me members script shouldn't be simple =/
but..

YOUR ON THE RIGHT TRACK :D

Good spoken Hugo, I totally agree.

From: jellehier0

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

well first off you just applied 2 days ago with pretty much the EXACT same thing, even if you did change it, in 2 days you cant make and understand that much to get a yes now…also if your going to give up if you dont make it on a second try,then IMO you dont even deserve to become a SRL Member b/c that means that you dont want to keep getting better and your just gonn leech and give up once you get in, so also the script is STILL to simple…ah that line ^^ really pisses me off its a definate

NO!!!!

EDIT: also you post count is very low with a high longetivity..so i still think once you got in you would leech member scripts even more :duh:

No good failsafes (are there any?)
No standards
Not good enough use of SRL
His first script, plz exercise some before you apply for SRL Membership :)
23 post count, not active at all at the forums.

So I'll have to vote no

No because the way your script is organized is like you copy-pasted some which looks nice. Then you tried some yourself/copy-pasted something organized wrong.

Also because of the fact that it looks way too simple and short, just have a lot of extra spaces, I'm going to say no but you are on the right track…

BTW you should wait a month per application (I think it's mandatory actually) that you post.

Oh and for the record, on your location for the 2nd player, you still have

Players[0].Loc

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



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

That attitude defiantly won't get you very far in life….

Best of Luck to you, and if do decide to try again…..Please, no sooner than 30 days from today !

~RAM