; ===================================
; QGO Market Def NPC File : 9Ega-B133
; Gambling House - Windy room 6 (33rd)
; -----------------------------------
; 6 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>.\ 
		;̹  33°, ٶ Դϴ. \
		; ֻ  4ϰ   10ĭ ڷ ̵ \
		;Ͻð Ǹ,   ̻ ڰ ð \
		; ŭ ڷ ̵ϰ ˴ϴ. \ \
;-------------NEW TEXT-------------------
Welcome to the sixth Windy room, <$USERNAME>!\
This is the 33rd Ma-Bang-Jin room, from which you can\
determine your next movement with your dice. If you throw\
a value of 4 or less, you will move back 10 rooms; otherwise,\
you will be moved back the value of the dice.\\
;-----------END NEW TEXT-----------------
		;<ֻ /@next>  
<Throw the Dice/@next>


; -----------------------------------
[@next]
#IF
	checkitem GambleChip 1
#ACT
	mov p9 1
	movr d0 6
	inc d0 1
	playdice 1 @next1
#SAY
		;ֻ  ֽϴ. \ \  
;-------------NEW TEXT-------------------
The dice has been thrown....\\
;-----------END NEW TEXT-----------------
		;<  /@cube>  
<Continue/@cube>

#ELSESAY
		;<$USERNAME>, а Ѱ ó׿. \  
		;  ϱ ؼ а ʿ ϰŵ \  
		; а  ̻  Ҽ ׿.. \  
		;а غ ǰŵ ٽ .. \ \ 
;-------------NEW TEXT-------------------
Oh dear, <$USERNAME>, you don't seem to have any gambling\
chips left... You cannot continue without them. Please return\
when you have acquired some more!\\
;-----------END NEW TEXT-----------------
		;<  /@Quit>
<Leave the Game/@Quit>

#ELSEACT
	mov p9 9


; -----------------------------------
[@cube]
#IF
	small d0 5
#SAY
		; ֻ ڴ <$STR(D0)> Դϴ. \ 
		; ڰ 4  ϼ̱, ׷ 10ĭ ڷ ̵ \
		; 帮ڽϴ. \ \ 
;-------------NEW TEXT-------------------
You have thrown a value of <$STR(D0)>; this is\
less than 5, therefore you will move back 10 rooms.\\
;-----------END NEW TEXT-----------------
		;<  /@move> 
<Continue/@move>

#ELSESAY
		;ֻ  <$STR(D0)>  Դϴ. \ 
		; <$STR(D0)> ŭ ڷ ̵  帮ڽϴ. \ \
;-------------NEW TEXT-------------------
You have thrown a value of <$STR(D0)>; therefore\
you will move back <$STR(D0)> rooms.\\
;-----------END NEW TEXT-----------------
		;<  /@next_cube>  
<Continue/@next_cube>


; -----------------------------------
[@next_cube]
#IF
	equal d0 5 
#ACT
	batchDelay 1
	addbatch b132
	addbatch b131
	addbatch b130
	addbatch b129
	addbatch b128
	batchmove
	break

#IF
	equal d0 6 
#ACT
	batchDelay 1
	addbatch b132
	addbatch b131
	addbatch b130
	addbatch b129
	addbatch b128
	addbatch b127
	batchmove
	break


; -----------------------------------
[@Quit]
#IF
#ACT
	map B011


; -----------------------------------
[@move]
#IF
#ACT
	batchDelay 1
	addbatch b132
	addbatch b131
	addbatch b130
	addbatch b129
	addbatch b128
	addbatch b127
	addbatch b126
	addbatch b125
	addbatch b124
	addbatch b123
	batchmove

