罪と罰++二律背反


*

-ページ: [[罪罰改造掲示板]]
-投稿者: [[kururu]]
-優先順位: 普通
-状態: 完了
-カテゴリー: 設置できません
-投稿日: 2004-04-19 (月) 22:24:15
-バージョン: 

**罪罰/外交が動作しない [#g84aedce]
初めまして。突然失礼いたします。
許文龍さんと同じく外交に関しての質問なのですが横から書くのも失礼かと思い新規スレッドを上げさせていただきました。
僕も宣戦布告しても「交戦」状態になりません。
保存もされていませんのでore_sub-system.cgiを見直したのですが間違えが分からなかったのですが・・・・。
もしよろしければ見てはいただけないでしょうか??
http://mikaran.hp.infoseek.co.jp/ore_sub-system.txt
----
-はじめまして、kururuさん。スクリプト見せてもらいます。またあとで書き込みます -- [[あくあ]] &new{2004-04-19 (月) 22:34:50};

 # 国データ&キャラデータ書き込み
 sub write_data{
 	&cdat_write;
 	&dat_write;
 $cdat = $cfs_temp; # 友好度
 
 }
 # 友好度
  $cfs_temp = "";
  for ($self=1;$self<6;$self++){
  for ($other=1;$other<6;$other++){
  	$cfs_temp .= "cfs$self$other;$cfs[$self.$other],";
  }}
 $cdat = $cfs_temp; # 友好度
 
 # 国データ書き込み
 sub cdat_write{
 	$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,
 cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a,
 cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a,
 cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a,
 cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a,
 set;$set,all_mem;$all_mem,goal_no;$goal_no,
 asya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";
 
 	open (OUT,">$cdatfile") || &error("open error:$cdatfile",1);
 	print OUT $cdat;
 	close(OUT)		or die "Can't close   : $!";
 }

とこんな風になっていますが、以下のように書き換えてみてください

 # 国データ&キャラデータ書き込み
 sub write_data{
 	&cdat_write;
 	&dat_write;
 }
 
 # 国データ書き込み
 sub cdat_write{
         #
         # この下1行の $cdat は、見やすいように改行しています。もともとのファイルを書き換える必要はありません 
         #
 	$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,
 cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a,
 cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a,
 cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a,
 cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a,
 set;$set,all_mem;$all_mem,goal_no;$goal_no,
 asya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";
 
     # 友好度
     $cfs_temp = "";
     for ($self=1;$self<6;$self++){
     for ($other=1;$other<6;$other++){
  	$cfs_temp .= "cfs$self$other;$cfs[$self.$other],";
     }}
     $cdat = $cfs_temp.$cdat; 
 
 	open (OUT,">$cdatfile") || &error("open error:$cdatfile",1);
 	print OUT $cdat;
 	close(OUT)		or die "Can't close   : $!";
 }
-これでどうでしょうか? -- [[あくあ]] &new{2004-04-19 (月) 22:56:52};
-全国が統一されました。各国データをリセットしますとでてきてそれが延々と続いてしまいます。 -- [[kururu]] &new{2004-04-20 (火) 07:29:11};
-すみません、もう一度書き換えたファイルをお願いします -- [[あくあ]] &new{2004-04-20 (火) 08:26:09};
-あ、上のスクリプトを貼り付けただけだとダメですよ。見やすいように国データ部分を改行してしまっているので。もともと $cdat = "cn1; の部分は1行だと思いますがそのままじゃないといけません -- [[あくあ]] &new{2004-04-20 (火) 08:45:27};
-ファイルを書き換えさせていただきました。延々と続くのは一行にしていなかったから見たいですがやはり宣戦布告をしても宣戦布告の状態にはなってくれません。。 -- [[kururu]] &new{2004-04-20 (火) 17:18:10};
-同盟か宣戦を実施してからの cdata.cgi にデータ( cfs )が保存されているか確認しないといけないんですが、データの部分だけ見せてもらっていいですか?先程と同じようにファイル丸ごとだとIPが見れてしまうので。またはメール(aqure@aqure.zive.net)でもOKです -- [[あくあ]] &new{2004-04-20 (火) 17:31:06};
-お言葉に甘えさせていただきメールを送らさせていただきました。 -- [[kururu]] &new{2004-04-20 (火) 18:59:48};
-うーん、おかしいところが見当たらないですね。もう一度、宣戦してから cdata.cgi を見せてもらっていいですか? -- [[あくあ]] &new{2004-04-20 (火) 20:31:17};
-もう一度送らせていただきました。 -- [[kururu]] &new{2004-04-20 (火) 20:44:59};
-わかりました〜 -- [[あくあ]] &new{2004-04-20 (火) 21:22:04};

		$my_cf=$cf5;
		$my_cs=$cs5;
		$my_ce=$ce5;
	}
 }                        # <--ここの「{」が違っています
       # 友好度
        for ($self=1; $self<6;$self++){
          for ($other=1; $other<6;$other++){
            $cfs[$self.$other] = $CP{'cfs'.$self.$other};
            if ($other<$self){
            # 友好度
            $cfs[$self.$other] = int(rand(30)+40) if ($cfs[$self.$other]=="");
            } elsif ($other>$self) {
            # 条約
            # $cfs[$self.$other] = 0;
            }
            # 設定値をクリア
            # $cfs[$self.$other] = "";
          }
        }
こうなってますが、下のように変更してください。ちょっとわかりづらいですが、
「}」の場所が違っています。

		$my_cf=$cf5;
		$my_cs=$cs5;
		$my_ce=$ce5;
	}
       # 友好度
        for ($self=1; $self<6;$self++){
          for ($other=1; $other<6;$other++){
            $cfs[$self.$other] = $CP{'cfs'.$self.$other};
            if ($other<$self){
            # 友好度
            $cfs[$self.$other] = int(rand(30)+40) if ($cfs[$self.$other]=="");
            } elsif ($other>$self) {
            # 条約
            # $cfs[$self.$other] = 0;
            }
            # 設定値をクリア
            # $cfs[$self.$other] = "";
          }
        }
 }               # <--ここに移動します
-ありがとうございました。おかげで設置することが出来ました。 -- [[kururu]] &new{2004-04-21 (水) 07:31:44};
-うまくいったんですね。良かったです -- [[あくあ]] &new{2004-04-21 (水) 08:23:34};
-あの。。たびたび申し訳ないのですが宣戦布告をすると同盟とでてしまいます。かといって同盟破棄や資金援助をしようとすると同盟していませんと出てきてしまいます。これはどのようにしたらよろしいのでしょうか?? -- [[kururu]] &new{2004-04-21 (水) 17:20:52};
-ore_sub-base_p1_pc.cgi の @cfs_str=('-','同盟','交戦'); ですね -- [[あくあ]] &new{2004-04-21 (水) 19:30:18};
-ありがとうございました。逆にしていていました。色々とありがとうございました。 -- [[kururu]] &new{2004-04-21 (水) 19:36:41};
-いや、それもともとが間違ってたので、こちらのミスだったんです。すみませんでした〜 -- [[あくあ]] &new{2004-04-21 (水) 19:44:18};

#comment

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