Gary
Multi-player Quest isn't really my thing so I have only a basic working knowledge of how it varies from single-player. However here's a very small demo that produces the effect you want relatively easily.
'laughing demo
define game <Laugh>
asl-version <350>
gametype multiplayer
start <startroom>
game version <0.01>
game author <Al Bampton (MaDbRiT)>
startscript {
msg <This is a simple demo only.>
}
player startscript {
msg <Welcome $name(%userid%)$!>
}
command <laugh> do <laughing>
end define
define room <startroom>
look <Seems a reasonable place to start...>
prefix <the>
end define
define procedure <laughing>
msg <You double up laughing, for no apparent reason.>
for each object in <#quest.currentroom[userid]#> {
if property <#quest.thing#; netplayer> and (#quest.thing# <> player%userid%) then {
msgto <#quest.thing#; |b$name(%userid%)$|xb doubles up laughing, for no apparent reason.>
}
}
end define
You should be able to cut n paste the code above (be careful of forum adding line wraps!) and have a working example to start from.
Hope it helps
Al (maDbRiT)