|
|

楼主 |
发表于 2005-3-18 01:48:00
|
显示全部楼层
Re:谁给我贴张游戏的资源图啊!
确实有裂缝,呵呵;多谢了。
procedure TGameMain.DrawRadar;
var
a : integer;
bx, by : Integer;
begin
//绘制小地图
OmegaPrimitives.Filled := true; //填充
OmegaPrimitives.Rectangle(1, 1, (GameScreenWidth div RadarZoomSize),
(GameScreenHeight div RadarZoomSize), OmegaColor(10, 10, 10, 200));
for a := 0 to SpriteList.Count - 1 do
begin
if TSprite(SpriteList.Items[a]) is TCharacter then
if TCharacter(Spritelist.Items[a]).Showing then
begin
bx := Round((TSprite(SpriteList.Items[a]).X - OmegaSprite.WorldX) /
RadarZoomSize);
by := Round((TSprite(SpriteList.Items[a]).Y - OmegaSprite.WorldY) /
RadarZoomSize);
OmegaPrimitives.Rectangle(bx + 1, by + 1, RadarZoomSize, RadarZoomSize,
OmegaColor(255, 0, 0,
255));
if TSprite(SpriteList.Items[a]) is TActor then
OmegaPrimitives.Rectangle(bx + 1, by + 1, RadarZoomSize,
RadarZoomSize, OmegaColor(255, 255,
255, 255));
end;
end;
OmegaPrimitives.Filled := false; //边框
OmegaPrimitives.Rectangle(0, 0, (GameScreenWidth div RadarZoomSize) + 2,
(GameScreenHeight div RadarZoomSize) + 2, OmegaColor(0, 100, 0, 255));
end;
实时给diablo2例子绘制一个小地图的代码. radarZoomsize 是比率 |
|