Sorry your browser is not supported!

set display mode 640,480,32
ellipse 32,32,32,16
get image 1,0,0,64,64,
sprite 1,320,240,1
offset sprite 1,54,32
clone sprite 1,2
offset sprite 2,10,32
do
    rotate sprite 1,wrapvalue(sprite angle(1)-0.01)
    rotate sprite 2,wrapvalue(sprite angle(2)+0.01)
loop

Function Line_Intersect_Circle(x1#,y1#,x2#,y2#,cx#,cy#,Radius#)

      ` Calc Closest Point to circle center

       dx31#=cx#-x1#
      dx21#=x2#-x1#

      dy31#=cy#-y1#
        dy21#=y2#-y1#

      d#=((dx21#*dx21#)+(dy21#*dy21#))

      if d#<>0 then  d#=((dx31#*dx21#)+(dy31#*dy21#))/d#

      ` Clip to the line segments legal bounds
      if d#<0.0 then d#=0
      if d#>1.0 then d#=1

         dx#=cx#-(x1#+(dx21#*d#))
         dy#=cy#-(y1#+(dy21#*d#))
         if Radius#=>sqrt((dx#*dx#)+(dy#*dy#))
               ` Line intersects circle
               exitfunction 1
         endif
EndFunction 0

  for s = 0 to sides
    ` first calculate point without rotation
    px# = xradius# * sin(a#)
    py# = yradius# * cos(a#)

    ` now rotate the point
    ang# = (180.0 - atanfull(px#,py#)) - rotation#
    ra# = sqrt((px#*px#) + (py#*py#))

    px# = ra# * sin(ang#) + cx#
    py# = ra# * cos(ang#) + cy#
    
    
    
    if s > 0 then line lastpx#,lastpy#,px#,py#

`place the code \/

    if line_intersect_circle(lastpx#,lastpy#,px#,py#,x,y,30) = 1
    	text 10, 10, "Collision!"
    endif
    lastpx# = px# : lastpy# = py#

    a# = a# + st#
  next s

sync on  :  backdrop on
sync rate 50


//Shape vs Point collision initialize
type konv
 Xpos as integer
 Ypos as integer
endtype
 global dim konvexPoints(36) as konv


//Scene setup
Player_X# = screen width()/2
Player_Y# = screen height()-100

Laser_X# = screen width()/2
Laser_Y# = 200

Laser_Width# = 50
Laser_Length# = 100




do

//Player control
if leftkey()=1 then dec Player_X#, 2
if rightkey()=1 then inc Player_X#, 2
if upkey()=1 then dec Player_Y#, 2
if downkey()=1 then inc Player_Y#, 2

//Laser control
if inkey$()="a" then dec Laser_X#, 2
if inkey$()="d" then inc Laser_X#, 2
if inkey$()="w" then dec Laser_Y#, 2
if inkey$()="s" then inc Laser_Y#, 2
if inkey$()="q" then dec Laser_Angle#, 3
if inkey$()="e" then inc Laser_Angle#, 3
 Laser_Angle# = wrapvalue(Laser_Angle#)
if inkey$()="r" then inc Laser_Width#, 2
if inkey$()="f" then dec Laser_Width#, 2
 if Laser_Width#<10 then Laser_Width#=10
if inkey$()="t" then inc Laser_Length#, 4
if inkey$()="g" then dec Laser_Length#, 4
 if Laser_Length#<10 then Laser_Length#=10

//Laser
for t=1 to 360
 diam# = cos(t) * (Laser_Length#-Laser_Width#)
 x = newxvalue( newxvalue( Laser_X#, Laser_Angle#, diam# ), t+Laser_Angle#, Laser_Width# )
 y = newzvalue( newzvalue( Laser_Y#, Laser_Angle#, diam# ), t+Laser_Angle#, Laser_Width# )
  dot x,y
   t#=t  :  if t#/20 = t/20  then  konvexPoints(t/20).Xpos = x  :  konvexPoints(t/20).Ypos = y
next t 

 `Collision test
  if KONVEX_COLL( 18 , Player_X#-8,Player_Y#-8 )  or  KONVEX_COLL( 18 , Player_X#+8,Player_Y#-8 )  or  KONVEX_COLL( 18 , Player_X#+8,Player_Y#+8 )  or  KONVEX_COLL( 18 , Player_X#-8,Player_Y#+8 )
   ink rgb(255,0,0),1
  else
   ink rgb(255,255,255),1
  endif

//Player
circle Player_X#,Player_Y#, 8

sync
loop




//Konvex shape vs. point collision detection
`You fill up konvexPoints().Xpos and konvexPoints().Ypos with point coordinates, which points all make up a konvex shape.
`Important, you need to go the same direction all the way when defining the shape, otherwise the function won't work.
`(if i remember correctly, you go from left to the right...)
`Then you call this function. POINTNUM means the total number of points in the konvex shape, the other two parameters are the X&Y coordinates of the point what may or may not collide with the shape
`On collision, the function gives 1 as a result!
function KONVEX_COLL( POINTNUM as integer , bulletX as integer , bulletY as integer )
 collisionChance = 0
 
 for t=1 to POINTNUM
  
  limitLTsubject = t-1  :  if limitLTsubject = 0  then  limitLTsubject = POINTNUM
   limitLT# = 180 + atanfull( konvexPoints(limitLTsubject).Xpos - konvexPoints(t).Xpos   ,  konvexPoints(limitLTsubject).Ypos - konvexPoints(t).Ypos )
  limitRTsubject = t+1  :  if limitRTsubject > POINTNUM  then  limitRTsubject = 1
   limitRT# = 180 + atanfull( konvexPoints(limitRTsubject).Xpos - konvexPoints(t).Xpos   ,  konvexPoints(limitRTsubject).Ypos - konvexPoints(t).Ypos )
    bulletAngle# = 180 + atanfull( bulletX - konvexPoints(t).Xpos  ,  bulletY - konvexPoints(t).Ypos )
   
   if bulletAngle# <= limitLT#  and  bulletAngle# >= limitRT#
    inc collisionChance
   else
    if limitLT# > limitRT#+180  or  limitLT#+180 < limitRT#
     if bulletAngle# >= 0  and  bulletAngle# <= limitLT#
      inc collisionChance
     else
      if bulletAngle# <= 360  and  bulletAngle# >= limitRT#  then  inc collisionChance
     endif
    else
     if bulletAngle# > limitLT#  and  bulletAngle# < limitRT#  then  inc collisionChance
    endif
   endif
   
 next t
 
 if collisionChance >= POINTNUM  then  konvexColl = 1  else  konvexColl = 0
endfunction konvexColl