SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
None

Other Communitys
Sythe

How Long have You Played Runescape
4 Years

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

A couple of years back I was a total leecher and made an account on here and tried to script a little bit but never got it. I learned about buying Raw Bird Meat and looked around on Sythe for some stuff on how to learn SCAR/SRL but didnt find anything, then I remembered this forum. So I came back in March of this year and have psycho addicted ever since.

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

                                       {Sirlaughsalot's Bird Buyer Version 0.5.5 Non-SMART}
                             {Thanks to Waddo,Iroki, and Drizzt for helping my stupid ass}
{Setup are lines 42-64}
{Put GP in the 1st slot of the Bank}

{New Things]
 [Autocolor]
 [Accurate Progress Report]
 [Added Jokes]
 [More Randomization In Break Times and Loads]
 [Sets Chats to Public/Private off Clan/Trade/Assist on]
 [Withdraws GP to your amount of loads]
 [Withdraws GP without fail}

{Old Things]
 [Uses DTM's for the BirdMeat, Waddo found out what I was doing wrong...]
 [Will Log Out every once in a while for AntiBan, Determined by you, Drizzt helped me with this]
 [Dont have to edit anything to use S.M.A.R.T]
 [Has a cool Introduction procedure =D]
 [Has STANDARDS!!! Amazing huh?]
 [Now has progress Report, no reason not to post it!]
 [Will open the thread webpage automatically]
 [Logs out/back in if it cannot find the bank properly]
 [Will pick a random number of birds to buy
 [Finds Chargurr well, not as good as it could be]
 [Withdraws your gp each time so you dont die with a load of cash]
 [AntiRandoms}

{Upcoming Updates]
 [Walking to Infinite run pool]
 [Calculate how much you earn}
 
 
 
program SirlaughsalotsBirdBuyer;
{.include SRL/SRL.Scar}


  
{Setup}
Const
LoadsBeforeLogout=10;{Will do a Random Range of Loadsbeforelogout+LoadsBeforeLogout-5 to LoadsBeforeLogout-LoadsBeforeLogout+5
If you want to change go to line 660}
BreakTime=3; //In minutes
RandomBreak=2;//In minutes, makes a range of + or - BreakTime
TimesToRun=1500;
Joke=true;//just a fun thing, when it does the proggy it also does a joke =D
Pin='0000';//if it has a pin fill this out :)
SrlStatsID='';//Fill out ;)
SrlStatsPass='';

Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
end;
{End Setup}

Var
x, y, counter, counter2, i, RawBirdMeat, Loads, BirdsBanked, GPUsed, EnterAmount, CurrentLoads, GPToCarry, LoadBeforeLogout, TimeBreaking : Integer;
NeedGP : Boolean;

Label
BeginOfMainLoop;
Label
GoToBreak;

Procedure Intro;
Begin
  ClearDebug;
  Writeln('SSSSSSSS IIIIIII  RRRRRRR  L         AA      U   U GGGGGGG H   H SSSSSSSS     AA     L      OOOOO   TTTTTTT  """ SSSSSSSS')
  Wait(300)
  Writeln('SS         III    RR    R  L        AAAA     U   U GG      H   H SS          AAAA    L     OO   OO     T      "" SS')
  Wait(300)
  Writeln('SSSSSSSS   III    RR  RR   L       AA  AA    U   U G  GGGG HHHHH SSSSSSSS   AA  AA   L    OO     OO    T      "  SSSSSSSS')
  Wait(300)
  Writeln('     SSS   III    RR    R  L      AAAAAAAA   U   U G    GG H   H      SSS  AAAAAAAA  L     OO   OO     T              SSS')
  Wait(300)
  Writeln('SSSSSSSS IIIIIII  RR     R LLLLL AA      AA  UUUUU GGGGGGG H   H SSSSSSSS AA      AA LLLLL  OOOOO      T         SSSSSSSS')
  Wait(500)
  ClearDebug;
  Writeln('BBBBBBBB IIIIIII  RRRRRRR   DDDDD')
  Wait(300)
  Writeln('BB   BBB   III    RR    R   D   DD')
  wait(300)
  Writeln('BB   BB    III    RR    R   D    DD')
  Wait(300)
  Writeln('BBBBBBBB   III    RR  RR    D    DD')
  Wait(300)
  Writeln('BB   BB    III    RR    R   D    DD')
  Wait(300)
  Writeln('BB   BBB   III    RR     R  D   DD')
  Wait(300)
  Writeln('BBBBBBBB IIIIIII  RR      R DDDD')
  Wait(500)
  ClearDebug;
  Writeln('BBBBBBBB U   U Y      Y EEEEE RRRRRRR')
  Wait(300)
  Writeln('BB   BBB U   U  Y    Y  E     RR    R')
  Wait(300)
  Writeln('BB   BB  U   U   Y  Y   E     RR    R')
  Wait(300)
  Writeln('BBBBBBBB U   U    YY    EEE   RR  RR')
  Wait(300)
  Writeln('BB   BB  U   U    YY    E     RR    R')
  Wait(300)
  Writeln('BB   BBB U   U    YY    E     RR     R')
  Wait(300)
  Writeln('BBBBBBBB UUUUU    YY    EEEEE RR      R')
  Wait(500)
  ClearDebug;
  NeedGP:=True;
  LoadBeforeLogout:=RandomRange(LoadsBeforeLogout+LoadsBeforeLogout-5,LoadsBeforeLogout+LoadsBeforeLogout+5);
  SRLID:=SRLStatsID;
  SRLPassword:=SRLStatsPass;
  If (SRLID='') or (SRLPassword='') then
  begin
    WriteLn('Input SRLID/Pass')
    TerminateScript;
  end;
end;

Procedure Randoms;
begin
  FindNormalRandoms;
  If FindFight Then RunAway('E',True,1,15000+random(1500))
end;

Procedure Jokes;
Begin
If Joke=True then
begin
  case random (10) of
  0:Writeln('The sooner you fall behind the more time youll have to catch up.');

  1:Writeln('There are 3 kinds of people: those who can count & those who cant. ');

  2:Writeln('Time is the best teacher; unfortunately it kills all of its students. ');

  3:Writeln('Time is what keeps everything from happening at once.');

  4:Writeln('99 percent of lawyers give the rest a bad name. ');

  5:Writeln('A diplomat is someone who can tell you to go to hell in such a way that you will look forward to the trip. ');

  6:Writeln('A flashlight is a case for holding dead batteries. ');
  
  7:Writeln('All men are idiots, and I married their King. ');
  
  8:Writeln('Always remember youre unique, just like everyone else.');

  9:Writeln('Artificial Intelligence usually beats real stupidity. ');

  10:Writeln('Assassins do it from behind.');
    end;
  end;
end;


{*********************************
******Made by me with ACA v2*****]
*Thanks to Neilsie95 and Sumilion*
******Finds Chargurr's color******
**********************************}

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

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

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

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

    if (X >= 72.90) and (X <= 75.87) and (Y >= 76.79) and (Y <= 79.93) and (Z >= 81.47) and (Z <= 84.83) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

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

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

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

  if not (FindColorsTolerance(arP, 11380375, MSX1, MSY1, MSX2, MSY2, 5)) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

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

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

    if (X >= 28.36) and (X <= 40.34) and (Y >= 31.45) and (Y <= 43.19) and (Z >= 37.92) and (Z <= 49.40) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

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

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


{*********************************
******Made by me with ACA v2*****]
*Thanks to Neilsie95 and Sumilion*
*****Finds the Run Pool color*****
**********************************}
function PoolColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.23, 1.35);

  if not (FindColorsTolerance(arP, 11380375, MSX1, MSY1, MSX2, MSY2, 5)) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

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

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

    if (X >= 28.36) and (X <= 40.34) and (Y >= 31.45) and (Y <= 43.19) and (Z >= 37.92) and (Z <= 49.40) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

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

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

{*********************************
******Made by me with ACA v2*****]
*Thanks to Neilsie95 and Sumilion*
******Finds the Banker color******
**********************************}
function BankerColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.10);

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

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

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

    if (X >= 26.07) and (X <= 29.42) and (Y >= 28.30) and (Y <= 31.88) and (Z >= 32.08) and (Z <= 36.06) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

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

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


{*********************************
************Made by me************
Thanks to Waddo for help with DTMs
******Loads DTMs and Bitmaps******
**********************************}
Procedure LoadStuff;
begin
  RawBirdMeat:=DTMFromString('78DA635CCDC0C0C0C3C8800C16373732E8008' +
       '540A2FF8180711D90C18CAA06220B2381F47620C145841A41026A' +
       'D6020911026A1601097EFC6A00678D0A4B');
  EnterAmount := BitmapFromString(88, 10, 'beNq1VkFOAzEM7P8fk' +
       'Qt7of8AIZYHtKiHPoUUFzOd8XhbJCprlXW8SWZsT7rb6e/8sT+vy3' +
       'ye3p/RLn5w0ivZ59syzc3O9XGWxmQZoM6w4+uTfoWRGKznjGdiV9Q' +
       '6juAG4KM2V6bVGghgw6FWTtSTKNSZYOkAN9lfl//gwdXSPTxMjH0x' +
       'lKXV8+DSgX7igYhyuFzjuNeehO+eGoeXizkSnH+Th2QjgkkxiIcmO' +
       'LGgs6wf/Uq3oN1pNsEiLh33KAhCmfcIc7tEa6O84FKouqoGegbKVD' +
       'qr3WdTjPJUk5mSB4dirp+dRcm9h2EtJ8dDXivJRtZGmSw9drk7KtU' +
       'mD804Ng0qiAc6j8nIb7spHLpZonKu6rEWoqQ8IMxNLIj9UR5QT6hD' +
       '9X7UFTCYuG14yDHOJuQ/85BjLG/HFcWgnKouuXxRPZP8UkmoxEU8/' +
       'RUpv3J9IRI3frp70PmFq+Gk8vr6Be1sacQ=');
end;

{*********************************
************Made by me************
******Prints and sends proggy*****
**********************************}
Procedure ProgressReport;
begin
  ClearDebug;
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~')
  Writeln('||Script By Sirlaughsalot')
  Writeln('||Birds Banked '+IntToStr(BirdsBanked))
  Writeln('||'+IntToStr(Loads)+' Loads Done')
  Writeln('||'+IntToStr(GPUsed)+' Gp used')
  Writeln('|| Ran For '+TimeRunning)
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~')
  Writeln('')
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~')
  Writeln('~Post this or be EATEN!~')
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~')
  SRLRandomsReport;
end;

{*********************************
************Made by me************
******Walks to oo'glog bank*******
**********************************}
Procedure WalktoBank;
begin
  Status('Walking to the bank')
  Counter:=0
  Repeat
    Counter:=Counter+1
    SymbolAccuracy:=0.2;
    begin
      If FindSymbol(x,y,'Bank') then
      begin
        Randoms;
        mouse (x,y,2,2,true);
        Randoms;
      end;
    end;
  until (flag) or (counter>=100)
  if (counter>100) then
  begin
    LogOut;
    Status('Could not find the bank')
    ProgressReport;
    Status('About to terminate script opening web page')
    OpenWebPage('http://www.villavu.com/forum/showthread.php?t=28457')
    exit;
  end;
end;

procedure Login;
begin
  Status('Logging in...')
  if not loggedin then
  begin
    ClearDebug;
    LoginPlayer;
  end;
  Writeln('Thanks for choosing SirLaughsALots Bird Buyer, you will be making exorbinant amounts of money shortly')
  If LoggedIn then
  begin
    SetAngle(true)
    SetChat('off',1)
    SetChat('off',2)
    SetChat('on',3)
    SetChat('on',4)
    SetChat('on',5)
    SetRun(true);
    MakeCompass ('n');
  end;
end;

{*********************************
************Made by me************
********Opens oo'glog bank********
**********************************}
Procedure OpenAccount;
begin
  Status('Opening bank account')
  Counter:=0
  Counter2:=0
  repeat
    Counter2:=Counter2+1
    repeat
      Counter:=Counter+1
      if not (findObj(x,y,'Ogress banker',BankerColor,15)) then
      begin
        Randoms;
        mmouse(x,y,5,5);
        getuptext;
      end;
      if isuptext ('Talk-to Ogress banker') then
      begin
        GetMousePos(x,y);
        FindObj(x,y,'Ogress banker',BankerColor,15);
        Mouse(x,y,0,0,False);
        FTWait(2)
        ChooseOption('Bank')
        FTWait(2)
        Status('Bank account open')
      end;
      until (BankScreen) or (PinScreen) or (Counter>=10);
    if Counter>=10 then
    begin
      Status('Could not find the Banker, Logging out...')
      Logout;
      Login;
    end;
    until (BankScreen)or (PinScreen) or (counter2>=3)
  If PinScreen then
  InPin(Pin)
end;

{*********************************
************Made by me************
***********Withdraws GP***********
**********************************}
Procedure WithdrawGps;
begin
  GPToCarry:=LoadBeforeLogout*17*27+17
  If NeedGP and BankScreen then
  begin
    Status('Withdrawing Gp')
    Counter:=0
    begin;
      If not(CoinAmount('inv')=GPToCarry) then
      repeat
        begin
          Counter:=Counter+1
          FixBank;
          DepositAll;
          Withdraw (1,1,GPToCarry);
          Wait(1500+random(500));
        end;
      until (Counter>=10) or (CoinAmount('inv')=GPToCarry);
      If Counter>10 then
      begin
        writeln('Something is seriously wrong...')
        Writeln('Couldnt get GP')
        Writeln('Terminating script')
        OpenWebPage('http://www.villavu.com/forum/showthread.php?t=28457');
        Logout;
        TerminateScript;
      end;
      if CoinAmount('inv')=GpToCarry then
      NeedGP:=False;
    end;
  end;
  If not BankScreen then
  OpenAccount;
end;

{*********************************
************Made by me************
******Walks To The Food Store*****
**********************************}
Procedure WalktoStore;
begin
  Status('Trying to walk to the store')
  Counter:=0
  Repeat
    Counter:=Counter+1
    SymbolAccuracy:=0.7;
    If FindSymbol(x,y,'Food Store') then
    begin
      mouse (x,y,2,2,true);
      FTWait(1)
    end;
  until (flag) or (Counter>=10)
end;

{**************************************
**************Made by me***************
Opens up the trade window with chargurr
***************************************}

Procedure TradeWithDaOgre;
begin
  Counter:=0
  Repeat
    Counter:=Counter+1
    if not(FindObjCustom(x,y,['hargurr'],[Chargurr],15)) then
    begin
      Randoms;
      MMouse(x,y,5,5);
      Getuptext;
    end;
    If IsUpText('Talk-to Chargurr') then
    begin
      Mouse(x,y,0,0,False);
      FTWait(2)
      ChooseOption('Trade')
      FTwait(2)
    end;
    Until (ShopScreen) or (Counter>=50);
    if Counter>=50 then
    repeat
      begin
        Counter:=Counter+1
        MakeCompass('E')
        Randoms;
        SetAngle(False)
        if not(FindObjCustom(x,y,['hargurr'],[Chargurr],15)) then
        begin
          MMouse(x,y,5,5);
          Getuptext;
        end;
        If IsUpText('Talk-to Chargurr') then
        begin
          Mouse(x,y,4,0,False);
          Wait(500+random(700))
          While ChooseOption('Trade') do
          MakeCompass('N');
          Wait (700+random(400))
        end;
      end;
    Until (ShopScreen) or (Counter>=100);
    If Counter>=100 then
    begin
      Logout;
      Status('Could not find Chargurr')
      ProgressReport;
      Status('About to terminate script opening web page')
      OpenWebPage('http://www.villavu.com/forum/showthread.php?t=28457')
      Writeln('Stopped because SCAR couldnt find Chargurr')
      Exit;
    end;
end;

{*********************************
************Made by me************
*********Buys RawBirdMeat*********
**********************************}

Procedure BuyBirds;
begin
  if ShopScreen then
  begin
    Status('Buying Birds')
    Counter:=0
    repeat
      Counter:=Counter+1
      if FindDTM(RawBirdMeat,x,y,MSx1,MSy1,MSx2,MSy2) then
      begin
        Repeat
        mouse(x,y,5,5,false);
        ChooseOption('X');
        Wait (1000+random(400))
        until FindBitmapIn(EnterAmount,x,y,MCx1,MCy1,MCx2,MCy2)
      if FindBitmapIn(EnterAmount,x,y,MCx1,MCy1,MCx2,MCy2) then
      begin
        Case random(7) of
          0: typesend('33');
          1: typesend('44');
          2: typesend('55');
          3: typesend('66');
          4: typesend('77');
          5: typesend('88');
          6: typesend('99');
        end;
      end;
      Wait(700+random(400))
      Status('Bought the birds')
    end;
    until (invfull) or (counter>=5);
  end;
end;

{************************************************************
*************************Made by me**************************
******Takes A Break, you catchin on to these names yet?******
*************************************************************}

Procedure TakeABreak;
begin
  TimeBreaking:=RandomRange(BreakTime*60000+RandomBreak*60000,BreakTime*60000-RandomBreak*60000)
  Status ('Taking a break')
  CloseBank;
  Logout;
  Writeln(IntToStr(TimeBreaking))
  Wait(TimeBreaking)
  Login;
  Status('Done with break')
  WalkToBank;
  OpenAccount;
  CurrentLoads:=0
  NeedGP:=True;
  LoadBeforeLogout:=RandomRange(LoadsBeforeLogout+LoadsBeforeLogout-5,LoadsBeforeLogout+LoadsBeforeLogout+5);
end;


{*********************************
************Made by me************
********Banks The Birds =)********
**********************************}

Procedure BankBird;
begin
 Counter:=0
 Repeat
   Counter:=Counter+1
   Status('Banking Birds')
   If FindDTM(RawBirdMeat,x,y,MIx1,MIy1,MIx2,MIy2) then
   begin
     mouse(x,y,5,5,False);
     ChooseOption('All');
     Wait(500+random(400))
   end;
 until not (FindDTM(RawBirdMeat,x,y,MIx1,MIy1,MIx2,MIy2)) or (Counter>=10)
 BirdsBanked:=BirdsBanked+28
 ReportVars[0] := ReportVars[0] + 28;
 Loads:=Loads+1
 ReportVars[1] := ReportVars[1] + 1;
 GPUsed:=GPUsed+476
 ReportVars[2] := ReportVars[2] + 476;
end;


{****************************************
***************Made by me****************
*****Walks To the infinite Run pool******
*****************************************
*****************************************}

Procedure WalkToPool;
begin
  Status('Trying to walk to the store')
  Counter:=0
  SymbolAccuracy:=0.2;
  If FindSymbol(x,y,'Food Store') then
  begin
    mouse(x,y,2,2,true);
    FTWait(1);
    Flag;
  end;
  repeat
  Counter:=Counter+1
  RadialWalk( MiniMapPoolColor , 336, 354, 40, 1, -1);
  until (Flag) or (counter>=10)
  if counter>=10 then
  begin
    Writeln('Couldnt find pool color');
    WalkToStore;
    WalkToBank;
  end;
  Repeat
    Counter:=Counter+1
    If FindColorSpiralTolerance(x,y,PoolColor,MSx1,MSy1,MSx2,MSy2,20) then
    begin
      mmouse(x,y,5,5)
      GetUpText;
      if isuptext('ocks') then
      begin
        mouse(x,y,5,5,false)
        FTWait(3)
        ChooseOption('limb-over')
        Flag;
      Wait(1500+random(700))
      end;
    end;
  until not (TabExists(4)) or (counter>=30)
  if counter>=30 then
  begin
    writeln('Couldnt find the pool')
    Counter:=0;
    WalkToStore;
    WalkToBank;
  end;
  If not TabExists(4) then
  begin
    Counter:=0
    Repeat
      If FindColorSpiralTolerance(x,y,PoolColor,MSx1,MSy1,MSx2,MSy2,20) then
        begin
          Counter:=Counter+1
          mmouse(x,y,5,5)
          GetMousePos(x,y);
          GetUpText;
          if isuptext('ocks') then
          begin
            mouse(x,y,5,5,false)
            FTWait(3)
            ChooseOption('limb-over')
            FTwait(3)
          end;
        end;
    until (TabExists(4)) or (Counter>=30)
  end;
  If Counter>=30 then
  begin
    Writeln('Couldnt get out of the pool')
    exit;
  end;
end;

Procedure FreeStuff;
begin
  FreeDTM(RawBirdMeat);
  FreeBitmap(EnterAmount);
end;

Begin
  Counter:=0
  i:=0
  SetUpSRL;
  ScriptID :='882';
  DeclarePlayers;
  Intro;
  ActivateClient;
  If not LoggedIn then
  begin
    Login;
    OpenAccount;
  end;
  If LoggedIn then
  begin
  BeginOfMainLoop:
    inc(CurrentLoads);
    inc(i);
    LoadStuff;
    WithdrawGps;
    Randoms;
    WalkToStore;
    Randoms;
    TradeWithDaOgre;
    Randoms;
    BuyBirds;
    WalktoBank;
    Randoms;
    OpenAccount;
    BankBird;
    ProgressReport;
    FreeStuff;
    jokes;
    if FindBlackChatMessage('quickening effects') then
    begin
      WalkToPool;
      WalkToStore;
      WalkToBank;
    end;
    If CurrentLoads>=LoadBeforeLogout then
    begin
      Status('Taking a break')
      Writeln('Taking a break')
      if CoinAmount('inv')=0 then
      goto GoToBreak;
    end;
    If i>=TimesToRun then
    begin
      OpenWebPage('http://www.villavu.com/forum/showthread.php?t=28457');
      Logout;
      exit;
    end;
    goto BeginOfMainLoop
    GoToBreak:
    TakeABreak;
    GoTo BeginOfMainLoop
  end;
end.

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

it hasnt been 4 weeks already has it???
correct me if im wrong :s

yes.

I'm not allowed to vote yet but I would say yes, I have helped you often and know that you pick things up well.
His script contains most of the requirements and he can use the rest.
Also his use of GoTo is an added bonus.
Wd I hope you get in.

Improvements for the future I suggest you use a procedure called main loop.

i voted yes even tho i dont think its been a month since your last 1 :D

i dont think i have ever submitted a members app 0_o

yeah he hasnt for some reason i thought you have lol

I'm about 50/50 atm. A lot of your procedures/functions are either a bit simple or made with the ACA. Your walking is pretty much just symbol clicking. On the other hand, you seem to know what you're doing, have a good attitude around the forums, and are active, so I'll hold my vote for now.

A lot of ACAv2 functions. Me not like.
That not show you know SRL.
Not nice.

No.

I agree with Runescapian really. Symbol clicking is the entirety of your walking procedures and is known to be a little unreliable as they move around so much. The only really remotely complex things that were not made using ACA are DTMs (not really very complicated) and, well really that is it. You look like you know what you are doing, but throw in RadialWalking or TPAs or something that is on a higher level. I have a feeling you know how, it just wasn't necessary in this script. Do you have any other examples?

*Does Not Vote*

I am working on a banana buyer but it is nowhere near done, i could try to get it done asap, its okay for me to use ACA in that example though right? just to make it easier… It will have to walk at least 3 times one way, i can make it without symbol clicking (will be more reliable that way anyway) and try my hand at TPA's but my question is should i make them like numa's tut or just use findobjTPA? I just realised as well, i didnt put the walking part for the infinite run pool, i use RadialWalk in it, i edited it and it now is in there.

Make your own TPA's, they are cooler ;)

*sigh* hoped ya'll would let me be lazy ;) haha… and it is fine for me to edit that first post and put the walking there in it right? cuz i had it before i just was testing it and didnt want it to walk there all the time…

I like the standards of your script, proper indenting and all, it makes it so much easier to read. Symbol clicking in of it's self isn't bad you just need some backups (like a universal finder that looks for all the symbols you could be near and starts from their), ACA and DDTM's are great but you can do it yourself and they come out better. Your jokes are so-so but they match your name, and your name doesn't have annoying special charactures or anything. You have decent post count and you seem to know some SRL procedures and standards so a yes from me

From: king vash
I like the standards of your script, proper indenting and all, it makes it so much easier to read. Symbol clicking in of it's self isn't bad you just need some backups (like a universal finder that looks for all the symbols you could be near and starts from their), ACA and DDTM's are great but you can do it yourself and they come out better. Your jokes are so-so but they match your name, and your name doesn't have annoying special charactures or anything. You have decent post count and you seem to know some SRL procedures and standards so a yes from me

Great reasons to vote yes sir!

and what you voted no? can you please explain?

I vote no, for the following reason:

• You seem to use a lot of Bitmap for finding, and sometimes use DTMs.
• The most advanced procedures you have are straight from ACAv2.
• You do not use proper standard formatting.
• You do not shorten up your script where it should be shortened.
• Your walking is not properly set.
• You use the same values to type in some sentences, which is detectable a little.
• Your minorly use the MultiPlayer for anything.
• 3/8 of your script is not yours.

Improve on those in your next application then most members will vote a Yes ;) But also remember, that these Applications are not based on the script, but the appliers attitude as-well ;)

What should i use instead of bitmaps or DTMs to find the things i need to find? Which are, 1 item and 1 line of text…

What is wrong with my standards? Where should or shouldnt have I indented?

Thats to buy items, that was the most human like thing i thought i could have done there, i always do 33,44,55,ect personally… but i guess i was wrong 0_o

It's really a 1 player script as the requirements are so hard to get…

and im not trying to be difficult or anything but easier scripting is bad? I did ACA for the users of the script, not to show off like it makes me a scripting god, but i did have to put effort into it as to finding all the colors and making them work 100% of the time…

Dont get me wrong, im not trying to argue, just clear up some things, and thanks for the comments I feel better at scripting already ;)

From: sirlaughsalot
What should i use instead of bitmaps or DTMs to find the things i need to find? Which are, 1 item and 1 line of text…

It would've been better to use the SRL Include to find 1 line of text, as tolerance can differ the result ;)

From: sirlaughsalot

What is wrong with my standards? Where should or shouldnt have I indented?

Plenty of places:

Label
BeginOfMainLoop;
Label
GoToBreak;

to

Label
  BeginOfMainLoop;
Label
  GoToBreak;

or

case random (10) of
  0:Writeln('The sooner you fall behind the more time youll have to catch up.');
 
  1:Writeln('There are 3 kinds of people: those who can count & those who cant. ');

to

  case random (10) of
    0:Writeln('The sooner you fall behind the more time youll have to catch up.');
    1:Writeln('There are 3 kinds of people: those who can count & those who cant. ');

From: sirlaughsalot

Thats to buy items, that was the most human like thing i thought i could have done there, i always do 33,44,55,ect personally… but i guess i was wrong 0_o

You could've done something like:

procedure SendX11Int;
var
  i, c: Integer;
begin
  for c:=11 to 99 do
  begin
    i:=i+c;
    if((i=11) or (i=22) or (i=33) or (i=44) or (i=55) or (i=66) or (i=77) or (i=88) or (i=99)) then
      case (Random(2)) of
        0: Break;
        1: Continue;
      end;
  end;
  case Random(2) of
    0: i:=i+Random(2);
    1: i:=i-Random(2);
  end;
  SendKeys(IntToStr(i));
end;

From: sirlaughsalot

It's really a 1 player script as the requirements are so hard to get…

What, a bird buyer? I've never even heard of birds so i don't know, but i wouldn't think so.

From: sirlaughsalot

and im not trying to be difficult or anything but easier scripting is bad? I did ACA for the users of the script, not to show off like it makes me a scripting god, but i did have to put effort into it as to finding all the colors and making them work 100% of the time…

Never put It Works 100%, because nothing ever does ;) But finding colours isn't that hard, anybody that doesn't know how to script would know how to do that ;)

From: sirlaughsalot

Dont get me wrong, im not trying to argue, just clear up some things, and thanks for the comments I feel better at scripting already ;)

You're welcome, sirlaughsalot, but there are errors in your application. Don't get personal or anything over a application, because you can jsut re-apply. And judging by your attitude, i'd say you'll be allowed to re-apply within in 2 weeks of this application closing ;)

[QUOTE=Dan's The Man;429225]I vote no, for the following reason:[list]
[*]You seem to use a lot of Bitmap for finding, and sometimes use DTMs.
[*]You do not shorten up your script where it should be shortened.
[*]You do not use proper standard formatting.
[/list]
[/QUOTE]

If a bitmap/dtm works, why not use it?

I don't know what you mean by shorten things up, but if you mean that you can do the same without the extra begin/end; you don't have to shorten everything, most of the time it just makes the script harder to read.

The standards aren't that bad, are they? I've seen worse.

I don't think one should use these arguments to vote no (the rest were good though).

I wont vote on this apply, I don't know why, I just can't decide:p

He has got some good things and I saw he used a lable in the script, which I've never saw before in an application:)
But at the other side it seems like a simple script, I mean, the good stuff seems to be made by ACA, which makes me leaning towards a no-vote.

As you see a just can't decide, so I just wont vote:p

Is that a good reason Niels?:p;)

-Tsn.

[QUOTE=Dan's The Man;429306]It would've been better to use the SRL Include to find 1 line of text, as tolerance can differ the result ;)


Im not sure exactly what you mean :/… If you havent thought of what it was from the name its the "enter amount" text when you go to buy something…

[QUOTE=Dan's The Man;429306]
[SCAR]
procedure SendX11Int;
var
i, c: Integer;
begin
for c:=11 to 99 do
begin
i:=i+c;
if((i=11) or (i=22) or (i=33) or (i=44) or (i=55) or (i=66) or (i=77) or (i=88) or (i=99)) then
case (Random(2)) of
0: Break;
1: Continue;
end;
end;
case Random(2) of
0: i:=i+Random(2);
1: i:=i-Random(2);
end;
SendKeys(IntToStr(i));
end;[/scar]
[/QUOTE]

wow im barely sure what you did there but instead of a case wouldnt randomrange work better and use less space?

[SCAR]
var
i : Integer;
begin
i:=0
begin
i:=11+11*RandomRange(2,9)
writeln(IntToStr(i));
end;
end.
[/SCAR]

I think that works a little better ;)

[QUOTE=Dan's The Man;429306]
What, a bird buyer? I've never even heard of birds so i don't know, but i wouldn't think so.

Never put It Works 100%, because nothing ever does ;) But finding colours isn't that hard, anybody that doesn't know how to script would know how to do that ;)


http://www.tip.it/runescape/index.php?rs2quest_id=184 <- requirements and whatnot…

yeah i know when i said that it was late and when i realised i was already half asleep i was like "skrew that i aint changin it"

You're welcome, sirlaughsalot, but there are errors in your application. Don't get personal or anything over a application, because you can jsut re-apply. And judging by your attitude, i'd say you'll be allowed to re-apply within in 2 weeks of this application closing ;)

If you're serious i will <3 you forever!

@tcn

Im making a banana buyer atm its a little more complicated more walking and such, ill make an attempt at learning to make my own TPA's but i dont think ill make my own, just let it sink in for a bit haha… but hey thats the point of SRL, amirite?! so if you wanna see that to make up your mind (and its cool with teh peeps upstairs) I can prolly get it to you in 1-2 days?

And i have been wondering, is there a procedure to deposit everything but one type of item?

Hmm… I was kinda on the edge here.

But i had to vote no sorry.

Most people don't make it in with their first script unless if it's a really good one.

I wanted to vote yes cause you're a good person in the community and all :)

Maybe next time :)

-Ashur

You'll hear no complainin from me, ill always take compliments to the person ;)

Do you have any reasons not to vote for me that are different from the other people?

From: sirlaughsalot


@tcn

Im making a banana buyer atm its a little more complicated more walking and such, ill make an attempt at learning to make my own TPA's but i dont think ill make my own, just let it sink in for a bit haha… but hey thats the point of SRL, amirite?! so if you wanna see that to make up your mind (and its cool with teh peeps upstairs) I can prolly get it to you in 1-2 days?

And i have been wondering, is there a procedure to deposit everything but one type of item?

Just take the time, if this apply gets denied, you'll have to wait a month.
So please, take the time to write a script were you show your abilities and potential to us;)

From: Ashur2Good
Hmm… I was kinda on the edge here.

But i had to vote no sorry.

Most people don't make it in with their first script unless if it's a really good one.

I wanted to vote yes cause you're a good person in the community and all :)

Maybe next time :)

-Ashur

I got in by my first try!:) ..as many others..

-Tsn.

Okay TSN :) and thanks for the self esteem boost XD

I have to agree that script isn't that perfect, but I remind myself that script what got myself in was more shitty than this, but it ran really smooth..

Yes.

Heh.

if((i=11) or (i=22) or (i=33) or (i=44) or (i=55) or (i=66) or (i=77) or (i=88) or (i=99)) then

if length(IntToStr(i))= 2 and intToStr(i)[1] = intToStr(i)[2] then

hav fun.

Or

if ((i mod 11) = 0) then

;)

From: nielsie95
Or

if ((i mod 11) = 0) then

;)

Smartass!:p

-Tsn.

From: nielsie95
Or

if ((i mod 11) = 0) then

;)

Epic fail.:eek: I was born to get pwned.

Yes. Script is ok, but attitude is great.

~RM

Thanks RM, anything in particular you wanna add that noone else said? as in what i need to improve on

I think I'll vote yes. I really like your attitude and your maturity level. You have a want to learn, and I think you'd make a perfect SRL Member with just a bit more experience with scripting. GL (8-9 now).

:o i might actually make it! i kinda doubted it when i submitted the script, but i figured i had nothing to loose and waddo told me that i would get a lot of tips (which i did)… how much longer until this thread is closed and my fate is decided?

It's usually open till a decent amount of votes come in (that usually means around 25 votes). But a 50-50 or above a 50-50 by one probably won't get you in, unless the admin is feeling nice at that moment :p

If you do not make it, just remake all the procedures you made with ACAv2 by hand and then half the people who voted no will say yes :D.

From: Runescapian
It's usually open till a decent amount of votes come in (that usually means around 25 votes). But a 50-50 or above a 50-50 by one probably won't get you in, unless the admin is feeling nice at that moment :p

okay lol, or if they just like me a lot ;)

From: Dusk412
If you do not make it, just remake all the procedures you made with ACAv2 by hand and then half the people who voted no will say yes :D.

I will try to learn that and TPA's I am having some trouble with making my own TPA's at the moment i havent really tried but i need to at least have some grasp of what a lot of the stuff means and whatnot… FindObjTPA is really easy and i have that working in one of my scripts but if making my own TPA's is what will get me in i guess ill have to learn those or get someone to teach me…

i tell you what though if I have someone teach me TPA's it will be a lot easier /subliminalmessage

But i appreciate all of ya'll support… cept for TSN you really did make me feel too good about myself… Lol im kidding man you rock!!! And if you see this you=teh 1337… *sigh* i love doing this…

From: sirlaughsalot
Im not sure exactly what you mean :/… If you havent thought of what it was from the name its the "enter amount" text when you go to buy something…



wow im barely sure what you did there but instead of a case wouldnt randomrange work better and use less space?

var
  i : Integer;
begin
  i:=0
  begin
    i:=11+11*RandomRange(2,9)
    writeln(IntToStr(i));
    end;
end.

I think that works a little better ;)



http://www.tip.it/runescape/index.php?rs2quest_id=184 <- requirements and whatnot…

yeah i know when i said that it was late and when i realised i was already half asleep i was like "skrew that i aint changin it"



If you're serious i will <3 you forever!

@tcn

Im making a banana buyer atm its a little more complicated more walking and such, ill make an attempt at learning to make my own TPA's but i dont think ill make my own, just let it sink in for a bit haha… but hey thats the point of SRL, amirite?! so if you wanna see that to make up your mind (and its cool with teh peeps upstairs) I can prolly get it to you in 1-2 days?

And i have been wondering, is there a procedure to deposit everything but one type of item?

I know it could be shortened, i was just showing you more advanced ways on how to do things, e.g: For loops, which i don't see in your script (other than the ACAv2 functions ;) ).

From: Negaal
I have to agree that script isn't that perfect, but I remind myself that script what got myself in was more shitty than this, but it ran really smooth..

Yes.

Heh.

if((i=11) or (i=22) or (i=33) or (i=44) or (i=55) or (i=66) or (i=77) or (i=88) or (i=99)) then

if length(IntToStr(i))= 2 and intToStr(i)[1] = intToStr(i)[2] then

hav fun.

Couldn't you use mod?

EDIT: Just noticed that Niels pointed that out :p

From: Dusk412
If you do not make it, just remake all the procedures you made with ACAv2 by hand and then half the people who voted no will say yes :D.

That'll be harder? I'd just say to learn TPAs, use RadialWalking, use little bit beter use of standards, use MultiPlayer more effeciently and make a script that is very good which has one of your own anti random (e.g: In Mining, your own FindGas function. e.g: In WoodCutting, your own FindEnt procedure, etc etc).

;)

[QUOTE=Dan's The Man;429740]I know it could be shortened, i was just showing you more advanced ways on how to do things, e.g: For loops, which i don't see in your script (other than the ACAv2 functions ;) ).


It didnt work was the problem, it would do like 6 thousand something… And i will add for loops next time :), if there is one… and I will have normal repeats as well…

That'll be harder? I'd just say to learn TPAs, use RadialWalking, use little bit beter use of standards, use MultiPlayer more effeciently and make a script that is very good which has one of your own anti random (e.g: In Mining, your own FindGas function. e.g: In WoodCutting, your own FindEnt procedure, etc etc).

;)

I am trying with the TPAs, I have radialwalk in there but i am making another script and next time I will post that one along with this one as there is lots more walking in it. And this doesnt have its own random to go along with it… you just run back and forth buying raw bird meat…

If I do make it, I will know what I need to do to improve my script further and I appreciate that, i like the philosophy around here "if it aint broke make it look cooler"

kidding man you rock!!! And if you see this you=teh 1337… *sigh* i love doing this…

Lol, that is sneaky….

From: the scar noob
Just take the time, if this apply gets denied, you'll have to wait a month.
So please, take the time to write a script were you show your abilities and potential to us;)



I got in by my first try!:) ..as many others..

-Tsn.

lol yeah you did, but you were gonna get in whether you had the best application, or an app talking about how great you think cookies are :p

back on topic, looks like this is gonna be epic :D

-Ashur

what you mean?

From: sirlaughsalot
what you mean?

What do you mean by "what do you mean"? :p

Ashur said "this is gonna be epic" and i wondered what he meant by making that comment…

Nice jokes… i liked the unique one xD. I will not vote as i am too lazy to actually read your script. But on the bright side that means i get bliss :D

I appreciate it when people vote and dont post :)… /Sarcasm

From: sirlaughsalot
I appreciate it when people vote and dont post :)… /Sarcasm

Usually, people don't post why they voted no is because it's probably already stated in posts above ;)

*sigh* i hate the truth… btw im implementing TPA's right now, but for some reason it is acting up with my uptext failsafe…

From: sirlaughsalot
*sigh* i hate the truth… btw im implementing TPA's right now, but for some reason it is acting up with my uptext failsafe…

Be sure not to edit your submitted script. Wait until you're allowed to make another application, if you don't make it this time round. ;)

:) alright if you see TPA's all the sudden youll know XD… but i can make it in with 50-50?

If the admin is feeling nice, you might have a chance with 50/50. But I think that there are still a few active members that haven't posted/voted.

      until (Counter>=10) or (CoinAmount('inv')=GPToCarry);
      If Counter>10 then
      begin
        writeln('Something is seriously wrong...')
        Writeln('Couldnt get GP')
        Writeln('Terminating script')
        OpenWebPage('http://www.villavu.com/forum/showthread.php?t=28457');
        Logout;
        TerminateScript;
      end;

I hope you see what's wrong with that.


Jokes procedure.

case random (10) of
...
10:('Assasins do it from behind');

Random(10) returns 0..9.


Symbol walking, and no Multiplayer. I'm sorry, but it's going to be a no.

From: Lee Lok Hin

      until (Counter>=10) or (CoinAmount('inv')=GPToCarry);
      If Counter>10 then
      begin
        writeln('Something is seriously wrong...')
        Writeln('Couldnt get GP')
        Writeln('Terminating script')
        OpenWebPage('http://www.villavu.com/forum/showthread.php?t=28457');
        Logout;
        TerminateScript;
      end;

yeah 0_0 how did that get by?

From: Lee Lok Hin

I hope you see what's wrong with that.


Jokes procedure.

case random (10) of
...
10:('Assasins do it from behind');

Random(10) returns 0..9.


Symbol walking, and no Multiplayer. I'm sorry, but it's going to be a no.

wow i really am retarded…

 until (Counter>=10) or (CoinAmount('inv')=GPToCarry);
      If Counter>10 then
      begin
        writeln('Something is seriously wrong...')
        Writeln('Couldnt get GP')
        Writeln('Terminating script')
        OpenWebPage('http://www.villavu.com/forum/showthread.php?t=28457');
        Logout;
        TerminateScript;
      end;
 

Logout should be before openwebpage, just a hint.

And Dan's the man, I'm not that genius. So lmao.

It seems like you're not getting in, sorry.
You may apply again in two weeks, good luck.
Closed.