hedgewars/uGears.pas
changeset 10829 158b5dd6b3c9
parent 10820 e86ba0e821a6
child 10866 c1f75780c56f
equal deleted inserted replaced
10828:9867dd60a66a 10829:158b5dd6b3c9
   992 const handlers: array[TGearType] of TGearStepProcedure = (
   992 const handlers: array[TGearType] of TGearStepProcedure = (
   993             @doStepFlame,
   993             @doStepFlame,
   994             @doStepHedgehog,
   994             @doStepHedgehog,
   995             @doStepMine,
   995             @doStepMine,
   996             @doStepCase,
   996             @doStepCase,
       
   997             @doStepAirMine,
   997             @doStepCase,
   998             @doStepCase,
   998             @doStepBomb,
   999             @doStepBomb,
   999             @doStepShell,
  1000             @doStepShell,
  1000             @doStepGrave,
  1001             @doStepGrave,
  1001             @doStepBee,
  1002             @doStepBee,
  1053             @doStepLandGun,
  1054             @doStepLandGun,
  1054             @doStepTardis,
  1055             @doStepTardis,
  1055             @doStepIceGun,
  1056             @doStepIceGun,
  1056             @doStepAddAmmo,
  1057             @doStepAddAmmo,
  1057             @doStepGenericFaller,
  1058             @doStepGenericFaller,
  1058             @doStepKnife,
  1059             @doStepKnife);
  1059             @doStepAirMine);
       
  1060 begin
  1060 begin
  1061     doStepHandlers:= handlers;
  1061     doStepHandlers:= handlers;
  1062 
  1062 
  1063     RegisterVariable('skip', @chSkip, false);
  1063     RegisterVariable('skip', @chSkip, false);
  1064     RegisterVariable('hogsay', @chHogSay, true );
  1064     RegisterVariable('hogsay', @chHogSay, true );