SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
A little C++ and some Java, Visual Basic and I started learning Python.


Are you a member of any other communities?
No.


Tell us about yourself…

From: Aeon C
I'm a 13 year old boy living in Marseilles (southern France).
I played RuneScape before but looked for cheats and got a virus, got hacked, and then gave up RuneScape.

Played WoW for a few years and then I went back a little to RuneScape. Looking for cheats again, I was a little bit more careful and found villavu (or SRL ?).
_____________________________

The script below is my first script but I updated it with help from many sides, learning tutorials and using tools.

Thanks to all the people who helped me.

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

{
  Version history :

  V0.1 Beta : the first time I actually scripted.
              it had nothing apart from :
              logging in, chopping a tree, dropping the log.
              
  V0.1      : The ^Updated^ version of the 0.1 Beta
              included the fixes of people from Villavu
              and #SRL irc channel.
              
  V0.2      : Added some little anti randoms.
              Added proper credits and some fixes to FACT
              
  V0.3.5    : Added the Willow Chopping and banking option.
              Added WTB and WTW.
              Added some autocoloring which I got from Auto Color Aid v2.
              Fixed a major bug.
}

program SPC;
{.include SRL/SRL.scar} //Thanks for the help ian.
{.include SRL/SRL/misc/users.scar} //Thanks for the help ian.

var
  x,y,LogsCut,AxeDTM,LogDTM,ABP,TI: Integer; //Thanks for the help Sabzi for
                                             //changing '=' to ':'.
  StartTime,PL: string;
  
  
procedure Setup;
begin
  Writeln('Starting up the script');
  SetupSRL;
  AxeDTM := DTMFromString('78DA63AC606060C86140011EF6C60CFF81342' +
       '310FF0702C61220238E010D302291401A64461901350540228B80' +
       '9A7C20514E404D3D904827A0A61648C4E357030056B70BE4');
  LogDTM := DTMFromString('78DA637466626078CA8002FCAD1519FE03694' +
       '620FE0F048C2E4035B719D000231209A42D806AEE1250630254F3' +
       '84801A73A09AB704D4D803D57C20A0C607A8E60D0135814035CF8' +
       '930E7217E3500A2A81037');
  SRLPlayerForm(true,['Axe Equipped ?','List credits in Progress Report?','Power chop or willows ? (false = willows true = power chop)'],
                     ['Logs to cut ?','Seconds to chop down a tree ? (Estimation)'],[],[]);
  if not(Players[CurrentPlayer].Booleans[2]) then
  begin
    Writeln('Chopping willows in Draynor.');
    PL := 'B';
  end else;
  begin
    Writeln('Powerchopping normal trees.');
  end;
  LoginPlayer;
  Wait(400+random(200));
  FindNormalRandoms;
  if not (Players[CurrentPlayer].Booleans[1]) then
  begin
    if FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      Writeln('Axe was found.');
    end else
    begin
      Writeln('Axe not found. Terminating.');
      TerminateScript;
    end;
  end else
  begin
    Gametab(tab_Equip);
    Wait(50+random(25));
    if FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      Writeln('Axe was found.');
    end else
    begin
      Writeln('Axe not found. Terminating.');
      TerminateScript;
    end;
  end;
end;

function AutoColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 3.18) and (X <= 3.22) and (Y >= 2.60) and (Y <= 2.64) and (Z >= 0.77) and (Z <= 0.81) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

function AutoColor2: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 4.17) and (X <= 4.21) and (Y >= 4.23) and (Y <= 4.27) and (Z >= 4.45) and (Z <= 4.49) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

procedure WTW;
begin
  if not (LoggedIn) then
  begin
    Writeln('Not logged in...');
    Writeln('Logging in player.');
    LoginPlayer;
    FindNormalRandoms;
    Wait(300+random(100));
  end;
  if not(Players[CurrentPlayer].Booleans[2]) then
  begin
    if (PL = 'B') then
    begin
      MakeCompass('W');
      RadialWalk(AutoColor,270,0,72,0,0);
      FindNormalRandoms;
      Flag;
    end;
  end;
  PL := 'W';
end;
    
procedure WTB;
begin
  if not (LoggedIn) then
  begin
    Writeln('Not logged in...');
    Writeln('Logging in player.');
    LoginPlayer;
    FindNormalRandoms;
    Wait(300+random(100));
  end;
  if (PL = 'W') then
  begin
    case random(4) of
    0:
      begin
        MakeCompass('N');
        RadialWalk(Autocolor2,0,90,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    1:
      begin
        MakeCompass('E');
        RadialWalk(Autocolor2,250,300,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    2:
      begin
        MakeCompass('S');
        RadialWalk(Autocolor2,160,235,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    3:
      begin
        MakeCompass('W');
        RadialWalk(Autocolor2,70,120,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    end;
  end else
  begin
    Writeln('Player should be at willows.');
    TerminateScript;
  end;
end;

procedure AB;
begin
  case Random(46) of
    0..10    : BoredHuman; //Fixed all the case number lines thanks to R1ch
    11..17   : RandomMovement;
    18..24   : HoverSkill('woodcutting',false); //Fixed with the help of Sabzi (added ",false")
    25..31   : HoverSkill('random',false); //Fixed with the help of Sabzi (added ",false")
    32..38   : PickUpMouse;
    39..45   : MakeCompass(IntToStr(0+random(360)));
  end;
  Inc(ABP);
end;

procedure FACT;
begin
  if not(Players[CurrentPlayer].Booleans[2]) then
    exit;
  TI := 0;
  if not(LoggedIn) then
  begin
    Writeln('Something is wrong, you arent logged in for the procedure : FACT');
    LoginPlayer;
    FindNormalRandoms;
  end;
  if (FindObjCustom(x,y,['ree','Tree','Chop down Tree','down Tree'],[1192491,3431805,930345,1649980],10)) then
  begin
    Writeln('Tree found');
    begin
      if IsUpText('ree') then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,true);
        FindNormalRandoms;
        repeat
          Wait(1000+random(230));
          case Random(10) of
            1,2: AB
          end;
          Inc(TI);
        until(FindDTM(LogDTM,x,y,MIX1,MIY1,MIX2,MIY2) or (TI = Players[CurrentPlayer].Integers[1]));
        Mouse(x,y,3,3,false);
        ChooseOption('rop');
        Disguise(IntToStr(LogsCut)+' '+IntToStr(LogsCut*25)+' '+TimeRunning);
      end;
    end;
  end else
  begin
    Writeln('Did not find tree...');
    TerminateScript;
  end;
  Inc(LogsCut); //Changed from LogsCut:=LogsCut+1 thanks for Sabzi
end;

procedure FACW;
begin
  if (Players[CurrentPlayer].Booleans[2]) then
    exit;
  TI := 0;
  if not(LoggedIn) then
  begin
    Writeln('Something is wrong, you arent logged in for the procedure : FACW');
    LoginPlayer;
    FindNormalRandoms;
  end;
  if (FindObjCustom(x,y,['low','Willow','Chop down Willow','down Willow'],[1451819,132356,858131,2372909],10)) then
  begin
    Writeln('Willow found');
    begin
      if IsUpText('llow') then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,true);
        FindNormalRandoms;
        repeat
          Wait(1000+random(230));
          case Random(10) of
            1,2: AB
          end;
          Inc(TI);
        until(FindDTM(LogDTM,x,y,MIX1,MIY1,MIX2,MIY2) or (TI = Players[CurrentPlayer].Integers[1]));
        Mouse(x,y,3,3,false);
        ChooseOption('rop');
        Disguise(IntToStr(LogsCut)+' '+IntToStr(LogsCut * (375/10))+' '+TimeRunning);
      end;
    end;
  end else
  begin
    Writeln('Did not find Willow trees...');
    TerminateScript;
  end;
  Inc(LogsCut); //Changed from LogsCut:=LogsCut+1 thanks for Sabzi
end;

procedure WPRT;
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  Writeln('You have cut : '+Inttostr(LogsCut)+' logs.');
  Writeln('You have gained : '+Inttostr(LogsCut * 25)+' exp.');
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

procedure WPRW;
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  Writeln('You have cut : '+Inttostr(LogsCut)+' willows.');
  Writeln('You have gained : '+Inttostr(LogsCut * (375/10))+' exp.');
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

procedure ScriptTerminate;
begin
  FreeDTM(AxeDTM);
  FreeDTM(LogDTM);
  if (LoggedIn) then
    Logout;
  if not(Players[CurrentPlayer].Booleans[2])then
  begin
    Writeln('Hope you enjoyed SPC by Aeon C.');
    WPRW;
  end else
  begin
    Writeln('Hope you enjoyed SPC by Aeon C.');
    WPRT;
  end;
  if (Players[CurrentPlayer].Booleans[1]) then
  begin
    Writeln('Simple Power Cutter written by Aeon C.');
    Writeln('Alot of help from people at the #SRL irc channel.');
    Writeln('Also lots of help from people on villavu.');
    Writeln('======================================');
    Writeln('Special Thanks :');
    Writeln('Mayazcherquoi : first person I met on the forums.');
    Writeln('Mayazcherquoi : for answering sooo many questions.');
    Writeln('ian. fixed errors in the script.');
    Writeln('Sabzi fixed errors in the script.');
    Writeln('R1ch shortened the script.');
    Writeln('Zephyr informed me about TheTime and TheDate.');
    Writeln('======================================');
  end;
end;

begin
  Setup;
  repeat
    if (Players[CurrentPlayer].Booleans[2]) then
    begin
      FACT;
      WPRT;
    end else
    begin
      WTW;
      FACW;
      WPRW;
      WTB;
    end;
  until(LogsCut = Players[CurrentPlayer].Integers[1]);
  TerminateScript; //To make sure what's listed in ScriptTerminate happens.
end.

Post count is too low, sorry voted no.

I believe the Autocolors all have been done by Autocoloraid. It's not bad, it's having lots of lines in the script, and that's making it look like it's >50% autocolor functions ;) The rest is quite basic.. Sorry, I have to vote no, but make your own autocolor functions, expand it a little, and you have the full potential to become an SRL Member. :)

-Laurens

I can see that you are learning to script here, and you have a few useful procedures, but thats all they are at the moment, they do not combine to make a functioning script yet.

With your woodcutting procedures too, you can easily use a case to reduce the lines needed for the cutting procedures.

I'm going to have to vote no.

EDIT: Progress Report can be shortened;

procedure ProgressReport;
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  if Players[CurrentPlayer].Booleans[0] then
  begin
    Writeln('You have cut : '+Inttostr(LogsCut)+' logs.');
    Writeln('You have gained : '+Inttostr(LogsCut * 25)+' exp.');
  end else
    Writeln('You have cut : '+Inttostr(LogsCut)+' willows.');
    Writeln('You have gained : '+Inttostr(LogsCut * (375/10))+' exp.');
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

You have

end else;

should be

end else

Also, I made the script compile;

program SPC;
{.include SRL/SRL.scar}
{.include SRL/SRL/misc/users.scar}
var
  x,y,LogsCut,AxeDTM,LogDTM,ABP,TI: Integer; //Thanks for the help Sabzi for
                                             //changing '=' to ':'.
  StartTime,PL: string;


procedure Setup;
begin
  Writeln('Starting up the script');
  SetupSRL;
  AxeDTM := DTMFromString('78DA63AC606060C86140011EF6C60CFF81342' +
       '310FF0702C61220238E010D302291401A64461901350540228B80' +
       '9A7C20514E404D3D904827A0A61648C4E357030056B70BE4');
  LogDTM := DTMFromString('78DA637466626078CA8002FCAD1519FE03694' +
       '620FE0F048C2E4035B719D000231209A42D806AEE1250630254F3' +
       '84801A73A09AB704D4D803D57C20A0C607A8E60D0135814035CF8' +
       '930E7217E3500A2A81037');
  SRLPlayerForm(true,['Axe Equipped ?','List credits in Progress Report?','Power chop or willows ? (false = willows true = power chop)'],
                     ['Logs to cut ?','Seconds to chop down a tree ? (Estimation)'],[],[]);
  if not(Players[CurrentPlayer].Booleans[2]) then
  begin
    Writeln('Chopping willows in Draynor.');
    PL := 'B';
  end else
  begin
    Writeln('Powerchopping normal trees.');
  end;
  LoginPlayer;
  Wait(400+random(200));
  FindNormalRandoms;
  if not (Players[CurrentPlayer].Booleans[1]) then
  begin
    if FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      Writeln('Axe was found.');
    end else
    begin
      Writeln('Axe not found. Terminating.');
      TerminateScript;
    end;
  end else
  begin
    Gametab(tab_Equip);
    Wait(50+random(25));
    if FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      Writeln('Axe was found.');
    end else
    begin
      Writeln('Axe not found. Terminating.');
      TerminateScript;
    end;
  end;
end;

function AutoColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 3.18) and (X <= 3.22) and (Y >= 2.60) and (Y <= 2.64) and (Z >= 0.77) and (Z <= 0.81) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

function AutoColor2: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 4.17) and (X <= 4.21) and (Y >= 4.23) and (Y <= 4.27) and (Z >= 4.45) and (Z <= 4.49) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

procedure WTW;
begin
  if not (LoggedIn) then
  begin
    Writeln('Not logged in...');
    Writeln('Logging in player.');
    LoginPlayer;
    FindNormalRandoms;
    Wait(300+random(100));
  end;
  if not(Players[CurrentPlayer].Booleans[2]) then
  begin
    if (PL = 'B') then
    begin
      MakeCompass('W');
      RadialWalk(AutoColor,270,0,72,0,0);
      FindNormalRandoms;
      Flag;
    end;
  end;
  PL := 'W';
end;

procedure WTB;
begin
  if not (LoggedIn) then
  begin
    Writeln('Not logged in...');
    Writeln('Logging in player.');
    LoginPlayer;
    FindNormalRandoms;
    Wait(300+random(100));
  end;
  if (PL = 'W') then
  begin
    case random(4) of
    1:
      begin
        MakeCompass('N');
        RadialWalk(Autocolor2,0,90,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    2:
      begin
        MakeCompass('E');
        RadialWalk(Autocolor2,250,300,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    3:
      begin
        MakeCompass('S');
        RadialWalk(Autocolor2,160,235,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    4:
      begin
        MakeCompass('W');
        RadialWalk(Autocolor2,70,120,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    end;
  end else
  begin
    Writeln('Player should be at willows.');
    TerminateScript;
  end;
end;

procedure AB;
begin
  case Random(46) of
    0..10    : BoredHuman; //Fixed all the case number lines thanks to R1ch
    11..17   : RandomMovement;
    18..24   : HoverSkill('woodcutting',false); //Fixed with the help of Sabzi (added ",false")
    25..31   : HoverSkill('random',false); //Fixed with the help of Sabzi (added ",false")
    32..38   : PickUpMouse;
    39..45   : MakeCompass(IntToStr(0+random(360)));
  end;
  Inc(ABP);
end;

procedure FACT;
begin
  if not(Players[CurrentPlayer].Booleans[2]) then
    exit;
  TI := 0;
  if not(LoggedIn) then
  begin
    Writeln('Something is wrong, you arent logged in for the procedure : FACT');
    LoginPlayer;
    FindNormalRandoms;
  end;
  if (FindObjCustom(x,y,['ree','Tree','Chop down Tree','down Tree'],[1192491,3431805,930345,1649980],10)) then
  begin
    Writeln('Tree found');
    begin
      if IsUpText('ree') then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,true);
        FindNormalRandoms;
        repeat
          Wait(1000+random(230));
          case Random(10) of
            1,2: AB
          end;
          Inc(TI);
        until(FindDTM(LogDTM,x,y,MIX1,MIY1,MIX2,MIY2) or (TI = Players[CurrentPlayer].Integers[1]));
        Mouse(x,y,3,3,false);
        ChooseOption('rop');
        Disguise(IntToStr(LogsCut)+' '+IntToStr(LogsCut*25)+' '+TimeRunning);
      end;
    end;
  end else
  begin
    Writeln('Did not find tree...');
    TerminateScript;
  end;
  Inc(LogsCut); //Changed from LogsCut:=LogsCut+1 thanks for Sabzi
end;

procedure FACW;
begin
  if not LoggedIn then
  begin
    Writeln('Something is wrong, you arent logged in for the procedure : FACW');
    LoginPlayer;
    FindNormalRandoms;
  end;
  if (FindObjCustom(x,y,['low','Willow','Chop down Willow','down Willow'],[1451819,132356,858131,2372909],10)) then
  begin
    Writeln('Willow found');
    begin
      if IsUpText('llow') then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,true);
        FindNormalRandoms;
        repeat
          Wait(1000+random(230));
          case Random(10) of
            1,2: AB
          end;
          Inc(TI);
        until(FindDTM(LogDTM,x,y,MIX1,MIY1,MIX2,MIY2) or (TI = Players[CurrentPlayer].Integers[1]));
        Mouse(x,y,3,3,false);
        ChooseOption('rop');
        Disguise(IntToStr(LogsCut)+' '+IntToStr(LogsCut * (375/10))+' '+TimeRunning);
      end;
    end;
  end else
  begin
    Writeln('Did not find Willow trees...');
    TerminateScript;
  end;
  Inc(LogsCut); //Changed from LogsCut:=LogsCut+1 thanks for Sabzi
end;

procedure ProgressReport;
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  if Players[CurrentPlayer].Booleans[0] then
  begin
    Writeln('You have cut : '+Inttostr(LogsCut)+' logs.');
    Writeln('You have gained : '+Inttostr(LogsCut * 25)+' exp.');
  end else
    Writeln('You have cut : '+Inttostr(LogsCut)+' willows.');
    Writeln('You have gained : '+Inttostr(LogsCut * (375/10))+' exp.');
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

procedure ScriptTerminate;
begin
  FreeDTM(AxeDTM);
  FreeDTM(LogDTM);
  if (LoggedIn) then
    Logout;
  ProgressReport
  if (Players[CurrentPlayer].Booleans[1]) then
  begin
    Writeln('Simple Power Cutter written by Aeon C.');
    Writeln('Alot of help from people at the #SRL irc channel.');
    Writeln('Also lots of help from people on villavu.');
    Writeln('======================================');
    Writeln('Special Thanks :');
    Writeln('Mayazcherquoi : first person I met on the forums.');
    Writeln('Mayazcherquoi : for answering sooo many questions.');
    Writeln('ian. fixed errors in the script.');
    Writeln('Sabzi fixed errors in the script.');
    Writeln('R1ch shortened the script.');
    Writeln('Zephyr informed me about TheTime and TheDate.');
    Writeln('======================================');
  end;
end;

begin
  Setup;
  repeat
    if (Players[CurrentPlayer].Booleans[2]) then
    begin
      FACT;
    end else
    begin
      WTW;
      FACW;
      WTB;
    end;
  until(LogsCut = Players[CurrentPlayer].Integers[1]);
  TerminateScript; //To make sure what's listed in ScriptTerminate happens.
end.

I'm sorry, but you have made a few novice errors and have submitted a script that did not compile.

Better luck next time :)

Eh. He gave credit to everyone who helped, and he listened. I think he'll be able to learn a lot, and he wants to learn. :) I like this guy, even though I don't really remember when I helped him, I did, apparently. :) I'll vote yes, because you seem like you want to learn and you know a fair amount, which is pretty important, in my mind.

(Good luck, Aeon. :))

From: cycrosism
Post count is too low, sorry voted no.

Even if the script was brilliant, would you say "no" because of post count. I've seen you give "no" for some strange reasons.

Your attitude and willingness to learn exceeds many current registered users, junior members and even some SRL Members. As is it not the primary reason to vote? Due to his attitude.. WT-Fakawi said so himself :)

Your use of standards is good. You have walking, however, with very little fail-safes. Parts of your script are a bit unnecessary. For example, the procedure's WPRW and WPRT… They're both exactly the same, and un-needed. The procedure's FACT and FACW could've been merged into a case. The case in procedure WTB could've been shortened to:

var
  Cmpss: String;
  r1, r2, I: Integer;
begin
  if not (LoggedIn) then
  begin
    Writeln('Not logged in...');
    Writeln('Logging in player.');
    LoginPlayer;
    FindNormalRandoms;
    Wait(300+random(100));
  end;
  if(not(Uppercase(PL) = 'W')) then
  begin
    Writeln('Player should be at willows.');
    TerminateScript;
  end;
  I := Random(4);
  case (i) of
    0: MakeCompass('n');
    1: MakeCompass('e');
    2: MakeCompass('s');
    3: MakeCompass('w');
  end;
  Wait(300 + Random(250));
  aC := AutoColor2;
  if(not(aC > 0)) then
    Exit;
  case (i) of
    0: RadialWalk(aC, 0, 90, 72, 0, 0);
    1: RadialWalk(aC, 250, 300, 72, 0, 0);
    2: RadialWalk(aC, 160, 235, 72, 0, 0);
    3: RadialWalk(aC, 70, 120, 72, 0, 0);
  end;
  Flag;
  repeat
    OpenBankQuiet('db');
    Inc(TI);
  until((BankScreen)or(TI = 5));
  if (TI = 5) then
  begin
    Writeln('Unable to open bank.');
    TerminateScript;
  end;
  DepositAll;
  CloseBank;

Do you see what i've done there?

A thing i dislike about your script is that you do not properly manage your multi-player. You just terminate your script if one player fails, instead of using the NextPlayer(False) function.. Also, you said you understand the auto colouring, but only the RGB section of it. I've asked you to provide me with an example of this, however, i take your word for it (but i'd still like to see it ;))

Apart from that, i vote a yes :) Good luck ;)

@Cycrosism: That should NOT be a reason to vote no. You know he's been very active on IRC, asks many questions and learns from his mistakes. He's been here for more than 2 weeks (i think, or is it 1?).

EDIT: Just in-case anybody over-looks this, but he uses multi-player, however inefficiently. He uses the SRLPlayerForm to set it up.

Thanks for those who voted yes and no, and gave feedback.

cycrosism : I asked on the Irc if it was a con to be relatively new. They answered no.

Laur€ns : I did use Auto Color Aid v2 for the auto coloring. 84 lines of Autocolor functions in the script ;).

ToF : It did compile, maybe I messed it up with one of my edit fixes… Thanks ;) I'm working on merging procedures into cases, I found it more clear as separate procedures but fine :). I thought I showed I have the knowledge of cases in my functions.

ian. : thank you. I'm not sure I diserve your yes, all I did was suck up your tips and implement them xD.

Dan's The Man : I thought they were more clear as separate procedures :p.
Thank you, you helped me the first day I joined SRL and you still do :).

:) You do deserve it. Being able to accept criticism and change your script to improve with the suggestions is something that will make everyone a better scripter. :) And you seem to truly want to script, which is something that will improve this community in my opinion. :) Best of luck, kind sir.

I see a lot of potential here, and applying with such a script as a Registered User is amazing :)
Learn some more (TPAs for example ;) ), post some more, be friends and talk to some of the higher ranked users (SRL Members+) get to know some people and make them help you improve your script even more and you'll be there in no time!

From: Zyt3x
I see a lot of potential here, and applying with such a script as a Registered User is amazing :)
Learn some more (TPAs for example ;) ), post some more, be friends and talk to some of the higher ranked users (SRL Members+) get to know some people and make them help you improve your script even more and you'll be there in no time!

Well thank you sir. I made this script with alot of tips from SRL Members + :).

Hmm, I'll vote "yes". Good attitude, very talented, and yeah… is there another reason which needs to be mentioned? :D

Even though I would like someone to do an IP check… no offence or anything, I only want to be sure of your talent. :)

In Setup you have:

end else;
  begin
    Writeln('Powerchopping normal trees.');
  end;

No semicolons ";" after else's. Also, a begin/end is only needed if doing more than one statement:

end else
  Writeln('Powerchopping normal trees.');

This could also be cleaned up:

if not (Players[CurrentPlayer].Booleans[1]) then
  begin
    if FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      Writeln('Axe was found.');
    end else
    begin
      Writeln('Axe not found. Terminating.');
      TerminateScript;
    end;
  end else

To

if not (Players[CurrentPlayer].Booleans[1]) then
  begin
    if FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
      Writeln('Axe was found.') else
    begin
      Writeln('Axe not found. Terminating.');
      TerminateScript;
    end;
  end else

It really makes for cleaner and shorter code by not using unnecessary begins/ends.

In WTB, maybe try some different banks instead of using OpenBankQuiet every time:

repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));

Try like:

repeat
          if(not(OpenBankQuiet('db')))then
            OpenBank('db',false,false);
          Inc(TI);
        until((BankScreen)or(TI >= 5));

It would also be better practice to use a >= check for TI instead of =.

The whole WTB function could be shortened a lot by deleting all of those DepositAll and CloseBank's and putting them after the case just one time. Same with the TI check:

procedure WTB;
begin
  if not (LoggedIn) then
  begin
    Writeln('Not logged in...');
    Writeln('Logging in player.');
    LoginPlayer;
    FindNormalRandoms;
    Wait(300+random(100));
  end;
  if (PL = 'W') then
  begin
    case random(4) of
    0:
      begin
        MakeCompass('N');
        RadialWalk(Autocolor2,0,90,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    1:
      begin
        MakeCompass('E');
        RadialWalk(Autocolor2,250,300,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    2:
      begin
        MakeCompass('S');
        RadialWalk(Autocolor2,160,235,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    3:
      begin
        MakeCompass('W');
        RadialWalk(Autocolor2,70,120,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    end;
  end else
  begin
    Writeln('Player should be at willows.');
    TerminateScript;
  end;
end;

To:

procedure WTB;
begin
  if not (LoggedIn) then
  begin
    Writeln('Not logged in...');
    Writeln('Logging in player.');
    LoginPlayer;
    FindNormalRandoms;
    Wait(300+random(100));
  end;
  if (PL = 'W') then
  begin
    case random(4) of
    0:
      begin
        MakeCompass('N');
        RadialWalk(Autocolor2,0,90,72,0,0);
      end;
    1:
      begin
        MakeCompass('E');
        RadialWalk(Autocolor2,250,300,72,0,0);
    2:
      begin
        MakeCompass('S');
        RadialWalk(Autocolor2,160,235,72,0,0);
      end;
    3:
      begin
        MakeCompass('W');
        RadialWalk(Autocolor2,70,120,72,0,0);
      end;
    end;
    Flag;
    repeat
          OpenBankQuiet('db');
          Inc(TI);
    until((BankScreen)or(TI = 5));
    if (TI = 5) then
    begin
      Writeln('Unable to open bank.');
      TerminateScript;
    end;
    DepositAll;
    CloseBank;
  end else
  begin
    Writeln('Player should be at willows.');
    TerminateScript;
  end;
end;

Much shorter and efficient.

in FACW, you have a begin/end in the middle of nowhere for no reason (not after an if/then or an else). You also have a case that is there for no reason too

procedure FACW;
begin
  if (Players[CurrentPlayer].Booleans[2]) then
    exit;
  TI := 0;
  if not(LoggedIn) then
  begin
    Writeln('Something is wrong, you arent logged in for the procedure : FACW');
    LoginPlayer;
    FindNormalRandoms;
  end;
  if (FindObjCustom(x,y,['low','Willow','Chop down Willow','down Willow'],[1451819,132356,858131,2372909],10)) then
  begin
    Writeln('Willow found');
    begin
      if IsUpText('llow') then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,true);
        FindNormalRandoms;
        repeat
          Wait(1000+random(230));
          case Random(10) of
            1,2: AB
          end;
          Inc(TI);
        until(FindDTM(LogDTM,x,y,MIX1,MIY1,MIX2,MIY2) or (TI = Players[CurrentPlayer].Integers[1]));
        Mouse(x,y,3,3,false);
        ChooseOption('rop');
        Disguise(IntToStr(LogsCut)+' '+IntToStr(LogsCut * (375/10))+' '+TimeRunning);
      end;
    end;
  end else
  begin
    Writeln('Did not find Willow trees...');
    TerminateScript;
  end;
  Inc(LogsCut); //Changed from LogsCut:=LogsCut+1 thanks for Sabzi
end;

Change to:

procedure FACW;
begin
  if (Players[CurrentPlayer].Booleans[2]) then
    exit;
  TI := 0;
  if not(LoggedIn) then
  begin
    Writeln('Something is wrong, you arent logged in for the procedure : FACW');
    LoginPlayer;
    FindNormalRandoms;
  end;
  if (FindObjCustom(x,y,['low','Willow','Chop down Willow','down Willow'],[1451819,132356,858131,2372909],10)) then
  begin
    Writeln('Willow found');
    GetMousePos(x,y);
    Mouse(x,y,0,0,true);
    FindNormalRandoms;
    repeat
      Wait(1000+random(230));
      if(Random(10) < 2)then
        AB; //Instead of the case
      Inc(TI);
    until(FindDTM(LogDTM,x,y,MIX1,MIY1,MIX2,MIY2) or (TI = Players[CurrentPlayer].Integers[1]));
    Mouse(x,y,3,3,false);
    ChooseOption('rop');
    Disguise(IntToStr(LogsCut)+' '+IntToStr(LogsCut * (375/10))+' '+TimeRunning);
  end else
  begin
    Writeln('Did not find Willow trees...');
    TerminateScript;
  end;
  Inc(LogsCut); //Changed from LogsCut:=LogsCut+1 thanks for Sabzi
end;

I also took out that second uptext check for llow, because FindObj would have only returned true if that text was up already.

You really should try to combine both of your progress reports into one, because you only change like 1 line in each.

procedure WPRT;
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  Writeln('You have cut : '+Inttostr(LogsCut)+' logs.');
  Writeln('You have gained : '+Inttostr(LogsCut * 25)+' exp.');
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

procedure WPRW;
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  Writeln('You have cut : '+Inttostr(LogsCut)+' willows.');
  Writeln('You have gained : '+Inttostr(LogsCut * (375/10))+' exp.');
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

To:

procedure WPRW(bool: Boolean);
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  if(bool)then
  begin
    Writeln('You have cut : '+Inttostr(LogsCut)+' willows.');
    Writeln('You have gained : '+Inttostr(LogsCut * (375/10))+' exp.');
  end else
  begin
    Writeln('You have cut : '+Inttostr(LogsCut)+' logs.');
    Writeln('You have gained : '+Inttostr(LogsCut * 25)+' exp.');
  end;
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

Now, if you wanted to do the first progress report, you would just call WPRW(true), and false for the second.

In ScriptTerminate, Logout already checks if you are logged in, so no need to check for it again.



That's all I have time for right now. Great job on the script! I would vote yes if you were a little more active in the community and had been here a little longer. I'm probably just going to stay neutral. You seem like a smart guy and I know that you'll get in next time you apply (if you don't get in this time). Just give everyone a chance to get to know you a little better :)

Good luck!
~JAD

From: JAD
In Setup you have:

end else;
  begin
    Writeln('Powerchopping normal trees.');
  end;

No semicolons ";" after else's. Also, a begin/end is only needed if doing more than one statement:

end else
  Writeln('Powerchopping normal trees.');

This could also be cleaned up:

if not (Players[CurrentPlayer].Booleans[1]) then
  begin
    if FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      Writeln('Axe was found.');
    end else
    begin
      Writeln('Axe not found. Terminating.');
      TerminateScript;
    end;
  end else

To

if not (Players[CurrentPlayer].Booleans[1]) then
  begin
    if FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
      Writeln('Axe was found.') else
    begin
      Writeln('Axe not found. Terminating.');
      TerminateScript;
    end;
  end else

It really makes for cleaner and shorter code by not using unnecessary begins/ends.

In WTB, maybe try some different banks instead of using OpenBankQuiet every time:

repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));

Try like:

repeat
          if(not(OpenBankQuiet('db')))then
            OpenBank('db',false,false);
          Inc(TI);
        until((BankScreen)or(TI >= 5));

It would also be better practice to use a >= check for TI instead of =.

The whole WTB function could be shortened a lot by deleting all of those DepositAll and CloseBank's and putting them after the case just one time. Same with the TI check:

procedure WTB;
begin
  if not (LoggedIn) then
  begin
    Writeln('Not logged in...');
    Writeln('Logging in player.');
    LoginPlayer;
    FindNormalRandoms;
    Wait(300+random(100));
  end;
  if (PL = 'W') then
  begin
    case random(4) of
    0:
      begin
        MakeCompass('N');
        RadialWalk(Autocolor2,0,90,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    1:
      begin
        MakeCompass('E');
        RadialWalk(Autocolor2,250,300,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    2:
      begin
        MakeCompass('S');
        RadialWalk(Autocolor2,160,235,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    3:
      begin
        MakeCompass('W');
        RadialWalk(Autocolor2,70,120,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    end;
  end else
  begin
    Writeln('Player should be at willows.');
    TerminateScript;
  end;
end;

To:

procedure WTB;
begin
  if not (LoggedIn) then
  begin
    Writeln('Not logged in...');
    Writeln('Logging in player.');
    LoginPlayer;
    FindNormalRandoms;
    Wait(300+random(100));
  end;
  if (PL = 'W') then
  begin
    case random(4) of
    0:
      begin
        MakeCompass('N');
        RadialWalk(Autocolor2,0,90,72,0,0);
      end;
    1:
      begin
        MakeCompass('E');
        RadialWalk(Autocolor2,250,300,72,0,0);
    2:
      begin
        MakeCompass('S');
        RadialWalk(Autocolor2,160,235,72,0,0);
      end;
    3:
      begin
        MakeCompass('W');
        RadialWalk(Autocolor2,70,120,72,0,0);
      end;
    end;
    Flag;
    repeat
          OpenBankQuiet('db');
          Inc(TI);
    until((BankScreen)or(TI = 5));
    if (TI = 5) then
    begin
      Writeln('Unable to open bank.');
      TerminateScript;
    end;
    DepositAll;
    CloseBank;
  end else
  begin
    Writeln('Player should be at willows.');
    TerminateScript;
  end;
end;

Much shorter and efficient.

in FACW, you have a begin/end in the middle of nowhere for no reason (not after an if/then or an else). You also have a case that is there for no reason too

procedure FACW;
begin
  if (Players[CurrentPlayer].Booleans[2]) then
    exit;
  TI := 0;
  if not(LoggedIn) then
  begin
    Writeln('Something is wrong, you arent logged in for the procedure : FACW');
    LoginPlayer;
    FindNormalRandoms;
  end;
  if (FindObjCustom(x,y,['low','Willow','Chop down Willow','down Willow'],[1451819,132356,858131,2372909],10)) then
  begin
    Writeln('Willow found');
    begin
      if IsUpText('llow') then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,true);
        FindNormalRandoms;
        repeat
          Wait(1000+random(230));
          case Random(10) of
            1,2: AB
          end;
          Inc(TI);
        until(FindDTM(LogDTM,x,y,MIX1,MIY1,MIX2,MIY2) or (TI = Players[CurrentPlayer].Integers[1]));
        Mouse(x,y,3,3,false);
        ChooseOption('rop');
        Disguise(IntToStr(LogsCut)+' '+IntToStr(LogsCut * (375/10))+' '+TimeRunning);
      end;
    end;
  end else
  begin
    Writeln('Did not find Willow trees...');
    TerminateScript;
  end;
  Inc(LogsCut); //Changed from LogsCut:=LogsCut+1 thanks for Sabzi
end;

Change to:

procedure FACW;
begin
  if (Players[CurrentPlayer].Booleans[2]) then
    exit;
  TI := 0;
  if not(LoggedIn) then
  begin
    Writeln('Something is wrong, you arent logged in for the procedure : FACW');
    LoginPlayer;
    FindNormalRandoms;
  end;
  if (FindObjCustom(x,y,['low','Willow','Chop down Willow','down Willow'],[1451819,132356,858131,2372909],10)) then
  begin
    Writeln('Willow found');
    GetMousePos(x,y);
    Mouse(x,y,0,0,true);
    FindNormalRandoms;
    repeat
      Wait(1000+random(230));
      if(Random(10) < 2)then
        AB; //Instead of the case
      Inc(TI);
    until(FindDTM(LogDTM,x,y,MIX1,MIY1,MIX2,MIY2) or (TI = Players[CurrentPlayer].Integers[1]));
    Mouse(x,y,3,3,false);
    ChooseOption('rop');
    Disguise(IntToStr(LogsCut)+' '+IntToStr(LogsCut * (375/10))+' '+TimeRunning);
  end else
  begin
    Writeln('Did not find Willow trees...');
    TerminateScript;
  end;
  Inc(LogsCut); //Changed from LogsCut:=LogsCut+1 thanks for Sabzi
end;

I also took out that second uptext check for llow, because FindObj would have only returned true if that text was up already.

You really should try to combine both of your progress reports into one, because you only change like 1 line in each.

procedure WPRT;
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  Writeln('You have cut : '+Inttostr(LogsCut)+' logs.');
  Writeln('You have gained : '+Inttostr(LogsCut * 25)+' exp.');
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

procedure WPRW;
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  Writeln('You have cut : '+Inttostr(LogsCut)+' willows.');
  Writeln('You have gained : '+Inttostr(LogsCut * (375/10))+' exp.');
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

To:

procedure WPRW(bool: Boolean);
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  if(bool)then
  begin
    Writeln('You have cut : '+Inttostr(LogsCut)+' willows.');
    Writeln('You have gained : '+Inttostr(LogsCut * (375/10))+' exp.');
  end else
  begin
    Writeln('You have cut : '+Inttostr(LogsCut)+' logs.');
    Writeln('You have gained : '+Inttostr(LogsCut * 25)+' exp.');
  end;
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

Now, if you wanted to do the first progress report, you would just call WPRW(true), and false for the second.

In ScriptTerminate, Logout already checks if you are logged in, so no need to check for it again.



That's all I have time for right now. Great job on the script! I would vote yes if you were a little more active in the community and had been here a little longer. I'm probably just going to stay neutral. You seem like a smart guy and I know that you'll get in next time you apply (if you don't get in this time). Just give everyone a chance to get to know you a little better :)

Good luck!
~JAD

Don't really understand the un necessary begins and ends…

if not (Players[CurrentPlayer].Booleans[1]) then
  begin
    if FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
      Writeln('Axe was found.') else
    begin
      Writeln('Axe not found. Terminating.');
      TerminateScript;
    end;
  end else

Can you explain please ?

I'm working on the progress report thing aswell as trying to put all the FACT and FACW into cases.

Won't be on before tomorrow I think.

Thanks again all people who helped me with the script :).

Thank you :).

P.S : How can you like "reward" someone for helping you ? Only Reputation ?

From: Aeon C
Don't really understand the un necessary begins and ends…

Can you explain please ?

P.S : How can you like "reward" someone for helping you ? Only Reputation ?

1) If you only want to call one function after an if..then, while..do, for..to..do, and a case, then you do not need a begin. Examples:

Do NOT need a begin.

if Owned = True then
   WriteLn('Hi!');


 while not Owned do
   Wait(100);


 for I:= 0 to Times do
   WriteLn('Hi!');


 case Random(2) of
   0 : WriteLn('Hi!');
   1 : WriteLn('Hello!');
 end;

Do need a begin:

if Owned = True then
begin
  WriteLn('Hi!');
  Inc(TimesOwned);
end;


while not Owned do
begin
  Wait(100);
  CheckHealth;
end;


for I:= 0 to Times do
begin
  WriteLn('Hi!');
  WriteLn('Hi again! Lol!');
end;


case Random(2) of
  0 : begin
         WriteLn('Hi!');
         WriteLn('How are you?');
       end;
  1 : begin
         WriteLn('Hello!');
         WriteLn('How has your day been?');
       end;
end;

2) Only rep.

From: cycrosism
Post count is too low, sorry voted no.

Cycro, I'm sorry, but you're an idiot. You always vote no for the stupidest reasons. To be honest, I don't think you should be able to vote. I'm voting yes to balance out that ridiculous "no".

Aeon, I like your attitude, and I like your scripting style. You know a lot more than most people on the forums, which is impressive considering you are a new member. Not to mention the fact that you're 13, and have much more programming experience than me. :p

Whether you do or don't get into Members, don't stop learning to script. If you've learned this much this fast, I'm sure you'll become an exceptional scripter if you keep at it. :)

Cheers,

Coh3n

Cycrosism, adding onto what Coh3n said about your vote, you should think for a minute. You had a really bad attitude when you was a Junior Member, and it's got better, but it's still there a little bit. You should consider yourself lucky that you are actually an SRL Member, considering the attitude you had. You can't just go out voting "no" the way you do. So far I've seen you vote "no", because someone didn't agree with you, and another because he has a low post count. It's just ridiculous, honestly. Sorry, but I couldn't hold it in any longer.

Richard

EDIT: Can I have my "no" changed to a "yes" please?

To all who say this is a good, advanced script.

The autocolor has been done bij Autocolor Aid. This does not show his talent or that he has good autocoloring skills - just that he can use tools.

function AutoColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 3.18) and (X <= 3.22) and (Y >= 2.60) and (Y <= 2.64) and (Z >= 0.77) and (Z <= 0.81) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

function AutoColor2: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 4.17) and (X <= 4.21) and (Y >= 4.23) and (Y <= 4.27) and (Z >= 4.45) and (Z <= 4.49) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

ANY random ACA program:

    
[LEFT]program AutoColor;
{.include SRL\SRL.scar}

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

  FindColorsSpiralTolerance(MMCX, MMCY, arP, 5271393, MMX1, MMY1, MMX2, MMY2, 57);
  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
    if (rs_OnMinimap(arP[i].x, arP[i].y)) then
    begin
    ColorToRGB(arC[i], R, G, B);

    if (R >= 64) and (R <= 130) and (G >= 77) and (G <= 145) and (B >= 47) and (B <= 112) then
    begin
        ColorToHSL(arC[i], H, S, L);

        if (H >= 21.01) and (H <= 26.36) and (S >= 12.92) and (S <= 24.52) and (L >= 24.69) and (L <= 50.02) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);

          if (X >= 5.42) and (X <= 21.92) and (Y >= 6.77) and (Y <= 25.78) and (Z >= 3.80) and (Z <= 18.87) then
          begin
            Result := arC[i];
            Writeln('AutoColor = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
    end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

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

begin
  SetupSRL;
  AutoColor;
end.
[/LEFT]
 

Look for the differences. Edit: the function I posted also has HSL/XYZ checking.

I am not saying applicants should not use ACA or Scar Assistant.
Just that he doesn't show his more advanced skills that you guys are voting yes for.

From: Laur€ns
To all who say this is a good, advanced script.

The autocolor has been done bij Autocolor Aid. This does not show his talent or that he has good autocoloring skills - just that he can use tools.

function AutoColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 3.18) and (X <= 3.22) and (Y >= 2.60) and (Y <= 2.64) and (Z >= 0.77) and (Z <= 0.81) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

function AutoColor2: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 4.17) and (X <= 4.21) and (Y >= 4.23) and (Y <= 4.27) and (Z >= 4.45) and (Z <= 4.49) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

ANY random ACA program:

    
[LEFT]program AutoColor;
{.include SRL\SRL.scar}

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

  FindColorsSpiralTolerance(MMCX, MMCY, arP, 5271393, MMX1, MMY1, MMX2, MMY2, 57);
  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
    if (rs_OnMinimap(arP[i].x, arP[i].y)) then
    begin
    ColorToRGB(arC[i], R, G, B);

    if (R >= 64) and (R <= 130) and (G >= 77) and (G <= 145) and (B >= 47) and (B <= 112) then
    begin
        ColorToHSL(arC[i], H, S, L);

        if (H >= 21.01) and (H <= 26.36) and (S >= 12.92) and (S <= 24.52) and (L >= 24.69) and (L <= 50.02) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);

          if (X >= 5.42) and (X <= 21.92) and (Y >= 6.77) and (Y <= 25.78) and (Z >= 3.80) and (Z <= 18.87) then
          begin
            Result := arC[i];
            Writeln('AutoColor = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
    end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

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

begin
  SetupSRL;
  AutoColor;
end.
[/LEFT]
 

Look for the differences. Edit: the function I posted also has HSL/XYZ checking.

I am not saying applicants should not use ACA or Scar Assistant.
Just that he doesn't show his more advanced skills that you guys are voting yes for.

I kind of said that and it might not be the reason of why people vote yes ?

I voted no. But the no is for your own good ;)

I can't see multiplayer, TPAs/(D)DTMs/BMPs and I see lots of unorganized lines of code.
But I also see a promising newcomer. The reason I voted no isn't that your script is no good, it's because I want you to become as good as possible before you become an SRL member. Why, you may ask? It's the thing that went wrong with me - after getting into members a bit too early I lost most of my motivation to learn scripting and therefore the developing of my scar scripting abilities kind of stopped. I don't want this to happen to you, because the community doesn't need lots of promising newcomers, it needs the outcome of promising newcomers - scripters with lots of knowledge and talent. I think you have the latter ;)
If you have any sort of questions/problems feel free to send me a PM and I'm glad to help you if I can, ofcourse :p

From: Laur€ns
To all who say this is a good, advanced script.

The autocolor has been done bij Autocolor Aid. This does not show his talent or that he has good autocoloring skills - just that he can use tools.

function AutoColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 3.18) and (X <= 3.22) and (Y >= 2.60) and (Y <= 2.64) and (Z >= 0.77) and (Z <= 0.81) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

function AutoColor2: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 4.17) and (X <= 4.21) and (Y >= 4.23) and (Y <= 4.27) and (Z >= 4.45) and (Z <= 4.49) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

ANY random ACA program:

    
[LEFT]program AutoColor;
{.include SRL\SRL.scar}

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

  FindColorsSpiralTolerance(MMCX, MMCY, arP, 5271393, MMX1, MMY1, MMX2, MMY2, 57);
  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
    if (rs_OnMinimap(arP[i].x, arP[i].y)) then
    begin
    ColorToRGB(arC[i], R, G, B);

    if (R >= 64) and (R <= 130) and (G >= 77) and (G <= 145) and (B >= 47) and (B <= 112) then
    begin
        ColorToHSL(arC[i], H, S, L);

        if (H >= 21.01) and (H <= 26.36) and (S >= 12.92) and (S <= 24.52) and (L >= 24.69) and (L <= 50.02) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);

          if (X >= 5.42) and (X <= 21.92) and (Y >= 6.77) and (Y <= 25.78) and (Z >= 3.80) and (Z <= 18.87) then
          begin
            Result := arC[i];
            Writeln('AutoColor = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
    end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

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

begin
  SetupSRL;
  AutoColor;
end.
[/LEFT]
 

Look for the differences. Edit: the function I posted also has HSL/XYZ checking.

I am not saying applicants should not use ACA or Scar Assistant.
Just that he doesn't show his more advanced skills that you guys are voting yes for.

They're not voting yes for the autocolor functions. They are voting yes for his overall attitude and willingness to learn.

One thing you NEED to learn is how to work SRL's multiplayer system. Right now, you only allow one character to finish it's loads, and then the script terminates. Look into some other scripts, and you'll kinda get an understanding of how it works.

The script is not amazingly advanced, but then again, it doesn't need to be. You have the basics down, and you show signs of a good person. I vote yes.

BTW, cycrociscm, what the hell kind of comment is that? Shows true immaturity. Or at least idiocy. -1

From: Coh3n
Cycro, I'm sorry, but you're an idiot. You always vote no for the stupidest reasons. To be honest, I don't think you should be able to vote. I'm voting yes to balance out that ridiculous "no".

You my friend, are freaking hilarious. That made me lol for reals.
I couldn't have said it better myself.

Please cycro, judge the script and the persons attitude, nothing less, nothing more :D.

What's wrong with Cycrocism's decision? Its his vote, and we know he probably just wants the "good" scripts. i won't vote though, for the time being.

EDIT: Voted no, multiple reasons, his script needs some work, and he should also stay with the community a bit longer before applying.

From: Smarter Child
What's wrong with Cycrocism's decision? Its his vote, and we know he probably just wants the "good" scripts. i won't vote though, for the time being.

For all we know Aeon C could be some rocket scentist and cycrosism votes no for a good script better than other peoples etc.

I'd still agree with Pure… I think it was him? Asking for the ip check before this guy gets through. Remember the mage of begu thing? Anyone?

Anyway. I'll be voting no. Not for any negative reason really. The reasons are all mentioned.

Pros-
Willing to learn
Very very good attitude
Very good resume

Cons-
Need to be more familiar with SRL
Multiplayer
Make your own tpas and such
I dont know who you are. It's easier to lie about being a good guy for 9 posts compared to 50. If you can consistantly have a good attitude, you're 100% in.

So sorry, it's a no. Not because I dislike the script overall, but more because of the reasons that Bugger mentioned. I did the same thing, and lost motivation. I want to see you be motivated enough to learn some advanced things first before you become a member. It's win win. Besides, at this pace, it will be a week or so and you'll know more than I do.

Actually, in mentioning this. Holding my vote. You prove to me that you can learn some TPA's or even just become more familiar with SRL (multiplayer, etc) and I will vote yes. If not, I will have to vote no, as the script does not reach the quality that I personally require before voting yes.

From: Smarter Child
What's wrong with Cycrocism's decision? Its his vote, and we know he probably just wants the "good" scripts.

There's nothing wrong with him voting "no", it's why he voted no.

>.< I dont like this one bit Sorry applicant.
This is fishy.. I'm not voting..

From: noidea
>.< I dont like this one bit Sorry applicant.
This is fishy.. I'm not voting..

Thank the sweet lord baby jesus that someone else thinks the same as I do.

@ noidea/Garrett - Not to argue or anything, but what exactly is fishy about it? I'm just wondering.

You haven't been around long enough. Search Mage of Begu and you might find the long story of what happened.

From: 3Garrett3
You haven't been around long enough. Search Mage of Begu and you might find the long story of what happened.

I did, and now I understand what you guys are thinking. ;)

Good. We need a background check, staff anywhere?

Aeon,

If you are who you say you are, you have nothing to be worried about. Unless you're lying, you should take it as a compliment that people want a background check. :p

Just thought I'd tell you that so you don't get discouraged.

Post IP Addresses

* 81.57.254.93 [Find More Users with this IP Address]

Registration IP Addresses

* Dr D. Dervish 81.57.254.93 [Find Posts by User] [View Other IP Addresses for this User]

Care to explain?

Thanks Hobbit.
I knew this was Fishy..

I garuntee he will say it is his brother.

Why would Dervish want to get another srl account and get members, its not like he is banned?

From: Smarter Child
Why would Dervish want to get another srl account and get members, its not like he is banned?

From: noidea
Thanks Hobbit.
I knew this was Fishy..

I garuntee he will say it is his brother.

I'm guessing that's exactly the case (brother, friend, etc.). Dervish's scripting ability, as far as I know, is better than Aeon C's apparently is. What would be the point of making another account and applying with a script that isn't too likely to get you in?

(For the record, I voted yes, I like your attitude and willingness to learn :))

From: Tad
I'm guessing that's exactly the case (brother, friend, etc.). Dervish's scripting ability, as far as I know, is better than Aeon C's apparently is. What would be the point of making another account and applying with a script that isn't too likely to get you in?

(For the record, I voted yes, I like your attitude and willingness to learn :))

My guess is a relative is using his ability to make himself look good to get members. I can't say for sure, obv, but it seems likely.

It's going to be interesting to see what he says. :rolleyes:

From: Coh3n
It's going to be interesting to see what he says. :rolleyes:

If he finds this thread:

Last Activity: 08-26-2009 04:48 PM

I would bet money that it was one of his friends IRL (or maybe brother). I would bet that Coh3n and Nava's IP's cross, but it's obviously for legit reasons. JunkJ is also Junior's brother (if any of you remember Junior for his air crafter), so this is a common thing.

I vote that the thread is closed until it is confirmed that Dervish and Aeon C are not the same person, and then a new application is made. I am sure that some people voted no simply due to the suspicions of the IP addresses matching, so a new application might result in a better vote count.

No. Arguments are commented on the script:

• Only singleplayer
• Lack of failsafes
• Many things could be shortened
• A bit too simple
• I think that he really should first get to Jr. Members before SRL Members, even if he was a rocket scientist

program SPC;
{.include SRL/SRL.scar} //Thanks for the help ian.
{.include SRL/SRL/misc/users.scar} //Thanks for the help ian.

var
  x,y,LogsCut,AxeDTM,LogDTM,ABP,TI: Integer; //Thanks for the help Sabzi for
                                             //changing '=' to ':'.
  StartTime,PL: string;
  
  
procedure Setup;
begin
  Writeln('Starting up the script');
  SetupSRL;
  AxeDTM := DTMFromString('78DA63AC606060C86140011EF6C60CFF81342' +
       '310FF0702C61220238E010D302291401A64461901350540228B80' +
       '9A7C20514E404D3D904827A0A61648C4E357030056B70BE4');
  LogDTM := DTMFromString('78DA637466626078CA8002FCAD1519FE03694' +
       '620FE0F048C2E4035B719D000231209A42D806AEE1250630254F3' +
       '84801A73A09AB704D4D803D57C20A0C607A8E60D0135814035CF8' +
       '930E7217E3500A2A81037');
  SRLPlayerForm(true,['Axe Equipped ?','List credits in Progress Report?','Power chop or willows ? (false = willows true = power chop)'],
                     ['Logs to cut ?','Seconds to chop down a tree ? (Estimation)'],[],[]);
  if not(Players[CurrentPlayer].Booleans[2]) then
  begin
    Writeln('Chopping willows in Draynor.');
    PL := 'B';
  end else;
  begin
    Writeln('Powerchopping normal trees.');
  end;
  LoginPlayer;
  Wait(400+random(200));
  FindNormalRandoms;
  if not (Players[CurrentPlayer].Booleans[1]) then
  begin
    {You should call Gamtab(tab_Inv) first - marpis}
    if FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      Writeln('Axe was found.');
    end else
    begin
      Writeln('Axe not found. Terminating.');
      TerminateScript;
    end;
  end else
  begin
    Gametab(tab_Equip);
    Wait(50+random(25));
    if FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      Writeln('Axe was found.');
    end else
    begin
      Writeln('Axe not found. Terminating.');
      TerminateScript;
    end;
  end;
end;

{Names of your Autocolors should something like "FindBankFloorColor" and "FindWillowMMColor" etc - marpis}
function AutoColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 3.18) and (X <= 3.22) and (Y >= 2.60) and (Y <= 2.64) and (Z >= 0.77) and (Z <= 0.81) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

function AutoColor2: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.00);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 4.17) and (X <= 4.21) and (Y >= 4.23) and (Y <= 4.27) and (Z >= 4.45) and (Z <= 4.49) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

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

{Again, procedure/function names - marpis}
procedure WTW;
begin
  if not (LoggedIn) then
  begin
    Writeln('Not logged in...');
    Writeln('Logging in player.');
    LoginPlayer;
    FindNormalRandoms;
    Wait(300+random(100));
  end;
  if not(Players[CurrentPlayer].Booleans[2]) then
  begin
    if (PL = 'B') then
    begin
      MakeCompass('W');
      RadialWalk(AutoColor,270,0,72,0,0); {No failsafes at all? - marpis }
      FindNormalRandoms;
      Flag; {Flag is already in RadialWalk - marpis }
    end;
  end;
  PL := 'W';
end;
    
procedure WTB;
begin
  if not (LoggedIn) then
  begin
    Writeln('Not logged in...');
    Writeln('Logging in player.');
    LoginPlayer;
    FindNormalRandoms;
    Wait(300+random(100));
  end;
  if (PL = 'W') then
  begin
    case random(4) of {This is a good idea, I like it, but could be done in less lines - marpis }
    0:
      begin
        MakeCompass('N');
        RadialWalk(Autocolor2,0,90,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5)); {Failsafes, that's good - marpis }
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    1:
      begin
        MakeCompass('E');
        RadialWalk(Autocolor2,250,300,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    2:
      begin
        MakeCompass('S');
        RadialWalk(Autocolor2,160,235,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    3:
      begin
        MakeCompass('W');
        RadialWalk(Autocolor2,70,120,72,0,0);
        Flag;
        repeat
          OpenBankQuiet('db');
          Inc(TI);
        until((BankScreen)or(TI = 5));
        if (TI = 5) then
        begin
          Writeln('Unable to open bank.');
          TerminateScript;
        end;
        DepositAll;
        CloseBank;
      end;
    end;
  end else
  begin
    Writeln('Player should be at willows.');
    TerminateScript;
  end;
end;

procedure AB;
begin
  case Random(46) of
    0..10    : BoredHuman; //Fixed all the case number lines thanks to R1ch
    11..17   : RandomMovement;
    18..24   : HoverSkill('woodcutting',false); //Fixed with the help of Sabzi (added ",false")
    25..31   : HoverSkill('random',false); //Fixed with the help of Sabzi (added ",false")
    32..38   : PickUpMouse;
    39..45   : MakeCompass(IntToStr(0+random(360)));
  end;
  Inc(ABP);
end;

procedure FACT;
begin
  if not(Players[CurrentPlayer].Booleans[2]) then
    exit;
  TI := 0;
  if not(LoggedIn) then
  begin
    Writeln('Something is wrong, you arent logged in for the procedure : FACT');
    LoginPlayer;
    FindNormalRandoms;
  end;
  {You should either make your own TPA object finder, or use FindObjTPA - marpis }
  if (FindObjCustom(x,y,['ree','Tree','Chop down Tree','down Tree'], 1192491,3431805,930345,1649980],10)) then
  begin
    Writeln('Tree found');
    begin
      if IsUpText('ree') then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,true);
        FindNormalRandoms;
        repeat
          Wait(1000+random(230));
          case Random(10) of
            1,2: AB
          end;
          Inc(TI);
        until(FindDTM(LogDTM,x,y,MIX1,MIY1,MIX2,MIY2) or (TI = Players[CurrentPlayer].Integers[1]));
        Mouse(x,y,3,3,false);
        ChooseOption('rop');
        Disguise(IntToStr(LogsCut)+' '+IntToStr(LogsCut*25)+' '+TimeRunning);
      end;
    end;
  end else
  begin
    Writeln('Did not find tree...');
    TerminateScript;
  end;
  Inc(LogsCut); //Changed from LogsCut:=LogsCut+1 thanks for Sabzi
end;

procedure FACW;
begin
  if (Players[CurrentPlayer].Booleans[2]) then
    exit;
  TI := 0;
  if not(LoggedIn) then
  begin
    Writeln('Something is wrong, you arent logged in for the procedure : FACW');
    LoginPlayer;
    FindNormalRandoms;
  end;
  if (FindObjCustom(x,y,['low','Willow','Chop down Willow','down Willow'],[1451819,132356,858131,2372909],10)) then
  begin
    Writeln('Willow found');
    begin
      if IsUpText('llow') then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,true);
        FindNormalRandoms;
        repeat
          Wait(1000+random(230));
          case Random(10) of
            1,2: AB
          end;
          Inc(TI);
        until(FindDTM(LogDTM,x,y,MIX1,MIY1,MIX2,MIY2) or (TI = Players[CurrentPlayer].Integers[1]));
        Mouse(x,y,3,3,false);
        ChooseOption('rop');
        Disguise(IntToStr(LogsCut)+' '+IntToStr(LogsCut * (375/10))+' '+TimeRunning);
      end;
    end;
  end else
  begin
    Writeln('Did not find Willow trees...');
    TerminateScript;
  end;
  Inc(LogsCut); //Changed from LogsCut:=LogsCut+1 thanks for Sabzi
end;

{2 progressreports could be merged into 1 procedures - marpis }
procedure WPRT;
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  Writeln('You have cut : '+Inttostr(LogsCut)+' logs.');
  Writeln('You have gained : '+Inttostr(LogsCut * 25)+' exp.');
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

procedure WPRW;
begin
  Writeln('======================================');
  Writeln(' SPC - Simple Power Cutter by Aeon C.  ');
  Writeln('Version : 0.2');
  Writeln('======================================');
  Writeln('Script started :');
  Writeln(StartTime);
  Writeln('Progress report written on :          ');
  Writeln(TheDate(3)+' '+Thetime);                  //Thanks for the help with TheDate and TheTime Zephyr.
  Writeln('======================================');
  Writeln('Script ran for : '+TimeRunning);
  Writeln('You have cut : '+Inttostr(LogsCut)+' willows.');
  Writeln('You have gained : '+Inttostr(LogsCut * (375/10))+' exp.');
  Writeln('You have performed : '+Inttostr(ABP)+' antibans.');
  Writeln('======================================');
end;

procedure ScriptTerminate;
begin
  FreeDTM(AxeDTM); 
  FreeDTM(LogDTM);
  if (LoggedIn) then
    Logout;
  if not(Players[CurrentPlayer].Booleans[2])then
  begin
    Writeln('Hope you enjoyed SPC by Aeon C.');
    WPRW;
  end else
  begin
    Writeln('Hope you enjoyed SPC by Aeon C.');
    WPRT;
  end;
  if (Players[CurrentPlayer].Booleans[1]) then
  begin
    Writeln('Simple Power Cutter written by Aeon C.');
    Writeln('Alot of help from people at the #SRL irc channel.');
    Writeln('Also lots of help from people on villavu.');
    Writeln('======================================');
    Writeln('Special Thanks :');
    Writeln('Mayazcherquoi : first person I met on the forums.');
    Writeln('Mayazcherquoi : for answering sooo many questions.');
    Writeln('ian. fixed errors in the script.');
    Writeln('Sabzi fixed errors in the script.');
    Writeln('R1ch shortened the script.');
    Writeln('Zephyr informed me about TheTime and TheDate.');
    Writeln('======================================');
  end;
end;

begin
  Setup;
  repeat
    if (Players[CurrentPlayer].Booleans[2]) then
    begin
      FACT;
      WPRT;
    end else
    begin
      WTW;
      FACW;
      WPRW;
      WTB;
    end;
  until(LogsCut = Players[CurrentPlayer].Integers[1]);
  TerminateScript; //To make sure what's listed in ScriptTerminate happens.
end.

Hmm. I voted no because of the script but this is interesting. But yeah, I cant see this being Dervish because iirc Dervish isn't banned?

You sure do have lot of potential ( From what i'v see from your script)
So this cookie says Yes.

~Hoem

P.S Good luck!

From: Torrent of Flame
Hmm. I voted no because of the script but this is interesting. But yeah, I cant see this being Dervish because iirc Dervish isn't banned?

well, being banned isn't the only reason why one could make a second account…. with a second account you have more influence in polls and discussions, AND you may want to get the newcomers cup… I can think of multiple reasons….

The reason of me creating another account is to get another personality.

I have been hated for no reason and I've had rumors spread about me. Hated for being French (might be a joke from people's point of view, but I take it very seriously).

All I wanted was to get a chance to get a good reputation and being liked in general.

I do not say that my attitude was always good. I've had bad attitudes to people on the Irc (such as bobng, however it was justified).

I do diserve a ban (more than an infraction) due to the rule :

Multiple Accounts: any user is allowed to have 1 account and 1 account only.

In the section : infractions.

I just wanted a chance to start from 0 again.

Thanks for everything. I got the idea from the Mage of Begu thread :

May we ever discover that he made a new account, then that account will also be deleted. Let it be clear that we do NOT tolerate scamming on SRL. Anyone that tries anything similar will most likely follow the same route Mage of Begu followed.

All I wanted was a second chance, now I realise it was wrong of me to do this. Do not take this wrong, I do not try to justify what I did.

I am ready to take the consequences for this and I know my "reputation" will only get worse because of this.

Thanks SRL you taught me alot and I've enjoyed the time staying here.

From: Coh3n
Cycro, I'm sorry, but you're an idiot. You always vote no for the stupidest reasons. To be honest, I don't think you should be able to vote. I'm voting yes to balance out that ridiculous "no".

Aeon, I like your attitude, and I like your scripting style. You know a lot more than most people on the forums, which is impressive considering you are a new member. Not to mention the fact that you're 13, and have much more programming experience than me. :p

Whether you do or don't get into Members, don't stop learning to script. If you've learned this much this fast, I'm sure you'll become an exceptional scripter if you keep at it. :)

Cheers,

Coh3n

+ 1. Good luck Aeon, I likes you!

Yes from me, keep up the good work.

EDIT**
Just read the rest of thread and your post. Still going to vote yes. :).

From: Aeon C
The reason of me creating another account is to get another personality.

I have been hated for no reason and I've had rumors spread about me. Hated for being French (might be a joke from people's point of view, but I take it very seriously).

All I wanted was to get a chance to get a good reputation and being liked in general.

I do not say that my attitude was always good. I've had bad attitudes to people on the Irc (such as bobng, however it was justified).

I do diserve a ban (more than an infraction) due to the rule :

In the section : infractions.

I just wanted a chance to start from 0 again.

Thanks for everything. I got the idea from the Mage of Begu thread :



All I wanted was a second chance, now I realise it was wrong of me to do this. Do not take this wrong, I do not try to justify what I did.

I am ready to take the consequences for this and I know my "reputation" will only get worse because of this.

Thanks SRL you taught me alot and I've enjoyed the time staying here.

I can relate… nothing is as helpful as a new start… how about we simply cover this up, ban dervish, let this account live, and forget that he is dervish? :D

If you wanted a new start, then another community. If you wanted to change peoples opinions of you and your own reputation, then you could of done so. Regardless of what happens, this can not lower my lack of respect from you - you lost it all with your slurs on IRC…

From: Pure1993
I can relate… nothing is as helpful as a new start… how about we simply cover this up, ban dervish, let this account live, and forget that he is dervish? :D

I would have to agree in a way. Your intentions seem honest, and doesn't everyone deserve a second chance? However, I don't think creating a new account is the way to do it. If your attitude changes, people will notice, and you will be respected for that, not for starting from scratch.

Pure 1993 : I would love that. Unfortunately, I broke the rules and must take the consequences.

Mixster : it all started with bobng insulting me, ToF 2nd, you 3rd. I couldn't care less of your opinion although I understand it.

Coh3n : People don't forget nor forgive the past.

From: Aeon C

Coh3n : People don't forget nor forgive the past.

They won't forget, but some forgive, it depends on the person. I, personally, have no idea what you've done in the past, so I have nothing against you. You seem like a great guy from what I can see. You also seem to really regret what you've done in the past. In my opinion, you're off to a good start. ;)

From: Aeon C
Pure 1993 : I would love that. Unfortunately, I broke the rules and must take the consequences.

Mixster : it all started with bobng insulting me, ToF 2nd, you 3rd. I couldn't care less of your opinion although I understand it.

Coh3n : People don't forget nor forgive the past.

Whats in the past has past however, it will leave a scar. I suggest going to the "right direction" by either going back to your old account or publicly announce who you are or possibly make a name change with your old account (if your inclined too). Truth will show your dedication more than hiding behind lies of who you really are. There are numerous occasions where someone has "come back."

From: Narcle
Whats in the past has past however, it will leave a scar. I suggest going to the "right direction" by either going back to your old account or publicly announce who you are or possibly make a name change with your old account (if your inclined too). Truth will show your dedication more than hiding behind lies of who you really are. There are numerous occasions where someone has "come back."

The name change… I wouldn't be permitted one I believe.

I like you Dervish… you 'twas good at GFX(better than me at least).

From: Narcle
Whats in the past has past however, it will leave a scar. I suggest going to the "right direction" by either going back to your old account or publicly announce who you are or possibly make a name change with your old account (if your inclined too). Truth will show your dedication more than hiding behind lies of who you really are. There are numerous occasions where someone has "come back."

+ 1.

Narcle is right, you will gain a lot of people's respect simply by begin open and honest about who you are, and what you intend to change.

Aeon_C, if I have hated on you it is because of your attitude. Since you have been using this Alias, I have taken a liking to you, sure, I didnt know it was Dervish, but you have changed. And it shows you cannot blame other people for your mistakes.

If you can get someone who 'trolls' you to like you under a new alias, then its obviously an attitude problem on your part.

I will sitll vote no because of the script, but I do hold you in higher regard for being honest about the situation. A fresh start has shown who you can actually be.

From: Torrent of Flame
Aeon_C, if I have hated on you it is because of your attitude. Since you have been using this Alias, I have taken a liking to you, sure, I didnt know it was Dervish, but you have changed. And it shows you cannot blame other people for your mistakes.

If you can get someone who 'trolls' you to like you under a new alias, then its obviously an attitude problem on your part.

I will sitll vote no because of the script, but I do hold you in higher regard for being honest about the situation. A fresh start has shown who you can actually be.

Which is why I did it. I didn't get anyone to hate me under the alias of Aeon_C.

I can only blame myself and my temper for my past actions. As I've said :

Do not take this wrong, I do not try to justify what I did.

Well, we are discussing your fate up in the staff forums, but DrDD or not, i won't be giving this account membership until you pass through a member app.

~RM

From: Aeon C
<snip>

I didn't even know you were hated that much :(
I still love you DDD :)

From: Rasta Magician
Well, we are discussing your fate up in the staff forums, but DrDD or not, i won't be giving this account membership until you pass through a member app.

~RM

Naturally. I should not be given any favor or so.

Zytex :You don't seem very active on the Irc, but thanks.

From: Aeon C
Zytex :You don't seem very active on the Irc :/.

No, I haven't installed mIrc on this computer yet :P

From: Aeon C
Hated for being French (might be a joke from people's point of view, but I take it very seriously).

I'm in the same boat, but trust me they are all just jealous :p

From: Hobbit
I'm in the same boat, but trust me they are all just jealous :p

I think french people are pretty cool. Unless you are the steriotype french (obnoxious and such) which I really haven't met many people who are.

Ban this account..
Your account is DrDDervish, no more, no less.

French people have the reputation of being homosexual.
French people have the reputation of being cocky and self centered.
French people have many bad rumours about them.

Some, no, many are true.
__________________

I won't be on before tomorrow. This is the worst part, waiting for a decision which majorly affects you without you being able to do anything to change that decision.
__________________

Thanks for at least thinking about it and not banning me straight away.

Edit :

From: noidea
Thanks Hobbit.
I knew this was Fishy..

I garuntee he will say it is his brother.

I don't have a brother. Seeing all these people lying about the thing that his friend or his sister or brother took the computer when they were somewhere else makes me feel bad for the people who actually were in that case and weren't believed.

Edit 2 : Ok Hobbit, let's say : rumour instead of reputation then. I didn't feel like posting a reply with : "ok thanks" or so as that would maybe be seen as spam.

From: Aeon C
French people have the reputation of being homosexual.
French people have the reputation of being cocky and self centered.
French people have many bad rumours about them.

1. HUGE LIE
2. For the most part no, every race is like that. I find Americans to be the most though.
3. True

Now for #1

Statistics of self-identifying homosexuals

6.1% in Britain
4.1% in France
12% in Norway
20% in New Zealand
4% in U.S

France one of the lowest.

——-

Back on topic.

We should have a decision shortly.

I voted yes, I like the scripting and you also seem like a nice guy. However, more posting would be nice.

From: Arr0w
I voted yes, I like the scripting and you also seem like a nice guy. However, more posting would be nice.

At least read the last few posts before you post if you're not going to read the whole thread -.-

From: Hobbit
1. HUGE LIE
2. For the most part no, every race is like that. I find Americans to be the most though.
3. True

Now for #1

Statistics of self-identifying homosexuals

6.1% in Britain
4.1% in France
12% in Norway
20% in New Zealand
4% in U.S

France one of the lowest.

——-

Back on topic.

We should have a decision shortly.

I've been waiting a few days, have you come up with a decision ? Don't want to sound impatient or whatsoever, I'm just wondering.

Yes, you will shortly notice you have received your punishment.

This application is closed. Good luck for next time.

~RM