1061 end; |
1061 end; |
1062 |
1062 |
1063 //////////////////////////////////////////////////////////////////////////////// |
1063 //////////////////////////////////////////////////////////////////////////////// |
1064 |
1064 |
1065 procedure doStepGirder(Gear: PGear); |
1065 procedure doStepGirder(Gear: PGear); |
1066 begin |
1066 var HHGear: PGear; |
1067 AllInactive:= false; |
1067 begin |
1068 writelntoconsole(inttostr(TargetPoint.X)); |
1068 AllInactive:= false; |
|
1069 |
|
1070 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
1069 if not TryPlaceOnLand(TargetPoint.X - SpritesData[sprAmGirder].Width div 2, |
1071 if not TryPlaceOnLand(TargetPoint.X - SpritesData[sprAmGirder].Width div 2, |
1070 TargetPoint.Y - SpritesData[sprAmGirder].Height div 2, |
1072 TargetPoint.Y - SpritesData[sprAmGirder].Height div 2, |
1071 sprAmGirder, Gear^.State) then |
1073 sprAmGirder, Gear^.State) then |
1072 with PHedgehog(Gear^.Hedgehog)^.Gear^ do |
|
1073 begin |
1074 begin |
1074 State:= State and not gstAttacking; |
1075 HHGear^.Message:= HHGear^.Message and not gm_Attack; |
1075 Message:= Message and not gm_Attack; |
1076 HHGear^.State:= HHGear^.State and not gstAttacking; |
1076 isCursorVisible:= true; |
1077 HHGear^.State:= HHGear^.State or gstHHChooseTarget; |
1077 with PHedgehog(Gear^.Hedgehog)^ do |
1078 DeleteGear(Gear); |
1078 State:= State or gstHHChooseTarget |
1079 isCursorVisible:= true |
1079 end |
1080 end |
1080 else AfterAttack; |
1081 else begin |
1081 TargetPoint.X:= NoPointX; |
1082 DeleteGear(Gear); |
1082 DeleteGear(Gear) |
1083 AfterAttack |
1083 end; |
1084 end; |
|
1085 TargetPoint.X:= NoPointX |
|
1086 end; |