end else if Copy(str, 1, 7) = 'option ' then begin
if Copy(str, 8, 5) = 'sight' then begin
tc.Option := 1;
end else if Copy(str, 8, 4) = 'cart' then begin
tc.Option := 13;
end else if Copy(str, 8, 6) = 'falcon' then begin
tc.Option := 14;
end else if (tc.job = 7) and (Copy(str, 8, 4) = 'peko') then begin
tc.Option := 15;
end else if Copy(str, 8, 3) = 'off' then begin
tc.Option := 0;
end;
WFIFOW(0, $0119);
WFIFOL(2, tc.PID);
WFIFOW(6, 0);
WFIFOW(8, 0);
WFIFOW(10, tc.Option);
WFIFOB(12, 0);
SendBCmd(tm, tc.Point, 13);
に修正してみました
これだと 動くみたいです
dmg[2] := ATK1
if Param[4] >= ATK1 then begin
dmg[1] := ATK1 * ATK1 div 100
if dmg[1] > dmg[2] then dmg[2] := dmg[1]
end else begin
dmg[1] := ATK1 * Param[4] div 100
end;
以下の部分を上のようにすると良いぽいです
//dmg[1] := ATK1 * Param[4] div 100;
//dmg[2] := ATK1 * ATK1 div 100;
//if dmg[1] > dmg[2] then dmg[1] := dmg[2];
//if dmg[1] <= ATK1 then begin
//dmg[2] := ATK1;
//end else begin
//dmg[2] := dmg[1];
//dmg[1] := ATK1;
//end;
if ATK1 > Param[4] then begin
dmg[1] := Param[4];
end else begin
dmg[1] := ATK1;
end;
dmg[1] := dmg[1] * ATK1 div 100;
dmg[2] := ATK1;
この式は弓の最小攻撃力を決める式。
だから小さい方を使ってる。
