人物死亡自动开龙传

meinvwudi

开龙传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] @普通称号读取

meinvwudi

死亡触发：Market_Def\QFunction-0.txt
;—————死亡触发————-
[@PlayDie]
#IF
CHECK [002] 1
KillByHum
#ACT
GOTO @龙传死亡触发

meinvwudi

下龙传


[@龙传死亡触发]
#IF
EQUAL A423 开
CHECK [002] 1
EQUAL <$HUMAN(攻沙保护)> 1
#ACT
SENDMSG 6 您开启了攻沙保护，攻沙期间不掉龙传 
GuildNoticeMsg 222 162 [江湖快报]:『<$CURRRTARGETNAME>』在:%m把『<$USERNAME>』杀害了,兄弟们帮忙打个120看能否抢救.
BREAK

#OR
ISONMAP JUEDOU
ISONMAP JUEDOU1
#ACT
BREAK

#IF
CHECKGAMEGOLD < 30000
CHECK [003] 1
#ACT
SENDMSG 6 您的元宝不足，自动开启龙传功能关闭
SET [003] 0

#IF
KillByHum
CHECK [003] 1
#ACT
#CALL [\系统功能\龙传死亡触发.txt] @龙传死亡
<$KILLER>.GAMEGOLD + 15000
INC G335 15000
INC G348 1
<$KILLER>.INC U19 15000
GuildNoticeMsg 255 27 [国际要闻]：玩家『<$KILLER>』在[%m]把“龙的传人”『<$USERNAME>』杀害了,获得了15000个元宝赏金！
GOTO @龙传数量计算
BREAK

#IF
KillByHum
CHECK [003] 0
#ACT
SET [002] 0
DEPRIVETITLE 龙传属性
SENDMSG 6 您被杀害了“◆龍的传人◆”封号被取消 
<$KILLER>.GAMEGOLD + 15000
<$KILLER>.INC U19 15000
seticon 0 -1
#CALL [\系统功能\爆率文件\普通爆率读取.txt] @普通爆率读取
GuildNoticeMsg 255 27 [国际要闻]：玩家『<$KILLER>』在[%m]把“龙的传人”『<$USERNAME>』杀害了,获得了15000个元宝赏金！
GOTO @龙传数量计算
BREAK

meinvwudi

[@龙传死亡]
{
#IF
CHECK [003] 1
#ACT
GOTO @自动开启龙传验证
BREAK


[@自动开启龙传验证]
#IF
CHECKGAMEGOLD > 29999
#ACT
GAMEGOLD - 30000
SENDMSG 6 您使用了自动开启龙传，扣除30000无需再次点击龙传。
#ELSEACT
SET [003] 0
SET [002] 0
DEPRIVETITLE 龙传属性
seticon 0 -1
INC G348 1
MessAgeBox 对不起！您的元宝不足30000，自动开启龙传取消。
}