Object subclass: #'人間' instanceVariableNames: '名前瞳の色好意対象憎悪対象性別 ' classVariableNames: '' poolDictionaries: '' category: 'ターンＡ-ガンダム'! !人間 methodsFor: 'as yet unclassified' stamp: 'shigerus 6/11/2002 15:51'! + ある人間 "ある人間を目の前にしたときの心情を返す" (好意対象 = ある人間) ifTrue: [^ 'どきどき']. (憎悪対象 = ある人間) ifTrue: [^ '殺意！']. ^ '別になんとも' ! ! !人間 methodsFor: 'as yet unclassified' stamp: 'sumim 6/15/2002 19:03'! が嫌いなのは: ある人間憎悪対象 _ ある人間 ! ! !人間 methodsFor: 'as yet unclassified' stamp: 'sumim 6/15/2002 19:04'! が嫌いな人 ^ 憎悪対象! ! !人間 methodsFor: 'as yet unclassified' stamp: 'sumim 6/15/2002 19:03'! が好きなのは: ある人間好意対象 _ ある人間! ! !人間 methodsFor: 'as yet unclassified' stamp: 'sumim 6/15/2002 19:03'! が好きな人 ^ 好意対象! ! !人間 methodsFor: 'as yet unclassified' stamp: 'sumim 6/15/2002 19:08'! の: ある名前瞳の色は: ある色で: 男か女 "主に初期状態のある人間に対し基本的な状態を設定する" 名前 _ ある名前. 瞳の色 _ ある色. 性別 _ 男か女! ! !人間 methodsFor: 'as yet unclassified' stamp: 'shigerus 6/17/2002 23:34'! の性別 ^性別! ! !人間 methodsFor: 'as yet unclassified' stamp: 'sumim 6/15/2002 19:09'! の瞳の色 ^ 瞳の色 ! ! !人間 methodsFor: 'as yet unclassified' stamp: 'sumim 6/15/2002 19:09'! の名前 ^名前! ! !人間 methodsFor: 'as yet unclassified' stamp: 'shigerus 6/15/2002 22:33'! printOn: あるStream "あるStreamに刺激を受けたある人間を端的に表わす文字列を追加する" あるStream nextPutAll: self class name, ' の: ''', 名前 asString, '''' ! ! !人間 methodsFor: 'as yet unclassified' stamp: 'shigerus 6/18/2002 12:33'! はストレート "同性が好きならfalse、そうでないならtrueを返す" ^ (性別 = 好意対象の性別) not! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! 人間 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 ! ! !人間 class methodsFor: 'as yet unclassified' stamp: 'shigerus 6/17/2002 12:45'! の: ある名前 "ある名前のある人間を返す" | 候補 | 候補 _ self allInstances select: [ :ある人間 | ある人間の名前 = ある名前 ]. ^ (候補 size > 0) ifTrue: [ 候補 first ] ifFalse: [ nil ] ! ! !人間 class methodsFor: 'as yet unclassified' stamp: 'shigerus 6/19/2002 00:16'! の: ある名前瞳の色は: ある色で: 男か女 "基本的な状態を設定した「ある人間」を返す" | 登場人物 | 登場人物 _ (self new の: ある名前瞳の色は: ある色で: 男か女). self = ムーンレイス ifTrue: [登場人物が好きなのは: ディアナ] ifFalse: [登場人物が好きなのは: キエル]. ^ 登場人物 ! ! 人間 subclass: #'ムーンレイス' instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ターンＡ-ガンダム'! 人間 subclass: #'地球人' instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ターンＡ-ガンダム'!