传奇版本灵符仙子脚本

gmbbs醉后知酒浓 · 发表于 2018-9-13 17:23:36

[@灵符仙子]
{
#ACT
MOV D0 0
CALCVAR HUMAN 元宝 = 0
SAVEVAR HUMAN 元宝 ..\QuestDiary\数据文件\变量.txt
#SAY
在进入天关通道的瞬间，使用1张灵符将可以隐身遁形。\
此时，天关通道内的怪物将无法看到你，\
你就可以直接穿越通道，闯入天关！\
通过我，我可以将您的元宝兑换成灵符\
进入庄园后，等待一分钟后就可以兑换灵符\
<前往天庭闯天关/@前往天庭>\
<查询灵符数量/@查询灵符>\
<了解闯天关的规则/@天关规则> <使用元宝兑换灵符/@元宝换灵符>\
<回土城/@去四周> <离开[url=]/@exit[/url]>
[@去四周]
#IF
checkgold 1000
#ACT
take 金币 1000
close
mapmove 3 334 333
#ELSESAY
[@前往天庭]
#act
map 0122A
[@查询灵符]
你当前的灵符总数是：<$GAMEGIRD>
[@查询元宝]
你当前的元宝总数是：<$GAMEGOLD>
[@天关规则]
<为什么提示我“天关通道已经满员，请稍后再试”/@满员提示>\
<天关通道是否就是天关/@天关通道>\
\ \
<返回[url=]/@main[/url]>
[@满员提示]
如果玩家对自己的实力有信心，可以[选择消灭怪物]
在没有灵符的保护下进入天关通道\
玩家必须只身消灭完天关通道里的所有怪物，才能进入天关夺宝\
这里的通道一共有5条\
如果满员就会提示：“天关通道已经满员，请稍后再试”\
\ \
<返回上一页/@天关规则>
[@天关通道]
天关通道并不是天关，只是天庭通往天关的通道\
天关通道里没有宝藏，真正的宝藏是隐藏在天关里的\
\ \
\ \
<返回上一页/@天关规则>
[@元宝换灵符]
#IF
equal G2 1
#ACT
MessageBox 闯天关暂未开放，开放时系统将进行通知，请注意游戏公告！
break
#IF
small D0 0
#ACT
mov D0 0
#IF
#SAY
兑换标准：50个元宝可以用以兑换1张灵符，\
如果您进行灵符的兑换，则视您已经同意以上兑换规则。\
<查询灵符数量/@查询灵符> <查询元宝数量/@查询元宝>\
#IF
equal D0 0
#SAY
你还没有灵符。\
#IF
large D0 0
#SAY
你打算兑换 <$STR(D0)> 张灵符。\
#IF
#SAY
<加一张/@加一张> <加五张/@加五张> <加十张/@加十张> <减一张/@减一张> <减五张/@减五张> <减十张/@减十张>\
\
\
<确定使用元宝兑换/@确定兑换>
[@加一张]
#ACT
inc D0 1
CALCVAR HUMAN 元宝 + 50
SAVEVAR HUMAN 元宝 ..\QuestDiary\数据文件\变量.txt
goto @元宝换灵符
[@加五张]
#ACT
inc D0 5
CALCVAR HUMAN 元宝 + 250
SAVEVAR HUMAN 元宝 ..\QuestDiary\数据文件\变量.txt
goto @元宝换灵符
[@加十张]
#ACT
inc D0 10
CALCVAR HUMAN 元宝 + 500
SAVEVAR HUMAN 元宝 ..\QuestDiary\数据文件\变量.txt
goto @元宝换灵符
[@减一张]
#ACT
dec D0 1
CALCVAR HUMAN 元宝 - 50
SAVEVAR HUMAN 元宝 ..\QuestDiary\数据文件\变量.txt
goto @元宝换灵符
[@减五张]
#ACT
dec D0 5
CALCVAR HUMAN 元宝 - 250
SAVEVAR HUMAN 元宝 ..\QuestDiary\数据文件\变量.txt
goto @元宝换灵符
[@减十张]
#ACT
dec D0 10
CALCVAR HUMAN 元宝 - 500
SAVEVAR HUMAN 元宝 ..\QuestDiary\数据文件\变量.txt
goto @元宝换灵符
[@确定兑换]
#if
small D0 1
#ACT
break
#SAY
兑换灵符只能在1至1000之间
#if
large D0 1000
#ACT
break
#SAY
兑换灵符只能在1至1000之间
#IF
CHECKGAMEGOLD < <$STR(D0)>
#ACT
break
#SAY
请进步前辈行元宝充值。\
\ \
<离开[url=]/@exit[/url]>
#IF
random 1
#ACT
GameGold - <$HUMAN(元宝)>
GAMEGIRD + <$STR(D0)>
Calcvar HUMAN SDLF + <$STR(D0)>
SAVEVAR HUMAN SDLF ..\QuestDiary\数据文件\圣殿灵符.txt
SendMSG 6 你获得了<$STR(D0)>张灵符
SendMSG 6 你获得了<$STR(D0)>张圣殿灵符
CALCVAR HUMAN 元宝 = 0
SAVEVAR HUMAN 元宝 ..\QuestDiary\数据文件\变量.txt
#SAY
元宝兑换成功！
}