文件名称:Actor
介绍说明--下载内容均来自于网络,请自行研究使用
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 -Mir2 Actor.pasif (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
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 -Mir2 Actor.pasif (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
相关搜索: mir2
(系统自动生成,下载前可以参看下载内容)
下载文件列表
Actor.pas