equal
deleted
inserted
replaced
4938 Message := Message and not gmAttack; |
4938 Message := Message and not gmAttack; |
4939 end; |
4939 end; |
4940 HH^.GearHidden:= HH^.Gear; |
4940 HH^.GearHidden:= HH^.Gear; |
4941 HH^.Gear:= nil |
4941 HH^.Gear:= nil |
4942 end |
4942 end |
4943 else if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible <> 0) then |
4943 //else if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible <> 0) then |
4944 begin |
4944 else if (HH^.GearHidden <> nil) then// and (HH^.Gear^.State and gstInvisible <> 0) then |
|
4945 begin |
|
4946 HH^.Gear:=HH^.GearHidden; |
|
4947 HH^.GearHidden:= nil; |
4945 InsertGearToList(HH^.Gear); |
4948 InsertGearToList(HH^.Gear); |
4946 HH^.Gear^.State:= HH^.Gear^.State and not (gstHHDriven or gstInvisible); |
4949 HH^.Gear^.State:= (HH^.Gear^.State and not (gstHHDriven or gstInvisible or gstAttacking)) or gstAttacked; |
4947 AddGearCI(HH^.Gear); |
4950 AddGearCI(HH^.Gear); |
4948 HH^.Gear^.Active:= true |
4951 HH^.Gear^.Active:= true |
4949 end; |
4952 end; |
4950 end; |
4953 end; |
4951 |
4954 |
4989 Gear^.Power:= 0; |
4992 Gear^.Power:= 0; |
4990 Gear^.Timer:= 0; |
4993 Gear^.Timer:= 0; |
4991 if HH^.GearHidden <> nil then FindPlace(HH^.GearHidden, false, 0, LAND_WIDTH,true); |
4994 if HH^.GearHidden <> nil then FindPlace(HH^.GearHidden, false, 0, LAND_WIDTH,true); |
4992 if HH^.GearHidden <> nil then |
4995 if HH^.GearHidden <> nil then |
4993 begin |
4996 begin |
4994 HH^.Gear:=HH^.GearHidden; |
4997 Gear^.X:= HH^.GearHidden^.X; |
4995 HH^.GearHidden:= nil; |
4998 Gear^.Y:= HH^.GearHidden^.Y; |
4996 HH^.Gear^.State:= HH^.Gear^.State or gstInvisible; |
4999 //HH^.Gear:=HH^.GearHidden; |
4997 Gear^.X:= HH^.Gear^.X; |
5000 //HH^.GearHidden:= nil; |
4998 Gear^.Y:= HH^.Gear^.Y; |
5001 //HH^.Gear^.State:= HH^.Gear^.State or gstInvisible; |
4999 end |
5002 end |
5000 end |
5003 end |
5001 else dec(Gear^.Timer); |
5004 else dec(Gear^.Timer); |
5002 end; |
5005 end; |
5003 |
5006 |