10 (send-message console 'print "Welcome to the world!\n"
12 "Enter your username or \"NEW\" to create a new account:")
13 (send-message console 'read
17 (send-message login console 'new-user)
20 (send-message login console 'user user)
22 ((console 'user user) =>
23 (send-message console 'print "password: ")
24 (send-message console 'read
28 (send-message login console 'user user 'pass pass)
30 ((console 'user user 'pass pass) =>
31 (send-message console 'print "Logged in user " user " with password " pass))
32 ((console 'new-user) =>
33 (send-message console 'print "What should I call your character?")
34 (send-message console 'read
38 (if (assoc user accounts)
40 (send-message console 'print
41 "A character with that name already exists.")
42 (send-message login console 'new-user))
43 (send-message login console 'new-user user))
45 ((console 'new-user user) =>
46 (send-message console 'print "Please enter a good password/phrase:")
47 (send-message console 'read
51 (send-message login console 'new-user user 'pass-confirm pass)
53 ((console 'new-user user 'pass-confirm pass) =>
54 (send-message console 'print "Please confirm your password:")
55 (send-message console 'read
59 (if (equal? pass pass-conf)
60 (send-message login console 'new-user user 'pass pass)
62 (send-message console 'print "Passwords do not match. Try again.")
63 (send-message login console 'new-user user)))
65 ((console 'new-user user 'pass pass) =>
66 (let ((player (make-actor (make-player-beh user))))
67 (set! accounts (cons (list user pass player)))
68 (send-message console 'print "New account created! Welcome!"))))))
71 (define-beh main-beh (self)
73 (send-message (make-actor login-beh) system)