SRL Archive - Archive

ICEFIRE908 has voted yes but cant vote for some reason

rs2pro666 said

Today, 06:59 PM
I think u should get in… i agree with IceFire


so thats 6 yes's


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

What is the meaning to life?


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


Programming Knowledge
cureently learning java script, i know pascal,delphi etc and a lil c++

Other Communitys
KYab,Rsca,RsBot,Morpar,etc the list goes on

How Long have You Played Runescape
3-4yrs

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

well i have been a part of this comunity for a while and come to the conclusion its time to better my self..(or try)


well some of you may know me or have seen me around etc
i realy like this comunity my son is apart of this comunity
i have helped as much as i can to people on this forum its a nice freindly comunity that i wish to stay with for a good while..

id realy like to say keep up the good work peeps!!!

hope i get in and thanks every1 who has helped me!!

——————————————————

program CatherbyBananaMerch;
{.include srl/srl.scar}
{=========================================================================]
[           NAME        : BananaMercher!                                  ]
[           WRITER      : Scaper123                                       ]
[           CATEGORY    : Collecting/Banking                              ]
[           DESCRIPTION : Collects bananas and banks em!                  ]
[           USAGE       : Quick easy money                                ]
[           AUTOCOLOR   : Yes                                             ]
[           CONTACT     : [email]Scaper_2007@msn.com[/email]                             ]
[=========================================================================]
[                           Instructions.                                 ]
[=========================================================================]
[ 1. This is 100% leecher proof you'll see!! =)_                          ]
[ 2. USE Runescape With Low Detail, Very Bright.                          ]
[ 3. Set your Screen To 32 bit TRUE color.                                ]
[ 4. Position Players In Bank                                             ]
[ 5. Drag The Cross Hair Over Runescape, Hit Play, And Enjoy!             ]
[ 6. You Will Not Leech This Script... Read On!!                          ]
[ 7. You Need SRLID And SRLPass To Start The Script                       ]
{ 8. Enjoy!! :)                                                     ]
[=========================================================================}

const
    Loads = 1;
    CheckNickname = False;
    WriteDebug = true;
    Disguise = True;
    
    
//===============================//
        Version = '.1.1';        // Do NOT Touch!!!
//===============================}


var x, y,Bankers : Integer;
walk1DTMM, Walk2DTMM,BananaInvDTMM,BananaDTMM,ShopDTMM : Integer;
BankBoothmm, bananas, coinsDTMM, Coins, e, cr, cs : Integer;
TheSRLID, TheSRLPass, BankName : String;


procedure DeclarePlayers;
begin
  GetApplication.MINIMIZE;



  HowManyPlayers := 1;  //if using more payers like all take away the {} and change how many players u are using
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;


  Players[0].Name := 'rs tac tik'; //username
  Players[0].Pass := 'reecea'; //password
  Players[0].Nick := 'tac'; //3-4 letters from your username
  Players[0].loc := 'bank';
  Players[0].pin := '9999';
  Players[0].Active := true;
  
 { Players[1].Name := ''; //username
  Players[1].Pass := ''; //password
  Players[1].Nick := ''; //3-4 letters from your username
  Players[1].loc := 'bank';
  Players[1].pin := '9999';
  Players[1].Active := true;
  
  Players[2].Name := ''; //username
  Players[2].Pass := ''; //password
  Players[2].Nick := ''; //3-4 letters from your username
  Players[2].loc := 'bank';
  Players[2].pin := '9999';
  Players[2].Active := true;
  
  Players[3].Name := ''; //username
  Players[3].Pass := ''; //password
  Players[3].Nick := ''; //3-4 letters from your username
  Players[3].loc := 'bank';
  Players[3].pin := '9999';
  Players[3].Active := true;
  
  Players[4].Name := ''; //username
  Players[4].Pass := ''; //password
  Players[4].Nick := ''; //3-4 letters from your username
  Players[4].loc := 'bank';
  Players[4].pin := '9999';
  Players[4].Active := true;}
  
  MouseSpeed:=25; //Change If You Wish.
  Writeln('You are using '+inttostr(howmanyplayers)+' player[s]');
  for e:=0 to Howmanyplayers-1 do
  begin
    Writeln(Capitalize(Players[e].Name));
  end;
  Writeln('Good Luck');
  
end;

procedure Logo;
begin
  WriteLn('  ********                                         **   ****   ****');
  WriteLn('**//////                   ******                ***  */// * */// *');
  writeLn('/**         *****  ******  /**///** *****  ******//** /    /*/    /');
  WriteLn('/********* **///**//////** /**  /****///**//**//* /**    ***    ***');
  WriteLn('////////**/**  //  ******* /******/******* /** /  /**   *//    /// *');
  WriteLn('       /**/**   ****////** /**/// /**////  /**    /**  *      *   /* ');
  WriteLn(' ******** //*****//********/**    //******/***    ****/******/ ****');
  Writeln('////////   /////  //////// //      ////// ///    //// //////  ////');
  WriteLn('*******                     **                   **  **            ');
  Writeln('/**////**                   /**                  /** //             ');
  WriteLn('/**   /******** ******      /** **   **  *****  ********  ******  ******* ');
  WriteLn('/*******//**//***////**  ******/**  /** **///**///**//** **////**//**///** ');
  Writeln('/**////  /** //**   /** **///**/**  /**/**  //   /** /**/**   /** /**  /** ');
  Writeln('/**      /**  /**   /**/**  /**/**  /**/**   **  /** /**/**   /** /**  /** ');
  Writeln('/**     /***  //****** //******//******//*****   //**/**//******  ***  /**  ');
  Writeln('//      ///    //////   //////  //////  /////     // //  //////  ///   //  ');
end;

procedure Debug(thestring: string);
begin
  if(WriteDebug)then Writeln(thestring);
end;

Procedure LoadDTMMs;
 begin
   WriteLn('Loading DTMMs');

   Walk1DTMM  := DTMFromString('78DA633CC5C4C0A0CAC8800CCC33C2C0344C9' +
       '4F138508D3CAA1A461E4E5435E7806AB409A8B9886917869AC340' +
       '352AF8D50000AADD0612');

   Walk2DTMM := DTMFromString('78DA633CC8C4C0F09601055C2F5362E006D28' +
       'C40FC1F08188F02D57C4155337BF57230CD08E5331E03AA798DAA' +
       '66CF9913A86A0E00D5BC24A0660F50CD6722CCF98A5F0D00924E1' +
       'AE1');

   BankBoothMM := DTMFromString('78DA632C676260086200032608C5D050D3C62' +
       '007A41981F83F1030D623D4C0C0DBB7109A11CA67AC00AAF14755' +
       'F3E4FD5B543520BB4208A82902AA09445503720FB21A006BB1127' +
       'E');
       
   BananainvDTMM := DTMFromString('78DA6314676060E0644001DBB73932F000694' +
       '620FE0F048C1C40061BAA9A9933CCC0342394CF280924C451D54C' +
       '9F6A8AAA460E48F0A2AAA9ABD545552304249851D5CC996D8EAA8' +
       '60F48B0A0AAD9B2D901558D0C90104655B37C99358A1A00DAE90F' +
       '31');
       
   ShopDTMM    := DTMFromString('78DA63F4646260A86140012B125519B880342' +
       '310FF0702467FA09A3A54358C3C9C101AC67703AA2921A0C605A8' +
       'A69E801A3FA09A52026A9C806AAA09A80900AAA9C4AF0600B7180' +
       'B2D');
       
  BananaDTMM   := DTMFromString('78DA6394606060106040017B763B33F000694' +
       '620FE0F048C5240862CAA9AE9534DC13423944F941A4120C189AA' +
       '66E9622B54357240421855CDC409C6A4AB01D9C383AA66E60C33D' +
       '2D580FC2485AAA6A5591F550D1F90E04255B376B52D8A1A00874B' +
       '13E7');
       
  CoinsDTMM   := DTMFromString('78DA6394606060106040017B763B33F000694' +
       '620FE0F048C5240862CAA9AE9534DC13423944F941A4120C189AA' +
       '66E9622B54357240421855CDC409C6A4AB01D9C383AA66E60C33D' +
       '2D580FC2485AAA6A5591F550D1F90E04255B376B52D8A1A00874B' +
       '13E7');

       

  writeln('DTM''s Loaded.')
 end;
 
 procedure FreeDTMs; forward;


function FRadialWalkEx(TheColor, StartRadial, EndRadial, Radius, Tol: Integer): boolean;

var
TPA: TPointArray;

begin
  if RadialWalkEX(TPA, MMCX, MMCY, TheColor, Tol, StartRadial, EndRadial, Radius)then
  begin
    Mouse(TPA[0].x,TPA[0].y,1,1,true);
    Wait(2000+random(2000)); //failsafe
    Result:=FFlag(5+random(15));
  end;
end;
 
procedure RUNoob;
var CBlvl: integer;
//------------------------------- checks if ur a noob----By Caustic-----------------
begin
  if(not loggedin)then exit;
  CBLvl := GetCombatLevel;
  if (CBLvl < 5) then
  begin
    WriteLn('Lvl 3 normal clothes froob');
    NextPlayer(False);
  end else
  begin
    WriteLn('Thx for lvling player to '+IntToStr(CBLvl)+' and being a true macroer ;)');
  end;
end;

procedure progressreport;Forward;

procedure ReportSRL;
Var Logs,Banked,LastConnection : integer;
begin
  Progressreport;
  SRLRandomsReport;
  
  if (Players[CurrentPlayer].Banked > 0) then
  AddToReport('Banked            : ' + IntToStr(Players[CurrentPlayer].Banked));
  ReportVars[0] := Logs;
  ReportVars[1] := Talks;
  ReportVars[2] := Banked;
  ReportVars[3] := LastConnection;
  SrlRandomsReport;
end;
 
 procedure ZephFlag(Dist: Integer);
var
  Dx, Dy, m, d1, d2: Integer;
begin
  while (FindColor(Dx, Dy, 255, MMX1, MMY1, MMX2, MMY2)) do
  begin
    d1 := Distance(Dx, Dy + 14, MMCX, MMCY);
    if (d1 >= Dist) then
    begin
      Inc(m);
      Wait(100);
      if (m mod 5 = 0) then FindNormalRandoms; //So that a random doesn't make it
      if (m mod 100 = 0) then                  //get lost.
        if (d1 = d2) then
        begin
          if (FindColor(Dx, Dy, 255, MMX1, MMY1, MMX2, MMY2)) then
            Mouse(Dx, Dy + 14, 1, 1, True)
          else
            Mouse(MMCX, MMCY, 0, 0, True);
        end else d2 := d1;
    end else Break;
  end;
end;


Procedure CheckRun;
var
  RunP : integer;
  Energy : String;
 begin
   RunP := GetMMLevels('run', Energy)
   CloseBank;
   if(Energy = 'green')then
   begin
     writeln('[Walk]   Setting Run on...');
     SetRun(True);
    end;
 end;


procedure FindCrewMembers;
var
  TMT, Times: Integer;
begin
  TMT := 0;
  if not ShopScreen then
  begin
    SymbolAccuracy := 0.5;
    Checkrun;
    wait(2000+random(3000))
    FLAG;
    Writeln('[Trade]   Shop is not Open. Finding Charter...');
    if(FindSymbolIn(x, y, 'transportation', MMX1, MMY1, MMX2, MMY2)) then
    begin
      Flag;
      Writeln('[Walk]    Charter Found!!!');
      Mouse(x, y, 0, 0, true)
      Flag;
    end;
    repeat
      Times:=0;
      TMT := TMT + 1
      if FindObjEx(X, Y, ['rader', 'rewmember'], [7510470, 6522541, 7500667],
       10, 241, 173, 0.5, 58, 63, 368, 263) then
       begin
          Wait(50 + Random(20));
          Mouse(X, Y, 1, 1, false);
          Wait(50 + Random(20));
        if ChooseOption('rade') then
        begin
        Writeln('[Trade]   Attempted...');
          repeat
            Times:= Times + 1
            wait(100);
          until (ShopScreen) or (Times > 50);
            if shopscreen then
            begin
              writeln('[Trade]   Successful');
              exit;
            end;
        end;
      end;
    until (TMT > 5);
     if (not(ShopScreen)) then
     begin
     if(FindSymbolIn(x, y, 'transportation', MMX1, MMY1, MMX2, MMY2)) then
     begin
       ZephFlag(10)
        Writeln('[Trade] Charter Found.');
        Mouse(x, y, 0, 0, true)
        Players[CurrentPlayer].loc := 'transportation';
        FindCrewMembers;
     end;
     end
     else
    Writeln('[Trade] Could Not Find Charter.');
     end
     else
    Logout;
end;


Procedure BuyBananas;
var MMA : Extended;
 begin
   FindCrewMembers;
   LoadDTMMs;
   BananaDTMM   := DTMFromString('78DA6394606060106040017B763B33F000694' +
       '620FE0F048C5240862CAA9AE9534DC13423944F941A4120C189AA' +
       '66E9622B54357240421855CDC409C6A4AB01D9C383AA66E60C33D' +
       '2D580FC2485AAA6A5591F550D1F90E04255B376B52D8A1A00874B' +
       '13E7');
   begin
     wait(random(2000));
     MouseBox(45, 90, 92, 127, 3)
    if(IsUpText('anana'))then
    begin
      if(FindDTMRotated(BananaDTMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, MMA)) then
      getmousepos(x, y);
      wait(100);
      Mouse(x,y,0,0,false);
      Wait(1000);
       Case Random(8) of
       0: TypeSend('28');
       1: TypeSend('32');
       2: TypeSend('54');
       3: TypeSend('55');
       4: TypeSend('65');
       5: TypeSend('65');
       6: TypeSend('98');
       7: TypeSend('87');
      end;
    end
    else
     begin
       MouseBox(50, 70, 116, 79, 1)
       wait(random(600))
       BuyBananas;
     end;
    Wait(400)
   end;
 end;
 
 Procedure ToBank;
var MMA : extended;
 begin
   LoadDTMMs;
   wait(random(5000))
   if(FindDTMRotated(Walk2DTMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, MMA)) then
     begin
       ZephFlag(10);
       Writeln('[Walk]    DTM Found, #2.');
       Mouse(x-15, y, 0, 0, true)
       Players[CurrentPlayer].loc := 'WalkDTM2';
     end
     else
     begin
       Writeln('[Walk]    Radial Road Walk #2');
       RadialRoadWalk(FindRoadColor, 0, 80, 0, 0, 0)
       FindNormalRandoms;
       ZephFlag(20);
     end;
     FindNormalRandoms;
     if(FindDTMRotated(Walk1DTMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, MMA)) then
      begin
        Writeln('[Walk]    DTM Found, #1.');
        Mouse(x, y, 0, 0, true);
        Players[CurrentPlayer].loc := 'WalkDTM1';
      end
      else
       begin
         Writeln('[Walk]    Radial Road Walk #1 ');
         RadialRoadWalk(FindRoadColor, 0, 90, 0, 0, 0)
         FindNormalRandoms;
        Flag;
       end;
       if(FindDTMRotated(BankBoothMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, MMA)) then
        begin
         Writeln('[Bank]    Found on Minimap.')
         Mouse(x, y, 2, 2, true)
         Flag;
         end
         else
         if(FindSymbol(x, y, 'bank'))then
          begin
           Writeln('[Bank]    Symbol Found.');
           Mouse(x, y, 3, 3, true)
          end;
 end;


Function FindBankers(var x,y: Integer): Boolean;
var Bankers: Integer;
begin
  Bankers := DTMFromString('78DA636C666260706740012DD5550CFF81342' +
       '310FF0702C64AA01A2B54357FFE30316840D58000632D508D1901' +
       '358D4498D349580D00AACE12BF');
end;







procedure OpeningBank;

var
Tries,FB,AT: Integer;
Cha,it:boolean;

begin
  Writeln('Starting to Open Bank');
  repeat
    Tries:=Tries+1;
    OpenBankQuiet(Bankname);
  until(BankScreen)or (Pinscreen)or(Tries>5);
    if Tries>5 then
    begin
      Writeln('You are not in the right bank or we cannot find it');
      Writeln('Switching chars!');
      Nextplayer(false);
    end;
    if PinScreen then
    begin
      if ischatblacktextanyline('try')then
      begin
        Writeln('We Incorrectly entered the pin.');
        OpenBankQuiet(bankname);
      end;
        Writeln('We have entered the pin or should have.');
    end;
    if BankScreen then
    begin
      repeat
        FB:=FB+1;
        FindDTM(Coins,x,y,23,57,478,303);
      until(FindDTM(Coins,x,y,23,57,478,303))or
      (FB>=50);
    end;
    if FB>=50 then
    begin
      Writeln('COuld not find the '+inttostr(Coins)+' . switching chars!');
      nextplayer(false);
    end;
    if FindDTM(Coins,x,y,23,57,478,303)then
    begin
      It:=False;
      Cha:= ChooseOption('draw X');
      repeat
        AT:=AT+1;
        Mouse(x,y,1+random(8),1+random(8),false);
        Wait(2000+random(200));
       ChooseOption('draw X');
      until(FindColor(x,y,4231423,x-22,y-72,x+40,y-3))or (AT=5);
      if (FindColor(x,y,4231423,x-22,y-72,x+40,y-3)) then
      begin
        Wait(2000+random(200));
        TypeSend(inttostr(27+random(200)));
        Writeln('We withdrew the Coins...or we should have =)');
        CLOSEBANK;
      end;
      if AT=5 then
      begin
        Writeln('Something Is Wrong. Extreme Lag or We re off switching players');
        Logout;
        nextplayer(false);
      end;
    end;

end;


Function OpenCathyBank: Boolean;
var a,b,Tol,C: Integer;
begin
  if (Not LoggedIn) then Exit;
  Tol:= 10;
  repeat
    if FindObjCustom(x, y, ['se', 'uickly'], [bankboothmm], 25) then
    begin
      FFlag(0);
      repeat
        Wait(200+random(200))
        C:= C + 1;
      until(BankScreen) or (PinScreen) or (C = 20)
      if C = 10 then
      begin
        Exit;
      end;
      if PinScreen then
      begin
        repeat
          Wait(200+random(200))
          C:= C + 1;
        until(BankScreen) or (C = 20)
        if C = 20 then
        begin
          Exit;
        end;
        Wait(200+random(300))
      end;
      Wait(1000+random(1000))
      Result:= True;
      Exit;
    end else
    begin
      if Findbankers(a,b) then
      begin
        Mouse(a,b+2,5,5,true)
        FFlag(0)
        Wait(200+random(300))
      end;
    end;
    Tol:= Tol + 1;
  until(Tol = 20)
  ProgressReport;
end;


Procedure ToCharters;
var MMA : Extended;
 begin
 LoadDTMMs;
   begin
    if(FindDTMRotated(Walk1DTMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, MMA)) then
     begin
      Writeln('[Walk]    DTM Found, #1.');
      Mouse(x, y, 0, 0, true);
     end
     else
      begin
       RadialRoadWalk(FindRoadColor, 180, 310, 0, 0, 0);
       FindNormalRandoms;
       ZephFlag(15);
      end;
     end;
    if(FindDTMRotated(Walk2DTMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, MMA)) then
     begin
      ZephFlag(10);
      Writeln('[Walk]    DTM Found, #2.');
      Mouse(x-15, y, 0, 0, true)
      Players[CurrentPlayer].loc := 'WalkDTM2';
      Exit;
     end
     else
      begin
       Writeln('[Walk]    Radial Road Walk #2');
       RadialRoadWalk(FindRoadColor, 180, 310, 0, 0, 0);
       FindNormalRandoms;
       ZephFlag(20);
       Exit;
      end;
   end;

Procedure DepositItems;
var a,b,I: Integer;
begin
  LoadDTMMs;
  if (Not LoggedIn) then Exit;
  if BankScreen then
  begin
    if FindDTM(BananaInvDTMM,a,b,MIx1,MIy1,MIx2,MIy2) then
    begin
      Mouse(a,b,5,5,false)
      Wait(300+random(300))
      ChooseOption('Store All')
      Wait(1000+random(1000))
    end;
      begin
        Mouse(a,b,5,5,false)
        Wait(300+random(300))
        ChooseOption('Store All')
        Wait(1000+random(1000))
      end;
    end;
    for I:= 2 to 28 do
    begin
      if ExistsItem(I) then
      begin
        MouseItem(I,False)
        Wait(300+random(300))
        ChooseOption('Store All')
        Wait(500+random(500))
      end;
    end;
    CloseWindow;
  end;

  
function CoinSpentPerRun: integer;

begin
  if CR=1 then
  begin
    Gametab(4);
    CS:=CoinAmount('inventory');
    Writeln('Recording the amount of money Spent each run =).');
    Result:=CS;
  end;
end;


Procedure FreeDTMs;
 begin
  FreeDTM(BankBoothMM);
  FreeDTM(Walk1DTMM);
  FreeDTM(Walk2DTMM);
  FreeDTM(BananaInvDTMM);
  FreeDTM(ShopDTMM);
  FreeDTM(BananaDTMM);
  FreeDTM(Bankers);
 end;

Procedure Setup;
begin
  Logo;
  wait(1000)
  ProgressReport;
  begin
    TheSRLID := Readln('Your SRL ID please');
    WriteLn('SRL ID SucessFull');
    TheSRLPass := Readln('And your SRL pass please');
    WriteLn('SRL Password SucessFull');
    Wait(2000)
    WriteLn('Continuing Script');
    SRLId := TheSRLID;
    SRLPassword := TheSRLPass;
    wait(500);
    if (GetDebugText = 'Invalid SRLID') or (TheSRLID = '') or (TheSRLPass = '') then
   begin
      Writeln('Noob start the script with srl stats!');
      Terminatescript;
      ProgressReport;
   end else
     SetUpSRL;
     scriptID:='906';
     Declareplayers;
     Wait(1000)
     ActivateClient;
     Wait(2000)
   if(not LoggedIn) then LoginPlayer;
   wait(1000)
   SetAngle(True);
   MakeCompass('N');
   SetRun(True);
   wait(1000)
     begin
       reportSRL
       ProgressReport;
       SRLRandomsReport;
     end;
  end;
end;

procedure creditsTo;
begin
  ClearDebug;
  WriteLn('Just keep clicking ok or cancel!');
  wait(1500)
  ReadLn('Massive credits go to');
  ReadLn('everybody @');
  Readln('www.SRL-Forums.com');
  ReadLn('Thank You So Much');
end;

Procedure ProgressReport;
var totalspent, profit,rateV,rateP, sec : integer;
begin
  ClearDebug;
  SRLRandomsReport;
   begin
     TotalSpent := Bananas * 2;
    try
     RateP:= 79 +  Profit / Sec;
     RateV := 27 * Bananas / Sec;
    except
    AddToReport('well donde');
    Writeln('¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦');
    Writeln('¦¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦¦');
    Writeln('¦¦      Scaper123''s Banana Bonkers v0.1       ¦¦');
    Writeln('¦¦ Spent: ' + IntToStr(TotalSpent) + 'gp.                             ¦¦');
    Writeln('¦¦ Bought: ' + IntToStr(Bananas) + ' Bananas. [' +IntToStr(RateV)+' Bananas per hour.]  ¦¦');
    Writeln('¦¦ Profit: ' + IntToStr(Profit) + ' gp. [' +IntToStr(RateP)+'GP per hour.]      ¦¦');
    Writeln('¦¦ Ran For: ' + TimeRunning + '               ¦¦');
    Writeln('¦¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦¦');
    writeln('¦¦         Rember to always post proggies         ¦¦');
    WriteLn('¦¦                To this url                    ¦¦');
    WriteLn('¦¦             [url]www.SRL-Forums.com[/url]                                   ¦¦');
    Writeln('¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦');
    AddToReport('');
    SRLRandomsReport;
    SendSRLReport;
    end;
   end;
end;

begin
   Creditsto;
   ProgressReport;
   Setup;
   RUNoob;
 repeat
   progressreport;
   openingbank;
   ToCharters;
   BuyBananas;
   ToBank;
   OpenCathyBank;
   DepositItems;
   CoinSpentPerRun;
   FreeDTMs;
   wait(1000)
 until (Loads >= Players[CurrentPlayer].Integers[0]);
  begin
  ProgressReport;
  Logout;
  nextplayer(false);
  end;
end.

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

Your standards are off in some places, please fix them.

Holding vote.

yey this is off bobohoobo SRLmember application tool

yeyy

removed terminatescript. And added Logout!,
[===============================]
[ ~ Result = 120
[===============================]
Apply for members, unless you have cheated this
Successfully executed

holding vote. you're borderline in my opinion.

btw

Function FindBankers(var x,y: Integer): Boolean;
var Bankers: Integer;
begin
  Bankers := DTMFromString('78DA636C666260706740012DD5550CFF81342' +
       '310FF0702C64AA01A2B54357FFE30316840D58000632D508D1901' +
       '358D4498D349580D00AACE12BF');
  FreeDTM(Bankers)
end;

that will always mess up, because as soon as you load it you free it, never having the time to actually do something with it.

~RM

ok sorted Rm nd why are you holding vote for..??

From: scaper123
ok sorted Rm nd why are you holding vote for..??

proberly cause he doesnt wanna vote no and wait til u fix it up ill have a look in a min

Edit: does this work cause theres no stats ??

• BADDDDD standaards
• no multi player
• use FindObjectTPA instaid of FindObjectCostum
• SRLRandomsReport; should be called AFTER the ReportVars

work on that!

yes.

From: M4st3rK1ll

• BADDDDD standaards
• no multi player
• use FindObjectTPA instaid of FindObjectCostum
• SRLRandomsReport; should be called AFTER the ReportVars

work on that!

yes.

thanks masterkill for he yes and hayhay if the other yes was for you;)

i am getting there slowley but surely i think i have read jus about every tut going on this forum lolz

thanx guys keep em coming :)

Your findbankers, why do you need parameters x and y? All I can see is that it declares a dtm.

You have read every tutorial? Now. Go make a form or a canvas. Buaha :p

Anyway, your standards are off too, and not enough failsafes in my opinion.

Is'nt level 16 a bit high? o.O

All the waits in freedtm is probably not needed, since you are not alerting runescape anyway.

I think it's going to be a no. I will think over it for a bit more and see what comes up. Good luck.

Where is the multiplayer?

Maybe the reason you didn't catch this was because your standards are a bit off but:

Procedure ProgressReport;
var totalspent, profit,rateV,rateP, sec : integer;
begin
  SRLRandomsReport;
   begin
   TotalSpent := Bananas * 2;
    try
     RateP:= 79 +  Profit / Sec;
     RateV := 27 * Bananas / Sec;
    except
   Writeln('We can''t divide by zero..');
   AddToReport('');
   Writeln('¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦');
   Writeln('¦¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦¦');
   Writeln('¦¦      Scaper123''s Banana Bonkers v0.1       ¦¦');
   Writeln('¦¦ Spent: ' + IntToStr(TotalSpent) + 'gp.                             ¦¦');
   Writeln('¦¦ Bought: ' + IntToStr(Bananas) + ' Bananas. [' +IntToStr(RateV)+' Bananas per hour.]  ¦¦');
   Writeln('¦¦ Profit: ' + IntToStr(Profit) + ' gp. [' +IntToStr(RateP)+'GP per hour.]      ¦¦');
   Writeln('¦¦ Ran For: ' + TimeRunning + '               ¦¦');
   Writeln('¦¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦¦');
   writeln('¦¦         Rember to always post proggies         ¦¦');
   WriteLn('¦¦                To this url                    ¦¦');
   WriteLn('¦¦             <a href="http://www.SRL-Forums.com" target="_blank">www.SRL-Forums.com</a>                                   ¦¦');
   Writeln('¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦');
   AddToReport('');
   SRLRandomsReport;
   SendSRLReport;
    end;
   end;
end;

It will only display your report if you get a runtime error????

From: ZephyrsFury
Maybe the reason you didn't catch this was because your standards are a bit off but:

ScarScript:By Drunkenoldma [LEFT]Procedure ProgressReport; var totalspent, profit,rateV,rateP, sec : integer; begin SRLRandomsReport; begin TotalSpent := Bananas * 2; try RateP:= 79 + Profit / Sec; RateV := 27 * Bananas / Sec; except Writeln('We can''t divide by zero..'); AddToReport(''); Writeln('¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦'); Writeln('¦¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦¦'); Writeln('¦¦ Scaper123''s Banana Bonkers v0.1 ¦¦'); Writeln('¦¦ Spent: ' + IntToStr(TotalSpent) + 'gp. ¦¦'); Writeln('¦¦ Bought: ' + IntToStr(Bananas) + ' Bananas. [' +IntToStr(RateV)+' Bananas per hour.] ¦¦'); Writeln('¦¦ Profit: ' + IntToStr(Profit) + ' gp. [' +IntToStr(RateP)+'GP per hour.] ¦¦'); Writeln('¦¦ Ran For: ' + TimeRunning + ' ¦¦'); Writeln('¦¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦¦'); writeln('¦¦ Rember to always post proggies ¦¦'); WriteLn('¦¦ To this url ¦¦'); WriteLn('¦¦ <a href="http://www.SRL-Forums.com" target="_blank">www.SRL-Forums.com</a> ¦¦'); Writeln('¦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~¦'); AddToReport(''); SRLRandomsReport; SendSRLReport; end; end; end;


[/LEFT]

It will only display your report if you get a runtime error????

no it does desplay the report i was getting runtime errors until;l i added the

try
except
Writeln('We can''t divide by zero..');

Hm. Just remember to fix your standards and add multiplayer if you need to reapply next time.

A borderline Yes from me.

From: Lee Lok Hin
Hm. Just remember to fix your standards and add multiplayer if you need to reapply next time.

A borderline Yes from me.

thanks man apreciated

No, just because you haven't even tested it.

From: scaper123
no it does desplay the report i was getting runtime errors until;l i added the

try
except
Writeln('We can''t divide by zero..');

Hmm ok well the reason you get the runtime errors because you can't divide by zero (obviously). The reason the variables are zero in the first place is because you are using local vars. This means everytime you call the procedure your vars get reset to zero.

var totalspent, profit,rateV,rateP, sec : integer;

Since 'sec' is declared in that procedure it can only be used in that procedure and since you don't assign any value to 'sec' it is zero. Hence an error.

Also, SRLRandomsReport already sends the report to the server within it. This means you don't need to call SendSRLReport afterwards.

From: ZephyrsFury
Hmm ok well the reason you get the runtime errors because you can't divide by zero (obviously). The reason the variables are zero in the first place is because you are using local vars. This means everytime you call the procedure your vars get reset to zero.

ScarScript:By Drunkenoldma [LEFT]var totalspent, profit,rateV,rateP, sec : integer; [/LEFT]

Since 'sec' is declared in that procedure it can only be used in that procedure and since you don't assign any value to 'sec' it is zero. Hence an error.

Also, SRLRandomsReport already sends the report to the server within it. This means you don't need to call SendSRLReport afterwards.

o thanks very much iv taking all that in thanks man appreciated

you voting.??

dude im sorry but it will have some bugs as it says in the script it is v0.1 sorry for having bugs ill get right on it asoon as i member my acc again it was working perfectly till my membership ran out..
ill be right back on it when i get some £$£$£ on me cell 4one

There's quite a few apparant problems with the script and it is far from perfect and you're scripting skills definiatly need deep improvement, but from what I can see, you are SRL member material and should be let into the club, but that doesn't mean you don't need to improve. It's a yes from me, but you still have a lot to learn.

-IceFire

Edit: For some reason I can't vote.

The poll's auto closed. 2 weeks gone :p

so what does that meen?? omg


Edit: so will i get in or not :(

so what does that meen?? omg

I think u should get in… i agree with IceFire

so thats 6 yes's

edit


thax rs2pro666

I want to see some more votes, I reopened it :)

ty nielse95

Yes.

From: Cazax
Yes.

thank you very much

I think you have all the basic qualities of an SRL-Member. I don't know how your attitude is, but as for now, I will give you a yes.

I got my vote in, yes.

you're winning 10-2 and yet you pmed me 3 times begging for my vote since the forums got back up. rather annoying.

no.

~RM

Yes, that's SRL-member stuff there and autocolor and original script too ^_^.
Although, begging me to vote yes is not a good way to make me vote yes -,-

don't beg please and you can keep your account

i werent begging anybody to vote yes i was asking whith the forums being down so long and the poll auto closes's after 2 weeks my app had been up there for ages 1 wasnt saying plzzzzzzzzzzz vote yes i was telling that the poll was reopend plzzzzz put ya vote in and ~Rm im realy sorry if i pm'ed you 3 times jus the exitement of the forums back uo and getting my poll opened and you said holding vote and if ya went to put ya vote in after the forums up you would of had no poll so again sorry


Sorry guys if i offended you


thanx icefire eijman ,cazaz for the yes.

The script doesn't pass in my qualifications, but I won't vote no, because I still hope you'd get in.

From: n3ss3s
The script doesn't pass in my qualifications, but I won't vote no, because I still hope you'd get in.

thanx m8 ;)

i know im just borderline @ the min but hey im almost there once iv got the acheivment then i can expand my learning and produce l33t scripts for the comunity

thanx anyway

m and tou go way back n3 :D

Wth? You used FRadialWalkEx? I think I used that a LONG ass time ago. I named it Freaky's Radial Walk. How the hell did you get that? This is the one I had created a long time ago!

function FRadialWalkEx(TheColor, StartRadial, EndRadial, Radius, Tol: Integer): boolean;

var
TPA: TPointArray;

begin
  if RadialWalkEX(TPA, MMCX, MMCY, TheColor, Tol, StartRadial, EndRadial, Radius)then
  begin
    Mouse(TPA[0].x,TPA[0].y,1,1,true);
    Wait(200+random(200)) //failsafe
    Result:=f_FFlag(5+random(15));
  Else
    begin
      Wait(200+random(200));
      Exit;
    end;
end;

I got it off my miner that I hadn't finished making! Idk. Even though it's not that great of a function, I have no clue how you got it!

Room for improvement, but u know what you need to know. Yes!

I know ur gunna want to know what u need to improve on, but honestly, im too tired.

From: freakymonkey
Wth? You used FRadialWalkEx? I think I used that a LONG ass time ago. I named it Freaky's Radial Walk. How the hell did you get that? This is the one I had created a long time ago!

ScarScript:By Drunkenoldma [LEFT]function FRadialWalkEx(TheColor, StartRadial, EndRadial, Radius, Tol: Integer): boolean; var TPA: TPointArray; begin if RadialWalkEX(TPA, MMCX, MMCY, TheColor, Tol, StartRadial, EndRadial, Radius)then begin Mouse(TPA[0].x,TPA[0].y,1,1,true); Wait(200+random(200)) //failsafe Result:=f_FFlag(5+random(15)); Else begin Wait(200+random(200)); Exit; end; end; [/LEFT]

I got it off my miner that I hadn't finished making! Idk. Even though it's not that great of a function, I have no clue how you got it!

im not to sure m self m8 but if it is your function/procedure i credited the whole SRL members in my script

so did you vote??

From: Macrosoft
Room for improvement, but u know what you need to know. Yes!

I know ur gunna want to know what u need to improve on, but honestly, im too tired.

thanx man like i said in a earlier post i got borderline maybe a lil more but once my main acheivment out the way i can start learning more and more thanx for the yes tho appreciate it;)

Welcome, sir!