## CGIゲーム用掲示板

新規発言 ｜ 一覧 ｜ 過去ログ ｜ 検索 ｜ ＨＯＭＥ

`▼関連発言 │ └◆582:全体攻撃 [きりう] 01/23 01:07 └◆601:Re:全体攻撃 [ノネ] 01/25 22:14 └◆603:Re[2]:全体攻撃 [きりう] 01/25 23:41`

``

``

No.582　 全体攻撃
`[返信] 発言者： きりう 発言日： 2003 01/23 01:07 今確認したら、対象に選ばれてる生徒にも普通にダメージ与えられました。 なので、「対象に選ばれてる生徒」云々は忘れてください（汗 よって、No.580 で書いた流れは↓になります。 foreach(1..42){ if(自分と同じエリア、自分以外、生死判定){ $st = $_; #うちのはここからダメージ処理サブルーチンに飛びます。 my $count = -2; &Lock; ファイルオープン while(<STAT>){ if($count == $st){ @s = split(/\,/); ダメージを与える処理（@s[2] -= 7;で大丈夫です） print TEMP join (',',@s); }else{print TEMP $_;} $count++; } ファイルクローズ rename $filetemp,$filestat; &Unlock; #ここまでがダメージ処理サブルーチンです } }`

``

No.601　 Re:全体攻撃
`[返信] 発言者： ノネ 発言日： 2003 01/25 22:14 この方法でちゃんと動作しました！ $stがうまく動かなかったのは、foreach(1..42){で囲んでなかったので $stに１つしか入らなかったのが原因でした。 あと$_なんですが、なんだろうと思っていたら、やはり別ルーチン処理 だったんですね。$_[1]はダメージ出力以外では使われていないので、もしかしたら と思ってたんです。 やっぱり、きりうさんは考える点が違いますね。 僕みたいに頭が硬いと、プログラミングは難しいです。 頭で完成しててもカタチにできないというか（笑） 指南どうもありがとうございました。 あと、きりうさんオススメのPerlの本ってありますか？ リファレンス本を買ったのですが挫折してしまって…`

``

No.603　 Re[2]:全体攻撃
`[返信] 発言者： きりう 発言日： 2003 01/25 23:41 おめでとうございます。 ちゃんと動作したようで、こちらもホッとしてます（笑 俺、Perlの本って持ってないんですよね・・・ しいて言うなら「よくわからないバトルロワイアル」が教科書（笑 なので、バトロワ以外はさっぱりです（笑 C言語は多少かじってるんでまったくのプログラム初心者って訳じゃないんですけどね。 毎日ちょっとづつ簡単な事でも良いからプログラムをいじってたらある程度は上達する と思います。俺もその口ですし。 あと楽しみながらプログラムをすることですね。楽しめれば長続きすると思うし、努力 も苦になりませんしね。 なんて、偉そうな事を言ってみる。 本はやっぱり自分に合ったものが良いと思いますよ。 立ち読みでもして確認して購入するのが宜しいかと。 あと、CGIやPerlの講座をしてくれてるHPとかもあるので、そういうのも活用してみては どうでしょうか。`

``

`CGIROOM`