SRL Archive - Archive

Ilikepie1995 - SRL Member Application Form

Ilikepie1995

2007-10-09 18:06:13

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

What is the meaning to life?


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


Programming Knowledge
Little Of Java.

Other Communitys
Sythe.Org, MoparScape.Org

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 Like Computers, I Like Playing Games On Computers Its My Favourite Thing To Do, Now Since I Found Scar My Second-Favourite Thing To Do Is Script :D. I Know Math Pretty Good :P.

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

My UndeadKiller Version 2.0.
Program UndeadKiller;
{.Include SRL/SRL.Scar}
//VERSION 2.0-------------------------------------------------------------------
//VERSION 2.0-------------------------------------------------------------------
//VERSION 2.0-------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////////////
//AdDeD-------------------------------------------------------------------------
//1.Added Ranged Or Mage Style Attacks And Spells.
//2.OMG So Many Fixes.
//3.OWNAGE LOOP.
//AdDeD-------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////////////
//FeAtUrEs----------------------------------------------------------------------
//1. Auto-Color.
//2. Kills Undead In The Varrock Dungeon.
//3. Trains Ranged Or Mage.
//4. Report Procedure.
//5. First Version Of The Script.
//6. Multi - Player.
//7. Anti - Ban.
//8. Anti - Randoms.
//8. Run - Away.
//9. Eats Food If HP Is Low.
//10. MASS - UPDATE.
//11. Chooses Spell Or Ranged Attack Style.
//12. This Script Will Do Anything To Crush The Evil Randoms And Kill Jagex.
//FeAtUrEs----------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////////////
//InStRuCtIoNs------------------------------------------------------------------
//1. Set Up Const.
//2. Set Up Declare Players.
//3. Start Logged Out, At The Dungeon, The Place With Scorpions, Close To Tree.
//4. Start In Low Detail.
//5. Drag The Thing Into Runescape Window.
//6. Click Run And Enjoy.
//InStRuCtIoNs------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////////////
//IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT---------
//YOU NEED TO BE LEVEL 29+ TO RUN THE SCRIPT OR YOU MIGHT DIE.
//IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT---------
////////////////////////////////////////////////////////////////////////////////

Const
Attack = 60;//How Many Times To Attack The Undead 30 - 60 Is Good.
ToWait = 7000;//How Many Mili - Seconds To Wait Until Attacking The Next Undead.
LowLevel = False;//Are You Lower Than Level 29.
Speed = 25;//The Speed Of The Mouse. Lower = Slower, Higher = Faster.
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 = 20;//At About What HP You Want To Eat Food At?
Ranged = False;//True If You Are Using Ranged. False If You Are Not.
Ranging = 2;//What Attack Style You Wanna Use. 1 = Accurate, 2 = Rapid, 3 = Long.
Mage = True;//True If You Are Using Mage. False If You Are Not.
Maging = 3;//What Spell Are You Using To Mage, Look Below.
{------------------------------------------------------------------------------}
{Wind Strike -------------------- # 1 -----------------------------------------}
{Water Strike ------------------- # 2 -----------------------------------------}
{Earth Strike ------------------- # 3 -----------------------------------------}
{Fire Strike -------------------- # 4 -----------------------------------------}
{Wind Bolt ---------------------- # 5 -----------------------------------------}
{Water Bolt --------------------- # 6 -----------------------------------------}
{Earth Bolt --------------------- # 7 -----------------------------------------}
{Fire Bolt ---------------------- # 8 -----------------------------------------}
{------------------------------------------------------------------------------}

//////////////////////////////////
Skeleton = 8818832;//DONT TOUCH.//
Ghost   = 7763840;//DONT TOUCH.///
//////////////////////////////////

Var
Clicked: Integer;
x,y: Integer;
RanAway: Integer;
AteFood: Integer;

Procedure DeclarePlayers;
Begin

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

  Players[0].Name  := '';
  Players[0].Pass  := '';
  Players[0].Nick  := '';
  Players[0].Active:= True;

  Writeln('Using ' + IntToStr(HowManyPlayers) + ' Players');
  
End;


Procedure StartUndeadKiller;
Begin
 MouseSpeed:=Speed;
 PerfectNorth;
 HighestAngle;
End;


Procedure CheckLevel;
Begin
If(LowLevel = True)Then
  WriteLn('YOU NEED TO BE LEVEL 29 OR HIGHER TO RUN THIS');
 Exit;
TerminateScript;
Begin
 If(LowLevel = False)Then
  WriteLn('Awsome You Are Higher Than Level 29 You Can Run The Script :)');
End;
End;


Procedure KillUndead;
Begin
Repeat
If FindColor(x,y,Skeleton,0,0,500,500)Or FindColor(x,y,Ghost,0,0,500,500)Then
 MMouse(x,y,1,1);
  Wait(500+random(1000));
 Until(IsUpText('kel'))or(IsUpText('hos'));
If(IsUpText('kel'))Or(IsUpText('hos'))Then
 Mouse(x,y,1,1,False);
  Wait(1000+random(400));
   ChooseOption('tta');
  Wait(ToWait+random(2000));
 Clicked:=Clicked+1;
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:  If NoGameTab Then
           begin
             Result := True;
             Writeln('No GameTab!');
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Players[CurrentPlayer].Active:= False;
             Exit;
           end;
     8: If(FindNormalRandoms)Then
          Result:= True;
          
     End;
  End;
End;


Procedure AntiBan;
Begin

 Case Random(5) Of
 
 0: RandomRClick;
 1: PickUpMouse;
 2: AlmostLogout;
 3: RandomMovement;
 4: BoredHuman;
 
 End;
End;


Procedure Report;
Begin
 ClearDebug;
WriteLn('Undead Killer');
 WriteLn('Version: 1.5');
  WriteLn('Made By ILikePie1995');
 WriteLn('Attacked Undead: ' +IntToStr(Clicked)+ ' Times');
WriteLn('Ran Away From Attacking Randoms: ' +IntToStr(RanAway)+ ' Times');
 WriteLn('Ate Food: ' +IntToStr(AteFood)+ ' Times');
End;


Procedure AwsomeCompass;
Begin
 PerfectNorth;
 HighestAngle;
End;


Procedure ShitRun;
Begin
 If FindFight Then
  Begin
 RanAway:=RanAway+1;
   RunTo('S', True);
    Wait(15000 + random(5000));
  RunBack;
 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);
 If(GetHp < HpToEat)Then
  Begin
 AteFood:=AteFood+1;
WriteLn('Woot We Ate Some Food');
 End;
End;
End;


Procedure RangedSet;
Begin
 If(Ranged = True)Then
  Begin
 If(Ranging = 1)Then
GameTab(1);
 Mouse(599,271,10,10,True);
  Wait(1000+random(1000));
  Begin
 If(Ranging = 2)Then
GameTab(1);
 Mouse(683,267,10,10,True);
  Wait(1000+random(1000));
  Begin
 If(Ranging = 3)Then
GameTab(1);
 Mouse(599,322,10,10,True);
  Wait(1000+random(1000));
  End;
 End;
End;
End;


Procedure MagicSet;
Begin
 If(Mage = True)Then
  Begin
 If(Maging = 1)Then
GameTab(1);
 Mouse(682,335,10,10,True);
  Wait(1000+random(1000));
 Mouse(583,227,2,2,True);
  Begin
 If(Maging = 2)Then
GameTab(1);
 Mouse(682,335,10,10,True);
  Wait(1000+random(1000));
 Mouse(624,228,2,2,True);
  Begin
 If(Maging = 3)Then
GameTab(1);
 Mouse(682,335,10,10,True);
  Wait(1000+random(1000));
 Mouse(664,229,2,2,True);
  Begin
 If(Maging = 4)Then
GameTab(1);
 Mouse(682,335,10,10,True);
  Wait(1000+random(1000));
 Mouse(703,228,2,2,True);
  Begin
 If(Maging = 5)Then
GameTab(1);
 Mouse(682,335,10,10,True);
  Wait(1000+random(1000));
 Mouse(583,268,2,2,True);
  Begin
 If(Maging = 6)Then
GameTab(1);
 Mouse(682,335,10,10,True);
  Wait(1000+random(1000));
 Mouse(623,268,2,2,True);
  Begin
 If(Maging = 7)Then
GameTab(1);
 Mouse(682,335,10,10,True);
  Wait(1000+random(1000));
 Mouse(662,270,2,2,True);
  Begin
 If(Maging = 8)Then
GameTab(1);
 Mouse(682,335,10,10,True);
  Wait(1000+random(1000));
 Mouse(703,269,2,2,True);
  End;
 End;
End;
 End;
  End;
   End;
  End;
 End;
End;


Begin
 SetUpSRL;
  DeclarePlayers;
   If Not(Loggedin)Then
  LoginPlayer;
 StartUndeadKiller;
CheckLevel;
 RangedSet;
  MagicSet;
Begin
 Repeat
 AwsomeCompass;
  KillUndead;
   Heal;
   Report;
 FindFastRandoms;
ShitRun;
 AntiBan;
 Until(Clicked = Attack)Or(Not Loggedin);
If(Clicked = Attack)Or(Not Loggedin)Then
 Begin
  Exit;
   Clicked:=0;
   NextPlayer(True);
   End;
 End;
End.

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

IronTeapot

2007-10-09 18:19:15

Fix the script to at least standards. Holding vote.

Dan Cardin

2007-10-09 18:22:22

no

Derek-

2007-10-09 20:54:30

  • No multiplayer
  • Needs work on standards (even though you tried to make a cool wave idk if it's so cool when applying for a membership :p)

Sorry no from me.


Also, need to remember begins and ends after ifs if you want to do more than one thing
for example.. This procedure will never fully finish..:
Procedure CheckLevel;
Begin
If(LowLevel = True)Then
  WriteLn('YOU NEED TO BE LEVEL 29 OR HIGHER TO RUN THIS');//if lowlevel is true then it will write this
 Exit; //but then it will exit now NO MATTER WHAT LOWLEVEL IS
TerminateScript;
Begin
 If(LowLevel = False)Then
  WriteLn('Awsome You Are Higher Than Level 29 You Can Run The Script :)');
End;
End;

You need to use begins and ends when you want to do more than one thing after an if statement

Procedure CheckLevel;
Begin
  If(LowLevel = True)Then
  begin
    WriteLn('YOU NEED TO BE LEVEL 29 OR HIGHER TO RUN THIS');//if LowLevel = True then it will write this
    //do not include EXIT here because then it will exit the procedure and not terminate the script
    TerminateScript;//now will only do this if LowLevel = True
  end else  //else statement here would help =] instead of If(LowLevel = False)Then
  WriteLn('Awsome You Are Higher Than Level 29 You Can Run The Script :)');
End;

Hope this helps.

Derek-

YoHoJo

2007-10-09 22:44:40

From: Derek-
  • No multiplayer
  • Needs work on standards (even though you tried to make a cool wave idk if it's so cool when applying for a membership :p)

Sorry no from me.


Also, need to remember begins and ends after ifs if you want to do more than one thing
for example.. This procedure will never fully finish..:
Procedure CheckLevel;
Begin
If(LowLevel = True)Then
  WriteLn('YOU NEED TO BE LEVEL 29 OR HIGHER TO RUN THIS');//if lowlevel is true then it will write this
 Exit; //but then it will exit now NO MATTER WHAT LOWLEVEL IS
TerminateScript;
Begin
 If(LowLevel = False)Then
  WriteLn('Awsome You Are Higher Than Level 29 You Can Run The Script :)');
End;
End;

You need to use begins and ends when you want to do more than one thing after an if statement

Procedure CheckLevel;
Begin
  If(LowLevel = True)Then
  begin
    WriteLn('YOU NEED TO BE LEVEL 29 OR HIGHER TO RUN THIS');//if LowLevel = True then it will write this
    //do not include EXIT here because then it will exit the procedure and not terminate the script
    TerminateScript;//now will only do this if LowLevel = True
  end else  //else statement here would help =] instead of If(LowLevel = False)Then
  WriteLn('Awsome You Are Higher Than Level 29 You Can Run The Script :)');
End;

Hope this helps.

Derek-


Good Feedback.
You still need to improve on the above stated areas.
Good try,keep improving and try again later.