I'm kinda new to DBasic, and this is probably the coolest thing I have come up with yet. Basically a wave program, where you can specify the variables and "swim" in the "water".
cls:sync on:sync rate 100
`coded by kevin forbes
`Beginning variables
input "Wave Height(1 to 70): ", mh
input "Wave Realism(1 to 20): ",wr
input "Wave Speed(1 to 4): ", speed
print:print:print:print
print "Toggle Wireframe with 'a'"
print "Turn Left and Right with corresponding Arrow Keys"
print "Pitch Camera up and down by pressing/holding space and pushing the corresponding arrow key"
print:print:print
print "Press any key to continue":suspend for key
cls:print "Background Color:"
input "Red Percentage(x of 255): ", r
input "Green Percentage(x of 255): ", g
input "Blue Percentage(x of 255): ", b
print:print:print:print "Press any key to continue"
suspend for key
`Matrix and texture
make matrix 1, 500.0, 500.0, 50, 50
update matrix 1
camup = 2:camturn = 2:camx#=250:camz#=250
color backdrop rgb(r, g, b)
`Main Do...Loop
do
`Camera movement
if upkey()=1
move camera 1
camx#=camera position x()
camz#=camera position z()
endif
if downkey()=1
move camera -1
camx#=camera position x()
camz#=camera position z()
endif
if spacekey()=1
if downkey()=1
camup = camup + 1
xrotate camera camup
if camup > 359 then camup = 1
endif
if upkey()=1
camup = camup - 1
xrotate camera camup
if camup < 1 then camup = 359
endif
endif
if rightkey()=1
camturn = camturn + 1
yrotate camera camturn
if camturn > 359 then camturn = 1
endif
if leftkey()=1
camturn = camturn - 1
yrotate camera camturn
if camturn < 1 then camturn = 359
endif
`Creation of waves
for z = 0 to 50
for x = 0 to 50
h#=sin(z*10+n)*mh
h#=h#+(sin(x*10+s)*mh)
h#=h#/2.0
set matrix height 1, x, z, h#
next x
next z
update matrix 1
`Camera bobbing
cammove#=sin((camz#+n))*mh+5
cammove#=cammove#+(sin((camx#+s))*mh+5)
cammove# = cammove#/2.0
position camera camx#, cammove#, camz#
`Toggle wireframe
if inkey$()="a"
if matrix wireframe state(1)=0 then set matrix wireframe on 1:wait 100
endif
if inkey$()="a"
if matrix wireframe state(1)=1 then set matrix wireframe off 1:wait 100
endif
`Increased variables
n=n+speed:s=s-speed
set mipmap mode 2
`Loop
sync:loop
2.4Ghz
512mb ram
256mb DDR video card(ATI Sapphire Radeon 9600)
