| 今回はシャアペンさんの意見を参考にして、以下のプログラムを組んでみました。
if info(アイテム, Args(1), アイテムクラス) = "パイロット編成" then local uname = mid(Args(1), 1, InStr(Args(1), "(売買)") - 1) if not info(パイロット, uname, 特殊能力所有, "雇用不可") then if Level(uname) > 0 then Talk このパイロットは既に仲間にしています。 End else local i for i = 1 to Args(2) item (Args(1)) incr パイロット個数リスト[Args(1)]
Pilot uname (5 + パイロット成長度) next endif endif else local i for i = 1 to Args(2) item (Args(1)) next endif
ご協力いただきありがとうございます。
|