hedgewars/CCHandlers.inc
changeset 110 330a2dbacd67
parent 102 c45643d3fd78
child 145 e593d5266e01
equal deleted inserted replaced
109:ab0340f580c2 110:330a2dbacd67
   315         if not CurrentTeam.ExtDriven then
   315         if not CurrentTeam.ExtDriven then
   316            begin
   316            begin
   317            SDL_GetMouseState(@TargetPoint.X, @TargetPoint.Y);
   317            SDL_GetMouseState(@TargetPoint.X, @TargetPoint.Y);
   318            dec(TargetPoint.X, WorldDx);
   318            dec(TargetPoint.X, WorldDx);
   319            dec(TargetPoint.Y, WorldDy);
   319            dec(TargetPoint.Y, WorldDy);
   320            s[0]:= #9;
   320            s[0]:= #5;
   321            s[1]:= 'p';
   321            s[1]:= 'p';
   322            PSmallInt(@s[2])^:= TargetPoint.X;
   322            PSmallInt(@s[2])^:= TargetPoint.X;
   323            PSmallInt(@s[4])^:= TargetPoint.Y;
   323            PSmallInt(@s[4])^:= TargetPoint.Y;
   324            SendIPC(s)
   324            SendIPC(s)
   325            end;
   325            end;