i want to make automatic bullets. i had a code and I cant get it to work. Here ill just type it in Its from the forums a long time ago.
bullet_amount = 40
For t = 2 To bullet_amount
Make Object Sphere t,5
Color Object t,Rgb(Rnd(255),Rnd(255),Rnd(244))
Hide Object t
Next t
Dim Bullet(bullet_amount,1)
rem set ammo (ammo = 1 for ammo available, and ammo = 0 for not available)
bulletnum = 2
ammo = 1
Sync On : Sync Rate 0
Do
if Mouseclick()=1 and ammo = 1 and Bullet(bulletnum,1) < 5
Position object bulletnum,X#,Y#-30,Z#
Set object to camera orientation bulletnum
Bullet(bulletnum,1) = 40
Show object bulletnum
Endif
For t = 2 To bullet_amount
If Object Visible(t) = 1
Bullet(t,1) = Bullet(t,1) - 1
Move object t,30
If Bullet(t,1) <= 0 then Hide object t
Endif
Next t
If Bullet(bulletnum,1) > 0 and ammo = 1
Inc bulletnum
If bulletnum > bullet_amount Then ammo = 0 : bulletnum = 2
Endif
If Controlkey() = 1
bulletnum = 2
ammo = 1
Endif
If Leftkey() = 1 Then Turn Camera Left 1
If Rightkey() = 1 Then Turn Camera Right 1
sync
loop
It works ok except for wen i put autocam on it dissipears and if i put lock object on it goes in a straight line even when i move left and right. thnx. Anyone pleez!!
tim
