branch | 1.0.0 |
changeset 15907 | 1becf4a0e907 |
parent 15359 | c117e17b90bc |
child 15908 | 4c0f8dbf6c13 |
15885:ed84eb580643 | 15907:1becf4a0e907 |
---|---|
260 end; |
260 end; |
261 end; |
261 end; |
262 |
262 |
263 procedure HideHog(HH: PHedgehog); |
263 procedure HideHog(HH: PHedgehog); |
264 begin |
264 begin |
265 if HH^.Gear = nil then exit; |
|
265 ScriptCall('onHogHide', HH^.Gear^.Uid); |
266 ScriptCall('onHogHide', HH^.Gear^.Uid); |
266 DeleteCI(HH^.Gear); |
267 DeleteCI(HH^.Gear); |
267 if FollowGear = HH^.Gear then |
268 if FollowGear = HH^.Gear then |
268 FollowGear:= nil; |
269 FollowGear:= nil; |
269 |
270 |