📄 中州_消息树-0.txt
字号:
[@main]
<$STR(T0)>\\
<满足要求摘取征婚启示,嫁给他!/@摘取> <查看征婚启示介绍/@查看> <离开/@exit>
[@摘取]
#IF
gender MAN
#ACT
SENDMSG 5 抱歉,目前暂时不受理人妖业务!你还是一边去凉快!
break
close
#IF
checkmarry
#ACT
SENDMSG 5 你都结婚过了的还来摘取征婚启示?
break
#IF
EQUAL T1 无人
#ACT
SENDMSG 5 今天的的征婚广告位还没有人租用!!你要嫁给谁?难道是GM吗?
break
close
#IF
CHECKLEVELEX < $STR(T2)
#ACT
SENDMSG 5 抱歉!你当前的年龄不满足本次征婚者的要求[<$STR(T2)>]级!
break
close
#IF
CHECKONLINE $STR(T1)
#ACT
MOV T3 $USERNAME
hcall $STR(T1) @JIEHUNTLSDHI
break
close
#ELSEACT
SENDMSG 5 抱歉!当前本次征婚者,俊男[<$STR(T1)>]不在线,你还是等他在线的时候再来摘取嫁给他吧!
break
close
[@查看]
是不是为没有老婆,找不到对象而苦恼?没有关系,现在我们给\
你创造找老婆的机会!<color=purple 只要你支付1个元宝,就可以在我这里发>\
<color=purple 布一次征婚广告!征婚广告可以在这里刊登12个小时!>只要有满\
足你条件的女性摘取了你的征婚启示,那么你们就可以成为夫妻\
了!!!赶快行动吧!!\
\
<我要出钱做征婚广告!/@做广告> <到姻缘神殿办理离婚/@yinsk>\\
<随便看看/@exit>
[@yinsk]
#ACT
MAPMOVE SH030 6 20
break
[@做广告]
#IF
gender MAN
#ELSEACT
SENDMSG 5 抱歉,目前暂时不受理人妖业务!女性还是去找人嫁吧!
break
close
#IF
checkmarry
#ACT
SENDMSG 5 你都结婚过了的还做什么广告?
break
#ELSEACT
queryvalue 请输入你想给女方的嫁妆名字[汉字叙述25字内] 2 50 5
[@getstring5]
#ACT
Getstring S0
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL s0 <
#ELSEACT
SENDMSG 7 抱歉,你所输入的内容里有服务器禁止输入的字符!请重新输入!
break
#ACT
SENDMSG 7 你设置的给女方的嫁妆是:[<$STR(S0)>]
DELAY 0 @要求
break
[@要求]
#IF
checkmarry
#ACT
break
#ELSEACT
queryvalue 请输入你对女方的等级要求[数字50以上] 2 2 6
[@getstring6]
#ACT
Getstring S1
CALCVAR HUMAN SCL = $STR(S1)
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL s1 <
#ELSEACT
SENDMSG 7 抱歉,你所输入的内容里有服务器禁止输入的字符!请重新输入!
break
#IF
CHECKVAR HUMAN SCL < 50
#ACT
MessageBox 对不起,你输入等级要求错误!请重新输入!\ \女方最低等级设置需要为50级!
break
close
#ELSEACT
SENDMSG 7 你设置的对女方的等级要求是:[<$STR(S1)>]
DELAY 0 @宣言
break
[@宣言]
#IF
checkmarry
#ACT
break
#ELSEACT
queryvalue 请输入你对爱情的宣言![汉字叙述30字内] 2 60 7
[@getstring7]
#ACT
Getstring S2
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL s2 <
#ELSEACT
SENDMSG 7 抱歉,你所输入的内容里有服务器禁止输入的字符!请重新输入!
break
#ACT
SENDMSG 7 你设置的你对爱情的宣言是:[<$STR(S2)>]
GOTO @显示
[@显示]
#ACT
MOV S3 <color=purple[]征婚启示:>\\姓名:<color=red[]
INC S3 $USERNAME
INC S3 > 性别:男 年龄:
INC S3 $LEVEL
INC S3 级\家产:金币[
INC S3 $GOLDCOUNT
INC S3 ],元宝[
INC S3 $GAMEGOLD
INC S3 ]个\<color=purple[]嫁妆>:
INC S3 $STR(S0)
INC S3 \要求:年龄[
INC S3 $STR(S1)
INC S3 ]级以上无婚配女性!\<color=purple[]宣言>:
INC S3 $STR(S2)
#SAY
<$STR(S3)>\\
<是否确认输入信息正确?/@正式发布> <重新修改/@做广告>
[@正式发布]
#IF
CHECKLEVELEX < 50
#ACT
SENDMSG 5 发布征婚广告需要至少等级50级才可以!
break
close
#IF
EQUAL T1 无人
#ELSEACT
SENDMSG 5 今天的的征婚广告位已经被人租用了!你可以中午12点或者晚上12点再来发布!
break
close
#IF
checkmarry
#ACT
SENDMSG 7 结婚过了就不要再来发布了!
break
#IF
CHECKGAMEGOLD > 0
#ACT
MOV T0 $STR(S3)
MOV T1 $USERNAME
MOV T2 $STR(S1)
GAMEGOLD - 1
CALCVAR HUMAN 消费 + 1
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
SENDMSG 7 你花费了1个元宝发布了你的征婚启示!本次广告有效时间12个小时!
SENDMSG 0 (☆)俊男[<$USERNAME>]在中州真爱之树处发布了他的征婚启示!欢迎全服无婚配单身美女前往查看!
SENDMSG 8 (☆)俊男[<$USERNAME>]在中州真爱之树处发布了他的征婚启示!欢迎全服无婚配单身美女前往查看!
SENDMSG 10 (☆)俊男[<$USERNAME>]在中州真爱之树处发布了他的征婚启示!欢迎全服无婚配单身美女前往查看!
break
close
#ELSEACT
SENDMSG 7 发布征婚启示需要支付1个元宝!
break
close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -