'From Squeak3.2gamma of 15 January 2002 [latest update: #4811] on 15 June 2002 at 6:30:45 pm'!
Object subclass: #'人間'
	instanceVariableNames: '名前 瞳の色 好意対象 憎悪対象 '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'ターンＡ-ガンダム'!

!人間 methodsFor: 'as yet unclassified' stamp: 'shigerus 6/11/2002 15:51'!
+ ある人間
"ある人間を目の前にしたときの心情を返す"
(好意対象 = ある人間) ifTrue: [^ 'どきどき'].
(憎悪対象 = ある人間) ifTrue: [^ '殺意！'].
^ '別になんとも'
! !

!人間 methodsFor: 'as yet unclassified' stamp: 'shigerus 6/11/2002 15:53'!
の: ある名前 瞳の色は: ある色
名前 _ ある名前

! !

!人間 methodsFor: 'as yet unclassified' stamp: 'shigerus 6/11/2002 15:52'!
瞳の色は？
"瞳の色を答える"
名前 = 'ロラン・セアック' ifTrue: [ ^ '緑' ].
名前 = 'ディアナ・ソレル' ifTrue: [ ^ '青' ].
名前 = 'テテス・ハレ' ifTrue: [ ^ '赤' ].
^ '黒'

! !

!人間 methodsFor: 'as yet unclassified' stamp: 'shigerus 6/11/2002 21:51'!
名前は？
^名前! !

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

人間 class
	instanceVariableNames: ''!

!人間 class methodsFor: 'as yet unclassified' stamp: 'shigerus 6/12/2002 23:28'!
たち
self allInstances inspect
! !

!人間 class methodsFor: 'as yet unclassified' stamp: 'shigerus 6/13/2002 06:23'!
たちの数は？
^ self allInstances size

! !