' "object type action test"
' Created with QDK 3.53 - UNREGISTERED VERSION
define game <object type action test>
asl-version <350>
gametype singleplayer
start <one room>
game info <Created with QDK 3.53 - UNREGISTERED EVALUATION VERSION.>
startscript {
property <penny; value=1>
property <10p; value=10>
}
end define
define type <coin>
value
action <use in slot> msg <putting #object# in slot>
end define
define synonyms
end define
define room <one room>
look <take penny/10p then use on slot (both are object type coin)|n|nget |n You can't use that here. !!!!|n|nwhich appears to be object unusable ???|n>
define object <slot>
look <a slot machine needs 10p>
end define
define object <penny>
take
type <coin>
end define
define object <10p>
take
type <coin>
end define
end definedefine type <coin>
value
action <use in slot> msg <putting #object# in slot>
end define
command <use #@coin# on slot> doaction <#coin#; use in slot>
' "object type action test"
' Created with QDK Pro 3.53
define game <object type action test>
asl-version <350>
gametype singleplayer
start <one room>
game info <Created with QDK 3.53 - UNREGISTERED EVALUATION VERSION.>
startscript {
property <penny; value=1>
property <10p; value=10>
}
command <use #@coin# on slot> if type <#coin#; coin> then doaction <#coin#; use> else msg <You cannot use the #@coin# in the slot.>
end define
define type <coin>
value
action <use> msg <putting $thisobject$ in slot>
end define
define synonyms
end define
define room <one room>
look <Take the penny or 10p, then 'use' or 'use it on slot'. Both are object of type 'coin'. Slug is not of the type coin so it does not work on the slot.>
define object <slot>
look <a slot machine needs 10p>
end define
define object <penny>
take
type <coin>
end define
define object <10p>
take
type <coin>
end define
define object <slug>
take
end define
end define
define type <coin>
value
action <use> {
msg <You put the $thisobject$ in the slot.>
hide <$thisobject$>
msg <Machine does something.>
}
end define