SRL Archive - Archive

MADE NEW SCRIPT! http://www.villavu.com/forum/showthread.php?t=12843


Can a mod please close this thread? I have a new script and I would like to reapply!(The new script has lots more failsafes, walking, and stuff) Look above^^^^^



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

What is the meaning to life?


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


Programming Knowledge
PHP, CSS, HTML, XHTML, SCAR

Other Communitys
none

How Long have You Played Runescape
1 year

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

My favorite hobby is writing a new code for something. :)

I have had a website in the past and I would always update it. I knew all sorts of scripting languages like PHP, CSS, HTML, and tons more.

It is because I love scripting so much that I have decided to write scar scripts. I like being challenged and out smarting the system.

I have been using Scar for a while now and I would deeply appreciate it if ya'll would accept me into your community.

Thank you very much your your time.

-Travis


What I can do with SCAR:
-AntiBans
-AntiRandoms
-DTMs and Bitmaps
-FailSafes
-Banking
-Radial Walking
-MultiPlayer
-Standards
-And much much more!

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

{
      (C) Travis AKA Born2Code's scripts.

      Logz - A Draynor Willow Log cutter and banker.

      Designed for SCAR 2.03 with SRL 3.6.

      If you liked this script, be sure to give me a good rating on SRL-Forums!

      Features:
      -AntiBan
      -AntiRandoms
      -MultiPlayer
      -Fast Chopping procedure
      -An AWESOME name =]

      Soon to come features:
      -Axe Head Finding
      -ENT Finding
      -Broken Axe Replacing

      SETUP LINES 40-79

      Enjoy! Do not LEECH, COPY, or REDISTRIBUTE!

}


program Logz;
{.include srl/srl.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}

var
Loads,Tries,CutTime,AxeDTM: integer;

const
WillowTreeColor= 263943;//Color of the Tree
AOL= 1;//Amount of loads
WaitTime= 3;//Time between tree clicks (seconds)
LoadTime= 2;//Max. time per load (minutes)

procedure DeclarePlayers;
begin
  HowManyPlayers := 6;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'UserName';
  Players[0].Pass := 'Password';
  Players[0].Nick := '3-4 letters of UserName';
  Players[0].Active := True;

  Players[1].Name := 'UserName';
  Players[1].Pass := 'Password';
  Players[1].Nick := '3-4 letters of UserName';
  Players[1].Active := False;

  Players[2].Name := 'UserName';
  Players[2].Pass := 'Password';
  Players[2].Nick := '3-4 letters of UserName';
  Players[2].Active := False;

  Players[3].Name := 'UserName';
  Players[3].Pass := 'Password';
  Players[3].Nick := '3-4 letters of UserName';
  Players[3].Active := False;

  Players[4].Name := 'UserName';
  Players[4].Pass := 'Password';
  Players[4].Nick := '3-4 letters of UserName';
  Players[4].Active := False;

  Players[5].Name := 'UserName';
  Players[5].Pass := 'Password';
  Players[5].Nick := '3-4 letters of UserName';
  Players[5].Active := False;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

procedure LoadDTM;
begin
  AxeDTM := DTMFromString('78DA63E4646060E0634001514E1C609A11CA6' +
       '7E401126CA86AB2037851D5B00309515435A1F6A8E600007D4802' +
       '54');
end;

procedure WalkTrees;
begin
  if(not(LoggedIn)) then Exit;
  MakeCompass('N');
  RadialRoadWalk(FindWaterColor,228,178,70,2,2);
  Wait(2550+random(550));
  FFlag(0);
end;

procedure WalkBank;
begin
  if(not(LoggedIn)) then Exit;
  MakeCompass('N');
  if(not(FindSymbol(x,y,'bank'))) then
    begin
      Tries:=0
      repeat
        Wait(500+random(500));
        if(Tries=25) then break;
        Tries:=Tries+1
      until FindSymbol(x,y,'bank');
    end;
  Mouse(x,y,2,2,true);
  Wait(2550+random(550));
  FFlag(0);
end;

procedure Chop;
begin
  if(not(LoggedIn)) then Exit;
    if(not(FindObj(x,y,'illow',WillowTreeColor,10))) then
    begin
      Tries:=0
      repeat
        Wait(345+random(634));
        if(Tries=25) then
        begin
          Writeln('Couldnt find trees')
          NextPlayer(false)
        end;
        Tries:=Tries+1
      until FindSymbol(x,y,'fish');
    end;
    Mouse(x,y,3,4,true)
    Wait(WaitTime*1000+random(1550));
end;

procedure Bank;
var I: Integer;
    TP: TPoint;
begin
  if(not(LoggedIn)) then Exit;
  FFlag(0);
  Wait(2550+random(550));
  Writeln('Banking.')
  MakeCompass('W');
  KeyDown(VK_Down);
  Wait(1000+random(50));
  KeyUp(VK_Down);
  Repeat
    OpenBankGlass('db', false, false)
  Until(BankScreen);
  FFlag(0);
  wait(500 + random(500));
  FixBank;
  for I := 1 to 28 do
  begin
    TP := ItemCoords(I);
    if(ExistsItem(I))then
    begin
      if(not(FindDTM(AxeDTM,x,y,TP.x-25,TP.y-25,TP.x+25,TP.y+25)))then
      begin
        Mouse(x,y,2,2,false);
        ChooseOption(x,y,'All');
      end;
    end;
  end;
  CloseBank;
  Wait(1000+random(550));
  KeyDown(VK_Up);
  Wait(1000+random(50));
  KeyUp(VK_Up);
  Loads := Loads + 1
end;




procedure AntiBaning;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(20) of

    0,16,17,18: RandomRClickEvery(3 + Random(3));

    1: begin
         HoverSkill('Woodcutting', false);
         wait(1000+random(1000));
         GameTab(4);
       end;

    2: begin
         HoverSkill('Smithing', false);
         wait(4000+random(550));
         GameTab(4);
       end;

    3,4,5: RandomChatEvery(4 + Random(4));

    6,12: PickUpMouse;

    7: BoredEvery(10 + Random(5));

    8,14: begin
         GameTab(1 + Random(12));
         wait(1000+random(1000));
         GameTab(4);
       end;


    10: MouseBox(MMX1,MMY1,MMX2,MMY2,3);

    11: SleepAndMoveMouse(5000+random(6000));

    13,9: begin
         GameTab(2 + Random(12));
         wait(2000+random(1500));
         GameTab(4);
       end;


     15: begin
         GameTab(6 + Random(12));
         wait(1500+random(700));
         GameTab(4);
       end;
       
     19: begin
         HoverSkill('Defene', false);
         wait(4000+random(550));
         GameTab(4);
       end;

  end;
end;

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 9 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;
      8: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      9: RC;
    end;
    wait(1);
  end;
end;


procedure Randoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;



procedure Proggie;
begin
  Writeln('\/_\/ \/_\/ \/_\/ \/_\/ \/_\/ \/_\/ \/_\/');
  Writeln('Thank you for using Logz!');
  Writeln('Cut approx. ' + IntToStr(Loads*28) + ' willow logs!');
  Writeln('Banked '+ IntToStr(Loads) + ' time(s)!');
  Writeln('Please post this proggie at http://www.villavu.com/forum/showthread.php?t=12658!');
  Writeln('/\_/\ /\_/\ /\_/\ /\_/\ /\_/\ /\_/\ /\_/\');
  Writeln('Script by: Travis AKA born2code!');
end;

procedure Start;
begin
  LoadDTM;
  ClearReport;
  ClearDebug;
  ActivateClient;
end;

procedure Loop;
begin
 Repeat
  HighestAngle;
  MakeCompass('N');
  WalkTrees;
   repeat
    MarkTime(CutTime);
    Randoms;
    AntiBaning;
    Chop;
   until(InvFull) or (TimeFromMark(CutTime) >= LoadTime*60000+random(60700));
  WalkBank;
  Bank;
  Proggie;
 Until (Loads=AOL);
 NextPlayer(True);
 Exit;
 Loads:=0;
end;


begin
  SetupSRL;
  Start;
  DeclarePlayers;
  Loads := 0
  DisguiseScar(IntToStr(Loads) + ' load(s).');
  Status(IntToStr(Loads) + ' load(s).');
  If(not(LoggedIn))then LoginPlayer;
  repeat
  If(not(LoggedIn))then NextPlayer(False);
  Loop;
  Until (False)
  ClearDebug;
  Proggie;
  DisguiseScar('Done!');
  Status('Done!');
end.

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

Here, I'll put it in SCAR tags for you. If you are posting code, always post it in SCAR tags. I will edit later with what I think about the script.

{
(C) Travis AKA Born2Code's scripts.

Logz (BETA!) - A Draynor Willow Log cutter and banker.

Designed (currently) for only 1 player & SCAR 2.03 with SRL 3.6. (Its a BETA version)

If you liked this script, be sure to give me a good rating on SRL-Forums!
YOU CAN NOW HAVE AXE UNEQUIPPED!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Features:
-AntiBan (awesome antiban!)
-AntiRandoms
-Single Player
-Fast Chopping procedure
-An AWESOME name =]

Soon to come features:
-MultiPlayer (very soon to come!!!)
-Axe Head Finding
-ENT Finding
-Broken Axe Replacing
-Touching up in some areas

SETUP LINES 40-53

Enjoy! Do not LEECH, COPY, or REDISTRIBUTE!

}


program Logz;
{.include srl/srl.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}

var
Loads,Tries,CutTime,AxeDTM: integer;

const
WillowTreeColor= 263943;//Color of the Tree
AOL= 2;//Amount of loads
WaitTime= 3;//Time between tree clicks (seconds)
LoadTime= 2;//Max. time per load (minutes)

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

Players[0].Name :='USERNAME';//Username
Players[0].Pass :='PASSWORD';//Password
Players[0].Nick :='NICKNAME';//3-4 letter nickname

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

procedure LoadDTM;
begin
AxeDTM := DTMFromString('78DA63E4646060E0634001514E1C609A11C A6' +
'7E401126CA86AB2037851D5B00309515435A1F6A8E600007D 4802' +
'54');
end;

procedure WalkTrees;
begin
MakeCompass('N');
RadialRoadWalk(FindWaterColor,228,178,70,2,2);
Wait(2550+random(550));
FFlag(0);
end;

procedure WalkBank;
begin
MakeCompass('N');
if(not(FindSymbol(x,y,'bank'))) then
begin
Tries:=0
repeat
Wait(500+random(500));
if(Tries=25) then break;
Tries:=Tries+1
until FindSymbol(x,y,'bank');
end;
Mouse(x,y,2,2,true);
Wait(2550+random(550));
FFlag(0);
end;

procedure Chop;
begin
if(not(LoggedIn)) then Exit;
if(not(FindObj(x,y,'illow',WillowTreeColor,10))) then
begin
Tries:=0
repeat
Wait(345+random(634));
if(Tries=25) then
begin
Writeln('Couldnt find trees')
NextPlayer(false)
end;
Tries:=Tries+1
until FindSymbol(x,y,'fish');
end;
Mouse(x,y,3,4,true)
Wait(WaitTime*1000+random(1550));
end;

procedure Bank;
var I: Integer;
TP: TPoint;
begin
FFlag(0);
Wait(2550+random(550));
Writeln('Banking.')
MakeCompass('W');
KeyDown(VK_Down);
Wait(1000+random(50));
KeyUp(VK_Down);
Repeat
OpenBankGlass('db', false, false)
Until BankScreen;
FFlag(0);
wait(500 + random(500));
FixBank;
for I := 1 to 28 do
begin
TP := ItemCoords(I);
if(ExistsItem(I))then
begin
if(not(FindDTM(AxeDTM,x,y,TP.x-25,TP.y-25,TP.x+25,TP.y+25)))then
begin
Mouse(x,y,2,2,false);
ChooseOption(x,y,'All');
end;
end;
end;
CloseBank;
Wait(1000+random(550));
KeyDown(VK_Up);
Wait(1000+random(50));
KeyUp(VK_Up);
Loads := Loads + 1
end;




procedure AntiBaning;
begin
if(not(LoggedIn))then
Exit;
case Random(19) of

0,16,17,18: RandomRClickEvery(3 + Random(3));

1: begin
HoverSkill('Woodcutting', false);
wait(1000+random(1000));
GameTab(4);
end;

2: begin
HoverSkill('Smithing', false);
wait(4000+random(550));
GameTab(4);
end;

3,4,5: RandomChatEvery(4 + Random(4));

6,12: PickUpMouse;

7: BoredEvery(10 + Random(5));

8: begin
GameTab(1 + Random(12));
wait(1000+random(1000));
GameTab(4);
end;

9: begin
case random(6) of
0: TypeSend('What is everyones fishing levels?');

1: TypeSend('Defence levels anyone?');

2: TypeSend('WC lvls');

3: TypeSend('Woodcutting levels???????');

4: TypeSend('WCutting levels??');

5: TypeSend('Attack lvls?');
end;
end;

10: MouseBox(MMX1,MMY1,MMX2,MMY2,3);

11: SleepAndMoveMouse(5000+random(6000));

13: begin
GameTab(2 + Random(12));
wait(2000+random(1500));
GameTab(4);
end;

14: begin
case random(6) of
0: TypeSend('OMG im bored.');

1: TypeSend('Woodcutting. Its addictive.');

2: TypeSend('Cutting plus Me = Happy!');

3: TypeSend('If you are not stupid, press 555.');

4: TypeSend('Cutting lvls?');

5: TypeSend('Any members here?');
end;
end;

15: begin
GameTab(6 + Random(12));
wait(1500+random(700));
GameTab(4);
end;

end;
end;

function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 9 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;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
end;
wait(1);
end;
end;


procedure Randoms;
begin
FindFastRandoms;
FindNormalRandoms;
end;



procedure Proggie;
begin
Writeln('\/_\/ \/_\/ \/_\/ \/_\/ \/_\/ \/_\/ \/_\/');
Writeln('Thank you for using Logz!');
Writeln('Cut approx. ' + IntToStr(Loads*28) + ' willow logs!');
Writeln('Banked '+ IntToStr(Loads) + ' time(s)!');
Writeln('Please post this proggie at http://www.villavu.com/forum/showthread.php?t=12658!');
Writeln('/\_/\ /\_/\ /\_/\ /\_/\ /\_/\ /\_/\ /\_/\');
Writeln('Script by: Travis AKA born2code!');
end;

procedure Start;
begin
SetupSRL;
LoadDTM;
ClearReport;
ClearDebug;
ActivateClient;
end;

procedure Loop;
begin
repeat
HighestAngle;
WalkTrees;
repeat
MarkTime(CutTime);
Randoms;
AntiBaning;
Chop;
until(InvFull) or (TimeFromMark(CutTime) > LoadTime*60000+random(60700));
WalkBank;
Bank;
Until (Loads >= AOL);
end;

begin
DeclarePlayers;
If(not(LoggedIn))then LoginPlayer;
Loads := 0
DisguiseScar(IntToStr(Loads) + ' load(s).');
Status(IntToStr(Loads) + ' load(s).');
Loop;
ClearDebug;
Proggie;
DisguiseScar('Done!');
Status('Done!');
end.

Thank you very much. I hope that you like it! :)

From: born2code
Thank you very much. I hope that you like it! :)

erm you really need to work on your standards its quite hard to read and erm try player switching so your multiplayer works better.

I'll hold my vote until YoHoJo posts.

From: hugolord
erm you really need to work on your standards its quite hard to read and erm try player switching so your multiplayer works better.

I'll hold my vote until YoHoJo posts.

I now have MultiPlayer and Standards.

You should have included Multi-player =\ Its a big must in SRL scripts…everything else is good though. If you change the script to multi-player I'll vote yes.

Okay! I have added multiplayer! Works great now. :)

i don't know what to vote, you could add more failsafes and there's missing something VERY important while chopping, ent finding.

I know. I will add ENT finding soon and I could add more failsafes.

I promise that if you vote for me, you will not regret it. :)

Thank you for your post.



__________________________________________


1 vote, and it is a no. :(

From: tim46
You should have included Multi-player =\ Its a big must in SRL scripts…everything else is good though. If you change the script to multi-player I'll vote yes.

Okay, I have added MultiPlayer. :redface:

Seems ok, but I found these things.

procedure AntiBaning;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(19) of
 
    0,16,17,18: RandomRClickEvery(3 + Random(3));
 
    1: begin
         HoverSkill('Woodcutting', false);
         wait(1000+random(1000));
         GameTab(4);
       end;
 
    2: begin
         HoverSkill('Smithing', false);
         wait(4000+random(550));
         GameTab(4);
       end;
 
    3,4,5: RandomChatEvery(4 + Random(4));
 
    6,12: PickUpMouse;
 
    7: BoredEvery(10 + Random(5));
 
    8: begin
         GameTab(1 + Random(12));
         wait(1000+random(1000));
         GameTab(4);
       end;
 
    9: begin
         case random(6) of
           0: TypeSend('What is everyones fishing levels?');
 
           1: TypeSend('Defence levels anyone?');
 
           2: TypeSend('WC lvls');
 
           3: TypeSend('Woodcutting levels???????');
 
           4: TypeSend('WCutting levels??');
 
           5: TypeSend('Attack lvls?');
         end;
       end;
 
    10: MouseBox(MMX1,MMY1,MMX2,MMY2,3);
 
    11: SleepAndMoveMouse(5000+random(6000));
 
    13: begin
         GameTab(2 + Random(12));
         wait(2000+random(1500));
         GameTab(4);
       end;
 
    14: begin
         case random(6) of
           0: TypeSend('OMG im bored.');
 
           1: TypeSend('Woodcutting. Its addictive.');
 
           2: TypeSend('Cutting plus Me = Happy!');
 
           3: TypeSend('If you are not stupid, press 555.');
 
           4: TypeSend('Cutting lvls?');
 
           5: TypeSend('Any members here?');
         end;
       end;
 
     15: begin
         GameTab(6 + Random(12));
         wait(1500+random(700));
         GameTab(4);
       end;
 
  end;
end;

The talking can get repetitive if scar always picks it which it will eventually. Saying the samething over and over and get people suspecious and think your autoing. I report people who I think are real people but they keep saying the samething over and over.

You added more player slots but its not multiplayer yet. You have player switching if its not logged in, but what if it completes its job.

Your main loop.

begin
  SetupSRL;
  Start;
  DeclarePlayers;
  Loads := 0
  DisguiseScar(IntToStr(Loads) + ' load(s).');
  Status(IntToStr(Loads) + ' load(s).');
  If(not(LoggedIn))then LoginPlayer;
  repeat
  If(not(LoggedIn))then NextPlayer(True);
    Loop;
    Logout;
  until(false);
  ClearDebug;
  Proggie;
  DisguiseScar('Done!');
  Status('Done!');
end.
 

My way or the highway :D:

procedure Loop;
begin
repeat
 Repeat
  HighestAngle;
  WalkTrees;
   repeat
    MarkTime(CutTime);
    Randoms;
    AntiBaning;
    Chop;
   until(InvFull) or (TimeFromMark(CutTime) >= LoadTime*60000+random(60700));
  WalkBank;
  Bank;
 Until (Loads=AOL);
 NextPlayer(True);
Until (False)
end;

begin
  SetupSRL;
  Start;
  DeclarePlayers;
  Loads := 0
  DisguiseScar(IntToStr(Loads) + ' load(s).');
  Status(IntToStr(Loads) + ' load(s).');
  If(not(LoggedIn))then LoginPlayer;
  repeat
  If(not(LoggedIn))then NextPlayer(False);//You had true, if not logged in then something must of happened.
 Loop;
Until (False)
  ClearDebug;
  Proggie;
  DisguiseScar('Done!');
  Status('Done!');
end.
 

But, I'll hold my vote until YoHoJo comes along.

From: Buckleyindahouse
Seems ok, but I found these things.

procedure AntiBaning;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(19) of
 
    0,16,17,18: RandomRClickEvery(3 + Random(3));
 
    1: begin
         HoverSkill('Woodcutting', false);
         wait(1000+random(1000));
         GameTab(4);
       end;
 
    2: begin
         HoverSkill('Smithing', false);
         wait(4000+random(550));
         GameTab(4);
       end;
 
    3,4,5: RandomChatEvery(4 + Random(4));
 
    6,12: PickUpMouse;
 
    7: BoredEvery(10 + Random(5));
 
    8: begin
         GameTab(1 + Random(12));
         wait(1000+random(1000));
         GameTab(4);
       end;
 
    9: begin
         case random(6) of
           0: TypeSend('What is everyones fishing levels?');
 
           1: TypeSend('Defence levels anyone?');
 
           2: TypeSend('WC lvls');
 
           3: TypeSend('Woodcutting levels???????');
 
           4: TypeSend('WCutting levels??');
 
           5: TypeSend('Attack lvls?');
         end;
       end;
 
    10: MouseBox(MMX1,MMY1,MMX2,MMY2,3);
 
    11: SleepAndMoveMouse(5000+random(6000));
 
    13: begin
         GameTab(2 + Random(12));
         wait(2000+random(1500));
         GameTab(4);
       end;
 
    14: begin
         case random(6) of
           0: TypeSend('OMG im bored.');
 
           1: TypeSend('Woodcutting. Its addictive.');
 
           2: TypeSend('Cutting plus Me = Happy!');
 
           3: TypeSend('If you are not stupid, press 555.');
 
           4: TypeSend('Cutting lvls?');
 
           5: TypeSend('Any members here?');
         end;
       end;
 
     15: begin
         GameTab(6 + Random(12));
         wait(1500+random(700));
         GameTab(4);
       end;
 
  end;
end;

The talking can get repetitive if scar always picks it which it will eventually. Saying the samething over and over and get people suspecious and think your autoing. I report people who I think are real people but they keep saying the samething over and over.

You added more player slots but its not multiplayer yet. You have player switching if its not logged in, but what if it completes its job.

Your main loop.

begin
  SetupSRL;
  Start;
  DeclarePlayers;
  Loads := 0
  DisguiseScar(IntToStr(Loads) + ' load(s).');
  Status(IntToStr(Loads) + ' load(s).');
  If(not(LoggedIn))then LoginPlayer;
  repeat
  If(not(LoggedIn))then NextPlayer(True);
    Loop;
    Logout;
  until(false);
  ClearDebug;
  Proggie;
  DisguiseScar('Done!');
  Status('Done!');
end.
 

My way or the highway :D:

procedure Loop;
begin
repeat
 Repeat
  HighestAngle;
  WalkTrees;
   repeat
    MarkTime(CutTime);
    Randoms;
    AntiBaning;
    Chop;
   until(InvFull) or (TimeFromMark(CutTime) >= LoadTime*60000+random(60700));
  WalkBank;
  Bank;
 Until (Loads=AOL);
 NextPlayer(True);
Until (False)
end;

begin
  SetupSRL;
  Start;
  DeclarePlayers;
  Loads := 0
  DisguiseScar(IntToStr(Loads) + ' load(s).');
  Status(IntToStr(Loads) + ' load(s).');
  If(not(LoggedIn))then LoginPlayer;
  repeat
  If(not(LoggedIn))then NextPlayer(False);//You had true, if not logged in then something must of happened.
 Loop;
Until (False)
  ClearDebug;
  Proggie;
  DisguiseScar('Done!');
  Status('Done!');
end.
 

But, I'll hold my vote until YoHoJo comes along.

Okay. I will change that right now. :)


Why do you want to wait to yohojo. That is what another person said. Yohojo sounds pretty important.

The person who voted no did not even explain why he voted for that. :(

Also, how long will my app. stay posted until the voting is over?

Script is Clean,
Why does everyone wait for my post!
I still dont know what im going to vote.
It has antiban/antirandoms/multiplayer which is everythign he needs.
But its still pretty simple and could use a few more fail safes.
I might vote yes if i feel nice later tonight.

Why the hell would you….

a) PM me and say please accept me
b) Include a false link here?

Err…

From: Ejjman1
Why the hell would you….

a) PM me and say please accept me
b) Include a false link here?

Err…

Please don't take this the wrong way. Dude, the PM was just for you to look at it.

And the false link…. :redface: sry.

SRL Rules & Regulations

Specific Offences resulting in infraction

• Multiple Accounts: any user is allowed to have 1 account and 1 account only.
• Leaking: Members and Developers will be instantly de-ranked when proof of leakage.

Three infractions will make you miserable.

You mind explaining the extra accounts associated with your IP address ? Especially the 1 created today…..

When and IF, you become a member, you are not allowed to share ANYTHING located in the MEMBER'S area, with ANYONE !

Although you are demonstrating some talent, I question your motivation to become a member, especially your link in your signature, as only members can see this page.

~RAM

From: RAM_RUNE


You mind explaining the extra accounts associated with your IP address ? Especially the 1 created today.....

When and IF, you become a member, you are not allowed to share ANYTHING located in the MEMBER'S are, with ANYONE !

Although you are demonstrating some talent, I question your motivation to become a member, especially your link in your signature, as only members can see this page.

~RAM

The other account was a friends account. I showed him SRL Forums today. He is using Wizzups? ess miner.

I will edit my sig right now. You have my word that I will not share any of the scripts that are members with non-members. :)

Please dude, I have wanted this forever and all day I have been trying to improve my script so that it is to everyone's liking. You will not regret accepting me. I will help out the SRL community and give more than I take.

what was in his sig? also i understand waiting for yohojo to copy bust but if ur waiting to see if he'll vote yes or no just so you can copy him, quite frankly u shouldn't bother voting at all. if you don't know what to vote then dont…..

if u fix the following then it's a yes, no standards-fix that, ur banking is an endless loop…..
"repeat
OpenBankGlass thingy
until(BankScreen)"

also add Exit; after everytime u switch player and make sure you put
if not LoggedIn then Exit;

oh yeah also with the player switching make sure u make loads:=0; everytime it does a nextplayer

For some reason I don't believe him. The script is also quite simple. Sorry but it's a no from me.

From: SantaClause
For some reason I don't believe him. The script is also quite simple. Sorry but it's a no from me.

Its fine.

what was in his sig? also i understand waiting for yohojo to copy bust but if ur waiting to see if he'll vote yes or no just so you can copy him, quite frankly u shouldn't bother voting at all. if you don't know what to vote then dont…..

if u fix the following then it's a yes, no standards-fix that, ur banking is an endless loop…..
"repeat
OpenBankGlass thingy
until(BankScreen)"

also add Exit; after everytime u switch player and make sure you put
if not LoggedIn then Exit;

oh yeah also with the player switching make sure u make loads:=0; everytime it does a nextplayer

I updated my script and I think I fixed everything that you said. :)

_______________________________________________
So far it looks pretty crappy for me. 4 votes no and 2 votes yes.

Can I improve my script and apply again later?

Of course you can. Just remember to wait a month before applying(or at least 3 weeks).

From: tim46
Of course you can. Just remember to wait a month before applying(or at least 3 weeks).

Do you think I can still make it right now?:confused:

I have 2 votes yes.:redface:

Also, can anyone help me with ENT and Axe head finding?

its ok im gna vote yes but in srl includes in the woodcutting bit theres ent detection procedure

From: rudeboialex
its ok im gna vote yes but in srl includes in the woodcutting bit theres ent detection procedure

Thank you, and I am going to check that out right now. :)

SRLs ent finding procedure doesn't work I think. Or if it does work, it isn't very good.

From: tim46
SRLs ent finding procedure doesn't work I think. Or if it does work, it isn't very good.

Okay ty.

Cool! I only need 2 more votes!!!!!!!!!!!!!!!!!!!!!!!!!:D :D :D


How long until the voting ends?

From: YoHoJo
Script is Clean,
Why does everyone wait for my post!
I still dont know what im going to vote.
It has antiban/antirandoms/multiplayer which is everythign he needs.
But its still pretty simple and could use a few more fail safes.
I might vote yes if i feel nice later tonight.

We wait for your vote because wqe feel like noobish scum if we vote yes on a script that has been copied :). I agree, we shouldnt vote like you do, but if there is a controversial issue, like, if X problem should prevent membership or not, we like a pro to cleat up the mud.

Although, i do find it kinda funny that most scripts that poepple copy wouldnt get in anyways, lol. People are tearing them up and then you say it was copied anyways, lol.

From: lordgreggreg
We wait for your vote because wqe feel like noobish scum if we vote yes on a script that has been copied :). I agree, we shouldnt vote like you do, but if there is a controversial issue, like, if X problem should prevent membership or not, we like a pro to cleat up the mud.

Although, i do find it kinda funny that most scripts that poepple copy wouldnt get in anyways, lol. People are tearing them up and then you say it was copied anyways, lol.

I assure you that I have written this script.:)

From: born2code
I assure you that I have written this script.:)

Yep, we know, yohojo said it was clean :P

From: lordgreggreg
Yep, we know, yohojo said it was clean :P

Alright. Ty. :)

you fixed standards but u didn't fix anything else i said. if it's not done when i wake up it's a no i'm afraid. but think of all the time you'll have to make an even better script for ur next app ;)

So, is that a no?

Its fine. I will improve/make the/a script.

Ill get started on something new today! :D Ill apply again when the script is flawless. (and when more people like me.:p )

But still, if people want to still vote for me, I'm fine with becoming a member right now. ;)

I voted yes. I voted yes because I have seen alot of his posts and he is extremely eager to learn and with the right help he could create great scripts.

Extremely eager. Hmm, I'll search his posts.

From: justkidding
I voted yes. I voted yes because I have seen alot of his posts and he is extremely eager to learn and with the right help he could create great scripts.

TYVM!!!!!!!!!!!!!

Have you already voted?

Well,, i was leaning yes, looked through the script again, realized like no failsafes really, not alot at least from what I could see. What RAM said, and a couple other things, like low post count (sort of) and small things like that, just push me farther to a no.

From: 3garrett3
Well,, i was leaning yes, looked through the script again, realized like no failsafes really, not alot at least from what I could see. What RAM said, and a couple other things, like low post count (sort of) and small things like that, just push me farther to a no.

k, well im making a new script and when it is good and ready, I will reapply if I dont make it with this script. :D

CAN AN ADMIN PLEASE CLOSE THIS THREAD?