比武招亲脚本

脚本不完全，但是基本的都在里面了，可能有些小瑕疵，注意点，不要全部照搬照抄阿

全局字符变量

T35  新娘名字

T36 职业

T37 行会

T38 夺得绣球的男玩家名字

不完美之处，无法限定用有绣球之后的控制他的范围 即出城就掉绣球

Q-FUNCTON0.TXT

[@pickupitem83]
#if
  checkmarry
#act
  kick
break
#if
  gender woman
#act
  kick
break
#elseact
SENDMSG 0 (*)%s携带绣球出现在%m(%x，%y)，谁能保存绣球15分钟就有机会迎娶今日漂亮的新娘
SENDMSG 8 (*)%s携带绣球出现在%m(%x，%y)，谁能保存绣球15分钟就有机会迎娶今日漂亮的新娘
SetArrow 15 @结婚 绣球 1 @间隔喊话1


[@间隔喊话1]
#if
#act
SENDMSG 0 (*)%s携带绣球出现在%m(%x，%y)，谁能保存绣球15分钟就有机会迎娶今日漂亮的新娘
SENDMSG 8 (*)%s携带绣球出现在%m(%x，%y)，谁能保存绣球15分钟就有机会迎娶今日漂亮的新娘

[@dropitem83]
#IF
#act
SENDMSG 0 (*)绣球掉落在%m(%x，%y)，谁能保存绣球15分钟就有机会迎娶今日漂亮的新娘
SENDMSG 8 (*)绣球掉落在%m(%x，%y)，谁能保存绣球15分钟就有机会迎娶今日漂亮的新娘

ClearArrow

[@结婚]
#if
CHECKONLINE $STR(T35)
#act
mov T38 $USERNAME
HCALL $STR(T35) @ttt8
#ELSEACT
mov T35 没有
mov T36 没有
mov T37 没有
mov T38 没有
SENDMSG 1 (*)可惜啊，我们可爱的新娘居然失踪了!可惜我们的英雄啊，下次吧~

QMANAGE.TXT

[@ttt8]
#if
#say
我们的英雄<$STR(T38)>终于力压群雄，夺得了绣球\
你愿意嫁给他，让他来保护你，爱你，疼你\\
<是的,我愿意/@我愿意啊>\
<我还小,妈妈不许我嫁人/@不愿意啊>\
;www.
[@我愿意啊]
#if
checkmarry
#act
mov T35 没有
mov T36 没有
mov T37 没有
mov T38 没有
SENDMSG 7 (*)你已经有一个爱你的老公了!
#elseact
GMExcute 配偶 $STR(T35) $STR(T38)
SENDMSG 1 恭喜美女<$STR(T35)>与英雄<$STR(T38)>，喜结连理哦，下个星期天，我们“比武招亲”见!
SENDMSG 8 恭喜美女<$STR(T35)>与英雄<$STR(T38)>，喜结连理哦，下个星期天，我们“比武招亲”见!
mov T35 没有
mov T36 没有
mov T37 没有
mov T38 没有


[@不愿意啊]
#if
#act
mov T35 没有
mov T36 没有
mov T37 没有
mov T38 没有
SENDMSG 1 可惜，美女拒绝了今日比武英雄的求婚，下个星期天，我们“比武招亲”见!