SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
My brother he wa

Programming Knowledge
java,html

Other Communitys
none

How Long have You Played Runescape
4 years

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

Sorry members for copping your scripts in the past but i did not feel my ones where good enough but i have made a simple fisher it is not very good but it works i have used a little bit old code. Any way back to experience as i have said my older brother taught me how to srl script it was a while a go so i am not really up this the modern but i will get there i want to be a member so i can learn more of member scrips and so i can share my scripts as well.

thhxx
nicbaz

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

///////////////////////////////////////
//Made By Nicbaz                   ) //
//Email/Msn: nicbaz@hotmail,com      //
///////////////////////////////////////
//Setup:                             //
//1. Filling in Setup Procedure      //
//2. Trun off all chats              //
//3. Start in Draynor bank           //
//4. Low detail on                   //
//5. Face North but does not mattor  //
///////////////////////////////////////
//Coming SOON:                       //
//@Tele checker and logout           //
//@Get net from bank when lost       //
///////////////////////////////////////
//Bugs:                              //
//There are no bugs at the moment    //
//if you find a bug then email me    //
///////////////////////////////////////
//Version 0.1/Version 0.2/Version 0.1//
///////////////////////////////////////

program DraynorFish;
{.include SRL/SRL.scar}
{.include SRL/SRL/SKILL/Fishing.scar}

var
Trips,Fish_Type,MaxTime,HP_Run,Sea_color,
Tol,Spot,Spot1,Spot2,Net,Bait,Trip_number,No: Integer;

Run_direction: string;

//Fill in this procedure//
Procedure Setup;
begin
     //Player Setup//
     Trip_number:= 5; //number of times to bank
     Fish_Type:= 1; //1=net 2=bait
     MaxTime:= 6500; //1000=1 sec (Time before clicking on spot agin)
     HP_Run:= 20; //the lvl of hp when you should run
     Run_direction:= 'N'; //Where it should run
     Tol:= 40; //Tollerence lvl works best about 40
     BenMouse:=True; //move mouse more human
     MouseSpeed:=35; //speed of the mouse

     //colors should not need to be changed
     Sea_color:= 12161406; //Color of the sea
     Spot:= 15780016; //The fishing spot white color
     Spot1:= 11043954; //The fishing spot white color
     Spot2:= 15714472; //The fishing spot white color

end;

//----------------DO NOT CHANGE BELOW HERE----------------//
Procedure Startup;
begin
     SetupSRL;
     Setup;
     SetupSRLFishing;
     FindFishingEquipmentColor;

     //Loading bitmaps for if you have lost your fishing stuff and
     //for what spot you want to fish in
     Net := BitmapFromString(21, 10, 'z78DA73734300531753' +
       '13137364D20DAF2CE5A41B06C0256B000694DB82DF766435B4B01' +
       'DD91C5CB643D4D0D3764C1BF1DB8E3FDC8851499EED98E2987AF1' +
       'FB1D57D892673BEDC4894F2D98BEA3B5ED06380079A98EF8FC8E3' +
       'F0488497B001B3B2CBB');

    Bait := BitmapFromString(24, 10, 'z78DA7373C3074C5D4' +
       'C4D4CCCE94922DB6E800468ED2A5CE663BA07BF38EDC2813EEEA1' +
       '241C3001720CE2328D9898C534C78D08404CFAA1443DA9E6101F5' +
       'FC4F88BBAE9847871F2FC3514C5294FCF94C73B00960F53E2');

     No := BitmapFromString(29, 11, 'z78DABD55410E80200CFB929A10' +
       'E1B81DF8FF93349907CCDCE850F4D003295BD774C885525E59E17' +
       '27EB50AB2C16999D7091167EA205E0D606ABE7562566E5501FA71' +
       '67F089C253203E3773FDA456B9349687310D388613EBE6F627B53' +
       'A7B6E32FDED40381F786BB87DD3EF767C9854F127AA7DBD3BE16A' +
       '7A8326AB455EB3CECB39416DF8AE28D94AD993A09573BFA3B96B8' +
       '86FD21DFE371D9B2EB1C5');

     Writeln('/////////////////////////////////////');
     Writeln('//DraynorFish Started by Nicbaz    //');
     Writeln('//           Version 0.1           //');
     Writeln('/////////////////////////////////////');
     Writeln('//      [email]nicbaz@hotmail.com[/email]      //');
     Writeln('/////////////////////////////////////');
end;

Procedure Randoms;
var
x,y: Integer;
begin
     HandleWhirlPool;
     FindFishingEquipment;
     FindNormalRandoms;
     if(FindFight)then
     begin
          RunAwayDirection(Run_direction);
          wait(Random(5000)+3000);
          RunBack;
     end;
     //loging out if fishing stuff not found//
     if(Fish_Type=1)then
     begin
          //Net fishing//
          if(FindBitmap(No,x,y)=True)then
          begin
               Logout;
               Writeln('No Net Found');
               repeat
               begin
                    Wait(100000);
               end;
               until(False)
          end;
     end else begin
         //other fishing type//
         if(FindBitmap(No,x,y)=True)then
          begin
               Logout;
               Writeln('No Rod or bait Found');
               repeat
               begin
                    Wait(100000);
               end;
               until(False)
          end;
     end;
end;

Procedure Fish;
var
x,y: Integer;
begin
     While(InventoryCount<>28)do
         begin
         wait(Random(200)+100);
         if ((FindColorSpiralTolerance(x,y,Spot,60,68,410,336,Tol)) or
         (FindColorSpiralTolerance(x,y,Spot1,60,68,410,336,Tol)) or
         (FindColorSpiralTolerance(x,y,Spot2,60,68,410,336,Tol))) then
         begin
              //checking what type of fish and what to do
              if(Fish_Type=1)then
              begin
                   Randoms;
                   Mouse(x,y,2,2,false);
                   wait(Random(500)+800);
                   if(FindBitmap(Net,x,y))then
                   begin
                        Mouse(x,y,2,2,True);
                        Wait(Random(MaxTime/2)+MaxTime);
                   end else begin
                       Mouse(x+Random(5),y,2,2,True);
                   end
              end else begin
                   Randoms;
                   Mouse(x,y,2,2,false);
                   wait(Random(500)+800);
                   if(FindBitmap(Bait,x,y))then
                   begin
                        Mouse(x+Random(5),y,2,2,True);
                        Wait(Random(MaxTime/2)+MaxTime);
                   end else begin
                       Mouse(x,y,2,2,True);
                   end;
              end;
         end;
     end;
     Trips:=Trips+1
end;

Procedure Spot_To_Bank;
var
x,y,done: Integer;
begin
     done:=0;
     While(Done<>1)do
     begin
       wait(Random(200)+125);
       if(FindSymbol(x,y,'bank'))then
       begin
            Mouse(x, y, 2, 2, True);
            wait(Random(3000)+8000);
            Repeat
            begin
                 wait(Random(250)+150);
                 OpenBank3;
            end;
            until(BankScreen=True)
            //banking got stuff//
            DepositArea(601,247,732,244);
            DepositArea(601,247,721,461);
            done:=1;
       end;
     end;

     //login you out after cutain number
     if(Trips=Trip_number)then
     begin
          Logout;
          Writeln('Stript ended!!!');
          repeat
          begin
               Wait(100000);
          end;
          until(False)
     end;
end;

Procedure Bank_To_Spot;
var
x,y,done,done1: Integer;
begin
     done1:=0;
     repeat
     begin
       wait(Random(250)+250);
       if(FindColorSpiralTolerance(x,y,Sea_color,592,120,636,138,Tol))then
       begin
            Mouse(x, y, 2, 2, True);
            Wait(Random(2000)+4000);
            done:=0;
            While(done<>1)do
            begin
                 wait(Random(500)+500);
                 if(FindSymbol(x,y,'fish'))then
                 begin
                      Mouse(x, y, 2, 2, True);
                      wait(Random(4000)+5000);
                      done:=1;
                      done1:=1;
                 end;
            end;
         end;
       end
       until(done1=1)
end;

//Main loop and startup//
begin
     Startup;
     //Main loop//
     Repeat
     begin
          Bank_To_Spot;
          Fish;
          Spot_To_Bank;
          Wait(Random(100)+150);
     end;
     until(False)
end.

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

Alright… whose is this script now?
About 2 days ago you applyed with WhiteShadow's script…

Btw, what is this meant for:

          repeat
          begin
               Wait(100000);
          end;
          until(False)

OMFG, Don't apply again, i'm sure you will get banned.

Learn to script or don't apply :mad:


-Ashur

im sorry it lacks a few simple things like multiplayer, and failsafes not to mention anti-ban. But im sure if you went and improved on it and made it more reliable you'd get in.

I dont advise walking with symbols what happens when the symbol ends up out of the area?

Please nicbaz wait ONE MONTH before applying again!
CLOSED