| SetBulletコマンドは武器毎に行われるので、武器名か武器番号を指定する必要があります。
現在のForEach文の中にInfo関数で取得した武器数でFor文を書き、変数を武器番号に指定します。
最大弾数をInfo関数で取得し、SetBulletの弾数に指定しましょう。
上記の内容を記述すると以下のようになります。
使われる事が多くなると想定し、サブルーチン化しています。必要無い場合は適宜変更して下さい。
ForEach 味方
RecoverHP 100
RecoverEN 100
RecoverSP 100
RecoverBullet 対象ユニットID
Next
RecoverBullet:
#引数1:ユニットID
#[引数2:武器名or武器番号](省略or""指定時は全武器)
If Args(2) != "" Then
SetBullet Args(1) Args(2) Info(ユニット,Args(1),武器,Args(2),最大弾数)
Else
Local i
For i = 1 to Info(ユニット,Args(1),武器数)
SetBullet Args(1) i Info(ユニット,Args(1),武器,i,最大弾数)
Next
EndIf
Return
|