? 传奇夫妻专属传送技能 | 一键飞到伴侣身边
? 传奇夫妻专属传送技能 | 一键飞到伴侣身边
作者：传奇之家类别：开区脚本
更新：2026-10-06查看次数：76
[@MarriageTeleport]
#IF
CHECKMARRIAGE
#ACT
MOV S$SpouseName %SPOUSENAME
MOV N$TeleportCost 500000
MOV N$CoolDown 60
GOTO @ShowMarriageMenu
#ELSEACT
MESSAGEBOX 提示：您尚未结婚，无法使用夫妻传送技能！
BREAK
[@ShowMarriageMenu]
#IF
#ACT
OPENMERCHANTBIGDLG 0 580 1 4 -80 100
SAY
<━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━/FCOLOR=251>
< ???? 夫 妻 同 心 传 送 技 能 ????/FCOLOR=253>
<━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━/FCOLOR=251>
< 配偶名称：/FCOLOR=249> <$STR(S$SpouseName)/FCOLOR=70>
< 传送费用：/FCOLOR=246> <$STR(N$TeleportCost) 金币/FCOLOR=242>
< 冷却时间：/FCOLOR=245> <$STR(N$CoolDown) 秒/FCOLOR=242>
<━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━/FCOLOR=151>
<【? 立即传送到伴侣身边】/@ConfirmTeleport> \
<【???? 取消操作】/@EXIT>
<━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━/FCOLOR=151>
BREAK
[@ConfirmTeleport]
#IF
CHECK [102] 1
#ACT
MESSAGEBOX 提示：传送技能正在冷却中，剩余<$STR(N$RemainCD)>秒后才能再次使用！
BREAK
#IF
CHECKGOLD < $N$TeleportCost
#ACT
MESSAGEBOX 提示：金币不足$N$TeleportCost，无法使用传送技能！
BREAK
#IF
#ACT
TAKEGOLD $N$TeleportCost
SET [102] 1
MOV N$RemainCD $N$CoolDown
MOVR N$MapX 5 10
MOVR N$MapY 5 10
MAPMOVE %SPOUSEMAP %SPOUSEX $N$MapX %SPOUSEY $N$MapY
SENDMSG 6 [夫妻技能] 您消耗了$N$TeleportCost金币，传送到伴侣【$STR(S$SpouseName)】身边！
SENDMSG 6 [夫妻技能] 冷却倒计时开始：$N$CoolDown秒
DelayCall 1000 @CoolDownTick
BREAK
[@CoolDownTick]
#IF
LARGE N$RemainCD 0
#ACT
DEC N$RemainCD 1
DelayCall 1000 @CoolDownTick
BREAK
#IF
SMALL N$RemainCD 1
#ACT
SET [102] 0
SENDMSG 6 [夫妻技能] 冷却结束，您可以再次使用夫妻传送技能了！
BREAK
[@SpouseOnlineCheck]
#IF
CHECKONLINE %SPOUSENAME
#ACT
GOTO @ConfirmTeleport
#ELSEACT
MESSAGEBOX 提示：您的伴侣【$STR(S$SpouseName)】当前不在线，无法传送！
BREAK