[@main]
<$STR(T0)>\\
<滿(mǎn)足要求摘取征婚啟示，嫁給他！/@摘取>　　<查看征婚啟示介紹/@查看>　<離開(kāi)/@exit>


[@摘取]
#IF
gender MAN
#ACT
SENDMSG 5 抱歉，目前暫時(shí)不受理人妖業(yè)務(wù)！你還是一邊去涼快！
break
close
#IF
checkmarry
#ACT
SENDMSG 5 你都結(jié)婚過(guò)了的還來(lái)摘取征婚啟示？
break
#IF
EQUAL T1 無(wú)人
#ACT
SENDMSG 5 今天的的征婚廣告位還沒(méi)有人租用！！你要嫁給誰(shuí)？難道是GM嗎？
break
close
#IF
CHECKLEVELEX < $STR(T2)
#ACT
SENDMSG 5 抱歉！你當(dāng)前的年齡不滿(mǎn)足本次征婚者的要求[<$STR(T2)>]級(jí)！
break
close
#IF
CHECKONLINE $STR(T1)
#ACT
MOV T3 $USERNAME
hcall $STR(T1) @JIEHUNTLSDHI
break
close
#ELSEACT
SENDMSG 5 抱歉！當(dāng)前本次征婚者，俊男[<$STR(T1)>]不在線，你還是等他在線的時(shí)候再來(lái)摘取嫁給他吧！
break
close


[@查看]
是不是為沒(méi)有老婆，找不到對(duì)象而苦惱？沒(méi)有關(guān)系，現(xiàn)在我們給\
你創(chuàng)造找老婆的機(jī)會(huì)！<color=purple 只要你支付1個(gè)元寶，就可以在我這里發(fā)>\
<color=purple 布一次征婚廣告！征婚廣告可以在這里刊登12個(gè)小時(shí)！>只要有滿(mǎn)\
足你條件的女性摘取了你的征婚啟示，那么你們就可以成為夫妻\
了?。?！趕快行動(dòng)吧！！\
\
<我要出錢(qián)做征婚廣告!/@做廣告>　　<到姻緣神殿辦理離婚/@yinsk>\\
<隨便看看/@exit>

[@yinsk]
#ACT
MAPMOVE SH030 6 20
break

[@做廣告]
#IF
gender MAN
#ELSEACT
SENDMSG 5 抱歉，目前暫時(shí)不受理人妖業(yè)務(wù)！女性還是去找人嫁吧！
break
close
#IF
checkmarry
#ACT
SENDMSG 5 你都結(jié)婚過(guò)了的還做什么廣告？
break
#ELSEACT
queryvalue 請(qǐng)輸入你想給女方的嫁妝名字[漢字?jǐn)⑹?5字內(nèi)] 2 50 5

[@getstring5]
#ACT
Getstring S0
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL s0 <
#ELSEACT
SENDMSG 7 抱歉，你所輸入的內(nèi)容里有服務(wù)器禁止輸入的字符！請(qǐng)重新輸入！
break
#ACT
SENDMSG 7 你設(shè)置的給女方的嫁妝是:[<$STR(S0)>]
DELAY 0 @要求
break

[@要求]
#IF
checkmarry
#ACT
break
#ELSEACT
queryvalue 請(qǐng)輸入你對(duì)女方的等級(jí)要求[數(shù)字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 抱歉，你所輸入的內(nèi)容里有服務(wù)器禁止輸入的字符！請(qǐng)重新輸入！
break
#IF
CHECKVAR HUMAN SCL < 50
#ACT
MessageBox 對(duì)不起，你輸入等級(jí)要求錯(cuò)誤！請(qǐng)重新輸入！\　\女方最低等級(jí)設(shè)置需要為50級(jí)！
break
close
#ELSEACT
SENDMSG 7 你設(shè)置的對(duì)女方的等級(jí)要求是:[<$STR(S1)>]
DELAY 0 @宣言
break

[@宣言]
#IF
checkmarry
#ACT
break
#ELSEACT
queryvalue 請(qǐng)輸入你對(duì)愛(ài)情的宣言！[漢字?jǐn)⑹?0字內(nèi)] 2 60 7

[@getstring7]
#ACT
Getstring S2
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL s2 <
#ELSEACT
SENDMSG 7 抱歉，你所輸入的內(nèi)容里有服務(wù)器禁止輸入的字符！請(qǐng)重新輸入！
break
#ACT
SENDMSG 7 你設(shè)置的你對(duì)愛(ài)情的宣言是:[<$STR(S2)>]
GOTO @顯示

[@顯示]
#ACT
MOV S3 <color=purple[]征婚啟示：>\\姓名：<color=red[]
INC S3 $USERNAME
INC S3 >　性別：男　年齡：
INC S3 $LEVEL
INC S3 級(jí)\家產(chǎn)：金幣[
INC S3 $GOLDCOUNT
INC S3 ]，元寶[
INC S3 $GAMEGOLD
INC S3 ]個(gè)\<color=purple[]嫁妝>：
INC S3 $STR(S0)
INC S3 \要求：年齡[
INC S3 $STR(S1)
INC S3 ]級(jí)以上無(wú)婚配女性！\<color=purple[]宣言>：
INC S3 $STR(S2)
#SAY
<$STR(S3)>\\
<是否確認(rèn)輸入信息正確？/@正式發(fā)布>　　<重新修改/@做廣告>

[@正式發(fā)布]
#IF
CHECKLEVELEX < 50
#ACT
SENDMSG 5 發(fā)布征婚廣告需要至少等級(jí)50級(jí)才可以！
break
close
#IF
EQUAL T1 無(wú)人
#ELSEACT
SENDMSG 5 今天的的征婚廣告位已經(jīng)被人租用了！你可以中午12點(diǎn)或者晚上12點(diǎn)再來(lái)發(fā)布！
break
close
#IF
checkmarry
#ACT
SENDMSG 7 結(jié)婚過(guò)了就不要再來(lái)發(fā)布了！
break
#IF
CHECKGAMEGOLD > 0
#ACT
MOV T0 $STR(S3)
MOV T1 $USERNAME
MOV T2 $STR(S1)
GAMEGOLD - 1
CALCVAR HUMAN 消費(fèi) + 1
SAVEVAR HUMAN 消費(fèi) ..\QuestDiary\數(shù)據(jù)文件\消費(fèi).txt
SENDMSG 7 你花費(fèi)了1個(gè)元寶發(fā)布了你的征婚啟示！本次廣告有效時(shí)間12個(gè)小時(shí)！
SENDMSG 0 (☆)俊男[<$USERNAME>]在中州真愛(ài)之樹(shù)處發(fā)布了他的征婚啟示！歡迎全服無(wú)婚配單身美女前往查看！
SENDMSG 8 (☆)俊男[<$USERNAME>]在中州真愛(ài)之樹(shù)處發(fā)布了他的征婚啟示！歡迎全服無(wú)婚配單身美女前往查看！
SENDMSG 10 (☆)俊男[<$USERNAME>]在中州真愛(ài)之樹(shù)處發(fā)布了他的征婚啟示！歡迎全服無(wú)婚配單身美女前往查看！
break
close
#ELSEACT
SENDMSG 7 發(fā)布征婚啟示需要支付1個(gè)元寶！
break
close