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

 找回密码
 立即注册

上线登录脚本及结婚脚本 - 传奇私服脚本

查看: 1065|回复: 0

上线登录脚本及结婚脚本

[复制链接]
发表于 2017-10-30 08:51:50 | 显示全部楼层 |阅读模式
简单介绍
    人物登录脚本即在人物进入游戏时自动执行的脚本,通过此脚本可对人物进
行大量的功能控制。

使用方法   在目录 Envir\MapQuest_def\ 中建立文件名为QManage.txt的脚本
按以下格式编写脚本:

=====================================================================
;脚本例子
[@Login]
#IF
    checknamelist 会员.txt
#ACT
;人物杀怪经验为10倍
    CANGETEXP 1 10
;人物攻击力翻2倍
    MULTPOWER 2                           
;送一个七级神兽
    EXECUTE RCALLMOB 神兽 7               
#SAY
欢迎进入游戏,你当前登录的是会员号,会员可以得到大量的优待。\ <关闭/@exit>
注:如该脚本更改后,可不须重启M2使其生效,可用@ReloadManage命令重新加载该脚本。

String.ini
[String]
;夫妻传送命令设置,可更改为自己指定的命令
CMD_RECALLDEAR=RECALLDEAR
;允许夫妻传送命令设置,可更改为自己指定的命令
CMD_ALLOWRECALLDEAR=ALLOWRECALLDEAR
;查询夫妻位置命令
CMD_DEAR=WDEAR

结婚脚本注:强行离婚(指一方不在线或不同意离婚)需要在登录脚本人加入以下命令
(让所有人上线都运行DEARINFO命令即可,否则不接受离婚方或不在线离婚方在强行离
婚后上线仍有结婚字样。
==============================================================
[@Login]
#IF
#ACT
DEARINFO
==============================================================
以上脚在新版本中不再需要


结婚脚本:
[@main]
<求婚/@marry>\
<离婚/@unmarry>\
<询问结婚时间/@asktime>\ <离开/@exit>


[@marry]
求婚者必须是男性且拥有求婚戒指,你准备好求婚了吗?\ <准备好了/@agree>\
<下次再来/@exit>\ \ <返回/@main>

[@agree]
#if
   checkmarryed
#act
   break
#say
你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ <返回/@main>

#if
   gender man
   checkitemw 求婚戒指 1
   execheck dir
   execheck dir 2
#act
   takew 求婚戒指 1
   exemarry
   break

#if
   gender man
   checkitemw 求婚戒指 1
   execheck dir
#say
你变态呀!!!想搞同性恋!!!
#ACT
   BREAK

#if
   gender man
   execheck dir
   execheck dir 2
#say
你没求婚戒指,弄到求婚戒指再来找我吧!!!\ #ACT
   BREAK


#if
   gender man
   execheck dir
   execheck dir 1
#say
你变态呀!!!想搞同性恋!!!
#ACT
   BREAK


#if
   gender man
   checkitemw 求婚戒指 1
#SAY
双方必须面对面才能求婚!!!
#ACT
   BREAK

#if
   gender man
#say
你没求婚戒指,弄到求婚戒指再来找我吧!!!\ #ACT
BREAK

#if
   gender
#say
只有男性才有求婚的权利!!!
#ACT
   BREAK

[@error]


[@StartMarry]
#IF
   checkmarryed
#SAY
你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ <返回/@main>
#ACT
   break

#IF
   GENDER MAN
#ACT
   BREAK
#SAY
婚礼现在正式开始。\ 你愿意娶对方为妻,并照顾她一生一世吗?\
<求婚/@RequestMarry>

#IF
   GENDER
#ACT
   BREAK
#SAY
婚礼现在正式开始。\ 请耐心等待你心爱的人向你求婚\ \


[@RequestMarry]
#IF
   checkmarryed
#ACT
   break
#SAY
你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ <返回/@main>

#IF
#ACT
    EXEMARRY REQUESTMARRY
[@WateMarry]
你已向对方求婚,请耐心等待对方的答复。

[@RevMarry]
#IF
   checkmarryed
#ACT
   break
#SAY
你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ <返回/@main>

#IF
#SAY
对方向你求婚,你是否答应嫁给他? \ <我愿意/@ResposeMarry>
<我不愿意/@ResposeMarryFail>
[@ResposeMarry]
#IF
   checkmarryed
#ACT
   break
#SAY
你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ <返回/@main>

#IF
#ACT
    EXEMARRY RESPONSEMARRY OK
[@ResposeMarryFail]
#IF
   checkmarryed
#ACT
   break
#SAY
你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ <返回/@main>

#IF
#ACT
    EXEMARRY RESPONSEMARRY FAIL
[@EndMarry]
你们二个已经成为了一对全法夫妻了。\ <关闭/@exit>
[@EndMarryFail]
结婚失败!\ <关闭/@exit>
[@MarryDirErr]
对方没站好位置

[@MarryCheckDir]
请站好位置\\

[@HumanTypeErr]
你变态呀,既然选择一个非人类作为结婚对象。

[@MarrySexErr]
你变态呀,既然同性恋。

;==========================================
离婚开始
[@unmarry]
#IF
   checkmarryed
#ACT
   exeunmarry
#Elsesay
你都没结婚离什么婚??\ <返回/@main>

;=======================================================
;双方离婚时没面对面站好显示的信息
[@UnMarryCheckDir]
要离婚是吧?离婚是二个人的事,必须二个人对面对站好位置,如果人来不了
你只能选择强行离婚姻了。\ <我要强行离婚/@fUnMarry>\
<返回/@main>
;=======================================================
;对面位置不是人物时显示的信息
[@UnMarryTypeErr]
你对面站了个什么东西,怎么不太象人来的。\ <返回/@main>

;=======================================================
;开始离婚程序后,双方显示的信息
[@StartUnMarry]
#IF
   gender man
#ACT
   BREAK
#SAY
是否确定真的要与你共事多年的妻子离婚吗?\ <确定/@RequestUnMarry>

#IF
   gender
#SAY
你的老公现在向我请求离婚,是不是愿意协议离婚? \ <确定/@RequestUnMarry>
#ACT
   break

;=======================================================
;发出离婚请求
[@RequestUnMarry]
#IF
   checkmarryed
#ACT
   exeunmarry requestunmarry
;=======================================================
;回应离婚请求
[@ResposeUnMarry]
#IF
   checkmarryed
#ACT
   exeunmarry responseunmarry

;===============================================
;请求离婚后显示的信息
[@WateUnMarry]
你已向对方发出离婚请求,请耐心等待对方的答复。

;===============================================
;请求离婚后对方显示的信息
[@RevUnMarry]
对方向你离婚请求,你是否答应离婚? \ <我愿意/@RequestUnMarry>
<返回/@main>

;===============================================
;没结过婚的人点离婚后出的提示信息
[@ExeMarryFail]
你都没结过婚,跑来做什么? \ [返回/@main]

;==============================================
;强行离婚
[@fUnMarry]
#IF
   checkitem 金条 1
   checkmarryed
#ACT
   take 金条 1
   exeunmarry requestunmarry force
#ElseSay
要收一根金条的手续费,你没有金条,我不能让你离婚。<确定/@exit>
;==============================================
;离婚完成后的提示信息
[@UnMarryEnd]
呵呵,你已经脱离苦海了!!! \ <退出/@exit>
[@asktime]
你调查结婚时间的请求已发出,请稍后。<确定/@exit>


回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-12-23 17:01 , Processed in 0.109368 second(s), 16 queries .

Powered by GM版本库 X3.4

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