| changeset 15938 | 4c0f8dbf6c13 |
| parent 15927 | 046182f1080b |
| parent 15937 | 1becf4a0e907 |
| child 15986 | 7125918637e9 |
| 15928:73cdc306888f | 15938:4c0f8dbf6c13 |
|---|---|
262 end; |
262 end; |
263 end; |
263 end; |
264 |
264 |
265 procedure HideHog(HH: PHedgehog); |
265 procedure HideHog(HH: PHedgehog); |
266 begin |
266 begin |
267 if HH^.Gear = nil then exit; |
|
267 ScriptCall('onHogHide', HH^.Gear^.Uid); |
268 ScriptCall('onHogHide', HH^.Gear^.Uid); |
268 DeleteCI(HH^.Gear); |
269 DeleteCI(HH^.Gear); |
269 if FollowGear = HH^.Gear then |
270 if FollowGear = HH^.Gear then |
270 FollowGear:= nil; |
271 FollowGear:= nil; |
271 |
272 |