开龙传NPC
[@main]
#IF
CHECK [003] 0
#ACT
MOV S$自动开启龙传A <IMG:228:6:0:-1/@龙传>自动开启龙的传人
#ELSEACT
MOV S$自动开启龙传A <IMG:229:6:0:-1/@龙传>自动开启龙的传人

#IF
CHECK [007] 0
#ACT
MOV S$自动开启狂暴A <IMG:228:6:0:-1/@狂暴>自动开启公益狂暴
#ELSEACT
MOV S$自动开启狂暴A <IMG:229:6:0:-1/@狂暴>自动开启公益狂暴

#IF
#ACT
#SAY
<★/SCOLOR=253>·<龙的传人/AUTOCOLOR=254>:<开启后会获得攻魔道各增加30-30,打怪爆率提升10%/AUTOCOLOR=250> \
<★/SCOLOR=253>·<被怪物杀死或者小退、下线不消失.被玩家杀死封号消失> \
<★/SCOLOR=253>·<开启需要30000元宝/AUTOCOLOR=250> <击杀龙传玩家获得15000元宝/AUTOCOLOR=253> <开启龙的传人{FCOLOR=251}/@龙的传人> \ 
<〓〓〓〓/AUTOCOLOR=249><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓〓〓〓〓〓〓〓〓〓〓/AUTOCOLOR=251><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓/AUTOCOLOR=249> \ 
<★/SCOLOR=253>·<公益狂暴/AUTOCOLOR=254>:<开启后会获得全属性各增加5-5/AUTOCOLOR=250>    龙传开启次数:<$STR(G37)> \
<★/SCOLOR=253>·<被怪物杀死或者小退、下线不消失.被玩家杀死封号消失> \
<★/SCOLOR=253>·<开启需要5000元宝/AUTOCOLOR=250> <5000元宝累计进入沙巴克奖励/AUTOCOLOR=253> <开启公益狂暴{FCOLOR=251}/@公益狂暴> \ 
<〓〓〓〓/AUTOCOLOR=249><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓〓〓〓〓〓〓〓〓〓〓/AUTOCOLOR=251><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓/AUTOCOLOR=249> \ 
<★/SCOLOR=253>·<$STR(S$自动开启龙传A)>  <$STR(S$自动开启狂暴A)>   <开启攻沙保护|250#开启需要30000元宝^250#开启后攻沙期间不掉龙传^250#擂台地图除外/@保护设置>\

[@保护设置]
#IF
#ACT
MESSAGEBOX 您是否花费30000元宝开启攻沙期间保护龙传和狂暴\开启后攻沙期间龙传和狂暴死亡不消失\擂台地图除外 @确认开启 @EXIT
BREAK

[@确认开启]
#IF
SMALL G15 2
#ACT
MESSAGEBOX 对不起！当前没有攻沙无法开启龙传保护
BREAK

#IF
EQUAL <$HUMAN(攻沙保护)> 1
#ACT
MESSAGEBOX 对不起！您已经开启了攻沙保护.
BREAK

#IF
CHECK [002] 0
#ACT
MESSAGEBOX 对不起！您当前没有开启龙传无法开启此功能
BREAK

#IF
CHECKGAMEGOLD < 30000
#ACT
MESSAGEBOX 您没有30000元宝无法开启
BREAK

#IF
CHECKGAMEGOLD > 29999
#ACT
GAMEGOLD - 30000
INC G350 30000
CALCVAR HUMAN 攻沙保护 = 1
SAVEVAR HUMAN 攻沙保护 ..\QuestDiary\数据文件\攻沙保护\攻沙保护.txt
MESSAGEBOX 您已经开启了攻沙期间保护
BREAK

[@龙传]
#IF
CHECK [002] 0
#ACT
MESSAGEBOX 对不起！您当前没有开启龙传无法开启此功能
BREAK

#IF
CHECK [003] 0
#ACT
SET [003] 1
MESSAGEBOX 您已经开启了自动开启龙传，死亡后会自动开龙传
GOTO @MAIN
BREAK

#IF
CHECK [003] 1
#ACT
SET [003] 0
MESSAGEBOX 您关闭了自动开启龙传功能，死亡后不会再自动开启
GOTO @MAIN
BREAK

[@狂暴]
#IF
CHECK [005] 0
#ACT
MESSAGEBOX 对不起！请先开启公益狂暴在开启此功能
BREAK

#IF
CHECK [007] 0
#ACT
SET [007] 1
MESSAGEBOX 您已经开启了自动开启狂暴，死亡后会自动开狂暴
GOTO @MAIN
BREAK

#IF
CHECK [007] 1
#ACT
SET [007] 0
MESSAGEBOX 您关闭了自动开启龙传狂暴，死亡后不会再自动狂暴
GOTO @MAIN
BREAK

[@龙的传人]
#if
CHECK [002] 1
#act
MESSAGEBOX 你已经开启此功能了，请不要重复开启！！
break

#if
CheckGAMEGOLD > 29999
#act
SET [002] 1
INC G335 15000
INC G348 1
SendCenterMsg 254 0 ★★[江湖快报]★★：玩家≮<$USERNAME>≯成为龙的传人，此人极度危险,杀死奖励15000元宝,GO！GO！GO！ 1 2
GAMEGOLD - 30000
CONFERTITLE 龙传属性
seticon 0 6 1376 -2 -15 1 0 150
GOTO @龙传数量计算
#CALL [\系统功能\爆率文件\普通爆率读取.txt] @普通爆率读取
#ELSEACT
MESSAGEBOX 对不起，你元宝不足！
break

[@龙传数量计算]
#IF
#ACT
INC G37 1

#IF
SMALL G1 2
EQUAL G37 180
#ACT
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量180个，掉落龙传每满200个开启龙传活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量180个，掉落龙传每满200个开启龙传活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量180个，每天20：00-22：00不开放此活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量180个，每天20：00-22：00不开放此活动！
 
#IF
SMALL G1 2
EQUAL G37 190
#ACT
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量190个，掉落龙传每满200个开启龙传活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量190个，掉落龙传每满200个开启龙传活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量190个，每天20：00-22：00不开放此活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量190个，每天20：00-22：00不开放此活动！

#IF
LARGE G1 1
EQUAL G37 280
#ACT
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量280个，掉落龙传每满300个开启龙传活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量280个，掉落龙传每满300个开启龙传活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量280个，每天20：00-22：00不开放此活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量280个，每天20：00-22：00不开放此活动！
 
#IF
LARGE G1 1
EQUAL G37 290
#ACT
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量290个，掉落龙传每满300个开启龙传活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量290个，掉落龙传每满300个开启龙传活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量290个，每天20：00-22：00不开放此活动！
GuildNoticeMsg 255 27 当前龙传活动，累计掉落龙传数量290个，每天20：00-22：00不开放此活动！

#IF
SMALL G1 2
LARGE G37 199
NOT EQUAL A82 开
#ACT
goto @机器人龙传活动
Gmexecute 开始提问 @龙传活动开A

#IF
EQUAL G1 2
LARGE G37 299
NOT EQUAL A82 开
#ACT
goto @机器人龙传活动
Gmexecute 开始提问 @龙传活动开B

#IF
LARGE G1 2
LARGE G37 299
NOT EQUAL A82 开
#ACT
goto @机器人龙传活动
Gmexecute 开始提问 @龙传活动开B

[@机器人龙传活动]
#IF
NOT EQUAL A82 开
SMALL G1 2
#ACT
CLEARMAPMON G004
MonGenEx G004 132 132 圣龙送福利0 100 1 0 249
MonGenEx G004 132 132 圣龙送福利1 100 1 0 249
MonGenEx G004 132 132 圣龙送福利2 100 8 0 249
MonGenEx G004 132 132 圣龙送福利3 100 89 0 249
MonGenEx G004 132 132 圣龙福利BOSS 20 1 0 249
DEC G37 200
INC G38 99
INC G39 1
GuildNoticeMsg 255 27 当前新区龙传活动怪物已经刷新，当前剩余福利怪物<$STR(G38)>个,当前BOSS剩余<$STR(G39)>个
BREAK

#IF
NOT EQUAL A82 开
EQUAL G1 2
#ACT
CLEARMAPMON G004
MonGenEx G004 132 132 圣龙送福利4 100 1 0 249
MonGenEx G004 132 132 圣龙送福利5 100 1 0 249
MonGenEx G004 132 132 圣龙送福利6 100 8 0 249
MonGenEx G004 132 132 圣龙送福利7 100 89 0 249
MonGenEx G004 132 132 圣龙福利BOSS0 20 1 0 249
DEC G37 300
INC G38 99
INC G39 1
GuildNoticeMsg 255 27 当前新区龙传活动怪物已经刷新，当前剩余福利怪物<$STR(G38)>个,当前BOSS剩余<$STR(G39)>个
BREAK

#IF
NOT EQUAL A82 开
LARGE G1 2
#ACT
CLEARMAPMON G004
MonGenEx G004 132 132 圣龙送福利8 100 1 0 249
MonGenEx G004 132 132 圣龙送福利9 100 1 0 249
MonGenEx G004 132 132 圣龙送福利10 100 8 0 249
MonGenEx G004 132 132 圣龙送福利11 100 89 0 249
MonGenEx G004 132 132 圣龙福利BOSS1 20 1 0 249
DEC G37 300
INC G38 99
INC G39 1
GuildNoticeMsg 255 27 当前新区龙传活动怪物已经刷新，当前剩余福利怪物<$STR(G38)>个,当前BOSS剩余<$STR(G39)>个
BREAK

[@公益狂暴]
#if
CHECK [005] 1
#act
MESSAGEBOX 你已经开启此功能了，请不要重复开启！！
break

#IF
CHECKGAMEGOLD < 5000
#ACT
MESSAGEBOX 对不起，你元宝不足！
break

#if
EQUAL G1 0
CheckGAMEGOLD > 4999
#act
SET [005] 1
INC G347 5000
INC G349 1
SendCenterMsg 254 0 ★★[江湖快报]★★：玩家≮<$USERNAME>≯开启公益狂暴，为沙巴克奖励捐献5000元宝,GO！GO！GO！ 1 2
GAMEGOLD - 5000
MOV G352 0
INC G352 <$STR(G353)>
INC G352 <$STR(G354)>
AddTextListEx ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)><$STR(A2)>.txt <$str(G347)> 0
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>1区.txt 0 N$狂暴1
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>2区.txt 0 N$狂暴2
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>3区.txt 0 N$狂暴3
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>4区.txt 0 N$狂暴4
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>5区.txt 0 N$狂暴5
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>6区.txt 0 N$狂暴6
MOV N$总狂暴 0
INC N$总狂暴 <$STR(N$狂暴1)>
INC N$总狂暴 <$STR(N$狂暴2)>
INC N$总狂暴 <$STR(N$狂暴3)>
INC N$总狂暴 <$STR(N$狂暴4)>
INC N$总狂暴 <$STR(N$狂暴5)>
INC N$总狂暴 <$STR(N$狂暴6)>
INC G352 <$STR(N$总狂暴)>
MOV A87 累计(<$STR(G352)>)元宝\沙城奖励
CONFERTITLE 公益狂暴
#CALL [\系统功能\称号文件\普通称号读取.txt] @普通称号读取

#IF
EQUAL A6 1-2区
EQUAL G1 1
CheckGAMEGOLD > 4999
#act
SET [005] 1
INC G347 5000
INC G349 1
SendCenterMsg 254 0 ★★[江湖快报]★★：玩家≮<$USERNAME>≯开启公益狂暴，为沙巴克奖励捐献5000元宝,GO！GO！GO！ 1 2
GAMEGOLD - 5000
MOV G352 0
INC G352 <$STR(G353)>
INC G352 <$STR(G354)>
AddTextListEx ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)><$STR(A6)>.txt <$str(G347)> 0
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>1-2区.txt 0 N$狂暴1
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>3-4区.txt 0 N$狂暴2
MOV N$总狂暴 0
INC N$总狂暴 <$STR(N$狂暴1)>
INC N$总狂暴 <$STR(N$狂暴2)>
INC G352 <$STR(N$总狂暴)>
MOV A87 累计(<$STR(G352)>)元宝\沙城奖励
CONFERTITLE 公益狂暴
#CALL [\系统功能\称号文件\普通称号读取.txt] @普通称号读取

#IF
EQUAL A6 3-4区
EQUAL G1 1
CheckGAMEGOLD > 4999
#act
SET [005] 1
INC G347 5000
INC G349 1
SendCenterMsg 254 0 ★★[江湖快报]★★：玩家≮<$USERNAME>≯开启公益狂暴，为沙巴克奖励捐献5000元宝,GO！GO！GO！ 1 2
GAMEGOLD - 5000
MOV G352 0
INC G352 <$STR(G353)>
INC G352 <$STR(G354)>
AddTextListEx ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)><$STR(A6)>.txt <$str(G347)> 0
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>1-2区.txt 0 N$狂暴1
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>3-4区.txt 0 N$狂暴2
MOV N$总狂暴 0
INC N$总狂暴 <$STR(N$狂暴1)>
INC N$总狂暴 <$STR(N$狂暴2)>
INC G352 <$STR(N$总狂暴)>
MOV A87 累计(<$STR(G352)>)元宝\沙城奖励
CONFERTITLE 公益狂暴
#CALL [\系统功能\称号文件\普通称号读取.txt] @普通称号读取

#IF
EQUAL A6 1-3区
EQUAL G1 1
CheckGAMEGOLD > 4999
#act
SET [005] 1
INC G347 5000
INC G349 1
SendCenterMsg 254 0 ★★[江湖快报]★★：玩家≮<$USERNAME>≯开启公益狂暴，为沙巴克奖励捐献5000元宝,GO！GO！GO！ 1 2
GAMEGOLD - 5000
MOV G352 0
INC G352 <$STR(G353)>
INC G352 <$STR(G354)>
AddTextListEx ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)><$STR(A6)>.txt <$str(G347)> 0
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>1-3区.txt 0 N$狂暴1
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>4-6区.txt 0 N$狂暴2
MOV N$总狂暴 0
INC N$总狂暴 <$STR(N$狂暴1)>
INC N$总狂暴 <$STR(N$狂暴2)>
INC G352 <$STR(N$总狂暴)>
MOV A87 累计(<$STR(G352)>)元宝\沙城奖励
CONFERTITLE 公益狂暴
#CALL [\系统功能\称号文件\普通称号读取.txt] @普通称号读取

#IF
EQUAL A6 4-6区
EQUAL G1 1
CheckGAMEGOLD > 4999
#act
SET [005] 1
INC G347 5000
INC G349 1
SendCenterMsg 254 0 ★★[江湖快报]★★：玩家≮<$USERNAME>≯开启公益狂暴，为沙巴克奖励捐献5000元宝,GO！GO！GO！ 1 2
GAMEGOLD - 5000
MOV G352 0
INC G352 <$STR(G353)>
INC G352 <$STR(G354)>
AddTextListEx ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)><$STR(A6)>.txt <$str(G347)> 0
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>1-3区.txt 0 N$狂暴1
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>4-6区.txt 0 N$狂暴2
MOV N$总狂暴 0
INC N$总狂暴 <$STR(N$狂暴1)>
INC N$总狂暴 <$STR(N$狂暴2)>
INC G352 <$STR(N$总狂暴)>
MOV A87 累计(<$STR(G352)>)元宝\沙城奖励
CONFERTITLE 公益狂暴
#CALL [\系统功能\称号文件\普通称号读取.txt] @普通称号读取

#IF
LARGE G1 1
CheckGAMEGOLD > 4999
#act
SET [005] 1
INC G347 5000
INC G349 1
SendCenterMsg 254 0 ★★[江湖快报]★★：玩家≮<$USERNAME>≯开启公益狂暴，为沙巴克奖励捐献5000元宝,GO！GO！GO！ 1 2
GAMEGOLD - 5000
MOV G352 0
INC G352 <$STR(G353)>
INC G352 <$STR(G354)>
AddTextListEx ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>战区.txt <$str(G347)> 0
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>战区.txt 0 N$总狂暴
INC G352 <$STR(N$总狂暴)>
MOV A87 累计(<$STR(G352)>)元宝\沙城奖励
CONFERTITLE 公益狂暴
#CALL [\系统功能\称号文件\普通称号读取.txt] @普通称号读取