Ok, i've made some progress. Now it looks like this:
--//---snip--------------------
begin
case ch1 of
#0 : begin
ch1:=ReadKey;
case ch1 of
'1' : c:=1 and usurper(rundoor1, rundoor2, rundoor3);
'2' : c:=2 and pit(rundoor1, rundoor2, rundoor3);
end;
end;
end;
--//---snip--------------------
However, I get the following errors:
common5.pas(155,29) Error: Incompatible types: got "untyped" expected "LongInt" common5.pas(156,29) Error: Incompatible types: got "untyped" expected "LongInt"
What is the c variable for? Chances are you don't need the "c:=1 and"
and "c:=2 and" parts at all.
This is what the error is referring to:
c:=1 and usurper()
c:=2 and pit()
What is the c variable for? Chances are you don't need the "c:=1 and"
and "c:=2 and" parts at all.

 Web-based telnet client
Web-based telnet client Telnet
Telnet RLogin
RLogin IRC
IRC Email & news access
Email & news access| Sysop: | Eric Oulashin | 
|---|---|
| Location: | Beaverton, Oregon, USA | 
| Users: | 102 | 
| Nodes: | 16 (0 / 16) | 
| Uptime: | 11:01:52 | 
| Calls: | 7,035 | 
| Files: | 8,559 | 
| D/L today: | 285  				files (38,235K bytes) | 
| Messages: | 369,900 |