6th Square:Blessed

job_ko,17,24    script  Sight#ko_06 909,2,2,{
mes "There are tiny letters on the sign.";
next;
mes "This block is blessed.";
if (LPOINTS > 1 && LPOINTS < 93)
set LPOINTS, LPOINTS+7;
else if (LPOINTS == 93)
set LPOINTS, LPOINTS+7;
else if (LPOINTS == 94)
set LPOINTS, LPOINTS+6;
else if (LPOINTS == 95)
set LPOINTS, LPOINTS+5;
else if (LPOINTS == 96)
set LPOINTS, LPOINTS+4;
else if (LPOINTS == 97)
set LPOINTS, LPOINTS+3;
else if (LPOINTS == 98)
set LPOINTS, LPOINTS+2;
else if (LPOINTS == 99)
set LPOINTS, LPOINTS+1;
mes "Life Point recovers 7 LP.";
mes "Cannot exceed maximum 100 LP.";
next;
mes "< Recover LP >";
next;
mes "Location: 6";
mes "Total LP: 100";
mes "To roll the dice, you need to consume 1 LP.";
next;
switch(select("Roll the dice.")){
case 1:
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.";
switch(.@dice){
case 1:
warp "job_ko",,;
case 2:
warp "job_ko",17,35;
case 3:
warp "job_ko",,;
case 4:
warp "job_ko",,;
case 5:
warp "job_ko",,;
case 6:
warp "job_ko",,;
}
}
}