equal
deleted
inserted
replaced
1040 or CheckGearDrowning(HHGear) then |
1040 or CheckGearDrowning(HHGear) then |
1041 begin |
1041 begin |
1042 with HHGear^ do |
1042 with HHGear^ do |
1043 begin |
1043 begin |
1044 Message:= 0; |
1044 Message:= 0; |
1045 SetLittle(dx); |
1045 SetLittle(dX); |
1046 dY:= _0; |
1046 dY:= _0; |
1047 State:= State and not (gstAttacking or gstAttacked); |
1047 State:= State and not (gstAttacking or gstAttacked); |
1048 State:= State or gstMoving; |
1048 State:= State or gstMoving; |
1049 end; |
1049 end; |
1050 DeleteGear(Gear); |
1050 DeleteGear(Gear); |
1063 else if (Gear^.Message and gm_Right) <> 0 then HHGear^.X:= HHGear^.X + cMaxWindSpeed * 40; |
1063 else if (Gear^.Message and gm_Right) <> 0 then HHGear^.X:= HHGear^.X + cMaxWindSpeed * 40; |
1064 if (Gear^.Message and gm_Up) <> 0 then HHGear^.Y:= HHGear^.Y - cGravity * 40 |
1064 if (Gear^.Message and gm_Up) <> 0 then HHGear^.Y:= HHGear^.Y - cGravity * 40 |
1065 else if (Gear^.Message and gm_Down) <> 0 then HHGear^.Y:= HHGear^.Y + cGravity * 40; |
1065 else if (Gear^.Message and gm_Down) <> 0 then HHGear^.Y:= HHGear^.Y + cGravity * 40; |
1066 |
1066 |
1067 HHGear^.Y:= HHGear^.Y + cGravity * 100; |
1067 HHGear^.Y:= HHGear^.Y + cGravity * 100; |
|
1068 Gear^.X:= HHGear^.X; |
|
1069 Gear^.Y:= HHGear^.Y |
1068 end; |
1070 end; |
1069 |
1071 |
1070 //////////////////////////////////////////////////////////////////////////////// |
1072 //////////////////////////////////////////////////////////////////////////////// |
1071 procedure doStepAirAttackWork(Gear: PGear); |
1073 procedure doStepAirAttackWork(Gear: PGear); |
1072 begin |
1074 begin |