@Goz3rr:
yep, sorry.. Here it was really fast
dbpro supports sound recording, but it's kinda useless for a 'lie detector"
It would be cool if dark basic had more "non-game" commands. I know it's a language for games, but i'd be cool making apps without DX, for example..
let's improve my abstract art.. hehehe
sync on
LIM = 5000
dim map(LIM)
tp = 0
tp_ground = 0
tp_building = 1
height = 0
set display mode screen width(),screen height(),32
x = 0 : y = screen height() / 2 : oldy = screen height() / 2
for x = 1 to LIM
cls
randm = rnd(100)
y = 0
if tp = tp_building
y = oldy
inc wid
if height = 0
height = rnd(100) + 50
y = oldy - height
else
if randm = 1
v = rnd(20)-10
inc height,v
y = oldy + v
endif
if randm = 2 or wid > 2*height
y = oldy + height
height = 0
tp = tp_ground
wid = 0
endif
endif
endif
if tp = tp_ground and y = 0
if randm < 70
if oldy < screen height()/5 then y = oldy + rnd(10)
if oldy > 4*screen height()/5 then y = oldy - rnd(10)
if y = 0 then y = oldy + rnd(10)-5
else
y = oldy
endif
if y < 0 then inc y,rnd(25)
if y > screen height() then dec y,rnd(25)
if randm = 1 then tp = tp_building : height = 0
endif
map(x) = y
oldy = y
print x," / ",LIM
sync
next x
do
cls
inc mouse,mousemovex()
if mouse < 1 then mouse = 1
if mouse > LIM-screen width() then mouse = LIM-screen width()
for a = mouse to mouse+screen width()
line a-mouse,map(a-1),a+1-mouse,map(a)
next a
sync
loop
