;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; member A
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#5A

two instance of bagel b1 and b2 defined and appeared in soda. 
one instance of coffee c1 defined and appeared in soda.
one instance of thing rock defined and appeared in soda.
please see adv-world.scm for detail.

STk> (ask simon 'go-directly-to soda)
How about a cinnamon raisin bagel for dessert?


simon moved from noahs to soda
appeared
STk> (ask simon 'look-around)
(rock bagel coffee bagel)
STk> (ask rock 'edible?)
#f
STk> (ask b1 'edible?)
#t
STk> (ask simon 'take-all)

simon took rock
taken

simon took bagel
taken

simon took coffee
taken

simon took bagel
taken
(okay okay okay okay)
STk> (ask simon 'lose b1)
lost
STk> (ask simon 'strength)
100
STk> (show-things simon)
(coffee bagel rock)
STk> (ask simon 'eat)
(disappeared disappeared)
STk> (ask simon 'strength)
113
STk> (show-things simon)
(rock)
STk> (ask simon 'look-around)
(rock bagel)
STk> (ask b2 'calories)
10

#A6a

STk> (ask simon 'money)
100
STk> (ask simon 'get-money 10)
ok
STk> (ask simon 'money)
110
STk> (ask simon 'pay-money 30)
#t
STk> (ask simon 'money)
80
STk> (ask simon 'pay-money 100)
#f

#A6b

STk> (ask noahs 'menu)
(bagel 1.0)
STk> (ask simon 'money)
100
STk> (define plain (ask noahs 'sell simon 'bagel))
plain
STk> (ask plain 'name)
bagel
STk> (ask plain 'edible?)
#t
STk> (ask plain 'calories)
10
STk> (ask noahs 'sell simon 'coffee)
#f
STk> (ask simon 'money)
99.0
STk> (ask simon 'pay-money 99)
#t
STk> (ask noahs 'sell simon 'bagel)
#f

#A7

STk> (ask simon 'go 'up)
How about a cinnamon raisin bagel for dessert?


simon moved from noahs to coffee-shop
appeared
STk> (ask simon 'look-around)
()
STk> (show-things simon)
()
STk> (ask simon 'get-money 30)
ok
STk> (ask simon 'money)
30.0
STk> (ask simon 'buy 'coffee)

simon took coffee
taken
STk> (ask simon 'money)
28.5
STk> (show-things simon)
(coffee)
STk> (ask simon 'pay-money 28)
#t
STk> (ask simon 'money)
0.5
STk> (ask simon 'buy 'coffee)
#f
STk> (show-things simon)
(coffee)


;;;;;;;;;;;;;;;;;;;;;;;;
;;; member B
;;;;;;;;;;;;;;;;;;;;;;;;

#B5a

STk> (ask jail 'exits)
()
STk> (ask david 'go-directly-to jail)
Who's your favorite instructor?
erik
I'll let them know!


david moved from dyc-office to jail
appeared
STk> (ask david 'go-directly-to sproul-plaza)


david moved from jail to sproul-plaza
appeared

#B6 (#B5b is included)

STk> (ask nasty 'strength)
150
STk> (ask simon 'strength)
100
STk> (ask cop 'strength)
200
STk> (whereis cop)
lewis
STk> (whereis nasty)
sproul-plaza
STk> (whereis simon)
noahs
STk> (ask simon 'buy 'bagel)

simon took bagel
taken
STk> (ask simon 'go-directly-to sproul-plaza)
How about a cinnamon raisin bagel for dessert?


simon moved from noahs to sproul-plaza


nasty took bagel
taken

Yaaah! simon is upset!


nasty moved from sproul-plaza to telegraph-ave
There are tie-dyed shirts as far as you can see...
appeared
STk> (ask simon 'go 'south)


simon moved from sproul-plaza to telegraph-ave


nasty moved from telegraph-ave to noahs
Would you like lox with it?
There are tie-dyed shirts as far as you can see...
appeared
STk> (ask simon 'go-directly-to noahs)


simon moved from telegraph-ave to noahs
How about a cinnamon raisin bagel for dessert?


nasty moved from noahs to coffee-shop
Would you like lox with it?
appeared
STk> (ask cop 'go-directly-to noahs)


cop moved from lewis to noahs

Would you like lox with it?
appeared
STk> (ask simon 'go 'up)
How about a cinnamon raisin bagel for dessert?


simon moved from noahs to coffee-shop


nasty moved from coffee-shop to noahs

Crime Does Not Pay

cop took bagel
taken
How about a cinnamon raisin bagel for dessert?


nasty moved from noahs to jail
Would you like lox with it?
appeared
STk> (ask hacker 'go-directly-to jail)
The workstations come back to life just in time.


hacker moved from 61a-lab to jail

 Can't get out 
appeared

#B7

STk> (define computer (instantiate thing 'computer))
computer
STk> (ask 61a-lab 'appear computer)
appeared
STk> (ask simon 'buy 'bagel)

simon took bagel
taken
STk> (ask simon 'go-directly-to 61a-lab)
How about a cinnamon raisin bagel for dessert?


simon moved from noahs to 61a-lab

The computers seem to be down
appeared
STk> (ask simon 'strength)
100
STk> (ask hacker 'strength)
100
STk> (ask hacker 'take computer)

hacker took computer
taken
STk> (ask simon 'take computer)
#f
STk> (ask simon 'eat)
(disappeared)
STk> (ask simon 'strength)
110
STk> (ask hacker 'strength)
100
STk> (ask simon 'take computer)

simon took computer
taken

Yaaah! hacker is upset!

STk> (ask hacker 'take computer)
#f




#8

STk> (ask cop 'go-directly-to noahs)


cop moved from lewis to noahs

Would you like lox with it?
appeared
STk> (ask cop 'money)
100
STk> (ask cop 'buy 'bagel)
No charge for you, Sir

cop took bagel
taken
STk> (ask cop 'money)
100