i know this is a late response but bare with me
okay here is an example script for my rpg and it should help incorporate the case statement...
Simba Code:
program new;
var
x:integer;
c:boolean;
procedure in_area;
begin
while c=true do
begin
if x=1 then
begin
writeln('in area 1');
end
else
if x=2 then
begin
writeln('in area 2');
end
else
if x=3 then
begin
writeln('in area 3');
end;
break;
end;
end;
procedure movement;
begin
if iskeydown(38) then
begin
x:=(x+1);
writeln(x);
wait(500);
end;
if IsKeyDown(40) then
begin
x:=(x-1);
writeln(x);
wait(500);
end;
end;
procedure main;
begin
c:=true
x:=1
repeat
movement;
in_area;
until (false);
end;
begin
main;
end.