changeset 15908 | 4c0f8dbf6c13 |
parent 15898 | 046182f1080b |
parent 15907 | 1becf4a0e907 |
child 15956 | 7125918637e9 |
15899:73cdc306888f | 15908: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 |