板 1- 前 次 新 ﾚｽ
どんなくだらねぇ質問にもマジレスするスレPart16
[146]名無しさん(ザコ)：2008/04/06(日) 04:30:40 ID:1RIYAihk0
# まだ実現できていなければ参考に……なるかは知らんけど一応実動品
ユニットコマンド 交代 味方:
ユニット交代 対象ユニットＩＤ
Exit
# ユニット交代 ユニットID
ユニット交代:
Local SUnitID SX SY SUnitMorale DUnitID UnitList
SUnitID = Args(1)
SUnitMorale = Morale(PilotID(SUnitID))
SX = X(SUnitID)
SY = Y(SUnitID)
Escape SUnitID
ForEach 味方 出撃
UnitList[UnitID()] = 1
Next
Organize 1 SX SY
ForEach 味方 出撃
If (Not UnitList[UnitID()]) Then
DUnitID = UnitID()
EndIf
Next
If (DUnitID != "") Then
IncreaseMorale DUnitID (SUnitMorale - Morale(PilotID(DUnitID)))
EndIf
Return
前 次
0ch BBS 2005-06-05