脚本简要说明
类似大富翁的问答,庞大的题库支持玩家回答
支持管理开启,支持追加,修改题库
注意:本脚本仅供测试调试,请勿用于正规
不提供任何有关的支持和疑难咨询。
如希望获得正式,请用题库模版制作题库
协助完善本。
-----------------------------------------------------------*/
织梦内容管理系统
/*参数说明:
静态
$Wgplay 参赛者ID
$Wordgame 启动标志 本文来自织梦
动态
参与玩家名字
@Ques 问题号码
@ful[1,12] 完成题目的号码
@full 累计题数
@gold 累计奖金
*/
dedecms.com
//-----------计时关闭-------------
prontera.gat,156,182,3 script Wrodgameclose -1,{
if ($Wordgame ==0 ) end;
announce "【方梦琳】今晚的大富翁结束,谢谢"+"的参与,我们明天见。",15;
disablenpc "方梦琳";
}
dedecms.com
//-----------主导-------------
prontera.gat,156,182,4 script 方梦琳 758,{
// if ($Wordgame == 0) goto L_wgclose; //如果未启动到结束
// if (getcharid(0) != $Wgplay) goto L_wglook; //如果不是参赛者,到结束
mes "【方梦琳】";
mes "欢迎参加心灵仙境百万大富翁有奖问答游戏,我简略重复一次规则。游戏开始后你一共有20分钟时间答题,时间到了不管你答对多少都算失败。每次提问时我会提示你剩余时间。觉得答错了可以返回重来,不限制次数。下面开始。";
next;
set ); //暂存玩家名字
announce "晚上好各位心灵仙境玩家,我是百万大富翁主持【方梦琳】。",15;
dedecms.com
if (edu == 1) announce "今晚的幸运玩家["开始答题了,祝他拿到今天的百万大奖。",15;
if (edu == 0) announce "今晚的幸运玩家["开始答题了,祝她拿到今天的百万大奖。",15;
initnpctimer; //启动计时器
// set $Wgplay,0; //清除玩家代码
set @full,1; //初始化答题次数
set @max,getarraysize($Quesion$) - 1;
setarray @ful,100,100,100,100,100,100,100,100,100,100,100,100,100;
L_question: //开始或继续问答
copyright dedecms set @Ques,rand(1,@max); //取得题目号码
if (@Ques == @ful[1] || @Ques == @ful[2] || @Ques == @ful[3] || @Ques == @ful[4] || @Ques == @ful[5] || @Ques == @ful[6] || @Ques == @ful[7] || @Ques == @ful[8] || @Ques == @ful[9] || @Ques == @ful[10] || @Ques == @ful[11] || @Ques == @ful[12]) goto L_question; //如果题目已经用过,返回取号码
setarray @ful[@full],@Ques; //记录被使用的题号
set @Q$,$Quesion$[@Ques]; //取得题目内容
set @A$,$AnswerA$[@Ques]; //取答案A内容
set @B$,$AnswerB$[@Ques]; //取答案B内容
set @C$,$AnswerC$[@Ques]; //取答案C内容
织梦好,好织梦 set @D$,$AnswerD$[@Ques]; //取答案D内容
set @OK,$AnswerOK[@Ques]; //取正确答案号码
L_question_2:
mes "第"+"题:"+"?";
mes "(A):"+";";
mes "(B):"+";";
mes "(C):"+";";
mes "(D):"+";";
mes "目前你的累计奖金"+",请选择一个你认为正确的答案。";
next;
menu "选择答A",L_AA,
"选择答B",L_AB,
"选择答C",L_AC,
"选择答D",L_AD,
"不知道",L_FQ;
L_AA:
set @PE,1;
set @PE$,"A";
本文来自织梦
goto L_DATI;
L_AB:
set @PE,2;
set @PE$,"B";
goto L_DATI;
L_AC:
set @PE,3;
set @PE$,"C";
goto L_DATI;
L_AD:
set @PE,4;
set @PE$,"D";
L_DATI:
mes "第"+"题:"+"?";
if (@PE == 1) mes "^FF0000(A):"+";^000000";
if (@PE != 1) mes "(A):"+";";
if (@PE == 2) mes "^FF0000(B):"+";^000000";
if (@PE != 2) mes "(B):"+";";
if (@PE == 3) mes "^FF0000(C):"+";^000000";
if (@PE != 3) mes "(C):"+";";
if (@PE == 4) mes "^FF0000(D):"+";^000000";
织梦内容管理系统 if (@PE != 4) mes "(D):"+";";
set @temp,rand(1,4);
if (@temp == 1 ) mes "是"+"吗?别告诉我没考虑哦?";
if (@temp == 2 ) mes "是"+"吗?别告诉我没考虑哦?";
if (@temp == 3 ) mes "是"+"吗?别告诉我没考虑哦?";
if (@temp == 4 ) mes "是"+"吗?别告诉我没考虑哦?";
next;
menu "是,就选这个",-,"让我再想想……",L_question_2;
if (@OK == @PE) goto L_win;
goto L_loser;
L_win:
if (@full == 12) goto L_winer; //全部答对后去终极奖励
set @gold,@gold + ((1000 * @full) * @full); //计算累计奖金
mes "第"+"题:"+"?";
dedecms.com if (@OK != 1) mes "(A):"+";";
if (@OK == 1) mes "^00FF00(A):"+";^000000";
if (@OK != 2) mes "(B):"+";";
if (@OK == 2) mes "^00FF00(B):"+";^000000";
if (@OK != 3) mes "(C):"+";";
if (@OK == 3) mes "^00FF00(C):"+";^000000";
if (@OK != 4) mes "(D):"+";";
if (@OK == 4) mes "^00FF00(D):"+";^000000";
mes "恭喜你,答——对了!继续下一题!";
MapAnnounce "prontera.gat","【方梦琳】:恭喜["+"]答对了第"+"题,我们进入下一题。",17;
next;
set @full,@full + 1; //题数+1
goto L_question; //回去提问
dedecms.com
L_loser:
mes "第"+"题:"+"?";
if (@OK != 1 && @PE != 1) mes "(A):"+";";
if (@OK == 1) mes "^00FF00(A):"+";^000000";
if (@PE == 1) mes "^FF0000(A):"+";^000000";
if (@OK != 2 && @PE != 2) mes "(B):"+";";
if (@OK == 2) mes "^00FF00(B):"+";^000000";
if (@PE == 2) mes "^FF0000(B):"+";^000000";
if (@OK != 3 && @PE != 3) mes "(C):"+";";
if (@OK == 3) mes "^00FF00(C):"+";^000000";
if (@PE == 3) mes "^FF0000(C):"+";^000000";
if (@OK != 4 && @PE != 4) mes "(D):"+";";
if (@OK == 4) mes "^00FF00(D):"+";^000000";
if (@PE == 4) mes "^FF0000(D):"+";^000000";
织梦好,好织梦
mes "很遗憾,你答错了!下次有机会再来玩吧。";
MapAnnounce "prontera.gat","【方梦琳】:很可惜,["+"]在第"+"题上出现失误。",17;
close;
L_winer:
mes "第"+"题:"+"?";
if (@OK !=1) mes "(A):"+";";
if (@OK ==1) mes "^009900(A):"+";^000000";
if (@OK !=2) mes "(B):"+";";
if (@OK ==2) mes "^009900(B):"+";^000000";
if (@OK !=3) mes "(C):"+";";
if (@OK ==3) mes "^009900(C):"+";^000000";
if (@OK !=4) mes "(D):"+";";
if (@OK ==4) mes "^009900(D):"+";^000000";
mes "厉害,12题全对,你将获得今天百万富翁的最高奖励!!";
织梦内容管理系统 announce "【方梦琳】:["+"]答对了今天百万富翁所有问题!",15;
announce "【方梦琳】:获得最高奖金一百万以及由心灵学院赞助送出的新头饰一件!",15;
set #kafrabank,#kafrabank + 1000000;
getitem @quests,rand(5057,5094);
next;
mes "【方梦琳】";
mes "恭喜恭喜,您的奖金已经汇入您的银行账户。有机会再来玩。";
close;
L_FQ:
mes "【方梦琳】";
mes "觉得没有把握了吗?放弃的话您可以拿到当前的累计奖金以及心灵学院赞助的礼品一份,是否决定放弃?";
next;
menu "我还要挑战",L_question_2,
"答不出,弃权",L_FQ_1;
L_FQ_1:
if (@gold == 0) goto L_FQ_2;
mes "【方梦琳】";
织梦内容管理系统
mes "那好吧,您当前的累计奖金"+"将汇入您的账户,感谢您的参与,有机会再来玩。";
set #kafrabank,#kafrabank + @gold;
if (@gold > 100) getitem 603,1;
if (@gold > 10000) getitem 617,2;
if (@gold > 100000) getitem 644,3;
if (@gold > 300000) getitem 616,4;
announce "【方梦琳】:["+"]在第"+"题弃权!",15;
announce "【方梦琳】:获得累计奖金"+"以及由心灵学院赞助送出的礼品一份!",15;
close;
L_FQ_2:
mes "【方梦琳】";
mes "您一题都没有回答过,真替您惋惜,有机会再来玩。";
close;
L_wglook:
mes "【方梦琳】";
mes "欢迎参观今天的心灵百万大富翁有奖问答。让我们一起祝愿今天的幸运玩家拿到百万大奖。";
本文来自织梦 close;
}
copyright dedecms
//------------管理------------
prontera.gat,153,182,4 script 飞雪柔痕 758,{
if (getcharid(0) == 150001) goto L_ADMIN; //检查到管理者,进入管理
mes "您想挑战自己的智慧吗?来参加心灵仙境万问幻境吧!";
close;
L_ADMIN:
mes "欢迎您云逝校长,请问您要进行那项工作?";
next;
menu "查阅修改",L_CHACK,
"增加条目",L_ADD,
"开关系统",L_SYSTEM;
L_CHACK:
set @max,getarraysize($Quesion$) - 1;
mes "请输入您要查阅的条目号码,有效范围为1-"+"。";
next;
input @nmb;
if (@nmb < 1 || @nmb > @max) goto L_CHACK;
set @Q$,$Quesion$[@nmb]; //取得题目内容
织梦好,好织梦
set @A$,$AnswerA$[@nmb]; //取答案A内容
set @B$,$AnswerB$[@nmb]; //取答案B内容
set @C$,$AnswerC$[@nmb]; //取答案C内容
set @D$,$AnswerD$[@nmb]; //取答案D内容
set @OK,$AnswerOK[@nmb]; //取正确答案号码
mes "第"+"条问题:"+"?";
mes "(A):"+";";
mes "(B):"+";";
mes "(C):"+";";
mes "(D):"+";";
mes "正确答案第"+"个,请选择×作。";
next;
menu "继续查阅",L_CHACK,
copyright dedecms
"修改内容",L_EDIT,
"屏蔽问题",L_SHIEL,
"返回管理",L_ADMIN;
L_SHIEL:
mes "屏蔽问题并不会删除,只是问答选题时不会调用,您依然可以通过修改重新启用。确定屏蔽问题么?";
L_ADD:
set @nmb,getarraysize($Quesion$);
mes "请编辑第"+"条的内容。";
next;
L_EDIT:
mes "请依次输入问题,选择,以及正确答案。";
next;
input @Q$;
mes "第"+"条问题:"+"?";
input @A$;
mes "(A):"+";";
input @B$;
mes "(B):"+";";
input @C$;
mes "(C):"+";";
input @D$;
mes "(D):"+";";
织梦好,好织梦 L_REOK:
input @OK;
if (@OK < 1 || @OK > 4) goto L_REOK;
mes "正确答案第"+"个,请选择×作。";
next;
menu "确认修改",L_SAVE,
"重新输入",L_EDIT,
"返回查阅",L_CHACK,
"返回管理",L_ADMIN;
L_SAVE:
setarray $Quesion$[@nmb],@Q$;
setarray $AnswerA$[@nmb],@A$;
setarray $AnswerB$[@nmb],@B$;
setarray $AnswerC$[@nmb],@C$;
setarray $AnswerD$[@nmb],@D$;
setarray $AnswerOK[@nmb],@OK;
mes "条目修改完毕,请选择×作。";
next;
menu "增加条目",L_ADD,
"查阅条目",L_CHACK,
织梦好,好织梦
"返回管理",L_ADMIN;
L_SYSTEM:
mes "系统管理模式,请选择×作。";
menu "启动",L_OPEN,
"关闭",L_CLOSE,
"返回管理",L_ADMIN;
// L_OPEN:
// set $Word
本文来自织梦
//OnClock1900:
// if ($Wordgame > 1) end;
// if ($Wgplay > 0) end;
// ruraid+ $Wgplay ;
//OnInit:
// disablenpc "Wrodgameclose";
// disablenpc "方梦琳";
End;
}
copyright dedecms