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"

-------------------------------

TIA,
-ig

---
þ Synchronet þ thePharcyde_ telnet://bbs.pharcyde.org (Wisconsin)

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"

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.

---
þ Synchronet þ R&M Software Support BBS

What is the c variable for? Chances are you don't need the "c:=1 and"
and "c:=2 and" parts at all.

Multiple case statement procedures further down the file. Usurper is one procedure and Pit is the other.

-ig

--- Mystic BBS v1.10 (Li

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.

My problem with the following code (which i'm now reverting back to) is that the "c := 1;" hard codes which door is being run (in this case "usurper"),
and I cannot choose any other door because of that. I need to find a way to
be able to choose any of the 3 doors seperately. That is why I used the "c:=1 and usurper(rundoor1, rundoor2, rundoor3)", to pass "c:=#" to whichever door
I was trying to launch. Hopefully this all makes sense.

Thanks for your time, I appreciate it.

--//--snip--------------------------------------
c := 1;

begin

case c of

1 : usurper(rundoor1, rundoor2, rundoor3);
2 : pit(rundoor1, rundoor2, rundoor3);
3 : lore(rundoor1, rundoor2, rundoor3);

end;
end;

--//--snip--------------------------------------

TIA,

|09ignatius |07(|15cia|07/|15scrollz|07)

--- Mystic BBS v1.10 (Linux)
* Origin: catch22bbs.com