罪と罰++二律背反


	}else{			# キャンセル
		$log .= qq|銀行を出ました|;
		$tm=0;$cmd=0;&shop_menu;
	}
	
#					-------------------------------  ここから
}elsif($tm==76){
	&lent_in2;
	$tm = 70;
}elsif($tm==78){
	&lent_out2;
	$tm = 70;
#					-------------------------------  ここまで
}elsif($tm==82){	# 入庫処理
		if($in{'aite'} eq ''){
			&soko_in;

				$log2 .=qq|<option value="1">$vw G</option>\n|;
				$log2 .=qq|<option value="2">$vx G</option>\n|;
				$log2 .=qq|</select><br>\n|;
				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
				$tm = 76;
				# ココを削除
				# &lent_in;
			}
		}
}
#-----------------------------------------
# 返済処理
				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
				$tm = 78;
				# ここを削除
				# &lent_out;
			}
		}
}
#-----------------------------------------
# 借金処理


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:27:38 (2739d)