Paint Code
I made some bugs..... but I fixed them. Tell me if there are any more! Paint on!Thank-You!
sync on:backdrop off:hide mouse:autocam off:sync rate 20
make object cube 1,50:make object cylinder 2,50:position object 1,345,232,333:position object 2,64,23,23
color object 1,348404247:color object 2,94498240724
do
set cursor 0,0
ink rgb(255,255,0),0
print "object x(1)=";object position x(1):print "object y(1)=";object position y(1):print "object z(1)=";object position y(1):print "Collision=";object collision(1,2)
if upkey()=1 then move object 1,20
if downkey()=1 then move object 1,-20
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-3)
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+3)
if spacekey()=1 then position object 1, mousex(),mousey(),23:position object 2,mousex(),mousey(),23
if inkey$()="e" then move object 2,20
if inkey$()="d" then move object 2,-20
if inkey$()="s" then yrotate object 2,wrapvalue(object angle y(2)-3)
if inkey$()="f" then yrotate object 2,wrapvalue(object angle y(2)+3)
if shiftkey()=1 then input "File?",fil$:bmp$=".bmp":save bitmap fil$+bmp$
sync
loop
Destroyer's are not killers they are programmers!