; ===================================
; QGO Market Def NPC File : 9Ega-B101
; Gambling House - Woman Gambler (Room 1)
; -----------------------------------
; 4 July 2003 (Xerxes)
;   - Added New text
; ===================================
[@main]
#IF
	equal p9 0
#ACT
	goto @main-1

	BreakTimeRecall 
	break

; -----------------------------------
#IF
	equal p9 1
#ACT
	goto @cube

	BreakTimeRecall 
	break

; -----------------------------------
#IF
	equal p9 9
#ACT
	goto @quit

	BreakTimeRecall 
	break


; -----------------------------------
[@main-1]
#IF
#ACT
	mov p9 0

#SAY
		; ̰  ù°  ȸ Դϴ.\
		; .   <$USERNAME> ƹ\
		;̳ ÷þ ֻ  ִ ȸ 帳ϴ.\ 
		;<$USERNAME> ձ濡 ູ ֱ⸦.....\
		; ׷ ֻ  ִ ȸ 帮ڽϴ. \
		;׷  ϴ. \ \
;-------------NEW TEXT-------------------
Welcome to the Room of Opportunity, the first room and starting\
point of Ma-Bang-Jin! You, <$USERNAME>, may now, without any\
challenge, throw the dice... may good fortune smile upon you!\
And the very best of luck to you!\\
;-----------END NEW TEXT-----------------
		;<  /@pre_cube>
<Throw the Dice/@pre_cube>



; -----------------------------------
[@pre_cube]
#IF
	checkitem GambleChip 1
#ACT
	mov p9 1
	take GambleChip 1
	movr d0 6
	inc d0 1
	playdice 1 @cube
#SAY
		;ֻ  ֽϴ. \ \
;-------------NEW TEXT-------------------
The dice rolls... where it will stop, no-one knows...\\
;-----------END NEW TEXT-----------------
		;<  /@cube>
<Continue/@cube>

#ELSESAY
		;<$USERNAME>, а Ѱ ó׿. \
		;  ϱ ؼ а ʿ ϰŵ \
		; а  ̻  Ҽ ׿.. \ 
		;а غ ǰŵ ٽ .. \ \
;-------------NEW TEXT-------------------
It seems, <$USERNAME>, that you do not have a gambling chip.\
You cannot continue this game without them. Go, and return\
when you have purchased them!\\
;-----------END NEW TEXT-----------------
		;<  /@Quit>
<Leave the Game/@Quit>

#ELSEACT
	mov p9 9



; -----------------------------------
[@Quit]
#IF
#ACT
; back to the start point
	map B011




; -----------------------------------
[@cube]
#IF
#SAY
		;ֻ  <$STR(D0)>  Դϴ. \
		; <$STR(D0)> ŭ  ̵  帮ڽϴ. \ \
;-------------NEW TEXT-------------------
The dice has stopped! It has landed on <$STR(D0)>!\
That means you can move along <$STR(D0)> rooms!\\
;-----------END NEW TEXT-----------------
		;<  /@next_cube>
<Move/@next_cube>



; -----------------------------------
; movement routine
; -----------------------------------
[@next_cube]
#IF
	equal d0 1 
#ACT
	goto @posi1
	break

#IF
	equal d0 2 
#ACT
	goto @posi2
	break

#IF
	equal d0 3 
#ACT
	goto @posi3
	break

#IF
	equal d0 4 
#ACT
	goto @posi4
	break

#IF
	equal d0 5
#ACT
	goto @posi5
	break

#IF
	equal d0 6 
#ACT
	goto @posi6
	break


; -----------------------------------
[@Posi1]
#IF
#ACT
	batchDelay 1
	addbatch B102
	batchmove

[@Posi2]
#IF
#ACT
	batchDelay 1
	addbatch B102
	addbatch B103
	batchmove

[@Posi3]
#IF
#ACT
	batchDelay 1
	addbatch B102
	addbatch B103
	addbatch B104
	batchmove

[@Posi4]
#IF
#ACT
	batchDelay 1
	addbatch B102
	addbatch B103
	addbatch B104
	addbatch B105
	batchmove

[@Posi5]
#IF
#ACT
	batchDelay 1
	addbatch B102
	addbatch B103
	addbatch B104
	addbatch B105
	addbatch B106
	batchmove

[@Posi6]
#IF
#ACT
	batchDelay 1
	addbatch B102
	addbatch B103
	addbatch B104
	addbatch B105
	addbatch B106
	addbatch B107
	batchmove

