罪罰改造板２/412

# NPC読み込み
if(!$tnm){
    require './inc/ore_sub-npc_1.cgi';
    local $v=int(rand(5));
    &ck_ne_1;
}

#---------------------------------------- ここから
$sol=(($hp+$lr)*5);
$tsol=(($thp+$tlr)*5);
#---------------------------------------- ここまで

if($nation==1){
    $t_cs=$cs1;
}elsif($nation==2){