;============================================================
; Ϣ NPCִͨ INTRRECEIPT/ת/ǩ/ȫ
; ȵNPC¼S$֤=ɹ
; ִļ../../../../996Bossϵͳ/game/INTRRECEIPT_<$STR(S$˺)>_<$STR(T13)>.txt = game/INTRRECEIPT_<˺>_<ʶ>.txt
; ύиʽ40:˺:ʶ:ǰ:|ɫ
;   ˵scanner  type40 Ϊ uid=ʶ, server=ǰǩ8һ£
; ɹ̨ code=40data
;   SArg1=Ч(%)  SArg2=ԤϢ  SArg3=ۼѷϢ
;   SArg4=ǰ(1)  SArg5=Ϣϸ  SArg6=תȼ
; ִԭ·
;   ҵNPC    AddTextList д ύ.txt(40)  ɼ scanner 
;    backend InterestService.npc_query  д INTRRECEIPT ļ
;    ű ReadFile+EXTRACTSTRING  code/չʾ
;   ϢÿƶԶNPC/ѯչʾֶȡ
;============================================================
[@ϢNPC]
#IF
EQUAL S$֤ ɹ
#ACT
; ΪֵGOM 治֧ $(xxx) ź꣩ټг
#SAY
\ \ <TITLE: Ϣ >
\ \ 
\ \   ǰ˺ţ<$STR(S$˺)>  
\ \ 
\ \ ÿհЧԶϢϢѼ
\ \ <TAB> ѯҵϢ
\ \ <TAB> Ϣ˵
#IF
EQUAL S$ͷInput 1
#ACT
GOTO @ִϢ
#IF
EQUAL S$ͷInput 2
#ACT
GOTO @Ϣ˵

[@Ϣ˵]
#SAY
\ \ <TITLE: Ϣ˵ >
\ \ Ч =  + תȼ0.05%
\ \ ϢÿƶԶ㲢ֶȡ
\ \ <TAB> 
#IF
EQUAL S$ͷInput 1
#ACT
GOTO @ϢNPC

[@ִϢ]
#IF
SMALL N$Ϣִ 1
#ACT
MOV N$Ϣִ 1
AddTextList ../../../../996Bossϵͳ/ύ.txt 40:<$STR(S$˺)>:<$STR(T13)>:<$SERVERNAME>:<$USERNAME>|<$USERID>
SHOWPROGRESSBARDLG ڲѯϢ... 1
DELAYGOTO 1500 @Ϣѯ
#ELSEACT
MESSAGEBOX ϵͳУԺ
break

[@Ϣѯ]
#IF
EQUAL N$Ϣִ 1
#ACT
READPROCESS ../../../../996Bossϵͳ/game/INTRRECEIPT_<$STR(S$˺)>_<$STR(T13)>.txt 0 Sִ
EXTRACTSTRING ":" <$STR(Sִ)> SCode 1
EXTRACTSTRING ":" <$STR(Sִ)> SArg1 2
EXTRACTSTRING ":" <$STR(Sִ)> SArg2 3
EXTRACTSTRING ":" <$STR(Sִ)> SArg3 4
EXTRACTSTRING ":" <$STR(Sִ)> SArg4 5
EXTRACTSTRING ":" <$STR(Sִ)> SArg5 6
EXTRACTSTRING ":" <$STR(Sִ)> SArg6 7
EXTRACTSTRING ":" <$STR(Sִ)> SReason 10
;---- ѯɹcode 40----
#IF
EQUAL SCode 40
#ACT
MOV N$Ϣִ 0
MESSAGEBOX Ϣѯɹ\nЧ <$STR(SArg1)>%\nԤϢ <$STR(SArg2)>\nۼѷϢ <$STR(SArg3)>\nǰ(1) <$STR(SArg4)>\nϢϸ <$STR(SArg5)> \nתȼ <$STR(SArg6)>
break
;---- δ ----
#ELSEACT
MOV N$Ϣִ 0
MESSAGEBOX δִԺԣȷϲɼѵ¼
break