SRL Archive - Archive

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

What is the meaning to life?
To beat Jackez & to draw the line between us Autoers and the Asians!


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

Programming Knowledge
I have knowledge of: SCAR, Java and A little of HTML

Other Communitys
I am currently a member of the: Mopascape & Sythe

How Long have You Played Runescape
Back since the RSC days..

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

My name is Tj Hughes, I first came across SCAR and this Forums a few months back, I believe back in June '07, at first I thought it was going to be a marathon to try and learn SCAR but with such a helpful community I knew i'd succeed.
Anyways as the months went by I started to become more envolved with SCAR, (ditching schoolwork for extra hours of learning SCAR). I knew I had my work cut-out to succeed in such a tough working environment, and the almighty goal of SRL MEMBERSHIP, a prized goal in the world of scripting.
I've always admired those who manage to obtain SRL MEMBERSHIP and thought I should put in extra effort to try and get up there with those great and mighty such as; Boreas, Wizzup? & WT-Fakawi !
At that point it was more a less a dream, an empty "sigh" that would make me work even harder, well I have enjoyed the tough times that have brought me this far, and I can tell you I wouldn't have got here if it wern't for my upmost respect and determintation to achieve the goal all desire.

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

program DraynorNetBank;
{.include SRL\SRL.scar}
{.include SRL\SRL\Misc\Smart.scar}
{.include SRL\SRL\Misc\Users.scar}

{===============================INSTRUCTIONS==================================}
{ Runescape Low Detail.                                                       }
{ Runescape In Highest Brightness.                                            }
{ Complete What You Need For Script To Run Efficeiently.                      }
{ Drag CrossHairs To RS Window                                                }
{ Hit Play                                                                    }
{=================================CREDITS=====================================}
{=======================CREDITS ARE GIVEN ACCORDINGLY=========================}
{  Dude_Richard                                                               }
{  YoHoJo                                                                     }
{  Jad                                                                        }
{  ShadowMinon                                                                }
{  Wizzup?                                                                    }
{  Wt-Fakawi                                                                  }
{                                                                             }
{                                                                             }
{=============================================================================}

// Script Created On: 21st February 2008
// Script Created By: Exppo (With The Help Of The Above)
// Script CopyRighted 2007-2010 (c)

PauseScript_At = 20;
  ResumeScript_At = 12;
  Sleep_Random_Time = 12;
  
Var
  TestNetBuyer, GrabANewNet, TryWalkBackLost,
  PickUpNet: Boolean;
  Loads, TLoads, FishingNet, AnchovieMask,
  FishingNetColor, ShrimpMask, x, y,
  PornPopups, BuyNet, BankNet, AR,
  Lost_and_DeathWalks, WhirlPool: Integer;
  FishingNetColors: TIntegerArray;
  WhirlPoolAcc: Extended;
  
function AmPm: string;
Var
  Hour, Mins, Sec, Msec: Word;
begin
DecodeTime(Now, Hour, Mins, Sec, MSec);
  if Hour >= 12 then
  begin
    Result := 'Pm';
  end else
    Result := 'Am';
end;

Procedure Sleeping;
Var
  Hour, Mins, Sec, Msec: Word;
begin
  DecodeTime(Now, Hour, Mins, Sec, MSec);
  if Hour = PauseScript_At then
  begin
    LogOut;
    Writeln('SleptUntil ' + IntToStr(ResumeScript_At) + ampm);
    repeat
      Sleep(1000);
      DecodeTime(Now, Hour, Mins, Sec, MSec);
    until(Hour = ResumeScript_At);
    Writeln('SleptWhileRandom ' + IntToStr(Sleep_Random_Time) + 'Mins');
    Sleep(Random(Sleep_Random_Time * 1000 * 60));
    Writeln('ResumedScript');
    LogInPlayer;
  end;
end;

procedure DeclarePlayers;
begin
  SRLID := 'Insert SRL ID Here';
  SRLPassword := 'Insert SRL PassWord Here';
  SRLPlayerForm(True, [], ['LoadsBeforeTrueSwitching'], [], []);
end;

Procedure LoadBMPs;
Begin
  FishingNet := BitmapFromString(9, 8, 'beNoljd0KgjAYhu0eOgiiTgplhWj' +
       'pTCfqmtvC/CtpHRRF938VvSK8PDy8fD9k+ZS+Zc3OiV+Lk9Hpp0tN' +
       'K4xOUD6Eh36Sd8MgE73twqgUglzY/lYGmJfURtD8el7xSMc7sCrHO' +
       'yoa+ysj364YuAtn3gbMqItgHQ7iF2ZafkDGy7EDOut5nYXTr7sM86' +
       'ONMQglKzSvnoNNTovAwS58UBSkf1ehJLI=');// <3 Wizzup
  AnchovieMask := BitmapFromString(1, 4, 'beNrLKioq6svKas3JKc' +
       '0CACMTBV8=');
  ShrimpMask := BitmapFromString(4, 2, 'beNoL9984s3dOe21rSVZ2' +
       'bCiEkRkVkgIAkMMLHA==');
end;

procedure ScriptTerminated;
begin
  Writeln('ScriptTerminated');
  Writeln('RestartScript');
  Writeln('CompleteSRL/ID/Password');
end;

procedure WalkBack; forward;
function FindNormalRandomsEx: Boolean;
var
  i: Integer;
begin
  if not LoggedIn then exit;
  Players[CurrentPlayer].Loc := 'Normal Randoms';
  w_UpdateLastLine;
  for i := 1 to 8 do
  begin
    case I of
      1: SolveNonTalkingRandoms;
      2: Respond;
      3: Result := FindTalk;
      4: if Reincarnate then begin if FindDead then WalkBack; end else Result := FindDead;
      5: Result := FindLamp(LampSkill);
      6: if FindBox then
          Result := SolveBox;
      7: Result :=  RC;
      8: Result := FindMod;
    end;
    if Result then
      Break;
    Wait(1);
  end;
end;

Procedure ProgressReport;
var
  I: Integer;
Begin
  Writeln('{============================================}');
  Writeln('DraynorNetBank V2.0 HasRanFor: ' + TimeRunning);
  Writeln('HasCompleted: ' + IntToStr(TLoads) + ' Loads');
  Writeln('HasFishedSuccesfully: '+IntToStr(TLoads * 27)+' Fish');
  if BankNet > 0 then
    Writeln('HasRetrieved: ' + IntToStr(BankNet) + ' NetsOutOfTheBank');
  if BuyNet > 0 then
    Writeln('HasPurchased ' + IntToStr(BuyNet) + ' NetsWith ' + IntToStr((BuyNet * 5)) + 'Gp');
  if WhirlPool > 0 then
    Writeln('Noticed ' + IntToStr(WhirlPool) + ' WhirlPools');
  if AR > 0 then
    Writeln('AutoResponded ' + IntToStr(AR) + ' Times');
  if Lost_and_DeathWalks > 0 then
    Writeln('HasWalkedFromLumbridge ' + IntToStr(Lost_and_DeathWalks) + ' Times.');
  Writeln('============================================');
  Writeln('Please Use This Script Again');
  Writeln('Remember To Post Progress Reported');
  Writeln('--------------------------------------------');
  Writeln('');
  Writeln('<Character Progress Report>');
  for I := 0 to HowManyPlayers - 1 do
    Writeln(Players[I].Name + ' Loc = ' + Players[I].Loc + ' Active = ' + BoolToStr(Players[I].Active));
  SRLRandomsReport;
  MarkTime(PornPopups);
end;

function AutoResponder(FindText, SayText: TStringArray; LookInLastIntegerLines: integer): Boolean;
var
  textx, texty, Ymod, GetNameTrys, Coordspace, SRT, R: Integer;
  TextSayd, TextFound, PlayerName: String;
begin
  if not loggedin then exit;
  If (LookInLastIntegerLines > 8) then
  begin
    WriteLn('AutoResponder Found An Error');
    WriteLn('[Error] In AutoResponder' + FindText[0]);
    exit;
  end;
  case LookInLastIntegerLines of
    1: Ymod := 441;
    2: Ymod := 428;
    3: Ymod := 414;
    4: Ymod := 400;
    5: Ymod := 386;
    6: Ymod := 372;
    7: Ymod := 358;
    8: Ymod := 344;
  end;
  For R := 0 To (GetArrayLength(findtext)-1) Do
  begin
    if IsTextInAreaEx(8, Ymod, 291, 461, textx, texty, FindText[R], 12, smallchars, False, False, 0, 1, 16711680) then
    begin
      Coordspace := Texty;
      PlayerName := '';
      repeat
        PlayerName := GetTextAtEx(12, (Coordspace), 0, SmallChars, False, False, 0, 5, 0, 40, False, tr_AllChars)
        if (playerName = '') then Break;
        GetNameTrys := GetNameTrys + 1;
      until not (PlayerName = '') or (GetNameTrys > 5)
      Wait(2000);
      if (Pos(Players[CurrentPlayer].Nick, PlayerName) > 0) then exit;
      Result := True;
      SRT := Random(GetArrayLength(SayText));
      TypeSend(SayText[SRT]);
      TextSayd := SayText[SRT];
      TextFound := FindText[R];
      WriteLn('AutoRespond');
      if (Trim(PlayerName) = '') then
      begin
        PlayerName := 'Username:';
        WriteLn('       Could Not Find Username');
      end;
      WriteLn('       ' + Trim(PlayerName) +' ' + TextFound);
      WriteLn('       ' + Players[CurrentPlayer].Name + ': '+ TextSayd);
      WriteLn('     AutoRespond');
      if (PlayerName = 'Username:') then
      begin
        case Random(3) of
          0: PlayerName := 'Username';
          1: PlayerName := 'Username1';
          2: PlayerName := 'Username2';
        end;
      end;
    end;
    if (Result = True) then exit;
  end;
end;

procedure AutoRespond;
begin
  if not loggedin then exit;
  Players[CurrentPlayer].Loc := 'AutoResoponding';
  if AutoResponder(['Hey', 'hey', 'hi', 'Hi'], ['Hello'], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end;
  if AutoResponder(['Wasup', 'heyas', 'whatup buddy', 'sup'], ['nothin much'], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end;
  if AutoResponder(['ishing'], [IntToStr(GetSkillInfo('fishing', False))], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end;
  if AutoResponder([Players[CurrentPlayer].Nick], ['no', 'im busy', 'go away', 'nope', '=.=', '>.<', 'go away plz', 'leave me alone'], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end
end;

procedure AntiBan;
begin
  if not LoggedIn then Exit;
  AutoRespond;
  Players[CurrentPlayer].Loc := 'Anti-BanningNow';
  case Random(30) of
    0: TypeSend('Bored, notice how bored I am..');
    1: MMouse(0, 0, 762, 499);
    2: MMouse(0, 0, 762, 499);
    3: MMouse(0, 0, 762, 499);
    4: MMouse(0, 0, 762, 499);
    5: MMouse(0, 0, 762, 499);
    6: MMouse(0, 0, 762, 499);
    7: MMouse(0, 0, 762, 499);
    8: MMouse(0, 0, 762, 499);
    9: MMouse(0, 0, 762, 499);
    10: MMouse(0, 0, 762, 499);
    11: TypeSend('Atlast a Fish..');
  end;
end;

function GetFishCoords: TPointArray;
var
  Fisheys: array of TPointArray;
  FishPoints: TPointArray;
  avar, ccts: Integer;
begin
  if not LoggedIn then Exit;
  SetLength(Result, 0);
  ccts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  FindColorsSpiralTolerance(MSCX, MSCY, FishPoints, 15459804, MSX1, MSY1, MSX2, MSY2, 50);
  Fisheys := TPAToATPA(FishPoints, 25);
  SetLength(Result, Length(Fisheys) + 1);
  for avar := 0 To Length(Fisheys) - 1 do
    Result[avar] := MiddleTPA(Fisheys[avar]);
  SetLength(Fisheys, 0);
  ColorToleranceSpeed(ccts);
end;

Function FindWhirlPool(x, y: integer): Boolean; forward;
function LocateFishingSpot(var x, y: Integer): Boolean;
var
   FishPoints: TPointArray;
   FirstPointToLastPoint: Integer;
begin
  if not LoggedIn then Exit;
  Result := False;
  FishPoints := GetFishCoords;
  Writeln(IntToStr(Length(FishPoints)) + ' Colors Have Been Found For Fishing Spot');
  for FirstPointToLastPoint := 0 to Length(FishPoints) - 1 do
  begin
    MMouse(FishPoints[FirstPointToLastPoint].X, FishPoints[FirstPointToLastPoint].Y, 0, 0);
    Wait(150 + Random(50));
    if IsUpText('ishi') and not FindWhirlPool(FishPoints[FirstPointToLastPoint].X, FishPoints[FirstPointToLastPoint].Y) then
    begin
      Result := True;
      x := FishPoints[FirstPointToLastPoint].X;
      y := FishPoints[FirstPointToLastPoint].Y;
      Exit;
    end;
  end;
end;

procedure SetUpSmart;
begin
   SmartSetupEx(1, False, True);
  while not SmartReady do wait(100);
  SetTargetDC(SmartGetDC);
end;

procedure SetUpScript;
begin
  ScriptID := '1086';
  Reincarnate := UseDeathWalkBack;
  DeclarePlayers;
  WhirlPoolAcc := 1.0;
  if (SRLID = '') or (SRLPassword = '') then
  begin
    Writeln('If You Consider Yourself A Leecher - This Script Will Be Removed');
    OpenWebPage('http://www.stats.srl-forums.com/?action=register');
    TerminateScript;
  end;

MarkTime(PornPopups);
  TestNetBuyer := BuyNets;
  if TestNetBuyer then
  begin
    Writeln('(!)  You Have Chosen To Test The Net Buyer');
    Writeln('     No Nets - Script Will Buy');
    Writeln('     Will Purchase Net From PortSarim');
  end;
  GrabANewNet := GrabNetsBank;
  if GrabANewNet then
    Writeln('(!)  You Have Chosen To Use The NetCollector');
  if Reincarnate then
    Writeln('(!)  Walking Back From Lumbridge');
  TryWalkBackLost := TryLostWalkBack;
end;

procedure StartScript;
var
  i: Integer;
begin
  LogInPlayer;
  SetAngle(True);
  Wait(5000);
  for i := 0 to howmanyplayers - 1 do
    players[i].loc := 'fish';
end;

procedure WaitForFishing; forward;

var
  Fsx, Fsy, FishingSpotFollowColor: Integer;

procedure CatchFish;
begin
  repeat
    if not loggedin then exit;
    Players[CurrentPlayer].Loc := 'Locating Fishing Spot - Please Wait';
    if not LoggedIn then Exit;
    if LocateFishingSpot(Fsx, Fsy) then
    begin
      Mouse(Fsx, Fsy, 5, 5, True);
      FishingSpotFollowColor := GetColor(x, y);
      if FindColorSpiral(Fsx, Fsy, FishingSpotFollowColor, x - 20, y - 20, x + 20, y + 20) then
        GetMousePos(Fsx, Fsy);
      WaitForFishing;
      if not LoggedIn then Exit;
    end else
    begin
    if LocateFishingSpot(Fsx, Fsy) then
    begin
      Mouse(Fsx, Fsy, 5, 5, True);
      WaitForFishing;
      if not LoggedIn then Exit;
      end else
      begin
        if trywalkbacklost then
        begin
          WalkBack;
          CatchFish;
        end else
        begin
          Writeln('(!)(?) Script Could Not Find FishingSpot');
          LogOut;
          Players[CurrentPlayer].Loc := 'No Fishing Spots Available';
          if not LoggedIn then Exit;
        end;
      end;
    end;
    ClickToContinue;
  until(InvFull) or (not LoggedIn);
end;

procedure ShrinkArray(var a: array of Integer);
var
   I, C, J, MyC: Integer;
   cCond: Boolean;
begin
  MyC := 0;
  for I := 0 to Length(a) - 1 do
  Begin
    cCond := False;
    for C := 0 to MyC - 1 do
    begin
      if a[I] = a[c] then
      begin
        cCond := True;
        Break;
      end;
    end;
    if not cCond then
    begin
      for J := I downto 1 do
      begin
        Swap(A[J], A[J - 1]);
      end;
      MyC := MyC + 1;
    end;
  end;
  SetArrayLength(a, MyC);
end;

function GotNet: Boolean;
var
   x, y: Integer;
   Ar: TPointArray;
begin
  try
    if not loggedin then exit;
    Result := FindColor(x, y, FishingNetColor, MIX1, MIY1, MIX2, MIY2);
    if Result then
      Exit;
    Result := FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45);
    if Result then
    begin
      FishingNetColor := GetColor(x, y);
      FindColorsTolerance(Ar, FishingNetColor, x - 20, y - 20, x + 20, y + 20, 45);
      FishingNetColors := GetColors(Ar);
      ShrinkArray(FishingNetColors);
      WriteLn('FishingNetColor: ' +IntToStr(FishingNetColor));
    end else
      Result := False;
  except
    Writeln('(=]) Found Error And Saved');
  end;
end;

procedure GetANet;
var
  BankDTM: integer;
begin
  try
  if not LoggedIn then Exit;
  Players[CurrentPlayer].Loc := 'Getting A Net';
  BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
       '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
       '809A0AC26A00E665129F');
  MakeCompass('n')
  Mouse(621, 43, 20, 20, True);
  Wait(5000);
  FFlag(0);
  if not loggedin then exit;
  If DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) Then
  Begin
    Mouse(x, y, 5, 5, true);
    FFlag(0);
    if not loggedin then exit;
    Players[CurrentPlayer].Loc := 'bank';
    FreeDTM(BankDTM);
  end else
  begin
    Writeln('Uh-Oh');
    LogOut;
    FreeDTM(BankDTM);
    if not loggedin then exit;
  end;
  if not LoggedIn then Exit;
  FFlag(0);
  if not loggedin then exit;
  repeat
    OpenBankFast('db');
    if not loggedin then exit;
  until(BankScreen or PinScreen or not LoggedIn);
  if PinScreen then
  begin
    CloseBank;
    LogOut;
    Writeln('(!)  No Pins!');
    Exit;
  end;
  FixBank;
  if not LoggedIn then Exit;
  if FindBitmapToleranceIn(FishingNet, x, y, MSX1, MSY1, MSX2, MSY2, 45) then
  begin
    Mouse(x, y, 5, 5, True);
    Wait(500 + Random(500));
    CloseBank;
    BankNet := BankNet + 1;
    MakeCompass('n');
    if Players[CurrentPlayer].Loc = 'bank' then
    begin
      RadialRoadWalk(FindRoadColor, 290, 308, 44, 2, 2);
      FFlag(0);
      if not loggedin then exit;
      RadialWalk(FindWaterColor, 168, 210, 60, 0, 0);
      Sleep(2564 + random(424));
      FFlag(0);
      if not loggedin then exit;
      if FindSymbol(x, y, 'fish') then
      begin
        Mouse(x, y, 5, 5, True);
        Players[CurrentPlayer].Loc := 'fish';
        Wait(2000)
        FFlag(0);
        if not loggedin then exit;
        Exit;
      end;
    end;
  end else
    Writeln('No Nets...');
  Closebank;
  except
    Writeln('(=]) Found Error And Saved');
  end;
end;

function GetInShop: Integer;
var
  c: Integer;
begin
  repeat
    if not LoggedIn then exit;
    c := c + 5;
    if (FindColorTolerance(x, y, 13807130, MMX1, MMY1, MMX2, MMY2, c)) then
      Result := GetColor(x, y);
  until (Result > 0) or (c > 70);
  if c <= 70 then
  begin
    Mouse(x, y, 5, 5, True);
    FFlag(0);
  end else
  begin
    Writeln('(!) Script Could Not Find Fishing Shop Symbol');
    Writeln('(?)  Please Login ' + Players[CurrentPlayer].Name + 'Please PM Me');
    Writeln('(*SaD*)  Thanks For Testing My Net Buyer - FAILED');
    LogOut;
  end;
end;

procedure BuyTehNet;
var
  Traded: Boolean;
  Triesss: LongInt;
begin
  repeat
    if (FindObjCustom(x, y, ['err', 'ant'], [267551, 6911642, 7642283, 2370858, 2571605], 20)) then
    begin
      if not loggedin then exit;
      Mouse(x, y, 5, 5, False);
      Wait(500);
      if ChooseOption('rade') then Traded := True;
      Wait(5000 + Random(500));
      Mouse(35, 65, 100, 16, True);
      Wait(500);
      Mouse(78, 108, 6, 7, False);
      Wait(500);
      ChooseOption('y 1');
      Wait(2000 + Random(500));
      BuyNet := BuyNet + 1;
      Mouse(481, 36, 7, 6, True);
    end;
    Triesss := Triesss + 1;
    if Traded then Break;
    if (Triesss >= 10) then
    begin
      LogOut;
      Writeln('Couldn''t Find Gerrant');
    end;
  until(false);
end;

procedure WalkToDraynorBank;
var
  BankDTM, Total, Color: Integer;
begin
  Players[CurrentPlayer].Loc := 'Shop To Bank';
  Color := 0;
  Color := FindRockColor;
  if Color = 0 then
  begin
    Mouse(636, 108, 5, 5, True);
    FFlag(0);
    if not loggedin then exit;
    FindNormalRandomsEx;
    Wait(1000 + Random(100));
    Color := FindRoadColor;
  end;
  if FindColor(x, y, Color, MMX1, MMY1, MMX2, MMY2) then
  begin
    Mouse(x - 11, y - 25, 5, 5, True);
    FFlag(0);
    if not loggedin then exit;
    FindNormalRandomsEx;
    if FindSymbol(x, y, 'transportation') then
    begin
      Mouse(x, y, 5, 5, True);
      FFlag(0);
      if not loggedin then exit;
      FindNormalRandomsEx;
      Mouse(656, 35, 5, 5, True);
      Wait(6000);
      FFlag(0);
      if not loggedin then exit;
      FindNormalRandomsEx;
      Mouse(687, 78, 5, 5, True);
      FFlag(0);
      if not loggedin then exit;
      FindNormalRandomsEx;
      repeat
        Total := Total + 1;
        Wait(1000);
        if not loggedin then exit;
        FindNormalRandomsEx;
      until(FindSymbol(x, y, 'quest')) or (Total >= 10);
      if Total >= 20 then
      begin
        Mouse(655, 45, 5, 5, True);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
      end;
      Total := 0;
      repeat
        Total := Total + 1;
        Wait(1000);
        if not loggedin then exit;
        FindNormalRandomsEx;
      until(FindSymbol(x, y, 'quest')) or (Total >= 10);
      Mouse(x, y, 5, 5, True);
      FFlag(0);
      if not loggedin then exit;
      FindNormalRandomsEx;
      if FindSymbol(x, y, 'farming spot') then
      begin
        Mouse(x, y, 5, 5, True);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
      end else
      begin
        Mouse(650, 56, 5, 5, True);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
        if FindSymbol(x, y, 'farming spot') then
        begin
          Mouse(x, y, 5, 5, True);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
        end else
        begin
          LogOut;
          Exit;
        end;
      end;
      if FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) then
      begin
        Mouse(x, y, 5, 5, True);
        Wait(6000);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
        Mouse(656, 114, 5, 5, True);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
        repeat
          Wait(1000);
        until(FindSymbol(x, y, 'quest') or not LoggedIn);
        Mouse(x, y, 6, 6, True);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
        Mouse(650, 121, 5, 5, True);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
        BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
             '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
             '809A0AC26A00E665129F');
        if DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
        begin
          Mouse(x, y, 5, 5, true);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          Players[CurrentPlayer].Loc := 'bank';
          FreeDTM(BankDTM);
        end else
        begin
          FindNormalRandomsEx;
          Writeln('Uh-Oh');
          LogOut;
          FreeDTM(BankDTM);
          Exit;
        end;
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
      end;
    end;
  end;
end;

procedure BuyNewNet;
var
  BankDTM, T: Integer;
begin
  Players[CurrentPlayer].Loc := 'Walking To Net Shop';
  if not LoggedIn then Exit;
  if Players[CurrentPlayer].Loc = 'fish' then
  begin
    BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
         '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
         '809A0AC26A00E665129F');
    MakeCompass('n')
    Mouse(621, 43, 20, 20, True);
    Wait(5000);
    FFlag(0);
    if not loggedin then exit;
    FindNormalRandomsEx;
    if not LoggedIn then Exit;
    If DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) Then
    Begin
      Mouse(x, y, 5, 5, true);
      FFlag(0);
      if not loggedin then exit;
      Players[CurrentPlayer].Loc := 'bank';
      FreeDTM(BankDTM);
    end else
    begin
      Writeln('Fucked...');
      LogOut;
      FreeDTM(BankDTM);
      Exit;
    end;
    FFlag(0);
    if not loggedin then exit;
    FindNormalRandomsEx;
  end;
  if not LoggedIn then Exit;
  begin
    if not LoggedIn then Exit;
    repeat
      OpenBankFast('db');
      FindNormalRandomsEx;
    until(BankScreen or PinScreen or Not LoggedIn);
    Wait(1000);
    FixBank;
    DepositAll;
    Mouse(94, 76, 5, 5, False);
    Wait(500);
    if not loggedin then exit;
    ChooseOption('aw 5');
    Wait(2000);
    CloseBank;
    Mouse(578, 57, 5, 5, True);
    FFlag(0);
    if not loggedin then exit;
    if FindSymbol(x, y, 'quest') then
    begin
      Mouse(x, y, 5, 5, True);
      FFlag(0);
      if not loggedin then exit;
      FindNormalRandomsEx;
      Mouse(606, 38, 5, 5, True);
      FFlag(0);
      if not loggedin then exit;
      FindNormalRandomsEx;
      if FindColorSpiral(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) then
      begin
        Mouse(x, y, 5, 5, True);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
        if FindSymbol(x, y, 'farming spot') then
        begin
          Mouse(x, y, 5, 5, True);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          Mouse(620, 118, 5, 5, True);
          FFlag(0);
          repeat
            Wait(1000);
            T := T + 1;
            if not loggedin then exit;
          until(FindSymbol(x, y, 'quest')) or (T >= 20);
          if T >= 20 then
          begin
            FindNormalRandomsEx;
            LogOut;
            Exit;
          end;
          Mouse(x, y, 5, 5, True);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          Mouse(572, 130, 5, 5, True);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          Mouse(564, 118, 5, 5, True);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          if FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) then
          begin
            Mouse(x - 20, y - 30, 5, 5, True);
            FFlag(0);
            if not loggedin then exit;
            FindNormalRandomsEx;
            players[currentplayer].Loc := 'PortSarim';
          end;
        end;
      end;
    end;
  end;
  if players[currentplayer].Loc = 'PortSarim' then
  begin
    GetInShop;
    BuyTehNet;
    WalkToDraynorBank;
  end;
  if Players[Currentplayer].Loc = 'bank' then
  begin
    RadialRoadWalk(FindRoadColor, 290, 308, 44, 2, 2);
    FFlag(0);
    if not loggedin then exit;
    FindNormalRandomsEx;
    RadialWalk(FindWaterColor, 168, 210, 60, 0, 0);
    Sleep(2564 + random(424));
    FFlag(0);
    if not loggedin then exit;
    FindNormalRandomsEx;
    if FindSymbol(x, y, 'fish') then
    begin
      Mouse(x, y, 5, 5, True);
      Players[CurrentPlayer].Loc := 'fish';
      Wait(2000)
      FFlag(0);
      if not loggedin then exit;
      FindNormalRandomsEx;
      Exit;
    end;
  end;
end;

procedure WalkToFish;
var
  Color: Integer;
begin
  MakeCompass('N');
  SetAngle(True);
  Mouse(667, 88, 5, 5, True);
  FFlag(0);
  FindNormalRandomsEx;
  if not RadialRoadWalk(FindRoadColor, 332, 355, 62, 5, 5) then
  begin
    Writeln('Uh-Oh');
    LogOut;
    Exit;
  end else
    FFlag(0);
    FindNormalRandomsEx;
  if not RadialRoadWalk(FindRoadColor, 306, 323, 55, 5, 5) then
  begin
    if not RadialRoadWalk(FindRoadColor, 282, 335, 55, 5, 5) then
    begin
      Writeln('Uh-Oh');
      LogOut;
      EXIT;
    end else
      FFlag(0);
      FindNormalRandomsEx;
  end else
    FFlag(0);
    FindNormalRandomsEx;
  Mouse(566, 76, 5, 5, True);
  FFlag(0);
  FindNormalRandomsEx;
  if not RadialRoadWalk(FindDirtRoadColor, 223, 290, 63, 5, 5) then
  begin
    Mouse(MMCX - 30, MMCY, 5, 5, True);
    FFlag(0);
    FindNormalRandomsEx;
    if not RadialRoadWalk(FindDirtRoadColor, 223, 290, 63, 5, 5) then
    begin
      Writeln('Uh-Oh');
      LogOut;
      Exit;
    end;
  end else
    FFlag(0);
    FindNormalRandomsEx;
  repeat
    Mouse(568, 83, 5, 5, True);
    FFlag(0);
    FindNormalRandomsEx;
  until(FindSymbol(x, y, 'dungeon'));
  Mouse(x, y, 5, 5, True);
  FFlag(0);
  FindNormalRandomsEx;
  Mouse(568, 83, 5, 5, True);
  FFlag(0);
  FindNormalRandomsEx;
  Mouse(568, 83, 5, 5, True);
  FFlag(0);
  FindNormalRandomsEx;
  repeat
    Mouse(568, 83, 5, 5, True);
    FFlag(0);
    FindNormalRandomsEx;
  until(FindSymbol(x, y, 'dungeon'));
  setrun(true);
  Mouse(x, y, 5, 5, True);
  FFlag(0);
  FindNormalRandomsEx;
  Mouse(565, 98, 5, 5, True);
  FFlag(0);
  FindNormalRandomsEx;
  SetRun(False);
  GameTab(4);
  Color := FindRockColor;
  if Color <> 0 then
  begin
    if FindColor(x, y, Color, MMX1, MMY1, MMX2, MMY2) then
    begin
      if FindColor(x, y, Color, MMX1, MMY1, MMX2, MMY2) then
      begin
        Mouse(x, y, 5, 5, True);
        Wait(5000);
        FFlag(0);
        FindNormalRandomsEx;
        if FindSymbol(x, y, 'fish') then
        begin
          Mouse(x, y, 5, 5, True);
          Wait(6000);
          FFlag(0);
          FindNormalRandomsEx;
          Wait(5000 + Random(1000));
          Players[CurrentPlayer].Loc := 'fish';
          Lost_and_DeathWalks := Lost_and_DeathWalks + 1;
          ReportVars[6] := ReportVars[6] + 1;
          Exit;
        end else
        begin
          Writeln('Uh-Oh');
          LogOut;
          Exit;
        end;
      end else
      begin
        Writeln('Uh-Oh');
        LogOut;
        Exit;
      end;
    end else
  end else
  begin
    Writeln('no rock color');
    Writeln('Using Coords');
    Mouse(557, 108, 5, 5, True);
    Wait(6000);
    FindNormalRandomsEx;
    FFlag(0);
    FindNormalRandomsEx;
    if FindSymbol(x, y, 'fish') then
    begin
      Mouse(x, y, 5, 5, True);
      Wait(6000);
      FFlag(0);
      FindNormalRandomsEx;
      Wait(2000);
      Players[CurrentPlayer].Loc := 'fish';
      Lost_and_DeathWalks := Lost_and_DeathWalks + 1;
      ReportVars[6] := ReportVars[6] + 1;
      Exit;
    end else
    begin
      Writeln('Uh-Oh');
      LogOut;
      Exit;
    end;
  end;
  begin
    Writeln('Uh-Oh');
    LogOut;
    Exit;
  end;
end;

procedure WalkBack;
begin
  Mouse(741, 183, 5, 5, True);
  Mouse(570, 239, 5, 5, True);
  Wait(20000);
  repeat
    LogOut;
  until(not LoggedIn);
  LogInPlayer;
  WalkToFish;
end;

Function FindWhirlPool(x, y: integer): Boolean;

Var
   FishPoints: TPointArray;

Begin
  If Not LoggedIn Then Exit;
  ColorToleranceSpeed(2);
  FindColorsSpiralTolerance(x, y, FishPoints, 13947343, x - 20, y - 20, x + 20, y + 20, 40)
  If GetArrayLength(FishPoints) > Round(230 * WhirlPoolAcc) Then
  Begin
    WhirlPools := Whirlpools + 1;
    WriteLn(IntToStr(Round(GetArrayLength(FishPoints) /  1600))+ '% Change');
    Result := True;
  End;
  ColorToleranceSpeed(1);
End;

procedure GetNetOffTehGround;
var
  Tries: Integer;
begin
  try
    MakeCompass('W');
    SetAngle(True);
    repeat
      Wait(1000);
      Tries := Tries + 1;
      Writeln(IntToStr(Tries));
    until(FindObjCustom(x, y, ['mall'], [FishingNetColor], 5)) or (not LoggedIn) or (Tries = 3);
    if not Tries >= 3 then
    begin
      Mouse(x, y, 5, 5, True);
      FFlag(0);
      Writeln('***** SOLVED PARRANA RANDOM *****');
      ReportVars[2] := ReportVars[2] + 1;
    end;
    MakeCompass('N');
    if FindSymbol(x, y, 'fish') then
      Mouse(x, y, 5, 5, True);
    FFlag(0);
  except end;
end;

procedure WaitForFishing;
var
  InvLevel, Time: Integer;
begin
  if not LoggedIn then Exit;
  repeat
    NapNapTime;
    if FindWhirlPool(fsx, fsy) then
    begin
      WhirlPools := WhirlPools + 1;
      WhirlPool := WhirlPool + 1;
    end;
    if FindFight then
      RunAway('E', True, 1, 10000 + Random(2000));
    GameTab(4);
    Players[CurrentPlayer].Loc := 'Waiting For Fish';
    if TimeFromMark(PornPopups) >= 300000 then
      ProRep;
    FindNormalRandomsEx;
    if not LoggedIn then Exit;
    InvLevel := InvCount;
    FTWait((4 * 5));
    if InvLevel = InvCount then
      Time := Time + 1;
    if InvLevel < InvCount then
      Time := 0;
    AntiBan;
    FindNormalRandomsEx;
    if not GotNet then
    begin
      Writeln('(!)  Lost Net!');
      if PickUpNet then
      begin
        Writeln('(!)  Getting Net!');
        Players[CurrentPlayer].Loc := 'fish';
        GetNetOffTehGround;
        GameTab(4);
        if FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
        begin
          ReportVars[3] := ReportVars[3] + 1;
          Writeln('(!)  Got Net!');
          Exit;
        end;
      end;
      if GrabANewNet then
      begin
        Writeln('(!)  Getting Net!');
        Players[CurrentPlayer].Loc := 'fish';
        GetANet;
        GameTab(4);
        if FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
        begin
          ReportVars[3] := ReportVars[3] + 1;
          Writeln('(!)  Got Net!');
          Exit;
        end;
      end;
      if TestNetBuyer then
      begin
        Writeln('(!)  Trying Buy New Net!');
        Players[CurrentPlayer].Loc := 'fish';
        BuyNewNet;
        GameTab(4);
        if FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
        begin
          ReportVars[4] := ReportVars[4] + 1;
          Writeln('(!)  Got Net!');
          Exit;
        end;
      end;
      GameTab(4);
      if not FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
        LogOut;
    end;
  until(Time = 2) or (InvFull);
  ClickToContinue;
end;

function FishCount: Integer;
var
  q: Integer;
  w: TBox;
begin
  for q := 1 to 28 do
    begin
      w := InvBox(q);
      if FindBitmapToleranceIn(ShrimpMask, x, y, w.x1, w.y1, w.x2, w.y2, 45) or FindBitmapToleranceIn(AnchovieMask, x, y, w.x1, w.y1, w.x2, w.y2, 45) then
        Result := Result + 1;
    end;
end;

procedure DropFish;
var
  i: Integer;
begin
  ReportVars[1] := ReportVars[1] + FishCount;
  Players[CurrentPlayer].Loc := 'Dropping Fish';
  GameTab(4);
  for i := 1 to 28 do
    begin
      if not LoggedIn then Exit;
      if ExistsItem(i) then
      begin
        if FindFight then
          RunAway('E', True, 1, 10000 + Random(2000));
        MMouseItem(i);
        Wait(150 + Random(50));
        if not IsUpText('mall') and IsUpText('aw') then
        begin
          GetMousePos(x, y);
          HoldMouse(x, y, False);
          Wait(50 + Random(15));
          ReleaseMouse(x, y, False);
          Wait(150 + Random(500));
          ChooseOption('rop');
          Wait(999 + Random(111));
        end;
      end;
    end;
  TLoads := TLoads + 1;
  Loads := Loads + 1;
  ReportVars[0] := ReportVars[0] + 1;
  ArrangeInv;
end;

begin
  LoadBMPs;
  SetupSmart;
  SetupSRL;
  SetupScript;
  StartScript;
  repeat
    repeat
      if not LoggedIn then
      begin
        Writeln('(!)  Logged Out For Some Weird Reason.');
        Writeln('(=[)  NextPlayer(False);');
        NextPlayer(False);
        Break;
      end;
      CatchFish;
      DropFish;
    until(Loads = Players[CurrentPlayer].Integers[0]);
    if Players[CurrentPlayer].Active then
      begin Players[CurrentPlayer].Loc := 'Waiting My Turn!'; end else Players[CurrentPlayer].Loc := 'Lost!';
    FreeBitMap(FishingNet);
    FreeBitMap(AnchovieMask);
    FreeBitMap(ShrimpMask);
    Loads := 0;
    NextPlayer(True);
    SetAngle(True);
    GameTab(4);
    LoadBMPs;
  until(False);
end.

MAJOR UPDATE PLEASE RE-READ SCRIPT

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

1. No due to the script
2. No due to making another account
3. No due to making another account, because of a ban instead of taking it cool, and claiming it was without a reason.
4. No due to having a "vote yes for me" in your sig.
5. No due to not reading the Sticky that tells the requirements which also caused the No due to the script.

From: n3ss3s
1. No due to the script
2. No due to making another account
3. No due to making another account, because of a ban instead of taking it cool, and claiming it was without a reason.
4. No due to having a "vote yes for me" in your sig.
5. No due to not reading the Sticky that tells the requirements which also caused the No due to the script.

WOAH!
Thanks..
Well you know what 'they' say: "If ye have nothing better to say then ye should not speak of nothing at all". :)

Thanks for the advice

Exppo :)


EDIT: P.S You should judge people by there "application" and not by what there opinions are being expressed as.

EDIT 2: Credit goes to 'Sumillion' for getting to the bottom of a VERY SCARY situation ;)

From: n3ss3s
1. No due to the script
2. No due to making another account
3. No due to making another account, because of a ban instead of taking it cool, and claiming it was without a reason.
4. No due to having a "vote yes for me" in your sig.
5. No due to not reading the Sticky that tells the requirements which also caused the No due to the script.

How else would he have recovered his account? I don't think you can blame him for making a new account.

From: Wizzup?
How else would he have recovered his account? I don't think you can blame him for making a new account.

WOAH! #2

[Off Topic] Thanks, although I can see where he is coming from it is 'against the rules' from what i have heard, this form of 'cheating' is VERY addictive and as i have already made a script why would i just want to 'leave'.. [On Topic]

Thanks

Exppo

EDIT: ANY CONSTRUCTIVE COMMENTS / CRITISM(S) WOULD BE REALLY APPRECIATED ;)

Well maybe I can leave that part away since I don't know nothing about the case, sorry about that, - but the script isn't enough for my yes, BUT, lucky enough, I once again forgot to vote… and I wont.

The script isn't as complex and 'failsafeful' as should be.

Also, are you sure

if(FindColorSpiral(x, y, WillowLogColour, 547, 206, 734, 464))then

is going to keep working after the one time the colors change? Maybe use FindColorSpiralTolerance.



Side notes:

1. Try to avoid posting in red
2. Try to avoid posting in bold red
3. Try to avoid posting in bold red underlined :D

tbh the script is too simple and theres not enough fail safes, radial walking and such, ill hold my vote but its more or less a no form me

~Spaz

Thanks for the advice
Your help won't go un-appreciated

Many Thanks
Exppo ;)

NO
It is way to simple, and also it does not compile!
here is what you need to change to get it to compile (I can't believe I actually did that, considering how little free time I have today):
-delete one "end" in the progress report.
-change "yourPin" to "bankPin", or the other way around, whicever you set as a constant.
- "WillowLogColor" is never actually defined. (and why did you use a spiral instead of a bmp or better yet dtm function???)
-in line 254 change "banking" to "BankingTheWillows"
-SetUpScript misses another "end"
-CORRECT YOUR STANDARDS
-Never EVER use "until (false);" in a loop.
Overall this script would actually be an autodecline because it doesn't compile, but that is not my job.
Take more care and time into designing your next script. actually, no, take WAY more time next time. this is only 266 lines long.
Good luck next time,
Stur Pure

who was his alter account?
I was the one who recommended sum ipz0red him :D

From: Stur Pure
NO
It is way to simple, and also it does not compile!
here is what you need to change to get it to compile (I can't believe I actually did that, considering how little free time I have today):
-delete one "end" in the progress report.
-change "yourPin" to "bankPin", or the other way around, whicever you set as a constant.
- "WillowLogColor" is never actually defined. (and why did you use a spiral instead of a bmp or better yet dtm function???)
-in line 254 change "banking" to "BankingTheWillows"
-SetUpScript misses another "end"
-CORRECT YOUR STANDARDS
-Never EVER use "until (false);" in a loop.
Overall this script would actually be an autodecline because it doesn't compile, but that is not my job.
Take more care and time into designing your next script. actually, no, take WAY more time next time. this is only 266 lines long.
Good luck next time,
Stur Pure

PLEASE RE-READ SCRIPT - I POSTED WRONG ONE -.-

From: Wizzup?
That is a big change!
Yes from me.

EDIT: If anyone wants to change his vote, just PM me and I will change it.

That is a big change!
Yes from me.

EDIT: If anyone wants to change his vote, just PM me and I will change it.

Holy shit dude! :D


A tip for the GetFishCoords - instead of Length - 1 use High(ArrayHere).

A tip for randoms detection - I like to do

If FindNormalRandoms Then
  If Not LoggedIn Then
    Exit;

and make a new procedure that's name is "ScriptTerminate" - it's a procedure that SCAR calls every time the script stops, automatically - you do not call it anywhere, anyways, put all the dtm/ bmp freeing there :)


Yes.

Yes.

Yes!

Very good script, but in the progress report you could use case instead of all the if and thens.

BTW: I've noticed that people are voting no just because he was banned… he just did a little spam posting.

No, due to behaviour in the past (scamming),

I didnt actually know he scammed before…

But that was a long time ago and people change you know

i said no cos he tried to say he was an SRL member before when i was small, but if he doesnt and next month he tried again ill give him the benefit of the doubt

~Spaz

Hey guys thanks for all the good constructive and supportive comments thanks for the advice and to those i.e; Markus and paz.. urm… all the negative things were in the past.. we have all been there and it's a matter of changing which obviously i have..

Thanks for your time anyways

p.s to the rest: your help WILL NOT go un-noticed along wit your supportive comments :)

Exppo

Now, that is something different. I'll let my vote get changed to yes. :)

Yes from me,

that makes it 4 - 4 :p

Thanks mate, sorry guys about the interpruptions before, i posted the wrong script L0L -.-

Please PM Wizzup? If you want to change your vote.
Thanks
Exppo ;)

Not sure Why Wizzy didn't close this, as you just applied less than a week ago…. http://www.villavu.com/forum/showthread.php?t=26478 ….I understand people change, but that was a REALLY LAME SCAMMING ATTEMPT when you first came to these forums, still fresh in my mind, Sorry, NO.

~RAM

If I was Fakawi, I would say Welcome ;)

Yes.

From: Hy71194
If I was Fakawi, I would say Welcome ;)

Yes.

Thanks thats a real boost of confidence :)
I hope all went smooth with your App

exppo ;)

No.

From: hermpie
No.

MAY I ASK WHY NO:

- How am I supposed to no what to improove.
- How am I supposed to no why you said no.
- How am I supposed to no how I can better my chances of getting a 'YES' ?


THANKS HERMPIE :duh:

Exppo

afcourse, just how i see your messages here, gives me bad feeling(sorry)
your script it's good indeed better then first version but yeah… it's not good enough for ME… and some other stuff… ehm how to explain, how i see you as total

how to get more chances to 'yes' better atittude(or how you spell it xD)

Meh 'n@@b', We can all express our views for one another.
But if script is too p(o.o)r for you.. -.-

Thanks anyways
Exppo ;)

Script: Yes.
You generally: No-ish..

For example your reaction to hermpie's post..

http://www.villavu.com/forum/showthread.php?t=16215?t=17797

"exppo - SRL Member Application Form - 02-24-2008, 01:11 PM"

Two bans..

Just if you didn't know exppo, for you to remain un-pissed you propably should know that the applicants are judged by overall, the two main-factors are the scripting skills and the attitude.

SH*T Looks like me not getting into SRL :duh:


Saaaaaary
Exppo

From: exppo
SH*T Looks like me not getting into SRL :duh:


Saaaaaary
Exppo

Apply again after a month. And you can always change the way you act around the forum in general. And I suggest you do that as you're skilled enough in scripting ;)

From: GoF
Apply again after a month. And you can always change the way you act around the forum in general. And I suggest you do that as you're skilled enough in scripting ;)

Thanking You'z

Mhmmm Still P*ssed :fiery: My fault though.. -.-

Ohwell thanks anyways, I suppose in the meantime "improve my attitude"

JUST ONE QUESTION:

- If i were to re-apply next month with the same script my draynorNetBank will I still get in.. (if my attitude were to be correct)

Exppo

maybe…

but don't post like crazy like you are now doing -.- i hate that(only n3ss3s allowed xD)

Exppo, I really don't suggest just sitting the next month holding breath and trying to change attitude, because

a) You will faint in a few minutes
b) With a better script you get easier in, yes, as long as you "fix attitude" or w/e.

Anyhow, you don't have to change the script, just improve the current one.

You can change the script if you want though.

Mhmmm I suppose .. ATM i dunno what to add to it to make it better:

any ideas?

exppo

Oh sorry, I forgot that you edited in the better one.

Just go through the "spots" of the script like banking, fishing, and so, you'll eventually find something to improve on.

I think you do still have a chance because Stur Pure said he wants his vote changing do then it would be 6 - 7 which means it could go either way.

Naww i dunno, i PMed wizzup? and he said he dunno bout it unless STUR pure pms him about it.. tbh i dont think i have made it in this time :(

exppo

oh, I thought I sent it? well, my internet connection was screwy that day, so it might not have been sent correctly, and i was/am way too lazy to check. Oh well, I just send another one. (curse this lazyness lol)

11 no's not looking good :(

no it's not looking good is it… :)

Hold up 11 just chaned to a 10 - and the 5 + to a 6+

Hmmm lol
Wish Me Luck

Exppo :)

A common rule is that you need at least 70-75% of the votes (a yes vote).
Sorry, you didn't get in this time.

Try again next time! Let's hope you will not get payed off so much for your attitude, nor for your 'past'.
Good Luck. :)

http://www.villavu.com/forum/showthread.php?t=26998?p=358646#post358646

http://www.villavu.com/forum/showthread.php?t=16284?t=17875&highlight=looser

From: Timer
what the G Damn Fck1!! did no one notice!!!!

(half way threw, he edited mine just a little and Fcking posted it on his SRL-Member application!!!!)

Mine —> http://www.villavu.com/forum/showthread.php?t=
Mine, Framed as His —> http://www.villavu.com/forum/showthread.php?t=26889

This makes me feel bad about that no one looks at my script. although it is pretty shitty… ;)