罪罰改造簡易掲示板

• • elsif(!$type && $cmd==9 && $act_cnt<$act_cnt_limit){ require './inc/ore_sub-mission.cgi';  &mission; }
    elsif(!$type && $cmd==10 && $act_cnt<$act_cnt_limit){ require './inc/ore_sub-dung.cgi'; &dung; }
    elsif(!$type && $cmd==20 && $act_cnt<$act_cnt_limit){ require './inc/ore_sub-shop.cgi';         &shop; }

    # 続行メニュー
    elsif($type eq 'お買い物')      { require './inc/ore_sub-shop.cgi';&shop_exe; }
    elsif($type eq '迷宮')          { require './inc/ore_sub-dung.cgi';  &dung_exe;}
    elsif($type eq '遭遇')          { require './inc/ore_sub-enc.cgi';  &ws_st; }
    elsif($type eq 'STUP')          { require './inc/ore_sub-stup.cgi';  &stup_exe;}

# ハッシュ割り当て
# sub hash_data{
$dung_dir               = $DAT{'dung_dir'};     # 向き
$dung_xx                = $DAT{'dung_xx'};      # 座標
$dung_yy                = $DAT{'dung_yy'};
$dung_fl                = $DAT{'dung_fl'};      # Floor
$lamp                   = $DAT{'lamp'};         # ランプ残量
...

# $dat[0]の変数の中に保存する変数を加える
# sub dat_write{
dung_dir;$dung_dir,dung_xx;$dung_xx,dung_yy;$dung_yy,dung_fl;$dung_fl,
lamp;$lamp,

$enc_hit=5;

所　属 <b style="color:$color[$camp]">$cmp[$camp]</b>　部　隊 <b>$g_p[$rank]</b>　訓練度 <b>$sol_lv</b>
農業回数 $nou_kai 商業回数 $sho_kai

# ハッシュ割り当て
# sub hash_data{
   $pw                     = $DAT{'pw'};           # パスワード
   $gold                   = $DAT{'gold'};         # お金
   $nm                     = $DAT{'nm'};           # 名前
   $lv                     = $DAT{'lv'};           # レベル

   $nou_kai = $DAT{'nou_kai'}; # 農業回数

# $dat[0]の変数の中に保存する変数を加える
# sub dat_write{
     $dat[0]="la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$type,

$dat[0]="nou_kai;$nou_kai,la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$type,

<A HREF="imgs/icon.htm" target="_blank" >アイコン一覧</A>~
<select name="icon" selected="$icon">~
foreach(0 .. 35){<option value="0">0</option>~
<option value="1">1</option> ~
<option value="2">2</option> ~
*繰り返し*~ 
<option value="34">34</option> ~
<option value="35">35</option>}~
<select>~

• <option value="1" selected >