'From Squeak3.2gamma of 15 January 2002 [latest update: #4811] on 15 June 2002 at 7:10:50 pm'! Object subclass: #'人間' instanceVariableNames: '名前 瞳の色 好意対象 憎悪対象 性別 ' classVariableNames: '' poolDictionaries: '' category: 'ターンA-ガンダム'! !人間 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: 'sumim 6/15/2002 19:09'! の瞳の色 ^ 瞳の色 ! ! !人間 methodsFor: 'as yet unclassified' stamp: 'sumim 6/15/2002 19:09'! の名前 ^名前! ! 人間 removeSelector: #'の:瞳の色は:'! 人間 removeSelector: #'瞳の色は?'! 人間 removeSelector: #'名前は?'!