I'm trying to add an option to my script that the player can choose betwixt dropping the logs it chops or selling to the nearby general store
SCAR Code:
Players[0].Booleans[1]:= true; //true sells logs, false drops
//these are the two procedures I want to combine using a case.
procedure CheckIfFull; //checks if inv is full if not it continues to choppa!
//if its full it drops it using the dropper
begin
if Players[CurrentPlayer].Booleans[1]=false then
begin
if InvFull = true then
begin
writeln('full lets loose some weight');
DropEmCowboy;
LoadsDropped := (LoadsDropped + 1);
ClearDebug;
Writeln('Loads thus far = ' + inttostr(LoadsDropped));
freedtm(WillowLog);
end else
writeln('not full lets cut more');
end;
end;
Procedure SellInsteadOfDrop;
Begin
if Players[CurrentPlayer].Booleans[1]=true then
Begin
if InvFull = true then
Begin
WalkToStore;
StoreAutoColor;
WalkToStorePT2;
WriteLn('store walked to');
FreeDTM(WalkDTM);
End else
writeln('not full lets cut more');
End;
End;
I was wondering if there is any suggestions on how to do this? I've been looking for a good tut on cases but I've yet to find one that doesnt use a randm case as an example