板 1- 前 次 新 ﾚｽ
くだらない質問にもマジレス
[418]名無しさん(ザコ)：2009/12/27(日) 13:50:22 ID:YGfF5twE0
RandomeRide改:
Local RideUnit
Local cnt
Local i
Local RideType
# LLengthで対象パイロットのユニットクラスが複数あるかを調べる
For i = 1 To LLength(Info(Args(1), ユニットクラス))
RideType[i] = LIndex(Info(Args(1), ユニットクラス),i)
Next
# RideType[i] = Info(Unit(対象ユニットＩＤ),ユニットクラス))
# アムロのユニットクラス ＭＳ
# 搭乗予定のユニットのユニットクラス ＭＳ
# 上記の時に作動。専用指定の場合は正常に動作せず
# (RideType[i] & "(" & NickName(Args(1)) & "専用)") = Info(Unit(対象ユニットＩＤ),ユニットクラス)
# アムロのユニットクラス ＭＳ
# 搭乗予定のユニットのユニットクラス ＭＳ(アムロ専用)
# 上記の時に作動。フルネームで専用指定されると動作せず
# (RideType[i] & "(" & Info(Args(1), 名称) & "専用)") = Info(Unit(対象ユニットＩＤ),ユニットクラス)
# アムロのユニットクラス ＭＳ
# 搭乗予定のユニットのユニットクラス ＭＳ(アムロ＝レイ専用)
# 上記の時に作動。この３パターンで行けるはず
i = 0
cnt = 0
ForEach 味方 待機
For i = 1 To LLength(Info(Args(1), ユニットクラス))
If CountPilot() = 0 Then
If RideType[i] = Info(Unit(対象ユニットＩＤ),ユニットクラス) Or
(RideType[i] & "(" & NickName(Args(1)) & "専用)") = Info(Unit(対象ユニットＩＤ),ユニットクラス) Or
(RideType[i] & "(" & Info(Args(1), 名称) & "専用)") = Info(Unit(対象ユニットＩＤ),ユニットクラス) Then
# 行が長すぎると掲示板に怒られた。使うときは改行消してね
Incr cnt
RideUnit[cnt] = UnitID()
EndIf
EndIf
Next
Next
If cnt > 0 Then
Ride Args(1) RideUnit[Random(cnt)]
Else
Talk システム
何よ！！！！！;乗れる機体がないじゃない！！！！！！！
End
EndIf
Return
前 次
0ch BBS 2005-06-05