equal
deleted
inserted
replaced
308 end; |
308 end; |
309 |
309 |
310 procedure chSetWeapon(var s: shortstring); |
310 procedure chSetWeapon(var s: shortstring); |
311 begin |
311 begin |
312 if (s[0] <> #1) or CheckNoTeamOrHH then exit; |
312 if (s[0] <> #1) or CheckNoTeamOrHH then exit; |
313 if not CurrentTeam^.ExtDriven then SendIPC('w' + char(byte(s[1]) + 79)); |
313 |
|
314 if TAmmoType(s[1]) > High(TAmmoType) then exit; |
|
315 |
|
316 if not CurrentTeam^.ExtDriven then SendIPC('w' + s); |
|
317 |
314 with CurrentHedgehog^.Gear^ do |
318 with CurrentHedgehog^.Gear^ do |
315 begin |
319 begin |
316 Message:= Message or gm_Weapon; |
320 Message:= Message or gm_Weapon; |
317 MsgParam:= byte(s[1]) - ord('a') |
321 MsgParam:= byte(s[1]) |
318 end |
322 end |
319 end; |
323 end; |
320 |
324 |
321 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
325 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
322 begin |
326 begin |