SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
SCAR

Other Communitys
communities?

How Long have You Played Runescape
3 years.

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

I like to script. I just started a couple of days ago with this. I want to be an SRL member. I like to script. I like to do other things like smoke weed. I used to play Metal Gear Online until those fuckin bastards closed it down, FUCK YOU KONAMI. I am John Rambo, the one and only.

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

Dont know if this is good enough but oh wel..

program G3tM0n3y;
{.include SRL/SRL.scar}
{.include srl/srl/misc/amount.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}

//- - - - - - - - - - - - - - - - - NOTES - - - - - - - - - - - - - - - - - - \\
// - Dont know why when selling logs, always clicks tab 4 when its not there,
//   during trading shop keeper in other words. Dont know if ent finding works,
//   never had an ent. And some weird error comes up when calling
//   FindAxeHeadColor, must have something to do with bitmaps.
//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \\
// - Fixed FindAxeHeadColor, instead of Freeing a DTM by using FreeDTM, SRL used
//   FreeBitmap.
//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \\
// - FindTree function doesn't totally work. Camera slighty shifts at any given
//   moment. Might work on this function by using canvases and comparing them.
//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \\
// - Must have new bitmap of shop symbol for this script to function properly
//   also.
//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \\
//- - - - - - - - - - - - - - - - DIRECTIONS!!! - - - - - - - - - - - - - - - \\
//All players must start off next to Oak tree located by Varrock center. Players
//MUST be weilding or contain an Axe in inventory. Color pick the color of the
//Oak symbol on mini-map (triangular tree). Setup cont's below and declare your
//players which is also located below. This script either power chops, or sells
//your logs or everything in your inventory to the shop. I really like how I
//made it find the shop keeper in ONE move of the mouse, really sweet.
//Hope you enjoy this script!
//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \\
//----------------------------------------------------------------------------\\
//--VARS------------------------------------DO-NOT-TOUCH!!!-------------------\\
//----------------------------------------------------------------------------\\

var TreeCoord: TPoint;
var TreeCount, OakTree: integer;
var Water: integer;
var ShopSymbol: integer;
var ShopKeeper1, ShopKeeper2, OakLogs: integer;
var AllLogs, AllTrips: integer;
var AllXP: extended;
var PlayerTrips: integer;
var StartCash, MyCash: integer;
var K: integer;

//----------------------------------------------------------------------------\\
//--CONSTS-AND-PLAYER-ARRAY-----------------SET-THESE-UP----------------------\\
//----------------------------------------------------------------------------\\
const TotalPlayers = 5;
const StartPlayer = 0;
const Trips = 5; //Trips to do before switching.
//-------------------------->
const UseBenMouse = True; //Use Ben mouse?
const ScriptMouseSpeed = 9; //Your mouse speed.
//----------------->
const TreeTop = 1139506; //Color of oak tree symbol on mini-map.
const CheckTree = 13; //Seconds to click tree again if still up.
const PowerLoads = False; //Just drop, or sell to shop?
const KeepItems = True; //Keep inventory items or sell everything? If selling to shop.
//--------->

Procedure DeclarePlayers;
begin

  HowManyPlayers  := TotalPlayers;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := StartPlayer;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active:= True;
  Players[0].Loc := 'Oak';
  Players[0].String1 := ''; //Bank pin, if any.
  Players[0].Boolean1 := True; //Is your axe weilded?

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active:= True;
  Players[1].Loc := 'Oak';
  Players[1].String1 := ''; //Bank pin, if any.
  Players[1].Boolean1  := True; //Is your axe weilded?

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active:= True;
  Players[2].Loc := 'Oak';
  Players[2].String1 := ''; //Bank pin, if any.
  Players[2].Boolean1 := True; //Is your axe weilded?

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Active:= True;
  Players[3].Loc := 'Oak';
  Players[3].String1 := ''; //Bank pin, if any.
  Players[3].Boolean1 := True; //Is your axe weilded?}

  Players[4].Name := '';
  Players[4].Pass := '';
  Players[4].Nick := '';
  Players[4].Active:= True;
  Players[4].Loc := 'Oak';
  Players[4].String1 := ''; //Bank pin, if any.
  Players[4].Boolean1 := True; //Is your axe weilded?

end;

//----------------------------------------------------------------------------\\
//--START-OF-SCRIPT------------------MESS-AROUND-WITH-CODE-AT-OWN-RISK!-------\\
//----------------------------------------------------------------------------\\

procedure InMemory;
begin
  OakTree := DTMFromString('78DA6354676460706600036608C5905160CBC' +
           '005A481320CFF8180D118C8F244551390A0035703028CAA409617' +
           'AA9A8402235435F240960DAA9A82067B5435BA4096159A3919162' +
           '86A00FDF50B86');

  ShopKeeper1 := DTMFromString('78DA6394656460706140017B26E630700169A' +
               '00CC37F20601403B21C20721C5035F599E170352000002D7A07CE');

  ShopKeeper2 := DTMFromString('78DA637CC5C0C0B08C0105B4C71A317001694' +
               '620FE0F048CAF818C3510390EA89AFACC70B81A10000089520999');

  OakLogs := BitmapFromString(3, 19, 'z78DA958F3B0EC4200' +
           'C05AFC4DACFF6A36409B9FF9182C00552B4C536236BFC77C15786' +
           '5DA074338890771480970F089B777C7E9AC3570BC0AA86C0DE26B' +
           'D78D152198EC8EC19BFCDEA0AB3A67172CE81F693313F9091B72D' +
           '36A5D9205CE7C635AD39C3EEBCE14FB39986AC5E76CDE66976CD0' +
           '382684984');
end;

//----------------------------------------------------------------------------//

procedure RamboLogout(Reason: string);
begin
  Players[CurrentPlayer].Loc := Reason;
  Writeln((Reason) + ' --> ' + (Players[CurrentPlayer].Name));
  Status((Reason) + ', logging out.');
  if (LoggedIn) then SetChat('Off', 1);
  while (LoggedIn) do Wait(1000 + Random(1000));
end;

//----------------------------------------------------------------------------\\

procedure RandomsProcedure(RanType: string);
begin
  case (RanType) of
    'Ent': begin
             Status('Found ENT!!!');
             MouseFlag(MMCx, MMCy, 5, 5);
             case (Random(7)) of
               0: TypeSend('ent');
               1: TypeSend('watch it');
               2: TypeSend('lookie here');
               3: TypeSend('o boy');
               4: TypeSend('cant get me');
               5: TypeSend('almost got me');
               6: TypeSend('close one');
             end;
             FTWait(35 + Random(10));
           end;
    'Fight': begin
               Status('Found Fight!');
               RunAwayDirection('S');
               case (Random(4)) of
                 0: TypeSend('dumb randoms');
                 1: TypeSend('fight fight');
                 2: TypeSend('run!');
                 3: TypeSend('darn');
               end;
               FTWait(15 + Random(5));
               MouseFlag(660, 45, 5, 5);
               x := MMCx;
               y := MMCy - 5;
               if (FindColorSpiral(x, y, TreeTop, MMx1, MMy1, MMx2, MMy2)) then
                 MouseFlag(x, y, 2, 2)
               else
                 RamboLogout('No Oak tree found on mini-map');
             end;
  end;
end;

//----------------------------------------------------------------------------\\

procedure SetUp;
begin
  if not(LoggedIn) then LoginPlayer;
  Status('Setting up player...');
  Water := FindWaterColor;
  if (WaterColor = 0) then RamboLogout('No water color');
  if not(FindAxeHeadColor) then RamboLogout('No axe');
  if not(LoggedIn) then Exit;
  PlayerTrips := 0;
  MakeCompass('N');
  HighestAngle;
  Wait(Random(1000));
  SetChat('On', 1);
  SetChat('On', 1);
  SetChat('Friends', 2);
  SetChat('Off', 3);
end;

//----------------------------------------------------------------------------\\

function ConfigureCash: integer;
begin
  if (StartCash = 0) then
    Result := CoinAmount('Inventory')
  else
    Result := (CoinAmount('Inventory') - StartCash);
end;

//----------------------------------------------------------------------------\\

procedure ConfigureScriptStats(Logs, Cash, CurrTrips: boolean);
begin
  if not(LoggedIn) then Exit;
  if (Logs) then
  begin
    AllTrips := AllTrips + 1;
    AllLogs := AllLogs + CountItemBMPTol(OakLogs, 10);
    AllXP := AllXP + (CountItemBMPTol(OakLogs, 10) *  GetTreeExp('Oak'));
    Players[CurrentPlayer].Integer1 := Players[CurrentPlayer].Integer1 + 1;
    Players[CurrentPlayer].Integer2 := Players[CurrentPlayer].Integer2 + CountItemBMPTol(OakLogs, 10);
    Players[CurrentPlayer].Extended1 := Players[CurrentPlayer].Extended1 + (CountItemBMPTol(OakLogs, 10) * GetTreeExp('Oak'));
  end;
  if (Cash) then
  begin
    Players[CurrentPlayer].Integer3 := Players[CurrentPlayer].Integer3 + ConfigureCash;
    MyCash := MyCash + ConfigureCash;
  end;
  if (CurrTrips) then
  begin
    PlayerTrips := PlayerTrips + 1;
    if (Trips <= PlayerTrips) then
    begin
      RamboLogout('Next player');
      NextPlayer(True);
      SetUp;
    end;
  end;
end;

//----------------------------------------------------------------------------\\

procedure WalkToOak;
begin
  if not(LoggedIn) then Exit;
  Status('Walking back to Oak tree.');
  Wait(Random(1000));
  MakeCompass('N');
  Wait(1000 + Random(1000));
  x := 600;
  y := 11;
  if (FindColorSpiral(x, y, Water, MMx1, MMy1, MMx2, MMy2)) then
  begin
    MouseFlag(x + 20, y + 20, 3, 3);
    FindNormalRandoms;
    MouseFlag(665, 60, 4, 4);
    x := MMCx;
    y := MMCy - 12;
    if (FindColorSpiral(x, y, TreeTop, MMx1, MMy1, MMx2, MMy2)) then
    begin
      MouseFlag(x - 2, y + 8, 5, 5);
      FindNormalRandoms;
      Players[CurrentPlayer].Loc := 'Oak';
      ConfigureScriptStats(False, False, True);
    end else
    RamboLogout('No tree');
  end else
  RamboLogout('No water color');
end;

//----------------------------------------------------------------------------\\

function FoundEnt: boolean;
begin
  Result := FindColorTolerance(x, y, 195836, MMCx - 13, MMCy - 13, MMCx + 13, MMCy + 13, 15);
end;

//----------------------------------------------------------------------------\\

function FindTree: boolean;
var
 i, TC: integer;
 UpText: array [1..2] of integer;
begin
  if not(LoggedIn) or (InvFull) or not(FindHead) then Exit;
  Status('Looking for the Oak tree.');
  UpText[1] := 14605827;
  UpText[2] := 195836;
  Result := FindDTM(OakTree, x, y, MSx1, MSy1, MSx2, MSy2);
  if not(Result) then
  begin
    TreeCount := TreeCount + 1;
    Exit;
  end else
  begin
    MMouse(x, y, 7, 7);
    Wait(10);
    for i := 1 to 2 do
    begin
      Wait(175);
      if not(FindColorTolerance(x, y, UpText[i], MSx1, MSy1, 235, 20, 40)) then
      begin
        TC := TC + 1;
        if (TC > 1) then
        begin
          TreeCount := TreeCount + 1;
          Result := False;
          Exit;
        end;
      end else
      if (IsUpText('ak')) then
        Break
      else
      begin
        TreeCount := TreeCount + 1;
        Result := False;
        Exit;
      end;
    end;
    if (i = 2) and (FoundEnt) then
    begin
      Result := False;
      RandomsProcedure('Ent');
      Exit;
    end;
    GetMousePos(x, y);
    Status('Oak tree has been found. At coords: ' + IntToStr(x) + ', ' + IntToStr(y));
    MouseFlag(x, y, 0, 0);
    Wait(100 + Random(500));
    TreeCoord.x := x;
    TreeCoord.y := y;
  end;
end;

//----------------------------------------------------------------------------\\

procedure RandomProcedures(Which: string);
begin
  if not(LoggedIn) then Exit;
  case (Which) of
    'Camera': case (Random(2)) of
             0: SendArrowSilentWait(3, 275 + Random(750));
             1: SendArrowSilentWait(1, 275 + Random(750));
           end;
    'Random': case (Random(8)) of
                0: MouseBox(MSx1, MSy1, MSx1, MSy2, 3);
                1: GameTab(1 + Random(13));
                2: IdleTime(750 + Random(500), 1000, 1.0);
                3: MouseBox(MMx1, MMy1, MMx1, MMy2, 3);
                4: SleepAndMoveMouse(2500 + Random(2500));
                5: MouseBox(MIx1, MIy1, MIx1, MIy2, 3);
                6: GameTab(1 + Random(13))
                7: SleepAndMoveMouse(500 + Random(500));
              end;
  end;
end;

//----------------------------------------------------------------------------\\

procedure WaitTree;
var TreeColor, ExitTime: integer;
begin
  if not(LoggedIn) then Exit;
  Status('Tree is currently up...');
  TreeColor := GetColor(TreeCoord.x, TreeCoord.y);
  MarkTime(ExitTime);
  while (FindColorTolerance(x, y, TreeColor, TreeCoord.x - 4, TreeCoord.y - 4, TreeCoord.x + 4, TreeCoord.y + 4, 10)) do
  begin
    if (FindNormalRandoms) or not(LoggedIn) or (FoundEnt) or (InvFull) or not(FindHead) or (ClickToContinue) then Exit;
    if (FindFight) then
    begin
      RandomsProcedure('Fight');
      Exit;
    end;
    if (TimeFromMark(ExitTime) >= (CheckTree * 1000 + (Random(CheckTree / 4 + 1)))) and
       not(InvFull) then
    begin
      Status('Clicking tree again.');
      Exit;
    end;
    case (Random(4)) of
      2: RandomProcedures('Random');
    end;
    Wait(100 + Random(500));
  end;
  Status('Oak tree not found.');
end;

//----------------------------------------------------------------------------\\

procedure WalkToShop;
begin
  if not(LoggedIn) then Exit;
  Status('Walking to Varrock''s general store.');
  Wait(Random(1000));
  MakeCompass('S');   //Called compass 2x to make sure its NORTH.
  Wait(Random(1000));
  MakeCompass('N');
  Wait(1000 + Random(1000));
  if not(FindSymbol(x, y, 'Shop')) then
  begin
    x := 585;
    y := 90;
    if (FindColorSpiral(x, y, Water, MMx1, MMy1, MMx2, MMy2)) then
    begin
      MouseFlag(x + 23, y + 20, 5, 5);
      FindNormalRandoms;
      if (FindSymbol(x, y, 'Shop')) or
         (ShopSymbol > 0) and (FindMSColor(x, y, ShopSymbol)) then
      begin
        if (ShopSymbol = 0) then
        begin
          ShopSymbol := GetColor(x, y);
          Writeln('Shop symbol color: ' + IntToStr(ShopSymbol));
        end;
        MouseFlag(x, y, 6, 6);
        FindNormalRandoms;
        Players[CurrentPlayer].Loc := 'Shop';
      end else
      RamboLogout('No shop');
    end else
    RamboLogout('No water');
  end else
  begin
    MouseFlag(x, y, 4, 4);
    FindNormalRandoms;
    Players[CurrentPlayer].Loc := 'Shop';
  end;
end;

//----------------------------------------------------------------------------\\

function FindObjectDTM(var Ox, Oy: integer; DTM: integer; Text: string; TextWait: extended; Rotated: boolean): boolean;
var
  a, c, i, x1, y1, x2, y2: Integer;
begin
  if (FindDTM(DTM, x, y, MSx1, MSy1, MSx2, MSy2)) then
  begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      if (not (LoggedIn)) then Break;
      a := a + 1;
      if (a = 1) or (a = 3) then c := c + 1;
      for i := 1 to c do
      begin
        if (a = 1) then
        begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end else
        if (a = 2) then
        begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end else
        if (a = 3) then
        begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end else
        if (a = 4) then
        begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        if (x1 = 485) and (x2 = 517) then x2 := x2 - 2;
        if (y1 = 325) and (y2 = 345) then y2 := y2 - 7;
        if (x2 > 515) then Break;
        if (FindDTM(DTM, x, y, x1, y1, x2, y2)) or
           (Rotated) and (DTMRotated(DTM, x, y, x1, y1, x2, y2)) then
        begin
          MMouse(x, y, 0, 0);
          Wait(Round(TextWait * 1000));
          if (IsUpText(Text)) then
          begin
            Ox := x;
            Oy := y;
            Result := True;
            Break;
          end;
        end;
      end;
      if (a = 4) then a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;

//----------------------------------------------------------------------------\\

function MyShopScreen: boolean;
begin
  Result := IsTextAtEx(192, 32, 'Varrock General', 35, upchars, True, False, 0, 0, -1);
end;

//----------------------------------------------------------------------------\\

function FindKeeper: boolean;
var Sx, Sy, KeeperTime: integer;
begin
  Status('Looking for shop keeper/assistant...');
  if (FindObjectDTM(Sx, Sy, ShopKeeper1, 'hop', 0.3, True)) or
     (FindObjectDTM(Sx, Sy, ShopKeeper2, 'hop', 0.3, True)) then
  begin
    Mouse(Sx, Sy, 0, 0, False);
    Wait(500 + Random(500));
    if not(ChooseOption(x, y, 'alk-to')) then
    begin
      Status('Miss-clicked.');
      case (Random(3)) of
        0: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
        1: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
        2: MouseBox(MMx1, MMy1, MMx2, MMy2, 3);
      end;
      Exit;
    end;
    Status('Found Shop keeper/assistant. At coords: ' + IntToStr(Sx) + ', ' + IntToStr(Sy));
    Flag;
    MarkTime(KeeperTime);
    while not(ClickToContinue) do
    begin
      Wait(1000 + Random(1000));
      if (TimeFromMark(KeeperTime) >= 10000) then
      begin
        Status('No chat box in ' + IntToStr(KeeperTime) + 'ms.');
        Exit;
      end;
    end;
    MarkTime(KeeperTime);
    while not(ClickNPCChatText('are you')) do
    begin
      Wait(1000 + Random(1000));
      if (TimeFromMark(KeeperTime) >= 10000) then
      begin
        Status('No text in chat box in ' + IntToStr(KeeperTime) + 'ms.');
        Exit;
      end;
    end;
    MarkTime(KeeperTime);
    while not(MyShopScreen) do
    begin
      Wait(1000 + Random(1000));
      if (TimeFromMark(KeeperTime) >= 10000) then
      begin
        Status('No trade screen in ' + IntToStr(KeeperTime) + 'ms.');
        Exit;
      end;
    end;
    Result := True;
    Exit;
  end;
end;

//----------------------------------------------------------------------------\\

procedure PlayerStats;
var
 Active, S: string;
 i: integer;
begin
  for i := 0 to (HowManyPlayers) - 1 do
  begin
    if (Players[i].Active = true) then
      Active := 't'
    else
      Active := 'f';
    if (PowerLoads) then
      S := 'D'
    else
      S := 'T';
    Writeln('  * ' + (Players[i].Name) +
            ' =  A: ' + (Active) +
            '  W: ' + IntToStr(Players[i].Worked) +
            '  ' + (S) + ': ' + IntToStr(Players[i].Integer1) +
            '  L: ' + IntToStr(Players[i].Integer2) +
            '  XP: ' + FloatToStr(Players[i].Extended1) +
            '  $: ' + IntToStr(Players[i].Integer3) + 'gp' +
            '  Loc: ' + (Players[i].Loc));
  end;
end;

//----------------------------------------------------------------------------\\

procedure ProgressReport;
var S: string;
begin
  Status('Printing progress report.');
  if (PowerLoads) then
    S := 'loads'
  else
    S := 'trips';
  Writeln('');
  Writeln('[+---------------------------------------------------+]');
  Writeln('');
  Writeln('   + Varrock Oak chopper/seller.');
  Writeln('   + By: Rambo ;)  --------->  Version: 1.0');
  Writeln('   + Working for: ' + (TimeRunning));
  Writeln('');
  Writeln('       - Total logs: ' + IntToStr(AllLogs));
  Writeln('       - Total ' + (S) + ': ' + IntToStr(AllTrips));
  Writeln('       - Total XP gained: ' + FloatToStr(AllXP));
  if not(PowerLoads) then Writeln('       - Total $ made: ' + IntToStr(MyCash) + ' GP');
  Writeln('');
  Writeln('   +---- Player Stats ----+');
  Writeln('');
  PlayerStats;
  Writeln('');
  Writeln('[+---------------------------------------------------+]');
  Writeln('');
  SRLRandomsReport;
end;

//----------------------------------------------------------------------------\\

procedure Sell(FromSlot, ToSlot, T: integer);
var i: integer;
begin
  for i := FromSlot to ToSlot do
  begin
    if (ExistsItem(i)) then
    begin
      MouseItem(i, False);
      Wait(250 + Random(500));
      case (T) of
        1: ChooseOption(x, y, 'Sell 1');
        2: ChooseOption(x, y, 'Sell 10');
      end;
    end;
  end;
end;

//----------------------------------------------------------------------------\\

procedure CloseShopScreen;
var ExitButton: integer;
begin
  ExitButton := BitmapFromString(11, 11, 'z78DAA58E410AC030' +
       '0804BF64AAA6E49A86FEFF492DCD45302B96789883CE2E12BD53E' +
       '863ED3A846392F3ED26EE89CD9D6B153DA54C7A7391353EE24E16' +
       'F5C4A6DE7AF065897EF0663E9BE989CDDFD726839B27323359D43' +
       '3370F66D89456');

  if (FindBitmapToleranceIn(ExitButton, x, y, 465, 20, 510, 65, 25)) then
    Mouse(x, y, 4, 4, True);
  FreeBitmap(ExitButton);
end;

//----------------------------------------------------------------------------\\

procedure TradeShopKeeper;
var TradeTime: integer;
begin
  MarkTime(TradeTime);
  StartCash := CoinAmount('Inventory');
  ConfigureScriptStats(True, False, False);
  while (TimeFromMark(TradeTime) <= 25000) do
  begin
    if not(LoggedIn) then Exit;
    if (FindKeeper) then
    begin
      Status('Selling all logs in inventory.');
      if (KeepItems) then
        ClickAllItemsBmpTolWait('ell 10', OakLogs, 15, 1750 + Random(500))
      else
        if (Players[CurrentPlayer].Boolean1) then
          Sell(1, 28, 2)
        else
          Sell(2, 28, 2);
      while (MyShopScreen) do CloseShopScreen;
      ConfigureScriptStats(False, True, False);
      ProgressReport;
      ArrangeInv;
      Exit;
    end;
    Wait(100 + Random(500));
    //RandomProcedures('Random');
  end;
  RamboLogout('No shop keeper/assistant');
end;

//----------------------------------------------------------------------------\\
//------MAIN-LOOP-------------------------------------------------------------\\
//----------------------------------------------------------------------------\\

begin
  SetUpSRL;
  BenMouse := UseBenMouse;
  MouseSpeed := ScriptMouseSpeed;
  //NewLine := '';
  Wait(500);
  ActivateClient;
  Wait(2000);
  InMemory;
  DeclarePlayers;
  SetUp;
  repeat
    repeat
      if (InventoryFull) or not(LoggedIn) then Break;
      if (FindTree) then
      begin
        TreeCount := 0;
        case (Random(3)) of
          0: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
          1: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
          2: MouseBox(MMx1, MMy1, MMx2, MMy2, 3);
        end;
        WaitTree;
        Wait(1000 + Random(1000));
      end else
      begin
        Status('No Oak tree found!  ---> TreeCount: ' + IntToStr(TreeCount));
        FindNormalRandoms;
        if (FindFight) then RandomsProcedure('Fight');
        if (TreeCount >= 18 + Random(5)) then
        begin
          RamboLogout('No Oak tree found in  ' + IntToStr(TreeCount) + ' turns');
          NextPlayer(False);
        end;
        Wait(1000 + Random(1000));
        RandomProcedures('Camera');
        Wait(1000 + Random(1000));
      end;
    until(InventoryFull)
    if (InventoryFull) and not(PowerLoads) then
    begin
      FindHead;
      WalkToShop;
      TradeShopKeeper;
      WalkToOak;
      ProgressReport;
    end else
    begin
      if (Players[CurrentPlayer].Boolean1) then
        K := 1
      else
        K := 2;
      Status('Dropping everything in inventory starting from inventory spot ' + IntToStr(K));
      ConfigureScriptStats(True, False, False);
      DropTo(K, 28);
      FindNormalRandoms;
      DropTo(K, 28);
      FindNormalRandoms;
      ConfigureScriptStats(False, False, True);
      ProgressReport;
    end;
    if not(LoggedIn) then NextPlayer(False);
  until(False)
end.

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

Script Looks good to me.
Cant bust it.

Just one question…..
How did you learn to script with one post.
Boreas and I got some questions for you also…

This does seem very suspicious. He said he's only been doing this for a couple days with is very hard to believe. But if it's true then wow…I'm holding off my vote.

Boreas and I think we know whats going on. =)
Well just wait for a reply

he's pretending to be someone else and just took their script?

I think he was banned on his previous account, and now, he came back on an other account? ..

- Dont know why when selling logs, always clicks tab 4 when its not there,
// during trading shop keeper in other words.

Are you trying to do FindNormalRandoms? That will try to click the game tab =D.

From: fourscape
Are you trying to do FindNormalRandoms? That will try to click the game tab =D.

[Offtopic]ROFLMFAO!
I was having EXACT same problem with my fletcher!
I think that was whats wrong!
Thanks![/Offtopic]

I'm not sure if personality matters in the application. But if it does that would be a no from me…

I like to do other things like smoke weed. I used to play Metal Gear Online until those fuckin bastards closed it down, FUCK YOU KONAMI. I am John Rambo, the one and only.

If personality matters, I'd say no. But I'll hold off my vote until I find out :)

Otherwise, the script looks good to me.

-Dunceiam

Yes, you guys lika my script? Why not you vote yes??? Im a very good scrptar, what questionz do you guys need to ask me? JoMo what you want to ask me? Boras who Boras? I want to be SRL members, my first post very nais for a script eh?

Im asking, How did you learn to script so well?
And please use popper English, i know you can.

Yeah…

How did you learn….

Well, first of all my script sucks. And yes I can use proper English, I was acting like Borat for a second. How did I learn how to script so well? I do not know, its all new to me. So what you guys say? Yes or no, or just because its my first post you guys do not want to accept me? And YoHoJo, what were you and Boreas thinking?
That is the question….

John R.

Well if you think it sucks, then i guess i should vote NO?
And im just wondering, how can you script without having any posts and joining the form so soon.
MAYBE another member is making the script FOR YOU?

And im in no position to be asked questions =)
Im already SRL member.

EDIT:
Well, what is this all about?

procedure RamboLogout(Reason: string);
begin
  Players[CurrentPlayer].Loc := Reason;
  Writeln((Reason) + ' --> ' + (Players[CurrentPlayer].Name));
  Status((Reason) + ', logging out.');
  if (LoggedIn) then SetChat('Off', 1);
  while (LoggedIn) do Wait(1000 + Random(1000));
end;

http://www.villavu.com/forum/showthread.php?t=9773?t=10993

procedure JuniorLogout(Reason: string);
begin
  Players[CurrentPlayer].Loc := Reason;
  Writeln((Reason) + ' --> ' + (Players[CurrentPlayer].Name));
  Status((Reason) + ', logging out.');
  //SetChat('Off', 1);
  while (LoggedIn) do Wait(1000 + Random(1000));
end;

hmmm?

I think he had someone script for him.

did junior get banned or something? Why would he want another account?

Tis' I. John Rambo.

EDIT: JoMo, tried hard to copy bust John Rambo lol? :)

Who the hell is JoMo?!
Im YoHoJo!
And why did you make a second account and try to get into SRL member…?

Im sorry but i think you wasted everybodies time, yeah im pretty sure every knows the application process is flawed but im sure yohojo has better things to do than stuff around.

Meh, its my job =).

YoHoJo
SRL Member / CopyBuste

What is a copybuste lol ?

Relax guys I was just trying to have some fun…

I dont really see the point tho….

From: YoHoJo
Meh, its my job =).

Arnt you a dev now?

[OffTopic]I was going to apply with a new script I was working on with a new guy. But I guess not =D[/OffTopic] ps: I must be gettin good to catch the FindNormalRandom's problem =D.

^.^ –Fours…

And im in no position to be asked questions =)
Im already SRL member.

YoHoJo :D you should say him:
"*punches in face* We ask the questions here!"

Wasting our time dealing with a BS app is not fun for us….

From: YoHoJo
Wasting our time dealing with a BS app is not fun for us….

Yeah, maybe a temp ban.

having two accounts is not allowed!

This is one of those things where like, everyone said it would be funny if you do it, but in the end, when someone does it, its really not…:|

[Offtopic]

From: Ejjman1
This is one of those things where like, everyone said it would be funny if you do it, but in the end, when someone does it, its really not…:|

Like then time when me and my friend stuck out of order signs all over public toilets? Wait…. That was still funny……..

[/Offtopic]

Lol, well he was only joking :P But STILL a waste of time :(

Oh yeah i voted yes!Just kidding :P

-Ashur:stirthepot: