hedgewars/CCHandlers.inc
changeset 154 5667e6f38704
parent 145 e593d5266e01
child 161 d8870bbf960e
equal deleted inserted replaced
153:dc10da2a73f9 154:5667e6f38704
   322         if not CurrentTeam.ExtDriven then
   322         if not CurrentTeam.ExtDriven then
   323            begin
   323            begin
   324            SDL_GetMouseState(@TargetPoint.X, @TargetPoint.Y);
   324            SDL_GetMouseState(@TargetPoint.X, @TargetPoint.Y);
   325            dec(TargetPoint.X, WorldDx);
   325            dec(TargetPoint.X, WorldDx);
   326            dec(TargetPoint.Y, WorldDy);
   326            dec(TargetPoint.Y, WorldDy);
   327            s[0]:= #5;
   327            SendIPCXY('p', TargetPoint.X, TargetPoint.Y);
   328            s[1]:= 'p';
       
   329            PSmallInt(@s[2])^:= TargetPoint.X;
       
   330            PSmallInt(@s[4])^:= TargetPoint.Y;
       
   331            SendIPC(s)
       
   332            end;
   328            end;
   333         State:= State and not gstHHChooseTarget;
   329         State:= State and not gstHHChooseTarget;
   334         end else if CurrentTeam.ExtDriven then OutError('got /put while not being in choose target mode', false)
   330         end else if CurrentTeam.ExtDriven then OutError('got /put while not being in choose target mode', false)
   335 end;
   331 end;
   336 
   332