[@MAIN]
#IF
equal G79 100
#SAY
</FCOLOR=22>\
</FCOLOR=22>,ӳĵӵ㵱ǰҡĵ.</FCOLOR=22>\
</FCOLOR=22><1/FCOLOR=222>˫:(һ):(2ھ顢߼װһ)</FCOLOR=22>\
</FCOLOR=22><2/FCOLOR=222>ҡӣ߼װһ,10Ԫ</FCOLOR=22>\
</FCOLOR=22><3/FCOLOR=222>ÿҡӣǵ˫Ӷ㹱ֵ </FCOLOR=22>\
</FCOLOR=22><4/FCOLOR=222>ȫȫֻ100ҡӵĻᡣÿҹ12㡣</FCOLOR=22>\
</FCOLOR=22>\
</FCOLOR=22><ȫ100ҡѾҰ/FCOLOR=222> </FCOLOR=22>\
</FCOLOR=22>\
#ELSESAY
</FCOLOR=22>\
</FCOLOR=22>,ӳĵӵ㵱ǰҡĵ.</FCOLOR=22>\
</FCOLOR=22><1/FCOLOR=222>˫:(һ):(2ھ顢߼װһ)</FCOLOR=22>\
</FCOLOR=22><2/FCOLOR=222>ҡӣ߼װһ,10Ԫ</FCOLOR=22>\
</FCOLOR=22><3/FCOLOR=222>ÿҡӣǵ˫Ӷ㹱ֵ </FCOLOR=22>\
</FCOLOR=22><4/FCOLOR=222>ȫȫֻ100ҡӵĻᡣÿҹ12㡣</FCOLOR=22>\
</FCOLOR=22>\
</FCOLOR=22>ȫѾҡ<$STR(G79)>         <10000Ԫҡһ/@Ԫ></FCOLOR=22>\
</FCOLOR=22>\

[@Ԫ]
#IF
CHECKGAMEGOLD > 9999
#act
GAMEGOLD - 10000
MOVR D0 1 7
MOVR D1 1 7
MOVR D2 1 7
MOVR D3 D0
MOVR D3 D1
MOVR D3 D2
INC D3 D0
INC D3 D1
INC D3 D2
INC G79 1
playdice 3 @KSKJ
BREAK
#ELSEACT
messagebox ˺û10000Ԫ
BREAK
CLOSE

[@KSKJ]
#IF
equal D3 3
#ACT
CHANGEEXP + 200000000
GetRandomName ..\QuestDiary\ҡҡҡ\߼.txt S60
give <$str(s60)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ32ھ顣
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ3<$str(s60)>һ
messagebox ϲҡ34ھ顣
goto @main1
BREAK

#IF
equal D3 4
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\12.txt S70
give <$str(s70)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲ<$USERNAME>ҡҡҡҡҡ4<$str(s70)>һ
messagebox ϲҡ4<$str(s70)>һ.
goto @main1
BREAK

#IF
equal D3 5
#ACT
CHANGEEXP + 200000000
GetRandomName ..\QuestDiary\ҡҡҡ\߼.txt S60
give <$str(s60)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ52ھ顣
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ5<$str(s60)>һ
messagebox ϲҡ54ھ顣
goto @main1
BREAK

#IF
equal D3 6
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\12.txt S70
give <$str(s70)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲ<$USERNAME>ҡҡҡҡҡ8<$str(s70)>һ
messagebox ϲҡ8<$str(s70)>һ.
goto @main1
BREAK

#IF
equal D3 7
#ACT
CHANGEEXP + 200000000
GetRandomName ..\QuestDiary\ҡҡҡ\߼.txt S60
give <$str(s60)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ72ھ顣
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ7<$str(s60)>һ
messagebox ϲҡ74ھ顣
goto @main1
BREAK

#IF
equal D3 8
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\12.txt S70
give <$str(s70)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲ<$USERNAME>ҡҡҡҡҡ8<$str(s70)>һ
messagebox ϲҡ8<$str(s70)>һ.
goto @main1
BREAK

#IF
equal D3 9
#ACT
CHANGEEXP + 200000000
GetRandomName ..\QuestDiary\ҡҡҡ\߼.txt S60
give <$str(s60)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ92ھ顣
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ9<$str(s60)>һ
messagebox ϲҡ94ھ顣
goto @main1
BREAK

#IF
equal D3 10
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\12.txt S70
give <$str(s70)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲ<$USERNAME>ҡҡҡҡҡ10<$str(s70)>һ
messagebox ϲҡ10<$str(s70)>һ.
goto @main1
BREAK

#IF
equal D3 11
#ACT
CHANGEEXP + 200000000
GetRandomName ..\QuestDiary\ҡҡҡ\߼.txt S60
give <$str(s60)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ112ھ顣
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ11<$str(s60)>һ
messagebox ϲҡ114ھ顣
goto @main1
BREAK

#IF
equal D3 12
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\12.txt S70
give <$str(s70)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲ<$USERNAME>ҡҡҡҡҡ12<$str(s70)>һ
messagebox ϲҡ12<$str(s70)>һ.
goto @main1
BREAK

#IF
equal D3 13
#ACT
CHANGEEXP + 200000000
GetRandomName ..\QuestDiary\ҡҡҡ\߼.txt S60
give <$str(s60)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ132ھ顣
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ13<$str(s60)>һ
messagebox ϲҡ134ھ顣
goto @main1
BREAK

#IF
equal D3 14
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\12.txt S70
give <$str(s70)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲ<$USERNAME>ҡҡҡҡҡ14<$str(s70)>һ
messagebox ϲҡ14<$str(s70)>һ.
goto @main1
BREAK

#IF
equal D3 15
#ACT
CHANGEEXP + 200000000
GetRandomName ..\QuestDiary\ҡҡҡ\߼.txt S60
give <$str(s60)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ152ھ顣
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ15<$str(s60)>һ
messagebox ϲҡ154ھ顣
goto @main1
BREAK

#IF
equal D3 16
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\12.txt S70
give <$str(s70)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲ<$USERNAME>ҡҡҡҡҡ16<$str(s70)>һ
messagebox ϲҡ16<$str(s70)>һ.
goto @main1
BREAK

#IF
equal D3 17
#ACT
CHANGEEXP + 200000000
GetRandomName ..\QuestDiary\ҡҡҡ\߼.txt S60
give <$str(s60)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ172ھ顣
SENDMSG 0 ϲʿ[%s]ҡҡҡҡҡ17<$str(s60)>һ
messagebox ϲҡ174ھ顣
goto @main1
BREAK

#IF
equal D3 18
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\12.txt S70
give <$str(s70)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
SENDMSG 0 ϲ<$USERNAME>ҡҡҡҡҡ18<$str(s70)>һ
messagebox ϲҡ18<$str(s70)>һ.
goto @main1
BREAK

[@main1]
#IF
equal d0 1
equal d1 1
equal d2 1
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\ռ.txt S71
give <$str(s71)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
GAMEGOLD + 100000
SENDMSG 0 ϲ<$USERNAME>ҡӣ111ϵͳ10Ԫ
SENDMSG 0 ϲ<$USERNAME>ҡӣ111ϵͳ߼װ<$str(s71)>һ
goto @main
BREAK

#IF
equal d0 2
equal d1 2
equal d2 2
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\ռ.txt S71
give <$str(s71)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
GAMEGOLD + 100000
SENDMSG 0 ϲ<$USERNAME>ҡӣ222ϵͳ10Ԫ
SENDMSG 0 ϲ<$USERNAME>ҡӣ222ϵͳ߼װ<$str(s71)>һ
goto @main
BREAK

#IF
equal d0 3
equal d1 3
equal d2 3
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\ռ.txt S71
give <$str(s71)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
GAMEGOLD + 100000
SENDMSG 0 ϲ<$USERNAME>ҡӣ333ϵͳ10Ԫ
SENDMSG 0 ϲ<$USERNAME>ҡӣ333ϵͳ߼װ<$str(s71)>һ
goto @main
BREAK

#IF
equal d0 4
equal d1 4
equal d2 4
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\ռ.txt S71
give <$str(s71)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
GAMEGOLD + 100000
SENDMSG 0 ϲ<$USERNAME>ҡӣ444ϵͳ10Ԫ
SENDMSG 0 ϲ<$USERNAME>ҡӣ444ϵͳ߼װ<$str(s71)>һ
goto @main
BREAK

#IF
equal d0 5
equal d1 5
equal d2 5
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\ռ.txt S71
give <$str(s71)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
GAMEGOLD + 100000
SENDMSG 0 ϲ<$USERNAME>ҡӣ555ϵͳ10Ԫ
SENDMSG 0 ϲ<$USERNAME>ҡӣ555ϵͳ߼װ<$str(s71)>һ
goto @main
BREAK

#IF
equal d0 6
equal d1 6
equal d2 6
#ACT
GetRandomName ..\QuestDiary\ҡҡҡ\ռ.txt S71
give <$str(s71)> 1
GAMEPOINT + 1
SENDMSG 0 ϲʿ[%s]ҡҡҡһ㹱ֵ
GAMEGOLD + 100000
SENDMSG 0 ϲ<$USERNAME>ҡӣ666ϵͳ10Ԫ
SENDMSG 0 ϲ<$USERNAME>ҡӣ666ϵͳ߼װ<$str(s71)>һ
goto @main
BREAK

#elseact
goto @main
break