SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Some JAva,,

Other Communitys
www.sl-forums.com

How Long have You Played Runescape
like 2-3 years..

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

I already Introduced my self:), i already posted a beginner autominer with not enough chars, no FindNormalRandoms, not even standards :),i hope youl like my new wc script that i'v been working on it like alot!,and i just play around with it so that it includes some cool introduction and so, as well as i'v created a disguise part for less ban :)..VOTE FOR ME (Y)that's the best script i got till now :) !,thx Guys

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

//--------------------------------------------------Himranger Power Chopper (Beta)---------------------------------------------------//

program PowerTreeCutter;
{.include srl\srl.scar}
{.include srl\srl\skill\woodcutting.scar}


//000000000000000000000000000000000000000000000000000000000000000000000000000000//
const


treecolor1=3041376;// First Tree Color.               // change if needed..

treecolor2=1728592;// Second Tree Color.              //same...

treecolor3=2246712;// Third Tree Color.               //same...

whattree='Tree';                                       // The type of tree you want to cut



runaway='N';       // The direction you want to run if
                   // you get a random event.

DropJunk= True;    // Set True if you want to drop
                   // Junk and False if not.

StartPlayer=1;     // The player you want to start
                   // with

timebeforelogout=30;// Time in minutes before log in
                    // next user.
randomtime=10;      // Random logout time in minutes.


maxlogin=0;         // The maximum number of times to
                    // login untill the Script
                    // terminates. Set to 0 if you
                    // want the script to terminate

/////////////////  Don't Touch  ////////////////////////
procedure DeclarePlayers;                             //
begin                                                 //
////////////////////////////////////////////////////////

//player Setup..

  HowManyPlayers := 7;                // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers);    // Sets the Players Array Length;
  CurrentPlayer := StartPlayer;       // CurrentPlayer = Array Index

  Players[0].Name := 'Himranger';              //Your Username
  Players[0].Pass := '********';              //Your Password
  Players[0].Nick := 'imr';              //3 or 4 letters from your Username (NOT the first letter of your user name!!!)
  Players[0].Loc := '';               //Leave as blank
  Players[0].Skill := 'WoodCutting';  //The skill for when you get a lamp
  Players[0].Active := True;          //Set true if there is a player entered
  
  Players[1].Name := '';              //Your Username
  Players[1].Pass := '';              //Your Password
  Players[1].Nick := '';              //3 or 4 letters from your Username (NOT the first letter of your user name!!!)
  Players[1].Loc := '';               //Leave as blank
  Players[1].Skill := 'WoodCutting';  //The skill for when you get a lamp
  Players[1].Active := True;         //Set true if there is a player entered
  
  Players[2].Name := '';              //Your Username
  Players[2].Pass := '';              //Your Password
  Players[2].Nick := '';              //3 or 4 letters from your Username (NOT the first letter of your user name!!!)
  Players[2].Loc := '';               //Leave as blank
  Players[2].Skill := 'WoodCutting';  //The skill for when you get a lamp
  Players[2].Active := True;         //Set true if there is a player entered
  
  Players[3].Name := '';              //Your Username
  Players[3].Pass := '';              //Your Password
  Players[3].Nick := '';              //3 or 4 letters from your Username (NOT the first letter of your user name!!!)
  Players[3].Loc := '';               //Leave as blank
  Players[3].Skill := 'WoodCutting';  //The skill for when you get a lamp
  Players[3].Active := True;         //Set true if there is a player entered
  
  Players[4].Name := '';              //Your Username
  Players[4].Pass := '';              //Your Password
  Players[4].Nick := '';              //3 or 4 letters from your Username (NOT the first letter of your user name!!!)
  Players[4].Loc := '';               //Leave as blank
  Players[4].Skill := 'WoodCutting';  //The skill for when you get a lamp
  Players[4].Active := false;         //Set true if there is a player entered
  
  Players[5].Name := '';              //Your Username
  Players[5].Pass := '';              //Your Password
  Players[5].Nick := '';              //3 or 4 letters from your Username (NOT the first letter of your user name!!!)
  Players[5].Loc := '';               //Leave as blank
  Players[5].Skill := 'WoodCutting';  //The skill for when you get a lamp
  Players[5].Active := True;         //Set true if there is a player entered
  
  Players[6].Name := '';              //Your Username
  Players[6].Pass := '';              //Your Password
  Players[6].Nick := '';              //3 or 4 letters from your Username (NOT the first letter of your user name!!!)
  Players[6].Loc := '';               //Leave as blank
  Players[6].Skill := 'WoodCutting';  //The skill for when you get a lamp
  Players[6].Active := True;          //Set true if there is a player entered

//---------------------------------------------------------------------------------//
  writeln(inttostr(HowManyPlayers) + ' Players');
end;

var
randomlogouttime:integer;
MHours, MMinutes, MSeconds, TS: LongInt;
gainedXP,TotalXP,TotalChopped:integer;
loginsofar,PlayerReport,FalsePlayers,User:integer;
setupstart:integer;
dir,times:integer;
OldXP,OldChopped:integer;
Log,Oak,Willow,Teak,Mahogany,Yew,Magic:integer;

procedure TimeRunning2;
begin
  MSeconds := (GetSystemTime - TS) div 1000;
  MMinutes := MSeconds div 60;
  MHours := MMinutes div 60;
end;

procedure checksettings;
begin
gametab(11)
begin
  if not (getcolor(712,226)=16777215)then
  mouse (714,229,2,2,true);
end;
begin
  if not (getcolor(613,263)=16777215)then
  mouse (615,266,2,2,true);
end;
begin
  if not (getcolor(613,299)=16777215)then
  mouse (614,301,2,2,true);
end;
begin
  if not (getcolor(613,336)=16777215)then
  mouse (612,337,2,2,true);
end;

end;

Procedure CheckAxeHeadColor;
begin
if not (FindAxeHeadColor) then
   begin
   Writeln('')
   Writeln(Players[CurrentPlayer].Name + ' Does not have an axe')
   Writeln('Changing Players')
   Writeln('')
   logout;
   Players[CurrentPlayer].Active := False
   nextplayer(true)
   highestangle;
   checksettings;
   CheckAxeHeadColor;
   TS :=getsystemtime;
   end;
end;

procedure endofusercheck;
begin
if (maxlogin > 0) then
   begin
        if (loginsofar > maxlogin) then
        begin
        logout;
        terminatescript;
        end;
   end;
User := 0
FalsePlayers := 0
Repeat
      If not (Players[User].Active) then
         begin
         FalsePlayers := FalsePlayers + 1
         end;
      User := User +1
Until (User >= HowManyPlayers - 1)

TimeRunning2;
if (not(LoggedIn)) and
 not (FalsePlayers = HowManyPlayers - 1) then
 begin
  Times := 0
  Dir := 0;
  nextplayer(true)
  highestangle;
  checksettings;
  CheckAxeHeadColor;
  TS :=getsystemtime;
 end;
randomlogouttime:= timebeforelogout + (random(randomtime))
if (randomlogouttime <= Mminutes)and
 not (FalsePlayers = HowManyPlayers - 1) then
  begin
     logout;
     Times := 0;
     Dir := 0;
     loginsofar := loginsofar + 1
     NextPlayer(true)
     HighestAngle;
     checksettings;
     CheckAxeHeadColor;
     TS :=getsystemtime;
  end;
end;

procedure customsrl;
begin
MouseSpeed:= 10;
Screenshots:=True;
CheckHpFirst:=False;
ReinCarnate:=True;
Benmouse:=True;
FindClient:=True;
end;

procedure startmesage;
begin
Wait(2000)
ClearDebug;
ClearReport;
writeln ('Thank You for using Himranger''S')
writeln ('        -----POWER Chopper-----')
Wait (150)
ClearDebug;
writeln ('Thank You for using Himranger''S')
writeln ('       ----- POWER Chopper -----')
Wait (180)
ClearDebug;
writeln ('Thank You for using Himranger''S')
writeln ('      -----  POWER Chopper -----')
Wait (240)
ClearDebug;
writeln ('Thank You for using Himranger''S')
writeln ('     -----   POWER Chopper  -----')
Wait (240)
ClearDebug;
writeln ('Thank You for using Himranger''S')
writeln ('    -----    POWER chopper  -----')
Wait (240)
ClearDebug;
writeln ('Thank You for using Himranger''S')
writeln ('     -----   POWER Chopper   -----')
Wait (180)
ClearDebug;
writeln ('Thank You for using Himranger''S')
writeln ('      -----  POWER Copper  -----')
Wait(150)
ClearDebug;
writeln ('Thank You for using Himranger''S')
writeln ('        -----POWER Chopper-----')
wait(2000+random(1000))
ClearDebug;
end;

procedure checkiflogged;
begin
if (loggedin) then
begin
logout;
end;
end;

Procedure LoadStats;
var
TotalXPStr,TotalChoppedStr:String;
begin
Writeln('Loading Stats')

TotalXPStr := LoadSetting('Himranger power chopper','GainedXP');
TotalChoppedStr := LoadSetting('Himranger power chopper','LogsChopped');
If (TotalXPStr = '') Then
 begin
 TotalXPStr := '0';
 end;
If (TotalChoppedStr = '') Then
 begin
 TotalChoppedStr := '0';
 end;
TotalXP := strtoint(TotalXPStr)
TotalChopped := strtoint(TotalChoppedStr)
Writeln('Stats Loaded')
end;

procedure Setup;
begin
cleardebug;
clearreport;
Writeln('Setup Starting')
MarkTime( SetupStart )
Writeln('Compiling SRL Please Wait')
customsrl;
setupsrl;
ScriptID := '23';
LoadStats;
disguiseSCAR('msn Messenger')
DeclarePlayers;
TS :=getsystemtime;
playerreport := 9
writeln ('Setup Completed in ' + inttostr(( ST - SetupStart )) + ' msec')
startmesage;
activateclient;
checkiflogged;
endofusercheck;
end;

procedure runawayfrom;
begin
RunAwayDirection(runaway)
flag;
wait (1000+random(1000))
runback;
flag;
end;

procedure checkfight;
begin
if (findfight) then
runawayfrom;
end;

procedure randoms;
begin
FindCerter;
FindNormalRandoms;
solvepinball;
checkfight;
Findtalk;
If (DetectFrogCave) Then
   Begin
   SolveFrogSwamp;
   end;
if (WeAreDead) then
   begin
   logout;
   Players[CurrentPlayer].Active := False;
   EndOfUserCheck;
   end;
if (FindScapeRune) then
   begin
   logout;
   Players[CurrentPlayer].Active := false;
   EndOfUserCheck;
   end;
FindMod;
antiban;
HoverEvery(6+random(2),'WoodCutting')
end;

procedure checkifcut;
var
dir:integer;
begin
if (InChatMulti('Wood','You','need')) then
   begin
   dir:= random(3) + 1

    case dir of
      1:mouse(234,299,20,2,true)
      2:mouse(30,154,20,2,true)
      3:mouse(232,16,20,2,true)
      4:mouse(487,117,20,2,true)
    end;
    flag;
   end;
end;

Function CheckIfBroken:boolean;
begin
if (EquipAxe) then
   begin
   GameTab(5)
   wait(200 + random(200));
   MMouse(592, 297, 2, 2);
   wait(200 + random(100));
   Result := IsUptext('Remove brok')
   end;
If not (EquipAxe) then
   begin
   wait(100 + random(200));
     if ( ExistsItem ( 1 )) then
     begin
     Mmouse(587, 219, 2, 2)
     wait(200 + random(100))
     Result := IsUptext('Use Brok')
     end else
     begin
     Result := False;
     end;
   end;
end;

function AttachHead1: Boolean;
var
  AxeHandleDTM, AxeHeadDTM, AxeDTM: Integer;
  Reequip: Boolean;
begin
  AxeHandleDTM := DTMFromString('78DA637465626078C48002CA2379191E02694' +
    '620FE0F048C0E40352F19D000231209A4ED806A3E1150E30454F3' +
    '86801A2FA09AEB04D47800D5DC23A0C616A8E61D01358E4035EF0' +
    '9A80185CF03FC6A00E1CD105C');
  AxeHeadDTM := DTMFromString('78DA63CC62626078C180021C2312191E02694' +
    '620FE0F048C694035CF18D000231209A473816A9E12A1E6150135' +
    'A94035AF09A801B9F9090135994498930C54F392809A3CCCF0415' +
    '70300FB8311DF');
  AxeDTM := DTMFromString('78DA639CCDC4C0E0CEC8800C6A62791974804' +
       '220D1FF40C0B80CA8C615550D44164602E9254035BE04D42C07AA' +
       'F122A00664970701354B816A7C08A8990254134B40CD2CA01A670' +
       '26AE612560300AE050D81');
  if (EquipAxe = True) then
  begin
    GameTab(5);
    Wait(200 + Random(200));
    Mouse(592, 297, 2, 2, True);
    Wait(2000 + Random(800));
    Reequip := True;
  end;
  GameTab(4);
  if (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465)) and
    (FindDTM(AxeHandleDTM, x, y, 550, 200, 745, 465)) then
  begin
    if (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465)) then
    begin
      Mouse(x, y, 3, 3, True);
      Wait(600 + Random(400));
    end;
    if (FindDTM(AxeHandleDTM, x, y, 550, 200, 745, 465)) then
    begin
      Mouse(x, y, 3, 3, True);
      Wait(500 + Random(200));
      AxeAttaches := AxeAttaches + 1;
      Result := True;
      WriteLn('Attached Axe Head!');
      GameTab(4);
      MakeCompass('N');
    end;
    if (Reequip = True) then
    begin
      Wait(3000);
      FindDtm(x,y,AxeDTM,MIX1, MIY1, MIX2, MIY2);
      mouse (x,y,2,2,True);
    end;
    If (Reequip = False) then
    begin
      FindDtm(x,y,AxeDTM,MIX1, MIY1, MIX2, MIY2);
      MMouse(x,y,3,3);
      GetMousePos(x,y);
      HoldMouse(x,y,True);
      MMouse(579,225,3,3);
      GetMousePos(x,y);
      ReleaseMouse(x,y,True);
    end;
  end;
  FreeDTM(AxeHandleDTM);
  FreeDTM(AxeHeadDTM);
  FreeDTM(AxeDTM);
end;

procedure checkaxe;
begin
if (FindNpcChatText('You do not')) or
 (FindNpcChatText('You need an'))then
 begin
 if not (CheckIfBroken) then
    if not (FindHead) then
   begin
   Writeln (Players[CurrentPlayer].Name + ' has lost their Axe Head')
   Writeln ('Changing Player')
   status ('Changing Player')
   Players[CurrentPlayer].Active := False
   Logout;
   NextPlayer(True);
   end;
 end;
end;

function FindHead1: Boolean;
var
  c, AxeHeadDTM, Tries, x, y: Integer;
  hStart: Boolean;
begin
  AxeHeadDTM := DTMFromString('78DA63CC62626078C180021C2312191E02694' +
    '620FE0F048C694035CF18D000231209A473816A9E12A1E6150135' +
    'A94035AF09A801B9F9090135994498930C54F392809A3CCCF0415' +
    '70300FB8311DF');
  GameTab(4);
  Result := True;

  c := CreateBitmapMaskFromText('You do not have an axe', SmallChars);
  if (FindBitmapMaskTolerance(c, x, y, 17, 410, 495, 452, 10, 85)) then
  begin
    if ((EquipAxe = False) and
      not (GetColor(590, 220) = Head) or
      not (GetColor(587, 219) = Head2) or
      not (GetColor(588, 218) = Head3)) then
      hStart := True;
    if (EquipAxe) then
    begin
      GameTab(5);
      Wait(200 + Random(200));
      if not (GetColor(597, 294) = Head) or
        not (GetColor(600, 295) = Head2) or
        not (GetColor(599, 298) = Head3) then
      begin
        hStart := True;
        Mouse(592, 297, 2, 2, True);
        Wait(100+random(100))
        GameTab(4)
        Wait(1000);
      end;
    end;
  end;
  if (hStart = True) then
  begin
    Result := False;
    Tries := 0;
    repeat
      if not LoggedIn then Exit;
      if (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465)) then
        Break;
      if not (FindObjMulti('Take', Head, Head2, Head3, 5)) then
      begin
        Tries := Tries + 1;
        WriteLn('Axe head not found. Taken ' + IntToStr(tries) + ' tries');
        Status('Axe Head not found - Rotating Screen');
        KeyDown(VK_LEFT);
        Wait(1000 + Random(1000));
        KeyUp(VK_LEFT);
        Wait(400 + Random(300));
        if not FindObjMulti('Take', Head, Head2, Head3, 5) then
        begin
          Status('Axe Head not found - Moving to Red Dot');
          x := 648;
          y := 83;
          FindColorSpiral(x, y, 241, 570, 5, 725, 155)
            Mouse(x + 3, y + 3, 2, 2, True);
          Flag;
          Wait(500 + Random(300));
        end;
      end;
      if FindObjMulti('Take', Head, Head2, Head3, 5) then
      begin
        Status('Found Axe Head');
        WriteLn('Axe head was found.  Picking it up');
        Wait(450 + Random(400));
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        Flag;
        Wait(500 + Random(300));
      end;
    until (tries > 9) or
      (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465))
      if not (tries > 9) then
      if (AttachHead) then
        begin
        Result := True;
        end
  end;
  FreeBitmap(c);
  FreeDTM(AxeHeadDTM);
end;

procedure cuttdowntree;
var
OldMouseSpeed:integer;
begin
wait (500+random(500))
OldMouseSpeed := Mousespeed;
mousespeed := 1;
findent(treecolor2);
mousespeed := OldMouseSpeed;

if (FindObjMulti('Chop',treecolor1,treecolor2,treecolor3,10))then
    begin
    GetMousePos(x,y)
    mouse (x,y,2,3,true);
    flag;
    times := 0;
end else
 begin
  if (times >= 6) then
   begin
    Times := 0
    Writeln (players[currentplayer].Name)
    writeln ('Can''t find tree changing player')
    players[currentplayer].Active := false;
    nextplayer(true);
    checksettings;
    HighestAngle;
    CheckAxeHeadColor;
    TS := getsystemtime;
   end;
  times:=times + 1
  dir := dir + 1
  if (dir >= 5) then
  dir:=1;
   case dir of
    1: MakeCompass('E');
    2: MakeCompass('S');
    3: MakeCompass('W');
    4: PerfectNorth;
    end;
 end;
MouseSpeed := 1;
findent(treecolor1);
mousespeed := OldMouseSpeed;
if not (findhead1) then
   begin
   Writeln (Players[CurrentPlayer].Name + ' has lost their Axe Head')
   Writeln ('Changing Player')
   status ('Changing Player')
   Players[CurrentPlayer].Active := False
   Logout;
   NextPlayer(True);
   end;
checkifcut;
//checkaxe; // Needs more work
randoms;
end;

procedure DropAllJunk;
var
  rx, ry, m, n : Integer;
begin
    Gametab(4)
    begin
      for M:=1 to 7 do
      begin
      randoms;
        for n:=1 to 4 do
        begin
          rx := 544 + (n * 42)
          ry := 192 + (m * 36)
          mmouse(rx, ry, 0, 0)
          wait(100 + random(100));
          if (IsUpText('Wi')) or
             (IsUpText('Sea')) or
             (IsUpText('Use K')) or
             (IsUpText('Use C')) or
             (IsUpText('Use U')) or
             (IsUpText('Use D')) or
             (IsUpText('Use E')) or
             (IsUpText('Use S')) or
             (IsUpText('Use R')) or
             (IsUpText('Use T')) then

             begin
                Chopped := Chopped - 1;
             end else
             begin
               getmousepos(x, y)
               mouse(x, y, 5, 5, false);
               wait(100 + random(50));
               if(ClickText('Drop', MIX1, MIY1, MIX2, MIY2))then

                 wait(150 + random(210));
                 end;
        end;
      end;
    end;
end;

Function Drop:Boolean;
begin
getmousepos(x, y)
mouse(x, y, 5, 5, false);
wait(100 + random(50));
if(ClickText('Drop', MIX1, MIY1, MIX2, MIY2))then
  begin
  Result := True;
  end else
  Begin
  Result := False;
  end;
end;

Procedure DropAllLogs1;
Var
rx, ry, m, n : Integer;
Begin
    Gametab(4)
    begin
      for M:=1 to 7 do
      begin
      Randoms;
        for n:=1 to 4 do
        begin
          rx := 544 + (n * 42)
          ry := 192 + (m * 36)
          mmouse(rx, ry, 0, 0)
          wait(100 + random(100));
          if (IsUpText('Use Log')) Then
             Begin
             Log := Log + 1
             ReportVars[1] := ReportVars[1] + 1
             Drop;
             End;
          if (IsUpText('Use Oak')) Then
             Begin
             Oak := Oak + 1
             ReportVars[2] := ReportVars[2] + 1
             Drop;
             End;
          if (IsUpText('Use Wil')) Then
             Begin
             Willow := Willow + 1
             ReportVars[3] := ReportVars[3] + 1
             Drop;
             End;
          if (IsUpText('Use Tea')) Then
             Begin
             Teak := Teak + 1
             ReportVars[4] := ReportVars[4] + 1
             Drop;
             End;
          if (IsUpText('Use Mah')) Then
             Begin
             Mahogany := Mahogany + 1
             ReportVars[5] := ReportVars[5] + 1
             Drop;
             End;
          if (IsUpText('Use Yew')) Then
             Begin
             Yew := Yew + 1
             ReportVars[6] := ReportVars[6] + 1
             Drop;
             End;
          if (IsUpText('Use Mag')) Then
             Begin
             Magic := Magic + 1
             ReportVars[7] := ReportVars[7] + 1
             Drop;
             End;
        end;
      end;
    end;

end;

procedure droplogs;
begin
if (inventorycount=28) then
 begin
   chopped:= chopped + 28
   DropAllLogs1;
      If (Inventorycount >= 10) Then
      Begin
        dir := dir + 1
        if (dir >= 5) then
        dir:=1;
        case dir of
            1: MakeCompass('E');
            2: MakeCompass('S');
            3: MakeCompass('W');
            4: PerfectNorth;
        end;
        DropAllLogs1;
            If (InventoryCount >= 10) and (DropJunk) Then
            Begin
            DropAllJunk;
            End;
      End;
 end;
end;

Function GetTreeXP(LogType:String):Integer;
var
TreeToCut:string;
EXP:integer;
begin
TreeToCut := lowercase(LogType)
  if (TreeToCut = 'log') then
  begin
    EXP := 25;
  end;
  if (TreeToCut = 'oak') then
  begin
    EXP := 37;
  end;
  if (TreeToCut = 'willow') then
  begin
    EXP := 62;
  end;
  if (TreeToCut = 'teak') then
  begin
    EXP := 100;
  end;
  if (TreeToCut = 'mahogany') then
  begin
    EXP := 125;
  end;
  if (TreeToCut = 'yew') then
  begin
    EXP := 175;
  end;
  if (TreeToCut = 'magic') then
  begin
    EXP := 250;
  end;
Result := EXP;
end;

Function GetGainedXP:integer;
Var
LogXP,OakXP,WillowXP,TeakXP,MahoganyXP,YewXP,MagicXP:Integer;
Begin
LogXP      := GetTreeXP('Log') * Log;
OakXP      := GetTreeXP('Oak') * Oak;
WillowXP   := GetTreeXP('Willow') * Willow;
TeakXP     := GetTreeXP('Teak') * Teak;
MahoganyXP := GetTreeXP('Mahogany') * Mahogany;
YewXP      := GetTreeXP('Yew') * Yew;
MagicXP    := GetTreeXP('Magic') * Magic;

Result := LogXP + OakXP + WillowXP + TeakXP + MahoganyXP + YewXP + MagicXP;
End;

procedure report;
begin
PlayerReport := PlayerReport + 1
GainedXP := getgainedXP;
Chopped := Log + Oak + Willow + Teak + Magic + Yew + Mahogany;
ReportVars[0] := GainedXP - OldXP;
ReportVars[8] := Chopped - OldChopped;
TotalXP := TotalXP + (GainedXp - OldXP);
TotalChopped:= TotalChopped + (Chopped - OldChopped);
SaveSetting('Himranger Power Chopper','GainedXP',inttostr(TotalXP))
SaveSetting('Himranger Power Chopper','LogsChopped',inttostr(TotalChopped))
OldXP := gainedXP
OldChopped := Chopped
Cleardebug
writeln ('Progress Report')
writeln ('')
writeln ('Time running so far: ' + ScriptTime2(2) )
writeln ('')
Writeln ('Chopped ' + inttostr(chopped) + ' Logs')
Writeln ('And chopped the Total of ' + inttostr(TotalChopped) + ' Logs')
Writeln ('Logs = ' + inttostr(logs) + ' | Oak = ' + inttostr(oak) + ' | Willow = ' + inttostr (willow) + ' | Other = ' + inttostr(chopped - (willow + oak + logs)))
writeln (inttostr (ReportVars[3]))
writeln ('')
writeln ('Managed to gain about ' + inttostr(gainedxp) + ' Woodcutting XP')
Writeln ('And Gained The Total of ' + inttostr(Totalxp) + ' Woodcutting XP so far')
SRLRandomsReport;
if (PlayerReport >= 10) then
   begin
   User := 0
   addtoreport ('-------------------------------')
   repeat
   addtoreport (Players[user].Name)
   addtoreport ('Active = ' + boolToStr(Players[User].Active))
   addtoreport ('-------------------------------')
   User := User + 1
   until (User >= HowManyPlayers)
   end;
end;

begin
setup;
repeat
cuttdowntree;
droplogs;
report;
antiban;
endofusercheck;
until (FalsePlayers >= HowManyPlayers - 1)
User := 0
repeat
writeln ('-------------------------------')
Writeln (Players[user].Name)
Writeln ('Active = ' + boolToStr(Players[User].Active))
writeln ('-------------------------------')
User := User + 1
until (User >= HowManyPlayers)
Writeln ('')
Writeln ('Run out of Active Players')
Writeln ('End of Script')
end.

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

No. Get to know the community better. And we know who you really are. Proxy's wont work.

disguise part for less ban

I think jagex doesnt check what programs we are running?
They propably dont check whats the title of a program if theyd even check the progs..
Edit: No from me.

BTW why dont you use cases while dealing with strings? In dropalllogs1 and gettreeXP you could've just use (in dropalllogs1) case GetOption of and in GetTreexp case TreeToCut of

Theres lot more cool stuff in srl you could've use.

aren't you supposed to wait a month for every app? no from me just for that sorry wait 1 month between apps please

No. You have to wait a month before applying again.

Its really Rude from u guys ull always reject my scripts,i hope you all die and am not gonna try for membership again, you suck..thinking ur self Gonna be the only srl scripters,nooobs.u let down my hope ur fr00bs.:@:@:@:@:@:@:fiery: :fiery: :fiery: :fiery:

I just worked hard for that and you all vote no without even thinking of what your doing..

How'd you know they didn't look at the script? It's a no from me because of flaming…

y all ppl rejectimg it?

Because 1 of the following reasons:

-They did not like your attitude(ex. you flaming us in this thread for voting no)
-Because you didn't wait a month before re-applying
-Because they think that the script isn't worthy enough
-Because they think your post count is to low

Or some other reason that they have.

i don't suggest flaming your app as we will be here next time you apply if you apply that is and if you get a bad reputation then we will know who you are.

him ranger- relax, the people here are not out to get you, i swear. Most of them (at worst) just want to push you to be a better scripter. Now, even if you wrtoe a perfect script, the answer would be no because you didnt wait long enough, so dont take anyhting personal, because most of the no's arent even because of your script. You can use this time to make an even BETTER script :) and be proud of that :). Reall,y there is no reason to get discoraged, there have been plenty of people that had to apply 4-5 times becfore they got in, and It's a good thing to, becuase althgouh they were good when they first applied, they got much better.
Good luck to you in the future, I look foreward to you next app. Be sure to wait a month to give yourself a chance.
You can pm on aim me if ya need any help/advice

Edit: Oh yeah, you have a very very minor standards problems that NEED to be fixed.

Silly Goose
http://72.14.253.104/search?q=cache:u8WGWtITnTYJ:secetweb.com/readarticle.php%3Farticle_id%3D28+78DA63CC62626078C180021C2312191E02694&hl=en&ct=clnk&cd=1&gl=us
Dont mess with us!
Please dont copy/leech scripts.
Its idiotic, leechy and nooby.
You will now get an automatic no and this will be taken into consideration next time you apply.

Please, if you want to get into srl members, learn how to script, and make YOUR OWN script.
Dont copy others peoples, its stupid, and it NEVER works.

Hope you see you straighten up later.

EDIT:
Also, you need to wait a month before making annohter appliance.
Just because your other one got 11 nos doesnt make it right to copy another's script.
Now please wait ONE MONTH at least before applying again with one of YOUR OWN scripts.

Yohojo you got to make a tutorial on how to bust people. Like what you copy + paste in google. lol

Yohojo just knows every script ever written by memorie. He has a sql database backup up ion his brain, with key patterns and functions. He looks, performs a few querys, and then gooesafys.

Yea, iv read and memorized every script ever released.
I just do a google search for real proof.
Its all in my head =) Along with many of my personal belongings and a few keygens.

Hum, great,i tired many times to learn scar , but there arnt good tutorials,and no way to script!,and then is there any site with ready functions procedures constants, and variable made i can use their help and just copy pastw what i need and change coordinates and stuff?am sure thats it coz no none can write the whole script alone except developers maybe?any help:D

that was very confusing. are you saying that no-one can create a whole script alone except devs or? Please explain again.

If there is no way to learn scar, then how come some people do get accepted as members?
How did the devs become devs?
I think you need a big time out and read tutorials.
Please just click on the 'tutorial island' section at the form and read your brain out.
Scipting is quite hard at first, but practice makes perfect and its not impossible to learn.
I hope you dont give up and i hope you stop coppying scripts.
If you do need any help, read tuts, start making a script, and reprot any problems at the SRL Scripting Help section.
Thers 100s of users and tutorials here happy to help you out
You just need some patience.

Anyways ill stop being a silly GOOse, am sorry:), and then ill try to make my first
script other than an auto tallker wich i'v already made :)