連続で失礼します。と、ちょっと長くて申し訳ないのですが、
>複数接続の際に装備の変更が他のキャラに送信されない
のはCommon.pas内部、SendCStatの最後にある
if View then begin
//見た目変更
{中略}
end;
これを
if View then begin
//見た目変更
tm := TMap(Map.Objects[Map.IndexOf(tc.Map)]);
for j := tc.Point.Y div 8 - 2 to tc.Point.Y div 8 + 2 do begin
for i := tc.Point.X div 8 - 2 to tc.Point.X div 8 + 2 do begin
for k := 0 to tm.Block[i][j].CList.Count - 1 do begin
tc1 := tm.Block[i][j].CList.Objects[k] as TChara;
if (tc <> tc1) and (abs(tc.Point.X - tc1.Point.X) < 16) and (abs(tc.Point.Y - tc1.Point.Y) < 16) then begin
WFIFOW(0, $00c3);
WFIFOL(2, tc.ID);
WFIFOB(6, 2);
WFIFOB(7, tc.Weapon);
tc1.Socket.SendBuf(buf, 8);
WFIFOB(6, 3);
WFIFOB(7, tc.Head3);
tc1.Socket.SendBuf(buf, 8);
WFIFOB(6, 4);
WFIFOB(7, tc.Head1);
tc1.Socket.SendBuf(buf, 8);
WFIFOB(6, 5);
WFIFOB(7, tc.Head2);
tc1.Socket.SendBuf(buf, 8);
WFIFOB(6, 8);
WFIFOB(7, tc.Shield);
tc1.Socket.SendBuf(buf, 8);
end;
end;
end;
end;
end;
とすると正常に周囲に通知されると思います(余計なﾊﾟｹが増えそうですが)。
変数j, k, tc1, tmは未定義なのでj, kはinteger, tc1はTChara, tmはTMap
として定義して下さい。
#BugFixのコードも技術スレの方がいいでしょうか？
