REM  ----  The LADY Adventure  *.CMD file

;=============================================================================
;         LADY IN GREEN -- Flags and variables                                                                                                    l
;  FLAGS:
;    Flag 1 (* LOCKED CAR IF ON *)
;    Flag 2 (* DOOR HAS BEEN LOCKED BEFORE)
;    Flag 3 (* Lady in bedroom*)
;    Flag 4 (* Tramp           )
;    Flag 5 (* Paid Tramp      )
;    Flag 6 (* Found Richard   )
;    Flag 7 (* Flowers EXAMINED)
;
;=============================================================================

COMMAND RIDE HORSE    
InRoom 207 ; LARGE GREY HORSE is here?
AtLocation 32 ; Player is located at STABLES         
IsWearing 206 ; SOFT LEATHER RIDING-BREECHES is being worn?
GoToRoom 40 ; Go to location 40 -- Overlooking docks
PrintMessage 1 ;                                                   
SendToRoom 207 40 ; Put item (LARGE GREY HORSE) in room 40 (Overlooking docks)
PlusScore 30 ; Add 30 to game score
DoneWithTurn
END_COMMAND

COMMAND RIDE HORSE    
InRoom 207 ; LARGE GREY HORSE is here?
AtLocation 32 ; Player is located at STABLES         
PrintMessage 2 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND RIDE        
InRoom 207 ; LARGE GREY HORSE is here?
AtLocation 40 ; Player is located at Overlooking docks
FlagOFF 6 ; Flag number 6 is OFF?
PrintMessage 3 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND RIDE        
InRoom 207 ; LARGE GREY HORSE is here?
AtLocation 40 ; Player is located at Overlooking docks
FlagON 6 ; Flag number 6 is ON?
PrintMessage 30 ;                                                   
Destroy 213 ; Destroy noun (SHARP DAGGER)
Destroy 216 ; Destroy noun (NAVAL UNIFORM)
GoToRoom 63 ; Go to location 63 -- Bed    
DoneWithTurn
END_COMMAND

COMMAND PUSH HAND    
AtLocation 5 ; Player is located at In Front of Painting
PrintMessage 4 ;                                                   
GoToRoom 20 ; Go to location 20 -- Ladies Bedroom
PlusScore 25 ; Add 25 to game score
DoneWithTurn
END_COMMAND

COMMAND WEAR UNIFORM    
IsWearing 206 ; SOFT LEATHER RIDING-BREECHES is being worn?
IsCarrying 216 ; NAVAL UNIFORM is being carried?
PrintMessage 33 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND WEAR UNIFORM    
IsWearing 206 ; SOFT LEATHER RIDING-BREECHES is being worn?
InRoom 216 ; NAVAL UNIFORM is here?
PrintMessage 33 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND WEAR DRESS    
InRoom 217 ; PRETTY DRESS is here?
PrintMessage 37 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND WEAR DRESS    
IsCarrying 217 ; PRETTY DRESS is being carried?
PrintMessage 37 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND DROP DRESS    
IsCarrying 217 ; PRETTY DRESS is being carried?
PrintMessage 38 ;                                                   
Destroy 217 ; Destroy noun (PRETTY DRESS)
DoneWithTurn
END_COMMAND

COMMAND HOLD HAND    
AtLocation 5 ; Player is located at In Front of Painting
PrintMessage 4 ;                                                   
GoToRoom 20 ; Go to location 20 -- Ladies Bedroom
PlusScore 30 ; Add 30 to game score
DoneWithTurn
END_COMMAND

COMMAND START        
AtLocation 8 ; Player is located at In Car 
PrintMessage 5 ;                                                   
GoToRoom 9 ; Go to location 9 -- In Car 
DoneWithTurn
END_COMMAND

COMMAND OPEN CUPBOARD    
AtLocation 21 ; Player is located at Dressing Room
InRoom 208 ; SMALL CUPBOARD is here?
PrintMessage 6 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND UP        
AtLocation 4 ; Player is located at FOYER         
PrintMessage 7 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND NORTH        
AtLocation 62 ; Player is located at Out to Sea    
PrintMessage 29 ;                                                   
GoToRoom 12 ; Go to location 12 -- Beach       
DoneWithTurn
END_COMMAND

COMMAND SOUTHWEST        
AtLocation 51 ; Player is located at RUTTED ROAD
FlagOFF 4 ; Flag number 4 is OFF?
PrintMessage 26 ;                                                   
TurnFlagON 4 ; Turn flag number 4 ON
GoToRoom 51 ; Go to location 51 -- RUTTED ROAD
DoneWithTurn
END_COMMAND

COMMAND ANY        
AtLocation 51 ; Player is located at RUTTED ROAD
FlagON 4 ; Flag number 4 is ON?
FlagOFF 5 ; Flag number 5 is OFF?
IsCarrying 211 ; SILVER COINS is being carried?
PrintMessage 27 ;                                                   
Destroy 211 ; Destroy noun (SILVER COINS)
GoToRoom 49 ; Go to location 49 -- GINNEL 
TurnFlagON 5 ; Turn flag number 5 ON
PlusScore 10 ; Add 10 to game score
DoneWithTurn
END_COMMAND

COMMAND SOUTHWEST        
AtLocation 51 ; Player is located at RUTTED ROAD
FlagON 4 ; Flag number 4 is ON?
FlagOFF 5 ; Flag number 5 is OFF?
PrintMessage 28 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND WEST        
AtLocation 31 ; Player is located at Courtyard       
IsCarrying 220 ; SMALL BRASS DISC is being carried?
PrintMessage 12 ;                                                   
Destroy 220 ; Destroy noun (SMALL BRASS DISC)
GoToRoom 33 ; Go to location 33 -- OUTBUILDING         
DoneWithTurn
END_COMMAND

COMMAND READ BIBLE    
IsCarrying 212 ; LEATHER BIBLE is being carried?
PrintMessage 35 ;                                                   
PlusScore 10 ; Add 10 to game score
DoneWithTurn
END_COMMAND

COMMAND EAST        
AtLocation 50 ; Player is located at 
IsWearing 216 ; NAVAL UNIFORM is being worn?
PrintMessage 19 ;                                                   
GoToRoom 54 ; Go to location 54 -- WARSHIP    
PlusScore 20 ; Add 20 to game score
DoneWithTurn
END_COMMAND

COMMAND EAST        
AtLocation 23 ; Player is located at End of Balcony
FlagON 6 ; Flag number 6 is ON?
GoToRoom 64 ; Go to location 64 -- Master Bedroom
DoneWithTurn
END_COMMAND

COMMAND EAST        
AtLocation 50 ; Player is located at 
PrintMessage 18 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND NORTHEAST        
AtLocation 44 ; Player is located at CHURCH
IsCarrying 212 ; LEATHER BIBLE is being carried?
PrintMessage 16 ;                                                   
Destroy 212 ; Destroy noun (LEATHER BIBLE)
GoToRoom 45 ; Go to location 45 -- TOWN PATH
DoneWithTurn
END_COMMAND

COMMAND WEST        
AtLocation 31 ; Player is located at Courtyard       
PrintMessage 13 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND EAST        
AtLocation 22 ; Player is located at Landing      
FlagON 3 ; Flag number 3 is ON?
PrintMessage 14 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND ANY        
InRoom 300 ; PROUD LADY is here?
AtLocation 28 ; Player is located at LIVING ROOM         
FlagOFF 3 ; Flag number 3 is OFF?
PrintMessage 8 ;                                                   
TurnFlagON 3 ; Turn flag number 3 ON
Destroy 300 ; Destroy noun (PROUD LADY)
SendToRoom 310 20 ; Put item (SMILING LADY) in room 20 (Ladies Bedroom)
PlusScore 10 ; Add 10 to game score
DoneWithTurn
END_COMMAND

COMMAND LOCK CAR    
IsCarrying 205 ; CAR KEYS is being carried?
AtLocation 7 ; Player is located at Car Park
FlagOFF 1 ; Flag number 1 is OFF?
FlagOFF 2 ; Flag number 2 is OFF?
PrintMessage 9 ;                                                   
TurnFlagON 1 ; Turn flag number 1 ON
TurnFlagON 2 ; Turn flag number 2 ON
PlusScore 10 ; Add 10 to game score
DoneWithTurn
END_COMMAND

COMMAND GET BARREL    
IsCarrying 215 ; TARRED ROPE is being carried?
InRoom 214 ; BEER BARREL is here?
AtLocation 52 ; Player is located at CELLAR
PrintMessage 20 ;                                                   
GoToRoom 47 ; Go to location 47 -- BOULTINGS YARD
SendToRoom 215 47 ; Put item (TARRED ROPE) in room 47 (BOULTINGS YARD)
SendToRoom 214 47 ; Put item (BEER BARREL) in room 47 (BOULTINGS YARD)
PlusScore 10 ; Add 10 to game score
DoneWithTurn
END_COMMAND

COMMAND TIE ROPE    
IsCarrying 215 ; TARRED ROPE is being carried?
InRoom 214 ; BEER BARREL is here?
AtLocation 52 ; Player is located at CELLAR
PrintMessage 20 ;                                                   
GoToRoom 47 ; Go to location 47 -- BOULTINGS YARD
SendToRoom 215 47 ; Put item (TARRED ROPE) in room 47 (BOULTINGS YARD)
SendToRoom 214 47 ; Put item (BEER BARREL) in room 47 (BOULTINGS YARD)
PlusScore 10 ; Add 10 to game score
DoneWithTurn
END_COMMAND

COMMAND PUSH BARREL    
InRoom 214 ; BEER BARREL is here?
AtLocation 47 ; Player is located at BOULTINGS YARD
PrintMessage 32 ;                                                   
GoToRoom 49 ; Go to location 49 -- GINNEL 
SendToRoom 214 49 ; Put item (BEER BARREL) in room 49 (GINNEL )
DoneWithTurn
END_COMMAND

COMMAND UP        
InRoom 214 ; BEER BARREL is here?
AtLocation 49 ; Player is located at GINNEL 
PrintMessage 22 ;                                                   
GoToRoom 60 ; Go to location 60 -- BEDROOM
PlusScore 10 ; Add 10 to game score
DoneWithTurn
END_COMMAND

COMMAND UP        
AtLocation 49 ; Player is located at GINNEL 
PrintMessage 34 ;     Good idea. Unfortunately the window is quite h
DoneWithTurn
END_COMMAND

COMMAND STAND        
AtLocation 63 ; Player is located at Bed    
GoToRoom 64 ; Go to location 64 -- Master Bedroom
DoneWithTurn
END_COMMAND

COMMAND GET BARREL    
InRoom 214 ; BEER BARREL is here?
PrintMessage 21 ;    You cannot carry the barrel.                   
DoneWithTurn
END_COMMAND

COMMAND UNLOCK        
IsCarrying 205 ; CAR KEYS is being carried?
AtLocation 7 ; Player is located at Car Park
FlagON 1 ; Flag number 1 is ON?
PrintMessage 10 ;                                                   
TurnFlagOFF 1 ; Turn flag number 1 OFF
TurnFlagOFF 2 ; Turn flag number 2 OFF
DoneWithTurn
END_COMMAND

COMMAND UNLOCK        
IsCarrying 205 ; CAR KEYS is being carried?
AtLocation 7 ; Player is located at Car Park
FlagOFF 1 ; Flag number 1 is OFF?
PrintMessage 15 ;     The door is already unlocked                  
DoneWithTurn
END_COMMAND

COMMAND OPEN        
AtLocation 7 ; Player is located at Car Park
FlagON 1 ; Flag number 1 is ON?
PrintMessage 11 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND CUT ROPE    
IsCarrying 213 ; SHARP DAGGER is being carried?
IsCarrying 217 ; PRETTY DRESS is being carried?
AtLocation 55 ; Player is located at LOWER DECK
TurnFlagON 6 ; Turn flag number 6 ON
Destroy 302 ; Destroy noun (PALE WEAK BOY)
Destroy 217 ; Destroy noun (PRETTY DRESS)
PrintMessage 23 ;                                                   
GoToRoom 61 ; Go to location 61 -- DRIFTING BOAT
SendToRoom 303 61 ; Put item (PALE BOY) in room 61 (DRIFTING BOAT)
PlusScore 25 ; Add 25 to game score
DoneWithTurn
END_COMMAND

COMMAND CUT ROPE    
IsCarrying 213 ; SHARP DAGGER is being carried?
AtLocation 55 ; Player is located at LOWER DECK
PrintMessage 24 ;                                                   
GoToRoom 10 ; Go to location 10 -- In Car 
SendToRoom 303 54 ; Put item (PALE BOY) in room 54 (WARSHIP    )
PlusScore 25 ; Add 25 to game score
DoneWithTurn
END_COMMAND

COMMAND CUT ROPE    
AtLocation 55 ; Player is located at LOWER DECK
PrintMessage 25 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND NORTH        
AtLocation 7 ; Player is located at Car Park
FlagON 1 ; Flag number 1 is ON?
PrintMessage 11 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND SOUTH        
AtLocation 45 ; Player is located at TOWN PATH
IsCarrying 210 ; ANTIQUE MAP is being carried?
GoToRoom 46 ; Go to location 46 -- TOWN 
PlusScore 20 ; Add 20 to game score
DoneWithTurn
END_COMMAND

COMMAND SOUTH        
AtLocation 45 ; Player is located at TOWN PATH
PrintMessage 17 ;                                                   
GoToRoom 10 ; Go to location 10 -- In Car 
DoneWithTurn
END_COMMAND

COMMAND SOUTH        
AtLocation 64 ; Player is located at Master Bedroom
PrintMessage 31 ;                                                   
PlusScore 40 ; Add 40 to game score
GoToRoom 100 ; Go to location 100 -- White Space
DoneWithTurn
END_COMMAND

COMMAND EXAMINE FLOWERS    
AtLocation 7 ; Player is located at Car Park
FlagOFF 7 ; Flag number 7 is OFF?
PrintMessage 36 ;                                                   
PlusScore 15 ; Add 15 to game score
SendToRoom 220 7 ; Put item (SMALL BRASS DISC) in room 7 (Car Park)
TurnFlagON 7 ; Turn flag number 7 ON
DoneWithTurn
END_COMMAND