hedgewars: comparison hedgewars/uCommandHandlers.pas

equal deleted inserted replaced

-:8ff3dead5850
+:f5d858e4b634
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH or isPaused then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('L');
 bShowFinger:= false;
 with CurrentHedgehog^.Gear^ do
-Message:= Message or (gmLeft and InputMask)
+Message:= Message or (gmLeft and InputMask);
+ScriptCall('onLeft');
 end;
 procedure chLeft_m(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('l');
 with CurrentHedgehog^.Gear^ do
-Message:= Message and not (gmLeft and InputMask)
+Message:= Message and not (gmLeft and InputMask);
+ScriptCall('onLeftUp');
 end;
 procedure chRight_p(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH or isPaused then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('R');
 bShowFinger:= false;
 with CurrentHedgehog^.Gear^ do
-Message:= Message or (gmRight and InputMask)
+Message:= Message or (gmRight and InputMask);
+ScriptCall('onRight');
 end;
 procedure chRight_m(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('r');
 with CurrentHedgehog^.Gear^ do
-Message:= Message and not (gmRight and InputMask)
+Message:= Message and not (gmRight and InputMask);
+ScriptCall('onRightUp');
 end;
 procedure chUp_p(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH or isPaused then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('U');
 bShowFinger:= false;
 with CurrentHedgehog^.Gear^ do
-Message:= Message or (gmUp and InputMask)
+Message:= Message or (gmUp and InputMask);
+ScriptCall('onUp');
 end;
 procedure chUp_m(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('u');
 with CurrentHedgehog^.Gear^ do
 Message:= Message and not (gmUp and InputMask);
+ScriptCall('onUpUp');
 end;
 procedure chDown_p(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH or isPaused then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('D');
 bShowFinger:= false;
 with CurrentHedgehog^.Gear^ do
-Message:= Message or (gmDown and InputMask)
+Message:= Message or (gmDown and InputMask);
+ScriptCall('onDown');
 end;
 procedure chDown_m(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('d');
 with CurrentHedgehog^.Gear^ do
-Message:= Message and not (gmDown and InputMask)
+Message:= Message and not (gmDown and InputMask);
+ScriptCall('onDownUp');
 end;
 procedure chPrecise_p(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH or isPaused then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('Z');
 bShowFinger:= false;
 with CurrentHedgehog^.Gear^ do
 Message:= Message or (gmPrecise and InputMask);
+ScriptCall('onPrecise');
 end;
 procedure chPrecise_m(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('z');
 with CurrentHedgehog^.Gear^ do
 Message:= Message and not (gmPrecise and InputMask);
+ScriptCall('onPreciseUp');
 end;
 procedure chLJump(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH or isPaused then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('j');
 bShowFinger:= false;
 with CurrentHedgehog^.Gear^ do
-Message:= Message or (gmLJump and InputMask)
+Message:= Message or (gmLJump and InputMask);
+ScriptCall('onLJump');
 end;
 procedure chHJump(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH or isPaused then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('J');
 bShowFinger:= false;
 with CurrentHedgehog^.Gear^ do
-Message:= Message or (gmHJump and InputMask)
+Message:= Message or (gmHJump and InputMask);
+ScriptCall('onHJump');
 end;
 procedure chAttack_p(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 {$IFDEF DEBUGFILE}AddFileLog('/+attack: hedgehog''s Gear^.State = '+inttostr(State));{$ENDIF}
 if ((State and gstHHDriven) <> 0) then
 begin
 FollowGear:= CurrentHedgehog^.Gear;
 if not CurrentTeam^.ExtDriven then SendIPC('A');
-Message:= Message or (gmAttack and InputMask)
+Message:= Message or (gmAttack and InputMask);
+	ScriptCall('onAttack');
 end
 end
 end;
 procedure chAttack_m(var s: shortstring);
 if CheckNoTeamOrHH then exit;
 with CurrentHedgehog^.Gear^ do
 begin
 if not CurrentTeam^.ExtDriven and
 ((Message and gmAttack) <> 0) then SendIPC('a');
-Message:= Message and not (gmAttack and InputMask)
+Message:= Message and not (gmAttack and InputMask);
+ScriptCall('onAttackUp');
 end
 end;
 procedure chSwitch(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH or isPaused then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('S');
 bShowFinger:= false;
 with CurrentHedgehog^.Gear^ do
-Message:= Message or (gmSwitch and InputMask)
+Message:= Message or (gmSwitch and InputMask);
+ScriptCall('onSwitch');
 end;
 procedure chNextTurn(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
 if not CurrentTeam^.ExtDriven then SendIPC(s);
 bShowFinger:= false;
 with CurrentHedgehog^.Gear^ do
 begin
 Message:= Message or (gmTimer and InputMask);
-MsgParam:= byte(s[1]) - ord('0')
+MsgParam:= byte(s[1]) - ord('0');
+ScriptCall('onTimer');
 end
 end;
 procedure chSlot(var s: shortstring);
 var slot: LongWord;
 if not CurrentTeam^.ExtDriven then SendIPC(char(byte(s[1]) + 79));
 bShowFinger:= false;
 with CurrentHedgehog^.Gear^ do
 begin
 Message:= Message or (gmSlot and InputMask);
-MsgParam:= slot
+MsgParam:= slot;
+ScriptCall('onSlot');
 end
 end;
 procedure chSetWeapon(var s: shortstring);
 begin
 with CurrentHedgehog^.Gear^ do
 begin
 Message:= Message or (gmWeapon and InputMask);
 MsgParam:= byte(s[1]);
+	ScriptCall('onSetWeapon');
 end;
 end;
 procedure chTaunt(var s: shortstring);
 begin
 if not CurrentTeam^.ExtDriven then SendIPC('t' + s);
 with CurrentHedgehog^.Gear^ do
 begin
 Message:= Message or (gmAnimate and InputMask);
-MsgParam:= byte(s[1])
+MsgParam:= byte(s[1]) ;
+ScriptCall('onTaunt');
 end
 end;
 procedure chPut(var s: shortstring);
 begin

changeset 4661	f5d858e4b634
parent 4611	445d382cd401
child 4744	ecc2c757d0df
child 4808	7c3e5b52344a