[@main]
#if
equal G23 1
#act
MOV S$ȡǩ <սףϷ>
#say
<        1.80սͳ /AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<ڲյԪ.ʽ50%ϣԪ/AUTOCOLOR=224> \ \
<ǰԪ/AUTOCOLOR=245><$STR(U49)>
\ \
<ע⣺ʽͬʺעϷ޷ȡ/AUTOCOLOR=254>\
\ \
          <$str(S$ȡǩ)>\

;G23 1  ǲ




#if
EQUAL G23 0
checkaccountlist ..\QuestDiary\Ԫ¼\һ˺.txt
#ACT
GOTO @л
#elseact
GOTO @޻
BREAK


#say
\ 
<        1.80սԻշ/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ 

<װһӭ/AUTOCOLOR=254><ʽ> \
<װյԪȡ/AUTOCOLOR=254> \
<㵱ǰյԪΪ/AUTOCOLOR=254><$STR(U49)><Ԫ/AUTOCOLOR=254> \
<ʽ㽫ȡյԪ/AUTOCOLOR=254><50%> \
<ȡƷϳƷԪۼ/AUTOCOLOR=254> \ \

                      <ȡ/@ȡ>\

[@޻]
#if
EQUAL G23 0
#say
\ 
<        1.80սԻշ/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ 

<װһӭ><ʽ> \
<װյԪȡ> \
<㵱ǰյԪΪ:Ѿ.߲ûԪ>\
<ʽ㽫ȡյԪΪѾ.߲ûԪ> \
<ȡƷϳƷԪۼ> \ \
<ֻвչԪңʾȡҳ> \
<ע⣺ʽͬʺעϷ޷ȡ/AUTOCOLOR=254>\


                      





[@ȡ]
#if
checkaccountlist ..\QuestDiary\Ԫ¼\һ˺.txt
#elseact
messagebox Ԫ¼޷ȡ
break

#if
#act
mov S$Ԫ
GetListString ..\QuestDiary\Ԫ¼\˺ļ\<$USERID>.txt 0 S$Ԫ

#if
CheckStringlength <$STR(S$Ԫ)> > 0
#act
MOV N$Ԫ <$STR(S$Ԫ)>
DIV N$Ԫ N$Ԫ 2
GAMEGOLD + <$STR(N$Ԫ)>
delaccountlist ..\QuestDiary\Ԫ¼\һ˺.txt
CLEARNAMELIST ..\QuestDiary\Ԫ¼\˺ļ\<$USERID>.txt
messagebox Ԫɹ
#ELSEACT
messagebox ûԪȡѾȡ
BREAK



