equal
deleted
inserted
replaced
402 FreeTexture(Gear^.Tex); |
402 FreeTexture(Gear^.Tex); |
403 Gear^.Tex:= nil |
403 Gear^.Tex:= nil |
404 end; |
404 end; |
405 |
405 |
406 if Gear^.Kind = gtHedgehog then |
406 if Gear^.Kind = gtHedgehog then |
407 if CurAmmoGear <> nil then |
407 if (CurAmmoGear <> nil) and (CurrentHedgehog^.Gear = Gear) then |
408 begin |
408 begin |
409 Gear^.Message:= gm_Destroy; |
409 Gear^.Message:= gm_Destroy; |
410 CurAmmoGear^.Message:= gm_Destroy; |
410 CurAmmoGear^.Message:= gm_Destroy; |
411 exit |
411 exit |
412 end |
412 end |