Object subclass: #Greed
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Greed-Facade'!
Greed comment:
'Copyright(C) 1998 Masashi Umezawa
"Version 0.8"

Greed is an utility class to start GreedGame.

Just do it:

	"Greed start " or "Greed startSilently"
	
Enjoy!!!!
'!

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

Greed class
	instanceVariableNames: ''!


!Greed class methodsFor: 'api'!

start
	"Copyright(C) 1998 Masashi Umezawa"
	"self start"

	GreedMainGUI beepOn: true.
	GreedOpeningGUI open!

startSilently
	"Copyright(C) 1998 Masashi Umezawa"
	"self startSilently"

	GreedMainGUI beepOn: false.
	GreedOpeningGUI open!

startWithCustomRule
	"Copyright(C) 1998 Masashi Umezawa"
	"self startWithCustomRule"

	| gui main table customRule customPlayer1 customPlayer2 |
	gui := GreedOpeningGUI new.
	main := gui playerListGUI mainGUI.
	table := main greedTable.
	customRule := GreedRule new.
	customRule howManyDice: 8; winnerScore: 5000; initialBankruptScore: 500.
	customPlayer1 := (GreedPlayer name: 'Alex')
				isRobot: true.
	customPlayer1 playWillBlock: [:player | player dicePot shakenDice size < 5 or: [Random new next < 0.1]].
	customPlayer2 := (GreedPlayer name: 'GreedMan')
				isRobot: true.
	customPlayer2 playWillBlock: [:player | Random new next < 0.5].
	gui playerListGUI entryList list add: customPlayer1.
	gui playerListGUI entryList list add: customPlayer2.
	table rule: customRule.
	gui open! !