0th Square:Start

job_ko,57,16    script  Sight#ko_00 909,2,2,{
mes "Other letters are too small to read. Let's look up close.";
close;

OnTouch:
mes "There are tiny letters on the sign.";
next;
if (LREADYHR == 1){
if (checkquest(5141)== 1) erasequest 5141;
set LPOINTS, 100;
mes "You've returned to the first block. Your LP is recovered.";
next;
}
switch(select("Read the description.:Start the test.")){
case 1:
mes "The Test of Survival starts from here and you use  100 Life Points (LP) and roll dice to advance forward through the test.";
next;
mes "The whole test starts from block 0 to block 40 and each block you get can either give or take your LP.";
next;
mes "You need to have some LP till you get to the arrival block at the end to pass the test.";
next;
mes "But! You still pass the test if your LP becomes 0 when you get to the arrival block.";
next;
mes "Game instructions end here. Good luck to you.";
close;

case 2:
if (checkquest(5140) == -1)setquest 5140;
set LPOINTS, 100;
mes "You've gained 100 Life Points (LP).";
next;
mes "Location: 0";
mes "Total LP: "+LPOINTS+"";
mes "To roll the dice, you need to consume 1 LP.";
next;
switch(select("Roll the dice.")){
set LPOINTS, LPOINTS-1;
set .@dice, rand(1,6);
set LREADYHR,1;
mes ""+strcharinfo(0)+" *Dice#"+.@dice+"*";
mes "The dice came out as "+.@dice+".";
mes "Press Close to move forward "+.@dice+" blocks.";
switch(.@dice){
case 1:
warp "job_ko",,;
case 2:
warp "job_ko",,;
case 3:
warp "job_ko",,;
case 4:
warp "job_ko",,;
case 5:
warp "job_ko",22,16;
case 6:
warp "job_ko",17,19;
}
}
}
}