Just like to give a public "Thank You" to Gernot for sorting out my licensing problems. He went above and beyond and shows what spirit and passion there is behind GLBasic.
Awesome support as always
Awesome support as always
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
SETCURRENTDIR("Media") // seperate media and binaries?
SETSCREEN 320,480,0
SYSTEMPOINTER TRUE
LIMITFPS 60
SMOOTHSHADING TRUE
LOADANIM "willy.png",0,24,24
GLOBAL MOUSEcount
DIM MOUSEx[10]
DIM MOUSEy[10]
DIM MOUSEb1[10]
DIM MOUSEb2[10]
GLOBAL x1=RND(296)
GLOBAL y1=RND(456)
GLOBAL x2=RND(296)
GLOBAL y2=RND(456)
GLOBAL frame1=RND(7)
GLOBAL frame2=RND(7)
GLOBAL hit=0
WHILE TRUE
MOUSEcount = GETMOUSECOUNT()-1
FOR i=0 TO MOUSEcount
SETACTIVEMOUSE i
MOUSESTATE MOUSEx[i],MOUSEy[i],MOUSEb1[i],MOUSEb2[i]
NEXT
IF KEY(57)
x2=RND(296)
y2=RND(456)
ENDIF
ALPHAMODE -0.999
DRAWANIM 0,frame1/8,MOUSEx[0],MOUSEy[0]
DRAWANIM 0,frame2/8,x2,y2
frame1=MOD(frame1+1,64)
frame2=MOD(frame2+1,64)
hit=0
IF ANIMCOLL(0,frame1/8,MOUSEx[0],MOUSEy[0],0,frame2/8,x2,y2)
hit=1
ENDIF
IF hit=1
PRINT "COLLISION!!!",0,0
ENDIF
SHOWSCREEN
WEND
END