hedgewars/uTouch.pas
changeset 6962 ec308eabe09b
parent 6961 d5ac09894a1b
child 7022 107651b3c5a0
equal deleted inserted replaced
6961:d5ac09894a1b 6962:ec308eabe09b
   263 
   263 
   264     if widget = @fireButton then
   264     if widget = @fireButton then
   265         ParseTeamCommand('-attack');
   265         ParseTeamCommand('-attack');
   266     
   266     
   267     if widget = @utilityWidget then
   267     if widget = @utilityWidget then
   268         if (CurrentHedgehog <> nil) and 
   268         if (CurrentHedgehog <> nil)then
   269            (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0)then
   269             if(Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0)then
   270             begin
   270                 begin
   271             ParseTeamCommand('put');
   271                 ParseTeamCommand('put');
   272             targetted:= true;
   272                 targetted:= true;
   273             end;
   273                 end
       
   274             else if CurAmmoGear^.AmmoType = amSwitch then
       
   275                 ParseTeamCommand('switch')
       
   276             else WriteLnToConsole(inttostr(ord(Ammoz[CurrentHedgehog^.CurAmmoType].NameId)) + ' ' + inttostr(ord(sidSwitch)));
   274     end;
   277     end;
   275         
   278         
   276 if targetting then
   279 if targetting then
   277     AddCaption('Press the target button to mark the target', cWhiteColor, capgrpAmmoInfo);
   280     AddCaption('Press the target button to mark the target', cWhiteColor, capgrpAmmoInfo);
   278  
   281