Smth like a Snake game - GameCreators Forum

Author

Message

DynamicLink

11

Years of Service

User Offline

Joined: 26th May 2013

Location:

Posted: 31st Jul 2013 16:09 Edited at: 31st Jul 2013 19:10

Link

I'm trying to code something like a snake game and i can't work around a display issue. I'll post what i have done so far. The idea is that from times to times, the body spheres are moving abruptly, taking away the program's smoothness.

GoSub Initializare
GoSub Sarpe

Do    
    Misca()
    Sync  
LOOP

REM Initializare
REM Tipuri

Type Snake
    Balls as Integer
    Size as float
    Speed as float
    Direction as float
EndType

Initializare:
    Set Display Mode 800, 600, 32
    Sync On
    Sync Rate 120
    
    Backdrop On
    Color Backdrop 0;
    Autocam Off
    
    Position Camera 0, 0, -400
    Point Camera 0, 0, 0
    
    Set Global Collision On
    Randomize Timer()

return

Sarpe:
    Global S1 as Snake
    S1.Balls = 3
    S1.Size = 30
    S1.Speed = 3

//creare sfere
    for i = 1 to S1.Balls
        Make Object Sphere i, S1.Size
        Position Object i, -(i-1)*30, 0, 0
    NEXT i
    
    //Pregatirea pt miscare
    Point Object 1, 0, 10, 0
    
    for i = 2 to S1.Balls
        Point Object i, Object Position X(i-1), Object Position Y(i-1), Object Position Z(i-1) 
    NEXT i
    Color Object 1, RGB(152, 56, 123)
return

Function Misca()
        If LeftKey() = 1    Then Turn Object Left 1, 6
        If RightKey() = 1    Then Turn Object Right 1, 6
        Move Object 1, S1.Speed
        for j = 2 to S1.Balls
            Point Object j, Object Position X(j-1), Object Position Y(j-1), Object Position Z(j-1)
            If Not Object Collision(j, j-1) Then Move Object j, S1.Speed
        NEXT j
        Sync
        
ENDFUNCTION

+ Code Snippet

GoSub Initializare
GoSub Sarpe

Do    
    Misca()
    Sync  
LOOP

REM Initializare
REM Tipuri

Type Snake
    Balls as Integer
    Size as float
    Speed as float
    Direction as float
EndType

Initializare:
    Set Display Mode 800, 600, 32
    Sync On
    Sync Rate 120
    
    Backdrop On
    Color Backdrop 0;
    Autocam Off
    
    Position Camera 0, 0, -400
    Point Camera 0, 0, 0
    
    Set Global Collision On
    Randomize Timer()

return

Sarpe:
    Global S1 as Snake
    S1.Balls = 3
    S1.Size = 30
    S1.Speed = 3

    //creare sfere
    for i = 1 to S1.Balls
        Make Object Sphere i, S1.Size
        Position Object i, -(i-1)*30, 0, 0
    NEXT i
    
    //Pregatirea pt miscare
    Point Object 1, 0, 10, 0
    
    for i = 2 to S1.Balls
        Point Object i, Object Position X(i-1), Object Position Y(i-1), Object Position Z(i-1) 
    NEXT i
    Color Object 1, RGB(152, 56, 123)
return

Function Misca()
        If LeftKey() = 1    Then Turn Object Left 1, 6
        If RightKey() = 1    Then Turn Object Right 1, 6
        Move Object 1, S1.Speed
        for j = 2 to S1.Balls
            Point Object j, Object Position X(j-1), Object Position Y(j-1), Object Position Z(j-1)
            If Not Object Collision(j, j-1) Then Move Object j, S1.Speed
        NEXT j
        Sync
        
ENDFUNCTION

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 31st Jul 2013 19:51 Edited at: 31st Jul 2013 20:00

Link

What do you mean?
You could force to just four direction up down left right

This example was for a 20lines code...take a look.

autocam off:hide mouse:sync on :sync rate 10:ink rgb(255,0,0),0:set text size 30:a=1:av=6
make object box 30000,300,1,230:color object 30000,rgb(0,255,0):set object collision off 30000
make object sphere 40000,6:position object 40000,30,0,30:position camera 0,200,0
point camera 0,0,0:for i= 1 to 6:make object box 50000+i,30,4,4:color object 40000,3000
position object 50000+i,-100+rnd(300),0,-100+rnd(150):yrotate object 50000+i,rnd(3)*90
next i:do:pe=pe+1:make object sphere pe,5.5:position object pe,x,0,z:color object pe,29000
if av=6
if pe>10+uni then delete object pe-9
endif
an=-144+rnd(290):al=-108+rnd(100)
if upkey()then a=1
if downkey()then a=2
if rightkey()then a=3
if leftkey()then a=4
if a=1 then z=z+av
if a=2 then z=z-av
if a=3 then x=x+av
if a=4 then x=x-av
set cursor 20,10:print uni:position object 1,x,0,z:if object collision (40000,0)>0
position object 40000,an,0,al:uni=uni+1:for i= 1 to 6:position object 50000+i,-100+rnd(300),0,-100+rnd(150)
yrotate object 50000+i,rnd(3)*90:next i:endif:for i= 1 to 6:if object collision (50000+i,pe)>0
AV=0:ENDIF:next i :if av=0 then text 120,150,"YOU FAIL !!...":set cursor 300,150:print "Your score ",uni," points"
if object collision(pe,0)>0 then av=0
sync :loop

+ Code Snippet

autocam off:hide mouse:sync on :sync rate 10:ink rgb(255,0,0),0:set text size 30:a=1:av=6
make object box 30000,300,1,230:color object 30000,rgb(0,255,0):set object collision off 30000
make object sphere 40000,6:position object 40000,30,0,30:position camera 0,200,0
point camera 0,0,0:for i= 1 to 6:make object box 50000+i,30,4,4:color object 40000,3000
position object 50000+i,-100+rnd(300),0,-100+rnd(150):yrotate object 50000+i,rnd(3)*90
next i:do:pe=pe+1:make object sphere pe,5.5:position object pe,x,0,z:color object pe,29000
if av=6
if pe>10+uni then delete object pe-9
endif
an=-144+rnd(290):al=-108+rnd(100)
if upkey()then a=1
if downkey()then a=2
if rightkey()then a=3
if leftkey()then a=4
if a=1 then z=z+av
if a=2 then z=z-av
if a=3 then x=x+av
if a=4 then x=x-av
set cursor 20,10:print uni:position object 1,x,0,z:if object collision (40000,0)>0
position object 40000,an,0,al:uni=uni+1:for i= 1 to 6:position object 50000+i,-100+rnd(300),0,-100+rnd(150)
yrotate object 50000+i,rnd(3)*90:next i:endif:for i= 1 to 6:if object collision (50000+i,pe)>0
AV=0:ENDIF:next i :if av=0 then text 120,150,"YOU FAIL !!...":set cursor 300,150:print "Your score ",uni," points"
if object collision(pe,0)>0 then av=0
sync :loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 15th Aug 2013 07:45 Edited at: 15th Aug 2013 07:47

Link

Are you referring to how the trailing balls jitter when you perform a hard turn? If so, I do not think it is a display issue.

I believe this has to do with how you have each ball point at the one in front of it and move if there is no collision. When the leading ball makes a turn, the trailing ball has to wait for it to move away before it can occupy its space. Thus, the trailing ball stops and waits for the leading ball to finish its turn.

To resolve this, you could keep an array of the last, say, 100 positions occupied by the leading ball (the number of positions will depend on how long you allow the snake tail to become), and then have each of the trailing balls move through those positions in turn. This would probably work but it could get a little complicated.

Alternately you could take chafari's approach and create a ball at the leading ball's position and delete the ball at the end of the trail each loop, creating the illusion of a trail. This seems like the easier option. Depending on how fast your snake moves you could have some of the balls overlap though (ex. leading ball is size 10, a trailing ball spawns at its location, the leading ball only moves 2, now part of the leading ball is still inside the trailing ball).

There is probably some other super simple solution that I'm missing right now so keep an ear open for other replies

Hmm. It's been a while

.

Back to top

Profile PM Email

DynamicLink

11

Years of Service

User Offline

Joined: 26th May 2013

Location:

Posted: 28th Aug 2013 23:28

Link

thanks guys

@chafari: I tried to do a smoother and more modern version of snake. As I don't know how to create/work with characters created with other software, i made the snake up from a bunch of spheres.
@Squares: recently i've been thinking of changing the order the spheres move meaning that i should try to move them starting from the last one to the first, so that i don't lose the position of the frame. i'll come with an update if this method works.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Smth like a Snake game