📄 npc_dancer.txt
字号:
next;
mes "[宝儿瓦朱]";
mes "9.";
mes "考试很无聊吗？";
if(select("是的","不会")==2) set @dcpoint,@dcpoint+10;
next;
mes "[宝儿瓦朱]";
mes "10.";
mes "发乐斯灯台岛";
mes "总共有几座灯塔？";
if(select("1","2","3")==1) set @dcpoint,@dcpoint+10;
Lcheckpt:
mes "[宝儿瓦朱]";
mes "终于，问完了";
next;
if(@dcpoint>=80 && change_dancer==5) goto LpointOK;
if(@dcpoint>=70 && change_dancer==6) goto LpointOK;
mes "[宝儿瓦朱]";
mes "面试的结果"+@dcpoint+"分....";
mes "不合格";
mes "这样的结果，感到为难";
next;
mes "[宝儿瓦朱]";
mes "稍微难了吗";
mes "但是我年轻的时候就会了哟";
mes "你还要多学习";
set change_dancer,6;
close;
end;
LpointOK:
mes "[宝儿瓦朱]";
mes "面试的结果"+@dcpoint+"分....";
if(@dcpoint==100) mes "真是太棒了！你合格了。";
else
{
mes "只答错了一些,不过....";
mes "没关系的";
}
next;
mes "[宝儿瓦朱]";
mes "要是这个没过关";
mes "舞蹈的实习课也不能进行";
mes "请继续努力";
set change_dancer,7;
close;
end;
LStart2:
mes "[宝儿瓦朱]";
mes "如果想转职成舞娘";
mes "有几个注意事项需要说明";
mes "想听解说吗";
next;
if(select("听注意事项","前往舞池")==1)
{
mes "[宝儿瓦朱]";
mes "其实这个实习";
mes "限制时间约是^0000FF一分半钟^000000";
next;
mes "[宝儿瓦朱]";
mes "参与舞蹈实习是^0000FF一次一位^000000的";
mes "即使没有跳舞的经验也不用担心";
next;
mes "[宝儿瓦朱]";
mes "一进入会场的话就可以看见舞台";
mes "首先，必须先站到";
mes "^0000FF舞台全体能纵览^000000的位置";
next;
mes "[宝儿瓦朱]";
mes "^0000FF为使前后左右能无误地操控^000000";
mes "双击鼠标的右键";
mes "让方向变回初期的设定";
mes "摄影用语不太详细,不过......";
next;
mes "[宝儿瓦朱]";
mes "刚开始请先进入^0000FF候补室^000000偱";
mes "按照顺序等待";
mes "如果前面的人实习完毕";
mes "就会轮到你进场";
next;
mes "[宝儿瓦朱]";
mes "如果人多，候补室满员时";
mes "也请按照次序";
mes "排队等待";
next;
mes "[宝儿瓦朱]";
mes "实习开始";
mes "以最初站立的位置为基准点";
mes "广播传出，往哪一个的方向移动";
mes "你必需要配合行动";
next;
mes "[宝儿瓦朱]";
mes "^0000FF指定时间内";
mes "如果不能配合好";
mes "会马上被传送出去^000000";
mes "执行是相当严厉的哟";
close;
end;
}
Lwarp:
mes "[宝儿瓦朱]";
mes "请加油吧";
set change_dancer,8;
next;
warp "job_duncer.gat",104,109;end;
end;
}
job_duncer.gat,32,152,6 script 舞娘考试接待员 69,{
end;
OnWarp:
warpwaitingpc "job_duncer.gat",69,110,4;
disablewaitingroomevent;
initnpctimer "jobDq";
end;
OnEnable:
enablewaitingroomevent;
end;
OnInit:
waitingroom "舞蹈课-接待室",20,"舞娘考试接待员::OnWarp",1;
end;
}
job_duncer.gat,0,0,0 script jobDq -1,{
end;
OnTimer1000:
mapannounce "job_duncer.gat","宝儿瓦朱: 那么...，要开始了。请消除紧张。再五秒钟就开始！",8;
set $@Score,100;
set $@Multi,0;
set $@Finsh,0;
end;
OnTimer6000:
mapannounce "job_duncer.gat","宝儿瓦朱: 好~! 往后退 ! : [↑]",8;
callsub L_SUB1;
end;
OnTimer10000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 前~ : [↓]",8;
callsub L_SUB5;
end;
OnTimer14000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 左~ : [←]",8;
callsub L_SUB2;
end;
OnTimer18000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 往右边 : [→]",8;
callsub L_SUB4;
end;
OnTimer22000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 回到中间来 : [·]",8;
callsub L_SUB3;
end;
OnTimer24000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 就是这样 , 暂停一下 ! ",8;
end;
OnTimer27000:
mapannounce "job_duncer.gat","宝儿瓦朱: 暂停之后,来个「心神凝聚」,或即兴演出也行! ",8;
end;
OnTimer31000:
mapannounce "job_duncer.gat","宝儿瓦朱: 很好 ! 就是这样~ ",8;
end;
OnTimer32000:
mapannounce "job_duncer.gat","宝儿瓦朱: 左边~ : [←]",8;
callsub L_SUB2;
end;
OnTimer36000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 前方 ~ : [↓] ",8;
callsub L_SUB5;
end;
OnTimer38000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 往右边~! : [→] ",8;
callsub L_SUB4;
end;
OnTimer41000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 好~! 暂停一下 ! ",8;
end;
OnTimer44000:
mapannounce "job_duncer.gat","宝儿瓦朱: 左、中、右、后 ~ : [←][·][→][↑] ",8;
callsub L_SUB6;
end;
OnTimer51000:
if ($@Dance != 1) goto Fail;
set $@Multi,0;
mapannounce "job_duncer.gat","宝儿瓦朱: [→] ",8;
callsub L_SUB4;
end;
OnTimer54000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 左、中、前、后 : [←][·][↓][↑] ",8;
callsub L_SUB7;
end;
OnTimer61000:
if ($@Dance != 1) goto Fail;
set $@Multi,0;
mapannounce "job_duncer.gat","宝儿瓦朱: 再一次 , 左、中、前、后 : [←][·][↓][↑] ",8;
callsub L_SUB7;
end;
OnTimer68000:
if ($@Dance != 1) goto Fail;
set $@Multi,0;
mapannounce "job_duncer.gat","宝儿瓦朱: 对 , 往前~ : [↓]",8;
callsub L_SUB5;
end;
OnTimer71000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 左 : [←] ",8;
callsub L_SUB2;
end;
OnTimer74000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 中间 : [·] ",8;
callsub L_SUB3;
end;
OnTimer77000:
if ($@Dance != 1) goto Fail;
mapannounce "job_duncer.gat","宝儿瓦朱: 快！用箭雨解决掉! ",8;
monster "job_duncer.gat",68,107,"舞蹈波利",1002,1,"jddie";
set $jddie,1;
end;
OnTimer81000:
if ($jddie == 0) goto Done;
killmonsterall "job_duncer.gat";
set $jddie,0;
Fail:
mapannounce "job_duncer.gat","宝儿瓦朱: 你动作太慢了!",8;
if (getareausers("job_duncer.gat",66,106,73,114) != 0) areawarp "job_duncer.gat",66,106,73,114,"comodo.gat",188,162;
stopnpctimer;
donpcevent "舞娘考试接待员::OnEnable";
callfunc "Hide_All";
end;
//上
L_SUB1:
set $@Act,1;
set $@Dance,0;
enablenpc "#左判定";
enablenpc "#上判定";
enablenpc "#右判定";
enablenpc "#下判定";
end;
//左
L_SUB2:
set $@Act,2;
set $@Dance,0;
enablenpc "#左判定";
enablenpc "#上判定";
enablenpc "#右判定";
enablenpc "#下判定";
end;
//中
L_SUB3:
set $@Act,3;
set $@Dance,0;
enablenpc "#左判定";
enablenpc "#上判定";
enablenpc "#中判定";
enablenpc "#右判定";
enablenpc "#下判定";
end;
//右
L_SUB4:
set $@Act,4;
set $@Dance,0;
enablenpc "#左判定";
enablenpc "#上判定";
enablenpc "#右判定";
enablenpc "#下判定";
end;
//下
L_SUB5:
set $@Act,5;
set $@Dance,0;
enablenpc "#左判定";
enablenpc "#上判定";
enablenpc "#右判定";
enablenpc "#下判定";
end;
// 左中右上
L_SUB6:
set $@Multi,1;
callsub L_SUB1;
end;
// 左中下上
L_SUB7:
set $@Multi,2;
callsub L_SUB1;
end;
Done:
if ($@Score < 60) goto TooBad;
set $@Finsh,1;
enablenpc "#中判定";
mapannounce "job_duncer.gat","dance: 太棒了！请回到中间 : [·]",8;
callsub L_SUB3;
stopnpctimer "jobDq";
end;
TooBad:
mapannounce "job_duncer.gat","dance: 表演评分是 " + $@Score + "分",8;
mapannounce "job_duncer.gat","dance: 错误太多了!请多多练习~!",8;
stopnpctimer "jobDq";
donpcevent "舞娘考试接待员::OnEnable";
areawarp "job_duncer.gat",66,106,73,114,"comodo.gat",188,162;
end;
}
job_duncer.gat,69,113,4 script #上判定 139,1,1,{
if ($@Act != 1) goto Wrong;
emotion 21;
set $@Dance,1;
callfunc "Hide_All";
end;
Wrong:
set $@Score,$@Score - 1;
emotion 23;
end;
OnInit:
disablenpc "#上判定";
end;
}
job_duncer.gat,66,110,4 script #左判定 139,1,1,{
if ($@Act != 2) goto Wrong;
emotion 21;
if (($@Multi == 1) || ($@Multi == 2)) goto M_1;
set $@Dance,1;
callfunc "Hide_All";
end;
M_1:
set $@Act,3;
callfunc "Hide_Left";
end;
Wrong:
set $@Score,$@Score - 1;
emotion 23;
end;
OnInit:
disablenpc "#左判定";
end;
}
job_duncer.gat,69,110,4 script #中判定 139,1,1,{
if ($@Finsh == 1) goto Finsh;
if ($@Act != 3) goto Wrong;
emotion 21;
if ($@Multi == 1) goto M_1;
if ($@Multi == 2) goto M_2;
set $@Dance,1;
callfunc "Hide_All";
end;
M_1:
set $@Act,4;
callfunc "Hide_Center";
end;
M_2:
set $@Act,5;
callfunc "Hide_Center";
end;
Wrong:
set $@Score,$@Score - 1;
emotion 23;
end;
Finsh:
set change_dancer,10;
emotion 21;
set $@Finsh,0;
mapannounce "job_duncer.gat","dance: 恭喜你都学会了! 宝儿瓦朱 小姐的教导完成了~!",8;
areawarp "job_duncer.gat",66,106,73,114,"comodo.gat",188,162;
donpcevent "舞娘考试接待员::OnEnable";
disablenpc "#中判定";
end;
OnInit:
disablenpc "#中判定";
end;
}
job_duncer.gat,72,110,4 script #右判定 139,1,1,{
if ($@Act != 4) goto Wrong;
emotion 21;
if ($@Multi == 1) goto M_1;
set $@Dance,1;
callfunc "Hide_All";
end;
M_1:
set $@Act,1;
callfunc "Hide_Right";
end;
Wrong:
set $@Score,$@Score - 1;
emotion 23;
end;
OnInit:
disablenpc "#右判定";
end;
}
job_duncer.gat,69,107,4 script #下判定 139,1,1,{
if ($@Act != 5) goto Wrong;
emotion 21;
if ($@Multi == 2) goto M_2;
set $@Dance,1;
callfunc "Hide_All";
end;
M_2:
set $@Act,1;
callfunc "Hide_Down";
end;
Wrong:
set $@Score,$@Score - 1;
emotion 23;
end;
OnInit:
disablenpc "#下判定";
end;
}
function script Hide_All {
disablenpc "#左判定";
disablenpc "#右判定";
disablenpc "#中判定";
disablenpc "#上判定";
disablenpc "#下判定";
end;
}
function script Hide_Left {
disablenpc "#左判定";
enablenpc "#上判定";
enablenpc "#中判定";
enablenpc "#右判定";
enablenpc "#下判定";
end;
}
function script Hide_Center {
disablenpc "#中判定";
enablenpc "#左判定";
enablenpc "#上判定";
enablenpc "#右判定";
enablenpc "#下判定";
end;
}
function script Hide_Right {
disablenpc "#中判定";
enablenpc "#左判定";
enablenpc "#上判定";
disablenpc "#右判定";
enablenpc "#下判定";
end;
}
function script Hide_Down {
disablenpc "#中判定";
enablenpc "#左判定";
enablenpc "#上判定";
enablenpc "#右判定";
disablenpc "#下判定";
end;
}
job_duncer.gat,66,106,0 script jddie -1,{
set $jddie,$jddie - 1;
end;
}
//==================================================================
// 因为中间几乎为必经之路,所以若非 中判定,基本上 disable 较佳.
//==================================================================
// 测试用 NPC ========================================================
//job_duncer.gat,65,106,4 script 转职任务测试 100,{
// mes "[TEST]";
// mes "要测试吗？";
// next;
// menu "是的",Lgo,"不",-;
// close;
//Lgo:
// disablewaitingroomevent "dancew";
// warpwaitingpc "job_duncer.gat",69,110,4;
// initnpctimer "jobDq";
// end;
//}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -