[@main]
#act
;------

;-------
MOV S$ 37
MOV S$۷ 1
MOV S$Ʒ Ԫ
MOV N$ͼ 1000
MOV S$ϷID
MOV S$ȷϷID
MOV N$
MOV N$ۼ۸
MOV S$ַ https://www.vs14.com/sale/24246C216C786464602A3F3F6767673E676A637D633E737F7D1F7F93F2F

#if
#act
OPENMERCHANTBIGDLG <$STR(S$)> 50 0 4 X -50 0 530 5
#SAY
\ \ \
<ImgEx:<$STR(S$)>:10:11:12:395:-23/@exit>\
\
΢ź,ʹü۽ϵͳ\
ѽϷƽ̨{ϼƷɽ/SCOLOR=250}\
</SCOLOR=14>\
<ȡƷĽɫ΢ Ҫ ΢ͬ/SCOLOR=70>\
</SCOLOR=14>\
{۵Ʒϼܺ7죬7Զ¼ܡ/SCOLOR=250}\ 
</SCOLOR=14>\
<Ҫȥ/@Ʒ>\ 
</SCOLOR=14>\
<ȥг/@ȥг>     <ȡҹƷ/@ȡҹƷ>

[@Ʒ]
#if
EQUAL S$ϷID
#ACT
MOV S$ϷIDʾ <ϷID/@@InPutString11(ϷID)>
#ELSEACT
MOV S$ϷIDʾ {<$STR(S$ϷID)>/SCOLOR=250}

#if
EQUAL S$ȷϷID
#ACT
MOV S$ȷϷIDʾ <ϷID/@@InPutString12(ϷID)>
#ELSEACT
MOV S$ȷϷIDʾ {<$STR(S$ȷϷID)>/SCOLOR=250}
#if
#act
OPENMERCHANTBIGDLG <$STR(S$)> 50 0 4 X -50 0 530 5
#SAY
\ \ \
<ImgEx:<$STR(S$)>:10:11:12:395:-23/@exit>\
\
ѽϷƽ̨{ϼƷɽ/SCOLOR=250}\
Ʒϼܱ7죬˹Զ¼ܴ\
</SCOLOR=14>\
<Ʒ۳ɹ󣬿ϷǮ鿴룡/SCOLOR=70>\
</SCOLOR=14>\
<ϷID:/SCOLOR=253> <$STR(S$ϷIDʾ)>\
</SCOLOR=14>\
<ȷϷID:/SCOLOR=253> <$STR(S$ȷϷIDʾ)>  \ 
</SCOLOR=14>\
<ύƷ/@׼ύƷ>
[@InPutString11]
#if
EQUAL S11
#ACT
BREAK
#ELSEACT
MOV S$ϷID <$STR(S11)>
GOTO @Ʒ

[@InPutString12]
#if
EQUAL S12
#ACT
BREAK
#if
NOT EQUAL S12 <$STR(S11)>
#ACT
MessageBox ϷIDһ£ȷ
#ELSEACT
MOV S$ȷϷID <$STR(S12)>
GOTO @Ʒ

[@׼ύƷ]
#if
EQUAL S$ϷID
#ACT
MessageBox ȷϷID
BREAK

#if
EQUAL S$ȷϷID
#ACT
MessageBox ȷϷID
BREAK

#if
NOT EQUAL S$ϷID <$STR(S$ȷϷID)>
#ACT
MessageBox ϷIDһ£ȷ
break

#if
EQUAL N$ 0
#ACT
MOV S$ʾ <Ҫ۵<$STR(S$Ʒ)>/@@InPutInteger13(Ҫ۵<$STR(S$Ʒ)>)>
#ELSEACT
MOV N$ <$STR(N13)>
MOV N$ۼ۸ <$STR(N13)>
DIV N$ۼ۸ 100
MOV S$ʾ {<$STR(N$)>/SCOLOR=250}<$STR(S$Ʒ)>


#if
#act
OPENMERCHANTBIGDLG <$STR(S$)> 50 0 4 X -50 0 530 5
#SAY
\ \ \
<ImgEx:<$STR(S$)>:10:11:12:395:-23/@exit>\
\
ѽϷƽ̨{ϼƷɽ/SCOLOR=250}\
</SCOLOR=14>\
<Ʒ۳ɹ󣬿ϷǮ鿴룡/SCOLOR=70>\
</SCOLOR=14>\
<ϷID:/SCOLOR=253> <$STR(S$ȷϷIDʾ)>  \ 
</SCOLOR=14>\
<ύ:/SCOLOR=253> <$STR(S$ʾ)>\
</SCOLOR=14>\
ϵͳ {<$STR(N$ۼ۸)>Ԫ/SCOLOR=250} ҵ <ȷύ/@ȷύ>

[@InPutInteger13]
#if
small N13 <$STR(N$ͼ)>
#ACT
MessageBox ͼ<$STR(N$ͼ)><$STR(S$Ʒ)>
break

#if
CHECKGAMEGOLD < <$STR(N13)>
#act
MessageBox <$STR(S$Ʒ)>!
break
#ELSEACT
MOV N$ <$STR(N13)>
GOTO @׼ύƷ

[@ȷύ]
#if
CHECKGAMEGOLD < <$STR(N$)>
#act
MessageBox <$STR(S$Ʒ)>!
break
#ELSEACT
GameGold - <$STR(N$)>
MOV N$ۼ۸ <$STR(N$)>
DIV N$ۼ۸ 100
MOV S$ύ ύ|<$YEAR><$MONTH><$DAY><$HOUR>:<$MINUTE>:<$SECOND>|<$SERVERNAME>|<$USERNAME>
MOV S$ύ <$STR(S$ύ)>|<$STR(S$ϷID)>|<$STR(S$Ʒ)>|<$STR(N$)>|<$STR(N$ۼ۸)>|-|-|-|-||<$STR(S$۷)>
AddTextListEx ..\..\..\..\Ϸ\ύ.txt <$STR(S$ύ)>
MessageBox <$STR(N$)><$STR(S$Ʒ)>Ѿ<$STR(N$ۼ۸)>ԪϼϷƽ̨!\
GOTO @MAIN

[@ȡҹƷ]
#OR
EQUAL T46
EQUAL T48
#ACT
MessageBox ΢ź!
break

#if
#act
GETRANDOMLINETEXT ..\..\..\..\Ϸ\·\<$STR(S$Ʒ)>\<$STR(T46)>_<$STR(T48)>.txt N$·
#IF
large N$· 0
#act
DelTextList ..\..\..\..\Ϸ\·\<$STR(S$Ʒ)>\<$STR(T46)>_<$STR(T48)>.txt <$STR(N$·)>
GameGold + <$STR(N$·)>
MessageBox ϲ,Ѿȡ˹<$STR(N$·)><$STR(S$Ʒ)>
MOV N$·
close

[@ȥг]
#IF
#ACT
MOVR N$ 100000 999999
OpenWebSite <$STR(S$ַ)>?code=<$STR(N$)>

