;--------------------------
; Routine de personage parlant
; ainsi que de jeu
;--------------------------
;
; pour commencer voici la routine de la petite madame qui donne le cash en entrant
StartupPerso:
	ld	a,(QuestFlag)
	bit	0,a	\	jr	nz,nopossiblecash
	ld	hl,TrynitrypretStr
	call	PutStrinBlack
	ld	de,$001E
	ld	hl,YesNoMenuStr
	call	yesnomenu
	or	a	\	jr	z,NoCashWanted
	ld	a,(QuestFlag)
	bit	1,a	\	jr	nz,easysetting
	ld	hl,$0010
	ld	(cash),hl
	set	0,a
	ld	(QuestFlag),a
	ret
Easysetting:
	ld	hl,$0064
	ld	(cash),hl
	set	0,a
	ld	(QuestFlag),a
	ret
NoPossibleCash:
	ld	hl,Trynitrynocash
	call	putstrinblack
	call	D_I_Waitkey
NoCashWanted:
	ret

;#####################################
; Perso qui ressemble a Jean Chretien et sa guelle croche!!!!1
; En verite Battaille a 2 de
Batt2DePerso:
	ld	hl,Batt2DeStr
	call	putStrinblack
	ld	de,$002C
	ld	hl,YesNoMenuStr
	call	yesnomenu
	or	a	\	ret	z
	jp	Batt2DeGame

ChanceDice:
	ld	hl,ChanceDiceStr
	call	putstrinblack
	ld	de,$0024
	ld	hl,YesNoMenuStr
	call	yesnomenu
	or	a	\	ret	z
	jp	ChanceDiceGame
;___________________________
BetweenGamePerso:
	ld	hl,BetweenGameStr
	call	putstrinblack
	ld	de,$0024
	ld	hl,YesNoMenuStr
	call	yesnomenu
	or	a	\	ret	z
	jp	BetweenGame
;	ret
	
BlackJackPerso:
	ld	hl,BlackJackStr
	call	putstrinblack
	ld	de,$0024
	ld	hl,YesNoMenuStr
	call	yesnomenu
	or	a	\	ret	z
	jp	BlackJackGame

	
Noprogramed:
	ld	hl,NoProgPersostr
	call	putstrinblack
	call	D_I_Waitkey
	ret