equal
deleted
inserted
replaced
362 |
362 |
363 procedure chSetWeapon(var s: shortstring); |
363 procedure chSetWeapon(var s: shortstring); |
364 begin |
364 begin |
365 if (s[0] <> #1) or CheckNoTeamOrHH then exit; |
365 if (s[0] <> #1) or CheckNoTeamOrHH then exit; |
366 |
366 |
367 if TAmmoType(LongInt(s[1])-33) > High(TAmmoType) then exit; |
367 if TAmmoType(s[1]) > High(TAmmoType) then exit; |
368 |
368 |
369 if not CurrentTeam^.ExtDriven then SendIPC('w' + s); |
369 if not CurrentTeam^.ExtDriven then SendIPC('w' + s); |
370 |
370 |
371 with CurrentHedgehog^.Gear^ do |
371 with CurrentHedgehog^.Gear^ do |
372 begin |
372 begin |
373 Message:= Message or gm_Weapon; |
373 Message:= Message or gm_Weapon; |
374 MsgParam:= byte(LongInt(s[1])-33) |
374 MsgParam:= byte(s[1]) |
375 end |
375 end |
376 end; |
376 end; |
377 |
377 |
378 procedure chTaunt(var s: shortstring); |
378 procedure chTaunt(var s: shortstring); |
379 begin |
379 begin |