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);
に修正してみました
これだと 動くみたいです