|
I'm gonna keep doing this till I win code of the month : 3D Boat racers!
|
Email
|
| Submitted on: |
7/21/2001 9:00:51 AM |
| By: |
DeadFred
|
| Level: |
Beginner |
| User Rating: |
By 41 Users |
| Compatibility: |
VB 6.0 |
| Views: |
24399 |
|
|
|
|
|
This game took me about 2 hours. Its fun and addictive, I think, and it runs fast on a 166mhz pc. You'll wanna slow this down abit, I expect. Race the evil Boris the nasty in this racing game, maybe the first or secnod such game on VB planetsourcecode. Anyway, its got to be the first 3D racer, and you can make a better one, just by downloading my 3D engine, my 3D model maker, and using your imagination and abit of VB code. Resspect
|
 |
| |
|
 Download code
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come
out every day, so no prevention program can catch 100% of them. For your own safety, please:
- Re-scan downloaded files using your personal virus checker before using it.
- NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
- Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net
including:McAfee.com
|
Terms of Agreement:
By using this code, you agree to the following terms...
- You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
- You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
- You may link to this code from another website, but ONLY if it is not wrapped in a frame.
- You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
|
Other 4 submission(s) by this author
|
|
Report Bad Submission
|
Your Vote
|
| |
Other User Comments
|
 7/21/2001 9:16:37 AM: Codin genius
D@mn thats good for pure vb. I couldn't do much better with API or even DX 8.0 (Only coz Im still trying to figure it out). And yes ok I'll give you a vote since you seem to want one so much! ;)
(If this comment was disrespectful, please report it.)
|
7/21/2001 10:16:49 AM: md
...or you could just let the users give you an excellent rating
(If this comment was disrespectful, please report it.)
|
7/21/2001 10:29:57 AM: Daniel Davies
Very Good Coding, the last engine i saw was huge. One problem is the sensitivity of the keys (eg, if i tap right, i turn 90 degrees!). I expect you've heard this beore, but textures and materials would be nice, but they will slow this down!
(If this comment was disrespectful, please report it.)
|
7/21/2001 10:31:05 AM: Daniel Davies
Oh, i see you included collision detection? the opponent rammed into my boat, not were glued, and i cannot move an inch! 4 Globes :D
(If this comment was disrespectful, please report it.)
|
7/21/2001 12:22:14 PM: DeadFred
Hmm. I didn't belive you, and then I played again, and got stuck in about 30 seconds. :-( Ah well, considering that the collosion detection to 30 secs to code, and I didn't even test it really, what do you expect. Still, if you think you can do better, you try it. I'm not trying to be nasty. Honestly, try and make a better one. Thats why I made the engine the way I did, so anyone can use it, and make games real quick and easy.
(If this comment was disrespectful, please report it.)
|
7/21/2001 1:30:12 PM: DeadFred
Apparently you all hate this game!!! I like it, and thats what matters. I just updated it to fix the collosion problem. Much better collisions now, plus a touch of colour, the other boat is different from yours, your boats cause ripples, theres a camara tower in the middle of the track, and you can use F1 to F4 to change your views.
With effects as cheesy as these, who can resist its charm and inocence?
(If this comment was disrespectful, please report it.)
|
7/21/2001 3:41:33 PM: SeeD
ok - this is not beginner level. this is quite advanced and i'm having a tough time trying to analyze it w/out many comments. I'd greatly appreciate it if you'd comment more on it. I'd like to learn as much as I could from this! By The Way, it's excellent. You surely deserve credit and a pat on the back!
(If this comment was disrespectful, please report it.)
|
7/21/2001 6:49:18 PM: bazee
Hey this is kewl, u get my vote!
(If this comment was disrespectful, please report it.)
|
7/21/2001 11:11:34 PM: Digitronix
Impressive. Certainly, you know your math.
(If this comment was disrespectful, please report it.)
|
7/22/2001 10:35:49 AM: Soh Wei Yu
great code..makes me wonder how much time u had already spent on this?
(If this comment was disrespectful, please report it.)
|
7/22/2001 9:34:39 PM: Gary Staunton
Excellent rating from me. It's pretty cool. Hope this doesn't mean that you are not going to keep up the good work if you win COTM?
(If this comment was disrespectful, please report it.)
|
7/24/2001 1:04:06 AM: Nathan Chere
One blaringly obvious bug- when you go through the finish line it increments Borris's lap counter, and when he goes through it increments yours.
Amazing code regardless, 5 globes.
(If this comment was disrespectful, please report it.)
|
7/24/2001 2:56:19 PM: DeadFred
It took me ages to figure out why I was always loosing! Hmm, the labels are in the wrong place. Thanks for the nice comments, and while it may seem I'm just putting the same engine on loads of times, I am improving it, and am always looking to make it faster and better. I'm makeing an F1 racing game, with some impovements over this boat game, and the engine should be abit faster. I know alot of you are waiting to see if I can shade the faces. Well don't expect solid faces any time soon, thought I will one day...
(If this comment was disrespectful, please report it.)
|
7/25/2001 5:35:29 PM: Kevin
DeadFred
something is wrong in Faster.bas
TempMorph(N).Scale.X = World(WorldID).Morph(N).Scale.X
TempMorph(N).Scale.Y = World(WorldID).Morph(N).Scale.Y
TempMorph(N).Scale.Z = World(WorldID).Morph(N).Scale.Z
that peice of code gives me an invalid syntax error...
why..?
please fix it...
or just send me the EXE
i cant get any of your games to work
(If this comment was disrespectful, please report it.)
|
7/25/2001 5:48:33 PM: Kevin
i simply took out the peice of bad code and presto!
all good
anyways you should sell animation shop and A ocx along with it for programmers wanting to use it in there programs...
it would be very useful
i need a tutorial for running the module
if somone could cook it up i would be thankful
i think i know how to make something move but im not sure and i wanna make a virtual pet
this would be VERY GOOD for a virtual pet
yet again if anyone can cook up a tutorial or just some kind of reference file
i would be fery thankful
my email is kevinmf89@hotmail.com
(If this comment was disrespectful, please report it.)
|
7/29/2001 4:07:58 PM: Pete
WHAT!!!!!!! This is the most crazy program I have ever seen. Why not use DirectX8 instead of all those Lines(This works in two ways) of code.
It's really interesting though, if only I was playing this on my old laptop. Seeing how when I turn I literally do a 360 * 9 LOL!
Still, I give this a "Good" rating!
(If this comment was disrespectful, please report it.)
|
8/5/2001 2:16:52 PM: DeadFred
I'm gonna put out one last version of this engine in a few days, or a week, which will contain a pretty large help file, showing exatly how this works, and a step by step guide to building a 3D game with it. I've just about done the guide (15 pages+). I'll finish it this week while i'm sitting on my áss at work getting paid :-). I've already dun some improvemnts to the engine, i'm just gonna finish face cliping, and then give it to ya
(If this comment was disrespectful, please report it.)
|
8/25/2001 2:40:51 AM: gh0ul
dude.... this is really cool.. it's so freaking fast it's difficult. I had to slow the engine dow to pay it! Very nice VB implementation. Consider a new version..... one with texture and background. Very nice, keep up the good work.
(If this comment was disrespectful, please report it.)
|
8/29/2001 4:15:47 PM: El Bunglé
not bad burgess, but turn the steering sensitivity down dude!
(If this comment was disrespectful, please report it.)
|
8/29/2001 4:20:36 PM: Bungle
nice one burgess, the arrow is helpful but the track could be a bit more obvious. put marker buoys in or summat!
(If this comment was disrespectful, please report it.)
|
10/9/2001 12:13:57 PM: Fred
Genuinely that is a very impressive peice of code! But I don't know how you expect us to believe that you wrote it in 2 hours! There are over 600 lines of code there. That's like 5 lines every minute!
(If this comment was disrespectful, please report it.)
|
10/9/2001 9:46:32 PM: Ross
Impressive. Very Impressive. This has got the be the smoothest running game I've ever seen before! It's so small and simple, yet so acurate it's scary. You got my vote. Good Work!
(If this comment was disrespectful, please report it.)
|
12/22/2001 7:35:39 AM: DeadFred
Not like anyones bothered now, but when I say I wrote it in 2 hours, I only wrote the code in the Form, not the Module. Writing the module took ages, but it is so self contained and easy to use that you can just add it to a project and have a 3D engine up and running in minutes
(If this comment was disrespectful, please report it.)
|
12/25/2001 8:24:29 AM: John Galanopoulos
This is by far the most cool 3d engine i ve ever seen in VB. 5g man.
(If this comment was disrespectful, please report it.)
|
12/25/2001 11:44:49 AM: Shawn N
This is VB? Wow!
Nice work and everything, but since this is open-source - that's what really is on the table.
No comments (especially on a project this big), no option explicit on your form, and some of your module's paramaters are not passed as explicit types.
Other than that, this is like the best demonstration of math and coolest projects I've seen on this site.
Way to go$!$!% MERRY CHRISTMAS
<3 Shawn
(If this comment was disrespectful, please report it.)
|
12/25/2001 4:39:06 PM: Merry Christmas
Merry Christmas and Great game! But, on your comment that this is the first 3d racer, there was one called eRacer3d that did fantastic on this site... Might wanna check it out.
(If this comment was disrespectful, please report it.)
|
12/25/2001 8:50:03 PM: Robbo
Great program!!
Been trying to email you but it appears your email has been shut down. So Fred if your still around could you please email me at: robbo_f@hotmail.com
thanks
(If this comment was disrespectful, please report it.)
|
2/12/2002 8:36:49 PM: Jamie Lindgren
very hard, but pretty cool, espeically 4 pure vb... 5 glob3s
(If this comment was disrespectful, please report it.)
|
5/27/2002 1:30:34 PM: Harry Maugans
Very nice.
(If this comment was disrespectful, please report it.)
|
6/4/2002 6:21:36 AM: adamski
Dude you are the Master Coder... This code is excelent... Do you got any tutorials about this code, I'm very interested in 3D engine and this code is a very good for a start
(If this comment was disrespectful, please report it.)
|
6/4/2002 6:22:35 AM: adamski
Dude you are the Master Coder... This code is excelent... Do you got any tutorials about this code, I'm very interested in 3D engine and this code is a very good for a start....
If you got any tutorials or documentation please mail it to me
thanx
(If this comment was disrespectful, please report it.)
|
9/4/2002 4:02:48 PM:
i think this is more than begginner but ... anyway 5/5
(If this comment was disrespectful, please report it.)
|
10/27/2002 3:13:38 PM:
a truely amazing piece of code!!! I've seen worse games selling for $20...
keep up the good work!
(If this comment was disrespectful, please report it.)
|
10/27/2002 6:27:25 PM:
i figured out how to fix the steering problem that both me and all of you hate...
change...
If VKey(37) = True Then
World(1).Angle.Y = (World(1).Angle.Y - 10) Mod 360
World(1).Angle.Z = World(1).Angle.Z + (World(1).Speed * 0.25)
End If
If VKey(39) = True Then
World(1).Angle.Y = (World(1).Angle.Y + 10) Mod 360
World(1).Angle.Z = World(1).Angle.Z - (World(1).Speed * 0.25)
End If
to...
If VKey(37) = True Then
World(1).Angle.Y = (World(1).Angle.Y - 2) Mod 360
World(1).Angle.Z = World(1).Angle.Z + (World(1).Speed * 0.25)
End If
If VKey(39) = True Then
World(1).Angle.Y = (World(1).Angle.Y + 2) Mod 360
World(1).Angle.Z = World(1).Angle.Z - (World(1).Speed * 0.25)
End If
(If this comment was disrespectful, please report it.)
|
5/9/2003 10:08:53 PM: Michael J.
Whoa!!! Great code! One problem i found... a glitch! if you go in the exact opposite direction the arrow says, all these objects appear around you, including the computer player, and when the objects all show up (the finish line is the last object to show up) and you turn left, all the gates appear in a row, the level is linear(can't move side to side) and then to get out you just spin around. Could someone help me with this?
(If this comment was disrespectful, please report it.)
|
6/17/2003 1:04:27 PM: Justin W.
Your coding is great and all, but it would of been alot better if you would have just used DX instead. It is hard to see where you are going.
(If this comment was disrespectful, please report it.)
|
10/30/2003 10:52:37 AM:
great code, but i cant seem to get rid of the high key sensitivity..
(If this comment was disrespectful, please report it.)
|
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
To post feedback, first please login.
|
