[Gm版本库]传奇脚本系列-攻城间谍

(@@InPutString @@InPutInteger )
[@main]
#IF
#ACT
CLOSEBigDialogBox
#SAY
<已经开区/SCOLOR=253>:<[/SCOLOR=254><$STR(G20)><]/SCOLOR=254>天    <攻城状态/SCOLOR=58>:<[/SCOLOR=254><$STR(G24)><]/SCOLOR=254>次         <领取攻城奖励？/@领取攻城奖励？>\ \
<【/SCOLOR=250><创建行会[url=]/@@InPutString89[/url]><】/SCOLOR=250>“不需要号角，直接创建”    <【/SCOLOR=250><申请行会战争[url=]/@guildwar[/url]><】/SCOLOR=250>\
  <【/SCOLOR=254><我想结婚[url=]/@marry[/url]><】/SCOLOR=254>“不需要求婚戒指，直接结婚”    <【/SCOLOR=58><我想离婚[url=]/@unmarry[/url]><】/SCOLOR=58>\ \
【<传送到复活点附近/@传送1>】 “<1000元宝,组队情况下可由队长传送/SCOLOR=250>”\
【<直接偷袭入沙皇宫/@传送2>】 “<5000元宝,组队情况下可由队长传送/SCOLOR=250>”\
【<人物英雄瞬间恢复/@恢复>】 “<8000元宝,人物快速的增加两万血蓝/SCOLOR=250>”\
[@恢复]
#IF
CHECKGAMEGOLD > 8000
#ACT
GAMEGOLD - 8000
HUMANHP + 20000 1
HUMANMP + 20000 1
GOTO @MAIN
break
#ELSEACT
MESSAGEBOX 【提示】：没有元宝，我不给你加血...

[@传送1]
#IF
CHECKGAMEGOLD > 999
#ACT
GAMEGOLD - 1000
GOTO @复活点允许传送
[@复活点允许传送]
#IF
isgroupmaster
#ACT
GOTO @复活点组队
#ELSEACT
GOTO @复活点单人

[@传送2]
#IF
CHECKGAMEGOLD > 4999
#ACT
GAMEGOLD - 5000
GOTO @沙皇宫允许传送
[@沙皇宫允许传送]
#IF
isgroupmaster
#ACT
GOTO @皇宫组队
#ELSEACT
GOTO @皇宫单人
[@沙城区域]
#IF
#ACT
MAPMOVE 3 676 335
BREAK
[@复活点组队]
#IF
RANDOM 6
#ACT
GROUPMAPMOVE 3 632 277
BREAK
#IF
RANDOM 5
#ACT
GROUPMAPMOVE 3 639 291
BREAK
#IF
RANDOM 4
#ACT
GROUPMAPMOVE 3 645 269
BREAK
#IF
RANDOM 3
#ACT
GROUPMAPMOVE 3 657 284
BREAK
#ELSEACT
GROUPMAPMOVE 3 661 317
BREAK
[@复活点单人]
#IF
RANDOM 6
#ACT
MAPMOVE 3 632 277
BREAK
#IF
RANDOM 5
#ACT
MAPMOVE 3 639 291
BREAK
#IF
RANDOM 4
#ACT
MAPMOVE 3 645 269
BREAK
#IF
RANDOM 3
#ACT
MAPMOVE 3 657 284
BREAK
#ELSEACT
MAPMOVE 3 661 317
BREAK
[@皇宫组队]
#IF
#ACT
GROUPMAPMOVE 0150
BREAK
[@皇宫单人]
#IF
#ACT
MAPMOVE 0150
BREAK

[@领取攻城奖励？]
沙皇宫领取

[@marry]
你准备好求婚了吗？\ \
<准备好了[url=]/@agree>\[/url]
<下次再来[url=]/@exit>\[/url] \ \
<返回[url=]/@main[/url]>
[@agree]
#if
checkmarry
#act
break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#if
checkposemarry
#say
对方已经结过婚了，是不是想犯重婚罪呀！！！\ \
<返回[url=]/@main[/url]>
#act
break
#if
gender man
#elsesay
只有男的向女的求婚，还没见过大姑娘向小伙子求婚的。\ \
<返回[url=]/@main[/url]>
#elseact
break

#if
checkposegender man
#say
你变态呀！！！想搞同性恋！！！ \ \
<返回[url=]/@main[/url]>
#act
break
#if
checkposedir 2
#elsesay
你们二个面对面站好呀，不要乱动。\ \
<返回[url=]/@main[/url]>
#elseact
break
#if
CHECKLEVELEX > 34
#elsesay
结婚要求你的等级必须35级或以上，小伙子努力练好级再来找我。\ \
<返回[url=]/@main[/url]>
#elseact
break
#if
checkposelevel > 29
#elsesay
你的对象还没成年，等她长大点再来吧！小伙子不要心急嘛！\ \
<返回[url=]/@main[/url]>
#elseact
break
#if
#act
marry

[@Startmarry]
#if
checkmarry
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#act
break
#if
gender man
#act
break
#say
婚礼现在正式开始。\ \
你愿意娶对方为妻，并照顾她一生一世吗？\ \
<我愿意[url=]/@Requestmarry[/url]>
#if
gender
#act
break
#say
婚礼现在正式开始。\ \
请耐心等待你心爱的人向你求婚\ \

[@Requestmarry]
#if
checkmarry
#act
break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#if
#act
marry requestmarry
[@Watemarry]
你已向对方求婚，请耐心等待对方的答复。
[@Revmarry]
#if
checkmarry
#act
break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#if
#say
对方向你求婚，你是否答应嫁给他？ \ \
<我愿意[url=]/@Resposemarry[/url]> \
<我不愿意[url=]/@ResposemarryFail[/url]>
[@Resposemarry]
#if
checkmarry
#act
break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#if
#act
marry responsemarry ok
[@ResposemarryFail]
#if
checkmarry
#act
break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#if
#act
  marry responsemarry fail
[@Endmarry]
你们二个已经成为了一对全法夫妻了。\ \
<关闭[url=]/@exit[/url]>
[@EndmarryFail]
结婚失败！\ \
<关闭[url=]/@exit[/url]>
[@marryDirErr]
对方没站好位置
[@marryCheckDir]
请站好位置\\
[@HumanTypeErr]
你变态呀，既然选择一个非人类作为结婚对象。
[@marrySexErr]
你变态呀，既然同性恋。
;==========================================
离婚开始
[@unmarry]
#if
checkmarry
#act
unmarry
#elsesay
你都没结婚离什么婚？？\ \
<返回[url=]/@main[/url]>

;=======================================================
;双方离婚时没面对面站好显示的信息
[@UnmarryCheckDir]
要离婚是吧？离婚是二个人的事，必须二个人对面对站好位置，\
如果人来不了你只能选择强行离婚姻了。\ \
<我要强行离婚[url=]/@fUnmarry>\[/url]
<返回[url=]/@main[/url]>
;=======================================================
;对面位置不是人物时显示的信息
[@UnmarryTypeErr]
你对面站了个什么东西，怎么不太象人来的。\ \
<返回[url=]/@main[/url]>
;=======================================================
;开始离婚程序后，双方显示的信息
[@StartUnmarry]
#if
gender man
#act
BREAK
#say
是否确定真的要与你共事多年的妻子离婚吗？\ \
<确定[url=]/@RequestUnmarry[/url]>
#if
gender
#say
你的老公现在向我请求离婚，是不是愿意协议离婚？ \ \
<确定[url=]/@RequestUnmarry[/url]>
#act
break
;=======================================================
;发出离婚请求
[@RequestUnmarry]
#if
checkmarry
#act
unmarry requestunmarry
;=======================================================
;回应离婚请求
[@ResposeUnmarry]
#if
checkmarry
#act
unmarry responseunmarry
;===============================================
;请求离婚后显示的信息
[@WateUnmarry]
你已向对方发出离婚请求，请耐心等待对方的答复。
;===============================================
;请求离婚后对方显示的信息
[@RevUnmarry]
对方向你离婚请求，你是否答应离婚？ \ \
<我愿意[url=]/@RequestUnmarry[/url]>
<返回[url=]/@main[/url]>
;===============================================
;没结过婚的人点离婚后出的提示信息
[@ExemarryFail]
你都没结过婚，跑来做什么？ \ \
[返回[url=]/@main[/url]]
;==============================================
;强行离婚
[@fUnmarry]
#if
checkitem 金条 1
checkmarry
#act
take 金条 1
unmarry requestunmarry force
#elsesay
要收一根金条的手续费，你没有金条，\
我不能让你离婚。\
<确定[url=]/@exit[/url]>
;==============================================
;离婚完成后的提示信息
[@UnmarryEnd]
呵呵，你已经脱离苦海了！！！ \ \
<退出[url=]/@exit[/url]>
[@asktime]
你调查结婚时间的请求已发出，\
请稍后。\
<确定[url=]/@exit[/url]>














[@CallInPutString89]
#IF
HAVEGUILD
#ACT
MessageBox 你已经加入了一个行会，若想自己建立行会请先退出当前行会！
Close
Break
#IF
#ACT
GMEXECUTE +行会 <$STR(S89)> <$USERNAME>
MessageBox 新建立的行会需要重新下线加载行会数据\你已经被服务器自动断开，请重新登陆游戏
KICK
Break
Close
[@guildwar]
　\ \
<输入其他行会名称/SCOLOR=242>：   <【/SCOLOR=254><返回[url=]/@Main[/url]><】/SCOLOR=254>\ \
<【/SCOLOR=250><立即申请行会战争[url=]/@@guildwar[/url]><】/SCOLOR=250>\