Square 04:Leave your name!

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

OnTouch:
mes "There are tiny letters scribbled on the sign.";
next;
mes ""+$whowashere$+" was here.";
next;
mes "Should I leave my name since taking the test is a special occasion?";
next;
switch(select("Use 5 LP and leave your name.:Continue to roll the dice.")){
case 1:
mes "< Used 5 LP >";
next;
set $whowashere$,"strcharinfo(0)";
mes ""+strcharinfo(0)+" was here.";
mes "You left your name. You can roll the dice now.";
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);
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",17,19;
case 3:
warp "job_ko",,;
case 4:
warp "job_ko",17,35;
case 5:
warp "job_ko",,;
case 6:
warp "job_ko",,;
}
}
case 2:
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);
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",17,19;
case 3:
warp "job_ko",,;
case 4:
warp "job_ko",,;
case 5:
warp "job_ko",,;
case 6:
warp "job_ko",,;
}
}
}
}