equal
deleted
inserted
replaced
1087 RenderHealth(CurrentHedgehog^); |
1087 RenderHealth(CurrentHedgehog^); |
1088 RecountTeamHealth(CurrentHedgehog^.Team); |
1088 RecountTeamHealth(CurrentHedgehog^.Team); |
1089 i:= 0; |
1089 i:= 0; |
1090 while i < vampDmg do |
1090 while i < vampDmg do |
1091 begin |
1091 begin |
1092 vg:= AddVisualGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), vgtHealth); |
1092 vg:= AddVisualGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), vgtStraightShot); |
1093 if vg <> nil then vg^.Tint:= $FF0000FF; |
1093 if vg <> nil then |
|
1094 with vg^ do |
|
1095 begin |
|
1096 dx:= 0.001 * random(45); |
|
1097 dy:= 0.001 * (random(20) + 25); |
|
1098 Tint:= $FF0000FF; |
|
1099 State:= ord(sprHealth); |
|
1100 if random(2) = 0 then dx := -dx; |
|
1101 Frame:= 0; |
|
1102 FrameTicks:= random(750) + 1250; |
|
1103 end; |
1094 inc(i, 5); |
1104 inc(i, 5); |
1095 end; |
1105 end; |
1096 end |
1106 end |
1097 end; |
1107 end; |
1098 if ((GameFlags and gfKarma) <> 0) and |
1108 if ((GameFlags and gfKarma) <> 0) and |