I am trying to make collision between circle and ellipse.Problem is that closest command I know is sprite collision, but I don't have sprites in my program, because I created those 2 shapes using cicle and ellipse command.How can I set collision between them?
rem define essential variables
ballX = rnd (640)
ballY = rnd(480)
ballSize = 10
speedX = 1
speedY = -1
border = 36
borderX =25
color as DWORD
color = rgb(0,200,250)
ink color,0
red as DWORD
red = rgb(255,0,0)
rem ellipse variables
charX = 320
charY = 440
charSizeX = 30
charSizeY = 5
rem main loop
do
rem prepare playground
wait 1
cls
line 10,25,625,25
line 10,25,10,455
line 625,455,625,25
ink red,0
line 10,455,625,455
circle ballX,ballY,ballSize
rem move ball
ballX = ballX + speedX
ballY = ballY +speedY
ink color,0
REM Check conditions for BallY
if ballY > 480 - border
ballY = 480 - border
speedY = speedY * -1 -1
else
if ballY < border
ballY = border
speedY = speedY * -1
endif
endif
rem check conditions for ballX
if ballX > 640 - borderX
ballX = 640 - borderX
speedX = speedX * -1 -1
else
if ballX < borderX
ballX = borderX
speedX = speedX * -1
endif
endif
if ballY >= 480 - border then end
rem end checking
rem char checking
if charX > 640 - 50
charX = 640 - 50
else
if charX < 50
charX = 50
endif
endif
rem char controls
ellipse charX,charY,charSizeX,charSizeY
if leftkey() = 1 then charX = charX - 5
if rightkey() = 1 then charX = charX + 5
loop
This id code what I am using.
