[RS2][SRL]SmAcKmE Power Wcer V1.2[SRL][RS2]

Ok added lots of new things dosent look so boty anymore and now it will eaither click tree or right click and select chop better random protection way better set colors yourself start loged on high detail!

Code:

Program SmAcKmEPowerWcer;
{.Include SRL/SRL.scar}
{.Include SRL/SRL/Skill/Woodcutting.scar}

Var
Cx,Cy,R,T,D: Integer;

Const

TreeName = 'Willow';
TreeColor1 = 2179128;
TreeColor2 = 6719648;

Procedure DeclarePlayers; //!!!!!!!!SETUP THE FOLLOWING!!!!!!!!!
Begin
     HowManyPlayers  :=4;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;

     Players[0].Name :='yourname';
     Players[0].Pass :='yourpass';
     Players[0].Nick :='urna';
     Players[0].Loc  :='yourloc';
     Players[0].Skill:='yourskill';
     Players[0].Active:=True;

     Players[1].Name :='yourname';
     Players[1].Pass :='yourpass';
     Players[1].Nick :='urna';
     Players[1].Loc  :='yourloc';
     Players[1].Skill:='yourskill';
     Players[1].Active:=True;

     Players[2].Name :='yourname';
     Players[2].Pass :='yourpass';
     Players[2].Nick :='urna';
     Players[2].Loc  :='yourloc';
     Players[2].Skill:='yourskill';
     Players[2].Active:=True;

     Players[3].Name :='yourname';
     Players[3].Pass :='yourpass';
     Players[3].Nick :='urna';
     Players[3].Loc  :='yourloc';
     Players[3].Skill:='yourskill';
     Players[3].Active:=True;
End;

Procedure MainSetUp; //Do Not Tuch
Begin
 SetUpSRL;
 Wait (500);
 DeclarePlayers;
 Wait (100);
 LoginPlayer;
 Writeln ('Main SetUp Finished. Starting In Game SetUp....')
End;

Procedure InGameSetUp; //Do Not Tuch
Begin
 HighestAngle;
 MakeCompass('W');
 FindAxeHeadColor;
 Writeln ('Finished InGame SetUp Starting Script.....')
End;

Procedure MyAntiBan; //My Small Anti Ban
Begin
 x:=0+Random (30)
Begin
  If (x=1) Then
  GameTab(3);
  If (x=2) Then
  Wait (500+Random (50));
  If (x=12) Then
  PickUpMouse;
  If (x=5) Then
  AntiBan;
  If (x=27) Then
  GameTab(3);
  If (x=18) Then
  HoverSkill('WoodCutting',False)
  If (x=27) Then
  GameTab(7);
  If (x=30) Then
  BoredHuman;
  If (x=17) Then
  BoredEvery(4);
End;
End;

Procedure Rchop; //Random Choping
Begin
r:=1+Random (5);
Begin
 If (r=1) Then
 Mouse (cx,cy,0,0,True);
 If (r=2) Then
 Mouse (cx,cy,0,0,True);
  If (r=3) Then
 Mouse (cx,cy,0,0,True);
  If (r=4) Then
 Mouse (cx,cy,0,0,True);
  If (r=5) Then
Begin
Mouse (cx,cy,0,0,False);
ChooseOption (x,y,'hop');
End;
End;
End;

Procedure Chop; //Choping Procedure
Begin
  If (FindObj(cx,cy,TreeName,TreeColor1,5)) Or (FindObj(cx,cy,TreeName,TreeColor2,5)) Then
  Rchop;
 MyAntiBan;
 Wait (6000+Random (2800));
End;

Procedure FightCheck; //Fight Checker
Begin
If (FindFight=True) Then
Begin
RunAwayDirection('E');
Wait (500+Random (300));
RunBack;
End;
End;

Procedure CheckTrade; //Trade Checker
Begin
If (FindTrade=True) Then
Begin
t:=0+Random (5);
If (t=1) Then
Typesend ('I dont want to trade')
If (t=2) Then
Typesend ('Not gona trade')
If (t=3) Then
Typesend ('Im adding you to my ignore list')
If (t=4) Then
Typesend ('no noob')
If (t=5) Then
Typesend ('No')
End;
End;

Begin
 MainSetUp;
 Wait (1000+Random (200));
 InGameSetUp;
 Wait (1000+Random (400));
Begin
 Repeat

  If Not (LoggedIn) Then Break;
   Repeat

 Chop;
 FindEnt(TreeColor1);
 FindNormalRandoms;
 FindHead;
 FightCheck;
 CheckTrade;
    Until (InvFull=True);
  If (InvFull=True) Then
 DropAllLogs;
 Wait (400+Random (200));
 Writeln (''+TimeRunning);
 NextPlayer(true);
 FindAxeHeadColor;
   Until (False);
End;
End.

 

Omg man, why didn't you just edit you're other thread lol...
Once you do, i'll try and help you with the script.


-Ashur

 

A decent script for a starter Keep it up.

 

Line 3: [Error] (3:1): 'BEGIN' expected in script

please help?

 

nice script, ty

 

Just put Chat , Trade and things like that windows at off , so there no trade...
Not really complicated

 

i kinda abondoned this script it's so messed up i found lots of errors in it