(@@InPutString @@InPutInteger)
[@¼]
{
#IF
CHECKLEVELEX > 0
#ACT
VAR String HUMAN $EJMMSRIP
VAR String HUMAN $EJMMSRBH
VAR String HUMAN $EJMMSRMM
VAR Integer HUMAN $EJMMSRCS
LOADVAR HUMAN $EJMMSRIP ..\QuestDiary\Ҷ\\.txt
LOADVAR HUMAN $EJMMSRCS ..\QuestDiary\Ҷ\\.txt
LOADVAR HUMAN $EJMMSRMM ..\QuestDiary\Ҷ\\.txt
LOADVAR HUMAN $EJMMSRBH ..\QuestDiary\Ҷ\\.txt
GOTO @½2

[@½2]
#IF
CHECKNAMELIST ..\QuestDiary\Ҷ\\.txt
#ACT
DELNAMELIST ..\QuestDiary\Ҷ\\.txt
DELNameList ..\QuestDiary\Ҷ\\.txt
CALCVAR HUMAN $EJMMSRIP = 
SAVEVAR HUMAN $EJMMSRIP ..\QuestDiary\Ҷ\\.txt
CALCVAR HUMAN $EJMMSRBH = 
SAVEVAR HUMAN $EJMMSRBH ..\QuestDiary\Ҷ\\.txt
CALCVAR HUMAN $EJMMSRMM = 
SAVEVAR HUMAN $EJMMSRMM ..\QuestDiary\Ҷ\\.txt
CALCVAR HUMAN $EJMMSRCS = 0
SAVEVAR HUMAN $EJMMSRCS ..\QuestDiary\Ҷ\\.txt

#IF
CHECKNameList ..\QuestDiary\Ҷ\\.txt
#ACT
SENDMSG 7 5δķ,Ϊ˸ýɫİȫ,ѽýɫзմ,ϵԱύ֤Խ.
GMEXECUTE T SELF
BREAK

#IF
CHECKVAR HUMAN $EJMMSRBH = 
#ACT
BREAK

#IF
CHECKVAR HUMAN $EJMMSRCS > 499
#ACT
addnamelist ..\QuestDiary\Ҷ\\.txt
SENDMSG 7 5δķ,Ϊ˸ýɫİȫ,ѽýɫзմ,ϵԱύ֤Խ.
GMEXECUTE T SELF
BREAK

#IF
CHECKVAR HUMAN $EJMMSRIP = 
#ACT
MOV S1 <$IPADDR>
DEC S1 7 16
CALCVAR HUMAN $EJMMSRIP = <$STR(S1)>
SAVEVAR HUMAN $EJMMSRIP ..\QuestDiary\Ҷ\\.txt
break
#ELSEACT
MOV S1 <$IPADDR>
DEC S1 7 16

#IF
CHECKVAR HUMAN $EJMMSRIP = <$STR(S1)>
#ACT
SENDMSG 7 ֤ɹǰĵ½IPΪIPףϷ죡
BREAK
#ELSEACT
DelayCall 60000 @볬ʱ
ChangeModeEx 10 65535
MESSAGEBOX ڼ⵽Ŀǰĵ¼IPϴβͬ.\60ķϷ.
#ELSESAY
ڼ⵽Ŀǰĵ¼IPϴβͬ.\
ĶϷ.\ \ \
</@@InPutString15>

[@볬ʱ]
#IF
#ACT
CALCVAR HUMAN $EJMMSRCS + 1
SAVEVAR HUMAN $EJMMSRCS ..\QuestDiary\Ҷ\\.txt
MESSAGEBOX ֤ʧ,֤ʱ,µ½Ϸ
GMEXECUTE T SELF
break

[@InPutString15]
#IF
CHECKVAR HUMAN $EJMMSRBH = 
#ACT
close
BREAK

#IF
CHECKVAR HUMAN $EJMMSRCS > 499
#ACT
addnamelist ..\QuestDiary\Ҷ\\.txt
SENDMSG 7 5δķ,Ϊ˸ýɫİȫ,ѽýɫзմ,ϵԱύ֤Խ.
GMEXECUTE T SELF
BREAK

#IF
CHECKVAR HUMAN $EJMMSRMM = <$STR(S15)>
#ACT
MOV S1 <$IPADDR>
DEC S1 7 16
CALCVAR HUMAN $EJMMSRIP = <$STR(S1)>
SAVEVAR HUMAN $EJMMSRIP ..\QuestDiary\Ҷ\\.txt
CALCVAR HUMAN $EJMMSRCS = 0
SAVEVAR HUMAN $EJMMSRCS ..\QuestDiary\Ҷ\\.txt
ChangeModeEx 10 1
SENDMSG 7 𾴵[%s],֤ɹ,ףϷ!
MOV S0 
MOV S1 
CLEARDELAYGOTO
CLOSE
BREAK
#ELSEACT
CALCVAR HUMAN $EJMMSRCS + 1
SAVEVAR HUMAN $EJMMSRCS ..\QuestDiary\Ҷ\\.txt
GOTO @¼2
MESSAGEBOX \֤ʧܣ룡
BREAK

[@IsInFilterList]
#IF
CheckLevelEx > 0 
#ACT
MESSAGEBOX а˷Ƿַ.±༭
BREAK
}
