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 |