equal
deleted
inserted
replaced
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'); |
437 ScriptCall('onTimer'); |
437 ScriptCall('onTimer', MsgParam); |
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; |
456 ScriptCall('onSlot'); |
456 ScriptCall('onSlot', MsgParam); |
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]); |
475 ScriptCall('onSetWeapon'); |
475 ScriptCall('onSetWeapon', MsgParam); |
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]) ; |
494 ScriptCall('onTaunt'); |
494 ScriptCall('onTaunt', MsgParam); |
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 |