equal
deleted
inserted
replaced
367 cSeed:= s; |
367 cSeed:= s; |
368 InitStepsFlags:= InitStepsFlags or cifRandomize |
368 InitStepsFlags:= InitStepsFlags or cifRandomize |
369 end |
369 end |
370 end; |
370 end; |
371 |
371 |
|
372 procedure chAmmoMenu(var s: shortstring); |
|
373 begin |
|
374 if CheckNoTeamOrHH then exit; |
|
375 with CurrentTeam^ do |
|
376 with Hedgehogs[CurrHedgehog] do |
|
377 begin |
|
378 if bShowAmmoMenu then bShowAmmoMenu:= false |
|
379 else if ((Gear.State and (gstAttacking or gstAttacked)) <> 0) or (AttacksNum > 0) |
|
380 or ((Gear.State and gstHHDriven) = 0) then else bShowAmmoMenu:= true |
|
381 end |
|
382 end; |
|
383 |
|
384 |