how would i make a 3d interface for rpg S.o.S

[neo]

i have most of the rpg started but how would i start building a 3d engine in free basic ? 
mmmmm or should i build a editor.

just getting to know how to making a 3d game ....

[Brick Break]

This is a very interesting subject.

Now, there are 4 ways you can do this:

1) Irrlicht for FreeBASIC - quick and easy to get started with, but won't work on a lot of machines and is kind of slow.

2) OpenGL - same problems as Irrlicht but harder to learn

3) My 3D game engine - It's not near finished (or 3D) yet but you can monitor the progress at freegdk.googlecode.com

4) Use 2.5D graphics - It's not "true" 3D, but it's easy to learn and should work with everything

Here's an example of 2.5D graphics (part of a game demo I'm making):

Code: Select All | Copy To Clipboard

dim shared as string*2 closeTriggerString=chr$(255)+"k"

dim shared as integer screenwidth=640,screenheight=480

screenres screenwidth,screenheight,32,2,&h00
screenset 1,0
width screenwidth/8,screenheight/14

do
    static as integer posz
    static as integer speed
    static as uinteger tempvar
   
    if multikey(&h48) then
        if speed<301 then speed+=5
    else
        if multikey(&h50) then
            speed=-100
        else
            if speed>0 then
                speed-=4
            else
                speed=0
            end if
        end if
    end if
    posz+=speed/100
    if posz>5000 then
        posz=5000
        speed=0
    end if
   
    if speed>300 then
        line (320,240)-(rnd(5)*600+20,rnd(4)*400+40),rgb(rnd(1)*255,rnd(2)*255,rnd(3)*255)
        line (320,240)-(rnd(7)*600+20,rnd(5)*400+40),&hFFFFFF
    end if
   
    line (320,241)-(160,480),&hCCCCCC
    line (320,241)-(161,480),&hCCCCCC
    line (320,241)-(162,480),&hCCCCCC
    line (320,241)-(163,480),&hCCCCCC
   
    line (321,241)-(477,480),&hCCCCCC
    line (321,241)-(478,480),&hCCCCCC
    line (321,241)-(479,480),&hCCCCCC
    line (321,241)-(480,480),&hCCCCCC
   
    circle (320,240),int(240/(241-(posz*.048))),&hFFFFFF,,,,f
    circle (320,240),int(240/(10-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(10.5-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(20-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(30-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(40-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(40.5-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(50-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(60-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(70-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(70.5-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(80-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(90-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(100-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(100.5-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(110-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(120-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(130-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(130.5-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(140-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(150-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(160-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(160.5-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(170-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(180-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(190-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(190.5-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(200-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(210-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(220-(posz*.048))),&hFFFFFF
    circle (320,240),int(240/(220.5-(posz*.048))),&hFFFFFF
   
    draw string (0,0),"ESC to quit | Up and Down to move"
    draw string (0,15),"Speed: "+str$(speed)
   
    pcopy
    cls 0
    if multikey(&h38) and multikey(&h3E) or multikey(&h01) or inkey$()=closeTriggerString then end
loop

[neo]

well the code did not work.
and i dont think thats what you would all a interface for a rpg .
but what should i work on the 3d engine or the editor ?
thinking ?
and how would i start making a engine too in code.?

[Brick Break]

I don't see how the code didn't work. It runs just fine for me.

I know it's not an RPG, I was just giving you an example of 2.5D graphics.

How would you make a 3D engine yourself? The same way I am. Here's a site that tells you the very basic 3D math. Actually drawing to the screen might be a problem if you don't know what you're doing, but if you stick to wireframe graphics you should be able to make something.

[neo]

thx 4 for the help   

[neo]

it there any help with free basic working with 3d stuff  ?

[Brick Break]

Well, everything that works with QBASIC should work with FreeBASIC, so anything on that site should work, as long as you explicitly declare your variables.

At the top of your code, put this

Code: Select All | Copy To Clipboard

dim shared as integer myfirstvariablename,othervariable,blahblah,etc

[neo]

Code: Select All | Copy To Clipboard

dim space as integer ,x,y,z

SCREEN 20
x= 2000
y= 2000
z= 2000

print x
print y
print z

sleep 5000

end

[Brick Break]

I think you mean:

Code: Select All | Copy To Clipboard

screenres 800,600,32

dim as integer x=2000,y=2000,z=2000

print x
print y
print z
print "Press any key..."

sleep

end

[neo]

screenres 800,600,32

dim as integer x=2000,y=2000,z=2000
dim speed as integer




speed = 5

print speed
print x
print y
print z

print "Press any key..."

sleep

end

[Brick Break]

I think it would be more efficient if:

Code: Select All | Copy To Clipboard

screenres 800,600,32

dim as integer x=2000,y=2000,z=2000,speed=5

print speed
print x
print y
print z

print "Press any key..."

sleep

end

See? Since x, y, z, and speed are all integers, you can declare them all in the same place.

[neo]

oh i see

[Brick Break]

oh i see

Where would you like to go next with the engine? I could probably help.

[neo]

give me some time been working on some of the variable
i will get back as soon as i can

[Brick Break]

Alright. I'll be waiting.