Sorry for this title, but on school I have to finish this program tomorrow! There are a few things I don't understand:
Sync on
sync rate 30
hide mouse
autocam off
set display mode 1024,768,16
color backdrop RGB(255,255,255)
cls
load object "D:\program files\Dark Basic Software\Dark Basic\myproj\Heart.3ds",1
color object 1,RGB(224,0,0)
position object 1,320,240,0
xrotate object 1,270
fix object pivot 1
point camera 320,240,0
repeat
scale=scale+100
scale object 1,scale,scale,scale
sync
until scale=10000
repeat
rotate object 1,0,wrapvalue(y),0
y=y+2
sync
until y=720
set text font "Comic Sans MS"
repeat
ink RGB(0,0,255),1
set text size 50
center text screen width()/2,screen height()/2,"Lovetester"
inc time
sync
until time=100
delete object 1
Do
Loveword$="Loves"
time=0
letterplace=0
percentage=0
cls RGB(255,0,0)
cls
repeat
center text screen width()/2,screen height()/2,"Wat is Uw naam ==>>"
input yourname$
until returnkey()=1
cls
repeat
center text screen width()/2,screen height()/2,"Wat is Uw geliefdes naam ==>>"
input lovename$
until returnkey()=1
letter=0
dim letter$1(20)
dim letter$2(20)
dim letter(100)
for i=1 to len(Loveword$)
for j=1 to len(lovename$)
if MID$(Loveword$,i)=MID$(lovename$,j) then letter(letterplace)=letter(letterplace)+1:exit
inc letterplace
next j
next i
cls
repeat
center text screen width()/2,screen height()/2,"percentage"
inc time
until time=100
sync
Loop
1. Why doesn't he hide the mouse?
2. How can I change my background color?
3. In the loop, I tryed to make the text on the screen until the new text is shown. But after a second of time the text disapears
Thats it for now.
We're all Christ and we're all Hitler.We want Christ to win.What would he've done if he had advertisements, T.V. and newspapers?The miracle today is communication.So let's use it.-John Lennon '69
