; ===================================
; QGO Market Def NPC File : 9Ega-T138
; Gambling House - Ratflock Extension
; -----------------------------------
; 6 July 2003 (Xerxes)
;   - Added New text
; ===================================
[@main]
#IF
	equal p9 0
#ACT
	goto @main-1
	break

#IF
	equal p9 1
#ACT
	goto @race
	BreakTimeRecall 
	break

#IF
	equal p9 2
#ACT
	goto @cube
	BreakTimeRecall 
	break

#IF
	equal p9 9
#ACT
	goto @quit
	BreakTimeRecall 
	break


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


; -----------------------------------
[@main-1]
#IF
	checkmonmap T138 1
#SAY
		;     ȣ ּ.. \
		;Ȥ     Ҽ  \
		;  ּ..\ \
;-------------NEW TEXT-------------------
Ahh! Thank the heavens on your arrival! You must\
save me from these Rats, they will kill me!\
Please do not summon or tame any familiars here,\
as they will also try to attack me!\\
;-----------END NEW TEXT-----------------
		;<  /@exit>
<Close/@exit>
#ACT
	mov p9 0

#ELSEACT
	BreakTimeRecall
	set [799] 0
#ELSESAY
		;     ּż  մϴ. \ \
;-------------NEW TEXT-------------------
Thank you, thank you so much for saving my life\
from the mighty horde of Rats!\\
;-----------END NEW TEXT-----------------
		;<  /@race>
<Continue/@race>


; -----------------------------------
[@race]
#IF
#ACT
	mov p9 1
#SAY
		;  ֻ  ִ ȸ 帮ڽϴ. \
		;׷  ϴ. \ \
;-------------NEW TEXT-------------------
Very well, you may now use another gambling chip and\
throw your next dice! Good luck!\\
;-----------END NEW TEXT-----------------
		;<  /@pre_cube>
<Throw the Dice/@pre_cube>



; -----------------------------------
[@pre_cube]
#IF
	checkitem GambleChip 1
#ACT
	take GambleChip 1
	mov p9 2
	movr d0 6
	inc d0 1
	playdice 1 @cube
#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]
		;ֻ  <$STR(D0)>  Դϴ. \ 
		; <$STR(D0)> ŭ  ̵  帮ڽϴ. \ \  
;-------------NEW TEXT-------------------
The dice has stopped on a <$STR(D0)>! That means that you\
can move along <$STR(D0)> rooms!\\
;-----------END NEW TEXT-----------------
		;<  /@next_cube>  
<Move/@next_cube>


; -----------------------------------
[@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 B139
	batchmove

[@Posi2]
#IF
#ACT
	batchDelay 1
	addbatch B139
	addbatch B140
	batchmove

[@Posi3]
#IF
#ACT
	batchDelay 1
	addbatch B139
	addbatch B140
	addbatch B101
	batchmove

[@Posi4]
#IF
#ACT
	batchDelay 1
	addbatch B139
	addbatch B140
	addbatch B101
	addbatch B102
	batchmove

[@Posi5]
#IF
#ACT
	batchDelay 1
	addbatch B139
	addbatch B140
	addbatch B101
	addbatch B102
	addbatch B103
	batchmove

[@Posi6]
#IF
#ACT
	batchDelay 1
	addbatch B139
	addbatch B140
	addbatch B101
	addbatch B102
	addbatch B103
	addbatch B104
	batchmove

