502 if (s[0] <> #1) or CheckNoTeamOrHH then exit;

   502     if (s[0] <> #1) or CheckNoTeamOrHH then exit;

   503 

   503 

   504 if TAmmoType(s[1]) > High(TAmmoType) then exit;

   504     if TAmmoType(s[1]) > High(TAmmoType) then exit;

   505 

   505 

   506 if not CurrentTeam^.ExtDriven then SendIPC('w' + s);

   506     if not CurrentTeam^.ExtDriven then SendIPC('w' + s);

   507 

   507 

   508 with CurrentHedgehog^.Gear^ do

   508     with CurrentHedgehog^.Gear^ do

   509     begin

   509     begin

   510     Message:= Message or gm_Weapon;

   510         Message:= Message or gm_Weapon;

   511     MsgParam:= byte(s[1])

   511         MsgParam:= byte(s[1]);

   512     end

   512     end;

   513     

   514 {$IFDEF IPHONEOS}

   515     savedAmmoType:= TAmmoType(s[1]);

   516 {$ENDIF}