help with a bit of collision please

Author

Message

Robot

22

Years of Service

User Offline

Joined: 27th May 2004

Location:

Posted: 17th Dec 2004 21:11

Link

I'm trying to make a game where you get chased by lines. How would i make it so that when you hit a line you lose.

+ Code Snippet

x#=320
y#=240
x2#=x#-10
y2#=y#-10
rem set sync
sync on
sync rate 0
rem hide mouse
hide mouse
rem main loop
do
rem your dot
dot x#,y#

rem controls
if rightkey()=1
direction$="r"
endif

if upkey()=1
direction$="u"
endif

if leftkey()=1
direction$="l"
endif

if downkey()=1
direction$="d"
endif


rem your dot position
if direction$="r"
x#=x#+0.1
endif

if direction$="l"
x#=x#-0.1
endif

if direction$="u"
y#=y#-0.1
endif

if direction$="d"
y#=y#+0.1
endif



rem the chasing dots position
if direction$="r"
x2#=x#-100
y2#=y#
endif

if direction$="l"
x2#=x#+100
y2#=y#
endif

if direction$="u"
y2#=y#+100
x2#=x#
endif

if direction$="d"
y2#=y#-100
x2#=x#
endif

rem the chasing dot
dot x2#,y2#

rem white ink
ink rgb(255,255,255),0

rem sync
sync
loop

The happenings of tommorow are behind us now

Back to top

Profile PM

Flashing Blade

23

Years of Service

User Offline

Joined: 19th Oct 2002

Location: United Kingdom

Posted: 18th Dec 2004 01:41 Edited at: 18th Dec 2004 01:45

Link

I'd use arrays
I've altered you code a bit:

+ Code Snippet

sync on
sync rate 60
hide mouse
dim screenstate(screen width(),screen height())

start:
for x=1 to screen width()
 for y=1 to screen height()
  screenstate(x,y)=0
 next y
next x
x=320
x2=320
y=240
y2=340
xvel=0
yvel=-1

do

if rightkey()
xvel=1
yvel=0
endif
if upkey()
xvel=0
yvel=-1
endif
if leftkey()
xvel=-1
yvel=0
endif
if downkey()
xvel=0
yvel=1
endif


if timer()>gametime
 inc x,xvel
 inc x2,xvel
 inc y,yvel
 inc y2,yvel
 if y>screen height() then y=0
 if y2>screen height() then y2=0
 if y<0 then y=screen height()
 if y2<0 then y2=screen height()
 if x>screen width() then x=0
 if x2>screen width() then x2=0
 if x<0 then x=screen width()
 if x2<0 then x2=screen width()
 if screenstate(x,y)=1 or screenstate(x2,y2)=1
  center text screen width()/2,10,"COLLISION!!!"
  sync
  wait key
  cls
  goto start
 else
  screenstate(x,y)=1
  screenstate(x2,y2)=1
  dot x,y
  dot x2,y2
 endif
 gametime=timer()+20
endif

sync
loop

you got the makings of a good puzzler game there - a timer as the score - the longer you last etc.

*edit* to make game harder (or easier) just change line 64:
gametime=timer()+20

The word "Gullible" cannot be found in any English Dictionary.

Back to top

Profile PM Email Website

Robot

22

Years of Service

User Offline

Joined: 27th May 2004

Location:

Posted: 18th Dec 2004 01:50

Link

thank you that is exactly what i wanted.

The happenings of tommorow are behind us now

Back to top

Profile PM

Flashing Blade

23

Years of Service

User Offline

Joined: 19th Oct 2002

Location: United Kingdom

Posted: 18th Dec 2004 01:59

Link

one more thing you should probably change this:

+ Code Snippet

if rightkey()
xvel=1
yvel=0
endif
if upkey()
xvel=0
yvel=-1
endif
if leftkey()
xvel=-1
yvel=0
endif
if downkey()
xvel=0
yvel=1
endif

to this:

+ Code Snippet

if rightkey() and xvel=>0
xvel=1
yvel=0
endif
if upkey() and yvel<=0
xvel=0
yvel=-1
endif
if leftkey() and xvel=<0
xvel=-1
yvel=0
endif
if downkey() and yvel>=0
xvel=0
yvel=1
endif

The word "Gullible" cannot be found in any English Dictionary.

Back to top

Profile PM Email Website

Robot

22

Years of Service

User Offline

Joined: 27th May 2004

Location:

Posted: 18th Dec 2004 02:36

Link

thats a good point thank you again.

The happenings of tommorow are behind us now

Back to top

Profile PM

Robot

22

Years of Service

User Offline

Joined: 27th May 2004

Location:

Posted: 18th Dec 2004 03:13

Link

I have added in a score system now

time_start=timer()

sync on
sync rate 60
hide mouse
dim screenstate(screen width(),screen height())

start:
for x=1 to screen width()
 for y=1 to screen height()
  screenstate(x,y)=0
 next y
next x
x=320
x2=320
y=240
y2=340
xvel=0
yvel=-1

do

if rightkey() and xvel=>0
xvel=1
yvel=0
endif
if upkey() and yvel<=0
xvel=0
yvel=-1
endif
if leftkey() and xvel=<0
xvel=-1
yvel=0
endif
if downkey() and yvel>=0
xvel=0
yvel=1
endif

if timer()>gametime
 inc x,xvel
 inc x2,xvel
 inc y,yvel
 inc y2,yvel
 if y>screen height() then y=0
 if y2>screen height() then y2=0
 if y<0 then y=screen height()
 if y2<0 then y2=screen height()
 if x>screen width() then x=0
 if x2>screen width() then x2=0
 if x<0 then x=screen width()
 if x2<0 then x2=screen width()
 if screenstate(x,y)=1 or screenstate(x2,y2)=1
time_stop=timer()
run_time=time_stop-time_start

center text screen width()/2,10,"COLLISION!!!"
set cursor screen width()/2-20,21
print "Your score=",run_time
sync
  wait key
  cls
  goto start
 else
  screenstate(x,y)=1
  screenstate(x2,y2)=1
  dot x,y
  dot x2,y2
 endif
 gametime=timer()+20
endif

+ Code Snippet

time_start=timer()



sync on
sync rate 60
hide mouse
dim screenstate(screen width(),screen height())

start:
for x=1 to screen width()
 for y=1 to screen height()
  screenstate(x,y)=0
 next y
next x
x=320
x2=320
y=240
y2=340
xvel=0
yvel=-1

do

if rightkey() and xvel=>0
xvel=1
yvel=0
endif
if upkey() and yvel<=0
xvel=0
yvel=-1
endif
if leftkey() and xvel=<0
xvel=-1
yvel=0
endif
if downkey() and yvel>=0
xvel=0
yvel=1
endif


if timer()>gametime
 inc x,xvel
 inc x2,xvel
 inc y,yvel
 inc y2,yvel
 if y>screen height() then y=0
 if y2>screen height() then y2=0
 if y<0 then y=screen height()
 if y2<0 then y2=screen height()
 if x>screen width() then x=0
 if x2>screen width() then x2=0
 if x<0 then x=screen width()
 if x2<0 then x2=screen width()
 if screenstate(x,y)=1 or screenstate(x2,y2)=1
time_stop=timer()
run_time=time_stop-time_start

  center text screen width()/2,10,"COLLISION!!!"
set cursor screen width()/2-20,21
print "Your score=",run_time
sync
  wait key
  cls
  goto start
 else
  screenstate(x,y)=1
  screenstate(x2,y2)=1
  dot x,y
  dot x2,y2
 endif
 gametime=timer()+20
endif

The happenings of tommorow are behind us now

Back to top

Profile PM

Robot

22

Years of Service

User Offline

Joined: 27th May 2004

Location:

Posted: 18th Dec 2004 20:32 Edited at: 19th Dec 2004 00:00

Link

have now added options of choosing amounts of lines and difficulty

sync on
sync rate 60
hide mouse
dim screenstate(screen width(),screen height())

verystart:
cls
input "How many lines would you like? (1-3)>",lines
if lines<1 or lines>3 then gosub verystart
input "Difficulty(0(hardest)-50(easiest))>",difficulty
if difficulty<0 or difficulty>50 then gosub verystart
cls
start:
time_start=timer()

for x=1 to screen width()
 for y=1 to screen height()
  screenstate(x,y)=0
 next y
next x
x=320
if lines>1 then x2=320
if lines>2 then x3=220
y=240
if lines>1 then y2=340
if lines>2 then y3=340
xvel=0
yvel=-1

do

if rightkey() and xvel=>0
xvel=1
yvel=0
endif
if upkey() and yvel<=0
xvel=0
yvel=-1
endif
if leftkey() and xvel=<0
xvel=-1
yvel=0
endif
if downkey() and yvel>=0
xvel=0
yvel=1
endif

if timer()>gametime
 inc x,xvel
 if lines>1 then inc x2,xvel
 if lines>2 then inc x3,xvel 
 inc y,yvel
 if lines>1 then inc y2,yvel
 if lines>2 then inc y3,yvel 
 if y>screen height() then y=0
 if lines>1 then if y2>screen height() then y2=0
 if lines>2 then if y3>screen height() then y3=0 
 if y<0 then y=screen height()
 if lines>1 then if y2<0 then y2=screen height()
 if lines>2 then if y3<0 then y3=screen height() 
 if x>screen width() then x=0
 if lines>1 then if x2>screen width() then x2=0
 if lines>2 then if x3>screen width() then x3=0
 if x<0 then x=screen width()
 if lines>1 then if x2<0 then x2=screen width()
 if lines>2 then if x3<0 then x3=screen width()
 if screenstate(x,y)=1 or lines>1 and screenstate(x2,y2)=1 or lines>2 and screenstate(x3,y3)=1
time_stop=timer()
run_time=time_stop-time_start

center text screen width()/2,10,"COLLISION!!!"
set cursor screen width()/2-20,21
print "Your score=",run_time
sync
  wait key
  cls
  goto verystart
 else
  screenstate(x,y)=1
  if lines>1 then screenstate(x2,y2)=1
  if lines>2 then screenstate(x3,y3)=1
  dot x,y
  if lines>1
  dot x2,y2
  endif
  if lines>2
  dot x3,y3
  endif 
 endif
 gametime=timer()+difficulty
endif

sync
loop

+ Code Snippet

sync on
sync rate 60
hide mouse
dim screenstate(screen width(),screen height())

verystart:
cls
input "How many lines would you like? (1-3)>",lines
if lines<1 or lines>3 then gosub verystart
input "Difficulty(0(hardest)-50(easiest))>",difficulty
if difficulty<0 or difficulty>50 then gosub verystart
cls
start:
time_start=timer()

for x=1 to screen width()
 for y=1 to screen height()
  screenstate(x,y)=0
 next y
next x
x=320
if lines>1 then x2=320
if lines>2 then x3=220
y=240
if lines>1 then y2=340
if lines>2 then y3=340
xvel=0
yvel=-1

do

if rightkey() and xvel=>0
xvel=1
yvel=0
endif
if upkey() and yvel<=0
xvel=0
yvel=-1
endif
if leftkey() and xvel=<0
xvel=-1
yvel=0
endif
if downkey() and yvel>=0
xvel=0
yvel=1
endif


if timer()>gametime
 inc x,xvel
 if lines>1 then inc x2,xvel
 if lines>2 then inc x3,xvel 
 inc y,yvel
 if lines>1 then inc y2,yvel
 if lines>2 then inc y3,yvel 
 if y>screen height() then y=0
 if lines>1 then if y2>screen height() then y2=0
 if lines>2 then if y3>screen height() then y3=0 
 if y<0 then y=screen height()
 if lines>1 then if y2<0 then y2=screen height()
 if lines>2 then if y3<0 then y3=screen height() 
 if x>screen width() then x=0
 if lines>1 then if x2>screen width() then x2=0
 if lines>2 then if x3>screen width() then x3=0
 if x<0 then x=screen width()
 if lines>1 then if x2<0 then x2=screen width()
 if lines>2 then if x3<0 then x3=screen width()
 if screenstate(x,y)=1 or lines>1 and screenstate(x2,y2)=1 or lines>2 and screenstate(x3,y3)=1
time_stop=timer()
run_time=time_stop-time_start

  center text screen width()/2,10,"COLLISION!!!"
set cursor screen width()/2-20,21
print "Your score=",run_time
sync
  wait key
  cls
  goto verystart
 else
  screenstate(x,y)=1
  if lines>1 then screenstate(x2,y2)=1
  if lines>2 then screenstate(x3,y3)=1
  dot x,y
  if lines>1
  dot x2,y2
  endif
  if lines>2
  dot x3,y3
  endif 
 endif
 gametime=timer()+difficulty
endif

sync
loop

EDIT now with a better scoring system based onthe difficulty and colourful lines

sync on
sync rate 60
hide mouse
dim screenstate(screen width(),screen height())

verystart:
cls
input "How many lines would you like? (1-3)>",lines
if lines<1 or lines>3 then gosub verystart
input "Difficulty 0(hardest) - 50 (easiest)>",difficulty
if difficulty<0 or difficulty>50 then gosub verystart
cls
start:
time_start=timer()

for x=1 to screen width()
 for y=1 to screen height()
  screenstate(x,y)=0
 next y
next x
x=320
if lines>1 then x2=320
if lines>2 then x3=220
y=240
if lines>1 then y2=340
if lines>2 then y3=340
xvel=0
yvel=-1

do

time_so_far=timer()

score_take=(difficulty+1)/10

set cursor 0,0
run_time=time_so_far-time_start
ink rgb(0,0,0),0
box 0,0,50,20
ink rgb(rnd(155)+100,rnd(155)+100,rnd(155)+100),0
print ((run_time/1000)*lines)/(score_take+1)

if rightkey() and xvel=>0
xvel=1
yvel=0
endif
if upkey() and yvel<=0
xvel=0
yvel=-1
endif
if leftkey() and xvel=<0
xvel=-1
yvel=0
endif
if downkey() and yvel>=0
xvel=0
yvel=1
endif

if timer()>gametime
 inc x,xvel
 if lines>1 then inc x2,xvel
 if lines>2 then inc x3,xvel 
 inc y,yvel
 if lines>1 then inc y2,yvel
 if lines>2 then inc y3,yvel 
 if y>screen height() then y=0
 if lines>1 then if y2>screen height() then y2=0
 if lines>2 then if y3>screen height() then y3=0 
 if y<0 then y=screen height()
 if lines>1 then if y2<0 then y2=screen height()
 if lines>2 then if y3<0 then y3=screen height() 
 if x>screen width() then x=0
 if lines>1 then if x2>screen width() then x2=0
 if lines>2 then if x3>screen width() then x3=0
 if x<0 then x=screen width()
 if lines>1 then if x2<0 then x2=screen width()
 if lines>2 then if x3<0 then x3=screen width()
 if screenstate(x,y)=1 or lines>1 and screenstate(x2,y2)=1 or lines>2 and screenstate(x3,y3)=1
time_stop=timer()
run_time=time_stop-time_start
  center text screen width()/2,10,"COLLISION!!!"
set cursor screen width()/2-20,21

print "Your score=",((run_time/1000)*lines)/(score_take+1)
sync
  wait key
  cls
  goto verystart
 else
  screenstate(x,y)=1
  if lines>1 then screenstate(x2,y2)=1
  if lines>2 then screenstate(x3,y3)=1
  dot x,y
  if lines>1
  dot x2,y2
  endif
  if lines>2
  dot x3,y3
  endif 
 endif
 gametime=timer()+difficulty
endif

sync
loop

+ Code Snippet


sync on
sync rate 60
hide mouse
dim screenstate(screen width(),screen height())


verystart:
cls
input "How many lines would you like? (1-3)>",lines
if lines<1 or lines>3 then gosub verystart
input "Difficulty 0(hardest) - 50 (easiest)>",difficulty
if difficulty<0 or difficulty>50 then gosub verystart
cls
start:
time_start=timer()



for x=1 to screen width()
 for y=1 to screen height()
  screenstate(x,y)=0
 next y
next x
x=320
if lines>1 then x2=320
if lines>2 then x3=220
y=240
if lines>1 then y2=340
if lines>2 then y3=340
xvel=0
yvel=-1

do

time_so_far=timer()

score_take=(difficulty+1)/10

set cursor 0,0
run_time=time_so_far-time_start
ink rgb(0,0,0),0
box 0,0,50,20
ink rgb(rnd(155)+100,rnd(155)+100,rnd(155)+100),0
print ((run_time/1000)*lines)/(score_take+1)


if rightkey() and xvel=>0
xvel=1
yvel=0
endif
if upkey() and yvel<=0
xvel=0
yvel=-1
endif
if leftkey() and xvel=<0
xvel=-1
yvel=0
endif
if downkey() and yvel>=0
xvel=0
yvel=1
endif


if timer()>gametime
 inc x,xvel
 if lines>1 then inc x2,xvel
 if lines>2 then inc x3,xvel 
 inc y,yvel
 if lines>1 then inc y2,yvel
 if lines>2 then inc y3,yvel 
 if y>screen height() then y=0
 if lines>1 then if y2>screen height() then y2=0
 if lines>2 then if y3>screen height() then y3=0 
 if y<0 then y=screen height()
 if lines>1 then if y2<0 then y2=screen height()
 if lines>2 then if y3<0 then y3=screen height() 
 if x>screen width() then x=0
 if lines>1 then if x2>screen width() then x2=0
 if lines>2 then if x3>screen width() then x3=0
 if x<0 then x=screen width()
 if lines>1 then if x2<0 then x2=screen width()
 if lines>2 then if x3<0 then x3=screen width()
 if screenstate(x,y)=1 or lines>1 and screenstate(x2,y2)=1 or lines>2 and screenstate(x3,y3)=1
time_stop=timer()
run_time=time_stop-time_start
  center text screen width()/2,10,"COLLISION!!!"
set cursor screen width()/2-20,21

print "Your score=",((run_time/1000)*lines)/(score_take+1)
sync
  wait key
  cls
  goto verystart
 else
  screenstate(x,y)=1
  if lines>1 then screenstate(x2,y2)=1
  if lines>2 then screenstate(x3,y3)=1
  dot x,y
  if lines>1
  dot x2,y2
  endif
  if lines>2
  dot x3,y3
  endif 
 endif
 gametime=timer()+difficulty
endif

sync
loop

The happenings of tommorow are behind us now

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / help with a bit of collision please