-
Notifications
You must be signed in to change notification settings - Fork 32
/
Copy pathRM20.CG
62 lines (44 loc) · 840 Bytes
/
RM20.CG
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
[logics for room 20 -- rmBoss
[ "Leisure-Suit Larry in the Land of the Lounge Lizards"
[ by Al Lowe
%include "rm20.msg"
%include "gamedefs.h"
if (initLog)
{
PreventInput();
Reset( enableMenu);
Set( handsOff);
Reset( soundOn);
Random( 1, 3, work);
if (work == 1) {picture = rmBoss;}
if (work == 2) {picture = picBoss2;}
if (work == 3) {picture = picBoss3;}
LoadPic( picture);
DrawPic( picture);
DiscardPic( picture);
Reset( clockOn);
StatusLineOff();
ShowPic( );
Return( );
} [ end initLOG
[*****
:handleInput
[*****
if (haveInput)
{
Print( 1);
RestoreGame();
}
[*****
:noInput
[*****
Reset( clockOn);
StatusLineOff();
if (HaveKey())
{
Print( 1);
RestoreGame();
}
[*****
:exit [ test for leaving the room
[*****