SRL Archive - Archive

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

What is the meaning to life?
-Be happy to live.
-For other details go ask Mr.Jesus.


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


Programming Knowledge
Java

Other Communitys
moparscape.org/smf/

How Long have You Played Runescape
3 Years

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

I learned pretty much about coding in scar, i know bitmaps, DTMs, altho i didnt use them in my scripts yet.Iam practicing radial walk now and soon i will be able to make walking scripts :).I know most of the things that you need to know to make a pretty nice script.

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

PieBoner - Version 0.2.

program PieBoner;
{.include SRL/SRL.scar}
//Stand near a place with some monsters, that are not toooo high level.
//Don't have anything valueble with you, maybe just like a scimmy.
Const
BoneColor = 14342878;//The color of the bones dont change.
BonesToBury = 1;//How many bones you want to bury and/or how many monsters to kill.
MonsterColor = 8949394;//The color of the monster.
FightWay = 2; //What way you want to fight, 1-4.1=Att,2=Str,3=Contr,4=Def.
Monster = 'eag';//3 letters of the monster's name you want to fight
NumberOfUsers = 1;//How many players you are using.
EatFood = False;//True if you want to eat food, false if you dont.
FoodColor1 = 0;//The color of the food if EatFood = True;.
FoodColor2 = 0;//Another color of the food if EatFood = True;
HpToEat = 15;//The hp you want to eat at.
BuryBones = False;//True if you want to bury bones, false if you dont.


Var
BonesBuried: Integer;
KillsDone: Integer;


Procedure DeclarePlayers;
Begin
   HowManyPlayers:= NumberOfUsers;
   NumberOfPlayers( HowManyPlayers );
   CurrentPlayer := 0;

   Players[0].Name :='Username';//Your runescape username
   Players[0].Pass :='Password';//Your runescape password
   Players[0].Nick :='ser';//3 Letters of your username.Username = ser.
   Players[0].Loc :='Bank';
   Players[0].Active:=True;
   
   end;
   

Procedure InventoryInPosition;
begin
Mouse(647,187,2,2,true);
Wait(400+random(200));
end;


Procedure SetupPlayer;
begin
ClearDebug;
WriteLn('PieBoner V. 0.2');
WriteLn('Starting to run the script.');
InventoryInPosition;
SetChat('On',1);
SetChat('Off',2);
SetChat('Off',3);
Wait(300+random(200));
SetFightMode(FightWay);
Wait(500+random(500));
SetRun(True);
Wait(200+random(600));
PerfectNorth;
Wait(1000+random(500));
HighestAngle;
Wait(500+random(500));
end;


Procedure Kill;
begin
repeat
if FindColor(x,y,MonsterColor,0,0,450,450)then
MMouse(x,y,1,1);
Until (IsUpText(Monster));
if (IsUpText(Monster))then
Mouse(x,y,2,2,false);
Wait(1000+random(450));
ChooseOption(x,y,'ack');
KillsDone:=KillsDone+1;
end;


Procedure FindBones;
begin
If (BuryBones = True)then
begin
repeat
if FindColor(x,y,BoneColor,0,0,450,450)then
MMouse(x,y,1,1);
Until (IsUpText('one'));
if (IsUpText('one'))then
Mouse(x,y,1,1,false);
Wait(1000+random(300));
ChooseOption(x,y,'ury');
BonesBuried:=BonesBuried+1;
end;
end;


Procedure Heal;
Begin
ClearDebug;
Writeln('Checking Health');
If(EatFood = True) Then
Begin
If(GetHp > HpToEat) Then
Writeln(' Health Is '+IntToStr(GetHp)+', Its just fine');
End Else
If(GetHp < HpToEat) And (InvCount = 28) Then
Begin
Repeat
Writeln('Hp Is To Low, Now Eating');
If Not(GameTab(4)) Then
GameTab(4);
If(FindColorTolerance(x,y,FoodColor1,MIX1,MIY1,MIX2,MIY2,10))  Or
   (FindColorTolerance(x,y,FoodColor2,MIX1,MIY1,MIX2,MIY2,10)) Then
     MMouse(x,y,0,0);
      If(IsUpText('Eat')) Then
       Mouse(x,y,1,1,True);
        Until(GetHp < HpToEat);
      End;
       End;



Function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  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;


Procedure Report;
begin
ClearDebug;
WriteLn('---PieBoner-----Report----------------');
WriteLn('Running Time: ' + (TimeRunning) + '');
WriteLn('Bones Buried: '+ IntToStr(BonesBuried) +'');
WriteLn('Monsters Pwned: '+ IntToStr(KillsDone) +'');
WriteLn('---End-Of---Report--------------------');
end;


Procedure MainLoop;
begin
Kill;
Wait(200+random(200));
Heal;
FindRandoms;
Wait(500+random(200));
FindBones;
end;


begin
SetupSRL;
DeclarePlayers;
if not LoggedIn then
LoginPlayer;
SetupPlayer;
repeat
MainLoop;
Until(KillsDone = BonesToBury);
if (KillsDone = BonesToBury)then
Report;
Exit;
TerminateScript;
end.

PieChoper - Version 0.2.

program PieTreeChoper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
//Stand near some trees you want to cut.
//Have your axe first inventory spot.
//Sorry but script does not pick up axe head
//If you can help me with that add me on msn
//i_like_pie1995


Const
TreeColor = 1863784;//The tree color.
TreeName = 'ak';//2-3 letters of the tree's name.
Loads = 10;//How many loads you want to cut and drop logs?
RunAwayDir = 'S';//The direction to run away incase of a fight.
DirToRun = 'S';//The direction to run away incause of an ent.


Var
LoadsDid: Integer;
RanAway: Integer;


Procedure DeclarePlayers;
begin
 HowManyPlayers:=1;
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer := 0;

  Players[0].Name :='';  //Fill in your username
  Players[0].Pass :='';  //Fill in your password
  Players[0].Nick :='';      //2-3 letters of your username
  Players[0].Active :=True;      //Set true if you want to use this player
  
  NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
end;


Procedure RunAway;
begin
RunAwayDirection(RunAwayDir);
Wait(12000+random(2000));
RunBack;
RanAway:=RanAway+1;
end;


Procedure Randoms;
begin
FindTalk;
Wait(10)
FindNormalRandoms;
if(FindFight)then
begin
RunAway;
RanAway:=RanAway+1;
if(FindEnt(TreeColor)) then
begin
RunAwayDirection(DirToRun);
Flag;
Wait(5000 + random(1500));
RunBack;
RanAway:=RanAway+1;
end;
end;
end;


Procedure QuickRands;
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);
FindHead;
Wait(10);
FindLamp('Woodcutting');
Wait(10);
FindTalk;
Wait(10+Random(50));
end;
 

Procedure Inventory;
begin
Mouse(649,185,2,2,true);
end;


Procedure Report;
begin
ClearDebug;
WriteLn('Pie Choper Report . Version 0.2.');
Wait(300);
WriteLn('Worked For: '+ (TimeRunning) + '');
Wait(300;
WriteLn('Chopped And Droped:' +IntToStr(LoadsDid) + 'Loads');
Wait(200);
WriteLn('Ran Away:' +IntToStr(RanAway) + 'Times');
Wait(300);
WriteLn('Tree Color Was:' +IntToStr(TreeColor) + '');
Wait(200);
WriteLn('Tree Name Was:' +IntToStr(TreeName) + '');
Wait(300);
WriteLn('RunAwayDir Was:' +IntToStr(RunAwayDir) + '');
Wait(265);
WriteLn('DirToRun Was:' +IntToStr(DirToRun) + '');
end;


Procedure CutTree;
begin
repeat
if FindColor(x,y,TreeColor,0,0,450,450)then
MMouse(x,y,3,3);
Wait(1000+random(200));
until (IsUpText(TreeName));
repeat
if (IsUpText(TreeName))then
Mouse(x,y,5,5,false);
Wait(500+random(1000));
ChooseOption(x,y,'own');
Wait(5000+random(2000));
until(InvFull);
if(InvFull)then
LoadsDid:=LoadsDid+1;
end;


Procedure Drop;
begin
DropTo (2,28);
end;


Procedure AntiBan;
begin
Mouse(585,188,3,3,true);
Wait(600+random(400));
MMouse(716,373,4,4);
Wait(3000+random(2000));
Inventory;
end;


Procedure MainLoop;
begin
CutTree;
Drop;
Randoms;
QuickRands;
AntiBan;
end;


begin
SetupSRL;
DeclarePlayers;
If Not LoggedIn then
LoginPlayer
Inventory;
repeat
MainLoop;
until(LoadsDid = Loads);
if (LoadsDid = Loads)then
Report;
Exit;
TerminateScript;
end.

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

No Standards
Very Simple
No Failsafes
Used Multiplayer Wrong

=) No, you still got more to learn buddy =)

Like YoHoJo said, your standards are a bit..odd to say the least. Check Chapter 1 on here

I found some failsafes, but very few. You can also find failsafes that you failed to use, that could have been used, on that link above. EG: Exits, Breaks, etc..

It's just, really simple. Try to read through the SRL Manual and other scripts to learn some neat (wow, can't believe I just said that) procedures and such.

In PieChopper, you made RanAway add 1 to the count, two times. Once in the actual RunAway procedure, and once in the Randoms procedure.

Keep trying though. I learned a bit from your scripts, and don't worry, my first try, my standards and failsafes were very bad. Then I tried again and won 10-2 ^_^.

Keep reading Tutorials, and I love the first script name…PieBoner..made me laugh. :p

EDIT:

Procedure QuickRands;
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);
FindHead;
Wait(10);
FindLamp('Woodcutting');
Wait(10);
FindTalk;
Wait(10+Random(50));
end;

Instead of that, just use FindNormalRandoms, like you did in your first script.

Look on the bright side guys, at least he has all the semi colons he needs :) That makes me very happy.

But um yeah. This isn't quite member material quite yet.
It looks like you are learning pretty good, and you are starting to get the hang of a few things. ZTry posting a few more scripts in free area and ill be sure to leave you some good feedback on them. All you need is more experiance I think, and more .. well .. usable scripts.

Have poeple test it out, and keep wokring on it untill it works really well!
Keep up the good work.

It's a no from me. Sorry.

On a side note, which script are we supposed to judge based on if they apply with two?

From: SantaClause
It's a no from me. Sorry.

On a side note, which script are we supposed to judge based on if they apply with two?

Both put together.. If you think they are good enough to get in from either of the scripts, or both combined then you can vote yes :)

Well, not to insult you or anything like that, but you kinda dont know how to make a pretty nice script :) Thats the right path but you've got lot to learn :)

Try leaning bitmaps/dtms and more advanced things.
Also learn how to use the playyer array properly so it supports MORE than 1 player.
I see no NextPlayers called in both scripts.

Good Luck Next Time
Try reading JADs tut on how to become a member.
http://www.villavu.com/forum/showthread.php?t=9377