;============================================================
; ת NPCִͨ RBRECEIPT/ת/ǩ/ȫ
; ȵNPC¼S$֤=ɹ
; ִļ../../../../996Bossϵͳ/game/RBRECEIPT_<$STR(S$˺)>_<$STR(T13)>.txt = game/RBRECEIPT_<˺>_<ʶ>.txt
; ύиʽ41:˺:ʶ:ǰ:|ɫ[:do]
;   ˵scanner  type41 Ϊ p1=(do=ִ, =ѯ), uid=ʶ, server=ǰ
; ѯɹ̨ code=41data
;   SArg1=ǰȼ  SArg2=һ(0=)  SArg3=Ļ  SArg4=
;   SArg5=һʼӳ(%)  SArg6=ۼʼӳ(%)
; ִгɹ̨ code=411dataSArg1=תɹ  SArg2=µȼ  SArg3=ӳ(%)
; ִʧܣcode 400(/) / 404(˺쳣)ԭ=SReason
; ִԭ·
;   ѯд ύ.txt(41,޶)  ɼ  RebirthService.get_info  RBRECEIPT
;   ִУд ύ.txt(41,do)  ɼ  RebirthService.rebirth(+)  RBRECEIPT
;   ű ReadFile+EXTRACTSTRING չʾתƶ㣬Ϸڻͳһƶˡ
;============================================================
[@תNPC]
#IF
EQUAL S$֤ ɹ
#ACT
; ΪֵGOM 治֧ $(xxx) ź꣩ټг
#SAY
\ \ <TITLE: ת >
\ \ 
\ \   ǰ˺ţ<$STR(S$˺)>  
\ \ 
\ \ תʼӳɡ
\ \ <TAB> 鿴תϢ
\ \ <TAB> ִת
\ \ <TAB> ת˵
#IF
EQUAL S$ͷInput 1
#ACT
GOTO @ѯת
#IF
EQUAL S$ͷInput 2
#ACT
GOTO @ִת
#IF
EQUAL S$ͷInput 3
#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 41:<$STR(S$˺)>:<$STR(T13)>:<$SERVERNAME>:<$USERNAME>|<$USERID>
SHOWPROGRESSBARDLG ڲѯתϢ... 1
DELAYGOTO 1500 @תѯ
#ELSEACT
MESSAGEBOX ϵͳУԺ
break

[@תѯ]
#IF
EQUAL N$תִ 1
#ACT
READPROCESS ../../../../996Bossϵͳ/game/RBRECEIPT_<$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 41----
#IF
EQUAL SCode 41
#ACT
MOV N$תִ 0
#IF
EQUAL SArg2 0
#ACT
MESSAGEBOX תϢ\nǰתȼ <$STR(SArg1)>\nѴתȼ\nۼʼӳ <$STR(SArg6)>%
break
#ACT
MESSAGEBOX תϢ\nǰתȼ <$STR(SArg1)>\nһ <$STR(SArg2)> Ļ<SArg3> <$STR(SArg4)>\nһʼӳ <$STR(SArg5)>%\nۼʼӳ <$STR(SArg6)>%
break
;---- δ ----
#ELSEACT
MOV N$תִ 0
MESSAGEBOX δִԺԣȷϲɼѵ¼
break

[@ִת]
#IF
SMALL N$תִ 1
#ACT
#SAY
\ \ ȷҪִתתƶҡ
\ \ <TAB> ȷת
\ \ <TAB> ȡ
#IF
EQUAL S$ͷInput 1
#ACT
MOV N$תִ 1
AddTextList ../../../../996Bossϵͳ/ύ.txt 41:<$STR(S$˺)>:<$STR(T13)>:<$SERVERNAME>:<$USERNAME>|<$USERID>:do
SHOWPROGRESSBARDLG ִת... 1
DELAYGOTO 1500 @תִвѯ
#IF
EQUAL S$ͷInput 2
#ACT
GOTO @תNPC
#ELSEACT
MESSAGEBOX ϵͳУԺ
break

[@תִвѯ]
#IF
EQUAL N$תִ 1
#ACT
READPROCESS ../../../../996Bossϵͳ/game/RBRECEIPT_<$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ִ)> SReason 10
;---- תɹcode 411----
#IF
EQUAL SCode 411
#ACT
MOV N$תִ 0
MESSAGEBOX תɹ\nǰתȼ <$STR(SArg2)>\nǰʼӳ <$STR(SArg3)>%
break
;---- ʧܣ400  / 404 ˺쳣----
#IF
EQUAL SCode 400
#ACT
MOV N$תִ 0
MESSAGEBOX תʧܣ<$STR(SReason)>
break
#IF
EQUAL SCode 404
#ACT
MOV N$תִ 0
MESSAGEBOX תʧܣ<$STR(SReason)>
break
;---- δ ----
#ELSEACT
MOV N$תִ 0
MESSAGEBOX δִԺԡ
break