SRL Archive - Archive

Rambozin - SRL Member Application Form
Rambozin

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


Programming Knowledge
I know the basics of HTML

Other Communitys
moparisthebest & sythe

How Long have You Played Runescape
4 - 5 years

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

Some time ago RuneScape was getting a bit boring to me, and I started with googling after sites about RuneScape etc. After much googling I came up at the site "http://www.sythe.org". Ofcourse you people know it :) There was a topic, if I remember good, and they were talking about private servers.

So I started googling about private servers. Tryed a few things and again some time kater, I found the site, which you all know, "http://www.moparisthebest.com" & "http://www.moparscape.org"

And yea, you know the story.. Trying private servers, blabla =P , and then, The Great Discovery, WWW.VILLU-REBORN.COM =D

Again I tryed some things, learned much from tuts and after that I searched the free scripts section, and taddaa :) Tough, I never talk alot on forums. I am more working at my self, you know, private scripting :)

well, I think i know pretty much now, and I am presenting my script :)
My auto-fighter.

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

program AutoFighter;
{.Include SRL/SRL.Scar.}
{.Include SRL/SRL/Skill/Fighting.Scar.}
Var
  WX, WY, MonstersToKill : Integer;

{+ Setup +}
Const
  Tol = 1; {Tolerace if found the monster}
  WanaEat = False; {Do you want to eat}
  EatHp = 5; {What do you want your hp to be before eating (if eating)}
  FoodColor = 0; {color of your food}
  MonsterColor = 1324111; {The color of the monster}
  MonsterColor1 = 16448507; {Get a different color of the monster}
  MonsterColor2 = 15659248; {Get another different color of the monster}
  FightMode = 1; {1=Attack 2=Strengh 3=Balanced 4=Defence}
  MonsterName = 'Cow'; {The name of the monster}
  TurnOffChats = False; {Do you want to turn off chats?}
  GenieSkill = 'Strengh';  {What skill to use if a genie is found?}
  MonsterssTokill = 100; {How many monster do you want to kill?}
  DisguiseScarAs = 'Google - Windows Internet Explorer'; {What do you want to Diguise scar as?}

Procedure DeclarePlayers;
Begin

     HowManyPlayers := 3;
     CurrentPlayer:= 0;
     NumberOfPlayers(HowManyPlayers);

     Players[0].Name     := '';
     Players[0].Pass     := '';
     Players[0].Nick     := '';     //3 Lowercase Letters of your username

     Players[1].Name     := '';
     Players[1].Pass     := '';
     Players[1].Nick     := '';

     Players[2].Name     := '';
     Players[2].Pass     := '';
     Players[2].Nick     := '';

End;
{+ end of setup +}


Procedure FindMonsterr;
Begin
  Wait(1000+random(50));
  KAttackMonster(MonsterColor, MonsterColor1, MonsterColor2, Tol, MonsterName);
  Wait(5000+random(1000));
  MonstersToKill := MonstersToKill + 1;
End;

Procedure FightingMode;
Begin
  SetFightMode(FightMode);
End;

Procedure Chats;
Begin
  If TurnOffChats = True Then
  Begin
    ChatsOff;
  End;
End;

Procedure LetsEat;
Begin
  If Wanaeat = True then
  Begin
  wait(200)random(100)
  RealEatIfNeeded(FoodColor,EatHp,WanaEat);
  End;
End;

Procedure Randoms;
Begin
  FindDead;
  FindMod;
  FindMime;
  SolveSandWich;
  FindMaze;
  FindTalk;
  FindDemon;
  FindScapeRune;
  DwarfItem;
  FindLamp(GenieSkill);
  SolveFrog;
  FindQuiz;
  FindTalk;
  If (FindNewBox) then
  Begin
    writeln('Found Strange Box Trying To Solve..')
    OpenBox;
    SolveBox;
    wait(1000);
  End;
  If (FindNewBox) then
  Begin
    GambleNewBox;
  End;
  If (FindNewBox) then
  Begin
    LogOut;
    Writeln('Unable To Solve Box....Terminating');
    TerminateScript;
  End;
End;

Procedure ProgressReport;
Begin
  AddToReport('{+ Progress Report +}')
  AddToReport('{+ Killed ' + inttostr(MonstersToKill) + ' monsters +}');
  AddtoReport('{+ Credits go to Rambozin! +}')
End;

Procedure ModSetRun(Run: Boolean);
Begin
  GameTab(11);
  If Run Then
  Begin
    If (Not (FindColorTolerance(WX, WY, 1711220, 663, 431, 665, 433, 5))) Then
    Begin
      Mouse(648, 431, 20, 20, true);
      Wait(100+Random(100));
    End;
  End Else
  Begin
    If FindColorTolerance(WX, WY, 1711220, 663, 431, 665, 433, 5) Then
    Begin
      Mouse(648, 431, 20, 20, true);
      Wait(100+Random(100));
    End;
  End;
End;

Begin
  ClearDebug;
  DisguiseScar(DisguiseScarAs)
  ProgressReport;
  SetupSRl;
  ActivateClient;
  DeclarePlayers;
  if(not(Loggedin)) then NextPlayer(True);
  Chats;
  ModSetRun(True);
  Repeat
  FindMonsterr;
  Randoms;
  LetsEat;
  Until(Monstersstokill = MonstersToKill)
  If MonsterssToKill = MonstersToKill Then
  Begin
    OpenWebPage('http://www.runescape.com')
  End;
End.

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

Too simple sorry.

Simple? Oh, oke :(

But well, i can learn from the good and big member scripts?



edit: someone voted no but didn't posted his/her comment?

Add multiplayer and less consts for easier usage for users.
Needs failsaifes and other things also.
Overall its just too simple and probably wont run very long.
Good start, but keep learning.

Oke, thanks for your comment.
but I think it has multiplayer, not?
yea, failsafes, why didn't I tought of that.. =/

Too bad you voted no, but i appreciate you give a comment :)

For multiplayer you need to use a player array like this:

Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Active:=True;
     Players[0].Loc := 'Bank';
     Players[0].String1  := 'Iron';      // Primairy Ore Color
     Players[0].String2  := 'Iron';      // Secondairy Ore Color wont be mined as much as 1.
     Players[0].String3  := 'Tin';      // Third Ore Color, won't be mined as much as 1 and 2.
     Players[0].Boolean1  := True;       // Is The Pick Equipped?
     Players[0].Boolean2 := True; // False for brightness Check Once

Oh, i forget in this script!! :o

edit: Better like this? :)

I have to go now, i will read this tommorow :)

Yeah, too simple sorry. You need much more in this script because basically all it does is click a color and waits. This is your fighting procedure:

Procedure FindMonsterr;
Begin
  Wait(1000+random(50));
  KAttackMonster(MonsterColor, MonsterColor1, MonsterColor2, Tol, MonsterName);
  Wait(5000+random(1000));
  MonstersToKill := MonstersToKill + 1;
End;

You need to more than just find color and wait. You need failsafes, backups, and other stuff because this is just clicking a color and saying you killed a monster. Ever wonder how people can manage to make a simple powerminer into a 2000 line script? They make the procedures as reliable as they can. This doesnt show that, sorry.

This is a good start though and if you continue learning, you will make it to members.

Oke, thanks :)

You guys are right, maybe I have to learn more :)

From: Rambozin
Oke, thanks :)

You guys are right, maybe I have to learn more :)

Now thats what I call spirit. :)

From: Wizzup?
Now thats what I call spirit. :)

Woow, The big masters tell me that I have spirit :eek:
Wow, now I feel me good, Thanks :D

I think you made a good effort, but you need to learn some more still. Keep working at it.:) :) :) :)

Thanks for the comments guys :) I will go learning more, and one day, I become a Member! :)

A quite nice script but could use some little improvements :).. I wont vote right now..

EDIT: Well, you have a good spirit about this :) Good luck improving the script

I have a question: If I want to get member later with a totally other script, is that possible?

Yes.

Oke, thanks :)

well, i think its clear that I will have to wait some time before I become a member :p

Good work, but it's too simple. Keep at it though.