About the fps, I am pretty sure its because its somehow locked at 21 instead of 30. I will look into this. Thanks.
Quote: "Second, you probably know this already. You have to add a camera collision. I raised the camera and went through a tunnel and the camera just moved through the blocks on the top of the tunnel."
Yep, I am going to work on this later.
Quote: "
Third, at the end of the level the br-logo appeared and I got an error message. "
Yeah, but you were not suppost to make it to the end. The rest is unfinished, so I didn't bother coding it to end or anything. And the logo was suppost to be hidden after the menu, but I guess I forgot.
Quote: "Just I don't like the fog very much, maybe you could just give the camera lots of range. Oh, and it needs some lights in my opinion, maybe lights could replace the fog? (However I think everything that I look at without lights needs lights lol)[/quote
Without the fog, you would be seeing walls and tiles appearing out of midair. I cannot make the fog distance farther or you will see this. I will probably add an option about how far away new tiles are created. "
About the lights, thats not a bad idea. I will remember to add some.
Quote: "But the smoke amazed me...How did you make it? I was always pretty bad at smoke. It'd be a bonus if you could post some smoke code "
Sure, why not? It was really simple...
To load the smoke particles:
For I = 1 to 50
Make object plain I+3100,7,7
Texture object I+3100,8
Ghost object on I+3100
Fade object I+3100,40
Hide object I+3100
Next I
Smoke functions:
Function CreateSmoke(num)
Particles#(num,1,2) = object position x(1)+rnd(20)-10
Particles#(num,2,2) = object position y(1)-rnd(20)
Particles#(num,3,2) = object position z(1)
`Particles#(num,6) = 0.01
Show object num+3100
Endfunction
Function UpdateSmoke(num)
Particles#(num,2,2) = Particles#(num,2,2) + 1
Position object 3100+num,Particles#(num,1,2),Particles#(num,2,2),Particles#(num,3,2)
Endfunction
The smoke functions were called like this:
`Earlier...
For I = 1 to 50
Createsmoke(I)
Next I
`LAter
For I = 1 to 50
Updatesmoke(I)
Next I
The red particles were about the same but harder to code and much messier
.
Thanks for all the feedback!!!