传奇世界最能吸引人的地方是它的 回城石功能，在私服里如何能实现这一功能呢，下面我们就详细的讲一讲“传世回城石”脚本的写法和定义。
[@回城神石开启]
{
#IF
CHECKMAPNAME 128
#ACT
goto @拒绝非
#ELSEACT
decusestime 1
goto @可以飞哦
[@拒绝非]
\
你还是老实的呆在这里吧~~\\
再不老实，还想着跑，就多关你几天！\
[@可以飞哦]
#IF
checkitem 金钱镖 1
#ACT
SENDMSG 7 背包内有镖时不允许使用回城神石
break
#IF
checkitem 声望镖 1
#ACT
SENDMSG 7 背包内有镖时不允许使用回城神石
break
#IF
checkitem 经验镖 1
#ACT
SENDMSG 7 背包内有镖时不允许使用回城神石
break
#IF
checkitem 元宝镖 1
#ACT
SENDMSG 7 背包内有镖时不允许使用回城神石
break
#IF
checkitem 宝盒 1
#ACT
SENDMSG 7 背包内有宝盒时不允许使用回城神石
break
#IF
checkitem 神武宝物 1
#ACT
SENDMSG 7 背包内有神武宝物时不允许使用回城神石
break
#IF
checkitem 幻魔宝物 1
#ACT
SENDMSG 7 背包内有幻魔宝物时不允许使用回城神石
break
#IF
checkitem 天玄宝物 1
#ACT
SENDMSG 7 背包内有天玄宝物时不允许使用回城神石
break
#IF
checkitem 圣战宝物 1
#ACT
SENDMSG 7 背包内有圣战宝物时不允许使用回城神石
break
#IF
checkitem 法神宝物 1
#ACT
SENDMSG 7 背包内有法神宝物时不允许使用回城神石
break
#IF
checkitem 天尊宝物 1
#ACT
SENDMSG 7 背包内有天尊宝物时不允许使用回城神石
break
#IF
checkitem 神兵宝物 1
#ACT
SENDMSG 7 背包内有神兵宝物时不允许使用回城神石
break
#IF
EQUAL G24 0
#ACT
break
#SAY
\
欢迎你使用<COLOR=red 回城神石>可选以下区域传送！\\
<新手练级/@新人40> <城市传送/@城传2>\
<险恶传送/@险恶2>\
<商店传送/@商传2> <火暴活动/@火暴活动x2>\
<挑战炼狱/@挑炼>\
<夺宝奇兵/@夺宝奇兵> <沙城区域/@沙城区域>\
#ELSEACT
goto @关闭传送
break
[@关闭传送]
#IF
checkitem 金钱镖 1
#ACT
SENDMSG 7 背包内有镖时不允许使用回城神石
break
#IF
checkitem 声望镖 1
#ACT
SENDMSG 7 背包内有镖时不允许使用回城神石
break
#IF
checkitem 经验镖 1
#ACT
SENDMSG 7 背包内有镖时不允许使用回城神石
break
#IF
checkitem 元宝镖 1
#ACT
SENDMSG 7 背包内有镖时不允许使用回城神石
break
;死水沼泽
#IF
CHECKVAR HUMAN HCS = 7
#ACT
MOV P0 56
MOVR P1 24
INC P0 $STR(P1)
MAPMOVE 7 $STR(P0) 41
SHOWHUMEFFECT 29
break
;热荒沙漠
#IF
CHECKVAR HUMAN HCS = 2
#ACT
MOV P0 223
MOVR P1 25
INC P0 $STR(P1)
MAPMOVE 2 $STR(P0) 446
SHOWHUMEFFECT 29
break
;中州王城
#IF
CHECKVAR HUMAN HCS = 10
#ACT
MOV P0 469
MOVR P1 10
INC P0 $STR(P1)
MAPMOVE 0 $STR(P0) 227
SHOWHUMEFFECT 29
break
;落霞岛
#IF
CHECKVAR HUMAN HCS = 1
#ACT
MOV P0 254
MOVR P1 26
INC P0 $STR(P1)
MAPMOVE 1 $STR(P0) 250
SHOWHUMEFFECT 29
break
;禁地
#IF
CHECKVAR HUMAN HCS = 4
#ACT
MOV P0 341
MOVR P1 20
INC P0 $STR(P1)
MAPMOVE 4 $STR(P0) 175
SHOWHUMEFFECT 29
break
;西域奇境
#IF
CHECKVAR HUMAN HCS = 5
#ACT
MOV P0 463
MOVR P1 20
INC P0 $STR(P1)
MAPMOVE 5 $STR(P0) 108
SHOWHUMEFFECT 29
break
;沙城区域
#IF
CHECKVAR HUMAN HCS = 3
#ACT
MOV P0 189
MOVR P1 30
INC P0 $STR(P1)
MAPMOVE 3 $STR(P0) 416
SHOWHUMEFFECT 29
break
#ELSEACT
MOV P0 221
MOVR P1 26
INC P0 $STR(P1)
MAPMOVE 1 $STR(P0) 240
SHOWHUMEFFECT 29
break
[@火暴活动x2]
#ACT
#CALL [\活动专区\火暴活动.txt] @火暴活动
[@动传]
#ACT
#CALL [\活动专区\火暴活动.txt] @火暴活动
[@挑炼]
#ACT
#CALL [\游戏功能\进入炼狱.txt] @登陆炼狱
[@夺宝奇兵]
每天<color=red 中午13:30，晚上19:30>，通天教主将出现在\
【夺宝奇兵地图】内，杀死通天教主就会出现宝\
盒，宝盒内藏有顶级<color=orange 技能书、武器、服装>等物品\
只要你得到并<color=orange 保护宝盒30分钟>就可获得！\
<color=0X00FFFF 上一次夺宝的结果是:>\
<$STR(T98)>\\
<进入夺宝奇兵地图/@进入夺宝> <返回/@火暴活动>
[@进入夺宝]
#IF
#ACT
MAPMOVE NLDB
SHOWHUMEFFECT 29
#ELSESAY
你没有那么多钱.\
[@沙城区域]
#IF
CHECKGOLD 1000
#ACT
TAKE 金币 1000
MAPMOVE 3 238 494
SHOWHUMEFFECT 29
#ELSESAY
你没有那么多钱.\
[@城传2]
#ACT
#CALL [\商人\老兵.txt] @城镇传送
[@险恶2]
#ACT
#CALL [\商人\老兵.txt] @险恶传送
[@商传2]
#ACT
#CALL [\商人\老兵.txt] @商店传送
[@新人40]
\
新人在<COLOR=red 43级前>可选以下2个区域打怪！\\
<僵尸洞/@矿区新>\\
<将军坟/@将军新>\\
提示:<COLOR=orange 在外要回城时，只需要再次双击本回城神石>\
[@矿区新]
#ACT
MAPMOVE T022 20 68
SHOWHUMEFFECT 29
delay 3 @2秒地
break
[@将军新]
#ACT
MAPMOVE H073 116 124
SHOWHUMEFFECT 29
delay 3 @3秒地
break
[@2秒地]
<COLOR=GREEN 矿区地图>说明:\
矿区地图只保留:矿区入口-疏散通道-中部矿区-尸王殿.\
:<COLOR=orange 尸王殿内尸王出各种40级以上新书.记忆手镯>.\\
:<COLOR=orange 新人在这里练到43级就可以到其它地方去了>\
:<COLOR=orange 各种僵尸容易出各种首饰，赚钱就多拣点卖>\
:<COLOR=RED 尸王殿就在下面-中部矿区那里进入>\
[@3秒地]
<COLOR=GREEN 将军坟地图>说明:\
将军坟地图只保留:三层和将军殿.\
:<COLOR=orange 将军殿内尸霸出战斗号角与记忆戒指>.\\
:<COLOR=orange 新人在这里练到43级就可以到其它地方去了>\
:<COLOR=orange 各种怪物容易出各种首饰，赚钱就多拣点卖>\
[@新人49]
#ACT
MAPMOVE 2 224 433
SHOWHUMEFFECT 29
break
}
|