equal
deleted
inserted
replaced
634 t:= GearsList; |
634 t:= GearsList; |
635 while t <> nil do |
635 while t <> nil do |
636 begin |
636 begin |
637 Gear:= t; |
637 Gear:= t; |
638 t:= Gear^.NextGear; |
638 t:= Gear^.NextGear; |
|
639 if (((GameTicks + Gear^.UID * 100) mod 1000) = 0) and (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog <> nil) and (PHedgehog(Gear^.Hedgehog)^.Effects[hePoisoned]) and (getRandom(100) = 0) then |
|
640 if getRandom(2) = 0 then |
|
641 PlaySound(sndPoisonCough, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack) |
|
642 else |
|
643 PlaySound(sndPoisonMoan, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack); |
|
644 |
639 if Gear^.Active then |
645 if Gear^.Active then |
640 begin |
646 begin |
641 if Gear^.RenderTimer and (Gear^.Timer > 500) and ((Gear^.Timer mod 1000) = 0) then |
647 if Gear^.RenderTimer and (Gear^.Timer > 500) and ((Gear^.Timer mod 1000) = 0) then |
642 begin |
648 begin |
643 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
649 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |