罪と罰++二律背反


[[罪罰改造]]

*預かり所 [#xe72c694]

-2作目の預かり所スクリプト
-他の人の名前を指定してアイテムを送ることが出来ます
-荷物が送られたことは連絡がありませんので、通信で連絡してください
-送った履歴は残りません

*設置の方法 ./inc/ore_sub-shop.cgi [#s738bbb6]
ショッピングモール内に設置します

**ショップメニューに追加 shop_menu [#ycedc25d]
 sub shop_menu{
   # ショッピングモ−ル
   my @sg		 = ('去る','武具屋','防具屋','道具屋','金融業','プチロト','診療所','預かり所');


**処理を預かり所スクリプトに振る shop_exe [#cbe09b61]
 sub shop_exe{ 
   # 行き先選択
   if(!$tm){
     if($cmd<=0){
	$log .= "$nm は逃げるように立ち去った。<br>\n";
 	$tm = $cmd = 0;
 	$type='';
 	&call_main_st;
      #----------------------------ここから追加
      }elsif($cmd==7){      # ←この数字7は、ショップメニューに追加で追加したメニューの順序番号をセットすること。
          $tm = 300;
          require './inc/ore_sub-leave.cgi'; &soko;
      #----------------------------ここまで追加
      }elsif($cmd==1){
 	$log .= "いらっしゃい。今日はどうするんだい?<br>\n";
      
**処理の続行部分を追加 [#z5824801]
  # 結婚相談所
  elsif(	$tm>=150 && $tm<200 && $mv_mode eq 'pc' &&
    $lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry.cgi';&marry;}
  
  #----------------------------ここから追加
 
  elsif($tm>=300 && $tm<400){ require './inc/ore_sub-leave.cgi'; &soko_exe; }
 
  #----------------------------ここまで追加
  
  &dat_write;
  
  }
  
 #-------------------------------------------------------------------------------
  #借金計算
  sub syakin {
 
**倉庫データの保存 ./inc/ore_sub-system.cgi [#ka2b75b2]
キャラ変数の追加は、罪罰/変数の追加を参考に
  sub hash_data{
  
    #    ・・・ ( 省略 )・・・
  
    $soko           = $DAT{'soko'};         # 倉庫
  
 
  sub dat_write{
  
    #    ・・・ ( 省略 )・・・
  
「soko;$soko,」をdat[0]の中に含める
 
*自分の預かり所にアイテムを送る場合 [#oe63b2d9]
-設置するときは不要ですが、独自の処理で倉庫を使いたいときは下のように
 $soko .= qq|アイテム種別番号<>アイテム番号<>数量<>アイテムレベル_|;

*更新履歴 [#m0cfd774]
-1.2	2004. 5.15 送付時、利用できない名前のキャラがいる為、ID記録に変更
--バグが無いとは限りません。使われる方は十分テストを行ってください
--%%バグが見つかりましたので一時配布を停止します%%~
--%%名前によって利用できる人と出来ない人がいるようです。%%~
--%%対策版を用意中です。%%~
--%%(時間が取れないので)ちょっと時間がかかるかも知れません%%~
--2004.5.15 対策版をアップロードしました
--2004.5.24 道具の数量指定 & 送金
-1.3	2004. 4.24 道具の数量指定、送金
-1.4	2004.12.10 武具レベル対応
-1.4a	2004.12.11 武具レベル対応(デバッグ)
-1.5	2005. 5.22 防具の取り出しキャンセルバグ修正
--防具を取り出したときに防具を所持していると取り出しがキャンセルされない
 # soko_outの
	}elsif($cmd>-1 && $soko_typ[$cmd]==12){		# 防具
 		if($df_a<1){ 
 			$df_a=$soko_lst[$cmd];
 			$df_cnt=$soko_cnt[$cmd]; 
 		}else{ $flg=-1; }                   # <==ここを修正

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS