Ok... Its difficult to understand what you are asking, but I'll do my best...
So you have an animated gun that you've loaded into your program, but you want the bullets fired to be automatic... You also want to add a fireing effect to the end of the gun... It would help if you included your code with your question by copy/pasting it into the "Code:" Box...
Try adding something like this into your code...
If Spacekey()=1
Play Object [GunObj#]
If bnum<100 then bnum=100
bnum=bnum+1
If bnum>199 then bnum=100
If Object Exist(bnum)=0
Make Object Cube bnum,[size]
Endif
Position Object bnum, Object Position X([GunObj#]),Object Position Y([GunObj#]),Object Position Z([GunObj#])
Rotate Object bnum, Object Angle X([GunObj#]),Object Angle Y([GunObj#]),Object Angle Z([GunObj#])
Move Object bnum,[speed]
Endif
If Object Exist (bnum)=1
Move Object bnum,[speed]
[Detect Collision Code]
Endif
... To create a fireing effect, you could place a textured plain at the end of your gun and hide it when the gun is not being fired...
...well... I hope I helped