sw = screen width() : sh = screen height()
randomize timer()
cls rgb(255,255,255)
get image 1,0,0,128,128,1
cls
sprite 1,(sw/2),(sh/2),1
offset sprite 1,64,64
do
rotate = mousemovez()
if rotate <> 0
rotate sprite 1, wrapvalue(sprite angle(1) + (rotate/abs(rotate)))
endif
click = mouseclick()
if click = 4 and lastclick + 100 < timer()
r = 64 + rnd(191)
g = 64 + rnd(191)
b = 64 + rnd(191)
set sprite diffuse 1,r,g,b
lastclick = timer()
endif
center text (sw/2),0,"Use MouseWheel to Rotate"
center text (sw/2),12,"Press MouseWheel to Change Color"
center text (sw/2),24,"MouseZ Position: "+str$(mousez())
center text (sw/2),36,"Sprite Angle: "+str$(sprite angle(1))
center text (sw/2),48,"MouseClick: " + str$(click)
loop
&
good luck!
Virtual Nomad @ California, USA
AMD Phenomâ„¢ X4 9750 Quad-Core @ 2.4 GHz . 8 GB PC2-6400 RAM
ATI Radeon HD 3650 @ 512 MB . Vista Home Premium 64 Bit