Kỹ thuật lập trình
... cuối cùng đã cập nhật tiền cho các phe.>GameStart,GameTime,LastGameScreenTime,LastGameUnitTime,LastGameInputTime,La s tGameMin iMapT ime,LastGameMoneyTime : LongWord;© CrazyBabe 2003. ... BeginTransparentLevel:=255;TransparentSpeed:=-TransparentSpeed;End;EndElseProcessNormalUnit(Z);End;End;End;End;PROCEDURE TGame.ProcessEvents;Begin//Update mini mapIf GameTime-LastGameMiniMapTime>MiniMapUpdate then BeginLastGameMiniMapTime:=GameTime;WorldMiniMapUpdate;End;//Update moneyIf GameTime-LastGameMoneyTime>MoneyTime ... !PointNear(Round(GameUnits[UnitTarget].Pos.X), Round(GameUnits[UnitTarget].Pos.Y),Min(_Size2 ShR l,_Size2 ShR 1),X,Y); GameUnits[Num].Dest.Y:=Y;GameUnits[Num].Dest.X:=X;GameUnits[Num].UnitCmd:=CmdFire;GameUnits[Num].Head:=UnitGetBestHeading(Num);...