## CGIゲーム用掲示板 過去ログ

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

No.580　 Re[5]:$status0 の謎
`発言者： きりう 発言日： 2003 01/23 00:58`

`No.560で書いたソースは一部だけなんですよ (^_^;) あの部分だけサブルーチン化させてあるんです。 foreach(1..42)でループさせて（もちろんfor($i=1;$i<=42;$i++)でも良いです。 ） if「自分と同じエリア、自分以外、生死判定」の条件が当てはまる奴の 「$_」 が 「$st」 に入ります。 とりあえず、全体の流れを載せますね。 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; #ここまでがダメージ処理サブルーチンです #対象に選ばれている生徒にダメージ if($st==$FM{'victim'}){ $guest[2]に直接ダメージ（ノネさんのやり方だと $guest[2]-=7; でしょう か） } #対象に（中略）　ここまで } } これが最低限の流れです。 あくまでも最低限なんで、エラー処理とかpushログとかはちゃんと入れてください ね。 あと、最後の生徒にしかダメージが届かないとのことですが、No.560では言わなか ったんですが（言うのを忘れてたとも言う。爆）、「最後の生徒にしかダメージが 届かない」のではなく「対象に選ばれている生徒にはダメージが届かない」だと思 われます。うちはそうだったもので。（もしかしたらうちだけかもしれません） なので、対象に選ばれてる生徒については if($st==$FM{'victim'}){ $guest[2]に直接ダメージ } この処理を加えてください。`

`▼関連発言 │ └◆537:教えて欲しいのですが。 [鮎] 01/20 20:25 └◆538:どんとこい (´ー｀)ノ [きりう] 01/20 21:56 ├◆540:Re:どんとこい (´ー｀)ノ [通りすが] 01/21 00:33 ├◆543:Re:どんとこい (´ー｀)ノ [鮎] 01/21 17:35 └◆545:Re:どんとこい (´ー｀)ノ [きりう] 01/21 19:41 ├◆546:$status0 の謎 [ノネ] 01/21 21:44 │└◆549:Re:$status0 の謎 [きりう] 01/21 22:46 │　└◆557:Re[2]:$status0 の謎 [ノネ] 01/22 01:36 │　　└◆560:Re[3]:$status0 の謎 [きりう] 01/22 13:02 │　　　└◆576:Re[4]:$status0 の謎 [ノネ] 01/22 23:46 │　　　　└◆580:Re[5]:$status0 の謎 [きりう] 01/23 00:58 └◆547:Re[2]:どんとこい (´ー｀ [鮎] 01/21 22:25 └◆551:Re[3]:どんとこい (´ー｀)ノ [きりう] 01/21 23:01 └◆553:(((;ﾟДﾟ))怖い [鮎] 01/21 23:54 └◆556:Re:(((;ﾟДﾟ))怖い [鮎] 01/22 00:10 └◆559:Re[2]:(((;ﾟДﾟ))怖い [きりう] 01/22 12:20 └◆563:Re[3]:(((;ﾟДﾟ))怖い [鮎] 01/22 15:29 └◆571:Re[4]:(((;ﾟДﾟ))怖い [きりう] 01/22 19:19 └◆574:Re[5]:(((;ﾟДﾟ))怖い [鮎] 01/22 21:58 └◆578:Re[6]:(((;ﾟДﾟ))怖い [きりう] 01/23 00:15`

`過去ログには返信できません。`

`Pass 保存`