//--------------------------------------------------------------------------
$007d: //MAPロード完了
begin
tm := Map.Objects[Map.IndexOf(tc.Map)] as TMap;
while tm.Mode < 2 do
Application.ProcessMessages;
if tc.tmpMap <> '' then begin
tc.Map := tc.tmpMap;
tc.tmpMap := '';
end;
tc.MData := tm;
if CharaPID.IndexOf(tc.PID) = -1 then CharaPID.AddObject(tc.PID, tc);
