Im trying to add a failsafe to my case statements, and 'otherwise' doesnt work, neither does 'else'
my code:
SCAR Code:case Lowercase(RuneToCraft) of
'air':
begin
ExpPerEss := 5;
if (RCLevel = 99) then
RunesPerEss := 10
else if (RCLevel >= 88) then
RunesPerEss := 9
else if (RCLevel >= 77) then
RunesPerEss := 8
else if (RCLevel >= 66) then
RunesPerEss := 7
else if (RCLevel >= 55) then
RunesPerEss := 6
else if (RCLevel >= 44) then
RunesPerEss := 5
else if (RCLevel >= 33) then
RunesPerEss := 4
else if (RCLevel >= 22) then
RunesPerEss := 3
else if (RCLevel >= 11) then
RunesPerEss := 2
else if (RCLevel < 11) then
RunesPerEss := 1;
end;
'earth':
begin
ExpPerEss := 6.5;
if (RCLevel >= 78) then
RunesPerEss := 4
else if (RCLevel >= 52) then
RunesPerEss := 3
else if (RCLevel >= 26) then
RunesPerEss := 2
else if (RCLevel < 26) then
RunesPerEss := 1;
end;
else begin
WriteLn('You didnt enter a correct rune.');
Players[CurrentPlayer].Loc := 'No Rune';
LogOut;
NextPlayer(False);
end;
end;




Reply With Quote



i'll edit again if im stupid :P