Standards are good, they help keep your pets strong and heathlyh
And they are free!
SCAR Code:
program PieShafter;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
//Start at a place with some trees.
//Axe 1st inv.Spot.
//Knife 2nd inv.Spot.
//Nothing at 3rd inv.Spot.
//Some shafts (15+) at 4th inv.Spot.
const
LogsToCut = 1;//Number of logs you want to be made into shafts.
TreeColor = 4425848;
//The tree color, no need to change, only change if doesnt find tree AT ALL.
procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of PLAYERS.Active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
//Set all user names, passwords and nicks correctly please.
Players[0].Name := 'UserName';
Players[0].Pass := 'Password';
Players[0].Nick := 'ser';
Players[0].Active := True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure LetsDebug;
begin
ClearDebug;
WriteLn('Thank you for using PieShafter.');
WriteLn('This is version 0.2!');
WriteLn('Running Time: ' + (TimeRunning) + '');
WriteLn('Have fun!');
end;
function FindFastRandoms: boolean; //By WT-Fakawi.
var
i: integer;
begin
for i := 1 to 8 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;
7:
begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8:
RC;
end;
wait(1);
end;
end;
///////////////////////////////////////////////////////////////////////////
procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
end;
procedure FindTreeAndCut;
begin
if FindColor(x, y, TreeColor, 0, 0, 500, 500) then
Wait(1000);
MMouse(x, y, 2, 2);
Wait(1000);
if (IsUpText('ree')) then
Mouse(x, y, 3, 3, False);
Wait(1000);
ChooseOption(x, y, 'hop');
Wait(5000);
end;
procedure MakeShafts;
begin
Mouse(667, 228, 3, 3, True);
Wait(1000);
Mouse(626, 229, 3, 3, True);
Wait(1000);
MMouse(81, 407, 3, 3);
Wait(1000);
if (IsUpText('ake')) then
Mouse(81, 407, 3, 3, True);
Wait(3000);
end;
begin
SetupSRL;
DeclarePlayers;
repeat
FindTreeAndCut;
FindRandoms;
MakeShafts;
LetsDebug;
until (LogsToCut);
end.