传奇沙城捐献脚本实现原理和设置视频讲解.全套脚本
;====================登陆脚本中添加=====================D:\MirServer\Mir200\Envir\MapQuest_Def\QManage.txt
[@Startup]
#if
#act
forceDirectories ..\..\..\..\通区捐献
#IF
EQUAL A100
#ACT
MOV A100 <$MONTH>0<$DAY>
#IF
CheckContainsText <$SERVERNAME> 战区
#ACT
MOV G405 0
#IF
CheckContainsText <$SERVERNAME> 号区
#ACT
MOV G405 0
#IF
NOT CHECKTEXTLIST ..\..\..\..\通区捐献\<$STR(A100)>\检测是否已经创建目录.txt 已创建目录
#act
ForceDirectories ..\..\..\..\通区捐献\
ForceDirectories ..\..\..\..\通区捐献\<$MONTH>0<$DAY>\
CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\检测是否已经创建目录.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\检测是否已经创建目录.txt 已创建目录 0
CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\当前07区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\当前08区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt
CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt 当前一区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt 当前二区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt 当前三区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt 当前四区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt 当前五区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt 当前六区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前07区.txt 当前七区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前08区.txt 当前八区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt 当前战区:0 0
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt 当前合区:0 0
;==========================对应的NPC脚本================
[@main]
#OR
CheckContainsText <$SERVERNAME> 01区
CheckContainsText <$SERVERNAME> 02区
CheckContainsText <$SERVERNAME> 03区
CheckContainsText <$SERVERNAME> 04区
CheckContainsText <$SERVERNAME> 05区
CheckContainsText <$SERVERNAME> 06区
CheckContainsText <$SERVERNAME> 07区
CheckContainsText <$SERVERNAME> 08区
CheckContainsText <$SERVERNAME> 战区
#act
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt 0 S$当前一区 S$捐献金额0
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt 0 S$当前二区 S$捐献金额1
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt 0 S$当前三区 S$捐献金额2
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt 0 S$当前四区 S$捐献金额3
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt 0 S$当前五区 S$捐献金额4
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt 0 S$当前六区 S$捐献金额5
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前07区.txt 0 S$当前七区 S$捐献金额6
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前08区.txt 0 S$当前八区 S$捐献金额7
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt 0 S$当前战区 S$捐献金额8
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt 0 S$当前合区 S$捐献金额9
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)>
INC N$总金额 <$str(S$捐献金额5)>
INC N$总金额 <$str(S$捐献金额6)>
INC N$总金额 <$str(S$捐献金额7)>
INC N$总金额 <$str(S$捐献金额8)>
INC N$总金额 <$str(S$捐献金额9)>
DIV N$显示总金额 <$str(N$总金额)> 10
MUL N$显示总金额 9
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
SetStringBlank S$捐献金额5 5 1
SetStringBlank S$捐献金额6 5 1
SetStringBlank S$捐献金额7 5 1
SetStringBlank S$捐献金额8 5 1
SetStringBlank S$捐献金额9 5 1
OPENMERCHANTBIGDLG 1 750 1 4 0 -50 0
#SAY
<><ImgEx:1:621:622:623:453:-9/@exit> \
<沙城捐献/SCOLOR=154> <New~~!/SCOLOR=249>\
<> <欢迎您来到/SCOLOR=251> {◆<$SERVERNAME>◆/AUTOCOLOR=209,253,254,252,215,95,252,247} <荐~：本捐献属性强大.超值的选择！！/SCOLOR=254>\
<Img:746:1:40:4>\\
<> <捐献条件：/SCOLOR=251><获得“永久沙城捐献“称号 需要30RMB点。/SCOLOR=254> \
<Img:746:1:40:4>\\
<> {杀怪爆率增加:7倍 攻击倍数增加:1.1倍 /FCOLOR=70} {沙城捐献：（血龙佩）增加二条BUFF/FCOLOR=70} \
<> {防止麻痹属性 刀刀切割怪：5000伤害/FCOLOR=70} {沙城捐献：（血龙佩）增加二条BUFF/FCOLOR=70} \
<Img:746:1:40:4>\\
\
;<> <奖励说明：/SCOLOR=251><新区首次拿沙保底288RMB奖励，捐献不够管理来凑。/SCOLOR=254> \
<> <累计的总奖励会根据实际的情况分配给攻城双方行会！/SCOLOR=254> \
<> <攻沙期间战地记者实时观察，最终解释权归假冰雪所有！/SCOLOR=254>\
<Img:746:1:40:4>\\
<> <奖励金额/SCOLOR=251> <捐献总额的70%/SCOLOR=254>{（<$STR(N$显示总金额)>RMB）/FCOLOR=215}<将会用于新区攻城奖励！/SCOLOR=254>\
<Img:746:1:40:4>\\
<> {<$STR(S$当前一区)>/FCOLOR=242}<已经累计奖池金额为：/SCOLOR=242><$STR(S$捐献金额0)><RMB/FCOLOR=242>\
<> {<$STR(S$当前二区)>/FCOLOR=242}<已经累计奖池金额为：/SCOLOR=242><$STR(S$捐献金额1)><RMB/FCOLOR=242>\
<> {<$STR(S$当前三区)>/FCOLOR=242}<已经累计奖池金额为：/SCOLOR=242><$STR(S$捐献金额2)><RMB/FCOLOR=242>\
<> {<$STR(S$当前四区)>/FCOLOR=242}<已经累计奖池金额为：/SCOLOR=242><$STR(S$捐献金额3)><RMB/FCOLOR=242>\
<> {<$STR(S$当前五区)>/FCOLOR=242}<已经累计奖池金额为：/SCOLOR=242><$STR(S$捐献金额4)><RMB/FCOLOR=242> \
<> {<$STR(S$当前六区)>/FCOLOR=242}<已经累计奖池金额为：/SCOLOR=242><$STR(S$捐献金额5)><RMB/FCOLOR=242> \
<> {<$STR(S$当前七区)>/FCOLOR=242}<已经累计奖池金额为：/SCOLOR=242><$STR(S$捐献金额6)><RMB/FCOLOR=242> \
<> {<$STR(S$当前八区)>/FCOLOR=242}<已经累计奖池金额为：/SCOLOR=242><$STR(S$捐献金额7)><RMB/FCOLOR=242> \
<> <Img:561:1:0:-3><Img:561:1:0:-3><[激活沙城捐献]/@开始捐献><Img:561:1:0:-3><Img:561:1:0:-3>\
<> 注意:沙城捐献金额 胜利方获得70% 失败方30%
#IF
CheckContainsText <$SERVERNAME> 号区
#act
OPENMERCHANTBIGDLG 1 129 1 0 0 0 0 0 0
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt 0 S$当前一区 S$捐献金额0
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt 0 S$当前二区 S$捐献金额1
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt 0 S$当前三区 S$捐献金额2
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt 0 S$当前四区 S$捐献金额3
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt 0 S$当前五区 S$捐献金额4
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt 0 S$当前六区 S$捐献金额5
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前07区.txt 0 S$当前七区 S$捐献金额6
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前08区.txt 0 S$当前八区 S$捐献金额7
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt 0 S$当前战区 S$捐献金额8
GetListString ..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt 0 S$当前合区 S$捐献金额9
MOV N$总金额 0
INC N$总金额 <$str(S$捐献金额9)>
SetStringBlank S$当前一区 15 1
SetStringBlank S$当前二区 15 1
SetStringBlank S$当前三区 15 1
SetStringBlank S$当前四区 15 1
SetStringBlank S$当前五区 15 1
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
SetStringBlank S$捐献金额5 5 1
SetStringBlank S$捐献金额6 5 1
SetStringBlank S$捐献金额7 5 1
SetStringBlank S$捐献金额8 5 1
SetStringBlank S$捐献金额9 5 1
[@开始捐献]
#IF
Check [112] 1
#ACT
MESSAGEBOX 你已经捐献过了，不可重复捐献！
break
#IF
not CHECKGAMEPOINT > 29
#ACT
MESSAGEBOX 当前人民币不够！
break
#IF
Check [112] 0
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 号区
#ACT
GAMEPOINT - 30
INC G405 30
SET [112] 1
GIVE 幸运石 1
GIVE 幸运石 1
CONFERTITLE 沙城捐献
#CALL [\游戏登陆\封号系统.txt] @封号分类
#CALL [\游戏功能\装备爆率.txt] @装备爆率
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$总金额)>！
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt 当前合区:<$STR(G405)> 0
;AddTextListEx ..\QuestDiary\沙城捐献\捐献数据.txt <$USERNAME> 0
GOTO @main
break
#IF
Check [112] 0
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 01区
#ACT
GAMEPOINT - 30
INC G405 30
SET [112] 1
GIVE 幸运石 1
GIVE 幸运石 1
CONFERTITLE 沙城捐献
#CALL [\游戏登陆\封号系统.txt] @封号分类
#CALL [\游戏功能\装备爆率.txt] @装备爆率
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$总金额)>！
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt 当前一区:<$STR(G405)> 0
;AddTextListEx ..\QuestDiary\沙城捐献\捐献数据.txt <$USERNAME> 0
GOTO @main
break
#IF
Check [112] 0
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 02区
#ACT
GAMEPOINT - 30
INC G405 30
SET [112] 1
GIVE 幸运石 1
GIVE 幸运石 1
CONFERTITLE 沙城捐献
#CALL [\游戏登陆\封号系统.txt] @封号分类
#CALL [\游戏功能\装备爆率.txt] @装备爆率
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$总金额)>！
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt 当前二区:<$STR(G405)> 0
;AddTextListEx ..\QuestDiary\沙城捐献\捐献数据.txt <$USERNAME> 0
GOTO @main
break
#IF
Check [112] 0
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 03区
#ACT
GAMEPOINT - 30
INC G405 30
SET [112] 1
GIVE 幸运石 1
GIVE 幸运石 1
CONFERTITLE 沙城捐献
#CALL [\游戏登陆\封号系统.txt] @封号分类
#CALL [\游戏功能\装备爆率.txt] @装备爆率
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$总金额)>！
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt 当前三区:<$STR(G405)> 0
;AddTextListEx ..\QuestDiary\沙城捐献\捐献数据.txt <$USERNAME> 0
GOTO @main
break
#IF
Check [112] 0
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 04区
#ACT
GAMEPOINT - 30
INC G405 30
SET [112] 1
GIVE 幸运石 1
GIVE 幸运石 1
CONFERTITLE 沙城捐献
#CALL [\游戏登陆\封号系统.txt] @封号分类
#CALL [\游戏功能\装备爆率.txt] @装备爆率
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$总金额)>！
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt 当前四区:<$STR(G405)> 0
;AddTextListEx ..\QuestDiary\沙城捐献\捐献数据.txt <$USERNAME> 0
GOTO @main
break
#IF
Check [112] 0
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 05区
#ACT
GAMEPOINT - 30
INC G405 30
SET [112] 1
GIVE 幸运石 1
GIVE 幸运石 1
CONFERTITLE 沙城捐献
#CALL [\游戏登陆\封号系统.txt] @封号分类
#CALL [\游戏功能\装备爆率.txt] @装备爆率
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$总金额)>！
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt 当前五区:<$STR(G405)> 0
;AddTextListEx ..\QuestDiary\沙城捐献\捐献数据.txt <$USERNAME> 0
GOTO @main
break
#IF
Check [112] 0
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 06区
#ACT
GAMEPOINT - 30
INC G405 30
SET [112] 1
GIVE 幸运石 1
GIVE 幸运石 1
CONFERTITLE 沙城捐献
#CALL [\游戏登陆\封号系统.txt] @封号分类
#CALL [\游戏功能\装备爆率.txt] @装备爆率
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$总金额)>！
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt 当前六区:<$STR(G405)> 0
;AddTextListEx ..\QuestDiary\沙城捐献\捐献数据.txt <$USERNAME> 0
GOTO @main
break
#IF
Check [112] 0
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 07区
#ACT
GAMEPOINT - 30
INC G405 30
SET [112] 1
GIVE 幸运石 1
GIVE 幸运石 1
CONFERTITLE 沙城捐献
#CALL [\游戏登陆\封号系统.txt] @封号分类
#CALL [\游戏功能\装备爆率.txt] @装备爆率
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$总金额)>！
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A100)>\当前07区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前07区.txt 当前七区:<$STR(G405)> 0
;AddTextListEx ..\QuestDiary\沙城捐献\捐献数据.txt <$USERNAME> 0
GOTO @main
break
#IF
Check [112] 0
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 08区
#ACT
GAMEPOINT - 30
INC G405 30
SET [112] 1
GIVE 幸运石 1
GIVE 幸运石 1
CONFERTITLE 沙城捐献
#CALL [\游戏登陆\封号系统.txt] @封号分类
#CALL [\游戏功能\装备爆率.txt] @装备爆率
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$总金额)>！
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A100)>\当前08区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前08区.txt 当前八区:<$STR(G405)> 0
;AddTextListEx ..\QuestDiary\沙城捐献\捐献数据.txt <$USERNAME> 0
GOTO @main
break
#IF
Check [112] 0
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 战区
#ACT
GAMEPOINT - 30
INC G405 30
SET [112] 1
GIVE 幸运石 1
GIVE 幸运石 1
CONFERTITLE 沙城捐献
#CALL [\游戏登陆\封号系统.txt] @封号分类
#CALL [\游戏功能\装备爆率.txt] @装备爆率
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$总金额)>！
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt 当前战区:<$STR(G405)> 0
;AddTextListEx ..\QuestDiary\沙城捐献\捐献数据.txt <$USERNAME> 0
GOTO @main
break
;=======================================登陆脚本中属性==========D:\MirServer\Mir200\Envir\QuestDiary\游戏登陆\封号系统.txt
[@封号分类]
{
#IF
checktitle 沙城捐献
#ACT
INC N$沙城捐献 10
ChangeHumAbility 16 = 65535 65535
#IF
#ACT
MOV N$总倍攻 100
INC N$总倍攻 <$STR(N$沙城捐献)>
POWERRATE <$STR(N$总倍攻)> 65535
}
;=======================================登陆脚本中属性==========D:\MirServer\Mir200\Envir\QuestDiary\游戏功能\装备爆率.txt
[@装备爆率]
{
#if
CHECKTITLE 沙城捐献
#ACT
INC N2 700
#IF
#ACT
SendCenterMsg 254 0 您当前杀怪<$STR(N2)>%爆率！！ 0 100
sendmsg 7 您当前杀怪<$STR(N2)>%爆率！
KILLMONBURSTRATE 20140220 20140221 <$STR(N2)> 20140223 20140224 20140225 20140226 65535 20140227 20140228
BREAK
}
