Well I didn't want to include media. But it really is simple to use models, just do this:
Instead of,
If Gun=1
if object exist(1)=0
Make Object box 1,5,5,20
Endif
Endif
If Gun=2
if object exist(1)=0
Make Object box 1,5,5,20
color object 1,rgb(255,0,0)
Endif
Endif
If Gun=3
if object exist(1)=0
Make Object box 1,5,5,20
color object 1,rgb(255,255,0)
Endif
Endif
do,
If Gun=1
if object exist(1)=0
load object "gun1.x",1
Endif
Endif
If Gun=2
if object exist(1)=0
load object "gun2.x",1
Endif
Endif
If Gun=3
if object exist(1)=0
load object "gun3.x",1
Endif
Endif
or even better,
for g=1 to 3
If Gun=g
if object exist(1)=0
load object "gun"+str$(g)+".x",1
Endif
Endif
next g
[edit]
Don't forget, this means not loading the objects before the loop.