SRL Archive - Archive

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

What is the meaning to life?
:spot::sasmokin:To have fun.:sasmokin::spot:

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

Programming Knowledge
Nope

Other Communitys
Sythe and sp0rk-eh

How Long have You Played Runescape
Since the yo-yo / rubber chicken holiday events

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

I like to program. If I get my "cretification" for Pascal (as in become srl members), I will attempt to learn Java starting during Spring brake. If I don't I'll keep at it until I am good enough to move on. I Think I'v done tons with Pascal, and got most of everything there is to learn in it. I hope you guys like my script, which took me many hours to type.

Thanks,
Osmm

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

{  ___
  / _ \__      _____  ___ ___ _ __ ___
 | | | \ \ /\ / / _ \/ __/ __/ `_ ` _  \
 | |_| |\ V  V /  __/\__ \__ \ | | | | |
  \___/  \_/\_/ \___//___/___/_| |_| |_|
________________________________________
________________By______________________
   __        ___ _ _
   \ \      / (_) | | _____      __
    \ \ /\ / /| | | |/ _ \ \ /\ / /
     \ V  V / | | | | (_) \ V  V /
      \_/\_/  |_|_|_|\___/ \_/\_/
________________________________________
_______________Osmm_____________________
    ____              _
   | __ )  __ _ _ __ | | _____ _ __
   |  _ \ / _` | `_ `| |/ / _ \ `__|
   | |_) | (_| | | | |   <  __/ |
   |____/ \__,_|_| |_|_|\_\___|_|
________________________________________
____________Version 4.5_________________

<><><><><><><><><><><><><><><><><><><><>
<><><><><><><><><><><><><><><><><><><><>
       Copyright © 2007-2008 Osmm
<><><><><><><><><><><><><><><><><><><><>
<><><><><><><><><><><><><><><><><><><><>

____________Instructions________________
________________________________________
1. Use SCAR Divi CDE 3.14.
2. Use SRL 4.5 rev #14.
3. Enter your SRL stats ID and Password.
   If you don't have, get them at [url]http://www.stats.srl-forums.com/[/url]
4. Set up script lines 75-82 & DeclarePlayers.
5. Make the following settings:
     A. Highest Brightness. - runescape
     B. Start in the bank; first bank booth. - runescape
     C. Have axe in first invitory slot or equpit (NOT in bank). - runescape
     D. 32-Bit True Color. - computer
6. Start script logged out.
7. Enjoy!
________________Credits_________________
________________________________________
1. Mickalanous: Thanks a lot for guiding
   me through scripting and a lot more!!!
2. JuKKa: Thanks for spending some time
   with me, helping with problems
3. Derek-: Thanks for getting me through
   player forums (previous script) and
   helping some with this script.
________________Extra___________________
________________________________________
1. My msn - [email]i13229@hotmail.com[/email].
2. This script is only allowed on:
      A. [url]http://www.srl-forums.com/[/url].
      B. [url]http://www.rs-palace.com/[/url].
      C. [url]http://www.sp0rk-eh.com/[/url].
________________________________________
________________________________________                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 }

program Owessm_Willow_Banker;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}

var
TimesThrough, AmountofWillows, NumberofWillows, dtmAxe,
dragonAxe, My_Wc_Level, Responds : Integer;
AxeInInvy : boolean;

//-----------------------------------------------------------------------------------------------\\
//-----------------------------------------------------------------------------------------------\\
const
  My_World = 153;             // Runescape world to load S.M.A.R.T. in.
  Do_you_want_to_talk = true; // When invy full; will ask wc lvls, then tell your own.
  Lets_Talk_Back = true;      // Will respond to other players; WILL NOT lag.
  LoadsPerPlayer = 17;        // How many loads to cut before sleeping / next player.
  TreeColor1 = 3830377;       // Leave this tree color unless the script is not willow trees.
  TreeColor2 = 3432536;       // Leave this tree color unless the script is not willow trees.
  SleepTime = 2;              // How many minutes to sleep inbetween cycles.
  ExtraSleepTime = 1;         // Extra time to sleep, also in minutes.
//-----------------------------------------------------------------------------------------------\\
//-----------------------------------------------------------------------------------------------\\

procedure DeclarePlayers;
begin

  HowManyPlayers:= 1;              // How many players are you using
  CurrentPlayer:= 0;               // Don't touch this.
  NumberOfPlayers(HowManyPlayers); // Don't touch this.

  SRLID := '';             // SRL Stats ID - Should be a number; NOT your srl username
  SRLPassword := '';       // SRL Stats Password - Random letters & numbers; NOT your srl password
                           // The script WILL NOT work without a SRL ID and Password.
                           // Get them here [url]http://www.stats.srl-forums.com/[/url]

  Players[0].Name := '';             // Username.
  Players[0].Pass := '';             // Password.
  Players[0].Nick := '';             // 2-4 letters of Username (that are not capital letters or numbers).
  Players[0].Active := True;         // Don't touch this.
  Players[0].Strings[0] := '0000';   // Bank pin if you have one; no bank pin = " '0000' ".

 {Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;
  Players[1].Strings[0] := '0000';

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active := True;
  Players[2].Strings[0] := '0000';

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Active := True;
  Players[3].Strings[0] := '0000';

  Players[4].Name := '';
  Players[4].Pass := '';
  Players[4].Nick := '';
  Players[4].Active := True;
  Players[4].Strings[0] := '0000';}

end;

//////////////////////|\\\\\\\\\\\\\\\\\\\\\\
//|---------------------------------------|\\
//| DO NOT TOUCH ANYTHING PAST THIS POINT |\\
//|---------------------------------------|\\
//////////////////////|\\\\\\\\\\\\\\\\\\\\\\


procedure LoadAllDTMs;
begin
  dtmAxe := DTMFromString('78DA631461606060674001CE51290CFF81342' +
       '310FF07024621208385010D302291405A02D31C0C3502408213BF' +
       '1A00D2AB0671'); // Universal axe DTM
  dragonAxe := DTMFromString('78DA6314636060E060400171A23C0CFF81342' +
       '310FF07024651208389010D302291405A0248081250230B24B808' +
       'A8610612D2F8D5000078CB062C');  // Dragon axe DTM
  AmountofWillows := DTMFromString('78DA631465606010604001AEB6120C5C409A1' +
       '188FF0301230F90C1CE800618914820CD02244408A85102124204' +
       'D4081261171F909021A0460A48B0E05703007FAD0599'); // Willow DTM
end;

// Humanly changes compass angle
procedure RandomlyMoveMyCompass;
begin
  if(Random(10) >= 2)then
  begin
    case Random(2) of
      0: begin
           KeyDown(VK_Left);
           Wait(RandomRange(100,600));
           KeyUp(VK_Left);
           Wait(RandomRange(100,600));
         end;
      1: begin
           KeyDown(VK_Right);
           Wait(RandomRange(100,600));
           KeyUp(VK_Right);
           Wait(RandomRange(100,600));
         end;
      2: begin
           KeyDown(VK_Right);
           Wait(RandomRange(100,600));
           KeyUp(VK_Left);
           Wait(RandomRange(100,600));
         end;
      3: begin
           KeyDown(VK_Left);
           Wait(RandomRange(100,600));
           KeyUp(VK_Right);
           Wait(RandomRange(100,600));
         end;
       end;
  if(Random(10) > 4)then
  begin
    case Random(2) of
      0: begin
           KeyDown(VK_Down);
           Wait(RandomRange(100,600));
           KeyUp(VK_Down);
           Wait(RandomRange(100,600));
         end;
      1: begin
           KeyDown(VK_Up);
           Wait(RandomRange(100,600));
           KeyUp(VK_Up);
           Wait(RandomRange(100,600));
         end;
      2: begin
           KeyDown(VK_Up);
           Wait(RandomRange(100,600));
           KeyUp(VK_Down);
           Wait(RandomRange(100,600));
         end;
      3: begin
           KeyDown(VK_Down);
           Wait(RandomRange(100,600));
           KeyUp(VK_Up);
           Wait(RandomRange(100,600));
         end;
      end;
    end;
  end;
end;

// Cool disguise`s
procedure Disguise_Me;
begin
  case Random(5) of
      0: Disguise('' +IntToStr(NumberofWillows)+' Willows Cut');
      1: Disguise('' +IntToStr(Round(37.5 * NumberofWillows)) + ' Exp gained');
      2: Disguise('Wc level - ' +IntToStr(My_Wc_Level));
      3: Disguise('Post all progys');
      4: Disguise('Owessm Willow Banker');
    end;
end;

// TONS and TONS of antiban
procedure Antiban;
begin
  MouseSpeed := 9 + Random(5);
  case random(20) of
    0: begin
         RandomlyMoveMyCompass;
         SleepAndMoveMouse(500 + random(500));
         SleepAndMoveMouse(1500);
       end;
    1: begin
         MMouse(Random (500), Random (500), 10 , 10);
         SleepAndMoveMouse(1000 + random(500));
         MMouse(Random (500), Random (500), 10 , 10);
       end;
    2: begin
        RandomlyMoveMyCompass;
        GameTab(1 + random(13));
        FTWait(RandomRange(2,4));
        GameTab(4);
       end;
    3: begin
         RandomMovement;
         Wait2(1000, true);
       end;
    4: begin
         GameTab(2);
         FTWait(RandomRange(2,4));
         GameTab(4);
       end;
    5: begin
         FTWait(RandomRange(2,4));
         RandomMovement;
         GameTab(4);
       end;
    6: begin
         Pickupmouse;
         Wait2(1000, true);
         GameTab(4);
       end;
    7: begin
         SleepAndMoveMouse(500 + random(500));
         MMouse(Random (500), Random (500), 10 , 10);
         SleepAndMoveMouse(500 + random(500));
         MMouse(Random (500), Random (500), 10 , 10);
       end;
    8: SleepAndMoveMouse(500 + random(500));
    9: RandomlyMoveMyCompass;
    10: MMouse(Random (500), Random (500), 10 , 10);
    11: Pickupmouse;
    12: ChooseOption('Cancel');
    13: RandomMovement;
    14: begin
          SleepAndMoveMouse(500 + random(500));
          SleepAndMoveMouse(500 + random(500));
          Pickupmouse;
          MMouse(Random (500), Random (500), 10 , 10);
          SleepAndMoveMouse(500 + random(500));
        end;
    15: begin
          SleepAndMoveMouse(500 + random(500));
          SleepAndMoveMouse(1500);
          SleepAndMoveMouse(500 + random(500));
          SleepAndMoveMouse(1500);
        end;
    16: IdleTime(1000 + random(1000), 450, 0.5);
    17: begin
          SleepAndMoveMouse(500 + random(500));
          IdleTime(1000 + random(1000), 450, 0.7);
          SleepAndMoveMouse(1500);
          IdleTime(500 + random(500), 350, 0.6);
        end;
    18: begin
          IdleTime(1000 + random(1000), 450, 0.5);
          IdleTime(750 + random(250), 250, 0.3);
          Pickupmouse;
          IdleTime(1000 + random(1000), 500, 0.9);
        end;
    19: begin
          MMouse(Random (500), Random (500), 10 , 10);
          IdleTime(1000 + random(1000), 500, 0.2);
          IdleTime(300 + random(200), 500, 0.8);
        end;
  end;
end;

// Auto responds if told to, won't check everytime called to reduce lag.
procedure AutoResponder;
begin
if Lets_Talk_Back then
  begin
    if (InChat('woodcutting lvl') or InChat('wc level') or InChat('wc lvl')) and
    (random(10) >= 5) then
    begin
      case Random(8) of
        0 : TypeSend(IntToStr(My_Wc_Level));
        1 : TypeSend(IntToStr(My_Wc_Level) + ' you');
        2 : TypeSend('look it up');
        3 : TypeSend('not telling');
        4 : TypeSend('right now ' +IntToStr(My_Wc_Level));
        5 : TypeSend('look me up');
        6 : TypeSend('almost at ' +IntToStr(My_Wc_Level + 1));
        7 : TypeSend(IntToStr(My_Wc_Level) + ' u');
      end;
      Responds := Responds + 1;
    end;
    if (InChat('lol') or InChat('lamo') or InChat('ha')or
    InChat('lmfao') or InChat('rofl') or InChat('omg')) and
    (random(10) >= 8) then
    begin
      case Random(10) of
        0 : TypeSend('hahaha');
        1 : TypeSend('hehehehe');
        2 : TypeSend('...wow');
        3 : TypeSend('rof lmao');
        4 : TypeSend('rof lmfao');
        5 : TypeSend('hehe');
        6 : TypeSend('haha');
        7 : TypeSend('r o f l');
        8 : TypeSend('omg');
        9 : TypeSend('lol');
      end;
      Responds := Responds + 1;
    end;
    if (InChat(Players[CurrentPlayer].Nick)) and
    (random(10) >= 3) then
    begin
      case Random(10) of
        0 : TypeSend('stop bugging me');
        1 : TypeSend('stop bothering me');
        2 : TypeSend('dude stop talking so much');
        3 : TypeSend('im busy');
        4 : TypeSend('ffs stop talking so much');
        5 : TypeSend('not now');
        6 : TypeSend('busy');
        7 : TypeSend('i am busy sorry');
        8 : TypeSend('stop talking with me');
        9 : TypeSend('can you leave me alone');
      end;
      Responds := Responds + 1;
    end;
  end;
end;

Procedure Randoms; // Made by Masterkill - EXTENCIVLY reformated by Osmm
var
  i : integer;
  FindDemon, FindMime, FindMaze : boolean;
begin
  for i := 1 to 13 do
  begin
    if not LoggedIn then Exit;
    case i of
      1: if FindMod then
           begin
             LogOut;
             WriteLn('There is a mod around, waiting 15mins + 5 random mins');
             Wait(900000 + Random(300000));
             WriteLn('Times up, logging back in');
             LoginPlayer;
           end;
      2: FindTalk;
      3: If SolveChatRandom then
         begin
           Players[CurrentPlayer].Loc := Players[CurrentPlayer].Rand
           WriteLn(Players[CurrentPlayer].Name + ' = ' + Players[CurrentPlayer].Loc);
         end;
      4: FindInventoryRandoms;
      5: begin
           If FindDemon then
           SolveDemon;
         end;
      6: begin
           if FindQuiz then
           SolveQuiz;
         end;
      7: If FindDead then
         begin
           WriteLn('Dang! Sorry, script got you killed');
           WriteLn('Terminating script now - so your character doesn`t `hang`');
           Logout;
           terminatescript;
         end;
      8: if FindMime then
           begin
             WriteLn('Found mime random...yea its unsolveable');
             WriteLn('Terminating script now - so your character doesn`t `hang`');
             Logout;
             terminatescript;
           end;
      9: if FindMaze then
           begin
             WriteLn('Found maze random...yea its unsolveable');
             WriteLn('Terminating script now - so your character doesn`t `hang`');
             Logout;
             terminatescript;
           end;
      10: FindTalk;
      11: If NoGameTab then
          begin
            Wait(5000 + random(3000));
            if SolveChatRandom then Exit;
            Players[CurrentPlayer].Loc := 'no GameTab';
            LogOut;
          end;
      12: if FindFight then
            begin
              case Random(2) of
                0: Runaway('s', true, 1, 7500 + random(2500));
                1: Runaway('w', false, 1, 7500 + random(2500));
              end;
            end;
      13: begin
          if (random(10) >= 7) then
            AutoResponder;
          end;
    end;  // Amazingly I am prety sure this is right spacing
  end;
end;

// Isn't used until AskWCLevels calls it
procedure TellMyLevel;
var
yourwclevel: integer;
begin
yourwclevel := GetSkillInfo('woodcutting', false);
  case Random(7) Of
      0: begin
           Typesend('Im gona be ' + inttostr(yourwclevel + 2) + ' wc soon');
           Typesend('woops, I mean ' + inttostr(yourwclevel + 1) + ' soon');
         end;
      1: Typesend('Im almost at ' + inttostr(yourwclevel + 1));
      2: Typesend(inttostr(yourwclevel) + ' here');
      3: Typesend(inttostr(yourwclevel) + ' me');
      4: Typesend(inttostr(yourwclevel) + ' = me');
      5: begin
           Typesend('my wc lvl is at ' + inttostr(yourwclevel));
             case Random(7) Of
               1: Typesend('I wish it was 99');
               2: Typesend('lol i wish I was 99, then i could cut uber fast!');
               3: Typesend('I wish my wc was 99, then id have a skill cape :p');
               4: Typesend('=[, I want 99 sooo bad');
             end;
         end;
      6: Typesend('my wc is ' + inttostr(yourwclevel));
  end;
end;

// Asks wc lvls, then tells your own
procedure AskWCLevels;
begin
if Do_you_want_to_talk = true then
begin
if (random(10) >= 8)then
  WriteLn('Asking wc levels, then replying');
  begin
    case Random(12) of
        0: begin
             Typesend('Wc lvls');
             TellMyLevel;
           end;
        1: begin
             Typesend('wc lvls?');
             TellMyLevel;
           end;
        2: begin
             Typesend('woodcutting lvls?');
             TellMyLevel;
           end;
        3: begin
              Typesend('woodcutting lvls');
              TellMyLevel;
           end;
        4: begin
              Typesend('woodcut lvls?');
              TellMyLevel;
           end;
        5: begin
              Typesend('woodcut lvls');
              TellMyLevel;
           end;
        6: begin
             Typesend('whats up people?');
             wait(3000 + random(500));
             Typesend('Wc lvls???');
             TellMyLevel;
            end;
        7: begin
             Typesend('huh...boring');
             wait(3000 + random(500));
             Typesend('wc lvls?');
             TellMyLevel;
            end;
        8: begin
              Typesend('wht up ppl');
              wait(3000 + random(500));
              Typesend('woodcutting lvls?');
              TellMyLevel;
            end;
        9: begin
              Typesend('how you guys doin?');
              wait(3000 + random(500));
              Typesend('woodcutting lvls');
              TellMyLevel;
            end;
        10: begin
              Typesend('woodcutting ownz =P');
              wait(3000 + random(1500));
              Typesend('woodcut lvls?');
              TellMyLevel;
            end;
        11: begin
              Typesend('what your guys wc lvls?');
              wait(1000 + random(1000));
              Typesend('...?');
              wait(500 + random(500));
              Typesend('wc lvls?!?!');
              TellMyLevel;
            end;
    end;
    wait(1000+random(500));
end;
end;
end;

function AllPlayersFalse: boolean; // Thanks to Mickaliscious =D
var ActivePlayers, i : byte;
begin
  for i := 0 to High(Players) do
    if Players[i].Active then Inc(ActivePlayers);
  if ActivePlayers = 0 then Result := True;
end;

// Counts number of willows cut (doesn't include random event items)
procedure WillowCounter;
var Number: byte;
begin
  if not LoggedIn then Exit;
  GameTab(4);
  Number := CountItemsDTM('inv', AmountOfWillows);
  WriteLn(inttostr(number) + ' willows cut this load');
  IncEx(NumberofWillows, Number);
  IncEx(ReportVars[1], Number);
  IncEx(ReportVars[2], Round(37.5 * Number));
end;

// Progress report
procedure ProgressReport;
var
  i, Loads : Integer;
begin
  for i := 0 to High(Players) do
    IncEx(Loads, Players[i].Banked);
    Writeln('====================================');
    Writeln('|        Owessm Willow Banker       ');
    Writeln('|           Version 4.5             ');
    Writeln('|        -Progress Report-          ');
    WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    if Loads > 0  then Writeln('| Did ' + IntToStr(Loads) + ' Loads');
    if NumberofWillows > 0  then Writeln('| Cut ' + IntToStr(NumberofWillows) + ' Willows');
    if Round(37.5 * NumberofWillows) > 0  then WriteLn('| Gained ' + IntToStr(Round(37.5 * NumberofWillows)) + ' exp');
    if Lets_Talk_Back then if Responds > 0 then WriteLn('| Responded ' + IntToStr(Responds) + ' times');
    WriteLn('| Worked For ' + (timerunning));
    WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    WriteLn('|     ~~~Thank you for using~~~     ');
    WriteLn('| Please post all progies and bugs  ');
    Writeln('====================================');
end;

// Go to willows from bank
procedure GoToWillows;
var
x, y: integer;
begin
  WriteLn('Going to willows');
  SetAngle(True);
  MakeCompass('n');
  mouse(610 - random(10), 120 + random(10), 5 - random(5), 5 + random(5), True);
  FFlag(8);
  if(not FindSymbol(x,y,'fish'))then
  mouse(641 - random(10), 125 + random(10), 5 - random(5), 5 + random(5), True);
  if (FindSymbol(x,y,'fish')) then
  begin
    WriteLn('At the willow field');
    WriteLn('Cutting willows');
    SetRun(True);
    GameTab(4);
  end;
end;

// Go to bank from willow field
procedure Bank;
var
x, y : integer;
begin
  WriteLn('Going to Draynor bank');
  MakeCompass('n');
  SetAngle(True);
  SymbolAccuracy:= 0.4;
  repeat // loop to make sure you clicked on bank symbol
    if(FindSymbol(x,y,'bank'))then
    Mouse(x, y, 3, 3, true);
  until(FlagPresent);
  FFlag(0);
  WriteLn('At Draynor Bank');
  Repeat  // loop to make sure you open bank booth
    OpenBankQuiet('db');
    if PinScreen then InPin(Players[CurrentPlayer].Strings[0]) else
    FFlag(0);
    Wait(500+Random(400));
  until(BankScreen)or(not Loggedin);
  if BankScreen then
  begin
    WillowCounter;
    if AxeInInvy then
    begin
      Deposit(2, 28, 2);
      if(Random(10) > 3)then
      CloseBank;
    end else
    begin
      Deposit(1, 28, 2);
      if(Random(10) > 3)then
      CloseBank;
    end;
    Inc(ReportVars[0]);
    SRLRandomsReport;
    Inc(Players[CurrentPlayer].Banked);
    ProgressReport;
    Disguise_me;
    wait(250 + random(250));
    GameTab(4);
  end;
end;

// Made things a little bit easyer doing it this way
// Used when ent found
procedure Ent_phrases;
begin
if(Random(10) >= 5)then
  begin  // ^ will talk 50% of time
    case random(18) of
      0: Typesend('arg! stupied ent!');
      1: Typesend('lol, lil nub ent');
      2: Typesend('hahaha funny lil ent');
      3: Typesend('tree got mad, hahaha');
      4: Typesend('ents are funny');
      5: Typesend('O M G, stupied ent');
      6: Typesend('ffs dumb ent');
      7: Typesend('rofl ent got mad');
      8: Typesend('lamo, ent gone crazzy');
      9: Typesend('huhh.....');
      10: Typesend('ents are pointless to rs');
      11: Typesend('Why did jagex make ents?');
      12: Typesend('huh....ents are so useless');
      13: Typesend('hahaha, stupied lil ent');
      14: Typesend('oooo, an ent!');
      15: Typesend('aarrgg, dumb ent');
      16: Typesend('E N T !');
      17: Typesend('ffs, an ent');
    end;
  end;
end;

// Actual ent FINDING by Sumilion - from Woodcutting.scar
// Everything else edited by Osmm
function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
  arUpTextEntColorPoints: TPointArray;
  x, y, EntTime, tcts: Integer;
begin
  if not(LoggedIn)then exit;
  GetMousePos(x, y);
  if(x <> fx)or(y <> fy)then
  mmouse(fx, fy, 0, 0);
  if(IsUpText('Chop'))then
  begin
    tcts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorspeed2Modifiers(0.4, 0.4);
    FindColorsTolerance(arUpTextEntColorPoints, 51657, 80, 6, 127, 20, 5);
    Result := Length(arUpTextEntColorPoints) > 10;
    ColorToleranceSpeed(tcts);
  end;
  if(result)then
    begin // All my stuff from here on down
      MarkTime(EntTime);
      WriteLn('Ent Found!!');
      Writeln('Waiting for it to go away.');
      begin
        case random(2) of
          0: begin    // stuff to do when ent is found
               mouse(627, 86, 5, 5, true);
               mouse(627, 86, 10, 10, true);
               Ent_phrases;
               wait(750 + random(750));
               GameTab(4);
               wait(750 + random(750));
               AntiBan;
               Wait(10000 + random(5000));
               Randoms;
             end;
          1: begin   // other stuff to do when ent is found
               DoEmote(4);
               wait(750 + random(750));
               Ent_phrases;
               wait(750 + random(750));
               Hoverskill('woodcutting', false);
               wait(750 + random(750));
               AntiBan;
               wait(10000 + random(5000));
               Randoms;
             end;
        end;
      end;
      begin
      if (TimeFromMark(EntTime) < 35000) then
        case random(2) of
          0: begin
               if Random(10) > 8 then
               Hoverskill('woodcutting', false);
             end;
          1: AntiBan;
        end;
      end;
      Inc(EntsAvoided);
    end;
end;

// Checks if you got an axe at all
function FindAxe: Boolean;
var
Ix, Iy : Integer;
begin
  if LoggedIn then
  begin
    GameTab(5);         // checks if equipt
    if(FindDtm(dtmAxe, Ix, Iy, MIX1, MIY1, MIX2, MIY2)) or
    (FindDTM(dragonaxe, Ix, Iy, MIX1, MIY1, MIX2, MIY2)) then
      Result := True
    else
    begin
      GameTab(4);       // checks invatory
      if(FindDtm(dtmAxe, Ix, Iy, MIX1, MIY1, MIX2, MIY2)) or
      (FindDTM(dragonaxe, Ix, Iy, MIX1, MIY1, MIX2, MIY2))then
         begin
           Result := True;
           AxeInInvy := True;
         end else Result := False;
      end;
  end;
end;

{*******************************************************************************
procedure FindBirdsNest;
By: Liquid and Starblaster100
Description: If a birds nest is found, it will pick it up
*******************************************************************************}

procedure FindBirdsNest;
var
  tries, x, y: Integer;
  s: string;
begin
  if (not (GetLastChatText(s))) then
    LastChatter(s);
  if (Pos(s, 'A bird') <> 0) then
  begin
    repeat
      if not (FindObj(x, y, 'Take Bird', 3952984, 10)) or
        not (FindObj(x, y, 'Take Bird', 1713706, 10)) or
        not (FindObj(x, y, 'Take Bird', 1581604, 10)) then
      begin
        KeyDown(VK_LEFT);
        Wait(700 + Random(500));
        KeyUp(VK_LEFT);
        Wait(400 + Random(300));
      end;
      if not (FindObj(x, y, 'Take Bird', 3952984, 10)) or
        not (FindObj(x, y, 'Take Bird', 1713706, 10)) or
        not (FindObj(x, y, 'Take Bird', 1581604, 10)) then
      begin
        x := 648;
        y := 83;
        tries := tries + 1;
        FindColorSpiral(x, y, 241, 570, 5, 725, 155);
        Mouse(x + 3, y + 3, 2, 2, True);
        FFlag(0);
        Wait(200 + Random(100));
      end;
      if (FindObj(x, y, 'Take Bird', 3952984, 10)) or
        (FindObj(x, y, 'Take Bird', 1713706, 10)) or
        (FindObj(x, y, 'Take Bird', 1581604, 10)) then
      begin
        WriteLn('Birds Nest Found');
        Wait(450 + Random(400));
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        FFlag(0);
        Wait(500 + Random(300));
        if (Screenshots) then
          SaveScreenshot('Birds Nest - SRL - ' + IntToStr(GetTimeRunning) + '.bmp');
        tries := tries + 100;
        Birdsnest := Birdsnest + 1;
        Mouse(583, 226, 2, 2, False);
        Wait(100 + Random(100));
        ChooseOption('Examine');
        Exit;
      end;
    until (FindObj(x, y, 'Take Bird', 3952984, 10)) or
      (FindObj(x, y, 'Take Bird', 1713706, 10)) or
      (FindObj(x, y, 'Take Bird', 1581604, 10)) or (tries > 5)
  end;
end;

// Based off of Mickaliscious's version checker
procedure Version_Checker(Current_Version: string);
var
  Version: string;
begin
  Version := GetPage('http://osmm.freehostia.com/version_checker.txt');
  if Version = Current_Version then
  begin
    ClearDebug;
    WriteLn('You have the latest version!');
    Wait(2000);
  end else
    begin
      ClearDebug;
      Wait(1000);
      WriteLn('The latest version is ' + Version);
      Wait(2000);
      WriteLn('You have version '+ Current_Version);
      Wait(2000);
      WriteLn('Opening website for latest version');
      Wait(1000);
      OpenWebPage('http://www.villavu.com/forum/showthread.php?t=23470');
      TerminateScript;
    end;
end;

procedure WaitChop(time, cox, coy: integer); // Full of Antirandoms / Antiban stuff
var                                          // DO NOT edit or delete
  timer: integer;
begin
  marktime(timer);
  repeat
    Randoms;
    if(Random(20) > 18)then
      Antiban else FTWait(2 + random(1));
    if(FindEnt(coX, coY, True))then exit;
  until(timefrommark(timer)>time)or(not loggedin);
end;

// Different ways to click on willow tree
procedure ClickTree(cx, cy : integer);
begin
  case random(16) of
    0,1,2,3,4,5: mouse(cx, cy, 7, 7, true); // left click
    6,7,8: begin
         mouse(cx, cy, 7, 7, false);
         ChooseOption('Chop');  // right click
       end;
    9,10,11,12,13,14: begin
         mouse(cx, cy, 7, 7, true); // double click
         wait(50 + random(25));
         mouse(cx, cy, 7, 7, true);
       end;
    15: begin
         mouse(cx, cy, 7, 7, true); //click; anti ban; click
         wait(50 + random(50));
         mouse(cx, cy, 7, 7, false);
         ChooseOption('Chop');
       end;
  end;
end;

procedure ChopTree;
var
  cx, cy, MyMark : integer;
begin
  if not Loggedin then exit;
  GameTab(4);
  MarkTime(MyMark);
  repeat
    if FindObjCustom(cx, cy, ['Willow', 'llow'], [TreeColor1, TreeColor2], 3) then
    begin
      if(FindEnt(cx, cy, false))then break;
      ClickTree(cx, cy);
      if(FindEnt(cx, cy, false))then break;
      begin
        WaitChop(3500 + random(3500), cx, cy);
        exit;
      end;
    end else
    wait(750 + random(750));
    if TimeFromMark(MyMark) > (120000) then
    begin
      Logout;
      Exit;
    end;
  until not loggedin
end;

// My leet intro
procedure Intro;
begin
  ClearDebug;
  wait(225);
  WriteLn('   ____ ');
  wait(225);
  WriteLn('  / __ \');
  wait(225);
  WriteLn(' | |  | |___ ____ ___  ____ ___  ');
  wait(225);
  WriteLn(' | |  | / __|  _ ` _ \|  _ ` _  \');
  wait(225);
  WriteLn(' | |__| \__ \ | | | | | | | | | |');
  wait(225);
  WriteLn('  \____/|___/_| |_| |_|_| |_| |_|');
  wait(500);
  WriteLn('    Copyright © 2007-2008 Osmm  ');
  wait(1500)
  ClearDebug;
  WriteLn('Presents:');
  Wait(1000);
  ClearDebug;
  WriteLn('Owessm Draynor Willow Banker');
  Wait(1000);
  WriteLn('        Version 4.5')
  Wait(5000); // to give SMART an extra 5 seconds to start
end;

// Player setup
procedure setupplayer;
begin
  if not FindAxe then
  begin
    Logout;
    GetSelf.WindowState := wsNormal;
    wait(1000);
    WriteLn('You do not have a wc axe in your invy or equipt.');
    wait(1000);
    WriteLn('How are we suspose to cut willows?');
    wait(1000);
    WriteLn('Sorry, but script has to be terminated.');
    wait(1000);
    terminatescript;
  end;
  SetAngle(True);
  MakeCompass('n');
  begin
    case Random(2) of
      0: begin
           SetChat('On',1);
           SetChat('On',1);
           SetChat('Off',2);
           SetChat('Off',2);
           SetChat('Friends',3);
           SetChat('Friends',3);
           SetChat('On',4);
           SetChat('On',4);
           SetChat('On', 5);
           SetChat('On', 5);
         end;
      1: begin
           SetChat('On', 5);
           SetChat('On', 5);
           SetChat('On',4);
           SetChat('On',4);
           SetChat('Friends',3);
           SetChat('Friends',3);
           SetChat('Off',2);
           SetChat('Off',2);
           SetChat('On',1);
           SetChat('On',1);
         end;
    end;
  end;
  Players[CurrentPlayer].Level[8] := GetSkillInfo('hitpoints', false);
  My_Wc_Level := GetSkillInfo('woodcutting', false);
  if My_Wc_Level < 30 then
  begin
    Logout;
    GetSelf.WindowState := wsNormal;
    WriteLn('...you don`t even have 30 wc');
    WriteLn('how are we suspose to cut willows?');
    WriteLn('sorry, script terminated');
    terminatescript;
  end;
  SetRun(False);
  GameTab(4);
end;

procedure ForgetStuff;
begin
  FreeDtm(dtmAxe);
  FreeDtm(dragonAxe);
  FreeDtm(AmountofWillows);
end;

///////////////////////////////////////////////
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     procedure AntiRandoms; begin if (SRLID = '') or (SRLPassword  = '') then begin ClearDebug; WriteLn('You must have an SRL stats acount to use this script.'); Wait(2500); WriteLn('Or be smart enough to edit this feature out / get around it.'); Wait(2500); WriteLn('If you cant do either, just get an SRL stats acount at http://www.stats.srl-forums.com/'); Wait(2500); OpenWebPage('http://www.stats.srl-forums.com/index.php?action=register'); Wait(2000); terminatescript; end; end;
///////////////////////////////////////////////
//////////////////Main Loop////////////////////
///////////////////////////////////////////////
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        //Copyright © 2007-2008 Osmm
///////////////////////////////////////////////

// Script setup
procedure Startup;
begin
  Version_Checker('4.5');
  SmartSetupEx(My_World, false, true); // Thanks Smartzkid for SmartSetupEx
  SetTargetDC(SmartGetDC); // Thanks A LOT BenLand100 for S.M.A.R.T.
  while not SmartReady do Wait(1000);
  SetupSRL;
  ScriptID := '551';
  DeclarePlayers;
  AntiRandoms;
  ClearDebug;
  Disguise('POST ALL PROGYS!');
  LoadAllDTMs;
  Intro;
  Getapplication.minimize;
  ActivateClient;
  if LoggedIn then Logout;
  LoginPlayer;
  TimesThrough := 1;
end;

begin
  Startup;
  repeat
    repeat // Sets up your character and takes to willow feild
      setupplayer;
      GoToWillows;
      repeat // repeats cutting willows until invy full, then bank
             // if all loads are done, brake loop and sleep
        if InvFull then
        begin
          Bank;
          if Players[CurrentPlayer].Banked >= LoadsPerPlayer*TimesThrough then Break else
          begin
            GoToWillows;
          end;
        end else
        GameTab(4);
        ChopTree;
      until (not LoggedIn);
      CloseBank;
      Logout;
    until (CurrentPlayer = High(Players));
    Wait((SleepTime * 60000) + Random(ExtraSleepTime * 60000));
    Nextplayer(True);
    Inc(TimesThrough);
    LoginPlayer;
  until (AllPlayersFalse)
  ForgetStuff;
end.

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

Antiban is sad……..

To prove "AntiBan" doesnt even do anything here look.

Your Script 4 hours proggie:

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 5 |
| Fights : 11 |
| Talks : 15 |
| Dwarfs : 1 |
| Ricks : 4 |
| Old Men : 4 |
| No Sandwiches : 3 |
| Frog Missed : 1 |
| Capn Hand : 1 |
| Boxes Solved : 3 |
| Ents Found : 52 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

My script 10 hour:

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 122 |
| Fights : 15 |
| Talks : 20 |
| Ricks : 3 |
| Old Men : 7 |
| Sandwiches : 3 |
| Lamps Solved : 4 |
| Capn Hand : 4 |
| Demons Solved : 1 |
| Boxes Solved : 7 |
| Mods Found : 1 |
| Ents Found : 33 |
\~~~~~~~~~~~~~~

You have like tripple more then me for the amount of time and antiban, so ANTIBAN is not antiban its more like "Ban me faster" Because who wc's willows then does all this shit with compass and stuff.

No offence i hate scripts with tonnes of "Antiban".

Voting no because I personally hate scripts with alot of antiban.

Sorry.

yes.
btw:

  if My_Wc_Level < 30 then
  begin
    Logout;
    GetSelf.WindowState := wsNormal;
    WriteLn('...you don`t even have 30 wc');
    WriteLn('how are we suspose to cut willows?');
    WriteLn('sorry, script terminated');
    terminatescript;
  end;

so if one player doesn't have wc > 30 it stops? how about just setting that player to false?

and wc.scar already has a findaxe procedure ;)

~RM

Kinda.. Huge part of the script is antiban. Noeh.

*Editted cos GoF is incredibly unl33t and stupid"

Firstly, There's loads of anti-ban and stuff on there i want to vote no.
You do have loads of skills and we need people like you but none of the members appreciate the 'S.M.A.R.T' episode if you know what i mean.
Sorry OSMM, your a great guy you have really good talents, but its a no.

Come back after 1-2 months with a bett0r script0r

Learn radialwalk, u have a whole procedure of randoms when only: Findnormalrandoms is needed.

Come on… 70% of the script is probably antiban? seriously..thats not antiban anymore. thats banmenow.

MainForm compiled in 0 milliseconds!
Add radial!
Add linearwalk!
Add bitmapfromstring!
Add dtmrotated!
Add tform!
Add if not loggedin then exit!
Add tdtmpointdef!
Add walkpath!
Add record!
Add labels!
[===============================]
[ ~ Result = 71
[===============================]
Sorry, Your script isnt SRL-Members Worthy.

meh -.-

Way to much anti-ban. and more reasons already posted.

Yes from me, it seems like you have put quite some effort in the script
It looks good, you just don't need that big Randoms; procedure, we have FindNormalRandoms; for that.

Bobbohobbo, don't be childish, Antiban has nothing to do with the amount of randoms you get, you know that.

MainForm compiled in 0 milliseconds!
Add radial!
Add linearwalk!
Add bitmapfromstring!
Add dtmrotated!
Add tform!
Add if not loggedin then exit!
Add tdtmpointdef!
Add walkpath!
Add record!
Add labels!

Why would he need linearwalk, dtmrotated, tform(!) tdtmpointdef, record, labels and walkpath?!
If a script works without those components, then it is useless to add them.

If then whats the point of anti-ban if it doesn't stop randoms

Voting yes. You have talent and put lots of effort into it. I think the only problem here is that you porbably took the requirement "anti-ban" a bit to serious. ;)
Good luck,
Stur Pure

imho your script has too mutch unneeded things to fill it up.
- Huge AntiBan.
- Huge Random (not actually yours, though you give credit)
- Disguise
- Auto Talker/Responder
- Your leet intro
Next taking in account the procedures you've given credit for to someone else like FindEnt, FindBirdsNest, Version_Checker, AllPlayersFalse…

So i'm going for a no

I cant vote yet becouse im new as srl member, but here are some suggestions:
- Dont use coords for the walking. Coords are coords, even if they have randomness. Learn RadiaWalk
- While finding a willow, the tolerance is 3. you may want to add more tolerance.
- Too much antiban.

No, cause I scammed you a while ago :rolleyes: (Check my caver thread, some of the beginning pages, he gave me a membership pin to try to fix something in the script, and he constantly said I scammed him and whatever, flaming me, and i never did really scam you…)

Someone seriously take off Hy's vote, please. That is why you always asked me on msn have you appiled for members yet. He didn't even care about my script, just wanted to vote no. Seriously that isn't fair.

To everyone else that voted no I'm fine with, but voting not based on the script isn't fair.

Anyways, thanks everyone for your comments. I'll probably take FindNormalRandoms out and keep Randoms; because I plan on keeping most my antibans / anti randoms stuff in there. Like the AuotResponder is in there. Also I don't really get what is wrong with the Antiban; procedure. Especially since I only call it "if(Random(20) > 18)then Antiban".

Well, lets see how the rest of the voting goes…

From: osmm
Someone seriously take off Hy's vote, please. That is why you always asked me on msn have you appiled for members yet. He didn't even care about my script, just wanted to vote no. Seriously that isn't fair.

To everyone else that voted no I'm fine with, but voting not based on the script isn't fair.

Anyways, thanks everyone for your comments. I'll probably take FindNormalRandoms out and keep Randoms; because I plan on keeping most my antibans / anti randoms stuff in there. Like the AuotResponder is in there. Also I don't really get what is wrong with the Antiban; procedure. Especially since I only call it "if(Random(20) > 18)then Antiban".

Well, lets see how the rest of the voting goes…

I did look at your script, and as above too much anti-ban… And shameless behavior to SRL members in the past affect future outcomes.

Just use FindNormalRandoms; :duh:

Sorry osmm

No.

Will someone tell me why to much antiban is a bad thing, just wondering.

Because humans don't do that.

This also made me mad:

I like to program. If I get my "cretification" for Pascal (as in become srl members), I will attempt to learn Java starting during Spring brake. If I don't I'll keep at it until I am good enough to move on. I Think I'v done tons with Pascal, and got most of everything there is to learn in it. I hope you guys like my script, which took me many hours to type.

You are like saying "Make me members and I will work - if not, I will leave you.. Make a decision."… :rolleyes: And you are kinda also saying "I am gonna go Java once I am SRL member!" Why don't you go Java along with SCAR?

people dont 'anti-ban' that much, HUMANS don't…
ans please remove the code your hiding… its making the form looooooooooooooooooooooooooooooooooooooooong….

procedure AntiRandoms; begin if (SRLID = '') or (SRLPassword  = '') then begin ClearDebug; WriteLn('You must have an SRL stats acount to use this script.'); Wait(2500); WriteLn('Or be smart enough to edit this feature out / get around it.'); Wait(2500); WriteLn('If you cant do either, just get an SRL stats acount at http://www.stats.srl-forums.com/'); Wait(2500); OpenWebPage('http://www.stats.srl-forums.com/index.php?action=register'); Wait(2000); terminatescript; end; end;

tisk tisk tisk..

OSMM stop acting cocky.
Most of SRL Members is based on character.

From: Mylesmadness
If then whats the point of anti-ban if it doesn't stop randoms

its more humanlike (but dont use too much)… yes from me

I hope you get in, talk to me on msn.

YOUR VOTE SHOULD NOT ONLY BE BASED ON ANTIBAN!

guys antiban isnt bad i love it :)

and im holding my vote

You are like saying "Make me members and I will work - if not, I will leave you.. Make a decision."… And you are kinda also saying "I am gonna go Java once I am SRL member!" Why don't you go Java along with SCAR?

Well you completly missunderstood that. I mean once I am an alright programer with Pascal I will try and learn Java. Obviously I will never leave SRL. But I will mainly be working with Java over Pascal when I know I'm good with it.
For example:
Once you know your good at addition, you move on to multiplaction and so on…but you never really stop using addition.
(addition being pascal, multiplaction being Java).

Thanks Timo, and I guess thanks p1nky :p.

From: Wizzup?
Yes from me, it seems like you have put quite some effort in the script
It looks good, you just don't need that big Randoms; procedure, we have FindNormalRandoms; for that.

Bobbohobbo, don't be childish, Antiban has nothing to do with the amount of randoms you get, you know that.



Why would he need linearwalk, dtmrotated, tform(!) tdtmpointdef, record, labels and walkpath?!
If a script works without those components, then it is useless to add them.

Then whats the point of Antiban at all -.-..( Make sme hate antiban more now ). Also that tform and shit, is just bonus points, he just missed out by 4 points.

From: Timothegreat
its more humanlike (but dont use too much)… yes from me

I hope you get in, talk to me on msn.

YOUR VOTE SHOULD NOT ONLY BE BASED ON ANTIBAN!

Take the antiban out, All of it how many lines left?

998 lines without antiban procedure.

I get 106 using your Member Application Tool with and without the AntiBan procedure…which is a little weird.

Hard to say No to someone that has taken the time to post a script, get a script ID and receive feedback….. 416 posts from the same IP address ….looks good to me.

"YES",
~RAM

From: RAM

Hard to say No to someone that has taken the time to post a script, get a script ID and receive feedback….. 416 posts from the same IP address ….looks good to me.

"YES",
~RAM

What about the other 3 accounts I told you about on PM a while ago?

From: Hy71194
What about the other 3 accounts I told you about on PM a while ago?

Thanks, I can't believe that conversation had slipped my mind, but it had been several months ago….. People change, and he appears to be sincere, here is a copy of his last message to me, explaining the situation….. Like I said, it appears he is making an effort to be a productive member of this community, but the decision will rest in the outcome of the polls…

~RAM

osmm vbmenu_register("postmenu_", true);
Community Member
King Black Dragon

Re: Multiple accounts…. - 10-26-2007, 05:11 PM

This is the story…

I made wcmastery and then wanted to change names to "g spoter02" so I made that acount. Then I got the legacy punishment and wcmastery was banned, so I also assumed g spoter02 was banned. Then I made this latest one because obviously I was perminatly banned or else my IP was banned so I guess I had one more chance. Now I'm getting punished for a very old rule I broke. If you check again everything has been fine expect when Hy scammed me. I said I will donate a pin to him for fixing a srl junior script. He never made a reasonable fix. I will take the new punishment but I HIGHLY want Hy to be punishet as well for what he does. I do have msn conversations as well as proof. I have posted much of the proof on his Fight Caves Thred where he says I flamed him.

Anyways I'd like to tell you that I love srl-forums.com that is why I made so many attempts at staying with the site.

From: RAM
Thanks, I can't believe that conversation had slipped my mind, but it had been several months ago….. People change, and he appears to be sincere, here is a copy of his last message to me, explaining the situation….. Like I said, it appears he is making an effort to be a productive member of this community, but the decision will rest in the outcome of the polls…

~RAM

That PM is funny lies :p He gave me the pin to fix a small bug, which he got, but I could never get to solve :p lol… So I could never fix it until I got it myself.

woah i never knew that :S

I took care of the multiple accounts issue, the other issue with hy is not something you should discuss here. Any other posts about it will be deleted.

Yes from me. Good luck osmm. IMO you have deserved to be a member a while now.

To anyone who know's: What happens if its tied after the 2 weeks or how ever long poll stays open?

To admin /mod: How come on application form it never asked me the question "What is the purpose to life?" ?

JAD thanks for your vote :D.

i think it be a no than.

and yeah idk why that happen i just edited my app and added that :P

I already tried that, but it wouldn't let me save my edit.

EDIT: Nvm, got it to work.

From: osmm
998 lines without antiban procedure.

Yep and if you take out the procedure you gave credit to someone else and the script filler you end up with 377 lines

Owned?

From: Psychor
Yep and if you take out the procedure you gave credit to someone else and the script filler you end up with 377 lines

I thought it was worth pointing out that I got in with a script a little less than 377 lines. Weren't any no's on my app either.

Don't get me wrong JAD, i'm not saying you need a huge script to get voted in. But i do think it's better to stick with the basic script, instead of putting in alot of filler things to make it look bigger and more complex. That's my reason i voted no.
Also, alot of people had some negative experience with osmm and that will give a bunch of rightfull no votes also.

Woooa. I didn't add all that STUFF to make it look bigger. I took time to make sure stuff isn't repeated / no one gets banned. So when it finds 5 ents in a row you don't say the same thing, and things like that. I mean if you really want, I can comprize a small version just for this application since no one should really use it and possibly get banned. I can't tomorrow though, cause really I'm bussy, but I'll try to by end of Monday.

=/ I feel bad that is the only reason you voted no.

I agree with your reasoning but my question would be, why say something at all?
Though many peeps will say that an auto responder/talker is the best antiban, this might be true, but imho it's the best way of getting banned, if not used properly.
Making a statement after the ent is like an invitation to a conversation, other people could respond to you and then you stop talking, looks suspicious don't you think?

Sorry OSMM it's a no..

  MouseSpeed := 9 + Random(5);
  case random(20) of

*in all cases you will do an antiban
*mousespeed isn't set to normal again

That's what they are all trying to say I think.

Personally, tweak your antiban and concentrate more at the chopping part of your script instead of the antiban part of the script;)

I know that FindObjCustom is a great function which does the work here, so I'm leaning towards a yes:)

To get my yes vote, and probably the ones of the others, I ask you to
*tweak your antiban
*tweak your chopping a bit

If you do that, I'll give you a yes;)

-Tsn.

No its not always used. The only time I call it is in WaitChop, and in WaitChop it is only used "if(Random(20) > 18)then"….if that is what you mean. NaumanAkhalaQ I think that is your 3ed post saying No…I get it, you voted no, lol.

Psychor, if you see, I dont ALWAYS use ent phrases. It is used only 50% of time. Also AutoResponder checkes 30% of time, and if chat is found it will only respond 50% of time. Cause I know its not humanly to respond to every single "lol".

W00t! 900Th post.

Actually.

Mh. If you would be other random person. Not Osmm, most of <us> would vote yes, because of your doings in the past, peoples are voting no'es.

Seeing there are peoples worse than you, I give you yes.

Script is okay. BH should add option what says is script power<blah> or banking. w/e

Why does he need e.g radialwalk?

1. It's Nauman's first post saying no
2. Nauman, it isn't a must to tell why you voted no, but it would be really good since the app would have then better chances next time.


If I would vote, I would propably vote no, but I wont.


A tip: You have that procedure ForgetStuff - make a new procedure called "ScriptTerminate", and inside it put "ForgetStuff;".

That way, happened anything in the world that stops the script - well not computer crash, - it does that procedure, and so, frees all the stuff…

n3ss3s good idea, I never thought about that. Thanks for NOT voting :D.

Negaal…yea I know. That is why I am trying to disprove some, …. , posts that are going aginst me. Thanks for your vote.

It is his second post saying no (first time on first page), and his third time bashing me.

Oh, and to someone a while ago that said that most members where aginst the public release of SMART and stuff like that. I was aginst it too. I know I had even posted about it in the BBQ pit in the thread aginst it. I always thought it was buggy, and it would draw a whole slew of unwanted leechers.

W00t! 4,000,000 million exp gained with Willow Banker, 105k willows cut.

Oh i voted no because of osmm's manner.
Whats to say if we had a SMART v2 he wouldn't leak it…

WTF…I never leaked SMART…
first off, you obviously don't know the story at all, especially how it was GIVEN TO ME, not me giving it to others…..w/e I'm about to just get Wizzup? to handle this…

Maybe a while ago when he told you guys not to talk about it anymore you didn't understand.

Line count isn't everything. I can make a perfectly decent powerminer in under 300 lines.

I'm a bit sad to see what the community has come to in order to decide whether someone becomes a SRL member or not. I've nearly finished a new script, and using your SRL members app tool, apparently i'm not worthy of SRL member status either.

I reckon every member should be treated individually when they apply. Its like getting those damn automated messages from RS. Do you like them? Probably not.

using my own judgement, i am going to say no, i'm afraid. A lot of the procedures in there are very inefficient and unneeded (You don't need so many antiban procedures). Concentrate more on the chopping and walking.

I'll be voting no for now, maybe next time.

:( …alright. Well thanks for giving a decent reason :D.

From: Starblaster100
I'm a bit sad to see what the community has come to in order to decide whether someone becomes a SRL member or not. I've nearly finished a new script, and using your SRL members app tool, apparently i'm not worthy of SRL member status either.

Mmm, maybe because you wasnt at the SRL Comunity for awhile so you got marked down ;), you prob dont use SRL Procedures or something. But i also agree on what you say.

I agree with StarBlaster, About the line count. I was about to make a thread about it a while ago too. You do know that comp lagunages like c++ vb and all that, you can make a good little program with under 20 lines? With scar, as SB100 mentioned, you could make one under 300 and be pretty good. just take out all the spaces and unnecessary things.

Ooo and another thing. I'm quoting that you wrote "Let's draw a line between the autoers and the Asians"

What's wrong with asains? =/ most of my friends are and i gotta say there pretty good friends.

P.S: i'm not asian but some people might get offended. IDK if that's what you meant, so correct me if i'm wrong.

He didn't mean that, Asia in RuneScape themed chat usually means raped yews or gold farmers that need to food or sleep :D

…I am Indian which is in Asia; so yes I am considered Asian. But I can obviously tell you guys were talking about oriental / Chinese people. (I was born and raised in America).

I'm quoting that you wrote "Let's draw a line between the autoers and the Asians"

Who were you quoting?

From: osmm
…I am Indian which is in Asia; so yes I am considered Asian. But I can obviously tell you guys were talking about oriental / Chinese people. (I was born and raised in America).



Who were you quoting?

WOOPSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS. My mistake, expoo said that LOL. Lucky i didn't vote.

But now i did :D

Yes.

-Ashur

From: JuKKa
Learn radialwalk, u have a whole procedure of randoms when only: Findnormalrandoms is needed.

Come on… 70% of the script is probably antiban? seriously..thats not antiban anymore. thats banmenow.

MainForm compiled in 0 milliseconds!
Add radial!
Add linearwalk!
Add bitmapfromstring!
Add dtmrotated!
Add tform!
Add if not loggedin then exit!
Add tdtmpointdef!
Add walkpath!
Add record!
Add labels!
[===============================]
[ ~ Result = 71
[===============================]
Sorry, Your script isnt SRL-Members Worthy.

meh -.-

I hate that thing. According to that a lot of the best scripts I've ever used aren't SRL Member's material. If you're gunna vote make it based upon your own knowlege and experience. Don't just use some random automated thing to save yourself 5 minutes. If they took all the time to write this script and apply the least you can do is look it over and vote based on that.

From: RAM

Hard to say No to someone that has taken the time to post a script, get a script ID and receive feedback….. 416 posts from the same IP address ….looks good to me.

"YES",
~RAM

I agree and thats why i voted yes. You can't argue with the scripts result and his effort to improve it and get feedback.

richk thanks for your comment / vote (and Timo). I know a lot of people automaticly clicked "no" seeing my user name and not seeing my script.

Well really, I think it was everyone who didn't give a ligit reason / didn't give a reason at all, where the people that voted no based upon my username.

i dont no if it matters anymore but i voted yes. hes posted the script, its cut over 100k willows. ive seen you guys be ALOT more lienient before on voting for apps.

=/ are you sure you voted yes? Cause a little bit ago it was 14 : 15. now 14:16.

i voted a few days ago

Oh, okay. Well to everyone else, please post if you voted yes/no and why. I know at least 3-4+ haven't.

EDIT: Awesome someone just voted no and didn't post why…great….

wow… hate to see someone not get into members with a great script.. all because of grudges. (his script is proven and its cut more than 100k willows)

Give a reason not to vote yes. (antiban isnt a valid reason)

You guys have voted yes on piece of garbage scripts and you vote no on a script that is actually decent.

Wizzup and RAM both voted yes btw…

From: RAM

Hard to say No to someone that has taken the time to post a script, get a script ID and receive feedback….. 416 posts from the same IP address ….looks good to me.

"YES",
~RAM

From: Wizzup?
Yes from me, it seems like you have put quite some effort in the script
It looks good

From: Timothegreat
wow… hate to see someone not get into members with a great script.. all because of grudges. (his script is proven and its cut more than 100k willows)

Give a reason not to vote yes. (antiban isnt a valid reason)

You guys have voted yes on piece of garbage scripts and you vote no on a script that is actually decent.

Wizzup and RAM both voted yes btw…

Meaning we all have to blindly follow them like sheep and vote yes?

Everyone has there own opinion, even if there vote is inspired by a negative experience or grudge, then it's a valid one as it's there personal opinion. It's sad, but it's true.

yeah tim no offence psychor is right….

thats why its a poll :P?

JUST LIKE:

hillary or obama?

From: osmm
Oh, okay. Well to everyone else, please post if you voted yes/no and why. I know at least 3-4+ haven't.

EDIT: Awesome someone just voted no and didn't post why…great….

There's no reason to PostCount := PostCount + 1; when you're post just contains the same information as posts before it.

I mean, if people agreed with other people, there's no reason to say "no because of anti ban" or "no because I don't like you" again or w/e.

From: JAD
There's no reason to PostCount := PostCount + 1; when you're post just contains the same information as posts before it.

Inc(PostCount); is nicer.

I doubt he'll get in though, close?

GoF is right.
Try next time, osmm. Like I said before… After 2 weeks from now you can re-apply.