hedgewars/uGears.pas
changeset 590 e816adf4a27f
parent 568 d0690b7aa808
child 593 1f5e66379a43
equal deleted inserted replaced
589:f382c41f658a 590:e816adf4a27f
   128                                                                @doStepAirBomb,
   128                                                                @doStepAirBomb,
   129                                                                @doStepBlowTorch,
   129                                                                @doStepBlowTorch,
   130                                                                @doStepGirder,
   130                                                                @doStepGirder,
   131                                                                @doStepTeleport,
   131                                                                @doStepTeleport,
   132                                                                @doStepHealthTag,
   132                                                                @doStepHealthTag,
   133                                                                @doStepSwitcher
   133                                                                @doStepSwitcher,
       
   134                                                                @doStepCase
   134                                                                );
   135                                                                );
   135 
   136 
   136 procedure InsertGearToList(Gear: PGear);
   137 procedure InsertGearToList(Gear: PGear);
   137 var tmp: PGear;
   138 var tmp: PGear;
   138 begin
   139 begin