Code Check - GameCreators Forum

Author

Message

Oboro

14

Years of Service

User Offline

Joined: 27th Jul 2010

Location: Gilmer, TX

Posted: 20th Dec 2010 16:03

Link

+ Code Snippet

LOAD IMAGE "media\bg.bmp", 1
SPRITE 1, 0, backgroundX, 1
SYNC ON : SYNC RATE 10

DO
		IF RIGHTKEY()<>0
  				IF backgroundX > 10000
    				backgroundX = 0
    				PASTE SPRITE 1, 0, backgroundX
  				ELSE
    				INC backgroundX
    				PASTE SPRITE 1, 0, backgroundX
  				ENDIF
		ENDIF

		IF LEFTKEY()<>0
					DEC backgroundX
  				IF backgroundX > 0
    				backgroundX = 0
  				ELSE
    				DEC backgroundX
  				ENDIF
		ENDIF
SYNC
LOOP

Can someone tell me why this doesn't move the sprite along the X axis? it doesn't move the sprite at all actually, I've tried several ways to try to do this fumbeling with code and commands but this is the only logical-ish way I've figured to do it, can someone enlighten me?

Space for rent.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 20th Dec 2010 17:07 Edited at: 20th Dec 2010 17:09

Link

You are constantly re-setting it "IF backgroundX > 0"

Try it like this:

+ Code Snippet

LOAD IMAGE "media\bg.bmp", 1
SPRITE 1, screen width(), screen height(), 1 `EDIT
SYNC ON : SYNC RATE 10

DO
    IF RIGHTKEY()<>0
        INC backgroundX
        IF backgroundX > screen width()
            backgroundX = 0
        ENDIF
    ENDIF
    
    IF LEFTKEY()<>0
        DEC backgroundX
        IF backgroundX < 0
            backgroundX = screen width()
        ENDIF
    ENDIF
    PASTE SPRITE 1, backgroundX, 0
    SYNC
LOOP

Back to top

Profile PM Email

Oboro

14

Years of Service

User Offline

Joined: 27th Jul 2010

Location: Gilmer, TX

Posted: 21st Dec 2010 02:24 Edited at: 21st Dec 2010 02:34

Link

I appreciate the quick response!

I was trying to add edges so that if you went too far you would hit the invisible wall, but I wanted to use the full size of the image as well not just the screen width...

Space for rent.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 21st Dec 2010 10:00

Link

Quote: "I appreciate the quick response!"

No problem

Back to top

Profile PM Email

Oboro

14

Years of Service

User Offline

Joined: 27th Jul 2010

Location: Gilmer, TX

Posted: 21st Dec 2010 15:15

Link

Would the only method for this type of thing be to texture a plain? I think I remember seeing a thread for that sort of thing but I don't quite know how to do this with user controlled scrolling. I'm trying to make a rolling backdrop like the game Odin Sphere with multiple layers that scroll together at different intervals, i.e. foreground, middle-ground, and background all offsetted to simulate a painted 3D effect.. I wish there was a simple solution for this but there more than likely is not. any help or references anyone knows about this type of program would be appreciated!

Space for rent.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 21st Dec 2010 15:36

Link

You can use 2D or 3D to achieve this. My current WIP (Ker-Bang) uses a background that scrolls at a different rate.

Here's a quick example. Use camX# and camY# as variables that store your current camera position and then position foreground and background sprites in a position proportional to that variable:

+ Code Snippet

LOAD IMAGE "media\bg.bmp", 1,1
LOAD IMAGE "media\mid.bmp", 2,1
LOAD IMAGE "media\for.bmp", 3,1
SPRITE 1, screen width(), screen height(), 1
SPRITE 2, screen width(), screen height(), 2
SPRITE 3, screen width(), screen height(), 3
SYNC ON : SYNC RATE 60

DO
    camX#=camX#+rightkey()-leftkey()
    camY#=camY#+upkey()-downkey()
    PASTE SPRITE 1, camX#*0.9, camY#
    PASTE SPRITE 2, camX#, camY#
    PASTE SPRITE 2, camX#*1.1, camY#
    SYNC
LOOP

Just a quick example...

Back to top

Profile PM Email

Oboro

14

Years of Service

User Offline

Joined: 27th Jul 2010

Location: Gilmer, TX

Posted: 22nd Dec 2010 14:31

Link

Ok, so I've been working with the code that you gave me first and I think I've got a good base to work with, The only problem I'm having is getting the scrolling to stop at the edge of the image which is 10000 px long.. Here's my code I think I might have to do this with a collision system no?

+ Code Snippet

LOAD IMAGE "media\bg.bmp", 1
SPRITE 1, backgroundX, SCREEN HEIGHT(), 1 `EDIT credit: baxslash
SYNC ON : SYNC RATE 60

DO
    IF RIGHTKEY()<>0
        INC backgroundX, -6
        IF backgroundX > 10000
            backgroundX = 0
        ENDIF
    ENDIF
    PASTE SPRITE 1, backgroundX, 0
    IF LEFTKEY()<>0
        INC backgroundX, 6
        IF backgroundX > 0
            backgroundX = 10000
        ENDIF
    ENDIF
    PASTE SPRITE 1, backgroundX, 0
    SYNC
LOOP

Thank you so much for helping me, it means a lot baxslash!
I was pretty nervous that people would find me an annoyance and tell me that this was too difficult for my level of experience which may be true but I hope to learn a lot more by challenging myself with basic parts of systems and then trying to marry the code together using a flow chart.
Cheers!

Space for rent.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 23rd Dec 2010 10:06

Link

No problem. It might be too much to start with but who knows, and it's not like you're giving any attitude over the responses like some newcomers do.

Some people get frustrated and act like they know more than they actually do. That can annoy experienced users and put them off trying to help. I'd rather help someone like you who is maybe trying something too difficult but is grateful for the help!

You're wanting to stop at the end of your image so maybe you need to stop that distance minus your screen width:

+ Code Snippet

LOAD IMAGE "media\bg.bmp", 1
SPRITE 1, backgroundX, SCREEN HEIGHT(), 1 `EDIT credit: baxslash
SYNC ON : SYNC RATE 60

`using variables for stuff like this helps tidy your code
`and reduce the number of calculations you are making each loop
minx = screen width()+10000
maxx = 0

DO
    IF RIGHTKEY()<>0
        DEC backgroundX, 6 `DEC does the opposite of INC :)
        IF backgroundX < minx
            backgroundX = minx
        ENDIF
    ENDIF
    `you only need to paste the sprite in once at the end of this section
    `PASTE SPRITE 1, backgroundX, 0
    IF LEFTKEY()<>0
        INC backgroundX, 6
        IF backgroundX > maxx
            backgroundX = maxx
        ENDIF
    ENDIF
    PASTE SPRITE 1, backgroundX, 0
    SYNC
LOOP

Try that and see if it helps (check my comments)...

Back to top

Profile PM Email

Oboro

14

Years of Service

User Offline

Joined: 27th Jul 2010

Location: Gilmer, TX

Posted: 23rd Dec 2010 14:49 Edited at: 27th Dec 2010 07:43

Link

I never thought about it that way! Ok, I shall try this now, thanks again!

LMAO! it worked like a charm with exception of the

+ Code Snippet

minx = screen width()+10000

It needed to be minus because of the decreasing variable lol I plugged it in and set it a-rollin' with a print attached to the minx variable and had a wtf moment when it didn't work and realized that it was returning a negative number~

Space for rent.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Code Check