Square 01:Pay and GO to 9!

job_ko,49,16,0  script  Sight#ko_01 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;
mes "You are really bad at rolling dice. How can you get a 1 from the start? You can move to block 9 if you pay up 10 LP in this block.";
next;
switch(select("Use 10 LP:Roll the dice."))
case 1:
set LPOINTS, LPOINTS-10;
mes "< Used 10 LP >";
mes "Press Close to move to block 9.";
close2;
warp "job_ko",17,43;
case 2:
mes "Roll the dice.";
next;
mes "Location: 1";
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);
mes ""+strcharinfo(0)+" *Dice#"+.@dice+"*";
mes "The dice came out as "+.@dice+".";
mes "Press Close to move forward "+.@dice+" blocks.";
close2;
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",,;
case 6:
warp "job_ko",17,27;
}