行会答题¶
标签:模块示例|行会答题
模块说明
行会答题是定时举行的行会活动
答题总共20轮
行会任意成员答对即为答对题目
活动结束后根据行会答对题目总数量对参与答题的成员发放答题礼盒奖励
特戒引擎脚本示例：¶
;..\Mir200\Envir\Robot_def\AutoRunRobot.txt
;定时触发行会答题
#AutoRun NPC RUNONDAY 20:40 @行会答题开启
#AutoRun NPC RUNONDAY 20:52 @行会答题结束
#AutoRun NPC RUNONDAY 20:53 @行会答题发奖
;..\Mir200\Envir\Robot_def\RobotManage.txt
;由AutoRunRobot.txt触发
[@行会答题开启]
#act
mov G209 1
gmExecute 开始提问 @触发行会答题
#call [\我的功能\行会相关\行会答题\时间同步.txt] @数据同步
sendMoveMsgEX 0 249 0 0 3 煮酒论英雄正在进行，请大家踊跃参加 1 10 1
[@行会答题结束]
#if
#act
mov G209 0
gmExecute 开始提问 @答题关闭
#call [\我的功能\行会相关\行会答题\时间同步.txt] @数据同步
[@行会答题发奖]
#act
gmExecute 开始提问 @答题发奖
;..\Mir200\Envir\QuestDiary\我的功能\行会相关\行会答题\时间同步.txt
;由RobotManage.txt触发
[@数据同步]
#if
equal G209 1
#act
mov G210 0
movr G211 1 41
mov G212 1
delaygoto 1000 @数据同步1
#elseAct
mov G210 0
mov G211 0
mov G212 0
[@数据同步1]
#if
small G209 1
#act
break
#if
#act
inc G210 1
#if
small G210 33
#act
delaygoto 1000 @数据同步1
#elseAct
mov G210 0
inc G212 1
movr G211 1 41
gmExecute 开始提问 @行会获取题目
delaygoto 1000 @数据同步1
;..\Mir200\Envir\MapQuest_def\QManage.txt
;由RobotManage.txt触发
[@触发行会答题]
#if
equal <$guild2(答题初始)> 0
#act
calcVar guild2 答题初始 = 1
#call [\我的功能\行会相关\行会答题\开始答题.txt] @答题初始
#if
equal G209 1
#act
#call [\我的功能\行会相关\行会答题\行会答题.txt] @main
[@答题关闭]
#if
#act
calcVar guild2 答题初始 = 0
[@答题发奖]
#if
check [0316] 1
#act
give 答题礼盒 1
#call [\我的功能\行会相关\行会答题\开始答题.txt] @答题结束
;由时间同步.txt触发
[@行会获取题目]
#if
#act
#call [\我的功能\行会相关\行会答题\开始答题.txt] @获取题目
;..\Mir200\Envir\QuestDiary\我的功能\行会相关\行会答题\行会答题.txt
;行会答题的界面显示部分
[@main]
#if
not haveGuild
#act
sendMsg 6 请先加入行会
break
#if
#act
mov s$关闭答题界面 0
#if
large G212 g$行会答题数量
#act
goto @答题结束
break
#if
#act
set [0316] 1
goto @题目数据
goto @答案刷新
[@题目数据]
#if
#act
mov n$是否已答过 0
mov n$isCorrect 0
mov n$tmp <$str(G210)>
mov s$item1
inc s$item1 (<itemsize:900:750>
inc s$item1 <text:<$guild2(答题题干)>{scolor=161}:100:310:800:1:40>
inc s$item1 <text:本题剩余时间~~~:~~~{scolor=248}:305:550>
inc s$item1 <timeTips:500:550,1:30{scolor=222}/@空>
inc s$item1 <loadingBar:150:620:20:150:lc_jiazaijindu_di:lc_jiazaijindu_jindu:1000:30,<$str(n$tmp)>/@等下题>)
mov s$itemList
inc s$itemList <$str(s$item1)>
goto @答题中
[@答题中]
#act
mov s$显示值
clsMainUI
openMerchantBigDlg lc_chuangti 4 0 0 1 0 0
#say
<panelsize2:1440:900>\
<dontclearlist:当前题目>\
<Img:lc_shuoming:1430:100|243#提示^250#1.答题总共20轮。^249#2.行会任意成员答对即为答对题目^161#3.活动结束后根据行会答对题目总数量对参与答题的玩家发放答题礼盒奖励。>\
<Img:lc_quyufenge_02:390:760:1:0.9>\
<Img:lc_quyufenge_01:380:95:1>\
<itemList:<$str(s$itemList)>:当前题目:500:0:1,750,0:5>\
<text:第<$str(G212)>题{scolor=243}:750:130:400:1:40>\
<text:（已答对<$guild2(行会答对数)>/20题）{scolor=243}:850:130:400:1:40>\
<itemGrid:<$str(s$itemList2)>:回答列表,1,0,0:10:70:360,840:1,1,840,1:0>\
<text:<$str(s0)>:705:270>\
<Img:lc_quyufenge_02:650:190:1:0.5>\
<text:点击此处输入正确答案{scolor=248}:410:780>\
<input:1:0:<$str(s$显示值)>:241:860:130:28:30:0:400:770/@endInput1>\
<ImgButton:lc_anniuhui_4zi_da:1300:815:发送/@submitInput>\
<clsBtn:guanbi:0:0/@关闭界面>\
[@等下题]
#if
not large G212 g$行会答题数量
#act
mov s$item1
inc s$item1 (<itemsize:900:750>
inc s$item1 <text:下题准备时间~~~:~~~{scolor=248}:305:550>
inc s$item1 <timeTips:500:550,1:3{scolor=150}/@空>
inc s$item1 <loadingBar:150:620:20:150:lc_jiazaijindu_di:lc_jiazaijindu_jindu:1000:3/@题目数据>)
mov s$itemList
inc s$itemList <$str(s$item1)>
#elseAct
goto @答题结束
break
#if
#act
clsMainUI
openMerchantBigDlg lc_chuangti 4 0 0 1 0 0
#say
<panelsize2:1440:900>\
<dontclearlist:准备下题>\
<Img:lc_shuoming:1430:100|243#提示^250#1.答题总共20轮。^249#2.行会任意成员答对即为答对题目^161#3.活动结束后根据行会答对题目总数量对参与答题的玩家发放答题礼盒奖励。>\
<Img:lc_quyufenge_02:390:760:1:0.9>\
<Img:lc_quyufenge_01:380:95:1>\
<text:第<$str(G212)>题{scolor=243}:750:130:400:1:40>\
<text:（已答对<$guild2(行会答对数)>/20题）{scolor=243}:850:130:400:1:40>\
<itemGrid:<$str(s$itemList2)>:回答列表,1,0,0:10:70:360,840:1,1,840,1:0>\
<itemList:<$str(s$itemList)>:准备下题:500:0:1,750,0:5>\
<Img:lc_quyufenge_02:650:190:1:0.5>\
<clsBtn:guanbi:0:0/@关闭界面>
;编辑结束触发,如未写内容,会返回一个空字符
[@endInput1]
#if
not equal s1
#act
mov s$显示值 <$str(s1)>
[@submitInput]
#if
equal n$是否已答过 1
#act
sendTipsMsg 请勿重复回答/fcolor=150
break
#if
#act
mov s$答案 <$str(s$显示值)>
#call [\我的功能\行会相关\行会答题\开始答题.txt] @答案检测
[@答题结束]
#if
#act
clsMainUI
openMerchantBigDlg lc_chuangti 4 0 0 1 0 0
#say
<panelsize2:1440:900>\
<Img:lc_shuoming:1430:100|243#提示^250#1.答题总共20轮。^249#2.行会任意成员答对即为答对题目^161#3.活动结束后根据行会答对题目总数量对参与答题的玩家发放答题礼盒奖励。>\
<Img:lc_quyufenge_02:390:760:1:0.9>\
<Img:lc_quyufenge_01:380:95:1>\
<itemGrid:<$str(s$itemList2)>:回答列表,1,0,0:10:70:360,840:1,1,840,1:0>\
<text:答题结束:820:400:400:1:40>
<clsBtn:guanbi:0:0/@关闭界面>
[@答案刷新]
#if
equal s$关闭答题界面 0
#act
refreshItem 回答列表 1 <$guild2(显示消息)>
delaygoto 1000 @答案刷新
[@关闭界面]
#act
close
mov s$关闭答题界面 1
;..\Mir200\Envir\QuestDiary\我的功能\行会相关\行会答题\开始答题.txt
;行会答题的逻辑部分
[@答题初始]
#if
#act
;答题初始化
sendMsg 6 ---------行会答题开始---------
mov g$行会答题数量 19
calcVar guild2 答题活动状态 = 1
calcVar guild2 textList =
calcVar guild2 qsId = 0
calcVar guild2 行会答对数 = 0
mov s$textItem " "
inc s$textItem |
mov s0 <$guild2(textList)>
inc s0 s$textItem
calcVar guild2 textList = <$str(s0)>
goto @答题显示初值
goto @获取题目
[@获取题目]
#if
#act
;题目初始化
calcVar guild2 本题有人答对 = 0
#if
#act
pgReadConfigFileItem ..\QuestDiary\配置文件\答题配置.ini 题库 题目<$str(G211)> <$str(S$答题配置信息)>
extractString : <$str(S$答题配置信息)> s$qsText s$qsAnwser
calcVar guild2 答题题干 = <$str(s$qsText)>
calcVar guild2 答题答案 = <$str(s$qsAnwser)>
[@答题显示初值]
#act
calcVar guild2 显示消息 = (<itemIndex:1>
mov s$item0
goto @单答案文本
mov s$tmp <$guild2(显示消息)>
inc s$tmp s$item0
inc s$tmp )
calcVar guild2 显示消息 = s$tmp
mov s$itemList2
inc s$itemList2 <$guild2(显示消息)>
[@单答案文本]
#if
#act
pgExtractString | <$guild2(textList)> s$拆分值 n$文本条数
mov n$当前条目 <$str(n$文本条数)>
mov n$index 0
mov s$item0
;循环执行20次
#if loop 20
#act
getListValue s$拆分值 <$str(n$当前条目)> s$返回结果
goto @正确答题颜色
goto @答案文本格式
inc n$index 1
dec n$当前条目 1
[@正确答题颜色]
#if
not checkContainsText <$str(s$返回结果)> ：
#act
mov s$color 222
#elseAct
mov s$color 248
[@答案文本格式]
;此处设定答案列表单条偏移
#if
#act
mov s$text <$str(s$返回结果)>
mul n$idx n$index 40
inc n$idx 30
mov s$tmp <$guild2(显示消息)>
inc s$tmp <text:<$str(s$text)>{scolor=<$str(s$color)>}:30:<$str(n$idx)>>
calcVar guild2 显示消息 = s$tmp
[@答案检测]
#if
equal s$答案 <$guild2(答题答案)>
equal <$guild2(本题有人答对)> 0
#act
sendMsg 6 回答正确
mov n$isCorrect 1
calcVar guild2 行会答对数 + 1
#elseAct
sendMsg 6 回答错误
#if
#act
goto @答题显示赋值X
#call [\我的功能\行会相关\行会答题\行会答题.txt] @答题中
[@答题显示赋值X]
#act
calcVar guild2 显示消息 = (<itemIndex:1>
mov s$item0
goto @回答输出
goto @单答案文本
mov s$tmp <$guild2(显示消息)>
inc s$tmp s$item0
inc s$tmp )
calcVar guild2 显示消息 = s$tmp
mov s$itemList2
inc s$itemList2 <$guild2(显示消息)>
[@回答输出]
;接收单人回答入口
#if
#act
mov s$textItem <$userName>：
inc s$textItem <$str(s$答案)>
inc s$textItem |
mov s0 <$guild2(textList)>
inc s0 s$textItem
calcVar guild2 textList = <$str(s0)>
#if
;第1个回答正确
equal <$guild2(本题有人答对)> 0
equal n$isCorrect 1
#act
mov s$textItem <$userName>
inc s$textItem 回答正确
inc s$textItem |
mov s0 <$guild2(textList)>
inc s0 s$textItem
calcVar guild2 textList = <$str(s0)>
calcVar guild2 本题有人答对 = 1
#call [\我的功能\行会相关\行会答题\答题发奖.txt] @答题发奖
#if
#act
;本题回答标记
mov n$是否已答过 1
[@答题结束]
#if
#act
mov g$行会答题数量 19
calcVar guild2 答题活动状态 = 1
calcVar guild2 textList =
calcVar guild2 qsId = 0
calcVar guild2 行会答对数 = 0
calcVar guild2 答题初始 = 0
mov s$textItem " "
inc s$textItem |
mov s0 <$guild2(textList)>
inc s0 s$textItem
calcVar guild2 textList = <$str(s0)>
;..\Mir200\Envir\QuestDiary\配置文件\答题配置.ini
;答题随机库，冒号后面的是正确答案
[题库]
题目1=郭晶晶是什么项目的运动员？:跳水
题目2=本游戏中，合成技能需要用到的材料是？:技能书页
题目3=埃菲尔铁塔在哪个城市？:巴黎
题目4=《神雕侠侣》的作者是？:金庸
题目5=《西游记》中孙悟空的武器是？:金箍棒
题目6=本游戏中，处理手镯还可以同时穿戴两件相同装备的部位是？:戒指
题目7=巴黎圣母院在哪个城市？:巴黎
题目8=白马寺在哪个城市？:洛阳
题目9=我国的“冰城”是指哪个城市？:哈尔滨
题目10=西湖在哪个城市？:杭州
题目11=本游戏中，会员是否可以领取每日工资？:是
题目12=本游戏中，一转后能穿戴什么级别的装备？:天问
题目13=本游戏中，每日运送镖车是在哪张地图？:神龙山庄
题目14=本游戏中，创建行会必须的特殊材料是什么？:沃玛号角
题目15=传说为关羽刮骨疗毒的是哪一位名医？:华佗
题目16=鱼有耳朵吗？:有
题目17=虾类靠什么呼吸？:鳃
题目18=咖啡的故乡是哪个大洲？:非洲
题目19=穿山甲使用什么捕食的？:舌头
题目20=“变脸”是哪个剧种的绝活？:川剧
题目21=“成也萧何，败也萧何”说的是谁的经历？:韩信
题目22=“初出茅庐”中的“茅庐”本意是指谁的的住处？:诸葛亮
题目23=“春花秋月何时了，往事知多少”是哪位词人的名句？:李煜
题目24=“打糕”是我国哪个少数民族的风味食品？:朝鲜族
题目25=“但愿人长久，千里共婵娟”是哪位文人所作？:苏轼
题目26=“得道多助，失道寡助”是哪位提出的观点？:孟子
题目27=“东床快婿”原本是指哪位历史人物？:王羲之
题目28=“敦煌莫高窟”在我国哪个省份？:甘肃
题目29=“剁椒鱼头”是哪个菜系的名菜？:湘菜
题目30=“峨眉山”是中国佛教四大名山之一，它位于哪个省？:四川
题目31=“苟利国家生死以，岂因祸福避趋之”是谁的名言？:林则徐
题目32=“光年”是时间还是长度？:长度
题目33=“何以解忧，唯有杜康？”作者是？:曹操
题目34=“横眉冷对千夫指”下一句是什么？:俯首甘为孺子牛
题目35=“叫花童鸡”是我国哪个省份的名菜？:浙江
题目36=“连环马”是哪种棋类游戏中的术语？:象棋
题目37=“马头琴”是哪个民族的常用乐器？:蒙古族
题目38=“人生自古谁无死，留取丹心照汗青。”的作者是谁？:文天祥
题目39=“山城”是我国哪座城市的雅号？:重庆
题目40=“铜雀春深锁二乔”中的二乔是哪国人？:吴国
;..\Mir200\Envir\QuestDiary\我的功能\行会相关\行会答题\答题发奖.txt
[@答题发奖]
#if
equal <$guild2(本题有人答对)> 1
#act
sendMsg 6 通过
give 答题礼盒 1