'done)
((user) =>
(send-message login console 'user user)
- 'done)))
- 'sleep)
+ 'done))))
((console 'user user) =>
(send-message console 'print "password: ")
(send-message console 'read
(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
"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
(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
(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)