' "Kimemma"
' Created with QDK 3.5 - UNREGISTERED VERSION
!include <q3ext.qlb>
define game <Kimemma>
asl-version <350>
gametype singleplayer
start <Test Room 1>
game author <Mike West>
game info <Created with QDK 3.5 - UNREGISTERED EVALUATION VERSION.>
'====== the follow two line will not work ========================================================
'command <strike #@whatever#> if not here <#whatever#> then msg <Don't be absurd!> else msg <You swing wildly and miss.>
command <strike #@whatever#> if here <#whatever#> then msg <You swing wildly and miss.> else msg <Don't be absurd!>
'=================================================================================================
end define
define synonyms
hit; punch = strike
beach ball; pastic ball = ball
end define
define room <Test Room 1>
alias <lab>
prefix <the>
command <strike ball> msg <the ball flys through the air, bounces off the wall and hits you in the head... good one.>
define object <ball>
alt <plastic ball; beach ball>
look <It is an ordinary big round plastic beach ball just sitting there minding it's own business.>
take
speak <The ball just sits there silently.>
examine <Upon closer examination you find that some prankster has taped a note to the ball that says "hit me".>
prefix <a>
article <it>
gender <it>
end define
define object <pillow>
alt <blue; flat; flat pillow; blue pillow; flat blue pillow>
look <It is a flat blue pillow.>
take
examine <There is nothing out of the ordinary with this pillow.>
prefix <a>
article <it>
gender <it>
end define
end define
define text <intro>
end define
define text <win>
end define
define text <lose>
end define
command <strike #whatever#> {
set numeric <nullcheck; $lengthof(#@whatever#)$>
if ( %nullcheck% <> 0 ) then {
if property <#@whatever#; strike> then msg <$objectproperty(#@whatever#; strike)$> else msg <You swing wildly and miss!>
}
else msg <Don't be absurd!>
}
It's not the way I'd do it ideally, but it works