The DB Classic Programming Challenge Thread

Author

Message

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 20th May 2007 19:07

Link

Quote: "Monday 22 May, midnight GMT"

Monday is the 21st, so which one is it?

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 20th May 2007 19:18

Link

Well spotted!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 20th May 2007 19:30

Link

While writing my entry, I've come across the need to code something I've never done before - and it has me stumped!

It's to do with trajectories...

I know how to calculate a trajectory path, but the object isn't a sphere, it's an elongated object - like a javelin - and I can't figure out how to alter the angle of the object to match the direction it's traveling.

Essentially, the object has to always travel through the air 'point first' or it looks silly.

I've spent some time searching for 'trajectory', 'javelin' etc, but no luck do far. I'll continue looking, but if anyone has seen anything on their travels or knows how it might be done, give me a shout please!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 21st May 2007 01:09

Link

@TDK

Well, two ideas come to mind off the top of my head. The first is looking at the javelin like a tangent to a circle. From flight point start A to flight end point B there's a distance the javelin would travel. Assuming there's gravity, it would be an arc. You can use the distance and the arc to determine the radius of the circle the javelin would be traveling on. From there you can get the polar coordinates of the center of the javelin. Think of the javelin as always being perpendicular to the radius so you would tilt the javelin accordingly. If the javelin was traveling down the z axis, the radius would be rotating around X, so the javelin would be tilting on the x axis.

The other idea is more complex and as I write it, too round about. It looks at either end of the javelin as a point on a line. The arc that is formed at the center of the javelin relative to the ground is treated kinda like a matrix. Divide the arc into segments of finite slopes. Get the normalized normal of each of these slopes. Use the Dot product to project each of the points at the end of the javelin relative to which segments they are over onto the normal. Use this method to get the projected height at either end of the javelin. Tilt the javelin so that the end points are at this height. I think I like the first method better!

Enjoy your day.

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 21st May 2007 01:15

Link

OK - I'll have a bash with your first suggestion.

However, the last maths lesson I had was back in 1974 - and I was crap at it back then!

The trajectory stuff was only managed thanks to studying one of Phaelax's snippets for a fortnight and I got that working only knowing a half of what it means...

But, not long to go, so I'd better crack on I guess...

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 21st May 2007 02:01 Edited at: 21st May 2007 02:31

Link

My suggestion supposes a perfectly thrown javelin on a nice arc as opposed to on a parabola. I think it can be even simpler. If you can find the distance the javelin will travel - there's two velocities - forward and up. If there's no wind resistance we'll just make the forward velocity constant, the up velocity will change with gravity. So basically the javelin will go as far as it can in the forward direction until the up-down velocity makes it hit the ground. Distance1 = forward velocity*time ... and we can say time = -1*(up velocity - final velocity))/gravity or until javelin collision (remember gravity is in the negetive direction so time should end up positive)

Ok so far so good? Now if we know the javelin can travel a maximum of distance 1, and we unrealistically want the javelin to change it's pitch over this distance, then we take two angles : the start angle, and 0 degrees. The zero degree angle is the halfway point when the javelin should have leveled off.

Now we take the difference between the start angle and the middle angle and divide it by half of distance 1.

tilt = (start angle - 0)/(Distance1/2) - the start angle should be based on being between 0 and 90 degrees.

I have zero as the midpoint angle, but a little randomness in the routine here can make the javelin a little off when it finally hits the ground (more realistic)

Now for every n distance the javelin moves, you change the object x angle by tilt (assuming the pivot of the object is z oriented)

Enjoy your day.

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 21st May 2007 02:07

Link

OK, thanks for that. Makes sense too!

It isn't actually a javelin - saying it was just made it easier to explain what I was after.

Just have to see if I can finish it in time!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Comrade Robski

18

Years of Service

User Offline

Joined: 12th Sep 2005

Location:

Posted: 21st May 2007 18:30

Link

Quote: "Monday is the 21st, so which one is it?"

Whoops! Lets make the deadline Tuesday 22nd May at midnight GMT so no one misses out!

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 21st May 2007 20:56 Edited at: 21st May 2007 21:26

Link

TDK, you could save the previous point on the trajectory path then find the angle between the new and old position. The very first step along the path won't be accurate because there isn't a previous point yet, but it'll pass before anyone notices. Actually, found a way around that, if you don't mind displaying your javelin just beyond time index "0.0".

rem gravity
g# = -1.0
rem velocity
v = 20
rem starting coordinates of trajectory
x = 120
y = 240
rem angle of elevation (50 degrees above X-axis)
angle# = 310

sync on
sync rate 60

do
   cls

rem reset time
   if spacekey() = 1
      t# = 0
      oldx# = x
      oldy# = y
   endif
   rem change angle of elevation
   if upkey() then dec angle#
   if downkey() then inc angle#

rem increment time step
   t# = t#+0.2

rem get new position
   rem x1,y1 is the back-end of our javelin
   x1# = x+v*cos(angle#)*t#
   y1# = y+(v*sin(angle#)*t# - 0.5*g#*t#^2)

rem find angle between current and previous position
   a# = atanfull(x1#-oldx#, y1#-oldy#)

rem update previous position
   oldx# = x1#
   oldy# = y1#

rem this just shows what angle we fired at
   ax = x+cos(angle#)*30
   ay = y+sin(angle#)*30
   ink rgb(255,255,255),0
   line x,y,ax,ay

rem x2,y2 is front-end of our javelin
   x2 = x1#+sin(a#)*20
   y2 = y1#+cos(a#)*20
   ink rgb(255,0,0),0
   line x1#,y1#,x2,y2

set cursor 1,1
   print "Elevation: ",angle#

sync
loop

+ Code Snippet

rem gravity
g# = -1.0
rem velocity
v = 20
rem starting coordinates of trajectory
x = 120
y = 240
rem angle of elevation (50 degrees above X-axis)
angle# = 310

sync on
sync rate 60


do
   cls


   rem reset time
   if spacekey() = 1
      t# = 0
      oldx# = x
      oldy# = y
   endif
   rem change angle of elevation
   if upkey() then dec angle#
   if downkey() then inc angle#

   rem increment time step
   t# = t#+0.2

   rem get new position
   rem x1,y1 is the back-end of our javelin
   x1# = x+v*cos(angle#)*t#
   y1# = y+(v*sin(angle#)*t# - 0.5*g#*t#^2)


   rem find angle between current and previous position
   a# = atanfull(x1#-oldx#, y1#-oldy#)

   rem update previous position
   oldx# = x1#
   oldy# = y1#

   rem this just shows what angle we fired at
   ax = x+cos(angle#)*30
   ay = y+sin(angle#)*30
   ink rgb(255,255,255),0
   line x,y,ax,ay


   rem x2,y2 is front-end of our javelin
   x2 = x1#+sin(a#)*20
   y2 = y1#+cos(a#)*20
   ink rgb(255,0,0),0
   line x1#,y1#,x2,y2


   set cursor 1,1
   print "Elevation: ",angle#

   sync
loop

Back to top

Profile PM Email Website

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 22nd May 2007 19:40 Edited at: 22nd May 2007 19:54

Link

Here's my entry. I tried to do it in 3D but it wasn't too good so I did it in 2D. It's quite like Phaelax's one. The target move is 3 different ways and gets smaller and the speed increases. To make it harder I made the aimer shake a bit.

sync on
hide mouse
randomize timer()

radius=50

maxx=490
minx=150
maxy=250
miny=150
x=rnd(maxx-minx)+minx
y=200
rd#=100
rx=x
ry=y+rd#
ra#=270
xdirection=rnd(1)
ydirection=rnd(1)
speed=1
mode=1
level=1
levelcount=1
lcount=1
cr=rnd(155)+100
cg=rnd(155)+100
cb=rnd(155)+100
set gamma cr,cg,cb

do

cls

ink rgb(cr/10,cg/10,cb/10),0
   box 1,1,639,479

if mode=2 or mode=3
      if xdirection=1
         x=x+speed
         if x>maxx then xdirection=0 : x=maxx
      else
         x=x-speed
         if x<minx then xdirection=1 : x=minx
      endif
   endif
   if mode=3
      if ydirection=1
         y=y+speed
         if y>maxy then ydirection=0 : y=maxy
      else
         y=y-speed
         if y<miny then ydirection=1 : y=miny
      endif
   endif
   if mode=4
      ra#=ra#+speed/2+1
      tx=cos(ra#)*rd#
      ty=sin(ra#)*rd#
      x=rx+tx
      y=ry+ty
   endif

position mouse mousex()+rnd(4)-2,mousey()+rnd(4)-2

shots=hit+missed
   shotsr#=shots
   hitr#=hit
   if hit>0 then acuracy#=(hitr#/shotsr#)*100 else acuracy#=100

ink rgb(cr,cg,cb),0
   print "Level: ";level
   print "Score: ";score
   print "Shots: ";shots
   print "Hits: ";hit
   print "Misses: ";missed
   print "Bullseyes: ";bullseyes
   print "Acuracy: ";acuracy#;"%"

circle x,y,radius+1
   circle x,y,radius
   circle x,y,radius/2+radius/4
   circle x,y,radius/2
   circle x,y,radius/4
   circle x,y,radius/16

circle mousex(),mousey(),10
   if mousex()<16 then line 1,mousey(),mousex()+15,mousey() else line mousex()-15,mousey(),mousex()+15,mousey()
   if mousey()<16 then line mousex(),1,mousex(),mousey()+15 else line mousex(),mousey()-15,mousex(),mousey()+15
   ink 0,0
   dot mousex(),mousey()

if fadein=1
      for i=1 to 100 step 10
         ir#=i
         set gamma (ir#/crr#)*255,(ir#/cgr#)*255,(ir#/cbr#)*255
      next i
      fadein=0
   endif

set text size 50
   ink rgb(cr,cg,cb),0
   if mouseclick()=1
      if circlclsn(radius+1,x,y,mousex(),mousey())
         if circlclsn(radius/2+radius/4,x,y,mousex(),mousey())
            if circlclsn(radius/2,x,y,mousex(),mousey())
               if circlclsn(radius/4,x,y,mousex(),mousey())
                  if circlclsn(radius/16,x,y,mousex(),mousey())
                     center text 320,50,"Bullsye! 50 Points"
                     bullseyes=bullseyes+1
                     score=score+50
                  else
                     center text 320,50,"40 Points"
                     score=score+40
                  endif
               else
                  center text 320,50,"30 Points"
                  score=score+30
               endif
            else
               center text 320,50,"20 Points"
               score=score+20
            endif
         else
            center text 320,50,"10 Points"
            score=score+10
         endif
         hit=hit+1
         sleep 500
         crr#=cr
         cgr#=cg
         cbr#=cb
         for i=1 to 100 step 10
            ir#=i
            set gamma ((100-ir#)/crr#)*255,((100-ir#)/cgr#)*255,((100-ir#)/cbr#)*255
         next i
         sleep 100
         gosub nextlevel
         fadein=1
      else
         center text 320,50,"Missed shot! -20 Points"
         missed=missed+1
         score=score-20
         sleep 500
      endif
      sync
   endif

sync

loop

nextlevel:
   cr=rnd(155)+100
   cg=rnd(155)+100
   cb=rnd(155)+100
   x=rnd(maxx-minx)+minx
   y=200
   rx=x
   ry=y+rd#
   ra#=270
   xdirection=rnd(1)
   ydirection=rnd(1)
   radius=radius-1
   mode=mode+1
   if mode>4 then mode=1 : level=level+1 : levelcount=levelcount+1
   lcount=lcount+1
   if lcount>49 then end
   if levelcount=3
      levelcount=1
      speed=speed+1
   endif
return

function circlclsn(radius,x,y,cx,cy)
   collision=0
   if sqrt((x-cx)^2+(y-cy)^2)<radius then collision=1
endfunction collision

+ Code Snippet

sync on
hide mouse
randomize timer()

radius=50

maxx=490
minx=150
maxy=250
miny=150
x=rnd(maxx-minx)+minx
y=200
rd#=100
rx=x
ry=y+rd#
ra#=270
xdirection=rnd(1)
ydirection=rnd(1)
speed=1
mode=1
level=1
levelcount=1
lcount=1
cr=rnd(155)+100
cg=rnd(155)+100
cb=rnd(155)+100
set gamma cr,cg,cb

do

   cls

   ink rgb(cr/10,cg/10,cb/10),0
   box 1,1,639,479

   if mode=2 or mode=3
      if xdirection=1
         x=x+speed
         if x>maxx then xdirection=0 : x=maxx
      else
         x=x-speed
         if x<minx then xdirection=1 : x=minx
      endif
   endif
   if mode=3
      if ydirection=1
         y=y+speed
         if y>maxy then ydirection=0 : y=maxy
      else
         y=y-speed
         if y<miny then ydirection=1 : y=miny
      endif
   endif
   if mode=4
      ra#=ra#+speed/2+1
      tx=cos(ra#)*rd#
      ty=sin(ra#)*rd#
      x=rx+tx
      y=ry+ty
   endif

   position mouse mousex()+rnd(4)-2,mousey()+rnd(4)-2

   shots=hit+missed
   shotsr#=shots
   hitr#=hit
   if hit>0 then acuracy#=(hitr#/shotsr#)*100 else acuracy#=100

   ink rgb(cr,cg,cb),0
   print "Level: ";level
   print "Score: ";score
   print "Shots: ";shots
   print "Hits: ";hit
   print "Misses: ";missed
   print "Bullseyes: ";bullseyes
   print "Acuracy: ";acuracy#;"%"

   circle x,y,radius+1
   circle x,y,radius
   circle x,y,radius/2+radius/4
   circle x,y,radius/2
   circle x,y,radius/4
   circle x,y,radius/16

   circle mousex(),mousey(),10
   if mousex()<16 then line 1,mousey(),mousex()+15,mousey() else line mousex()-15,mousey(),mousex()+15,mousey()
   if mousey()<16 then line mousex(),1,mousex(),mousey()+15 else line mousex(),mousey()-15,mousex(),mousey()+15
   ink 0,0
   dot mousex(),mousey()

   if fadein=1
      for i=1 to 100 step 10
         ir#=i
         set gamma (ir#/crr#)*255,(ir#/cgr#)*255,(ir#/cbr#)*255
      next i
      fadein=0
   endif

   set text size 50
   ink rgb(cr,cg,cb),0
   if mouseclick()=1
      if circlclsn(radius+1,x,y,mousex(),mousey())
         if circlclsn(radius/2+radius/4,x,y,mousex(),mousey())
            if circlclsn(radius/2,x,y,mousex(),mousey())
               if circlclsn(radius/4,x,y,mousex(),mousey())
                  if circlclsn(radius/16,x,y,mousex(),mousey())
                     center text 320,50,"Bullsye! 50 Points"
                     bullseyes=bullseyes+1
                     score=score+50
                  else
                     center text 320,50,"40 Points"
                     score=score+40
                  endif
               else
                  center text 320,50,"30 Points"
                  score=score+30
               endif
            else
               center text 320,50,"20 Points"
               score=score+20
            endif
         else
            center text 320,50,"10 Points"
            score=score+10
         endif
         hit=hit+1
         sleep 500
         crr#=cr
         cgr#=cg
         cbr#=cb
         for i=1 to 100 step 10
            ir#=i
            set gamma ((100-ir#)/crr#)*255,((100-ir#)/cgr#)*255,((100-ir#)/cbr#)*255
         next i
         sleep 100
         gosub nextlevel
         fadein=1
      else
         center text 320,50,"Missed shot! -20 Points"
         missed=missed+1
         score=score-20
         sleep 500
      endif
      sync
   endif

   sync

loop

nextlevel:
   cr=rnd(155)+100
   cg=rnd(155)+100
   cb=rnd(155)+100
   x=rnd(maxx-minx)+minx
   y=200
   rx=x
   ry=y+rd#
   ra#=270
   xdirection=rnd(1)
   ydirection=rnd(1)
   radius=radius-1
   mode=mode+1
   if mode>4 then mode=1 : level=level+1 : levelcount=levelcount+1
   lcount=lcount+1
   if lcount>49 then end
   if levelcount=3
      levelcount=1
      speed=speed+1
   endif
return

function circlclsn(radius,x,y,cx,cy)
   collision=0
   if sqrt((x-cx)^2+(y-cy)^2)<radius then collision=1
endfunction collision

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 23rd May 2007 04:36

Link

Doh! I had a phone call and had to go out and fix a problem with a client this evening - and I'd planned to finish off my 3D archery entry.

Sadly it wasn't to be...

To be honest, I'd spent too long on what it looked like - and not enough on the actual firing.

Here's a screenshot of what I had when I ran out of time...

Shame it doesn't do a lot else!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 23rd May 2007 05:39

Link

I like it, good job

.

Back to top

Profile PM Email

Comrade Robski

18

Years of Service

User Offline

Joined: 12th Sep 2005

Location:

Posted: 23rd May 2007 11:17

Link

Wow that looks great, TDK - I hope you'll finish it off someday, it will be great to play!

So, time's up, and there were two entries this time, Phaelax and NanoGamez guy.

Both entries had a similar feel to them, in Phaelax's entry you shot at a stick man - you could aim for different parts of his body (I say him, due to the notorious "Nut shot") and you scored points based on time.

In NanoGamez's entry you shot at a target, and got points based on how close to the bullseye you got. The target moved faster and got smaller as you progressed - also there were 3 different movement types, which added variation.

So I've decided that this time the winner is:

+ Code Snippet

NanoGamez guy

Congratulations to both entrants. The winner can set the next challenge!

Ps Sorry, like TDK I ran out of time for my entry - I'll post it if I get it finished before the next challenge is set.

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 23rd May 2007 19:23

Link

congrats nano. I wasn't really expecting mine to be judged since it was the same entry I used for the DBP challenge. I'll update the entries to the site as soon as a new challenge is set.

Back to top

Profile PM Email Website

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 23rd May 2007 19:51

Link

Congratz, Nano, can't wait to see the next challenge.

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 23rd May 2007 19:53

Link

congratulations nano, can't wait to see this next one, maybe i can finish it

.

Back to top

Profile PM Email

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 24th May 2007 18:57 Edited at: 29th May 2007 19:07

Link

Thanks guys, sorry for the wait. Here's the next challenge:

Racing challenge

Specification

Make a racing game in 2D or 3D. Can be against the clock or against oppenents.

deadline

[EDIT]
New deadline:

2 weeks - Thursday, 7 June

Old deadline:

1 week - Thursday, 31 May

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 25th May 2007 05:47

Link

Count me out, I got more to do next week than I have time for.

Back to top

Profile PM Email Website

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 25th May 2007 09:38 Edited at: 25th May 2007 09:39

Link

I may enter, might not have time... how about a two week deadline?

Enjoy your day.

Back to top

Profile PM

Insert Name Here

17

Years of Service

User Offline

Joined: 20th Mar 2007

Location: Worcester, England

Posted: 25th May 2007 13:40

Link

I might have a stab at this... corners may be hard though. (me=newb)

The below sentance is true.
The above sentance is false.
Paradox!

Back to top

Profile PM

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 25th May 2007 18:17

Link

@ Latch:
If everybody agrees, then sure, if it's not against the rules.

@ Insert name here:
Give it a go, if you get stuck with anything then you can just ask here. Everybody's ready to help out.

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 26th May 2007 05:09

Link

What a coincedence! I was just making an Anim8or tutorial for cars.
The car will probably the hardest part, though because you can only use DB Classic commands.

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 26th May 2007 05:47

Link

I might have time with a 2 week deadline. But I'll be leaving town for a few days and then start a new job in a week.

Here's a hint for people, this is a good time to use a waypoint system.

Back to top

Profile PM Email Website

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 26th May 2007 05:59 Edited at: 26th May 2007 06:36

Link

way point system? Oh, I'll just use the search tool to see what that is.
NanoGamez, How did you make the mouse shake like that? It was really cool, and I noticed you didn't put a single rem statement in your entry

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 26th May 2007 16:14

Link

waypoints are a way to define a path. Think of a square with a "waypoint" at each corner numbered 1 through 4. You could also think of each point as a check point in a race. Then keep track of which points cars have passed. This not only gives you a way to have computer-controlled cars follow the path of the track but it also gives you an easier to way to calculate positions.

Back to top

Profile PM Email Website

Insert Name Here

17

Years of Service

User Offline

Joined: 20th Mar 2007

Location: Worcester, England

Posted: 26th May 2007 16:38

Link

Interesting that everyone is assuming that it's a car racing game...

The below sentance is true.
The above sentance is false.
Paradox!

Back to top

Profile PM

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 26th May 2007 19:21

Link

I wasn't planning to do cars, I'm doing 2D squares.

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

Insert Name Here

17

Years of Service

User Offline

Joined: 20th Mar 2007

Location: Worcester, England

Posted: 27th May 2007 00:00

Link

Yay, I get the first entry!

hide mouse
sync on
make object cone 1,0.5
color object 1,rgb(50,50,250)
color backdrop rgb(50,50,50)
position object 1,x,-0.5,z
do
center text 320,200,"Welcome to INH's racing game."
center text 320,220,"Dodge the boxes. How fast can you win?"
center text 320,240,"Press space to begin. Good luck!"
if spacekey()=1 then goto letsgo
sync
loop

letsgo:
m=2
a=timer()
do
color object 1,rgb(50,50,250)
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
b=timer()-a
p=rnd(3.9)
make object cube 2,0.5
position object 2,x,0.5,z
if p>1.9 and p<3 then position object 2,x,0.8,z
if p<2 then position object 2,x-0.8,0.8,z
if p>2 then position object 2,x+0.8,0.8,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.6,z
if p<2 then position object 2,x-0.8,0.6,z
if p>2 then position object 2,x+0.8,0.6,z 
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.4,z
if p<2 then position object 2,x-0.8,0.4,z
if p>2 then position object 2,x+0.8,0.4,z 
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.2,z
if p<2 then position object 2,x-0.8,0.2,z
if p>2 then position object 2,x+0.8,0.2,z 
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0,z
if p<2 then position object 2,x-0.8,0,z
if p>2 then position object 2,x+0.8,0,z 
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,-0.2,z
if p<2 then position object 2,x-0.8,-0.2,z
if p>2 then position object 2,x+0.8,-0.2,z 
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>2=1.9 and p<3 then position object 2,x,-0.2,z
if p<2 then position object 2,x-0.8,-0.4,z
if p>2 then position object 2,x+0.8,-0.4,z 
if m=p
color object 1,rgb(250,0,0)
wait 1*2000
delete object 2
else 
delete object 2
endif
time=time+1
if time=30 then goto ending
sync
loop

ending:
do
print "Well done, you did it in ",b,"Miliseconds!"
print "Thanks for playing. Press space to quit."
if spacekey()=1 then end
sync
loop

+ Code Snippet

hide mouse
sync on
make object cone 1,0.5
color object 1,rgb(50,50,250)
color backdrop rgb(50,50,50)
position object 1,x,-0.5,z
do
center text 320,200,"Welcome to INH's racing game."
center text 320,220,"Dodge the boxes. How fast can you win?"
center text 320,240,"Press space to begin. Good luck!"
if spacekey()=1 then goto letsgo
sync
loop

letsgo:
m=2
a=timer()
do
color object 1,rgb(50,50,250)
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
b=timer()-a
p=rnd(3.9)
make object cube 2,0.5
position object 2,x,0.5,z
if p>1.9 and p<3 then position object 2,x,0.8,z
if p<2 then position object 2,x-0.8,0.8,z
if p>2 then position object 2,x+0.8,0.8,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.6,z
if p<2 then position object 2,x-0.8,0.6,z
if p>2 then position object 2,x+0.8,0.6,z 
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.4,z
if p<2 then position object 2,x-0.8,0.4,z
if p>2 then position object 2,x+0.8,0.4,z 
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.2,z
if p<2 then position object 2,x-0.8,0.2,z
if p>2 then position object 2,x+0.8,0.2,z 
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0,z
if p<2 then position object 2,x-0.8,0,z
if p>2 then position object 2,x+0.8,0,z 
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,-0.2,z
if p<2 then position object 2,x-0.8,-0.2,z
if p>2 then position object 2,x+0.8,-0.2,z 
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>2=1.9 and p<3 then position object 2,x,-0.2,z
if p<2 then position object 2,x-0.8,-0.4,z
if p>2 then position object 2,x+0.8,-0.4,z 
if m=p
color object 1,rgb(250,0,0)
wait 1*2000
delete object 2
else 
delete object 2
endif
time=time+1
if time=30 then goto ending
sync
loop

ending:
do
print "Well done, you did it in ",b,"Miliseconds!"
print "Thanks for playing. Press space to quit."
if spacekey()=1 then end
sync
loop

Thank you!

The below sentance is true.
The above sentance is false.
Paradox!

Back to top

Profile PM

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 27th May 2007 00:24

Link

Insert Name-Nice game, I think I went beyond a score limit or something so far as I was still alive and the text zoomed by and then the boxes stopped dropping. But nice job

.

Back to top

Profile PM Email

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 27th May 2007 02:44

Link

Me too!!! But wasn't this a racing game challenge?

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

Insert Name Here

17

Years of Service

User Offline

Joined: 20th Mar 2007

Location: Worcester, England

Posted: 27th May 2007 11:14

Link

Technically, my game is a race because it is against the clock, and crashing loses you time. Hang on, I'll change it to the updated one where you CAN see the time.

The below sentance is true.
The above sentance is false.
Paradox!

Back to top

Profile PM

Insert Name Here

17

Years of Service

User Offline

Joined: 20th Mar 2007

Location: Worcester, England

Posted: 27th May 2007 11:33

Link

Sorry, won't let me edit my code!This one shows the score.

hide mouse
sync on
top:
make object cone 1,0.5
color backdrop rgb(0,0,0)
color object 1,rgb(50,50,250)
position object 1,x,-0.5,z
do
center text 320,200,\"Welcome to INH\'s racing game.\"
center text 320,220,\"Dodge the boxes. How fast can you win?\"
center text 320,240,\"Press space to begin. Good luck!\"
if spacekey()=1 then goto letsgo
sync
loop

letsgo:
m=2
a=timer()
do
color object 1,rgb(50,50,250)
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
b=timer()-a
p=rnd(3.9)
make object cube 2,0.5
position object 2,x,0.5,z
if p>1.9 and p<3 then position object 2,x,0.8,z
if p<2 then position object 2,x-0.8,0.8,z
if p>2 then position object 2,x+0.8,0.8,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.6,z
if p<2 then position object 2,x-0.8,0.6,z
if p>2 then position object 2,x+0.8,0.6,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.4,z
if p<2 then position object 2,x-0.8,0.4,z
if p>2 then position object 2,x+0.8,0.4,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.2,z
if p<2 then position object 2,x-0.8,0.2,z
if p>2 then position object 2,x+0.8,0.2,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0,z
if p<2 then position object 2,x-0.8,0,z
if p>2 then position object 2,x+0.8,0,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,-0.2,z
if p<2 then position object 2,x-0.8,-0.2,z
if p>2 then position object 2,x+0.8,-0.2,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>2=1.9 and p<3 then position object 2,x,-0.2,z
if p<2 then position object 2,x-0.8,-0.4,z
if p>2 then position object 2,x+0.8,-0.4,z
if m=p
color object 1,rgb(250,0,0)
wait 1*2000
delete object 2
else
delete object 2
endif
time=time+1
if time=30 then goto ending
sync
loop

ending:
c=b/1000
delete object 1
do
print \"Well done, you did it in aprox. \",c,\" seconds\"
print \"Thanks for playing. Press space to try again.\"
if spacekey()=1 then goto top
wait 1*0.01
cls
sync
loop

+ Code Snippet

hide mouse
sync on
top:
make object cone 1,0.5
color backdrop rgb(0,0,0)
color object 1,rgb(50,50,250)
position object 1,x,-0.5,z
do
center text 320,200,\"Welcome to INH\'s racing game.\"
center text 320,220,\"Dodge the boxes. How fast can you win?\"
center text 320,240,\"Press space to begin. Good luck!\"
if spacekey()=1 then goto letsgo
sync
loop

letsgo:
m=2
a=timer()
do
color object 1,rgb(50,50,250)
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
b=timer()-a
p=rnd(3.9)
make object cube 2,0.5
position object 2,x,0.5,z
if p>1.9 and p<3 then position object 2,x,0.8,z
if p<2 then position object 2,x-0.8,0.8,z
if p>2 then position object 2,x+0.8,0.8,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.6,z
if p<2 then position object 2,x-0.8,0.6,z
if p>2 then position object 2,x+0.8,0.6,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.4,z
if p<2 then position object 2,x-0.8,0.4,z
if p>2 then position object 2,x+0.8,0.4,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0.2,z
if p<2 then position object 2,x-0.8,0.2,z
if p>2 then position object 2,x+0.8,0.2,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,0,z
if p<2 then position object 2,x-0.8,0,z
if p>2 then position object 2,x+0.8,0,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>1.9 and p<3 then position object 2,x,-0.2,z
if p<2 then position object 2,x-0.8,-0.2,z
if p>2 then position object 2,x+0.8,-0.2,z
rem m=2
if m=2 and leftkey()=1 then position object 1,-0.8,-0.5,z : m=1
if m=2 and rightkey()=1 then position object 1,0.8,-0.5,z : m=3
rem m=1
if m=1 and rightkey()=1 then position object 1,0,-0.5,z : m=2
rem m=3
if m=3 and leftkey()=1 then position object 1,-0,-0.5,z : m=2
wait 1*100
if p>2=1.9 and p<3 then position object 2,x,-0.2,z
if p<2 then position object 2,x-0.8,-0.4,z
if p>2 then position object 2,x+0.8,-0.4,z
if m=p
color object 1,rgb(250,0,0)
wait 1*2000
delete object 2
else
delete object 2
endif
time=time+1
if time=30 then goto ending
sync
loop

ending:
c=b/1000
delete object 1
do
print \"Well done, you did it in aprox. \",c,\" seconds\"
print \"Thanks for playing. Press space to try again.\"
if spacekey()=1 then goto top
wait 1*0.01
cls
sync
loop

Thanks.

The below sentance is true.
The above sentance is false.
Paradox!

Back to top

Profile PM

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 27th May 2007 14:58

Link

@ TDK
You created this thread and the rules for it. Would it be OK to change the deadline to 2 weeks?

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 27th May 2007 18:00

Link

it would be fine as long as we all agree, so I dont see a problem. Wish I had more than just a Mac with me.

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 27th May 2007 18:57

Link

As Phaelax says - there's no problem if everyone agrees.

If a challenge setter wants to make a two week challenge, that's fine by me.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 28th May 2007 00:32

Link

OK, Everyone agree?

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 28th May 2007 01:03 Edited at: 28th May 2007 01:20

Link

Yes, I agree.
I have a problem with the Timer() function.
When I was looking at TDK's timer tutorial I wanted to make things so that every one second, something happened.
So, I used his 60 second timer thing, and changed it for 1 second. I did my little INC command, but, nothing happened. Can someone help me?
I also need info on how NanoGamez made the mouse shake

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 28th May 2007 03:49

Link

If you want single second intervals, then you need to use a time interval less than one second because by the time you've counted to 1 it's gone and the timer is reset.

The Timer() function returns milliseconds (thousandths of a second) so you divide by 1000 to get the seconds.

Instead of seconds, use 10ths of a seconds by dividing by 100 instead of 1000.

You then need to count to 10 before doing the action because 10 tenths of a second = 1 second.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 28th May 2007 12:11

Link

To make the mouse shake all you have to do is put this line in to your main loop:

+ Code Snippet

position mouse mousex()+rnd(4)-2,mousey()+rnd(4)-2

It moves the mouse by -2,-1,0,1 or 2 everytime so it looks like it's shaking.

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 28th May 2007 19:43 Edited at: 28th May 2007 20:43

Link

Thanks guys! (not being sarcastic)
Woohoo!!!! My first entry!

cls
print "Welcome to Sinani201's Amazing racing game!!!!"
print "Click the small circle to hover the big one."
print "When the big circle touches the end of the screen, you win!"
print "But if time runs out, you lose!"
print "Press any key to start. Good luck!"
wait key
goto playgame
playgame:
  cls
  radius=3
  circlexpos=456
  do
    Set Text Opaque
    Ink RGB(255,255,255),0
    Seconds=90
    T=Timer()
    Repeat
      Elapsed=(Timer()-T)/1000
      TimeLeft=Seconds-Elapsed
      text 0,0,Str$(TimeLeft)+"   "
      position mouse mousex()+rnd(5)-2,mousey()+rnd(5)-2
      if mouseclick()=1
        mx=mousex()
        my=mousey()
        if SQRT((x-mx)^2 + (y-my)^2)<radius
          inc circleypos,19
          timer=0
        endif
      endif
      if timer=0
        cls
        x=rnd(screen width()/2)
        y=rnd(screen height())
        circle x,y,radius
        timer=200+rnd(3000)
      endif
      if circleypos=456
        gosub youwin
      endif
      dec timer
      circle circlexpos,circleypos,30
      sync
    Until TimeLeft=0
    gosub gameover
  loop
  gameover:
    cls
    print "  Sorry, time ran out."
    suspend for key
    end

+ Code Snippet

cls
print "Welcome to Sinani201's Amazing racing game!!!!"
print "Click the small circle to hover the big one."
print "When the big circle touches the end of the screen, you win!"
print "But if time runs out, you lose!"
print "Press any key to start. Good luck!"
wait key
goto playgame
playgame:
  cls
  radius=3
  circlexpos=456
  do
    Set Text Opaque
    Ink RGB(255,255,255),0
    Seconds=90
    T=Timer()
    Repeat
      Elapsed=(Timer()-T)/1000
      TimeLeft=Seconds-Elapsed
      text 0,0,Str$(TimeLeft)+"   "
      position mouse mousex()+rnd(5)-2,mousey()+rnd(5)-2
      if mouseclick()=1
        mx=mousex()
        my=mousey()
        if SQRT((x-mx)^2 + (y-my)^2)<radius
          inc circleypos,19
          timer=0
        endif
      endif
      if timer=0
        cls
        x=rnd(screen width()/2)
        y=rnd(screen height())
        circle x,y,radius
        timer=200+rnd(3000)
      endif
      if circleypos=456
        gosub youwin
      endif
      dec timer
      circle circlexpos,circleypos,30
      sync
    Until TimeLeft=0
    gosub gameover
  loop
  gameover:
    cls
    print "  Sorry, time ran out."
    suspend for key
    end

Tell me if there's any problems because it had a lot of glitches while I was making it.

EDIT: Lol, this is just like Advert Attack on that weird Neopets game.

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

MikeB

17

Years of Service

User Offline

Joined: 5th Apr 2007

Location: My Computer, Shropshire, England

Posted: 28th May 2007 20:59

Link

Sinani201 are you done with that anim8or tutorial yet??

I wrote some car code and I'd quite like a model for it

.

E.D.

Back to top

Profile PM

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 29th May 2007 03:22 Edited at: 29th May 2007 03:24

Link

ooooooooooh. I'll start that...
BTW, I just started reading that book called Eldest. It's pretty good

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

MikeB

17

Years of Service

User Offline

Joined: 5th Apr 2007

Location: My Computer, Shropshire, England

Posted: 29th May 2007 11:13

Link

Yeah

.

E.D.

P.S. Great about the car tutorial, thanks

Back to top

Profile PM

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 29th May 2007 19:05

Link

OK challenge deadline changed to 2 weeks - Thursday, June 7th.

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Link102

19

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 30th May 2007 00:45 Edited at: 31st May 2007 14:14

Link

Here's my submission:

set display mode 1152,864,16
sync on:sync rate 30
hide mouse
randomize timer()

make matrix 1,200,200,10,10
position matrix 1,0,-2,0

make object cube 1,4
color object 1,RGB(55,55,55)

make object cube 2,4
color object 2,RGB(20,20,20)

length=20

for t=3 to length
make object cube t,4
position object t,rnd(200),0,rnd(200)
next t
color object 3,RGB(225,0,0)

T#=Timer()
set text font "Berlin Sans FB"
set text size 50

`___________________________________________________________________________________

do
   Elapsed#=(Timer()-T#)/1000
   if waypoint#>ai_waypoint# then pos$="1st"
   if waypoint#=ai_waypoint# and root#<ai_root# then pos$="1st"
   if waypoint#=ai_waypoint# and root#>ai_root# then pos$="2nd"
   if waypoint#<ai_waypoint# then pos$="2nd"

Text 10,10,pos$

if upkey()=1 and speed#=>0 then speed#=speed#+0.02
   if upkey()=1 and speed#<0 then speed#=speed#+0.05
   if downkey()=1 and speed#>-1 then speed#=speed#-0.05
   if downkey()=0 and upkey()=0 then speed#=speed#/1.02

if rightkey()=1 and steer#<2.5 then steer#=steer#+0.1
   if leftkey()=1 and steer#>-2.5 then steer#=steer#-0.1
   if rightkey()=0 and leftkey()=0 then steer#=steer#/1.2
   if speed#>0 then angleY#=angleY#+steer#
   if speed#<0 then angleY#=angleY#-steer#

gosub collision
   gosub ai_collision
`___________________________________________________________________________________

rotate object 1,0,wrapvalue(angleY#),wrapvalue(0-angleZ#)
   X#=newXvalue(X#,angleY#,speed#)
   Z#=newZvalue(Z#,angleY#,speed#)
   if X#>250 then X#=250:speed#=speed#/1.02
   if X#<-50 then X#=-50:speed#=speed#/1.02
   if Z#>250 then Z#=250:speed#=speed#/1.02
   if Z#<-50 then Z#=-50:speed#=speed#/1.02
   Position object 1,X#,0,Z#

cam_angleY#=cam_angleY#+(angleY#-cam_angleY#)/10
   angleZ#=angleZ#+(AngleY#-angleZ#)/10
   camX#=newXvalue(object position x(1),cam_angleY#+180,speed#+20)
   camZ#=newZvalue(object position z(1),cam_angleY#+180,speed#+20)
   position camera camX#,speed#+10,camZ#
   point camera object position x(1),1,object position z(1)

fov#=speed#/5
   set camera fov fov#+1

root#=sqrt((((object position X(waypoint#+3)-X#)/2)^2)+(((object position Z(waypoint#+3)-Z#)/2)^2))
`___________________________________________________________________________________

ang#=atanfull(ai_X#-object position X(ai_waypoint#+3),ai_Z#-object position Z(ai_waypoint#+3))-ai_angleY#

if ang#<-180
      ai_behaviour=2
   else
      ai_behaviour=1
   endif
   ai_root#=sqrt((((object position X(ai_waypoint#+3)-ai_X#)/2)^2)+(((object position Z(ai_waypoint#+3)-ai_Z#)/2)^2))

if ai_speed#*2<ai_root#/10 then ai_speed#=ai_speed#+0.02 else ai_speed#=ai_speed#/1.02
   if ai_behaviour=1 and ai_steer#<2.5 then ai_steer#=ai_steer#+0.5
   if ai_behaviour=2 and ai_steer#>-2.5 then ai_steer#=ai_steer#-0.5
   if ai_behaviour<>1 and ai_behaviour<>2 then ai_steer#=ai_steer#/1.2
   if ai_speed#>0 then ai_angleY#=ai_angleY#+ai_steer#
   if ai_speed#<0 then ai_angleY#=ai_angleY#-ai_steer#

rotate object 2,0,wrapvalue(ai_angleY#),wrapvalue(0-ai_angleZ#)
   ai_X#=newXvalue(ai_X#,ai_angleY#,ai_speed#)
   ai_Z#=newZvalue(ai_Z#,ai_angleY#,ai_speed#)
   if ai_X#>250 then ai_X#=250:ai_speed#=ai_speed#/1.02
   if ai_X#<-50 then ai_X#=-50:ai_speed#=ai_speed#/1.02
   if ai_Z#>250 then ai_Z#=250:ai_speed#=ai_speed#/1.02
   if ai_Z#<-50 then ai_Z#=-50:ai_speed#=ai_speed#/1.02
   Position object 2,ai_X#,0,ai_Z#
   ai_angleZ#=ai_angleZ#+(ai_AngleY#-ai_angleZ#)/10
loop
`___________________________________________________________________________________

collision:
   if object collision(1,waypoint#+3)=1
      hide object waypoint#+3
      if waypoint#=length-3
         gosub finnish
      endif
      color object waypoint#+4,RGB(225,0,0)
      waypoint#=waypoint#+1
   endif
return

ai_collision:
   if object collision(2,ai_waypoint#+3)=1
      ghost object on ai_waypoint#+3
      if ai_waypoint#=length-3
         aiwon=1
         gosub finnish
      endif
      ai_waypoint#=ai_waypoint#+1
   endif
return

finnish:
   if Elapsed#>60 then Elapsed#=Elapsed#-60:min=min+1:goto finnish
   repeat
      cls rgb(225,30,30)

a=rnd(5)
      if a=0 then ink rgb(225,30,30),0 else ink rgb(0,0,0),0
      set text font "impact"
      set text size 100
      if aiwon=1 then center text screen width()/2,screen height()/2-100,"YOU LOZE!!" else center text screen width()/2,screen height()/2-100,"FINISH!!"

ink rgb(0,0,0),0
      set text font "Courier"
      set text size 15
      if min>0
         center text screen width()/2,screen height()/2-10,"In just "+Str$(min)+" minute(s) and "+Str$(int(Elapsed#))+" seconds"
      else
         center text screen width()/2,screen height()/2-10,"In just "+Str$(int(Elapsed#))+" seconds"
      endif

sync
   until world_domination=1

+ Code Snippet

set display mode 1152,864,16
sync on:sync rate 30
hide mouse
randomize timer()

make matrix 1,200,200,10,10
position matrix 1,0,-2,0

make object cube 1,4
color object 1,RGB(55,55,55)

make object cube 2,4
color object 2,RGB(20,20,20)


length=20

for t=3 to length
make object cube t,4
position object t,rnd(200),0,rnd(200)
next t
color object 3,RGB(225,0,0)

T#=Timer()
set text font "Berlin Sans FB"
set text size 50

`___________________________________________________________________________________

`___________________________________________________________________________________

do
   Elapsed#=(Timer()-T#)/1000
   if waypoint#>ai_waypoint# then pos$="1st"
   if waypoint#=ai_waypoint# and root#<ai_root# then pos$="1st"
   if waypoint#=ai_waypoint# and root#>ai_root# then pos$="2nd"
   if waypoint#<ai_waypoint# then pos$="2nd"

   Text 10,10,pos$

   if upkey()=1 and speed#=>0 then speed#=speed#+0.02
   if upkey()=1 and speed#<0 then speed#=speed#+0.05
   if downkey()=1 and speed#>-1 then speed#=speed#-0.05
   if downkey()=0 and upkey()=0 then speed#=speed#/1.02

   if rightkey()=1 and steer#<2.5 then steer#=steer#+0.1
   if leftkey()=1 and steer#>-2.5 then steer#=steer#-0.1
   if rightkey()=0 and leftkey()=0 then steer#=steer#/1.2
   if speed#>0 then angleY#=angleY#+steer#
   if speed#<0 then angleY#=angleY#-steer#

   gosub collision
   gosub ai_collision
`___________________________________________________________________________________

   rotate object 1,0,wrapvalue(angleY#),wrapvalue(0-angleZ#)
   X#=newXvalue(X#,angleY#,speed#)
   Z#=newZvalue(Z#,angleY#,speed#)
   if X#>250 then X#=250:speed#=speed#/1.02
   if X#<-50 then X#=-50:speed#=speed#/1.02
   if Z#>250 then Z#=250:speed#=speed#/1.02
   if Z#<-50 then Z#=-50:speed#=speed#/1.02
   Position object 1,X#,0,Z#

   cam_angleY#=cam_angleY#+(angleY#-cam_angleY#)/10
   angleZ#=angleZ#+(AngleY#-angleZ#)/10
   camX#=newXvalue(object position x(1),cam_angleY#+180,speed#+20)
   camZ#=newZvalue(object position z(1),cam_angleY#+180,speed#+20)
   position camera camX#,speed#+10,camZ#
   point camera object position x(1),1,object position z(1)

   fov#=speed#/5
   set camera fov fov#+1

   root#=sqrt((((object position X(waypoint#+3)-X#)/2)^2)+(((object position Z(waypoint#+3)-Z#)/2)^2))
`___________________________________________________________________________________

   ang#=atanfull(ai_X#-object position X(ai_waypoint#+3),ai_Z#-object position Z(ai_waypoint#+3))-ai_angleY#

   if ang#<-180
      ai_behaviour=2
   else
      ai_behaviour=1
   endif
   ai_root#=sqrt((((object position X(ai_waypoint#+3)-ai_X#)/2)^2)+(((object position Z(ai_waypoint#+3)-ai_Z#)/2)^2))

   if ai_speed#*2<ai_root#/10 then ai_speed#=ai_speed#+0.02 else ai_speed#=ai_speed#/1.02
   if ai_behaviour=1 and ai_steer#<2.5 then ai_steer#=ai_steer#+0.5
   if ai_behaviour=2 and ai_steer#>-2.5 then ai_steer#=ai_steer#-0.5
   if ai_behaviour<>1 and ai_behaviour<>2 then ai_steer#=ai_steer#/1.2
   if ai_speed#>0 then ai_angleY#=ai_angleY#+ai_steer#
   if ai_speed#<0 then ai_angleY#=ai_angleY#-ai_steer#

   rotate object 2,0,wrapvalue(ai_angleY#),wrapvalue(0-ai_angleZ#)
   ai_X#=newXvalue(ai_X#,ai_angleY#,ai_speed#)
   ai_Z#=newZvalue(ai_Z#,ai_angleY#,ai_speed#)
   if ai_X#>250 then ai_X#=250:ai_speed#=ai_speed#/1.02
   if ai_X#<-50 then ai_X#=-50:ai_speed#=ai_speed#/1.02
   if ai_Z#>250 then ai_Z#=250:ai_speed#=ai_speed#/1.02
   if ai_Z#<-50 then ai_Z#=-50:ai_speed#=ai_speed#/1.02
   Position object 2,ai_X#,0,ai_Z#
   ai_angleZ#=ai_angleZ#+(ai_AngleY#-ai_angleZ#)/10
loop
`___________________________________________________________________________________

collision:
   if object collision(1,waypoint#+3)=1
      hide object waypoint#+3
      if waypoint#=length-3
         gosub finnish
      endif
      color object waypoint#+4,RGB(225,0,0)
      waypoint#=waypoint#+1
   endif
return

ai_collision:
   if object collision(2,ai_waypoint#+3)=1
      ghost object on ai_waypoint#+3
      if ai_waypoint#=length-3
         aiwon=1
         gosub finnish
      endif
      ai_waypoint#=ai_waypoint#+1
   endif
return

finnish:
   if Elapsed#>60 then Elapsed#=Elapsed#-60:min=min+1:goto finnish
   repeat
      cls rgb(225,30,30)

      a=rnd(5)
      if a=0 then ink rgb(225,30,30),0 else ink rgb(0,0,0),0
      set text font "impact"
      set text size 100
      if aiwon=1 then center text screen width()/2,screen height()/2-100,"YOU LOZE!!" else center text screen width()/2,screen height()/2-100,"FINISH!!"

      ink rgb(0,0,0),0
      set text font "Courier"
      set text size 15
      if min>0
         center text screen width()/2,screen height()/2-10,"In just "+Str$(min)+" minute(s) and "+Str$(int(Elapsed#))+" seconds"
      else
         center text screen width()/2,screen height()/2-10,"In just "+Str$(int(Elapsed#))+" seconds"
      endif

      sync
   until world_domination=1

It's a checkpoint racing game useing floating vehicles.
- It features 1 pretty decent ai player. (for a first try)
- A smooth controled vehicle. (Controled by the directional keys)
- Adustable game length (check the length variable at the top, nr of checkpoints=length-3)
- A small camera effect (Zdepth)
- And a fancy animated win/lose screen

The objective of the game is to race the red checkpoints

cheers

Don't look at my sig!

Back to top

Profile PM

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 31st May 2007 03:59

Link

nice code.

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

Insert Name Here

17

Years of Service

User Offline

Joined: 20th Mar 2007

Location: Worcester, England

Posted: 31st May 2007 13:34

Link

I like it!
I had to change the display mode at the start though.

The below sentance is true.
The above sentance is false.
Paradox!

Back to top

Profile PM

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 31st May 2007 15:01

Link

Just checked the entries.

@ Insert name here:
Nice game 2D game with 3D objects, but the code's a bit untidy.

@ Sinani:
Wouldn't work. There isn't a youwin label. Mabye you didn't copy all the code.

@ Link:
Cool smooth controls and nice AI. Though it should have a speed limit because you lose control easily.

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Link102

19

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 1st Jun 2007 00:34 Edited at: 1st Jun 2007 00:36

Link

I'm currently working on the ai, curretly he's wigling a lot. and to have a good control over the car, you'll need to slow down before hitting the target (just like when you'd use the checkpoints in track races >> slow down before hitting the corner) I don't have any problems controling the controling the car this way

Don't look at my sig!

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 1st Jun 2007 03:18

Link

@ Nano

Is having tidy code a criteria for judging entries? If so, please list all the criteria used to determine a winner, as I don't see that in the post when TDK started the very first challenge. If not, and you were just giving friendly advice, okay. I hope to enter, but I'm not that familiar with the judging criteria.

Thanks,

LB

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / The DB Classic Programming Challenge Thread