传奇沙城捐献脚本

捐献通区脚本教程

传奇沙城捐献脚本实现原理和设置视频讲解.全套脚本:

[@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

}
推荐课程