432 bShowFinger:= false;

   432 bShowFinger:= false;

   433 with CurrentHedgehog^.Gear^ do

   433 with CurrentHedgehog^.Gear^ do

   434     begin

   434     begin

   435     Message:= Message or (gmTimer and InputMask);

   435     Message:= Message or (gmTimer and InputMask);

   436     MsgParam:= byte(s[1]) - ord('0');

   436     MsgParam:= byte(s[1]) - ord('0');

   438     end

   438     end

   439 end;

   439 end;

   440 

   440 

   441 procedure chSlot(var s: shortstring);

   441 procedure chSlot(var s: shortstring);

   442 var slot: LongWord;

   442 var slot: LongWord;

   451 bShowFinger:= false;

   451 bShowFinger:= false;

   452 with CurrentHedgehog^.Gear^ do

   452 with CurrentHedgehog^.Gear^ do

   453     begin

   453     begin

   454     Message:= Message or (gmSlot and InputMask);

   454     Message:= Message or (gmSlot and InputMask);

   455     MsgParam:= slot; 

   455     MsgParam:= slot; 

   457     end

   457     end

   458 end;

   458 end;

   459 

   459 

   460 procedure chSetWeapon(var s: shortstring);

   460 procedure chSetWeapon(var s: shortstring);

   461 begin

   461 begin

   470 

   470 

   471     with CurrentHedgehog^.Gear^ do

   471     with CurrentHedgehog^.Gear^ do

   472         begin

   472         begin

   473         Message:= Message or (gmWeapon and InputMask);

   473         Message:= Message or (gmWeapon and InputMask);

   474         MsgParam:= byte(s[1]);

   474         MsgParam:= byte(s[1]);

   476         end;

   476         end;

   477 end;

   477 end;

   478 

   478 

   479 procedure chTaunt(var s: shortstring);

   479 procedure chTaunt(var s: shortstring);

   480 begin

   480 begin

   489 

   489 

   490 with CurrentHedgehog^.Gear^ do

   490 with CurrentHedgehog^.Gear^ do

   491     begin

   491     begin

   492     Message:= Message or (gmAnimate and InputMask);

   492     Message:= Message or (gmAnimate and InputMask);

   493     MsgParam:= byte(s[1]) ; 

   493     MsgParam:= byte(s[1]) ; 

   495     end

   495     end

   496 end;

   496 end;

   497 

   497 

   498 procedure chPut(var s: shortstring);

   498 procedure chPut(var s: shortstring);

   499 begin

   499 begin