blingbling
2007-12-31 12:15:53
<!– BEGIN TEMPLATE: formanswers –>
blingbling - SRL Member Application Form
blingbling
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
by my friend tom
Programming Knowledge
Other Communitys
moparscape
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
well i want to become part of this community. I almost can start to write scripts. im very gearouse too. iim only 15 and i dont spend playing rs evryday. my goal is to get atleast get 1 blue phat for my rs acount! so im hoping this community will help meachieve my goel. =) i have seen a lot of good writer here that make excelent scripts! kepp it up guys=)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
const
CopperRockMMColor = 2903155; // You HAVE to fill this in, it wont work otherwise.
NormalRockMMColor = 5197639; // If below is true, then there is no need to fill this in.
AutoMMRockColor = False;
:garfield: MinimapRockColor finder (not adviced)
//********Player Settings********\\
const
MinutesPerPlayer = 15; // Time in minutes per player
MaxSecRock = 5; // Maximum seconds to wait for a rock
StartPlayer = 0; // With what player do you want to start ?
UseBenMouse = True; // Use BenMouse? (Some people say its good for anti-ban)
RunDir = 'N'; // Direction to run to when in fight
RunFar = True; // Run far when in fight ?
//********Additional Settings********\\
SRLStatsID = ''; // Your SRL ID for the stats (Leave blanc to set it to default, from SetupSRL.scar)
SRLStatsPW = ''; // Your Password for the stats (Leave blanc to set it to default, from SetupSRL.scar)
VersionNumber = '0.13'; // No need to change this
TheMinCount = 5; // No need to change this
BoxSize = 15; // No need to change this
RemoteMaster = 'umil'; // For advanved users only.
//********Player Settings********\\
procedure DeclarePlayers;
begin
HowManyPlayers := 5;//MAKE SURE THIS ONE IS CORRECT!
CurrentPlayer := StartPlayer;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'Username'; // Your Runescape name
Players[0].Pass := 'Password'; // The corresponding password
Players[0].Nick := 'ern'; // 3-4 letters from your name, NO CAPITALS (that includes the first character)
Players[0].String1 := 'Iron'; // Type of ore to mine (Clay / Copper / Tin / Iron / Gold)
Players[0].String2 := '0000'; // Your BankPinNumber
Players[0].Active := True;
Players[1].Name := 'Username';
Players[1].Pass := 'Password';
Players[1].Nick := 'ern';
Players[1].String1 := 'Copper';
Players[1].String2 := '0000';
Players[1].Active := True;
Players[2].Name := 'Username';
Players[2].Pass := 'Password';
Players[2].Nick := 'ern';
Players[2].String1 := 'Tin';
Players[2].String2 := '0000';
Players[2].Active := True;
Players[3].Name := 'Username';
Players[3].Pass := 'Password';
Players[3].Nick := 'ern';
Players[3].String1 := 'Gold';
Players[3].String2 := '0000';
Players[3].Active := True;
Players[4].Name := 'Username';
Players[4].Pass := 'Password';
Players[4].Nick := 'ern';
Players[4].String1 := 'Iron';
Players[4].String2 := '0000';
Players[4].Active := True;
end;
//********RockColor Settings********\\
const
CopperColor = 4421053;
TinColor = 8224391;
ClayColor = 6196645;
IronColor = 2899043;
GoldColor = 1952246;
//********Dont go below unless your more advanced********\\
var
GasAvoided, bmpOreMask, bmpClayMask, RunTime, MinCount,
FalaRoadColor, MiningSiteColor, dtmBanker, dtmBank, RockColor,
a, GemsReceived, OresMined, TotalLoads, bmpGemMask: Integer;
dtmPaxes: array[1..6] of Integer;
PinNumber: string;
AngleVar: Extended;
PlayerStatus: Boolean;
//—————————————————————–\\
{ ProgressReport - Sets up the player array ||
\\—————————————————————–//}
procedure ProgressReport;//Made by Fakawi, i think, edited by me
var
PActive, Spaces: string;
I, K, SpaceNumber: Integer;
begin
SRLRandomsReport;
if Players[CurrentPlayer].Active then
PActive:='True'
else
PActive:='False';
Writeln(' ');
Writeln('<========== hello ============>');
Writeln('<======= -'+VersionNumber+'- Progress Report ========>');
Writeln('/=======================================\');
Writeln(' Worked for '+ TimeRunning);
Writeln(' Banked '+IntToStr(TotalLoads)+' loads.');
Writeln(' Mined '+inttostr(OresMined)+(' ores.'));
if(GemsReceived > 0)then
Writeln(' Received '+IntToStr(GemsReceived)+(' gem.'));
if(GasAvoided > 0)then
Writeln(' Avoided gas '+IntToStr(GasAvoided)+(' time.'));
Writeln('\=======================================/');
Writeln(' Name : '+Players[CurrentPlayer].Name);
Writeln(' Mining Lvl : '+IntToStr(Players[CurrentPlayer].Level[15]));
Writeln(' Worked for : '+IntToStr(Players[CurrentPlayer].Worked)+' minutes.');
Writeln(' Banked : '+IntToStr(Players[CurrentPlayer].Banked)+' time.');
Writeln(' Active : '+PActive);
Writeln(' Location : '+Players[CurrentPlayer].Loc);
Writeln('\\————————————-//');
for I := 0 to HowManyPlayers-1 do
begin
if Players.Active then
PActive:='True'
else
PActive:='False';
SpaceNumber := 12 - Length(Players.Name);
for K := 0 to SpaceNumber do
Spaces := Spaces + ' ';
Writeln(IntToStr(I)+': '+Players.Name + Spaces +
'= ' + PActive + ', ' + IntToStr(Players.Banked) + ' Bank' +
', Worked ' + IntToStr(Players.Worked) + ' minutes, ' +
'Loc: ' + Players.Loc);
Spaces := '';
end
Writeln('<==========================================>');
end;
——————————————————
<!– END TEMPLATE: formanswers –>
blingbling - SRL Member Application Form
blingbling
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
by my friend tom
Programming Knowledge
Other Communitys
moparscape
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
well i want to become part of this community. I almost can start to write scripts. im very gearouse too. iim only 15 and i dont spend playing rs evryday. my goal is to get atleast get 1 blue phat for my rs acount! so im hoping this community will help meachieve my goel. =) i have seen a lot of good writer here that make excelent scripts! kepp it up guys=)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
const
CopperRockMMColor = 2903155; // You HAVE to fill this in, it wont work otherwise.
NormalRockMMColor = 5197639; // If below is true, then there is no need to fill this in.
AutoMMRockColor = False;
:garfield: MinimapRockColor finder (not adviced)
//********Player Settings********\\
const
MinutesPerPlayer = 15; // Time in minutes per player
MaxSecRock = 5; // Maximum seconds to wait for a rock
StartPlayer = 0; // With what player do you want to start ?
UseBenMouse = True; // Use BenMouse? (Some people say its good for anti-ban)
RunDir = 'N'; // Direction to run to when in fight
RunFar = True; // Run far when in fight ?
//********Additional Settings********\\
SRLStatsID = ''; // Your SRL ID for the stats (Leave blanc to set it to default, from SetupSRL.scar)
SRLStatsPW = ''; // Your Password for the stats (Leave blanc to set it to default, from SetupSRL.scar)
VersionNumber = '0.13'; // No need to change this
TheMinCount = 5; // No need to change this
BoxSize = 15; // No need to change this
RemoteMaster = 'umil'; // For advanved users only.
//********Player Settings********\\
procedure DeclarePlayers;
begin
HowManyPlayers := 5;//MAKE SURE THIS ONE IS CORRECT!
CurrentPlayer := StartPlayer;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'Username'; // Your Runescape name
Players[0].Pass := 'Password'; // The corresponding password
Players[0].Nick := 'ern'; // 3-4 letters from your name, NO CAPITALS (that includes the first character)
Players[0].String1 := 'Iron'; // Type of ore to mine (Clay / Copper / Tin / Iron / Gold)
Players[0].String2 := '0000'; // Your BankPinNumber
Players[0].Active := True;
Players[1].Name := 'Username';
Players[1].Pass := 'Password';
Players[1].Nick := 'ern';
Players[1].String1 := 'Copper';
Players[1].String2 := '0000';
Players[1].Active := True;
Players[2].Name := 'Username';
Players[2].Pass := 'Password';
Players[2].Nick := 'ern';
Players[2].String1 := 'Tin';
Players[2].String2 := '0000';
Players[2].Active := True;
Players[3].Name := 'Username';
Players[3].Pass := 'Password';
Players[3].Nick := 'ern';
Players[3].String1 := 'Gold';
Players[3].String2 := '0000';
Players[3].Active := True;
Players[4].Name := 'Username';
Players[4].Pass := 'Password';
Players[4].Nick := 'ern';
Players[4].String1 := 'Iron';
Players[4].String2 := '0000';
Players[4].Active := True;
end;
//********RockColor Settings********\\
const
CopperColor = 4421053;
TinColor = 8224391;
ClayColor = 6196645;
IronColor = 2899043;
GoldColor = 1952246;
//********Dont go below unless your more advanced********\\
var
GasAvoided, bmpOreMask, bmpClayMask, RunTime, MinCount,
FalaRoadColor, MiningSiteColor, dtmBanker, dtmBank, RockColor,
a, GemsReceived, OresMined, TotalLoads, bmpGemMask: Integer;
dtmPaxes: array[1..6] of Integer;
PinNumber: string;
AngleVar: Extended;
PlayerStatus: Boolean;
//—————————————————————–\\
{ ProgressReport - Sets up the player array ||
\\—————————————————————–//}
procedure ProgressReport;//Made by Fakawi, i think, edited by me
var
PActive, Spaces: string;
I, K, SpaceNumber: Integer;
begin
SRLRandomsReport;
if Players[CurrentPlayer].Active then
PActive:='True'
else
PActive:='False';
Writeln(' ');
Writeln('<========== hello ============>');
Writeln('<======= -'+VersionNumber+'- Progress Report ========>');
Writeln('/=======================================\');
Writeln(' Worked for '+ TimeRunning);
Writeln(' Banked '+IntToStr(TotalLoads)+' loads
Writeln(' Mined '+inttostr(OresMined)+(' ores.'));
if(GemsReceived > 0)then
Writeln(' Received '+IntToStr(GemsReceived)+(' gem
if(GasAvoided > 0)then
Writeln(' Avoided gas '+IntToStr(GasAvoided)+(' time
Writeln('\=======================================/');
Writeln(' Name : '+Players[CurrentPlayer].Name);
Writeln(' Mining Lvl : '+IntToStr(Players[CurrentPlayer].Level[15]));
Writeln(' Worked for : '+IntToStr(Players[CurrentPlayer].Worked)+' minutes.');
Writeln(' Banked : '+IntToStr(Players[CurrentPlayer].Banked)+' time
Writeln(' Active : '+PActive);
Writeln(' Location : '+Players[CurrentPlayer].Loc);
Writeln('\\————————————-//');
for I := 0 to HowManyPlayers-1 do
begin
if Players.Active then
PActive:='True'
else
PActive:='False';
SpaceNumber := 12 - Length(Players.Name);
for K := 0 to SpaceNumber do
Spaces := Spaces + ' ';
Writeln(IntToStr(I)+': '+Players.Name + Spaces +
'= ' + PActive + ', ' + IntToStr(Players.Banked) + ' Bank
', Worked ' + IntToStr(Players.Worked) + ' minutes, ' +
'Loc: ' + Players.Loc);
Spaces := '';
end
Writeln('<==========================================>');
end;
——————————————————
<!– END TEMPLATE: formanswers –>