Simon
2007-02-19 22:39:20
<!– BEGIN TEMPLATE: formanswers –>
Simon - SRL Member Application Form
Simon
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Visual Basic, C++, some Delphi and Java
Other Communitys
none
How Long have You Played Runescape
about 5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Ive been programming for about 7 years. Even though I just found this site, it has intrigued me enough to start writing my own scripts for Runescape. So here is my first script. Its a very basic powerminer. It is multiplayer, but it doesnt have any anti-randoms or anti-bans. I'm looking to improve on this later.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Simon - SRL Member Application Form
Simon
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Visual Basic, C++, some Delphi and Java
Other Communitys
none
How Long have You Played Runescape
about 5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Ive been programming for about 7 years. Even though I just found this site, it has intrigued me enough to start writing my own scripts for Runescape. So here is my first script. Its a very basic powerminer. It is multiplayer, but it doesnt have any anti-randoms or anti-bans. I'm looking to improve on this later.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program SimonPowerminer;
//Version 1.0
//My First Script :D
//Re-attaching pick heads will only works when the pick is wielded!!
//Ideas for next version: Re-attach pick without weidling it, get gas procedure working, and have some anti-bans.
{.include SRL/SRL.Scar}
{.include SRL/SRL/Skill/Mining.Scar}
const
StartCharacter = 0;
RockColor = 4088200;//Color of Ore
PickWielded = True;//True = Wielded, False = in Inventory
NumberOfUsers = 10;//
LSkill = 'mining';//
LoadsPerUser = 1;//
OreClick = 6;//Ore Click Wait Intervals.
var numrocksmined,loads,z:integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartCharacter;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=false;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=false;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=false;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=false;
Players[6].Name :='';
Players[6].Pass :='';
Players[6].Nick :='';
Players[6].Active:=false;
Players[7].Name :='';
Players[7].Pass :='';
Players[7].Nick :='';
Players[7].Active:=false;
Players[8].Name :='';
Players[8].Pass :='';
Players[8].Nick :='';
Players[8].Active:=false;
Players[9].Name :='';
Players[9].Pass :='';
Players[9].Nick :='';
Players[9].Active:=false;
end;
procedure FindRandoms;
begin
if FindPick=false then
ItemGrab;
FindNormalRandoms;
if(FindFight)then
begin
writeln('Fight Fought')
setrun(true)
RunAwayDirection('w')
wait(10000)
runback;
end;
end;
procedure MineOre;
begin
repeat
MouseSpeed:= 13+random(7);
FindRandoms;
FindPick;
if(not(FindObj(x, y, 'Mine', RockColor, 10)))then
begin
Writeln('Ore not Found');
TerminateScript;
end
else
begin
Mouse(x, y, 1, 1, true);
Wait(OreClick * 1000 + random(1000));
end;
until(InvFull)
end;
procedure DropOre(Wield : Boolean);
begin
case Wield of
True: Begin
MouseSpeed:= 13+random(7);
DropTo(1, 14);
FindRandoms;
DropTo(15, 28);
numrocksmined:=numrocksmined+28
loads:=loads+1;
End;
False: Begin
MouseSpeed:= 13+random(7);
DropTo(2, 14);
FindRandoms;
DropTo(15, 28);
numrocksmined:=numrocksmined+27
loads:=loads+1;
End;
end;
end;
Procedure Report;
begin
writeln('This is Simon''s Power Miner v1.0')
writeln('You have mined: ' + inttostr(numrocksmined))
writeln('End Report')
end;
procedure PowerMine;
begin
MineOre;
DropOre(PickWielded);
Report;
end;
begin
ClearDebug;
ClearReport;
SetupSrl;
SetupSrlMining;
DeclarePlayers;
ActivateClient;
repeat
if(not(LoggedIn))then
LoginPlayer;
repeat
z:=z+1
SendArrowSilentWait(0,1000);
until(z = 5)
if(LoggedIn)then
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
FindPickHeadColor;
chatsoff;
repeat
powermine;
until(loads>=LoadsPerUser)
begin
repeat
Wait(1000);
FindRandoms;
until(not(LoggedIn));
wait(2000)
NextPlayer(True);
end;
if (not(Loggedin)) then NextPlayer(False);
FindPickHeadColor;
until(false)
end.
——————————————————
<!– END TEMPLATE: formanswers –>