projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove pks
[mudsync.git]
/
mudsync
/
gameobj.scm
diff --git
a/mudsync/gameobj.scm
b/mudsync/gameobj.scm
index 7f2f4e202defc63db99f4cf1de60b1bb95a21420..c5f1648e12209ecf6340da428fb35b3508bd562a 100644
(file)
--- a/
mudsync/gameobj.scm
+++ b/
mudsync/gameobj.scm
@@
-552,7
+552,7
@@
By default, this is whether or not the generally-visible flag is set."
(<-wait occupant 'goes-by)
(when (member direct-obj goes-by)
(return occupant))))
(<-wait occupant 'goes-by)
(when (member direct-obj goes-by)
(return occupant))))
- (
pk 'here (mbody-val (<-wait player 'get-occupants)
)))
+ (
mbody-val (<-wait player 'get-occupants
)))
;; nothing found
#f)))
(define (should-put-in-me)
;; nothing found
#f)))
(define (should-put-in-me)
@@
-574,11
+574,11
@@
By default, this is whether or not the generally-visible flag is set."
(or why-not default-objection))))
(cond
;; Is it not there, or maybe we won't allow it to be taken?
(or why-not default-objection))))
(cond
;; Is it not there, or maybe we won't allow it to be taken?
- ((
pk '1st (or (not this-thing) (not (should-put-in-me)
)))
+ ((
or (not this-thing) (not (should-put-in-me
)))
(<- (message-from message) 'tell
#:text default-objection))
;; the thing we wsant to take itself has objected...
(<- (message-from message) 'tell
#:text default-objection))
;; the thing we wsant to take itself has objected...
- ((
pk 'objection (this-thing-objection)
) =>
+ ((
this-thing-objection
) =>
(lambda (objection)
(<- (message-from message) 'tell
#:text objection)))
(lambda (objection)
(<- (message-from message) 'tell
#:text objection)))
@@
-592,8
+592,8
@@
By default, this is whether or not the generally-visible flag is set."
;; errors out or something. Maybe it's overthinking things, I dunno.
(<-wait this-thing 'set-loc! #:loc (actor-id gameobj))
(<- player 'tell
;; errors out or something. Maybe it's overthinking things, I dunno.
(<-wait this-thing 'set-loc! #:loc (actor-id gameobj))
(<- player 'tell
- #:text
(pk 'txt
`("You put " ,this-thing-name " in "
-
,our-name ".")
))
+ #:text `("You put " ,this-thing-name " in "
+
,our-name "."
))
(<- player-loc 'tell-room
#:text `(,player-name " puts " ,this-thing-name " in "
,our-name "."))))))
(<- player-loc 'tell-room
#:text `(,player-name " puts " ,this-thing-name " in "
,our-name "."))))))