传奇单机版下载-传奇服务端-传奇一条龙-Gm版本库-传奇版本库GM基地论坛

 找回密码
 立即注册

[Gm版本库]传奇脚本系列-国王 - 传奇私服脚本

查看: 1245|回复: 0

[Gm版本库]传奇脚本系列-国王

[复制链接]
发表于 2012-11-11 00:24:30 | 显示全部楼层 |阅读模式


(@@InPutString @@InPutInteger )
[@main]
<已经开区/SCOLOR=253>:<[/SCOLOR=254><$STR(G20)><]/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>\
[@领取攻城奖励?]
<首届攻城奖励如下/SCOLOR=242>:\
沙城主可以领取<『五千万』/SCOLOR=58>元宝的攻城奖励\
<【/SCOLOR=250><领取首届攻城奖励/@领取首届攻城奖励><】/SCOLOR=250>\ \ \
<每日攻城奖励如下/SCOLOR=242>:\
沙城主可以领取<『二千万』/SCOLOR=58>元宝的攻城奖励\
<【/SCOLOR=250><领取每日攻城奖励/@领取每日攻城奖励><】/SCOLOR=250>\ \

[@领取每日攻城奖励]
#IF
ISCASTLEMASTER
LARGE G20 1
EQUAL G22 1
#SAY
<★/SCOLOR=254><操作成功!/SCOLOR=149>       【<关闭[url=]/@EXIT[/url]>】\ \
<提示:/SCOLOR=253><元宝增加20000000个/SCOLOR=146>
#ACT
MOV G22 0
GAMEGOLD + 20000000
GuildNoticeMsg 251 249 *沙城主[%s]获得╗╔2000万元宝攻城奖励!
GuildNoticeMsg 251 249 *沙城主[%s]获得╬╬2000万元宝攻城奖励!
GuildNoticeMsg 251 249 *沙城主[%s]获得╝╚2000万元宝攻城奖励!
break
close
#ELSEACT
MESSAGEBOX 【FUCKYOU.BABY,攻城完毕尽快领取,只能一人领取】

[@领取首届攻城奖励]
#IF
ISCASTLEMASTER
EQUAL G20 1
EQUAL G22 1
#SAY
<★/SCOLOR=254><操作成功!/SCOLOR=149>       【<关闭[url=]/@EXIT[/url]>】\ \
<提示:/SCOLOR=253><元宝增加50000000个/SCOLOR=146>
#ACT
MOV G22 0
GAMEGOLD + 50000000
GuildNoticeMsg 251 249 *首届沙城主[%s]获得╗╔5000万元宝攻城奖励!
GuildNoticeMsg 251 249 *首届沙城主[%s]获得╬╬5000万元宝攻城奖励!
GuildNoticeMsg 251 249 *首届沙城主[%s]获得╝╚5000万元宝攻城奖励!
break
close
#ELSEACT
MESSAGEBOX 【FUCKYOU.BABY,攻城完毕尽快领取,只能一人领取】










[@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
GIVE 行会收人令(赠) 1
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>\

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver/手机版/Gm版本库 ( 蜀ICP备20007044号-3 )|网站地图

GMT+8, 2024-7-24 13:43 , Processed in 0.117133 second(s), 21 queries .

Powered by GM版本库 X3.4

© 2001-2011 传奇版本库>  template by 版本库