Method
2007-09-09 02:58:26
<!– BEGIN TEMPLATE: formanswers –>
Metho D - SRL Member Application Form
Metho D
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
I have worked with PHP a tiny bit, but otherwise no.
Other Communitys
I've visited Sythe and Fagex, but haven't been too active on either. I visit bulletin boards outside the RuneScape category regularly, though.
How Long have You Played Runescape
I've had experience with RuneScape for about 4 years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm relatively new to SCAR and SRL scripting, but ever since I found SCAR I've always wanted to learn how to make scripts. I stumbled onto this forum a little while ago and haven't looked back since. There's a ton of great tutorials to learn from and the members are very helpful. I like the atmosphere here and I hope to stick around for quite a bit. This script is hopefully the first of many I make during my stay here. Thanks for creating a great community and keep up the good work!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Metho D - SRL Member Application Form
Metho D
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
I have worked with PHP a tiny bit, but otherwise no.
Other Communitys
I've visited Sythe and Fagex, but haven't been too active on either. I visit bulletin boards outside the RuneScape category regularly, though.
How Long have You Played Runescape
I've had experience with RuneScape for about 4 years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm relatively new to SCAR and SRL scripting, but ever since I found SCAR I've always wanted to learn how to make scripts. I stumbled onto this forum a little while ago and haven't looked back since. There's a ton of great tutorials to learn from and the members are very helpful. I like the atmosphere here and I hope to stick around for quite a bit. This script is hopefully the first of many I make during my stay here. Thanks for creating a great community and keep up the good work!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{ /--------------------------------------------------\
| Al Kharid Powerminer v1.0 |
| By Metho D |
| |
| Thanks To: |
| - WT-Fakawi |
| - pwnaz0r |
| Both of you have provided excellent |
| tutorials and help for me to script |
| to the best of my ability. |
\--------------------------------------------------/
}
program New;
{.include SRL/SRL.scar}
{.include SRl/SRL/Skill/Mining.scar}
var
Loads, OreDTM, OresMined, GasesFound, a, b, x, y: Integer;
const
NumLoads = 5; //How many loads to do before switching players.
IronColor1 = 2832988; //Set if current colors aren't working
IronColor2 = 1778490; //Set if current colors aren't working
IronColor3 = 2569557; //Set if current colors aren't working
procedure DeclarePlayers;
begin
HowManyPlayers := 3; //How many players are mining.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Which player you are starting with.
Players[0].Name := 'Username'
Players[0].Pass := 'Password';
Players[0].Nick := 'erna'; //3-4 letters of name (not CAPS)
Players[0].Active := True; //Player is going to be mining.
Players[0].Booleans[1] := false; //Pick equipped = true, in inventory = false
Players[1].Name := 'Username'
Players[1].Pass := 'Password';
Players[1].Nick := 'erna'; //3-4 letters of name (not CAPS)
Players[1].Active := True; //Player is going to be mining.
Players[1].Booleans[1] := True; //Pick equipped = true, in inventory = false
Players[2].Name := 'Username'
Players[2].Pass := 'Password';
Players[2].Nick := 'erna'; //3-4 letters of name (not CAPS)
Players[2].Active := True; //Player is going to be mining.
Players[2].Booleans[1] := True; //Pick equipped = true, in inventory = false
{Players[3].Name := 'Username'
Players[3].Pass := 'Password';
Players[3].Nick := 'erna'; //3-4 letters of name (not CAPS)
Players[3].Active := True; //Player is going to be mining.
Players[3].Booleans[1] := True; //Pick equipped = true, in inventory = false
Players[4].Name := 'Username'
Players[4].Pass := 'Password';
Players[4].Nick := 'erna'; //3-4 letters of name (not CAPS)
Players[4].Active := True; //Player is going to be mining.
Players[4].Booleans[1] := True; //Pick equipped = true, in inventory = false
Players[5].Name := 'Username'
Players[5].Pass := 'Password';
Players[5].Nick := 'erna'; //3-4 letters of name (not CAPS)
Players[5].Active := True; //Player is going to be mining.
Players[5].Booleans[1] := True; //Pick equipped = true, in inventory = false}
NicknameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, upchars);
Writeln('There are ' + IntToStr(HowManyPlayers) + ' character(s) mining.');
end;
function FindFastRandoms: Boolean; //by WT-Fakawi
var
i: Integer;
begin
for i := 1 to 9 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
end;
Wait(1);
end;
end;
procedure Randoms;
begin
if(not(LoggedIn)) then
Exit;
if(FindGas(a, b)) then
GasesFound := GasesFound + 1;
FindTalk;
FindFastRandoms;
FindNormalRandoms;
if (FindFight = True) then
begin
RunAwayDirection('S');
wait(1000 + random(5000));
RunBack;
end;
end;
procedure AntiBan;
begin
if(not(LoggedIn)) then
Exit;
case Random(20) of
2: HoverSkill('Mining', False);
4: HoverSkill('Smithing', False);
6: RandomRClick;
8: PickUpMouse;
10: AlmostLogout;
end;
end;
procedure LoadDTMs;
begin
OreDTM := DTMFromString('78DA634C636060686740015EBA8A0CFF81342' +
'310FF0702C63820632A031A604422817418909840404D38906822' +
'A0261148541150930924AA09A82902128D04D4E403893EFC6A002' +
'9A90CF9');
end;
procedure DropOres;
begin
if(not(LoggedIn)) then
Exit;
LoadDTMs;
if(not(FindDTM(OreDTM, x, y, MIX1, MIY1, MIX2, MIY2)) or (not(InvFull))) then Exit;
repeat
if(FindDTM(OreDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x, y, 3, 3, false);
ChooseOption('rop');
Randoms;
Wait(700+Random(500))
end;
until(not(FindDTM(OreDTM, x, y, MIX1, MIY1, MIX2, MIY2)));
if(Players[CurrentPlayer].Booleans[1]) then
OresMined := OresMined + 28;
Loads := Loads + 1;
if(Players[CurrentPlayer].Booleans[1] = False) then
OresMined := OresMined + 27;
Loads := Loads + 1;
FreeDTM(OreDTM);
AntiBan;
end;
procedure IsInvFull;
begin
if(not(LoggedIn)) then
Exit;
if(InvFull) then
Writeln('Inventory is full, dropping ores');
wait(100 + random(100));
Randoms;
DropOres;
end;
procedure MineThoseOres;
begin
if(not(LoggedIn)) then
Exit;
IsInvFull;
if(FindColorTolerance(a, b, IronColor1, MSX1, MSY1, MSX2, MSY2, 6) and
FindColorTolerance(a, b, IronColor2, (a - 10), (b - 10), (a + 10), (b + 10), 6) or
FindColorTolerance(a, b, IronColor3, (a - 10), (b - 10), (a + 10), (b + 10), 6)) then
begin
MMouse(a, b, 2, 2)
if(IsUpText('ine')) then
begin
Status('We''re Mining');
Mouse(a, b, 2, 2, true);
Flag;
wait(2500 + random(2000))
Randoms;
end;
end;
end;
procedure FixMiningVars;
begin
OreColor := 0;
OreColor1 := 0;
OreColor2 := 0;
OreColor3 := 0;
end;
procedure FixCompassAndChats;
begin
SetChat('on', 1);
SetChat('friends', 2);
SetChat('friends', 3);
SetChat('on', 4);
MakeCompass('N');
HighestAngle;
end;
procedure SetUpScript;
begin
SetUpSRL;
ClearDebug;
DeclarePlayers;
ActivateClient;
end;
procedure ProgressReport;
begin
SRLRandomsReport;
Writeln(' __________________________________________________ ');
Writeln(' | | ');
Writeln(' | Al Kharid Powerminer Version 1 | ');
Writeln(' | By Metho D | ');
Writeln(' |__________________________________________________| ');
Writeln(' Loads done : ' + IntToStr(Loads) + ' ');
Writeln(' Ores mined : ' + IntToStr(OresMined) + ' ');
Writeln(' # of gas avoided : ' + IntToStr(GasesFound) + ' ');
Writeln(' Thanks for running my powerminer, I hope you liked it. ');
end;
begin
SetUpScript;
repeat
if(not(LoggedIn)) then
LoginPlayer;
FixCompassAndChats;
repeat
MineThoseOres;
until(Loads = NumLoads);
NextPlayer(False);
ProgressReport;
until(not(Players[CurrentPlayer].Active));
Writeln('All players false, script is done.');
end.——————————————————
<!– END TEMPLATE: formanswers –>