`up,down,left,right= move light
`LMB= move camera +2
`RMB= move camera -2
`look around with mouse
`make a cup of tea
`I dont take sugar
hide mouse
sync on
`make scene
make object cylinder 1,50 : position object 1,-100,0,0
make object cylinder 2,50 : position object 2, 100,0,0
make object cylinder 3,50 : position object 3, 0,0,50
`make torch
make object sphere 11,10
`make flame
set ambient light 25
color ambient light rgb(10,10,255)
set light range 0,200
set point light 0,0,0,0 : color light 0,rgb(255,255,0)
`position camera
position camera 0,50,-200
`begin loop
do
`flicker
color light 0,rgb(175+rnd(50),200,0)
`position light at torches position
position light 0,object position x(11),object position y(11),object position z(11)
`move camera
if mouseclick()=1
MOVE CAMERA 2
endif
if mouseclick()=2
MOVE CAMERA -2
endif
`move light
if upkey()=1
position object 11,object position x(11),object position y(11),object position z(11)+2
endif
if downkey()=1
position object 11,object position x(11),object position y(11),object position z(11)-2
endif
if leftkey()=1
position object 11,object position x(11)-2,object position y(11),object position z(11)
endif
if rightkey()=1
position object 11,object position x(11)+2,object position y(11),object position z(11)
endif
`rotate camera
oldcAY# = cAY#
oldcAX# = cAX#
cAY# = WrapValue(cAY#+MousemoveX()*0.2)
cAX# = WrapValue(cAX#+MousemoveY()*0.2)
caZ# = Camera angle Z()
YRotate camera CurveAngle(cAY#,oldcAY#,24)
XRotate camera CurveAngle(cAX#,oldcAX#,24)
sync
loop
Infra-Dark
