equal
deleted
inserted
replaced
128 State:= State and (not (gstHHDriven or gstAttacking or gstAttacked)); |
128 State:= State and (not (gstHHDriven or gstAttacking or gstAttacked)); |
129 Message := Message and (not gmAttack); |
129 Message := Message and (not gmAttack); |
130 end; |
130 end; |
131 HH^.GearHidden:= HH^.Gear; |
131 HH^.GearHidden:= HH^.Gear; |
132 HH^.Gear:= nil |
132 HH^.Gear:= nil |
133 end; |
|
134 |
|
135 procedure RestoreHog(HH: PHedgehog); |
|
136 begin |
|
137 HH^.Gear:=HH^.GearHidden; |
|
138 HH^.GearHidden:= nil; |
|
139 InsertGearToList(HH^.Gear); |
|
140 HH^.Gear^.State:= (HH^.Gear^.State and (not (gstHHDriven or gstInvisible or gstAttacking))) or gstAttacked; |
|
141 AddGearCI(HH^.Gear); |
|
142 HH^.Gear^.Active:= true; |
|
143 ScriptCall('onHogRestore', HH^.Gear^.Uid) |
|
144 end; |
133 end; |
145 |
134 |
146 |
135 |
147 //////////////////////////////////////////////////////////////////////////////// |
136 //////////////////////////////////////////////////////////////////////////////// |
148 procedure doStepDrowningGear(Gear: PGear); |
137 procedure doStepDrowningGear(Gear: PGear); |