[@main]
#IF
equal p9 0
#ACT
goto @main-1
BreakTimeRecall 
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

[@main-1]
#IF
#ACT
mov p9 0
#SAY
어서오세요! <$USERNAME>님 \
이곳은 마방진 7번째방, 놀이의방입니다 \
이 놀이의방에서 게임을 하시겠습니까? \
게임을 하거나,말거나 그것은  <$USERNAME>님의 \
선택!! 하지만 투패를 늘릴 수 있는 기회를 그냥 \
지나치시진 않으시겠지요? \
<이동을 하겠습니다./@race> \
<게임을 하겠습니다./@presen> \
<투패가 너무 많아 투패를 묶겠습니다./@bind> 

[@bind]
#IF
checkitem 투패 6
#ACT
take 투패 6
give 투패묶음 1
#SAY
투패를 투패 묶음으로 잘 묶어졌습니다. \ \
<이  전/@main-1>
#ELSESAY
당신은 투패도 없으시면서 투패를 어떻게 \
묶으실려고 하시는 지요? 다시 한번 확인해 보세요 \ \
<이  전/@main-1>

[@race]
#IF
#ACT
mov p9 1
#SAY
주사위를 굴릴수 있는 기회를 드리겠습니다. \
그럼 행운을 빕니다. \ \
<다  음/@pre_cube>

[@presen]
#IF
#SAY 
{3,4,5,6}  : 투패 40개  ,  {2,3,4,5}  : 투패 35개\
{1,2,3,4}  : 투패 35개  ,  {6,6,6,6}  : 투패 30개\
{5,5,5,5}  : 투패 28개  ,  {4,4,4,4}  : 투패 26개\
{3,3,3,3}  : 투패 24개  ,  {2,2,2,2}  : 투패 22개\
{1,1,1,1}  : 투패 20개  \
같은 숫자가 3자리가 연속해서 나올때   : 투패  10개\
같은 숫자가 연속해서 2세트가 나올때   : 투패  8개\
같은 숫자가 2자리가 연속해서 나올때   : 투패  1개\
<다  음/@dicestart>

[@Quit]
#IF
#ACT
map B011

[@dicestart]
#IF
checkitem 투패 2
#ACT
take 투패 2
movr d0 6
movr d1 6
movr d2 6
movr d3 6
inc d0 1
inc d1 1
inc d2 1
inc d3 1
playdice 4 @next
#SAY
주사위를 굴리고 있습니다. \ \
;<다  음/@next>
#ELSESAY
당신은 투패가 없으십니다. \
이 상태에서는 이 게임을 계속 해서 하실수가 없습니다. \ \
<다  음/@dicestart>

[@next]
#IF
equal d0 3
equal d1 4
equal d2 5
equal d3 6
#ACT
goto @Dedice1
break

#IF
equal d0 2
equal d1 3
equal d2 4
equal d3 5
#ACT
goto @Dedice2
break

#IF
equal d0 1
equal d1 2
equal d2 3
equal d3 4
#ACT
goto @Dedice3
break

#IF
equal d0 6
equal d1 6
equal d2 6
equal d3 6
#ACT
goto @4dice1
break

#IF
equal d0 5
equal d1 5
equal d2 5
equal d3 5
#ACT
goto @4dice2
break

#IF
equal d0 4
equal d1 4
equal d2 4
equal d3 4
#ACT
goto @4dice3
break

#IF
equal d0 3
equal d1 3
equal d2 3
equal d3 3
#ACT
goto @4dice4
break

#IF
equal d0 2
equal d1 2
equal d2 2
equal d3 2
#ACT
goto @4dice5
break

#IF
equal d0 1
equal d1 1
equal d2 1
equal d3 1
#ACT
goto @4dice6
break

#IF
equal d0 6
equal d1 6
equal d2 6
#ACT
goto @3dice
break

#IF
equal d0 5
equal d1 5
equal d2 5
#ACT
goto @3dice
break

#IF
equal d0 4
equal d1 4
equal d2 4
#ACT
goto @3dice
break

#IF
equal d0 3
equal d1 3
equal d2 3
#ACT
goto @3dice
break

#IF
equal d0 2
equal d1 2
equal d2 2
#ACT
goto @3dice
break

#IF
equal d0 1
equal d1 1
equal d2 1
#ACT
goto @3dice
break

#IF
equal d1 6
equal d2 6
equal d3 6
#ACT
goto @3dice
break

#IF
equal d1 5
equal d2 5
equal d3 5
#ACT
goto @3dice
break

#IF
equal d1 4
equal d2 4
equal d3 4
#ACT
goto @3dice
break

#IF
equal d1 3
equal d2 3
equal d3 3
#ACT
goto @3dice
break

#IF
equal d1 2
equal d2 2
equal d3 2
#ACT
goto @3dice
break

#IF
equal d1 1
equal d2 1
equal d3 1
#ACT
goto @3dice
break

#IF
equal d0 6
equal d1 6
#ACT
goto @2dice1
break

#IF
equal d0 5
equal d1 5
#ACT
goto @2dice1
break

#IF
equal d0 4
equal d1 4
#ACT
goto @2dice1
break

#IF
equal d0 3
equal d1 3
#ACT
goto @2dice1
break

#IF
equal d0 2
equal d1 2
#ACT
goto @2dice1
break

#IF
equal d0 1
equal d1 1
#ACT
goto @2dice1
break

#IF
equal d1 6
equal d2 6
#ACT
goto @2dice
break

#IF
equal d1 5
equal d2 5
#ACT
goto @2dice
break

#IF
equal d1 4
equal d2 4
#ACT
goto @2dice
break

#IF
equal d1 3
equal d2 3
#ACT
goto @2dice
break

#IF
equal d1 2
equal d2 2
#ACT
goto @2dice
break

#IF
equal d1 1
equal d2 1
#ACT
goto @2dice
break

#IF
equal d2 6
equal d3 6
#ACT
goto @2dice
break

#IF
equal d2 5
equal d3 5
#ACT
goto @2dice
break

#IF
equal d2 4
equal d3 4
#ACT
goto @2dice
break

#IF
equal d2 3
equal d3 3
#ACT
goto @2dice
break

#IF
equal d2 2
equal d3 2
#ACT
goto @2dice
break

#IF
equal d2 1
equal d3 1
#ACT
goto @2dice
break
#ELSEACT
goto @normal

[@Dedice1]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 40개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 40

[@Dedice2]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 35개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 35

[@Dedice3]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 35개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 35

[@4dice1]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 30개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 30

[@4dice2]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 28개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 28

[@4dice3]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 26개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 26

[@4dice4]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 24개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 24

[@4dice5]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 22개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 22

[@4dice6]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 20개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 20

[@3dice]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 10개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 10

[@2dice1]
#IF
equal d2 1
equal d3 1
#ACT
goto @2pair
break

#IF
equal d2 2
equal d3 2
#ACT
goto @2pair
break

#IF
equal d2 3
equal d3 3
#ACT
goto @2pair
break

#IF
equal d2 4
equal d3 4
#ACT
goto @2pair
break

#IF
equal d2 5
equal d3 5
#ACT
goto @2pair
break

#IF
equal d2 6
equal d3 6
#ACT
goto @2pair
break
#ELSEACT
goto @2dice

[@2pair]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 8개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 8

[@2dice]
#IF
#SAY
축하 합니다!! \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
선물로 투패를 1개를 드리겠습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@main-1>
#ACT
give 투패 1

[@normal]
#IF
#SAY
아이구! 아깝네요! 꽝입니다.  \ 
당신의 <$STR(D0)> , <$STR(D1)> , <$STR(D2)> , <$STR(D3)> 걸리셨습니다. \
계속 해서 하시겠습니까? 아니면 고만 두시겠습니까? \ \
<계속 합니다./@dicestart> \
<고만 두겠습니다./@>

[@pre_cube]
#IF
checkitem 투패 1
#ACT
mov p9 2
take 투패 1
movr d0 6
inc d0 1
playdice 1 @cube
#SAY
주사위를 굴리고 있습니다. \ \
<다  음/@cube>
#ELSESAY
<$USERNAME>님, 투패가 한개도 없으시네요. \
이 게임을 하기 위해서는 투패가 필요 하거든요 \
이 투패가 없으면 더이상 진행을 할수가 없네요.. \ 
투패가 준비가 되거든 다시 오세요.. \ \
<닫  기/@Quit>
#ELSEACT
mov p9 9

[@cube]
#SAY
주사위의 값은 <$STR(D0)>  입니다. \
당신을 <$STR(D0)> 만큼 앞으로 이동을 시켜 드리겠습니다. \ \
<이  동/@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 B108
batchmove

[@Posi2]
#IF
#ACT
batchDelay 1
addbatch B108
addbatch B109
batchmove

[@Posi3]
#IF
#ACT
batchDelay 1
addbatch B108
addbatch B109
addbatch B110
batchmove

[@Posi4]
#IF
#ACT
batchDelay 1
addbatch B108
addbatch B109
addbatch B110
addbatch B111
batchmove

[@Posi5]
#IF
#ACT
batchDelay 1
addbatch B108
addbatch B109
addbatch B110
addbatch B111
addbatch B112
batchmove

[@Posi6]
#IF
#ACT
batchDelay 1
addbatch B108
addbatch B109
addbatch B110
addbatch B111
addbatch B112
addbatch B113
batchmove

