;============================================================
; Ͽ NPCȫͨã
; Э飺űд ύ.txt30/31/32/33 ɼϱƶ  ƶдضļ
;   MKRECEIPT_˺_ʶ.txt  = ״ִ̬  code:1:2:3:4:5:6:7:8:ԭ
;   MKLIST_˺_ʶ.txt     = гб  ÿһ: ||||||
; ű ReadFile + EXTRACTSTRING нþлִȫ
; ֶβ֣ύ.txt һУ":"ָ
;   30 ϼ : ˺::::::ʶ:::ɫ
;   31 ѯ : ˺:ɸѡ:::::ʶ:::ɫ   (ɸѡɿ=ȫ)
;   32  : ˺::::::ʶ:::ɫ (0=ȫ)
;   33  : ˺::::::ʶ:::ɫ
; 7ϵ1(ʵ) 2(ʵ) 3 4~7 ת/չϼָܿûҼƼ
;============================================================
[@гNPC]
; ΪֵGOM  #DEFINE ꣩ټг

#IF
EQUAL T13
#ACT
MOVR T13 1 200000000

#IF
NOT EQUAL S$֤ ɹ
#ACT
MESSAGEBOX ȵNPC¼˺š
break

#SAY
<>            {ԲϿ/FCOLOR=158}\ \
<>  <˵/FCOLOR=222>\
<>  1. ϼܲϡȫҿɼ˭˭ʵ/FCOLOR=221>\
<>  2. 첽ȡڡȡ֧7ֻҼƼ/FCOLOR=221>\
<>  3. ύ㡾ѯ/ˢ¡ȡ/FCOLOR=221>\ \
<>  <ǰ˺: /FCOLOR=222>{<$STR(S$˺)>/scolor=255}\ \
<>  <ϼܲϡ{FCOLOR=155}/@ϼܲ>   <鿴г{FCOLOR=146}/@鿴г>\
<>  <ϡ{FCOLOR=155}/@>   <{FCOLOR=226}/@>\


;============================================================
; ϼܲϣ30
;============================================================
[@ϼܲ]
#IF
SMALL N$ִ 1
#ACT
MESSAGEBOX ʧܣϵͳУԺ
BREAK
#IF
#ACT
MOV S$
MOV N$ 0
MOV N$ϵ 0
MOV S$ϻ 1
; GOM  ///Ƽۻ
GOTO @ϼܲ_

[@ϼܲ_]
#SAY
<>            {ԲϿ/FCOLOR=158}\ \
<> ϼܲ磺ҳ\ \
<> <롿{FCOLOR=155}/@@InPutString21>   <ء{FCOLOR=222}/@гNPC>\

[@InPutString21]
#IF
#ACT
MOV S$ <$STR(S21)>
GOTO @ϼܲ_

[@ϼܲ_]
#SAY
<>            {ԲϿ/FCOLOR=158}\ \
<> {<$STR(S$)>/scolor=255}\ \
<> ϼ\ \
<> <롿{FCOLOR=155}/@@InPutInteger21>   <ء{FCOLOR=222}/@гNPC>\

[@InPutInteger21]
#IF
#ACT
MOV N$ <$STR(N21)>
GOTO @ϼܲ_

[@ϼܲ_]
#SAY
<>            {ԲϿ/FCOLOR=158}\ \
<> {<$STR(S$)>/scolor=255}   {<$STR(N$)>/scolor=255}\ \
<> 뵥ۣ\ \
<> <롿{FCOLOR=155}/@@InPutInteger22>   <ء{FCOLOR=222}/@гNPC>\

[@InPutInteger22]
#IF
#ACT
MOV N$ϵ <$STR(N22)>
GOTO @ϼܲ_

[@ϼܲ_]
#SAY
<>            {ԲϿ/FCOLOR=158}\ \
<> {<$STR(S$)>/scolor=255}   {<$STR(N$)>/scolor=255}   ۣ{<$STR(N$ϵ)>/scolor=255}\ \
<> Ƽۻ루1/2/3/4~7ת\ \
<> <롿{FCOLOR=155}/@@InPutString22>   <ء{FCOLOR=222}/@гNPC>\

[@InPutString22]
#IF
#ACT
MOV S$ϻ <$STR(S22)>
GOTO @ϼܲ_ύ

[@ϼܲ_ύ]
#IF
CheckSTRinglength <$STR(S$)> > 0
LARGE N$ 0
LARGE N$ϵ 0
#ACT
MOV N$ִ 1
AddTextList ../../../../996Bossϵͳ/ύ.txt 30:<$STR(S$˺)>:<$STR(S$)>:<$STR(S$)>:<$STR(N$)>:<$STR(N$ϵ)>:<$STR(S$ϻ)>:<$STR(T13)>:<$SERVERNAME>:<$USERNAME>|<$USERID>
SHOWPROGRESSBARDLG 1 @ϼ ύϼ룬Ժ%d%...
DELAYGOTO 1500 @ϲѯ
BREAK
#ELSEACT
MESSAGEBOX ʧܣ// Ϸ
BREAK


;============================================================
; 鿴г31ɸѡ=ȫ
;============================================================
[@鿴г]
#IF
SMALL N$ִ 1
#ACT
MESSAGEBOX ʧܣϵͳУԺ
BREAK
#IF
#ACT
MOV S$ɸѡ
INPUT S$ɸѡ ɸѡ=ȫ
MOV N$ִ 1
AddTextList ../../../../996Bossϵͳ/ύ.txt 31:<$STR(S$˺)>:<$STR(S$ɸѡ)>:::::<$STR(T13)>:<$SERVERNAME>:<$USERNAME>|<$USERID>
SHOWPROGRESSBARDLG 1 @г ȡгԺ%d%...
DELAYGOTO 1500 @ϲѯ
BREAK


;============================================================
; ϣ32뵥+0=ȫ
;============================================================
[@]
#IF
SMALL N$ִ 1
#ACT
MESSAGEBOX ʧܣϵͳУԺ
BREAK
#IF
#ACT
MOV S$
MOV N$ 0
INPUT S$ ҪĲϵţ鿴гɼ
INPUT N$ 빺0=ȫʣࣩ
MOV N$ִ 1
AddTextList ../../../../996Bossϵͳ/ύ.txt 32:<$STR(S$˺)>::<$STR(S$)>:<$STR(N$)>:::<$STR(T13)>:<$SERVERNAME>:<$USERNAME>|<$USERID>
SHOWPROGRESSBARDLG 1 @ ύԺ%d%...
DELAYGOTO 1500 @ϲѯ
BREAK


;============================================================
; 33
;============================================================
[@]
#IF
SMALL N$ִ 1
#ACT
MESSAGEBOX ʧܣϵͳУԺ
BREAK
#IF
#ACT
MOV N$ִ 1
AddTextList ../../../../996Bossϵͳ/ύ.txt 33:<$STR(S$˺)>:<$STR(S$)>:::::<$STR(T13)>:<$SERVERNAME>:<$USERNAME>|<$USERID>
SHOWPROGRESSBARDLG 1 @ ڽԺ%d%...
DELAYGOTO 1500 @ϲѯ
BREAK


;============================================================
; ѯ/ִ 30/31/32/33 ͳһڣ
;  MKRECEIPT_˺_ʶ.txt  EXTRACTSTRING   ֧
;============================================================
[@ϲѯ]
#IF
NOT EQUAL S$˺
#ACT
MOV N$ִ 0
MESSAGEBOX ˺Ϣ쳣µ¼С
GOTO @гNPC
BREAK

#ACT
; --- ȡ״ִ̬ļлִĶļ---
READPROCESS ../../../../996Bossϵͳ/game/MKRECEIPT_<$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ִ)> SArg7 8
EXTRACTSTRING ":" <$STR(Sִ)> SArg8 9
EXTRACTSTRING ":" <$STR(Sִ)> SReason 10

; --- ֧Aϼܽ(30) ---
#IF
EQUAL SCode 30
#ACT
MOV N$ִ 0
#IF
CheckSTRinglength <$STR(SArg1)> > 0
#ACT
; ϼܳɹұ۳ʵƷۼ汾˶ Take/GameTake
Take <$STR(SArg2)> <$STR(SArg3)>
MESSAGEBOX ϼܳɹ:<$STR(SArg1)> :<$STR(SArg2)> :<$STR(SArg3)> :<$STR(SArg4)> :<$STR(SArg5)>
GOTO @гNPC
BREAK
#ELSEACT
MESSAGEBOX ϼʧܣ<$STR(SReason)>
GOTO @гNPC
BREAK

; --- ֧Bѯ(31) ---
#IF
EQUAL SCode 31
#ACT
MOV N$ִ 0
#IF
LARGE SArg1 0
#ACT
READPROCESS ../../../../996Bossϵͳ/game/MKLIST_<$STR(S$˺)>_<$STR(T13)>.txt 1 SList1
READPROCESS ../../../../996Bossϵͳ/game/MKLIST_<$STR(S$˺)>_<$STR(T13)>.txt 2 SList2
READPROCESS ../../../../996Bossϵͳ/game/MKLIST_<$STR(S$˺)>_<$STR(T13)>.txt 3 SList3
READPROCESS ../../../../996Bossϵͳ/game/MKLIST_<$STR(S$˺)>_<$STR(T13)>.txt 4 SList4
READPROCESS ../../../../996Bossϵͳ/game/MKLIST_<$STR(S$˺)>_<$STR(T13)>.txt 5 SList5
READPROCESS ../../../../996Bossϵͳ/game/MKLIST_<$STR(S$˺)>_<$STR(T13)>.txt 6 SList6
READPROCESS ../../../../996Bossϵͳ/game/MKLIST_<$STR(S$˺)>_<$STR(T13)>.txt 7 SList7
READPROCESS ../../../../996Bossϵͳ/game/MKLIST_<$STR(S$˺)>_<$STR(T13)>.txt 8 SList8
#SAY
<>            {Բг<$STR(SArg1)>/FCOLOR=158}\ \
<>  {ʽ: ||||||/FCOLOR=222}\ \
<>  <$STR(SList1)>\
<>  <$STR(SList2)>\
<>  <$STR(SList3)>\
<>  <$STR(SList4)>\
<>  <$STR(SList5)>\
<>  <$STR(SList6)>\
<>  <$STR(SList7)>\
<>  <$STR(SList8)>\ \
<>  <ϡ{FCOLOR=155}/@>   <ˢ¡{FCOLOR=226}/@鿴г>\
<>  <ء{FCOLOR=222}/@гNPC>\
BREAK
#ELSEACT
MESSAGEBOX ۲ϣѯʧܣ<$STR(SReason)>
GOTO @гNPC
BREAK

; --- ֧C(32) ---
#IF
EQUAL SCode 32
#ACT
MOV N$ִ 0
#IF
CheckSTRinglength <$STR(SArg1)> > 0
#ACT
; ɹҷʵƷ汾˶ Give/GameGive
Give <$STR(SArg2)> <$STR(SArg3)>
MESSAGEBOX ɹ:<$STR(SArg2)> x<$STR(SArg3)> ֧:<$STR(SArg4)> :<$STR(SArg5)> :<$STR(SArg1)>
GOTO @гNPC
BREAK
#ELSEACT
MESSAGEBOX ʧܣ<$STR(SReason)>
GOTO @гNPC
BREAK

; --- ֧D(33) ---
#IF
EQUAL SCode 33
#ACT
MOV N$ִ 0
#IF
LARGE SArg1 0
#ACT
MESSAGEBOX ɹ쵥:<$STR(SArg1)>  <SArg2>:<$STR(SArg3)>  <SArg4>:<$STR(SArg5)>  <SArg6>:<$STR(SArg7)>
GOTO @гNPC
BREAK
#ELSEACT
MESSAGEBOX ޿ȡ<$STR(SReason)>
GOTO @гNPC
BREAK

; --- ףδ ---
MESSAGEBOX δԺ㡾ѯ/ˢ¡޽ϵ
GOTO @гNPC
BREAK


;============================================================
; 
;============================================================
[@س]
; ΪֵGOM 治֧ $(xxx) ź꣩ټг
}