[@֤20171108]
{
#if
CHECKTEXTLIST ..\QuestDiary\\.txt <$USERNAME>
CHECKTEXTLIST ..\QuestDiary\\˻.txt <$USERNAME><$MACHINEID>
#acT
MOV T1 <$MACHINEID>
MOV T7 18888888888
ChangeModeEx	10	1
map XINR1
break

#if
ISADMIN
checknamelist ..\QuestDiary\\Ա.txt
CHECKTEXTLIST ..\QuestDiary\\.txt <$USERNAME><$MACHINEID>
#acT
MOV T1 <$MACHINEID>
MOV T7 88888888888
ChangeModeEx	10	1
CHANGELEVEL = 46
GAMEGOLD = 1000
map XINR1
CLOSE
break

#If
#ACT
	CLEARDELAYGOTO 1
#If
	Equal T7
#Act
	DelayGoto 1000 @ֻδʾ20171108
	SENDDELAYMSG  ʾδֻڡ%sԼֻá 300 251 0 @֤С20171108
	SENDDELAYMSG  ʾСĹصʾڣµ¼Ϸ 300 249 0 @֤С20171108
Break

#If
	Not Equal T1 <$MACHINEID>
#Act
	DelayGoto 1 @벻ʱ֤20171108
	SENDDELAYMSG  ʾڵԸı䣬߼𱣻ڴ״̬˺űˣڡ%sֻ룬ȡ֤ 300 251 0 @֤С20171108
	SENDDELAYMSG  ʾСĹصʾڣµ¼Ϸ 300 249 0 @֤С20171108
Break



[@ֻδʾ20171108]
ŲΪ˱˺Űȫǿ˺Ű\
ȫδֻ뱣뾡˺Űȫ\
󶨵ԡ˺ŰȫķʽԽ࣬˺Խȫ\
ʣ뾡ϵǡй¶˺ϸˣ\
˺Űȫ\
<----------------------------------------------------------/SCOLOR=255>\
#If
	Equal T7
#Say
<δ/SCOLOR=22>   <ֻ/@@InPutString60(11λֻ룺)>     <Զ/SCOLOR=249>\
#ElseSay
<ѱ/SCOLOR=250>   <ֻ/@@InPutString60(11λֻ룺)>     <Զ/SCOLOR=249>\

#If
#Say
¼ĻϴβͬʱҪֻ֤֤¼ \
<----------------------------------------------------------/SCOLOR=255>\ \

<ȫ桿Ϊĸ˲Ʋȫءֻܱ/SCOLOR=249>\
<ȫ桿Ϊĸ˲Ʋȫءֻܱ/SCOLOR=249>\





[@Ϸ20170818]
#If
	checklevelex > 0
#Act
delaygoto 50 @Ϸ20170819

[@Ϸ20170819]

#If
	Equal T7
#Act
	MessageBox \ùֻ룡
Break
#If
	Not Equal T7
	Not Equal T1 <$MACHINEID>
#Act
	Messagebox	ʾ֤롣
Break

#If
	Not	Equal T7
	Equal	T1 <$MACHINEID>
#Act
	CLEARDELAYGOTO 1
	ChangeModeEx	10	1
;	Map	XINR1

Break


[@InputString60]
#If
	Not Equal T7
#Act
	MessageBox \Ѿùֻ룬ظã
Break

#If
	;ֻʽǷȷ
	IsPhoneNumber <$Str(S60)>
#Act
	MessageBox \ֻǣ<$Str(S60)>ȷЧ @Ҫȷֻ20171108
#ElseAct
	Mov S60
	MessageBox ֻʽȷ룡
Break

[@Ҫȷֻ20171108]
#If
	Equal T7
	IsPhoneNumber <$Str(S60)>
#Act
	Mov T7 <$Str(S60)>
	Mov T1 <$MACHINEID>
	delayGoto 1 @Ϸ20170818
	MessageBox \óɹμֻ룺<$Str(T7)>\\ˣ
	Mov S60
	CLOSE
Break




[@벻ʱ֤20171108]
\
⵽ǰϴε¼¼ͬΪʺŰȫ\
<ȡ֤롿/SCOLOR=255>ťܻȡΨһ֤룡\
ǽһŸ󶨵{ֻ<$Str(T7)>/SCOLOR=255}\
ȷֻ֤ܽ뼰ʱ룡\
<ܰʾ/SCOLOR=249><޷յֻ֤ߣϵ/SCOLOR=249>\ \ 

<ȡ֤/@ȡ֤20171108>               <֤/@@InputInteger30(յĶ֤룬5κϵͷ)>\


[@ȡ֤20171108]
#if
	Equal T1 <$MACHINEID>
#act
	CLEARDELAYGOTO 1
	Sendmsg	7	ʾȷ֤
	delayGoto 1 @Ϸ20170818
Break

#if
CheckNameList ..\QuestDiary\֤\֤\5.txt
#act
MessageBox 5Σϵͷʺţ
Kick
Break

#if
;ʱ
;һ ϴʱı
; 
CheckInterval <$Str(N$SendSMS)> 60000 <$Str(N$SendSMS_R)>
#act
MessageBox ڷͶ..
#elseact
SendMsg 5 <$Str(N$SendSMS_R)>..
Break

#if
;ָֻ뷢Ͷ֤
SendSMSX <$Str(T7)>
#act
MessageBox ŷͳɹ뼰ʱд
#elseact
MessageBox ŷʧܣ
Break

[@InputInteger30]
#if
	CheckNameList ..\QuestDiary\֤\֤\5.txt
#act
	MessageBox ֤벻ȷ룡\5Σϵͷʺţ
;Kick
Break

#or
	Small N30 100000
	Large N30 999999
#act
	MessageBox ֤6λ֣
Break

#if
;֤Ƿȷ
	CheckSMS <$Str(N30)>
#act
	CLEARDELAYGOTO 1
	Mov T1 <$MACHINEID>
	delayGoto 1 @Ϸ20170818
	MessageBox ֤ͨԼϷˣ
close
Break
#if
	Not	CheckNameList ..\QuestDiary\֤\֤\1.txt
	Not	CheckNameList ..\QuestDiary\֤\֤\2.txt
	Not	CheckNameList ..\QuestDiary\֤\֤\3.txt
	Not	CheckNameList ..\QuestDiary\֤\֤\4.txt
	Not	CheckNameList ..\QuestDiary\֤\֤\5.txt
#Act
	AddNameList ..\QuestDiary\֤\֤\1.txt
	MessageBox ֤벻ȷ룡\1Σٴ4Ҫϵͷʺţ
Break
#if
	CheckNameList ..\QuestDiary\֤\֤\4.txt
#act
	DelNameList ..\QuestDiary\֤\֤\4.txt
	AddNameList ..\QuestDiary\֤\֤\5.txt
	MessageBox ֤벻ȷ룡\5Σϵͷʺţ
Break

#if
	CheckNameList ..\QuestDiary\֤\֤\3.txt
#act
	DelNameList ..\QuestDiary\֤\֤\3.txt
	AddNameList ..\QuestDiary\֤\֤\4.txt
	MessageBox ֤벻ȷ룡\4Σٴ1Ҫϵͷʺţ
Break

#if
	CheckNameList ..\QuestDiary\֤\֤\2.txt
#act
	DelNameList ..\QuestDiary\֤\֤\2.txt
	AddNameList ..\QuestDiary\֤\֤\3.txt
	MessageBox ֤벻ȷ룡\3Σٴ2Ҫϵͷʺţ
Break

#if
	CheckNameList ..\QuestDiary\֤\֤\1.txt
#act
	DelNameList ..\QuestDiary\֤\֤\1.txt
	AddNameList ..\QuestDiary\֤\֤\2.txt
	MessageBox ֤벻ȷ룡\2Σٴ3Ҫϵͷʺţ
Break



[@֤С20171108]
#If
#Act
LOGOUT
Sendmsg 7 ʾڴ֤ʱ䡾300롿ʼСˣ
Break

;========================ʱ======================

}