▼スレッド
│
└◇1617:Re[9]:アイテムコマンドについて [rien] 01/05 00:57

　└◇1618:Re[10]:アイテムコマンドについて [moon] 01/05 08:09
　　└◇1619:Re[11]:アイテムコマンドについて [rien] 01/05 16:36<-last

> add_champは変更しなくて大丈夫でした。
>
> 何番目かという情報も記録されておらず、記録されているのはIDから殺害数までのユーザー情報だけです。（get_champとchampoutを見てください。）
> パラメータの追加はget_champとchampoutの最後のパラメータ（$pkl）の後ろに新しいパラメータ（例：$pcwn）を追加すれば良いです。
> あと、sub fightの変更は以下のようにすれば良いと思います。
> 　　if ($result == 1){
> 　　$pid=$id;$pnm=$nm;$pps=$ps;$pjb=$jb;$pig=$ig;$psp=$sp;$pbp=$bp;$pbn=$bn;$pak=$ak;$pdd=$dd;$php=$hp;$pxp=$xp;$pab=$ab;$pdb=$db;$pav='alive';$pwn=$wn;$plz=$lz;$pdt=$dt;$pmn=$mn;$pbg=$bg;$pxi=$xi;$ptm=$tm;$plf=$lf;$pfe=$fe;$pcm=$cm;$pis=$is;$pht=$ht;$pfg='NS';$prw=$rw;$pkl=$kl;
> 　　push (@msg,"$nmは覇王の称号を継ぎました。");
> 　　&add_champ($fwords)}
> 　　else{$pav='alive';&add_champ($fwords)}
> 　　　　↓
> 　　if ($result == 1){
> 　　　　# 自分の勝利なので覇王交代の場合
> 　　　　$pid=$id;$pnm=$nm;$pps=$ps;$pjb=$jb;$pig=$ig;$psp=$sp;$pbp=$bp;$pbn=$bn;$pak=$ak;$pdd=$dd;$php=$hp;$pxp=$xp;$pab=$ab;$pdb=$db;$pav='alive';$pwn=$wn;$plz=$lz;$pdt=$dt;$pmn=$mn;$pbg=$bg;$pxi=$xi;$ptm=$tm;$plf=$lf;$pfe=$fe;$pcm=$cm;$pis=$is;$pht=$ht;$pfg='NS';$prw=$rw;$pkl=$kl;
> 　　　　$pcwn = 1; # これを追加する。
> 　　　　push (@msg,"$nmは覇王の称号を継ぎました。");
> 　　　　&add_champ($fwords);
> 　　}
> 　　else{
> 　　　　# 引き分けまたは自分の敗北なので覇王継続の場合
> 　　　　$pcwn++ if($result == -1); # これを追加する。相手の勝利の場合だけ連勝数をカウントアップする。
> 　　　　$pav='alive';
> 　　　　&add_champ($fwords);
> 　　}

すみません。。。
やはり表示のところでつまづいているようです。

覇王がデータとは違うキャラになってしまっていて・・。
本来では0002のキャラなのですが
9999のキャラになっていたりと・・。

私の記述がやっぱり間違っているのだと思います。

$pcwn = 1;
$pcwn++ if($result == -1);
これをlist_orderの前に記述して・・
代入は$pcwnをいれてはいるのですが・・

>>if ($pcwn = 1 > $champ ){ $pnm = $nm; $pid = $id; $pig = $ig; $champ = $pcwn if($result == -1); }
ここも間違っていそうです・・。

お手数おかけしますがよろしくお願いします

> すみません。。。
> やはり表示のところでつまづいているようです。
>
> 覇王がデータとは違うキャラになってしまっていて・・。
> 本来では0002のキャラなのですが
> 9999のキャラになっていたりと・・。
>
> 私の記述がやっぱり間違っているのだと思います。
>
> $pcwn = 1;
> $pcwn++ if($result == -1);
> これをlist_orderの前に記述して・・
> 代入は$pcwnをいれてはいるのですが・・
>
> >>if ($pcwn = 1 > $champ ){ $pnm = $nm; $pid = $id; $pig = $ig; $champ = $pcwn if($result == -1); }
> ここも間違っていそうです・・。
>
> お手数おかけしますがよろしくお願いします

新しく追加したパラメータ（$pcwn）は連勝数を意味します。
ですので、sub sagaで$pcwn = 1;などのような処理を行うのではなく読み込むサブルーチン（get_champ）を呼び出すだけで良いです。
あと、sub find_bestの部分は条件自体が間違っており「if($id eq $pid && $nm eq $pnm && $ps eq $pps){$champ_nm = $pnm; 〜略〜 $champ = $pcwn;}」のようにする必要があります。

> 新しく追加したパラメータ（$pcwn）は連勝数を意味します。
> ですので、sub sagaで$pcwn = 1;などのような処理を行うのではなく読み込むサブルーチン（get_champ）を呼び出すだけで良いです。
> あと、sub find_bestの部分は条件自体が間違っており「if($id eq $pid && $nm eq $pnm && $ps eq $pps){$champ_nm = $pnm; 〜略〜 $champ = $pcwn;}」のようにする必要があります。

お返事ありがとうございます。
というかいつもいつもすみません・・。
記述まで教えていただいて・・・
条件を理解できていなかったようです
おかげさまできちんと表示できています。
ありがとうございました！

またこちらに質問させていただくとは思いますが
よろしくお願いします。