#!/usr/bin/perl #-----------------------------------------------------------# # 罪と罰++ 二律背反 # # Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD # # Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] # # BLANK BOARD [ http://pom.to/ ] # #-----------------------------------------------------------# # 預かり所 Version 1.5 # Arranged by あくあ # HPタイトル [http://aqure.zive.net/] #--- [注意事項] --------------------------------------------# # ・このスクリプトは以下の利用規程に従って配布しています。 # # http://www24.big.or.jp/~obo/game/ore_/gild/ # #-----------------------------------------------------------# # 預かり所スクリプト # 1.2 2004.5.15 送付時、利用できない名前のキャラがいる為、ID記録に変更 # 1.3 2004.4.24 道具の数量指定、送金 # 1.4 2004.12.10 武具レベル対応 # 1.4a 2004.12.11 武具レベル保持修正 # 1.5 2005.1.22 防具の取り出しキャンセルバグ修正 #----------------------------------------- # 各種設定 $soko_max = 5; # 倉庫格納最大数 $soko_max += $sogo_lv[152]; # 転生メリット $soko_file = "./logdata/sokofile.cgi"; #$flg_backup = 1; # デバッグ用に記録する $soko_back = "./logdata/sokofile.bak"; $lockkey = 1; # ファイルロック 0:なし 1:有 $lockfile = "./logdata/sokofile.lock"; # 装備品リスト @eq = ($dg_a,$dg_a1,$dg_a2,$dg_a3 ,$df_a ,$di_a,$di_a[1],$di_a[2],$di_a[3]); @eq_cnt = ($dg_cnt,$dg_cnt1,$dg_cnt2,$dg_cnt3 ,$df_cnt ,$di_cnt,$di_cnt[1],$di_cnt[2],$di_cnt[3] ,$gold); @eq_lv = ($dg_lv,$dg_lv[1],$dg_lv[2],$dg_lv[3]); #----------------------------------------- sub soko{ $log .= qq|預かり所に来ました|; &soko_com_out; &soko_menu; } #----------------------------------------- # 倉庫メニュー sub soko_menu{ @menu = ('預かり所を出る','入庫する','出庫する'); $log2 .= qq|