Wool
2006-12-21 21:52:17
Wool - SRL Member Application Form
Wool
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Scar
Other Communitys
Sythe.org
How Long have You Played Runescape
bout 2-3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im 15 years old, just got into scar about a month ago. Really enjoy making scripts and exploring others. I wanna get better and learn some new things. Just finished one of my scripts that runs very well, it includes everything you would need for a powerminer. Also working on a Power-Chopper and Ess-Runner.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Wool
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Scar
Other Communitys
Sythe.org
How Long have You Played Runescape
bout 2-3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im 15 years old, just got into scar about a month ago. Really enjoy making scripts and exploring others. I wanna get better and learn some new things. Just finished one of my scripts that runs very well, it includes everything you would need for a powerminer. Also working on a Power-Chopper and Ess-Runner.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{ POWER-MINER V 1.06 ___ |
______ _______ | |\\\\\\\ |
\ \ _ / / | |\\\\\\\\\\ |
\ \_/ \_/ / ______ ______ | |\\\\\\\\\\\\\ |
\ __ / | _ | | _ | | |\\\\\\\\\\\\\\\\ |
\ / \ / | |*| | | |*| | | |\\\\\\\\\\\\\\\\\\\ |
\___/ \___/ |______| |______| |___|\\\\\\\\\\\\\\\\\\\\\|
|
1. Set the constants |
2. Set up Username & Password |
3. Make sure character is by rocks you want to mine |
4. Drag crosshair to the RS Window and play |
Script by WOOL |
___________________________________________________________________|
NOTES: |
I would suggest that you keep the constant switch to one to prevent|
so many randoms. Also, setting nickname for your user make you do |
not use the first letter because its a capital in the game. Make |
sure that the pick is equipped and all extra are from first inv |
and on. |
|
Thx to all that helped along the way =] |
___________________________________________________________________| |
}
program Powerminer;
{.include srl/srl.scar}
{.include SRL/SRL/skill/Mining.scar}
var
loadsdroped,loads : integer;
//////////////////////////////BEGIN SETUP ////////////////////////////////
const
rockcolor= 4417165; //Pick rock color
rockcolor2= 4483472; //Pick Second color
rockcolor3= 3296876; //Pick Third color
rockcolor4= 4417165; //Pick Final color
pick= true; // ***DONT TOUCH***
numberofpicks= 0; //# of extra picks you have
switch= 1; // ***KEEP TO 1***
emptyore= 500; //# of loads before end of script
timetowait= 5; //Wait time in seconds, ajust to skill level
run= 'N'; //Run direction
//////////////////////////////SET PLAYERS/////////////////////////////////
Procedure PickPlayers;
begin
HowManyPlayers:=4;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='Wool'; //Enter your Username here
Players[0].Pass :='******'; //Enter your Password here
Players[0].Nick :='ool'; //Enter your Nickname here
Players[0].Active := true;
Players[1].Name :='Wool'; //Enter your Username here
Players[1].Pass :='******'; //Enter your Password here
Players[1].Nick :='ool'; //Enter your Nickname here
Players[1].Active := true;
Players[2].Name :='Wool'; //Enter your Username here
Players[2].Pass :='******'; //Enter your Password here
Players[2].Nick :='ool'; //Enter your Nickname here
Players[2].Active := true;
Players[3].Name :='Wool'; //Enter your Username here
Players[3].Pass :='******'; //Enter your Password here
Players[3].Nick :='ool'; //Enter your Nickname here
Players[3].Active := true;
end;
//////////////////////////////END OF SETUP////////////////////////////////
procedure intro;
begin
cleardebug;
wait(500);
writeln(' ______ _______');
wait(200);
writeln(' \ \ _ / /');
wait(200);
writeln(' \ \_/ \_/ /');
wait(200);
writeln(' \ __ /');
wait(200);
writeln(' \ / \ /');
wait(200);
writeln(' \___/ \___/OOL SCRIPTS');
wait(1000);
end;
//---------------------------------------------------------------------\\
function FindPickHead: Boolean; // By: Stupid3ooo/WT-Fakawi
var
c,XH,YH,BR:integer;
ReequipPick : Boolean;
begin
GameTab(4);
Result:=True;
if(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,30))or
(GetColor(472,380)=0)and(GetColor(482,383)=0)then
begin
PerfectNorth;
GameTab(5);
Wait(1000);
if (GetColor(604,300)=65536) and (GetColor(601,298)=65536) then
begin
NoPick:=True;
writeln('Broken Pickaxe. NoPick:=True;');
GameTab(4);
Result:=False;
BR:=1+Random(5);
case BR of
1: begin TypeSend('arg'); end;
2: begin TypeSend('aarg'); end;
3: begin TypeSend('arghh'); end;
4: begin TypeSend('dam'); end;
5: begin TypeSend('gee.'); end;
end;
Exit;
end;
GameTab(4);
Wait(2000+random(100));
if(FindBitmapSpiralTolerance(Ore,x,y,559,210,735,460,25))then
begin
Mouse(x,y,5,5,false);
ChooseOption(x, y, 'Drop');
end;
repeat
if not(Loggedin) then exit;
c:=c+1;
x := random(510) + 5;
y := random(330) + 5;
if(FindColorSpiral(x, y, hc1, 3, 3, 515, 338))or
(FindColorSpiral(x, y, hc2, 3, 3, 515, 338))or
(FindColorSpiral(x, y, hc3, 3, 3, 515, 338))or
(FindColorSpiral(x, y, hc4, 3, 3, 515, 338))or
(FindColorSpiral(x, y, hc5, 3, 3, 515, 338))then
begin
MMouse(x,y,2,2);
if IsUpText('Take') then begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, true);
end;
Flag;
wait(1000+random(100));
end else
if(PickUpItems)then
ItemGrab;
until((FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50)) or (c>=10) );
if not (FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50)) then
begin
NoPick:=True;
Result:=False;
Exit;
end;
writeln('Found Head');
GameTab(5);
Wait(250);
if FindBitmapSpiralTolerance(PickHandle,XH,YH,560,280,615,322,50) then
begin
writeln('Found Handle');
Mouse(XH,YH,0,0,True);
ReequipPick := True;
end;
Wait(250);
GameTab(4);
Wait(250);
if(FindItemBmpTol(PickHead,50))and(FindItemBmpTol(PickHandle,50))then
begin
ClickItemBmpTol(PickHead,50,true);
wait(1000);
ClickItemBmpTol(PickHandle,50,true);
PickAxeAttached:=PickAxeAttached+1;
writeln('Attached Head & Handle');
NoPick:=False;
Result:=True;
if ((EquipPick) or (ReequipPick)) then
begin
wait(3000);
ClickItemColor(hc1,True);
end;
end;
end;
end;
//---------------------------------------------------------------------\\
Procedure avoidban;
var
DontBan : Integer;
begin
if ( not ( LoggedIn )) then Exit;
DontBan:=Random(45)
case DontBan of
1: RandomRClickEvery(2 + Random(15));
2: LeaveScreenEvery(10 + Random(5));
3: hoverskill('random', false);
4: BoredEvery(9 + Random (21));
5: PickUpMouse;
6: LeaveScreenEvery(10 + Random(5));
7: RotateEvery(20 + Random(5));
8: RotateEvery(20 + Random(5));
9: SayCurrentLevels('mining');
10: RandomChatEvery(10 + Random(5));
end;
end;
//---------------------------------------------------------------------\\
procedure otherrandom;
begin
FindTalk;
wait(3);
FindDemon;
Wait(3);
FindMod;
Wait(3);
FindScapeRune;
Wait(3);
SolvePinball;
Wait(3);
if (not(loggedin)) then
begin
nextplayer(true);
end;
end;
//---------------------------------------------------------------------\\
function GassCheck:Boolean;
var gasx :integer;
gasy :integer;
RGWT :integer;
TWG :integer;
begin
if (FindColorSpiralTolerance(gasx,gasy,rockcolor,210,130,300,220,5)) or
(FindColorSpiralTolerance(gasx,gasy,rockcolor2,210,130,300,220,5)) or
(FindColorSpiralTolerance(gasx,gasy,rockcolor3,210,130,300,220,5)) or
(FindColorSpiralTolerance(gasx,gasy,rockcolor4,210,130,300,220,5)) then
begin
if not FindGas(gasx,gasy) then
exit;
if FindGas(gasx,gasy) then
begin
writeln('Found gas...');
writeln('Running away from the rock.');
RunAwayDirection(run);
begin
RGWT:=5+random(7);
TWG:=0
repeat
TWG:=TWG+1;
wait (1500+random(355));
until(TWG=RGWT)
Runback;
Result:=True;
end;
end;
end;
end;
//--------------------------------------------------------------------\\
procedure gas;
begin
gasscheck;
if(GasFound(x,y))then
begin
runawaydirection(run);
runback;
end;
end;
//--------------------------------------------------------------------\\
Procedure Dropore;
begin
findnormalrandoms;
otherrandom;
findtalk;
if (not(loggedin))then
begin
nextplayer(true);
end;
if(findfight)then
begin
runawaydirection(run);
runback;
end;
If (InvFull) Then
begin
If (Pick) Then
DropTo(numberofpicks+1,28)
else
DropTo(numberofpicks+1,28)
loadsdroped := loadsdroped + 1;
loads:=loads + 1
end;
findtalk;
avoidban;
FindNormalRandoms;
otherrandom;
end;
//--------------------------------------------------------------------\\
Procedure minerocks;
begin
findpick;
findnormalrandoms;
otherrandom;
FindTalk;
gas;
if (not(loggedin))then
begin
nextplayer(true);
end;
if(findfight)then
begin
runawaydirection(run);
runback;
end;
begin
if (invfull) then
begin
FindTalk;
otherrandom;
findnormalrandoms;
dropore;
end;
if(Findcolor(x,y,rockcolor,5,5,515,340))or
(Findcolorspiral(x,y,rockcolor2,5,5,515,340))or
(findcolor(x,y,rockcolor3,5,5,515,340))or
(findcolorspiral(x,y,rockcolor4,5,5,515,340))then
begin
Gas;
findpick;
Mouse(x,y,1,1,true)
Wait(timetowait*1000+random(300))
end;
findnormalrandoms;
otherrandom;
avoidban;
FindTalk;
end;
end;
//--------------------------------------------------------------------\\
procedure Progreport;
begin
writeln('')
writeln('')
writeln('*******************REPORT**************************')
writeln('Script ran for : ' + scripttime2 (2))
writeln('Droped ' + inttostr(loads) + ' load(s)!')
writeln((Players[CurrentPlayer].Name)+ ' is now lvl ' + inttostr(GetSkillLevel('Mining')))
writeln('*******************REPORT**************************')
writeln('')
writeln('')
end;
//---------------------------------------------------------------------\\
procedure mainloop;
begin
repeat
minerocks;
if (invfull) then
begin
DropOre;
end;
until (loadsdroped = switch)
Loadsdroped:=0;
ProgReport;
logout;
NextPlayer(true);
findpickheadcolor;
end;
//---------------------------------------------------------------------\\
begin
SetUpSRL;
SetUpSRLMining;
SRLRandomsReport;
intro;
PickPlayers;
loginplayer;
findpickheadcolor;
repeat
mainloop;
until(loads = emptyore)
writeln(' FINISHED ')
Progreport;
writeln(' FINISHED ')
end.
//----------------------------END SCRIPT--------------------------------\\