Mir2 Actor.pas



if (IsFace) and (FaceIndex > -1) then

begin



d := aFrmMain.WFaceimg.Images[FaceIndex * 10 + (FaceFram) mod 8]



/// if HorseSurface<>nil then

// dSurface.Draw (dx+shiftx, dy + hpy + ShiftY-60, d.ClientRect, d, TRUE)

// else

if d <> nil then

begin

if HorseSurface <> nil then

dsurface.Draw(SayX - d.Width div 2, dy + hpy + ShiftY - 60,

d.ClientRect, d, True)

else

dsurface.Draw(SayX - d.Width div 2, dy + hpy + ShiftY - 50,

d.ClientRect, d, True)

end





end

end