QM脚本

[@Startup]
#IF
EQUAL A10
#ACT
MOV A10 <$MONTH>0<$DAY>

#IF
NOT CHECKTEXTLIST ..\..\..\..\通区捐献\<$STR(A10)>\检测是否已经创建目录.txt 已创建目录
#act
ForceDirectories  ..\..\..\..\通区捐献\
ForceDirectories  ..\..\..\..\通区捐献\<$MONTH>0<$DAY>\
CreateFile ..\..\..\..\通区捐献\<$STR(A10)>\检测是否已经创建目录.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A10)>\检测是否已经创建目录.txt 已创建目录 0
CreateFile ..\..\..\..\通区捐献\<$STR(A10)>\今日01区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A10)>\今日02区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A10)>\今日03区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A10)>\今日04区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A10)>\今日05区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A10)>\今日01区.txt 今日首区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A10)>\今日02区.txt 今日二区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A10)>\今日03区.txt 今日三区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A10)>\今日04区.txt 今日四区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A10)>\今日05区.txt 今日五区:0 0

NPC脚本

[@main]
#IF
#act
OPENMERCHANTBIGDLG 35  650 1 4 1 1 1 548 -2
GetListString ..\..\..\..\通区捐献\<$STR(A10)>\今日01区.txt 0 S$今日首区 S$捐献金额0
GetListString ..\..\..\..\通区捐献\<$STR(A10)>\今日02区.txt 0 S$今日二区 S$捐献金额1
GetListString ..\..\..\..\通区捐献\<$STR(A10)>\今日03区.txt 0 S$今日三区 S$捐献金额2
GetListString ..\..\..\..\通区捐献\<$STR(A10)>\今日04区.txt 0 S$今日四区 S$捐献金额3
GetListString ..\..\..\..\通区捐献\<$STR(A10)>\今日05区.txt 0 S$今日五区 S$捐献金额4
MOV N$总金额 0
INC N$总金额 <$str(S$捐献金额0)>
INC N$总金额 <$str(S$捐献金额1)>
INC N$总金额 <$str(S$捐献金额2)>
INC N$总金额 <$str(S$捐献金额3)>
INC N$总金额 <$str(S$捐献金额4)>
SetStringBlank S$今日首区 15 1
SetStringBlank S$今日二区 15 1
SetStringBlank S$今日三区 15 1
SetStringBlank S$今日四区 15 1
SetStringBlank S$今日五区 15 1

SetStringBlank S$捐献金额0 5 1
SetStringBlank S$捐献金额1 5 1
SetStringBlank S$捐献金额2 5 1
SetStringBlank S$捐献金额3 5 1
SetStringBlank S$捐献金额4 5 1

#SAY
　\
<New-⊙⊿你当前游戏点为/SCOLOR=215> {<$GAMEGIRD> 元/SCOLOR=254} <阿米传奇沙城奖池系统，每人限一次！合区后关闭激活页面！/SCOLOR=241>\
<>\
<New-⊙⊿/SCOLOR=251> <激活说明:本次捐献为公益捐献所有捐献作为沙城奖励，只需要30游戏点即可获得属性！/SCOLOR=253>\
<New-⊙⊿/SCOLOR=251> <[激活] 可以根据客户需求激活属性，比如刀刀切割，杀人爆率，杀怪爆率，+Hp+MP。====/SCOLOR=70>\
<New-⊙⊿/SCOLOR=215>    {<$STR(S$今日首区)>/FCOLOR=215}<已经累计沙城奖励  [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额0)>/FCOLOR=254} <元/FCOLOR=58>\
<New-⊙⊿/SCOLOR=215>    {<$STR(S$今日二区)>/FCOLOR=215}<已经累计沙城奖励  [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额1)>/FCOLOR=254} <元/FCOLOR=58>\
<New-⊙⊿/SCOLOR=215>    {<$STR(S$今日三区)>/FCOLOR=215}<已经累计沙城奖励  [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额2)>/FCOLOR=254} <元/FCOLOR=58>\
<New-⊙⊿/SCOLOR=215>    {<$STR(S$今日四区)>/FCOLOR=215}<已经累计沙城奖励  [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额3)>/FCOLOR=254} <元/FCOLOR=58>\
<New-⊙⊿/SCOLOR=215>    {<$STR(S$今日五区)>/FCOLOR=215}<已经累计沙城奖励  [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额4)>/FCOLOR=254} <元/FCOLOR=58>\
　                                                         <[捐献获得永久属性加成]/@开始捐献>\
　                              <New-⊙⊿[当天]沙城池总累计奖金！/SCOLOR=58> {<$STR(N$总金额)>/SCOLOR=254} <元/SCOLOR=58>\
<>\
<New-⊙⊿ [阿米沙城奖池] 沙城胜利行会获得沙城奖池佣金的60%,失败方获得40%扣除百15%管理费！/SCOLOR=242>

[@开始捐献]

;#IF
;CHECKTEXTLIST ..\QuestDiary\数据文件\合区检测.txt 测试
;#ACT
;MESSAGEBOX 当前还是测试区无法捐献！
;break

;#IF
;CHECKTEXTLIST ..\QuestDiary\数据文件\合区检测.txt 合区
;#ACT
;MESSAGEBOX 当前区已经合区了，捐献通道已关闭，务必合区前开通!
;break

#IF
Check [11] 1
#ACT
MESSAGEBOX 您已经捐献过了，且永久增加属性!
break

#IF
not CHECKGAMEGIRD > 29
#ACT
MESSAGEBOX 当前游戏币不够！
break

#IF
Check [11] 0
CHECKGAMEGIRD > 29
CheckContainsText <$SERVERNAME> 一区
#ACT
GAMEGIRD - 30
INC G10 30
SET [11] 1
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A10)>\今日01区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A10)>\今日01区.txt 今日首区:<$STR(G10)> 0
GOTO @main
break

#IF
Check [11] 0
CHECKGAMEGIRD > 29
CheckContainsText <$SERVERNAME> 二区
#ACT
GAMEGIRD - 30
INC G10 30
SET [11] 1
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A10)>\今日02区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A10)>\今日02区.txt 今日二区:<$STR(G10)> 0
GOTO @main
break

#IF
Check [11] 0
CHECKGAMEGIRD > 29
CheckContainsText <$SERVERNAME> 三区
#ACT
GAMEGIRD - 30
INC G10 30
SET [11] 1
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A10)>\今日03区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A10)>\今日03区.txt 今日三区:<$STR(G10)> 0
GOTO @main
break

#IF
Check [11] 0
CHECKGAMEGIRD > 29
CheckContainsText <$SERVERNAME> 四区
#ACT
GAMEGIRD - 30
INC G10 30
SET [11] 1
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A10)>\今日04区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A10)>\今日04区.txt 今日四区:<$STR(G10)> 0
GOTO @main
break

#IF
Check [11] 0
CHECKGAMEGIRD > 29
CheckContainsText <$SERVERNAME> 五区
#ACT
GAMEGIRD - 30
INC G10 30
SET [11] 1
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A10)>\今日05区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A10)>\今日05区.txt 今日五区:<$STR(G10)> 0
GOTO @main
break