posted 07-02-2003 01:13 GMT        

' "practice"
' Created with QDK 3.12

define game <practice>
asl-version <311>
start <room>
game info <Created with QDK 3.12>
end define

define synonyms
end define

define room <room>
alias <room>
look <There is a door.>
command <open #thing#>
if < door = #thing# > and property <door; open=1> {
then msg <You open a door.>
property <door; open=0>
}

define object <door>
alias <door>
prefix <a>
invisible
type <door>
properties <open=1>
end define

end define

define text <intro>

end define

define text <win>

end define

define text <lose>

end define

But it isn't working like I think it should. I don't get a message when I use the command open door. I simply don't understand what I am doing wrong. I have tried using #object# instead of thing, but that just doesn't work either.
Can someone please tell me what I am doing wrong?

posted 07-02-2003 19:37 GMT            

Again, I'm not 100% confident but perhaps if you try swapping "< door = #thing# >" to "< #thing# = door >" then that might work...

Try it and get back to the forums...

posted 08-02-2003 02:49 GMT            

Here is a very basic working example of an openable door that creates an exit when opened. In this case trying to open the door a second or third time tells you "it is already open"

quote:

---

' Quest 3.11 ASL

define game <demo>

asl-version <311>

game version <1.0>
game author <MaDbRiT>
game copyright <© 2003 AGB>
game info <Extra Info>

start <office>

command <open #@object#> {
if action <#object#; open> then {
doaction <#object#;open>
}
else msg <You cannot open the #object#.>
}

end define

define room <office>
look <Your office is scruffy and in dire need of a tidy up! There is _
a door in the west wall.>
prefix <your>

define object <door>
type <door>
look <a stout wooden door.>
invisible
properties <closed>
action <open> {
if property <$thisobject$; closed> then {
property <$thisobject$; not closed>
msg <It swings open.>
create exit west <office;hallway>
}
else msg <It's already open>
}
end define

end define

define room <hallway>
look <a long dilapidated hall.>
prefix <the>
east <office>
end define

define text <intro>
This demo shows a closed door, coded so that it may be opened to reveal an exit.
end define

define text <win>
Enter win text here
end define

define text <lose>
Enter lose text here
end define

---

This is ONE way to do it, and relatively simple, but it is not the best. Ideally you should create an openable type and have open / close actions with traps for repeated use, messages when things are opened and closed, varying descriptions etc..

All the above features are included in the 'openable' type that is part of my Q3EXT library, which might be worth looking at to see how it works even if you don't use it.

Al

posted 08-02-2003 14:01 GMT            

' Created with QDK 3.12

define game <>
asl-version <311>
start <Character Creation: The Border of Reality>
game info <Created with QDK 3.12>
command <open #@object#> if action <#object#; open> then doaction <#object#; open> else msg <You can't open #object#.>
command <close #@object#> if action <#object#; close> then doaction <#object#; close> else msg <You can't close #object#.>
end define

define type <door>
action <open> if property <$thisobject$; closed> then {
msg <You open $thisobjectname$.>
property <$thisobject$; not closed>
}
else msg <$thisobjectname$ is already open.>
action <close> if property <$thisobject$; not closed> then {
msg <You close $thisobjectname$.>
property <$thisobject$; closed>
}
else msg <$thisobject$ is already closed.>
end define

define synonyms
end define

define room <Character Creation: The Border of Reality>
alias <Border of Reality>
look <You have just stepped from reality into the world of E'tanalesia. As you step across the thin border that separates fantasy from the real world, you realize that you are no longer you but someone completely different. The room you are in is small and unfurnished yet it harbors and extremely cozy feeling. The walls glow with an unnatural light and seem to be the only light source in the room. To the north you see a plain wooden door that appears to be the only way out.>

define object <a plain wooden door>
alias <a plain wooden door>
alt <door>
prefix <a>
invisible
type <door>
properties <closed>
end define

end define

define text <intro>

end define

define text <win>

I am so close that I can taste it on the tip of my tongue. Please any suggestions?
end define

define text <lose>

end define

posted 08-02-2003 18:19 GMT            

A simple syntax error is preventing your code working as expected. The line:

quote:

---

action <close> if property <$thisobject$; not closed> then {

---

quote:

---

action <close> if not property <$thisobject$; closed> then {

---

That'll cure it!