hedgewars/uCommandHandlers.pas
changeset 12820 92218a06c9ff
parent 12495 b4eb289b5913
child 12852 1aba77b2e4ac
equal deleted inserted replaced
12819:b4e20bb485f9 12820:92218a06c9ff
    25 procedure initModule;
    25 procedure initModule;
    26 procedure freeModule;
    26 procedure freeModule;
    27 
    27 
    28 implementation
    28 implementation
    29 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uWorld, uRandom, uCaptions
    29 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uWorld, uRandom, uCaptions
    30     , uVisualGearsList
    30     , uVisualGearsList, uGearsHedgehog
    31      {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF};
    31      {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF};
    32 
    32 
    33 var prevGState: TGameState = gsConfirm;
    33 var prevGState: TGameState = gsConfirm;
    34     cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13);
    34     cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13);
    35     cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0);
    35     cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0);
   472     exit;
   472     exit;
   473 
   473 
   474 if not isExternalSource then
   474 if not isExternalSource then
   475     SendIPC('t' + s);
   475     SendIPC('t' + s);
   476 
   476 
   477 with CurrentHedgehog^.Gear^ do
   477 PlayTaunt(byte(s[1]))
   478     begin
       
   479     Message:= Message or (gmAnimate and InputMask);
       
   480     MsgParam:= byte(s[1]) ;
       
   481     ScriptCall('onTaunt', MsgParam);
       
   482     end
       
   483 end;
   478 end;
   484 
   479 
   485 procedure chPut(var s: shortstring);
   480 procedure chPut(var s: shortstring);
   486 begin
   481 begin
   487     s:= s; // avoid compiler hint
   482     s:= s; // avoid compiler hint