|
发表于 2013-9-11 22:48:52
|
显示全部楼层
(@@InPutString @@InPutInteger)
[@是否同意]
{
#IF
checkmarry
#say
您的老公又要另结新欢,请问您是否同意?\\
如果您同意在他纳妾成功后您将获得1万元宝的安家费以备不时之需\\
并且会自动同他的二房成为好姐妹\\
同时您将会获得<河东狮吼>的技能无论两个人在何处寻欢您都能将他们\\
召唤回来!为了保证您的家庭绝对地位当您跟小妾在5内内您的各项\\
属性将得到10点的提升!考虑下吧\\
┃<我同意/@tongyi>┃<不同意/@butongyi>┃\
[@tongyi] 这一段是不是有问题?
#IF 执行同意的时候。系统会提示:@StartQuest 此命令不正确.或没有足够的权限?
checkmarry 请问这个是怎么回事?
CheckOnline <$FQNAME>
#ACT
MOV S0 <$FQNAME>
S0.GOTO @随便吧
delaygoto 30 @删除等待状态
close
[@随便吧]
#IF
#ACT
CloseBigDialogBox
#call [\纳妾系统\老婆同意.txt] @老婆同意
#SAY
<老婆已同意请等待对方的消息/SCOLOR=250>\
[@删除等待状态]
#IF
CHECKVAR HUMAN $姐妹状态 = 等待结果
#ACT
CALCVAR HUMAN $姐妹状态 =
CALCVAR HUMAN $好姐妹 =
SAVEVAR HUMAN $姐妹状态 ..\QuestDiary\数据文件\姐妹数据.txt
SAVEVAR HUMAN $好姐妹 ..\QuestDiary\数据文件\姐妹数据.txt
break
[@butongyi]
#IF
checkmarry
#ACT
MOV S0 <$FQNAME>
S0.messagebox 【<$USERNAME>】:你这个没良心的!我不同意坚决不同意!
}
|
|