Yeah sure. It's not too long... and hopefully not complicated. Mostly function calls.
Rem Project: VisualProgramming
Rem Created: 5/29/2008 9:03:55 PM
Rem ***** Main Source File *****
openX=0
i=2
input "Enter the name of the program: ", programName$
dim texts$(1000)
dim lines(4,1000)
makeParentSub(programName$)
makeSub("Play", 1, i)
makeSub("End", 1, i)
texts$(1)=programName$
`addCommand(endGame, "end")
position camera 0,20,-25
do
control camera using arrowkeys 0,3,3
` text object screen x(1), object screen y(1), programName$
` line object screen x(1), object screen y(1), object screen x(2), object screen y(2)
showText()
showLine()
sync
loop
function makeParentSub(name$)
rem add a sub without any parents
make object box 1, 3, 1, .01
position object 1, 0,20,0
text object screen x(1), object screen y(1),name$
updatePos()
endfunction
function makeSub(name$, parentObjNumber, i)
rem add a new subroutine with name 'name' and parent routine 'parent'
if object exist(i)=0
make object box i, 3, 1, .01
position object i, 0,10,0
line object screen x(1), object screen y(1), object screen x(i), object screen y(i)
texts$(i)=name$
lines(1,i)=object screen x(i)
lines(2,i)=object screen y(i)
lines(3,i)=object screen x(parentObjNumber)
lines(4,i)=object screen y(parentObjNumber)
if object collision(i, i-1)=1
position object i, object position x(i)+5,10,0
endif
i=i+1
else
i=i+1
makeSub(name$, parent, i)
endif
updatePos()
endfunction
function makeVar(name, dataType, initialValue)
rem add variable with name 'name', type 'dataType' and value 'initial value'
endfunction
function makeIf()
rem add an if statement
rem add a condition
updatePos()
endfunction
function addCommand(parent, command)
rem adds a command to the subroutine
endfunction
function addCondition()
rem adds a condition to the if statement
updatePos()
endfunction
function updatePos()
rem updates all the positions so they are spaced evenly
endfunction
function showText()
rem show all the texts
for i=1 to 1000
if not (texts$(i)="")
text object screen x(i), object screen y(i), texts$(i)
endif
next i
endfunction
function showLine()
rem show all the lines
for i=1 to 1000
Xc=lines(1,i)
Yc=lines(2,i)
Xp=lines(3,i)
Yp=lines(4,i)
line Xc, Yc, Xp, Yp
next i
endfunction"I will work harder... if you ask me enough times... or give me enough coffee"
