equal
deleted
inserted
replaced
324 if bShowAmmoMenu then |
324 if bShowAmmoMenu then |
325 begin |
325 begin |
326 bSelected:= true; |
326 bSelected:= true; |
327 exit |
327 exit |
328 end; |
328 end; |
329 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^ do |
329 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^, |
|
330 CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do |
330 if (State and gstHHChooseTarget) <> 0 then |
331 if (State and gstHHChooseTarget) <> 0 then |
331 begin |
332 begin |
332 isCursorVisible:= false; |
333 isCursorVisible:= false; |
333 if not CurrentTeam.ExtDriven then |
334 if not CurrentTeam.ExtDriven then |
334 begin |
335 begin |
336 dec(TargetPoint.X, WorldDx); |
337 dec(TargetPoint.X, WorldDx); |
337 dec(TargetPoint.Y, WorldDy); |
338 dec(TargetPoint.Y, WorldDy); |
338 SendIPCXY('p', TargetPoint.X, TargetPoint.Y); |
339 SendIPCXY('p', TargetPoint.X, TargetPoint.Y); |
339 end; |
340 end; |
340 State:= State and not gstHHChooseTarget; |
341 State:= State and not gstHHChooseTarget; |
|
342 if (Ammo[CurSlot, CurAmmo].Propz and ammoprop_AttackingPut) <> 0 then |
|
343 Message:= Message or gm_Attack; |
341 end else if CurrentTeam.ExtDriven then OutError('got /put while not being in choose target mode', false) |
344 end else if CurrentTeam.ExtDriven then OutError('got /put while not being in choose target mode', false) |
342 end; |
345 end; |
343 |
346 |
344 procedure chCapture(var s: shortstring); |
347 procedure chCapture(var s: shortstring); |
345 begin |
348 begin |