Behaviours are now tagged lists.

[sam.git] / world.scm

diff --git a/world.scm b/world.scm
index 9dab1b1..7e95fe7 100644 (file)
--- a/world.scm
+++ b/world.scm
@@ -18,8 +18,7 @@
                       'done)
                      ((user) =>
                       (send-message login console 'user user)
-                      'done)))
-      'sleep)
+                      'done))))
      ((console 'user user) =>
       (send-message console 'print "password: ")
       (send-message console 'read
@@ -27,11 +26,9 @@
                      (self)
                      ((pass) =>
                       (send-message login console 'user user 'pass pass)
-                      'done)))
-      'sleep)
+                      'done))))
      ((console 'user user 'pass pass) =>
-      (send-message console 'print "Logged in user " user " with password " pass)
-      'sleep)
+      (send-message console 'print "Logged in user " user " with password " pass))
      ((console 'new-user) =>
       (send-message console 'print "What should I call your character?")
       (send-message console 'read
@@ -44,8 +41,7 @@
                                           "A character with that name already exists.")
                             (send-message login console 'new-user))
                           (send-message login console 'new-user user))
-                      'done)))
-      'sleep)
+                      'done))))
      ((console 'new-user user) =>
       (send-message console 'print "Please enter a good password/phrase:")
       (send-message console 'read
@@ -53,8 +49,7 @@
                      (self)
                      ((pass) =>
                       (send-message login console 'new-user user 'pass-confirm pass)
-                      'done)))
-      'sleep)
+                      'done))))
      ((console 'new-user user 'pass-confirm pass) =>
       (send-message console 'print "Please confirm your password:")
       (send-message console 'read
@@ -66,13 +61,11 @@
                           (begin
                             (send-message console 'print "Passwords do not match. Try again.")
                             (send-message login console 'new-user user)))
-                      'done)))
-      'sleep)
+                      'done))))
      ((console 'new-user user 'pass pass) =>
       (let ((player (make-actor (make-player-beh user))))
         (set! accounts (cons (list user pass player)))
-        (send-message console 'print "New account created!  Welcome!"))
-      'sleep))))
+        (send-message console 'print "New account created!  Welcome!"))))))
                     
 
 (define-beh main-beh (self)