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