SRL Archive - Archive

How Long have You Played Runescape?
6 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
Junior


What is your general programming knowledge?
Scar


Are you a member of any other communities?
MoparIsTheBest, TheHDD(Doesn't work for me) and some others.


Tell us about yourself…

From: Junkj
13-years-old. Starting scripting when I was 10. I've gained a lot of knowledge by then. I also like to play video games. I think this is my fifth application.

Please show us one (or multiple) of your scripts.

program PMOW;
{.Include SRL/SRL.SCAR}
{.Include SRL/SRL/Skill/WoodCutting.SCAR}
////////////////////////////////////Information/////////////////////////////////
//Chopping : I near perfected this procedure and it should work fine in a
//Forest type place where nobody is and no NPC is anywhere in sight. Only chops
//Trees or oaks. No one would drop willows or yews. Crazy people would.
//Mining : Works, i used it plenty of times. Chops Iron, Copper or Tin.(<-Smarter Child)
//NOTE*** This is a "bit more than beta" version. Don't expect it to be AWESOME!
////////////////////////////////////////////////////////////////////////////////
// Made by Junkj// Made by Junkj// Made by Junkj// Made by Junkj// Made by Junkj
////////////////////////////////////////////////////////////////////////////////

//Global Vars
Var Mined, Chopped, loads, ColorInt :integer;
Var XPG :string;

///////////////////////////////////SETUP////////////////////////////////////////
/////////////////////InfoBox////////////////////
// Put your (pick)axe in inventory slot one   //
// and go to a mine/forrest and run the script//
////////////////////////////////////////////////
procedure DeclarePlayers;
begin
  HowManyPlayers:= 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
           ///// fill all of below in
  Players[0].Name    := 'f'; // username
  Players[0].Pass    := 'y'; //password
  Players[0].Nick    := 'i';   //3-4 letters of your name. No first letter or caps
  Players[0].Active  := true; //if it's active
  Players[0].strings[0]:= 'copper'; //what rock you mining? copper, iron or tin(If mining)
  Players[0].strings[1]:= 'chop';  // chop or mine
  Players[0].integers[0]:= 10; // ore/logs to mine/chop
  Players[0].booleans[0] := False; //Is your axed equiped? If not read InfoBox ^^^
end;
////////////////////////////END//OF//SETUP//////////////////////////////////////

Procedure LogCheck;
begin
  If(Not(Loggedin))Then
  begin
    Writeln('Logged out somehow, terminating...');
    TerminateScript;
  end;
end;

procedure Anti; forward;

Procedure LvlProof;
begin
  SaveScreenshot('Yea');
  ClickToContinue;
  Anti;
end;

Procedure Anti;
begin
  LogCheck;
  FindNormalRandoms;
  If(ClickContinue(false, true)) then LvlProof;
  case random(40) of
    0:HoverSkill('Random',false);

    1:SleepAndMoveMouse(1000+random(500));

    2:RandomRClick;

    3:PickUpMouse;

    4:RandomMovement;
  end;
  wait(100+random(100))
end;

function ACIron: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1711918, MSX1, MSY1, MSX2, MSY2, 24);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToHSL(arC[i], H, S, L);

    if (H >= 3.83) and (H <= 4.92) and (S >= 28.55) and (S <= 29.65) and (L >= 8.80) and (L <= 19.24) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 0.81) and (X <= 3.20) and (Y >= 0.74) and (Y <= 2.85) and (Z >= 0.57) and (Z <= 1.99) then
      begin
        Result := arC[i];
        Break;
      end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

function ACCopper: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 4621284, MSX1, MSY1, MSX2, MSY2, 32);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToHSL(arC[i], H, S, L);

    if (H >= 6.33) and (H <= 6.46) and (S >= 56.89) and (S <= 97.79) and (L >= 51.74) and (L <= 64.92) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 31.45) and (X <= 52.03) and (Y >= 25.38) and (Y <= 41.71) and (Z >= 7.78) and (Z <= 12.53) then
      begin
        Result := arC[i];
        Break;
      end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

function ACTin: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  FindColorsSpiralTolerance(MMCX, MMCY, arP, 9671834, MMX1, MMY1, MMX2, MMY2, 24);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToHSL(arC[i], H, S, L);

    if (H >= 0.00) and (H <= 2.40) and (S >= 2.52) and (S <= 4.42) and (L >= 53.71) and (L <= 64.33) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 23.62) and (X <= 35.26) and (Y >= 24.33) and (Y <= 36.37) and (Z >= 25.98) and (Z <= 38.43) then
      begin
        Result := arC[i];
        Break;
      end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

Procedure DropFT(FromS, ToE : integer);
Var I :Integer;
Begin
  If(InvEmpty) Then Exit;
  GameTab(tab_inv);
  For I:= FromS To ToE do
    DropItem(I);
end;

Procedure Dropper;
begin
  If(Players[CurrentPlayer].Booleans[0]=False) then
  begin
    DropFT(2,28);
  end else
  If(Players[CurrentPlayer].Booleans[0]=True) then
    DropFT(1, 28);
end;

procedure MineIt;
var X, Y, I, E :integer;
begin
  if(not(loggedin))then exit;
  if(invfull) then Dropper;
    findcolorspiraltolerance(x, y, ColorInt, msx1, msy1, msx2, msy2, 20);
    mmouse(x,y,3,3);
    if(waituptext('ine',300+random(300)))then
      begin
        GetMousePos(x, y);
        mouse(x,y,3,3,true);
        i := InvCount;
        MarkTime(E);
        while (InvCount = i) and (TimeFromMark(E) < Players[currentplayer].integers[1]) do Anti;
        if(not(invcount = i)) then Mined:=Mined+1
      end;
end;

function ACTree : integer;
var
  Acolor :integer;
begin
  Case Random(5) of
    0 : Acolor := 6267798;
    1 : Acolor := 1390897;
    2 : Acolor := 2839627;
    3 : Acolor := 4548957;
    4 : Acolor := 5796195;
  end;
  Result := Acolor;
end;

Procedure Chopping;
Var X, Y, I, T, K, O :integer;
Var MTB :Tbox;
begin
  if(not(loggedin))then exit;
  if(invfull) then Dropper;
  ACTree;
  If(FindColorSpiralTolerance(x, y, ACTree, MSX1,MSY1,MSX2,MSY2, 20)) then
  begin
    MakeCompass(Random(100));
    mmouse(x,y,3,3);
    if(waituptext('ree',50+random(75))) or (waituptext('ak',300+random(300))) then
    begin
      I := InvCount;
      GetMousePos(x,y);
      mouse(x,y,3,3,true);
      Wait(10+Random(20))
      Flag;
      MarkTime(O);
      Wait(1000+Random(200))
      MTB.X1:= MSCX-100;
      MTB.Y1:= MSCX-100;
      MTB.X2:= MSCX+100;
      MTB.Y2:= MSCX+100;
      while (PixelShift(MTB, 1000) <= 4000) and (Not(InvFull)) and (TimeFromMark(O) < 60000) do Anti;
      T := InvCount;
      K := T-I;
      Chopped := Chopped +K;
      if(invfull) then Dropper;
    end;
  end;
end;


Procedure ScriptTerminate;
begin
Writeln('|===Junkj"s [P]ower [M]iner [Or] [W]oodcutter');
Writeln('|Ran for ' + TimeRunning);
Case Lowercase(Players[0].strings[1]) of
 'mine': Writeln('|Mined ' + IntToStr(Mined) + ' ore and gained Approx. ' + IntToStr(Mined*(StrToInt(XPG))) + ' XP');
 'chop': Writeln('|Chopped ' + IntToStr(Chopped) + ' and gained Approx. ' + IntToStr(Chopped*25) + ' XP');
end;
Writeln('|Did ' + IntToStr(Loads) + ' Loads');
Writeln('|CopyRighted PMOW© by the original creater: JunkJ®');
Writeln('========THANK-JOO-FOR-USING-MY-SCRIPT========');
end;

Procedure DeclareStuff;
begin
  case Lowercase(Players[currentplayer].strings[0]) of
    'iron': XPG := '35';
    'copper': XPG := '17.5';
    'tin': XPG := '17.5';
  end;
  case Lowercase(Players[currentplayer].strings[0]) of
      'iron': ColorInt := ACIron;
      'copper': ColorInt := ACCopper;
      'tin': ColorInt := ACTin;
  end;
end;

Procedure DeclareA;
begin
  Case (Lowercase(Players[CurrentPlayer].Strings[1])) of
    'chop' : Chopping;
    'mine' : MineIt;
  end;
end;


begin
  SetUpSRL;
  ActivateClient;
  ClearDebug;
  Disguise('PMOW© by JunkJ®')
  DeclarePlayers;
  GraphicsSet:= True;
  DeclareStuff;
  If(Not(Loggedin))Then loginplayer;
  Repeat
    DeclareA;
  Until(Mined >= Players[CurrentPlayer].integers[0]) or (Chopped >= Players[CurrentPlayer].integers[0])
end.

No.

Looks good, I'll go more in depth when I can. One thing I can point out tho, is your dropper procedure. It can be shortened like this:

Procedure Dropper;
begin
  If(Not(Players[CurrentPlayer].Booleans[0])) then
    DropFT(2, 28)
  else
    DropFT(1, 28);
end;

~Camo

You need to go read a multiplayers tutorial. Your script will only do one load of one player, and then it will just stop. Plus you need a progress report that shows all of those players with a loop. Go check out color records to condense your autocoloring into one function.
No.

I am 90% towards yes on this one. You have a lot to learn, but you have potentional and will learn much quicker as a SRL Member. I think some of your procedures are oddly made though..
I'll hold my vote

procedure Anti; forward;

Procedure LvlProof;
begin
  SaveScreenshot('Yea');
  ClickToContinue;
  Anti;
end;

Procedure Anti;

Or you could just switch the procedures. As in reorder them.

I'll look into more.

Doesn't look like you've learned anything in the time I was gone…

No.

OK. This is your fifth app? Maybe you should see why.

Multiplayer? No
DTM/Bitmaps? No
Walking? No
TPAs? Hell of a lot, it looks like this script was made to show off TPAs, and only TPAs. And they are all auto colour?

This is a no, I'm sorry, but you need to make a script that shows what you know about SRL and SCAR and scripting in general. Everything or as much as you can. Don't just show off with TPAs, put everything in.

Please make a script to include all that I have said, and re-apply next month.

Hope you learn more soon :)

~bionicle

Well, I feel that this is a fairly decent start however it does not meet the requirements for what you need to become a member.

A simple 'power' skilling script is not sufficent as it demonstrates a very simple understanding of scripting.

Try focussing on one area and adding banking. Plus every procedure and/or function should be all fully your OWN work.

We, here at SRL, appreciate your application but better luck next time!

Here, all the comments are in the script. I'm saying a no at this point, need a little more training. The case work I did isn't very good standards cause I did it in GEdit.

program PMOW;
{.Include SRL/SRL.SCAR}
{.Include SRL/SRL/Skill/WoodCutting.SCAR}

// ******************* The text below really needs to be cleaned up a bit

////////////////////////////////////Information/////////////////////////////////
//Chopping : I near perfected this procedure and it should work fine in a
//Forest type place where nobody is and no NPC is anywhere in sight. Only chops
//Trees or oaks. No one would drop willows or yews. Crazy people would.
//Mining : Works, i used it plenty of times. Chops Iron, Copper or Tin.(<-Smarter Child)
//NOTE*** This is a "bit more than beta" version. Don't expect it to be AWESOME!
////////////////////////////////////////////////////////////////////////////////
// Made by Junkj// Made by Junkj// Made by Junkj// Made by Junkj// Made by Junkj
////////////////////////////////////////////////////////////////////////////////

//Global Vars
Var Mined, Chopped, loads, ColorInt :integer;
Var XPG :string;

{****************************************************
You don't need two different Vars
var
  XPG : String;
  Mined, Chopped, loads, ColorInt : Integer;

^ That's better
}

///////////////////////////////////SETUP////////////////////////////////////////
/////////////////////InfoBox////////////////////
// Put your (pick)axe in inventory slot one   //
// and go to a mine/forrest and run the script//
////////////////////////////////////////////////
procedure DeclarePlayers;
begin
  HowManyPlayers:= 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
           ///// fill all of below in
  Players[0].Name    := 'f'; // username
  Players[0].Pass    := 'y'; //password
  Players[0].Nick    := 'i';   //3-4 letters of your name. No first letter or caps
  Players[0].Active  := true; //if it's active
  Players[0].strings[0]:= 'copper'; //what rock you mining? copper, iron or tin(If mining)
  Players[0].strings[1]:= 'chop';  // chop or mine
  Players[0].integers[0]:= 10; // ore/logs to mine/chop
  Players[0].booleans[0] := False; //Is your axed equiped? If not read InfoBox ^^^
end;
////////////////////////////END//OF//SETUP//////////////////////////////////////

{ ******************** You really need to implement Multiplayer into this script
Also, I suggest you add what type of tree to cut and add more rocks than just 
copper, iron and tin
}

Procedure LogCheck;
begin
  If(Not(Loggedin))Then
  begin
    Writeln('Logged out somehow, terminating...');
    TerminateScript;
  end;
end;

procedure Anti; forward;

Procedure LvlProof;
begin
  SaveScreenshot('Yea');
  ClickToContinue;
  Anti;
end;

Procedure Anti;
begin
  LogCheck;
  FindNormalRandoms;
  If(ClickContinue(false, true)) then LvlProof;
  case random(40) of
    0:HoverSkill('Random',false);

    1:SleepAndMoveMouse(1000+random(500));

    2:RandomRClick;

    3:PickUpMouse;

    4:RandomMovement;
  end;
  wait(100+random(100))
end;

function ACIron: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1711918, MSX1, MSY1, MSX2, MSY2, 24);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToHSL(arC[i], H, S, L);

    if (H >= 3.83) and (H <= 4.92) and (S >= 28.55) and (S <= 29.65) and (L >= 8.80) and (L <= 19.24) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 0.81) and (X <= 3.20) and (Y >= 0.74) and (Y <= 2.85) and (Z >= 0.57) and (Z <= 1.99) then
      begin
        Result := arC[i];
        Break;
      end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

function ACCopper: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 4621284, MSX1, MSY1, MSX2, MSY2, 32);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToHSL(arC[i], H, S, L);

    if (H >= 6.33) and (H <= 6.46) and (S >= 56.89) and (S <= 97.79) and (L >= 51.74) and (L <= 64.92) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 31.45) and (X <= 52.03) and (Y >= 25.38) and (Y <= 41.71) and (Z >= 7.78) and (Z <= 12.53) then
      begin
        Result := arC[i];
        Break;
      end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

function ACTin: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  FindColorsSpiralTolerance(MMCX, MMCY, arP, 9671834, MMX1, MMY1, MMX2, MMY2, 24);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToHSL(arC[i], H, S, L);

    if (H >= 0.00) and (H <= 2.40) and (S >= 2.52) and (S <= 4.42) and (L >= 53.71) and (L <= 64.33) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 23.62) and (X <= 35.26) and (Y >= 24.33) and (Y <= 36.37) and (Z >= 25.98) and (Z <= 38.43) then
      begin
        Result := arC[i];
        Break;
      end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

{**************** The Autocolor is good, but I suggest you learn TPA's }

Procedure DropFT(FromS, ToE : integer);
Var I :Integer;
Begin
  If(InvEmpty) Then Exit;
  GameTab(tab_inv);
  For I:= FromS To ToE do
    DropItem(I);
end;

{******** Already showed you how you could do this better, but again }
Procedure Dropper;
begin
  if(not(Players[CurrentPlayer].Booleans[0]))then
    DropFT(2, 28)
  else
    DropFT(1, 28);
end;

{************ This could use some standards work }
procedure MineIt;
var X, Y, I, E :integer;
begin
  if(not(loggedin))then exit;
  if(invfull) then Dropper;
  findcolorspiraltolerance(x, y, ColorInt, msx1, msy1, msx2, msy2, 20);
  mmouse(x,y,3,3);
  if(waituptext('ine',300+random(300)))then
  begin
    GetMousePos(x, y);
    mouse(x,y,3,3,true);
    i := InvCount;
    MarkTime(E);
    while (InvCount = i) and (TimeFromMark(E) < Players[currentplayer].integers[1]) do Anti;
    if(not(invcount = i)) then Mined:=Mined+1
  end;
end;

{********* What trees are these for? Add choice of a tree }
function ACTree : integer;
var
  Acolor :integer;
begin
  Case Random(5) of
    0 : Acolor := 6267798;
    1 : Acolor := 1390897;
    2 : Acolor := 2839627;
    3 : Acolor := 4548957;
    4 : Acolor := 5796195;
  end;
  Result := Acolor;
end;

Procedure Chopping;
{********* You don't need two vars.... }
Var 
  MTB :Tbox;
  X, Y, I, T, K, O :integer;
begin
  if(not(loggedin))then exit;
  if(invfull) then Dropper;
  ACTree;
  If(FindColorSpiralTolerance(x, y, ACTree, MSX1,MSY1,MSX2,MSY2, 20)) then
  begin
    MakeCompass(Random(100));
    mmouse(x,y,3,3);
    if(waituptext('ree',50+random(75))) or (waituptext('ak',300+random(300))) then
    begin
      I := InvCount;
      GetMousePos(x,y);
      mouse(x,y,3,3,true);
      Wait(10+Random(20))
      Flag;
      MarkTime(O);
      Wait(1000+Random(200))
      MTB.X1:= MSCX-100;
      MTB.Y1:= MSCX-100;
      MTB.X2:= MSCX+100;
      MTB.Y2:= MSCX+100;
      while (PixelShift(MTB, 1000) <= 4000) and (Not(InvFull)) and (TimeFromMark(O) < 60000) do Anti;
      T := InvCount;
      K := T-I;
      Chopped := Chopped +K;
      if(invfull) then Dropper;
    end;
  end;
end;


Procedure ScriptTerminate;
begin
Writeln('|===Junkj"s [P]ower [M]iner [Or] [W]oodcutter');
Writeln('|Ran for ' + TimeRunning);
Case Lowercase(Players[0].strings[1]) of
 'mine': Writeln('|Mined ' + IntToStr(Mined) + ' ore and gained Approx. ' + IntToStr(Mined*(StrToInt(XPG))) + ' XP');
 'chop': Writeln('|Chopped ' + IntToStr(Chopped) + ' and gained Approx. ' + IntToStr(Chopped*25) + ' XP');
end;
Writeln('|Did ' + IntToStr(Loads) + ' Loads');
Writeln('|CopyRighted PMOW© by the original creater: JunkJ®');
Writeln('========THANK-JOO-FOR-USING-MY-SCRIPT========');
end;

Procedure DeclareStuff;
{********** You don't need two different cases for this }
begin
  case Lowercase(Players[currentplayer].strings[0]) of
    'iron': 
      begin
	XPG := '35';
	ColorInt := ACIron;
      end;
    'copper': 
      begin
	XPG := '17.5';
	ColorInt := ACCopper;
      end;
    'tin':
      begin
	XPG := '17.5';
	ColorInt := ACTin;
      end;
  end;
end;

Procedure DeclareA;
begin
  Case (Lowercase(Players[CurrentPlayer].Strings[1])) of
    'chop' : Chopping;
    'mine' : MineIt;
  end;
end;


begin
  SetUpSRL;
  ActivateClient;
  ClearDebug;
  Disguise('PMOW© by JunkJ®')
  DeclarePlayers;
  GraphicsSet:= True;
  DeclareStuff;
  If(Not(Loggedin))Then loginplayer;
  Repeat
    DeclareA;
  Until(Mined >= Players[CurrentPlayer].integers[0]) or (Chopped >= Players[CurrentPlayer].integers[0])
end.

~Camo

You guys are cool.

From: Junkj
You guys are cool.

Yes, in fact we are. Thank you.

Your script wasn't up to members standards.

Sorry.

From: Junkj
You guys are cool.

Don't make me feel bad. :(…
If you wanna learn some, you can ask me or something to help you on IRC? :(

From: Junkj
You guys are cool.

Yeah man, as Timer rightly says… We're here to help!
Maybe read a few tutorials on what it takes to be an SRL Member.

With that attitude you definitely won't get in.

I think you used a better script for your last application, but I don't notice you taking in the feedback given.

Go through all your applications and actually read what was said and try improving on it.

In your script, I mainly see autocolours, which I think the code is generated for you. (Not too sure on this as I haven't used them myself). The rest of the code just isn't enough to fill the Member Standards. As I said, read the feedback in your previous apps.

Sorry.

Conclusion: No.
Sorry, learn more about good attitude and more about srl functions

To be fair guys.. We don't know if that comment he made is actually a bad attitude or not. Its hard to interpret.

I think the guy is just frustrated - this being his 5th app?

But dude, keep at it!

From: 0wn 4 skill
To be fair guys.. We don't know if that comment he made is actually a bad attitude or not. Its hard to interpret.

I think the guy is just frustrated - this being his 5th app?

But dude, keep at it!

Kind of obvious he was using sarcasm..

Well yeah you say that.. But this is the internet. Things can be interpreted widely..

For example:

Thanks a lot Timer for that comment.

How does that sound? It can be interpreted as good and bad unfortunately :(

Anyways.. MEOW, im done being serious now lol

From: 0wn 4 skill
Well yeah you say that.. But this is the internet. Things can be interpreted widely..

For example:



How does that sound? It can be interpreted as good and bad unfortunately :(

Anyways.. MEOW, im done being serious now lol

He went offline as soon as he said it = Rage Quit. It was sarcasm.

I demand satisfaction! Pistols at dawn?

From: 0wn 4 skill
I demand satisfaction! Pistols at dawn?

Back on topic please, before we both get infractions.

I vote yes, You seem to have a decent attitude around the forums, you seem active and you have some obvious determination by you volume of apps.
13 years old and already doing this well, of course you're not a Timer, but who can be? :p
Keep it up, in your next app just add everything the members are suggesting in this one and I would say you'll be a shoe in.

It's actually my sixth app. I was actually BANNED on the IRC for 3 days. So much for help. Everyone was also AFK on the jnrpms too.

From: Junkj
It's actually my sixth app.
I was actually BANNED on the IRC for 3 days. So much for help. Everyone was also AFK on the jnrpms too.

Well do you take into account what people are suggesting you do?

Also
I only saw two junior member scripts in the first page. And my new scripts always sink to the bottom. LRK, RMDOS, Dread cutter and now PMOW.

If people post on the thread it goes up. If they dont, and other threads get posted on, it goes down.
Hell, you can even post on your own thread as a bump , but THEN DELETE THE POST. And it will still be at the top.

From: YoHoJo
If people post on the thread it goes up. If they dont, and other threads get posted on, it goes down.
Hell, you can even post on your own thread as a bump , but THEN DELETE THE POST. And it will still be at the top.

I think the tester's eye is more appealed to Member scripts then Junior member scripts. I only had 1 person test my script and it was Marpis.

From: Brain
I vote yes, You seem to have a decent attitude around the forums, you seem active and you have some obvious determination by you volume of apps.
13 years old and already doing this well, of course you're not a Timer, but who can be? :p
Keep it up, in your next app just add everything the members are suggesting in this one and I would say you'll be a shoe in.

Be a Timer? hahahah! I'm gunna start posting that..
"No. Be a Timer!" :D
I don't remember how old i was when I got SRL members.. 11 I think.

From: Junkj
I was actually BANNED on the IRC for 3 days. So much for help. Everyone was also AFK on the jnrpms too.

You were banned on the irc because you were being particularly annoying. Attempting to rap and flood the irc is not asking for help :| I'm sure if you dont do that, you would be welcome.

From: noidea
You were banned on the irc because you were being particularly annoying. Attempting to rap and flood the irc is not asking for help :| I'm sure if you dont do that, you would be welcome.

I was not flooding the IRC. I was asking what a core was and everyone was like "wtf dude, cmon". Now i figures out it reduces lag.

you don't actually write anything that requires any skill. You use ACA for your TPA's, and the rest of the script is antiban and simple dropping functions.

I personally think that you have the skill required to obtain members, you just have not found a way to translate it into code yet.

My suggestions for you:

- learn map walking
- learn custom TPA's
- drop the autocolor aid bullshit (use it to get hue/sat mods but nothing more)
- create a script that has banking in it.
- read other peoples scripts so you can get an understanding of what your script should look like.

there's a lot more to suggest but that's as far as I will go for now. Don't give up, don't get down, and don't say something you will regret. Getting turned down 6 times means your showing an unwillingness to change, and I would advise you to read the 6 apps, look at the suggestions, look at the scripts you made and aspire to do better.

junkj, just because we're members does not mean people use our scripts. :(

i dont think iv gotten one legit proggy/ feedback out of any of my RS scripts

anyways, i know your good enough to get members, just add on to this script :)

make it walk and bank at certain locations, or make a rimmy miner/cutter seller. if you successfully make something like that, i can guarantee you will get it :)

obviously, take every thing into account that others have said, (and make your own auto color ;p)

im also not voting

you should see all the unused scripts in the members section :p

From: Brain
you should see all the unused scripts in the members section :p

lol, so true [/offtopic]

From: Brain
you should see all the unused scripts in the members section :p

Many people's votes seem to say that he shouldn't see them :)

Junkj, I'm going to be completely honest.

Drop the small attitude, as you'll never get my vote doing what you just did.
Sure, I can understand your frustration. But it's really, really the wrong way to go.
Script wise, you got potential, just stick with it.
Giving up is the same as epic fail, which you don't want, trust me.

Hang in there buddy, don't give up.