blue引擎元宝商人全套脚本下载安装：
1.数据库称号DB
2.NPC脚本
[@加载Bluem2.net_商人发货QF]
{
[@UserCmd88]
#IF
CHECK [0] 0
#ACT
ReadRandomLine ..\QuestDiary\Bluem2.net_商人发货配置\抽取数据\空格.txt S0
MOV S10 <$PARAM(1)>
MOV P9 <$PARAM(2)>
#IF
EQUAL S10
#ACT
MOV P9 0
#IF
SMALL P9 1
#ACT
MOV S10 " "
SENDMSG 6 格式错误！格式：@发货<$STR(S10)>玩家名字<$STR(S10)>数量
MOV S10
BREAK
#IF
CHECK [0] 0
#ACT
CALCVAR HUMAN 商人发货名字 = <$STR(S10)>
CALCVAR HUMAN 商人发货数量 = <$STR(P9)>
#IF
CHECKVAR HUMAN 商人发货名字 = <$USERNAME>
#ACT
SENDMSG 6 对不起，不能输入自己的名字！
MOV S10
BREAK
#IF
checkonline <$HUMAN(商人发货名字)>
#ELSEACT
SENDMSG 6 对不起，输入的玩家不在线，请核对输入的名字是否正确！
MOV S10
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\Bluem2.net_商人发货配置\☆授权元宝商人☆.txt HardDisk
#ACT
MOV P0 1
#ELSEACT
MOV P0 0
#IF
EQUAL P0 0
CHECKSTRINGLIST ..\QuestDiary\Bluem2.net_商人发货配置\☆授权元宝商人☆.txt <$HUMAN(商人发货名字)> HardDisk
#ACT
MOV P0 2
#IF
SMALL P0 1
#ACT
SENDMSG 6 对不起，【<$HUMAN(商人发货名字)>】不是授权商人，无法回收元宝给他！
MOV S10
BREAK
#IF
CHECKVAR HUMAN 商人发货数量 > 100000000
#ACT
SENDMSG 6 对不起，数量最多只能输入（1-1亿）！
MOV S10
BREAK
#IF
CHECKVAR HUMAN 商人发货数量 < 1
#ACT
SENDMSG 6 对不起，数量最多只能输入（1-1亿）！
MOV S10
BREAK
#IF
CHECKGAMEGOLD < <$HUMAN(商人发货数量)>
#ACT
SENDMSG 6 对不起，您的元宝数量不够<$HUMAN(商人发货数量)>个！
MOV S10
BREAK
#IF
CHECK [0] 0
#ACT
DELAYGOTO 3 @Bluem2.net_商人发货NPC
[@Bluem2.net_商人发货NPC]
#IF
CHECKNAMELIST ..\QuestDiary\Bluem2.net_商人发货配置\☆授权元宝商人☆.txt HardDisk
#ACT
MOV P0 1
#ELSEACT
MOV P0 0
#IF
EQUAL P0 0
CHECKSTRINGLIST ..\QuestDiary\Bluem2.net_商人发货配置\☆授权元宝商人☆.txt <$HUMAN(商人发货名字)> HardDisk
#ACT
MOV P0 2
#IF
CHECK [0] 0
#ACT
MOV P7 <$HUMAN(商人发货数量)>
MOV P8 <$HUMAN(商人发货数量)>
DIV P8 100000000
MOV S10 （
#IF
LARGE P8 0
#ACT
INC S10 <$STR(P8)>亿
MUL P8 100000000
DEC P7 <$STR(P8)>
#IF
CHECK [0] 0
#ACT
MOV P8 <$STR(P7)>
DIV P8 10000
#IF
LARGE P8 0
#ACT
INC S10 <$STR(P8)>万
MUL P8 10000
DEC P7 <$STR(P8)>
#IF
LARGE P7 0
#ACT
INC S10 <$STR(P7)>
#IF
CHECKVAR HUMAN 商人发货数量 < 10000
#ACT
MOV S10
#ELSEACT
INC S10 ）
;------------
#IF
CHECKVAR HUMAN 今日发货数量Y ? 1
#ACT
MOV S12 （<$HUMAN(今日发货数量Y)>亿
MOV P7 <$HUMAN(今日发货数量)>
MOV P8 <$HUMAN(今日发货数量)>
DIV P8 10000
#ELSEACT
MOV S12 （
MOV P7 <$HUMAN(今日发货数量)>
MOV P8 <$HUMAN(今日发货数量)>
DIV P8 10000
#IF
LARGE P8 0
#ACT
INC S12 <$STR(P8)>万
MUL P8 10000
DEC P7 <$STR(P8)>
#IF
LARGE P7 0
#ACT
INC S12 <$STR(P7)>）<$STR(S0)>
DEC S12 20 100
CALCVAR HUMAN 今日发货显示 = <$STR(S12)>
#ELSEACT
INC S12 ）<$STR(S0)>
DEC S12 20 100
CALCVAR HUMAN 今日发货显示 = <$STR(S12)>
;------------
#IF
CHECKVAR HUMAN 历史发货数量Y ? 1
#ACT
MOV S12 （<$HUMAN(历史发货数量Y)>亿
MOV P7 <$HUMAN(历史发货数量)>
MOV P8 <$HUMAN(历史发货数量)>
DIV P8 10000
#ELSEACT
MOV S12 （
MOV P7 <$HUMAN(历史发货数量)>
MOV P8 <$HUMAN(历史发货数量)>
DIV P8 10000
#IF
LARGE P8 0
#ACT
INC S12 <$STR(P8)>万
MUL P8 10000
DEC P7 <$STR(P8)>
#IF
LARGE P7 0
#ACT
INC S12 <$STR(P7)>）<$STR(S0)>
DEC S12 20 100
CALCVAR HUMAN 历史发货显示 = <$STR(S12)>
#ELSEACT
INC S12 ）<$STR(S0)>
DEC S12 20 100
CALCVAR HUMAN 历史发货显示 = <$STR(S12)>
#IF
EQUAL P0 1
#SAY
<COLOR=#$0079FF 〝≈><COLOR=#$00A0FF 傲><COLOR=#$00B1FF 世><COLOR=#$00C2FF 傳><COLOR=#$00D3FF 奇><COLOR=#$00B1FF ≈><COLOR=#$00FFC5 正版><COLOR=#$00FFD6 授权><COLOR=#$00FFE7 ≈><COLOR=#$00FFF8 公司><COLOR=#$00F5FF 运营><COLOR=#$00E4FF ≈><COLOR=#$00D3FF 独><COLOR=#$00C2FF 家><COLOR=#$00B1FF 奉><COLOR=#$00A0FF 献><COLOR=#$0079FF ≈〞>\
<COLOR=#$00393942 ────────────────────────────────>\
<玩家姓名/@@InPutString10>：<$HUMAN(商人发货名字)>\
<发货数量/@@InPutInteger10>：<$HUMAN(商人发货数量)><$STR(S10)>\
<COLOR=#$00FFDD44 是否确定发货给该玩家？> <[确定发货]/@商人发货确认> <[取消发货]/@exit>\ \
<COLOR=#$2FFFAD 您当前剩余的元宝>：（<$GAMEGOLD>）\
<COLOR=#$EE82EE 今日赠送元宝累计>：<$HUMAN(今日发货显示)>←<清零该数据/@清发货数据1>\
;<COLOR=#$00A5FF 昨日赠送元宝累计>：<$HUMAN(昨日发货显示)>←<清零该数据/@清发货数据2>\
<COLOR=#$FF901E 历史赠送元宝累计>：<$HUMAN(历史发货显示)>←<清零该数据/@清发货数据3>\ \
<> <[赠送记录查询]/@SRFH赠送记录> <[回收记录查询]/@SRFH回收记录>\ \
<COLOR=#$FF00FF 在线快速输入名字和赠送数量命令：@发货 玩家名字 赠送数量>
#ACT
NPC_DLG_OPTIONS 0 QFunction 2 2 MerchantDlg.png
BREAK
#ELSEACT
GOTO @商人发货确认
BREAK
;#ELSESAY
; <COLOR=#$0079FF 〝≈><COLOR=#$00A0FF 傲><COLOR=#$00B1FF 世><COLOR=#$00C2FF 傳><COLOR=#$00D3FF 奇><COLOR=#$00B1FF ≈><COLOR=#$00FFC5 正版><COLOR=#$00FFD6 授权><COLOR=#$00FFE7 ≈><COLOR=#$00FFF8 公司><COLOR=#$00F5FF 运营><COLOR=#$00E4FF ≈><COLOR=#$00D3FF 独><COLOR=#$00C2FF 家><COLOR=#$00B1FF 奉><COLOR=#$00A0FF 献><COLOR=#$0079FF ≈〞>\
;<COLOR=#$00393942 ────────────────────────────────>\
;<玩家姓名/@@InPutString10>：<$HUMAN(商人发货名字)>\
;<发货数量/@@InPutInteger10>：<$HUMAN(商人发货数量)><$STR(S10)>\
;<COLOR=#$009F00DF 是否确定回收元宝给该商人？> <[确定回收]/@商人发货确认> <[取消回收]/@exit>\ \
;<COLOR=#$2FFFAD 您当前剩余的元宝>：<$GAMEGOLD>\
;<COLOR=#$EE82EE 今日赠送元宝累计>：<$HUMAN(今日发货显示)>←<清零该数据/@清发货数据1>\
;;<COLOR=#$00A5FF 昨日赠送元宝累计>：<$HUMAN(昨日发货显示)>←<清零该数据/@清发货数据2>\
;<COLOR=#$FF901E 历史赠送元宝累计>：<$HUMAN(历史发货显示)>←<清零该数据/@清发货数据3>\ \
;<> <[赠送记录查询]/@SRFH赠送记录> <[回收记录查询]/@SRFH回收记录>\ \
;<COLOR=#$FF00FF 在线快速输入名字和赠送数量命令：@发货 玩家名字 赠送数量>
[@清发货数据1]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 今日发货数量 = 0 ..\QuestDiary\数据文件\商人发货_J私人变量.txt
CALCVAR HUMAN 今日发货数量Y = 0 ..\QuestDiary\数据文件\商人发货_J私人变量.txt
GOTO @Bluem2.net_商人发货NPC
BREAK
[@清发货数据3]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 历史发货数量 = 0 ..\QuestDiary\数据文件\商人发货_私人变量.txt
CALCVAR HUMAN 历史发货数量Y = 0 ..\QuestDiary\数据文件\商人发货_私人变量.txt
GOTO @Bluem2.net_商人发货NPC
BREAK
[@@InPutString10]
#IF
EQUAL S10 <$USERNAME>
#ACT
SENDMSG 6 对不起，不能输入自己的名字！
MOV S10
BREAK
#IF
checkonline <$STR(S10)>
#ELSEACT
SENDMSG 6 对不起，输入的玩家不在线，请核对输入的名字是否正确！
MOV S10
BREAK
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货名字 = <$STR(S10)>
#IF
CHECKNAMELIST ..\QuestDiary\Bluem2.net_商人发货配置\☆授权元宝商人☆.txt HardDisk
#ACT
MOV P0 1
#ELSEACT
MOV P0 0
#IF
EQUAL P0 0
CHECKSTRINGLIST ..\QuestDiary\Bluem2.net_商人发货配置\☆授权元宝商人☆.txt <$HUMAN(商人发货名字)> HardDisk
#ACT
MOV P0 2
#IF
SMALL P0 1
#ACT
SENDMSG 6 对不起，【<$HUMAN(商人发货名字)>】不是授权商人，无法回收元宝给他！
MOV S10
BREAK
#IF
CHECKLEVELEX > 0
#ACT
GOTO @Bluem2.net_商人发货NPC
BREAK
[@@InPutInteger10]
#IF
CHECKVAR HUMAN 商人发货名字 =
#ACT
#ACT
SENDMSG 6 请先输入正确的玩家名字！
BREAK
#IF
EQUAL S10 <$HUMAN(商人发货名字)>
#ACT
SENDMSG 6 对不起，不能输入自己的名字！
MOV S10
BREAK
#IF
checkonline <$HUMAN(商人发货名字)>
#ELSEACT
SENDMSG 6 对不起，输入的玩家不在线，请核对输入的名字是否正确！
MOV S10
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\Bluem2.net_商人发货配置\☆授权元宝商人☆.txt HardDisk
#ACT
MOV P0 1
#ELSEACT
MOV P0 0
#IF
EQUAL P0 0
CHECKSTRINGLIST ..\QuestDiary\Bluem2.net_商人发货配置\☆授权元宝商人☆.txt <$HUMAN(商人发货名字)> HardDisk
#ACT
MOV P0 2
#IF
SMALL P0 1
#ACT
SENDMSG 6 对不起，【<$HUMAN(商人发货名字)>】不是授权商人，无法回收元宝给他！
MOV S10
BREAK
#IF
LARGE M10 100000000
#ACT
SENDMSG 6 对不起，数量最多只能输入1亿！
BREAK
#IF
LARGE M10 0
#ACT
CALCVAR HUMAN 商人发货数量 = <$STR(M10)>
MOV M10 0
GOTO @Bluem2.net_商人发货NPC
BREAK
;---------------------------
[@删除发货01]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 9
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 1
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH赠送记录显示
[@删除发货02]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 8
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 2
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH赠送记录显示
[@删除发货03]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 7
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 3
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH赠送记录显示
[@删除发货04]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 6
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 4
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH赠送记录显示
[@删除发货05]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 5
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 5
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH赠送记录显示
[@删除发货06]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 4
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 6
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH赠送记录显示
[@删除发货07]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 3
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 7
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH赠送记录显示
[@删除发货08]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 2
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 8
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH赠送记录显示
[@删除发货09]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 1
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 9
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH赠送记录显示
[@删除发货10]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 10
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH赠送记录显示
;---------------------------
[@SRFH赠送记录]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 0
GOTO @SRFH赠送记录显示
BREAK
[@SRFH赠送记录显示]
#IF
CHECKLEVELEX > 0
#ACT
ReadRandomLine ..\QuestDiary\Bluem2.net_商人发货配置\抽取数据\空格.txt S0
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除发货01>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS01 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除发货02>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS02 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除发货03>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS03 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除发货04>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS04 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除发货05>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS05 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除发货06>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS06 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除发货07>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS07 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除发货08>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS08 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除发货09>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS09 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除发货10>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS10 = <$STR(S11)>
#IF
CHECKVAR HUMAN 商人发货计算1 = 10
#ACT
MOV S12 <COLOR=clRED
INC S12
INC S12 １> <２/@2赠送> <３/@3赠送> <４/@4赠送> <５/@5赠送> <６/@6赠送> <７/@7赠送> <８/@8赠送> <９/@9赠送>
#IF
CHECKVAR HUMAN 商人发货计算1 = 20
#ACT
MOV S12 <１/@1赠送> <COLOR=clRED
INC S12
INC S12 ２> <３/@3赠送> <４/@4赠送> <５/@5赠送> <６/@6赠送> <７/@7赠送> <８/@8赠送> <９/@9赠送>
#IF
CHECKVAR HUMAN 商人发货计算1 = 30
#ACT
MOV S12 <１/@1赠送> <２/@2赠送> <COLOR=clRED
INC S12
INC S12 ３> <４/@4赠送> <５/@5赠送> <６/@6赠送> <７/@7赠送> <８/@8赠送> <９/@9赠送>
#IF
CHECKVAR HUMAN 商人发货计算1 = 40
#ACT
MOV S12 <１/@1赠送> <２/@2赠送> <３/@3赠送> <COLOR=clRED
INC S12
INC S12 ４> <５/@5赠送> <６/@6赠送> <７/@7赠送> <８/@8赠送> <９/@9赠送>
#IF
CHECKVAR HUMAN 商人发货计算1 = 50
#ACT
MOV S12 <１/@1赠送> <２/@2赠送> <３/@3赠送> <４/@4赠送> <COLOR=clRED
INC S12
INC S12 ５> <６/@6赠送> <７/@7赠送> <８/@8赠送> <９/@9赠送>
#IF
CHECKVAR HUMAN 商人发货计算1 = 60
#ACT
MOV S12 <１/@1赠送> <２/@2赠送> <３/@3赠送> <４/@4赠送> <５/@5赠送> <COLOR=clRED
INC S12
INC S12 ６> <７/@7赠送> <８/@8赠送> <９/@9赠送>
#IF
CHECKVAR HUMAN 商人发货计算1 = 70
#ACT
MOV S12 <１/@1赠送> <２/@2赠送> <３/@3赠送> <４/@4赠送> <５/@5赠送> <６/@6赠送> <COLOR=clRED
INC S12
INC S12 ７> <８/@8赠送> <９/@9赠送>
#IF
CHECKVAR HUMAN 商人发货计算1 = 80
#ACT
MOV S12 <１/@1赠送> <２/@2赠送> <３/@3赠送> <４/@4赠送> <５/@5赠送> <６/@6赠送> <７/@7赠送> <COLOR=clRED
INC S12
INC S12 ８> <９/@9赠送>
#IF
CHECKVAR HUMAN 商人发货计算1 = 90
#ACT
MOV S12 <１/@1赠送> <２/@2赠送> <３/@3赠送> <４/@4赠送> <５/@5赠送> <６/@6赠送> <７/@7赠送> <８/@8赠送> <COLOR=clRED
INC S12
INC S12 ９>
#IF
CHECKVAR HUMAN 商人发货计算1 > 100
#ACT
MOV S12 <１/@1赠送> <２/@2赠送> <３/@3赠送> <４/@4赠送> <５/@5赠送> <６/@6赠送> <７/@7赠送> <８/@8赠送> <９/@9赠送>
#IF
CHECKLEVELEX > 0
#SAY
<COLOR=#$0079FF 〝≈><COLOR=#$00A0FF 傲><COLOR=#$00B1FF 世><COLOR=#$00C2FF 傳><COLOR=#$00D3FF 奇><COLOR=#$00B1FF ≈><COLOR=#$00FFC5 发货><COLOR=#$00FFD6 记录><COLOR=#$00FFE7 ≈><COLOR=#$00FFF8 蓝色><COLOR=#$00F5FF 出品><COLOR=#$00E4FF ≈><COLOR=#$00D3FF 必><COLOR=#$00C2FF 属><COLOR=#$00B1FF 精><COLOR=#$00A0FF 品><COLOR=#$0079FF ≈〞> <[清理]/@清理私人发货>\
<COLOR=#$00393942 ────────────────────────────────>\
<$HUMAN(发货记录XS01)>\
<$HUMAN(发货记录XS02)>\
<$HUMAN(发货记录XS03)>\
<$HUMAN(发货记录XS04)>\
<$HUMAN(发货记录XS05)>\
<$HUMAN(发货记录XS06)>\
<$HUMAN(发货记录XS07)>\
<$HUMAN(发货记录XS08)>\
<$HUMAN(发货记录XS09)>\
<$HUMAN(发货记录XS10)>\
#ACT
NPC_DLG_OPTIONS 0 QFunction 2 2 MerchantDlg.png
#IF
CHECKVAR HUMAN 商人发货计算1 = 10
#SAY
<$STR(S12)> <COLOR=CLRED 上一页> <下一页/@SRFH赠送记录显示> <[返回]/@Bluem2.net_商人发货NPC>
#IF
CHECKVAR HUMAN 商人发货计算1 > 10
#SAY
<$STR(S12)> <上一页/@SRFH赠送上一页> <下一页/@SRFH赠送记录显示> <[返回]/@Bluem2.net_商人发货NPC>
[@清理私人发货]
#ACT
CLEARNAMELIST ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.TXT
GOTO @SRFH赠送记录
BREAK
[@SRFH赠送上一页]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 - 20
GOTO @SRFH赠送记录显示
BREAK
[@1赠送]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 0
GOTO @SRFH赠送记录显示
BREAK
[@2赠送]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 10
GOTO @SRFH赠送记录显示
BREAK
[@3赠送]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 20
GOTO @SRFH赠送记录显示
BREAK
[@4赠送]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 30
GOTO @SRFH赠送记录显示
BREAK
[@5赠送]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 40
GOTO @SRFH赠送记录显示
BREAK
[@6赠送]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 50
GOTO @SRFH赠送记录显示
BREAK
[@7赠送]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 60
GOTO @SRFH赠送记录显示
BREAK
[@8赠送]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 70
GOTO @SRFH赠送记录显示
BREAK
[@9赠送]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 80
GOTO @SRFH赠送记录显示
BREAK
;--------------------------------------------------------------------------------------
[@删除回收01]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 9
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 1
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH回收记录显示
[@删除回收02]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 8
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 2
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH回收记录显示
[@删除回收03]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 7
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 3
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH回收记录显示
[@删除回收04]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 6
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 4
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH回收记录显示
[@删除回收05]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 5
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 5
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH回收记录显示
[@删除回收06]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 4
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 6
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH回收记录显示
[@删除回收07]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 3
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 7
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH回收记录显示
[@删除回收08]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 2
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 8
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH回收记录显示
[@删除回收09]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
CALCVAR HUMAN 商人发货计算2 - 1
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 9
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH回收记录显示
[@删除回收10]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算2 = <$HUMAN(商人发货计算1)>
MOV S1
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
#IF
EQUAL S1
#ACT
MESSAGEBOX 此处无记录！
#ELSEACT
DELETELINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算2)> S1
CALCVAR HUMAN 商人发货计算2 - 10
CALCVAR HUMAN 商人发货计算1 = <$HUMAN(商人发货计算2)>
GOTO @SRFH回收记录显示
;---------------------------
[@SRFH回收记录]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 0
GOTO @SRFH回收记录显示
BREAK
[@SRFH回收记录显示]
#IF
CHECKLEVELEX > 0
#ACT
ReadRandomLine ..\QuestDiary\Bluem2.net_商人发货配置\抽取数据\空格.txt S0
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除回收01>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS01 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除回收02>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS02 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除回收03>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS03 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除回收04>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS04 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除回收05>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS05 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除回收06>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS06 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除回收07>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS07 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除回收08>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS08 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除回收09>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS09 = <$STR(S11)>
CALCVAR HUMAN 商人发货计算1 + 1
MOV S1
MOV S10 <$HUMAN(商人发货计算1)>.<$STR(S0)>
DEC S10 6 100
READLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT <$HUMAN(商人发货计算1)> S1
StrTok S1 S3 |
StrTok S1 S2 |
MOV S3 <$STR(S3)><$STR(S0)>
DEC S3 18 200
MOV S2 <$STR(S2)><$STR(S0)>
DEC S2 13 200
MOV S1 <$STR(S1)><$STR(S0)>
DEC S1 26 200
INC S1 <[删除]/@删除回收10>
MOV S11 <COLOR=#$00FFCC
INC S11
INC S11 <$STR(S10)>>
INC S11 <$STR(S3)><$STR(S2)><$STR(S1)>
CALCVAR HUMAN 发货记录XS10 = <$STR(S11)>
#IF
CHECKVAR HUMAN 商人发货计算1 = 10
#ACT
MOV S12 <COLOR=clRED
INC S12
INC S12 １> <２/@2回收> <３/@3回收> <４/@4回收> <５/@5回收> <６/@6回收> <７/@7回收> <８/@8回收> <９/@9回收>
#IF
CHECKVAR HUMAN 商人发货计算1 = 20
#ACT
MOV S12 <１/@1回收> <COLOR=clRED
INC S12
INC S12 ２> <３/@3回收> <４/@4回收> <５/@5回收> <６/@6回收> <７/@7回收> <８/@8回收> <９/@9回收>
#IF
CHECKVAR HUMAN 商人发货计算1 = 30
#ACT
MOV S12 <１/@1回收> <２/@2回收> <COLOR=clRED
INC S12
INC S12 ３> <４/@4回收> <５/@5回收> <６/@6回收> <７/@7回收> <８/@8回收> <９/@9回收>
#IF
CHECKVAR HUMAN 商人发货计算1 = 40
#ACT
MOV S12 <１/@1回收> <２/@2回收> <３/@3回收> <COLOR=clRED
INC S12
INC S12 ４> <５/@5回收> <６/@6回收> <７/@7回收> <８/@8回收> <９/@9回收>
#IF
CHECKVAR HUMAN 商人发货计算1 = 50
#ACT
MOV S12 <１/@1回收> <２/@2回收> <３/@3回收> <４/@4回收> <COLOR=clRED
INC S12
INC S12 ５> <６/@6回收> <７/@7回收> <８/@8回收> <９/@9回收>
#IF
CHECKVAR HUMAN 商人发货计算1 = 60
#ACT
MOV S12 <１/@1回收> <２/@2回收> <３/@3回收> <４/@4回收> <５/@5回收> <COLOR=clRED
INC S12
INC S12 ６> <７/@7回收> <８/@8回收> <９/@9回收>
#IF
CHECKVAR HUMAN 商人发货计算1 = 70
#ACT
MOV S12 <１/@1回收> <２/@2回收> <３/@3回收> <４/@4回收> <５/@5回收> <６/@6回收> <COLOR=clRED
INC S12
INC S12 ７> <８/@8回收> <９/@9回收>
#IF
CHECKVAR HUMAN 商人发货计算1 = 80
#ACT
MOV S12 <１/@1回收> <２/@2回收> <３/@3回收> <４/@4回收> <５/@5回收> <６/@6回收> <７/@7回收> <COLOR=clRED
INC S12
INC S12 ８> <９/@9回收>
#IF
CHECKVAR HUMAN 商人发货计算1 = 90
#ACT
MOV S12 <１/@1回收> <２/@2回收> <３/@3回收> <４/@4回收> <５/@5回收> <６/@6回收> <７/@7回收> <８/@8回收> <COLOR=clRED
INC S12
INC S12 ９>
#IF
CHECKVAR HUMAN 商人发货计算1 > 100
#ACT
MOV S12 <１/@1回收> <２/@2回收> <３/@3回收> <４/@4回收> <５/@5回收> <６/@6回收> <７/@7回收> <８/@8回收> <９/@9回收>
#IF
CHECKLEVELEX > 0
#SAY
<COLOR=#$0079FF 〝≈><COLOR=#$00A0FF 傲><COLOR=#$00B1FF 世><COLOR=#$00C2FF 傳><COLOR=#$00D3FF 奇><COLOR=#$00B1FF ≈><COLOR=#$00FFC5 回收><COLOR=#$00FFD6 记录><COLOR=#$00FFE7 ≈><COLOR=#$00FFF8 蓝色><COLOR=#$00F5FF 出品><COLOR=#$00E4FF ≈><COLOR=#$00D3FF 必><COLOR=#$00C2FF 属><COLOR=#$00B1FF 精><COLOR=#$00A0FF 品><COLOR=#$0079FF ≈〞> <[清理]/@清理私人回收>\
<COLOR=#$00393942 ────────────────────────────────>\
<$HUMAN(发货记录XS01)>\
<$HUMAN(发货记录XS02)>\
<$HUMAN(发货记录XS03)>\
<$HUMAN(发货记录XS04)>\
<$HUMAN(发货记录XS05)>\
<$HUMAN(发货记录XS06)>\
<$HUMAN(发货记录XS07)>\
<$HUMAN(发货记录XS08)>\
<$HUMAN(发货记录XS09)>\
<$HUMAN(发货记录XS10)>\
#ACT
NPC_DLG_OPTIONS 0 QFunction 2 2 MerchantDlg.png
#IF
CHECKVAR HUMAN 商人发货计算1 = 10
#SAY
<$STR(S12)> <COLOR=CLRED 上一页> <下一页/@SRFH回收记录显示> <[返回]/@Bluem2.net_商人发货NPC>
#IF
CHECKVAR HUMAN 商人发货计算1 > 10
#SAY
<$STR(S12)> <上一页/@SRFH回收上一页> <下一页/@SRFH回收记录显示> <[返回]/@Bluem2.net_商人发货NPC>
[@清理私人回收]
#ACT
CLEARNAMELIST ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$USERNAME>.TXT
GOTO @SRFH回收记录
BREAK
[@SRFH回收上一页]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 - 20
GOTO @SRFH回收记录显示
BREAK
[@1回收]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 0
GOTO @SRFH回收记录显示
BREAK
[@2回收]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 10
GOTO @SRFH回收记录显示
BREAK
[@3回收]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 20
GOTO @SRFH回收记录显示
BREAK
[@4回收]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 30
GOTO @SRFH回收记录显示
BREAK
[@5回收]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 40
GOTO @SRFH回收记录显示
BREAK
[@6回收]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 50
GOTO @SRFH回收记录显示
BREAK
[@7回收]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 60
GOTO @SRFH回收记录显示
BREAK
[@8回收]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 70
GOTO @SRFH回收记录显示
BREAK
[@9回收]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 商人发货计算1 = 80
GOTO @SRFH回收记录显示
BREAK
;-----------------------------
[@商人发货确认]
#IF
CHECK [0] 0
#ACT
MOV S10 <$HUMAN(商人发货名字)>
MOV P9 <$HUMAN(商人发货数量)>
#IF
EQUAL S10
#ACT
MOV P9 0
#IF
SMALL P9 1
#ACT
MOV S10 " "
SENDMSG 6 格式错误！格式：@发货<$STR(S10)>玩家名字<$STR(S10)>数量
MOV S10
BREAK
#IF
EQUAL S10 <$USERNAME>
#ACT
SENDMSG 6 对不起，不能输入自己的名字！
MOV S10
BREAK
#IF
checkonline <$STR(S10)>
#ELSEACT
SENDMSG 6 对不起，输入的玩家不在线，请核对输入的名字是否正确！
MOV S10
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\Bluem2.net_商人发货配置\☆授权元宝商人☆.txt HardDisk
#ACT
MOV P0 1
#ELSEACT
MOV P0 0
#IF
EQUAL P0 0
CHECKSTRINGLIST ..\QuestDiary\Bluem2.net_商人发货配置\☆授权元宝商人☆.txt <$STR(S10)> HardDisk
#ACT
MOV P0 2
#IF
SMALL P0 1
#ACT
SENDMSG 6 对不起，【<$STR(S10)>】不是授权商人，无法回收元宝给他！
MOV S10
BREAK
#IF
LARGE P9 100000000
#ACT
SENDMSG 6 对不起，数量最多只能输入1亿！
MOV S10
BREAK
#IF
CHECKGAMEGOLD < <$STR(P9)>
#ACT
SENDMSG 6 对不起，您的元宝数量不够<$STR(P9)>个！
MOV S10
BREAK
#IF
CHECK [0] 0
#ACT
MOV P7 <$STR(P9)>
MOV P8 <$STR(P9)>
DIV P8 100000000
MOV S10 （
#IF
LARGE P8 0
#ACT
INC S10 <$STR(P8)>亿
MUL P8 100000000
DEC P7 <$STR(P8)>
#IF
CHECK [0] 0
#ACT
MOV P8 <$STR(P7)>
DIV P8 10000
#IF
LARGE P8 0
#ACT
INC S10 <$STR(P8)>万
MUL P8 10000
DEC P7 <$STR(P8)>
#IF
LARGE P7 0
#ACT
INC S10 <$STR(P7)>
#IF
SMALL P9 10000
#ACT
MOV S10
#ELSEACT
INC S10 ）
#IF
CHECK [0] 0
#ACT
MOV P1 0
#IF
EQUAL P0 1
#ACT
MOV S11 <$USERNAME>
MOV P8 <$HUMAN(商人发货序号)>
#ELSEACT
MOV S11 <$HUMAN(商人发货名字)>
MOV P8 0
#IF
LARGE P8 0
SMALL P8 21
CHECKVAR GLOBAL 商人发货姓名<$STR(P8)> = <$STR(S11)>
#ACT
MOV P1 <$STR(P8)>
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名1 = <$STR(S11)>
#ACT
MOV P1 1
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名2 = <$STR(S11)>
#ACT
MOV P1 2
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名3 = <$STR(S11)>
#ACT
MOV P1 3
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名4 = <$STR(S11)>
#ACT
MOV P1 4
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名5 = <$STR(S11)>
#ACT
MOV P1 5
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名6 = <$STR(S11)>
#ACT
MOV P1 6
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名7 = <$STR(S11)>
#ACT
MOV P1 7
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名8 = <$STR(S11)>
#ACT
MOV P1 8
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名9 = <$STR(S11)>
#ACT
MOV P1 9
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名10 = <$STR(S11)>
#ACT
MOV P1 10
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名11 = <$STR(S11)>
#ACT
MOV P1 11
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名12 = <$STR(S11)>
#ACT
MOV P1 12
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名13 = <$STR(S11)>
#ACT
MOV P1 13
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名14 = <$STR(S11)>
#ACT
MOV P1 14
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名15 = <$STR(S11)>
#ACT
MOV P1 15
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名16 = <$STR(S11)>
#ACT
MOV P1 16
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名17 = <$STR(S11)>
#ACT
MOV P1 17
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名18 = <$STR(S11)>
#ACT
MOV P1 18
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名19 = <$STR(S11)>
#ACT
MOV P1 19
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名20 = <$STR(S11)>
#ACT
MOV P1 20
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名21 = <$STR(S11)>
#ACT
MOV P1 21
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名22 = <$STR(S11)>
#ACT
MOV P1 22
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名23 = <$STR(S11)>
#ACT
MOV P1 23
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名24 = <$STR(S11)>
#ACT
MOV P1 24
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名25 = <$STR(S11)>
#ACT
MOV P1 25
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名26 = <$STR(S11)>
#ACT
MOV P1 26
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名27 = <$STR(S11)>
#ACT
MOV P1 27
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名28 = <$STR(S11)>
#ACT
MOV P1 28
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名29 = <$STR(S11)>
#ACT
MOV P1 29
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名30 = <$STR(S11)>
#ACT
MOV P1 30
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名1 =
#ACT
MOV P1 1
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名2 =
#ACT
MOV P1 2
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名3 =
#ACT
MOV P1 3
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名4 =
#ACT
MOV P1 4
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名5 =
#ACT
MOV P1 5
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名6 =
#ACT
MOV P1 6
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名7 =
#ACT
MOV P1 7
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名8 =
#ACT
MOV P1 8
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名9 =
#ACT
MOV P1 9
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名10 =
#ACT
MOV P1 10
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名11 =
#ACT
MOV P1 11
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名12 =
#ACT
MOV P1 12
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名13 =
#ACT
MOV P1 13
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名14 =
#ACT
MOV P1 14
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名15 =
#ACT
MOV P1 15
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名16 =
#ACT
MOV P1 16
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名17 =
#ACT
MOV P1 17
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名18 =
#ACT
MOV P1 18
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名19 =
#ACT
MOV P1 19
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名20 =
#ACT
MOV P1 20
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名21 =
#ACT
MOV P1 21
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名22 =
#ACT
MOV P1 22
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名23 =
#ACT
MOV P1 23
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名24 =
#ACT
MOV P1 24
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名25 =
#ACT
MOV P1 25
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名26 =
#ACT
MOV P1 26
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名27 =
#ACT
MOV P1 27
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名28 =
#ACT
MOV P1 28
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名29 =
#ACT
MOV P1 29
#IF
SMALL P1 1
CHECKVAR GLOBAL 商人发货姓名30 =
#ACT
MOV P1 30
#IF
SMALL P1 1
EQUAL P0 1
#ACT
SENDMSG 6 对不起，您不是授权商人，无法发货！
MOV S10
MOV S11
BREAK
#IF
SMALL P1 1
#ACT
SENDMSG 6 对不起，【<$HUMAN(商人发货名字)>】不是授权商人，无法回收元宝给他！
MOV S10
MOV S11
BREAK
#IF
EQUAL P0 1
#ACT
CALCVAR GLOBAL 商人发货姓名<$STR(P1)> = <$STR(S11)> ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货今出<$STR(P1)> + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货总出<$STR(P1)> + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货今出 + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货总出 + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR HUMAN 今日发货数量 + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_J私人变量.txt
CALCVAR HUMAN 历史发货数量 + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_私人变量.txt
GAMEGOLD - <$STR(P9)>
<$HUMAN(商人发货名字)>.GAMEGOLD + <$STR(P9)>
CALCVAR HUMAN 商人发货序号 = <$STR(P1)>
#ELSEACT
CALCVAR GLOBAL 商人发货姓名<$STR(P1)> = <$STR(S11)> ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货今收<$STR(P1)> + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货总收<$STR(P1)> + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货今收 + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货总收 + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR HUMAN 今日发货数量 + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_J私人变量.txt
CALCVAR HUMAN 历史发货数量 + <$STR(P9)> ..\QuestDiary\数据文件\商人发货_私人变量.txt
GAMEGOLD - <$STR(P9)>
<$HUMAN(商人发货名字)>.GAMEGOLD + <$STR(P9)>
;---------------
#IF
CHECKVAR HUMAN 今日发货数量 ? 100000000
#ACT
CALCVAR HUMAN 今日发货数量 - 100000000 ..\QuestDiary\数据文件\商人发货_J私人变量.txt
CALCVAR HUMAN 今日发货数量Y + 1 ..\QuestDiary\数据文件\商人发货_J私人变量.txt
#IF
CHECKVAR HUMAN 历史发货数量 ? 100000000
#ACT
CALCVAR HUMAN 历史发货数量 - 100000000 ..\QuestDiary\数据文件\商人发货_私人变量.txt
CALCVAR HUMAN 历史发货数量Y + 1 ..\QuestDiary\数据文件\商人发货_私人变量.txt
#IF
CHECKVAR HUMAN 昨日发货数量 ? 100000000
#ACT
CALCVAR HUMAN 昨日发货数量 - 100000000 ..\QuestDiary\数据文件\商人发货_私人变量.txt
CALCVAR HUMAN 昨日发货数量Y + 1 ..\QuestDiary\数据文件\商人发货_私人变量.txt
#IF
CHECKVAR HUMAN 今日发货数量 ? 100000000
#ACT
CALCVAR HUMAN 今日发货数量 - 100000000 ..\QuestDiary\数据文件\商人发货_J私人变量.txt
CALCVAR HUMAN 今日发货数量Y + 1 ..\QuestDiary\数据文件\商人发货_J私人变量.txt
#IF
CHECKVAR HUMAN 历史发货数量 ? 100000000
#ACT
CALCVAR HUMAN 历史发货数量 - 100000000 ..\QuestDiary\数据文件\商人发货_私人变量.txt
CALCVAR HUMAN 历史发货数量Y + 1 ..\QuestDiary\数据文件\商人发货_私人变量.txt
#IF
CHECKVAR HUMAN 昨日发货数量 ? 100000000
#ACT
CALCVAR HUMAN 昨日发货数量 - 100000000 ..\QuestDiary\数据文件\商人发货_私人变量.txt
CALCVAR HUMAN 昨日发货数量Y + 1 ..\QuestDiary\数据文件\商人发货_私人变量.txt
;---------------
#IF
CHECKVAR GLOBAL 商人发货今出<$STR(P1)> ? 100000000
#ACT
CALCVAR GLOBAL 商人发货今出<$STR(P1)> - 100000000 ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货今出Y<$STR(P1)> + 1 ..\QuestDiary\数据文件\商人发货_全局变量.txt
#IF
CHECKVAR GLOBAL 商人发货总出<$STR(P1)> ? 100000000
#ACT
CALCVAR GLOBAL 商人发货总出<$STR(P1)> - 100000000 ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货总出Y<$STR(P1)> + 1 ..\QuestDiary\数据文件\商人发货_全局变量.txt
#IF
CHECKVAR GLOBAL 商人发货今出 ? 100000000
#ACT
CALCVAR GLOBAL 商人发货今出 - 100000000 ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货今出Y + 1 ..\QuestDiary\数据文件\商人发货_全局变量.txt
#IF
CHECKVAR GLOBAL 商人发货今出 ? 100000000
#ACT
CALCVAR GLOBAL 商人发货今出 - 100000000 ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货今出Y + 1 ..\QuestDiary\数据文件\商人发货_全局变量.txt
#IF
CHECKVAR GLOBAL 商人发货今收<$STR(P1)> ? 100000000
#ACT
CALCVAR GLOBAL 商人发货今收<$STR(P1)> - 100000000 ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货今收Y<$STR(P1)> + 1 ..\QuestDiary\数据文件\商人发货_全局变量.txt
#IF
CHECKVAR GLOBAL 商人发货总收<$STR(P1)> ? 100000000
#ACT
CALCVAR GLOBAL 商人发货总收<$STR(P1)> - 100000000 ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货总收Y<$STR(P1)> + 1 ..\QuestDiary\数据文件\商人发货_全局变量.txt
#IF
CHECKVAR GLOBAL 商人发货今收 ? 100000000
#ACT
CALCVAR GLOBAL 商人发货今收 - 100000000 ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货今收Y + 1 ..\QuestDiary\数据文件\商人发货_全局变量.txt
#IF
CHECKVAR GLOBAL 商人发货今收 ? 100000000
#ACT
CALCVAR GLOBAL 商人发货今收 - 100000000 ..\QuestDiary\数据文件\商人发货_全局变量.txt
CALCVAR GLOBAL 商人发货今收Y + 1 ..\QuestDiary\数据文件\商人发货_全局变量.txt
#IF
EQUAL P0 1
#ACT
<$HUMAN(商人发货名字)>.SENDMSG 6 商人【<$USERNAME>】已发货给你元宝数量：<$STR(P9)><$STR(S10)>
<$HUMAN(商人发货名字)>.MESSAGEBOX 商人【<$USERNAME>】已发货给你元宝数量：<$STR(P9)><$STR(S10)>
SENDMSG 6 玩家【<$HUMAN(商人发货名字)>】已经收到元宝数量：<$STR(P9)><$STR(S10)>
MESSAGEBOX 玩家【<$HUMAN(商人发货名字)>】已经收到元宝数量：<$STR(P9)><$STR(S10)>
INSERTLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录发货\发货-<$USERNAME>.txt 1 <$HUMAN(商人发货名字)>|<$STR(P9)>|<$YEAR>年<$MONTH>月<$DAY>日(<$HOUR>:<$MINUTE>:<$SECOND>)
INSERTLINE ..\QuestDiary\Bluem2.net_商人发货配置\总记录\<$YEAR>-<$MONTH>-<$DAY>.txt 1 <$YEAR>年<$MONTH>月<$DAY>日(<$HOUR>:<$MINUTE>:<$SECOND>)|<$USERNAME>|发货|<$HUMAN(商人发货名字)>|<$STR(P9)> HardDisk
MOV S10 <$YEAR>年<$MONTH>月<$DAY>日(<$HOUR>:<$MINUTE>:<$SECOND>)-商人[<$USERNAME>]出售[<$HUMAN(商人发货名字)>][<$STR(P9)>元宝]<$STR(S10)>
#ELSEACT
<$HUMAN(商人发货名字)>.SENDMSG 6 玩家【<$USERNAME>】已回收给你元宝数量：<$STR(P9)><$STR(S10)>
<$HUMAN(商人发货名字)>.MESSAGEBOX 玩家【<$USERNAME>】已回收给你元宝数量：<$STR(P9)><$STR(S10)>
SENDMSG 6 商人【<$HUMAN(商人发货名字)>】已经收到元宝数量：<$STR(P9)><$STR(S10)>
MESSAGEBOX 商人【<$HUMAN(商人发货名字)>】已经收到元宝数量：<$STR(P9)><$STR(S10)>
INSERTLINE ..\QuestDiary\Bluem2.net_商人发货配置\记录回收\回收-<$HUMAN(商人发货名字)>.txt 1 <$USERNAME>|<$STR(P9)>|<$YEAR>年<$MONTH>月<$DAY>日(<$HOUR>:<$MINUTE>:<$SECOND>)
INSERTLINE ..\QuestDiary\Bluem2.net_商人发货配置\总记录\<$YEAR>-<$MONTH>-<$DAY>.txt 1 <$YEAR>年<$MONTH>月<$DAY>日(<$HOUR>:<$MINUTE>:<$SECOND>)|<$HUMAN(商人发货名字)>|回收|<$USERNAME>|<$STR(P9)> HardDisk
MOV S10 <$YEAR>年<$MONTH>月<$DAY>日(<$HOUR>:<$MINUTE>:<$SECOND>)-商人[<$HUMAN(商人发货名字)>]回收[<$USERNAME>][<$STR(P9)>元宝]<$STR(S10)>
#IF
CHECK [0] 0
#ACT
MOV S10
MOV S11
CALCVAR HUMAN 商人发货名字 =
CALCVAR HUMAN 商人发货数量 = 0
GOTO @Bluem2.net_商人发货NPC
}
