-
Notifications
You must be signed in to change notification settings - Fork 32
/
Copy pathRM50.CG
59 lines (49 loc) · 1016 Bytes
/
RM50.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
[logics for room 50 -- initLog for room 0
[ "Leisure Suit Larry in the Land of the Lounge Lizards"
[ by Al Lowe
%include "gamedefs.h"
if (monitorType != MONO)
{
ClearLines( 22, 22, BG_COLOR);
ClearLines( 24, 24, BG_COLOR);
}
if (!forceAtest) [ activate close to shipping
{
Reset( debugging);
Reset( enableTrace);
}
if (demo)
{
PreventInput();
}
AnimateObj( ego);
StepSize( ego, egoStepSize);
StepTime( ego, egoStepTime);
CycleTime( ego, egoCycleTime);
GetPosn( ego, egoX, egoY);
ObserveBlocks( ego);
ObserveObjs( ego);
ObserveHorizon( ego);
egoLocation = 0;
secondsInRoom = 0;
passInRoom = 0;
newRoom = 0;
script = 0;
scriptCycles = 0;
scriptTimer = 0;
Reset( outOfMemory);
Reset( survivableFall);
Reset( egoArrived);
Reset( scriptDone);
Reset( musicDone);
Reset( soundDone);
Reset( noScript);
work = 255;
:mrLooper [All that remains of "Reset the world"
ResetV( work);
work @= 0;
--work;
if (work > 199)
{
goto mrLooper;
}