板 1- 前 次 新 ﾚｽ
どんなくだらねぇ質問にもマジレスするスレPart10
[408]名無しさん(ザコ)：2006/03/31(金) 10:30:00 ID:I+AGR6B20
>>395
Sortコマンド使ってForEachでループさせるときの順番を変えて、
ForEachで上位6人を取得すると楽。
Sort 撃墜数 降順 文字インデックス
i = 1
UnSet 撃墜数上位
ForEach idx In 撃墜数
撃墜数上位[i] = idx
Incr i
If i > 6 Then
Break
EndIf
Next
これで「撃墜数上位」に上位6名が入らないかな。
まだ6位が複数いる場合の処理とか追加せにゃならんけど。
>>405
文字列がインデックス変数をランダムに持ってくるのは面倒だね。
Count関数で求めた配列内の要素の数を最大に、Random関数で先頭から何番目の変数かを決めて、
上のコードと同じような感じでForEachでRandomの結果までループさせるといいんじゃないかと。
R = Random(Count(変数名))
i = 1
ForEach idx In 変数名
Incr i
If i = R Then
取得パイロット名 = idx
Break
EndIf
Next
これでランダムに1人取得できるはずなので、これを元に複数取得する方法を模索すべし。
前 次
0ch BBS 2005-06-05