パイロット強制乗り込みラベル: #↓誰も乗っていないユニットを配列に入れる。 Local name x ForEach x In ユニット一覧(HP) If Pilot(対象ユニットID) = "" Then name = Info(ユニット,対象ユニットID,ユニットクラス) If InStr(name,"(") Then name = Left(name,InStr(name,"(") - 1) EndIf NoPilot[対象ユニットID] = name Endif Next #↓パイロットがユニットに乗っていないかのチェック Foreach 味方 待機 If Unit(対象パイロット) = "" Then name = Info(パイロット,Args(1),ユニットクラス) If InStr(name," ") Then Do Call 乗り換えチェック 対象パイロット Left(name,InStr(name," ") - 1) name = Mid(name,InStr(name," ") 1) Loop While (InStr(name," ") > 0) EndIf Call 乗り換えチェック 対象パイロット name Endif Next Return
乗り換えチェック: Local x #↓空ユニットと空パイロットのクロスチェック。 If Unit(Args(1)) = "" Then Foreach x In NoPilot If NoPilot[x] = Args(2) Then Ride Args(1) x Break Endif Next Endif Return