NiCbaZ
2007-05-20 07:11:27
<!– 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 is a very good SRL scripter
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
——————————————————
<!– END 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 is a very good SRL scripter
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 matter //
///////////////////////////////////////
//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 –>