'From Pharo1.2.1 of 2 April 2011 [Latest update: #12345] on 6 August 2011 at 2:23:35 pm'!
BorderedMorph subclass: #JPPlayer
	instanceVariableNames: 'nextWait wait '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Itolab-JackPot'!

!JPPlayer methodsFor: 'initialization' stamp: 'EiichiroIto 8/6/2011 14:22'!
initialize
	super initialize.
	self borderWidth: 1.
	self extent: 16 @ 16.
	self color: Color blue.
	wait := 0.
	nextWait := 10! !

!JPPlayer methodsFor: 'accessing' stamp: 'EiichiroIto 8/6/2011 14:22'!
gotTreasure
	wait := nextWait.
	nextWait := nextWait + 10! !

!JPPlayer methodsFor: 'accessing' stamp: 'EiichiroIto 8/6/2011 14:21'!
move
	wait > 0
		ifTrue: [ wait := wait - 1 ]
		ifFalse: [ self processKeys ].
	self checkCollision! !


!JPTreasure methodsFor: 'accessing' stamp: 'EiichiroIto 8/6/2011 14:22'!
doWithPlayer: aPlayer
	| jackPot |
	jackPot := owner.
	self delete.
	aPlayer gotTreasure.
	jackPot gotTreasure! !

BorderedMorph subclass: #JPPlayer
	instanceVariableNames: 'wait nextWait'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Itolab-JackPot'!