X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=sam.git;a=blobdiff_plain;f=world.scm;h=7e95fe7b742e4f8bd12d6cb5bd16064b7dada302;hp=9dab1b169f781028eae5c9783cf4a5add9602cf7;hb=HEAD;hpb=98614aaf3ed99a4945600eadd08de9abaeade6be

diff --git a/world.scm b/world.scm
index 9dab1b1..7e95fe7 100644
--- 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)