Problem with moving background? - GameCreators Forum

Author

Message

WAKS

11

Years of Service

User Offline

Joined: 5th Oct 2013

Location: Oslo, Norway

Posted: 25th Oct 2013 22:59

Link

Hi, I am in need of some help!
I'll post a video containing the problem, but the description is that: I've coded a background to a 2D game that's meant to change into two separate backgrounds, and the one one the left will slowly inch toward the end to then change into the rest of the next background. Now, I managed to do this, but when the first background changes, the game freezes up on me. I'll post the codes I've used here as well, so do anyone have any ideas or solutions?

Here is my whole game code

Rem Project: 2D project
Rem Created: Sunday, October 06, 2013

Rem ***** Main Source File *****

#constant bg 6
#constant bg2 23
#constant platform 2
#constant BGscore 3
#constant Wood 54
#constant wood2 55
#constant Invisible_Wall 13
#constant Hotspot1 44
#constant Hotspot2 45

#constant m1 77
#constant m2 78
#constant m3 79
#constant m4 80

Rem *********PLAYER********

#constant _TRUE = 1
#constant _FALSE = 0
#constant _JUMPSPEED 4
#constant _JUMPPOWER 15
x# = 50
y# = 685
speed# = 4
health=100

Rem *********PLAYER_ENEMY************

#constant _TRUE2 = 1
#constant _FALSE2 = 0
#constant _JUMPSPEED2 4
#constant _JUMPPOWER2 15
#constant enemy 7
E# = 50*17
Y2# = 672
speed2# = 4
Health2=100

Rem *********DISPLAY*********

AUTOCAM OFF
BACKDROP ON
COLOR BACKDROP 0
SYNC
SYNC RATE 60
SYNC ON
SET DISPLAY MODE 1024, 768, 32,

Rem *********LOAD_IMAGE**********

Load image "sprites\TRYMS\industri11.jpg", bg
Load image "sprites\TRYMS\industri1.jpg", 223
Load image "sprites\TRYMS\industri22.jpg", bg2
Load image "sprites\TRYMS\industri.jpg", 222
Load image "sprites\TRYMS\in.jpg", 224
Load image "sprites\TRYMS\platform.png", platform
Load image "sprites\TRYMS\SCORE.png", BGscore
Load image "sprites\TRYMS\wood2.png", Wood 
Load image "Sprites\TRYMS\wood3.png", wood2
Load image "Sprites\TRYMS\Invisiblewall.png", Invisible_wall
Load image "Sprites\TRYMS\Hotspothead.png", Hotspot1 
Load image "Sprites\TRYMS\chest.png", Hotspot2

Rem *********MUSIC***************

Load music "Music\Killer instinct.mp3",m1
Load music "Music\Charlie_Bravo.mp3",m2
Load music "Music\Derailer.mp3",m3
Load music "Music\All Your Base.mp3",m4

Rem **************SFX*****************

Load sound "SFX\test.wav",99

Rem *********ENEMY_SPRITE***********

create animated sprite 7, "sprites\TRYMS\sprite2.png", 1,1,7
sprite 7, 32*30, 672, 7
mirror sprite 7
show sprite 7

Rem *********RANDOMBOX_SPRITE***********

create animated sprite 10, "sprites\TRYMS\Randombox.png",1,1,10
sprite 10,32*77, 448,10 
show sprite 10

Rem **********COIN_SPRITE***********

create animated sprite 8, "sprites\TRYMS\coin.png",1,1,8
sprite 8,32*77, 448,8 
show sprite 8

create animated sprite 9, "sprites\TRYMS\coin.png",1,1,9
sprite 9,32*77, 448,9 
show sprite 9

Rem ************BACKGROUND_MOVEMENT***********

Sprite 13,-10,y,13
Sprite 14,1000,y,13
XP = 0
XJ = 512
START = 0

Rem ***********HEALTH_HEART*************

create animated sprite 66,"sprites\TRYMS\Heart2.0.png",5,3,66
sprite 66,0,-50,66
delay=150

Rem ***********HEALTH_HEART*************

create animated sprite 67,"sprites\TRYMS\Heart2.0.png",5,3,67
sprite 67,630,-50,67
delay=150

Rem ***********ANIMATED_SPRITE**********

create animated sprite 1,"sprites\TRYMS\test.bmp",5,1,1  rem we divide our bmp in five frames
sprite 1,x,690,1
delay=150
x=100
y=200
state=0   
Badass= 1
BAM= 0 :rem badass mode flag
coolDown= 0 :rem badass cooldown timer

Rem ********PASTE_IMAGE/MUSIC*********

DO

Play music m1

Paste image bg,0,0
Paste image bg2,512,0
Paste image 2,0,736,1
Paste image 2,32,736,1
Paste image 2,32*2,736,1
Paste image 2,32*3,736,1
Paste image 2,32*4,736,1
Paste image 2,32*5,736,1
Paste image 2,32*6,736,1
Paste image 2,32*7,736,1
Paste image 2,32*8,736,1
Paste image 2,32*9,736,1
Paste image 2,32*10,736,1
Paste image 2,32*11,736,1
Paste image 2,32*12,736,1
Paste image 2,32*13,736,1
Paste image 2,32*14,736,1
Paste image 2,32*15,736,1
Paste image 2,32*16,736,1
Paste image 2,32*17,736,1
Paste image 2,32*18,736,1
Paste image 2,32*19,736,1
Paste image 2,32*20,736,1
Paste image 2,32*21,736,1
Paste image 2,32*22,736,1
Paste image 2,32*23,736,1
Paste image 2,32*24,736,1
Paste image 2,32*25,736,1
Paste image 2,32*26,736,1
Paste image 2,32*27,736,1
Paste image 2,32*28,736,1
Paste image 2,32*29,736,1
Paste image 2,32*30,736,1
Paste image 2,32*31,736,1
Paste image 2,32*32,736,1

Rem ***********PLAYER_ANIMATION**********

if leftkey()=1
        x=x-1
        if state<>3 then state=3 : set sprite frame 1,2
        play sprite 1,2,6,80
      else
        if rightkey()=1
          x=x+1
          if state<>4 then state=4 : set sprite frame 1,2
          play sprite 1,2,6,80
        endif
      endif  
       
Rem *******BACKGROUND_MOVEMENT*********
 
If sprite collision(1,14)then START = 1
If START = 1
Paste image 223,XK,0
Paste image 222,512,0
dec XK, 1
endif

if XK < -512
Repeat 
Paste image 222,512,0
Paste image 224,XJ,0
dec XJ, 1
Until XJ = 0 
endif
If XJ = 0 then START = 0

Paste image Wood,-50,-40,1
Paste image Wood2,50,-40,1
Paste image 3,3,20,1
Paste image 3,920,20,1

Rem ********SCORE********
 
     Ink rgb(255,0,0),rgb(0,0,0)
        Set text font "arial"
          Set text size 50
            Text 958,47,str$(score2)

Ink rgb(255,0,0),rgb(0,0,0)
        Set text font "arial"
          Set text size 50
            Text 40,47,str$(score)

if sprite hit(1,8)=1 then inc score, 1 
 if sprite hit(7,8)=1 then inc score, 1
 
if sprite collision(1,8)then sprite 8,600,600,8
 if sprite collision(7,8)then sprite 8,600,600,8

if sprite hit(1,9)=1 then inc score, 1
 if sprite hit(7,9)=1 then inc score2, 1
 
if sprite collision(1,9)then sprite 9,600,600,9
 if sprite collision(7,9)then sprite 9,600,600,9
 
Rem ************HOTSPOTS*****************

h1x = sprite x (1)
h1y = sprite y (1) 
sprite 44,h1x+20,h1y-40,44

h2x = sprite x (7)
h2y = sprite y (7) 
sprite 45,h2x+20,h2y-7,44

h1x = sprite x (1)
h1y = sprite y (1) 
sprite 46,h1x+20,h1y+10,45

h2x = sprite x (7)
h2y = sprite y (7) 
sprite 47,h2x+20,h2y+20,45

Hide sprite 44
Hide sprite 45
Hide sprite 46
Hide sprite 47

Rem **************FIGHTING***************

if keystate(18)=1 and sprite collision (1,7) 
dec health2, 1
play sound 99
endif

if keystate(18)=1 and sprite collision (1,45) 
dec health2, 2
inc score,4
play sound 99
endif

if keystate(16)=1 and sprite collision (7,44) 
dec health1, 2
inc score2,4 
play sound 99
endif

if keystate(16)=1 and sprite collision (7,1) 
dec health, 1
play sound 99
endif

Rem *************HEART2******************

if health2>75
Play sprite 67,1,13,100
endif

if health2<=75   
Play sprite 67,1,13,75
endif

if health2<=50   
Play sprite 67,1,13,50
endif

if health2<=25   
Play sprite 67,1,13,25
endif

if health2<=10   
Play sprite 67,1,13,10
endif

if health2<=5   
Play sprite 67,1,13,2
endif

Rem ********HEAR1***********

if health>75
Play sprite 66,1,13,100
endif

if health<=75   
Play sprite 66,1,13,75
endif

if health<=50   
Play sprite 66,1,13,50
endif

if health<=25   
Play sprite 66,1,13,25
endif

if health<=10   
Play sprite 66,1,13,10
endif

if health<=5   
Play sprite 66,1,13,2
endif

if health2 = 0 
sleep 3000 
end
if health = 0 
sleep 3000
end
endif
endif

Rem *********COMBO_BADASS***********

if spacekey()=1 then inc state2,1
  if spacekey()=1 then text 350,47,"SPACE"
if spacekey()=0 then state2=0

if keystate(19)=1 then inc state2,1
  if keystate(19)=1 then text 510,47,"+ R"
if keystate(19)=0 then state2=0

if keystate(20)=1 then inc state2,1 
  if keystate(20)=1 then text 590,47,"+ T"
if keystate(20)=0 then state2=0

if state2>3 
Seconds=3: 
T=Timer()
Repeat
  Elapsed=(Timer()-T)/1000
  TimeLeft=Seconds-Elapsed 
  IK blur image 6, 3, 2
  IK gradient Radial 6, x, y, 10,10,50,200 ,5 ,2
  IK Modify Image Saturation 6, 1000.0
  IK blur image 23, 3, 2
  IK gradient Radial 23, x, y, 10,10,50,200 ,5 ,2
  IK Modify Image Saturation 23, 1000.0
Until TimeLeft<=0  
 endif

if BAM = 1
        scale sprite 1,500
        x# = x# + (rightkey()-leftkey())*speed#
       sprite 1,x#,y3#,1
   if upkey() then _Jump = _TRUE
   if _Jump = _TRUE
        inc jump#,_JUMPSPEED2
        y3#  = y3#-_JUMPPOWER2*cos(jump#)  
         if jump# = 180
            y3# = 480
            jump# = 0
            _Jump = _FALSE
         ENDIF
      ENDIF 
   ENDIF

Text 350,47,(msg$) 
  if state2>3 and coolDown <=0
     BAM = 1
     msg$= "BADASS MODE!"
     coolDown = 1 :rem doesn't actually matter what value this is as long as it's positive.
     BAMt= timer()
    endif
 
  if BAM = 0 then scale sprite 1, 100
  if coolDown >0
     coolDown= 20000 - (timer() - BAMt)
  if coolDown <10000
     BAM= 0
     msg$= "COOLDOWN  "+str$(cooldown/100)+""
    endif
  else
    msg$= ""
    endif
SYNC

Rem ********JUMP_ENEMY*********

E# = E# + (keystate(32)-keystate(30))*speed2#
    
    sprite 7,E#,Y2#,7
    
    if keystate(17) then _Jump2 = _TRUE2
    
    if _Jump2 = _TRUE2
        inc jump2#,_JUMPSPEED
        Y2#  = Y2#-_JUMPPOWER*cos(jump2#)  
        
        if jump2# = 180
            Y2# = 672
            jump2# = 0
            _Jump2 = _FALSE2
        ENDIF
    ENDIF

Rem *********JUMP_PLAYER*********

if Bam = 0

x# = x# + (rightkey()-leftkey())*speed#
    
    sprite 1,x#,y#,1
    
    if upkey() then _Jump = _TRUE
    
    if _Jump = _TRUE
        inc jump#,_JUMPSPEED2
        y#  = y#-_JUMPPOWER2*cos(jump#)  
        
        if jump# = 180
            y# = 685
            jump# = 0
            _Jump = _FALSE
        ENDIF
    ENDIF
ENDIF

Rem ******************************

LOOP

+ Code Snippet

Rem Project: 2D project
Rem Created: Sunday, October 06, 2013

Rem ***** Main Source File *****

#constant bg 6
#constant bg2 23
#constant platform 2
#constant BGscore 3
#constant Wood 54
#constant wood2 55
#constant Invisible_Wall 13
#constant Hotspot1 44
#constant Hotspot2 45

#constant m1 77
#constant m2 78
#constant m3 79
#constant m4 80


Rem *********PLAYER********

#constant _TRUE = 1
#constant _FALSE = 0
#constant _JUMPSPEED 4
#constant _JUMPPOWER 15
x# = 50
y# = 685
speed# = 4
health=100

Rem *********PLAYER_ENEMY************

#constant _TRUE2 = 1
#constant _FALSE2 = 0
#constant _JUMPSPEED2 4
#constant _JUMPPOWER2 15
#constant enemy 7
E# = 50*17
Y2# = 672
speed2# = 4
Health2=100

Rem *********DISPLAY*********

AUTOCAM OFF
BACKDROP ON
COLOR BACKDROP 0
SYNC
SYNC RATE 60
SYNC ON
SET DISPLAY MODE 1024, 768, 32,

Rem *********LOAD_IMAGE**********

Load image "sprites\TRYMS\industri11.jpg", bg
Load image "sprites\TRYMS\industri1.jpg", 223
Load image "sprites\TRYMS\industri22.jpg", bg2
Load image "sprites\TRYMS\industri.jpg", 222
Load image "sprites\TRYMS\in.jpg", 224
Load image "sprites\TRYMS\platform.png", platform
Load image "sprites\TRYMS\SCORE.png", BGscore
Load image "sprites\TRYMS\wood2.png", Wood 
Load image "Sprites\TRYMS\wood3.png", wood2
Load image "Sprites\TRYMS\Invisiblewall.png", Invisible_wall
Load image "Sprites\TRYMS\Hotspothead.png", Hotspot1 
Load image "Sprites\TRYMS\chest.png", Hotspot2

Rem *********MUSIC***************

Load music "Music\Killer instinct.mp3",m1
Load music "Music\Charlie_Bravo.mp3",m2
Load music "Music\Derailer.mp3",m3
Load music "Music\All Your Base.mp3",m4 

Rem **************SFX*****************

Load sound "SFX\test.wav",99

Rem *********ENEMY_SPRITE***********

create animated sprite 7, "sprites\TRYMS\sprite2.png", 1,1,7
sprite 7, 32*30, 672, 7
mirror sprite 7
show sprite 7

Rem *********RANDOMBOX_SPRITE***********

create animated sprite 10, "sprites\TRYMS\Randombox.png",1,1,10
sprite 10,32*77, 448,10 
show sprite 10

Rem **********COIN_SPRITE***********

create animated sprite 8, "sprites\TRYMS\coin.png",1,1,8
sprite 8,32*77, 448,8 
show sprite 8

create animated sprite 9, "sprites\TRYMS\coin.png",1,1,9
sprite 9,32*77, 448,9 
show sprite 9

Rem ************BACKGROUND_MOVEMENT***********

Sprite 13,-10,y,13
Sprite 14,1000,y,13
XP = 0
XJ = 512
START = 0

Rem ***********HEALTH_HEART*************

create animated sprite 66,"sprites\TRYMS\Heart2.0.png",5,3,66
sprite 66,0,-50,66
delay=150

Rem ***********HEALTH_HEART*************

create animated sprite 67,"sprites\TRYMS\Heart2.0.png",5,3,67
sprite 67,630,-50,67
delay=150

Rem ***********ANIMATED_SPRITE**********

create animated sprite 1,"sprites\TRYMS\test.bmp",5,1,1  rem we divide our bmp in five frames
sprite 1,x,690,1
delay=150
x=100
y=200
state=0   
Badass= 1
BAM= 0 :rem badass mode flag
coolDown= 0 :rem badass cooldown timer 

Rem ********PASTE_IMAGE/MUSIC*********

DO

Play music m1

Paste image bg,0,0
Paste image bg2,512,0
Paste image 2,0,736,1
Paste image 2,32,736,1
Paste image 2,32*2,736,1
Paste image 2,32*3,736,1
Paste image 2,32*4,736,1
Paste image 2,32*5,736,1
Paste image 2,32*6,736,1
Paste image 2,32*7,736,1
Paste image 2,32*8,736,1
Paste image 2,32*9,736,1
Paste image 2,32*10,736,1
Paste image 2,32*11,736,1
Paste image 2,32*12,736,1
Paste image 2,32*13,736,1
Paste image 2,32*14,736,1
Paste image 2,32*15,736,1
Paste image 2,32*16,736,1
Paste image 2,32*17,736,1
Paste image 2,32*18,736,1
Paste image 2,32*19,736,1
Paste image 2,32*20,736,1
Paste image 2,32*21,736,1
Paste image 2,32*22,736,1
Paste image 2,32*23,736,1
Paste image 2,32*24,736,1
Paste image 2,32*25,736,1
Paste image 2,32*26,736,1
Paste image 2,32*27,736,1
Paste image 2,32*28,736,1
Paste image 2,32*29,736,1
Paste image 2,32*30,736,1
Paste image 2,32*31,736,1
Paste image 2,32*32,736,1

Rem ***********PLAYER_ANIMATION**********

      if leftkey()=1
        x=x-1
        if state<>3 then state=3 : set sprite frame 1,2
        play sprite 1,2,6,80
      else
        if rightkey()=1
          x=x+1
          if state<>4 then state=4 : set sprite frame 1,2
          play sprite 1,2,6,80
        endif
      endif  
       
Rem *******BACKGROUND_MOVEMENT*********
 
If sprite collision(1,14)then START = 1
If START = 1
Paste image 223,XK,0
Paste image 222,512,0
dec XK, 1
endif

if XK < -512
Repeat 
Paste image 222,512,0
Paste image 224,XJ,0
dec XJ, 1
Until XJ = 0 
endif
If XJ = 0 then START = 0

Paste image Wood,-50,-40,1
Paste image Wood2,50,-40,1
Paste image 3,3,20,1
Paste image 3,920,20,1

Rem ********SCORE********
 
     Ink rgb(255,0,0),rgb(0,0,0)
        Set text font "arial"
          Set text size 50
            Text 958,47,str$(score2)

     Ink rgb(255,0,0),rgb(0,0,0)
        Set text font "arial"
          Set text size 50
            Text 40,47,str$(score) 

if sprite hit(1,8)=1 then inc score, 1 
 if sprite hit(7,8)=1 then inc score, 1
 
if sprite collision(1,8)then sprite 8,600,600,8
 if sprite collision(7,8)then sprite 8,600,600,8

if sprite hit(1,9)=1 then inc score, 1
 if sprite hit(7,9)=1 then inc score2, 1
 
if sprite collision(1,9)then sprite 9,600,600,9
 if sprite collision(7,9)then sprite 9,600,600,9
 
Rem ************HOTSPOTS*****************

h1x = sprite x (1)
h1y = sprite y (1) 
sprite 44,h1x+20,h1y-40,44

h2x = sprite x (7)
h2y = sprite y (7) 
sprite 45,h2x+20,h2y-7,44

h1x = sprite x (1)
h1y = sprite y (1) 
sprite 46,h1x+20,h1y+10,45

h2x = sprite x (7)
h2y = sprite y (7) 
sprite 47,h2x+20,h2y+20,45

Hide sprite 44
Hide sprite 45
Hide sprite 46
Hide sprite 47

Rem **************FIGHTING***************

if keystate(18)=1 and sprite collision (1,7) 
dec health2, 1
play sound 99
endif

if keystate(18)=1 and sprite collision (1,45) 
dec health2, 2
inc score,4
play sound 99
endif

if keystate(16)=1 and sprite collision (7,44) 
dec health1, 2
inc score2,4 
play sound 99
endif

if keystate(16)=1 and sprite collision (7,1) 
dec health, 1
play sound 99
endif


Rem *************HEART2******************

if health2>75
Play sprite 67,1,13,100
endif

if health2<=75   
Play sprite 67,1,13,75
endif 

if health2<=50   
Play sprite 67,1,13,50
endif 

if health2<=25   
Play sprite 67,1,13,25
endif 

if health2<=10   
Play sprite 67,1,13,10
endif 

if health2<=5   
Play sprite 67,1,13,2
endif

Rem ********HEAR1***********

if health>75
Play sprite 66,1,13,100
endif

if health<=75   
Play sprite 66,1,13,75
endif 

if health<=50   
Play sprite 66,1,13,50
endif 

if health<=25   
Play sprite 66,1,13,25
endif 

if health<=10   
Play sprite 66,1,13,10
endif 

if health<=5   
Play sprite 66,1,13,2
endif

if health2 = 0 
sleep 3000 
end
if health = 0 
sleep 3000
end
endif
endif 

Rem *********COMBO_BADASS***********

if spacekey()=1 then inc state2,1
  if spacekey()=1 then text 350,47,"SPACE"
if spacekey()=0 then state2=0 

if keystate(19)=1 then inc state2,1
  if keystate(19)=1 then text 510,47,"+ R"
if keystate(19)=0 then state2=0 

if keystate(20)=1 then inc state2,1 
  if keystate(20)=1 then text 590,47,"+ T"
if keystate(20)=0 then state2=0

if state2>3 
Seconds=3: 
T=Timer()
Repeat
  Elapsed=(Timer()-T)/1000
  TimeLeft=Seconds-Elapsed 
  IK blur image 6, 3, 2
  IK gradient Radial 6, x, y, 10,10,50,200 ,5 ,2
  IK Modify Image Saturation 6, 1000.0
  IK blur image 23, 3, 2
  IK gradient Radial 23, x, y, 10,10,50,200 ,5 ,2
  IK Modify Image Saturation 23, 1000.0
Until TimeLeft<=0  
 endif

   if BAM = 1
        scale sprite 1,500
        x# = x# + (rightkey()-leftkey())*speed#
       sprite 1,x#,y3#,1
   if upkey() then _Jump = _TRUE
   if _Jump = _TRUE
        inc jump#,_JUMPSPEED2
        y3#  = y3#-_JUMPPOWER2*cos(jump#)  
         if jump# = 180
            y3# = 480
            jump# = 0
            _Jump = _FALSE
         ENDIF
      ENDIF 
   ENDIF

     Text 350,47,(msg$) 
  if state2>3 and coolDown <=0
     BAM = 1
     msg$= "BADASS MODE!"
     coolDown = 1 :rem doesn't actually matter what value this is as long as it's positive.
     BAMt= timer()
    endif
 
  if BAM = 0 then scale sprite 1, 100
  if coolDown >0
     coolDown= 20000 - (timer() - BAMt)
  if coolDown <10000
     BAM= 0
     msg$= "COOLDOWN  "+str$(cooldown/100)+""
    endif
  else
    msg$= ""
    endif
SYNC

Rem ********JUMP_ENEMY*********


    E# = E# + (keystate(32)-keystate(30))*speed2#
    
    sprite 7,E#,Y2#,7
    
    if keystate(17) then _Jump2 = _TRUE2
    
    if _Jump2 = _TRUE2
        inc jump2#,_JUMPSPEED
        Y2#  = Y2#-_JUMPPOWER*cos(jump2#)  
        
        if jump2# = 180
            Y2# = 672
            jump2# = 0
            _Jump2 = _FALSE2
        ENDIF
    ENDIF

Rem *********JUMP_PLAYER*********

if Bam = 0

    x# = x# + (rightkey()-leftkey())*speed#
    
    sprite 1,x#,y#,1
    
    if upkey() then _Jump = _TRUE
    
    if _Jump = _TRUE
        inc jump#,_JUMPSPEED2
        y#  = y#-_JUMPPOWER2*cos(jump#)  
        
        if jump# = 180
            y# = 685
            jump# = 0
            _Jump = _FALSE
        ENDIF
    ENDIF
ENDIF

Rem ******************************

LOOP

Thanks for answers

Attachments

Login to view attachments

Back to top

Profile PM

Broken_Code

14

Years of Service

User Offline

Joined: 20th Aug 2010

Location: Bremen, Germany

Posted: 28th Oct 2013 20:24

Link

First, learn about for-loops, they're awesome!
For example:
This:

+ Code Snippet

Paste image bg,0,0
Paste image bg2,512,0
Paste image 2,0,736,1
Paste image 2,32,736,1
Paste image 2,32*2,736,1
Paste image 2,32*3,736,1
Paste image 2,32*4,736,1
Paste image 2,32*5,736,1
Paste image 2,32*6,736,1
Paste image 2,32*7,736,1
Paste image 2,32*8,736,1
Paste image 2,32*9,736,1
Paste image 2,32*10,736,1
Paste image 2,32*11,736,1
Paste image 2,32*12,736,1
Paste image 2,32*13,736,1
Paste image 2,32*14,736,1
Paste image 2,32*15,736,1
Paste image 2,32*16,736,1
Paste image 2,32*17,736,1
Paste image 2,32*18,736,1
Paste image 2,32*19,736,1
Paste image 2,32*20,736,1
Paste image 2,32*21,736,1
Paste image 2,32*22,736,1
Paste image 2,32*23,736,1
Paste image 2,32*24,736,1
Paste image 2,32*25,736,1
Paste image 2,32*26,736,1
Paste image 2,32*27,736,1
Paste image 2,32*28,736,1
Paste image 2,32*29,736,1
Paste image 2,32*30,736,1
Paste image 2,32*31,736,1
Paste image 2,32*32,736,1

is the same as this:

+ Code Snippet

Paste image bg,0,0
Paste image bg2,512,0
for i=0 to 32
   Paste image 2,32*i,736,1
next i

For-loops can save you a lot of typing!
As for your Problem, I watched your Video but I'm not sure what the Problem is? Does it Crash with a message or does it just hang?

Back to top

Profile PM

WAKS

11

Years of Service

User Offline

Joined: 5th Oct 2013

Location: Oslo, Norway

Posted: 28th Oct 2013 21:24 Edited at: 28th Oct 2013 21:25

Link

Thanks Broken_code

Quote: "what the Problem is? Does it Crash with a message or does it just hang?"

The problem is that when the picture of the factory come, my game starts to hang. No error message come. Do you have any ideas about the problem?

Thanks again for your answer

Back to top

Profile PM

Broken_Code

14

Years of Service

User Offline

Joined: 20th Aug 2010

Location: Bremen, Germany

Posted: 28th Oct 2013 21:53 Edited at: 28th Oct 2013 22:05

Link

OK, I think the Problem is in here:

+ Code Snippet

Repeat 
   Paste image 222,512,0
   Paste image 224,XJ,0
   dec XJ, 1
Until XJ = 0

When the code gets here is XJ still 512?
There is no sync Statement in here so as Long as the code is here the Screen wont update!

Here\'s how I would write that:

+ Code Snippet

for i=512 to 0 step -1
   Paste image 222,512,0
   Paste image 224,i,0
   sync
next i

This way it doesn\'t matter what the value of XJ is!

Back to top

Profile PM

WAKS

11

Years of Service

User Offline

Joined: 5th Oct 2013

Location: Oslo, Norway

Posted: 28th Oct 2013 22:00 Edited at: 28th Oct 2013 22:08

Link

Thanks, I will check it out as soon as possible, and I think the for-loop will get rid of my problem

Back to top

Profile PM

Broken_Code

14

Years of Service

User Offline

Joined: 20th Aug 2010

Location: Bremen, Germany

Posted: 28th Oct 2013 22:09

Link

Here's how I would write that section:

+ Code Snippet

If START = 1
   //Move first image left
   for i=0 to -512 step -1
       Paste image 223,i,0
       Paste image 222,512,0
       sync
   next i
   //Move second image left
   for i=512 to 0 step -1
       Paste image 224,i,0
       Paste image 222,512,0
       sync
    next i
    //Set START to zero to stop this happening again next frame
    START=0
endif

I'm sure there are a Million and one better way to write it but this is simple and should work.

Good luck!

P.S. Don't Forget to Show us your game when your done!

Back to top

Profile PM

Sasuke

19

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 29th Oct 2013 04:06

Link

The best way to handle this is to treat the camera or viewing area as a position in the world which offset everything.

If we move the camera (2d position) we alter it's position in the world. Now when it comes to other things in the world, you set them up as normally, any position you want. But when it comes to drawing you offset that position by the camera's world position. So...

draw position = position - camera world position

Here's an example of this (with bounds so it doesn't go move forever):

sync on : sync rate 60

screenWidth = screen width()
screenHeight = screen height()

// create background tiles
bg1 = 1 : bg2 = 2 : bg3 = 3 : bg4 = 4
bg1X = 0 : bg2X = screenWidth : bg3X = screenWidth*2 : bg4X = screenWidth*3
for n = 1 to 4
    cls rgb(rnd(192),rnd(192),rnd(192))
    get image n,0,0,screenWidth,screenHeight,1
next

// from top left of screen
worldPosX = 0 : worldPosy = 0
worldBoundsStartX = 0 : worldBoundsEndX = screenWidth *4

// make player
playerW = 42 : playerH = 84
playerX = playerW : playerY = screenHeight-(playerH*1.5)
playerImage = 101
playerSpeed = 10

cls rgb(255,255,255)
get image playerImage,0,0,42,84,1

do : cls

// store input
    left = keystate(30) || leftkey()
    right = keystate(32) || rightkey()
    
    // if there an input, update player    
    if (left || right)
    
        inc playerX, (right-left) * playerSpeed
        
        // check weather the player hits the edge of the screen and shift the world position
        if playerX < worldPosX then worldPosX = playerX
        if (playerX+playerW) > (worldPosX+screenWidth) then worldPosX = (playerX+playerW)-screenWidth
        
        // if the player hits the world bounds then clamp movement 
        if playerX < worldBoundsStartX
            playerX = worldBoundsStartX : worldPosX = worldBoundsStartX
        endif
        
        if (playerX+playerW) > worldBoundsEndX
            playerX = worldBoundsEndX-playerW : worldPosX = worldBoundsEndX-screenWidth
        endif

endif

`note: really you should only draw things that are inside the viewing area so make sure to clip these
    // draw everything
    // draw background tiles
    paste image bg1,bg1X-worldPosX,0
    paste image bg2,bg2X-worldPosX,0
    paste image bg3,bg3X-worldPosX,0
    paste image bg4,bg4X-worldPosX,0 
    
    // draw player
    paste image playerImage,playerX-worldPosX,playerY-worldPosY
    
    sync
loop

+ Code Snippet

sync on : sync rate 60

screenWidth = screen width()
screenHeight = screen height()

// create background tiles
bg1 = 1 : bg2 = 2 : bg3 = 3 : bg4 = 4
bg1X = 0 : bg2X = screenWidth : bg3X = screenWidth*2 : bg4X = screenWidth*3
for n = 1 to 4
    cls rgb(rnd(192),rnd(192),rnd(192))
    get image n,0,0,screenWidth,screenHeight,1
next

// from top left of screen
worldPosX = 0 : worldPosy = 0
worldBoundsStartX = 0 : worldBoundsEndX = screenWidth *4

// make player
playerW = 42 : playerH = 84
playerX = playerW : playerY = screenHeight-(playerH*1.5)
playerImage = 101
playerSpeed = 10

cls rgb(255,255,255)
get image playerImage,0,0,42,84,1

do : cls

    // store input
    left = keystate(30) || leftkey()
    right = keystate(32) || rightkey()
    
    // if there an input, update player    
    if (left || right)
    
        inc playerX, (right-left) * playerSpeed
        
        // check weather the player hits the edge of the screen and shift the world position
        if playerX < worldPosX then worldPosX = playerX
        if (playerX+playerW) > (worldPosX+screenWidth) then worldPosX = (playerX+playerW)-screenWidth
        
        // if the player hits the world bounds then clamp movement 
        if playerX < worldBoundsStartX
            playerX = worldBoundsStartX : worldPosX = worldBoundsStartX
        endif
        
        if (playerX+playerW) > worldBoundsEndX
            playerX = worldBoundsEndX-playerW : worldPosX = worldBoundsEndX-screenWidth
        endif

    endif

    `note: really you should only draw things that are inside the viewing area so make sure to clip these
    // draw everything
    // draw background tiles
    paste image bg1,bg1X-worldPosX,0
    paste image bg2,bg2X-worldPosX,0
    paste image bg3,bg3X-worldPosX,0
    paste image bg4,bg4X-worldPosX,0 
    
    // draw player
    paste image playerImage,playerX-worldPosX,playerY-worldPosY
    
    sync
loop

What is cool about this method is it's easy to change the way things move or how there positioned. So say if you wanted the background to move slower than things in front of it. You can do this:

draw position = position - (camera world position/factor)

An example of this is:

sync on : sync rate 60

screenWidth = screen width()
screenHeight = screen height()

// create background tiles
bg1 = 1 : bg2 = 2 : bg3 = 3 : bg4 = 4
bg1X = 0 : bg2X = screenWidth : bg3X = screenWidth*2 : bg4X = screenWidth*3
for n = 1 to 4
    cls rgb(rnd(192),rnd(192),rnd(192))
    get image n,0,0,screenWidth,screenHeight,1
next

// create objects
dim object(50)
for n = 5 to 50
    cls rgb(rnd(192),rnd(192),rnd(192))
    get image n,0,0,20+rnd(200),20+rnd(400),1
    object(n) = rnd(screenWidth*4)
next

// from top left of screen
worldPosX = 0 : worldPosy = 0
worldBoundsStartX = 0 : worldBoundsEndX = screenWidth *4

// make player
playerW = 42 : playerH = 84
playerX = playerW : playerY = screenHeight-(playerH*1.5)
playerImage = 101
playerSpeed = 10

cls rgb(255,255,255)
get image playerImage,0,0,42,84,1

do : cls

// store input
    oldKeypress = keypress
    keypress = scancode()
    key = spacekey()
    left = keystate(30) || leftkey()
    right = keystate(32) || rightkey()
    
    
    // if there an input, update player    
    if (left || right)
    
        inc playerX, (right-left) * playerSpeed
        
        // check weather the player hits the edge of the screen and shift the world position
        if playerX < worldPosX then worldPosX = playerX
        if (playerX+playerW) > (worldPosX+screenWidth) then worldPosX = (playerX+playerW)-screenWidth
        
        // if the player hits the world bounds then clamp movement 
        if playerX < worldBoundsStartX
            playerX = worldBoundsStartX : worldPosX = worldBoundsStartX
        endif
        
        if (playerX+playerW) > worldBoundsEndX
            playerX = worldBoundsEndX-playerW : worldPosX = worldBoundsEndX-screenWidth
        endif

endif

`note: really you should only draw things that are inside the viewing area so make sure to clip these
    // draw everything
    // draw background tiles
    backgroundMovementScale# = 0.5
    offset = worldPosX * backgroundMovementScale#
    
    paste image bg1,bg1X-offset,0
    paste image bg2,bg2X-offset,0
    paste image bg3,bg3X-offset,0
    paste image bg4,bg4X-offset,0
    
    // draw objects   
    for n = 5 to 50
        y = screenHeight-image height(n)
        paste image n,object(n)-worldPosX,y
    next
    
    // draw player
    paste image playerImage,playerX-worldPosX,playerY-worldPosY
    
    sync
loop

+ Code Snippet

sync on : sync rate 60

screenWidth = screen width()
screenHeight = screen height()

// create background tiles
bg1 = 1 : bg2 = 2 : bg3 = 3 : bg4 = 4
bg1X = 0 : bg2X = screenWidth : bg3X = screenWidth*2 : bg4X = screenWidth*3
for n = 1 to 4
    cls rgb(rnd(192),rnd(192),rnd(192))
    get image n,0,0,screenWidth,screenHeight,1
next

// create objects
dim object(50)
for n = 5 to 50
    cls rgb(rnd(192),rnd(192),rnd(192))
    get image n,0,0,20+rnd(200),20+rnd(400),1
    object(n) = rnd(screenWidth*4)
next

// from top left of screen
worldPosX = 0 : worldPosy = 0
worldBoundsStartX = 0 : worldBoundsEndX = screenWidth *4

// make player
playerW = 42 : playerH = 84
playerX = playerW : playerY = screenHeight-(playerH*1.5)
playerImage = 101
playerSpeed = 10

cls rgb(255,255,255)
get image playerImage,0,0,42,84,1

do : cls

    // store input
    oldKeypress = keypress
    keypress = scancode()
    key = spacekey()
    left = keystate(30) || leftkey()
    right = keystate(32) || rightkey()
    
    
    // if there an input, update player    
    if (left || right)
    
        inc playerX, (right-left) * playerSpeed
        
        // check weather the player hits the edge of the screen and shift the world position
        if playerX < worldPosX then worldPosX = playerX
        if (playerX+playerW) > (worldPosX+screenWidth) then worldPosX = (playerX+playerW)-screenWidth
        
        // if the player hits the world bounds then clamp movement 
        if playerX < worldBoundsStartX
            playerX = worldBoundsStartX : worldPosX = worldBoundsStartX
        endif
        
        if (playerX+playerW) > worldBoundsEndX
            playerX = worldBoundsEndX-playerW : worldPosX = worldBoundsEndX-screenWidth
        endif

    endif

    `note: really you should only draw things that are inside the viewing area so make sure to clip these
    // draw everything
    // draw background tiles
    backgroundMovementScale# = 0.5
    offset = worldPosX * backgroundMovementScale#
    
    paste image bg1,bg1X-offset,0
    paste image bg2,bg2X-offset,0
    paste image bg3,bg3X-offset,0
    paste image bg4,bg4X-offset,0
    
    // draw objects   
    for n = 5 to 50
        y = screenHeight-image height(n)
        paste image n,object(n)-worldPosX,y
    next
    
    // draw player
    paste image playerImage,playerX-worldPosX,playerY-worldPosY
    
    sync
loop

"Get in the Van!" - Van B

Back to top

Profile PM Email

WAKS

11

Years of Service

User Offline

Joined: 5th Oct 2013

Location: Oslo, Norway

Posted: 30th Oct 2013 22:27

Link

Thanks for your help

I have tried to use your code-example Broken_code, but my game still hangs. I tried to experiment with the for-step-loop, and then my game stopped to hang

But now I have other problems, my frame rate drop from 60 to 38/40 after the image has changed. I have attached a video

Here is my new code

+ Code Snippet

Rem *******BACKGROUND_MOVEMENT*********
 
If sprite collision(1,14)then START = 1
If START = 1
Paste image 223,XK,0
Paste image 222,512,0
dec XK, 1
endif

if XK < -512
for i=0 to -512 step -1
Paste image 222,512,0
Paste image 224,XJ,0
next i
XJ = 0
endif
If XJ = 0 then START = 0

Paste image Wood,-50,-40,1
Paste image Wood2,50,-40,1
Paste image 3,3,20,1
Paste image 3,920,20,1

Attachments

Login to view attachments

Back to top

Profile PM

Sasuke

19

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 30th Oct 2013 23:04

Link

I really don't understand what your trying to achieve here. Cause both video have on collision half of the next background appear and the first background slowly move out the way until the second full background appears.

Also:

Quote: "
for i=0 to -512 step -1
Paste image 222,512,0
Paste image 224,XJ,0
next i
"

Why are you pasting these 2 images 512 times in a single frame at the same position? Also when START = 0, XK will still be is less than -512 so it will keep pasting those 2 images 512 times a frame!

"Get in the Van!" - Van B

Back to top

Profile PM Email

WAKS

11

Years of Service

User Offline

Joined: 5th Oct 2013

Location: Oslo, Norway

Posted: 31st Oct 2013 11:11 Edited at: 31st Oct 2013 11:14

Link

Quote: "I really don't understand what your trying to achieve here"

In the game me and my friend is creating, we're adding a sort of DOA effect where one character can be knocked off the map you're on. Though, instead of having the second character pop out of no-where on the second map, we're cutting the screen in to and creating the effect that the two characters are on different parts of the map, and one has to go to the other

Back to top

Profile PM

Broken_Code

14

Years of Service

User Offline

Joined: 20th Aug 2010

Location: Bremen, Germany

Posted: 31st Oct 2013 11:41 Edited at: 31st Oct 2013 11:45

Link

@ Sasuke:
The effect can be seen in the vid on the first post! I didn't immediately get it either...

@WAKS:
I think you've misunderstood what I was trying to do!
Here's some Explanation:

+ Code Snippet

for i=0 to -512 step -1      //This says 'make i go from 0 to -512 in steps of -1'
    Paste image 223,i,0      //This pastes this Image 233 at (x,y)=(i,0), i changes every Loop of the for-loop so the Image will be pasted
                             //in a slightly different Position each for-Loop and appear to move accross the Screen! 
    Paste image 222,512,0   //This pastes the other Image, nothing interesting!
    sync                    //This is very important, this draws everything to the Screen, without this command nothing will appear on screen!
next i                     //This moves to the next i value (i=i+step)

However in your code:

+ Code Snippet

if XK < -512             //I don't know what XK is ???
  for i=0 to -512 step -1  //Start of for-loop from 0 to -512
    Paste image 222,512,0    //Paste Image 222 at (x,y)=(512,0)
    Paste image 224,XJ,0     //Paste Image 224 at (x,y)=(XJ,0) !!!! XJ WILL NOT CHANGE WITHIN THIS FOR LOOP!!!!
                         //NO SYNC FUNCTION!!! NOTHING IN THIS LOOP WILL BE DRAWN TO THE SCREEN!!!
  next i                   //This moves to the next i value (i=i+step)
  XJ = 0                   //I don't know what XK is ???
endif                    //Closing the if statement

I don't want to be patronising but there is a quite difference here...

[EDIT] Clarity

Back to top

Profile PM

WAKS

11

Years of Service

User Offline

Joined: 5th Oct 2013

Location: Oslo, Norway

Posted: 31st Oct 2013 12:10

Link

Thanks Broken_code

Quote: "I think you've misunderstood what I was trying to do!"

I am sorry if I have misunderstood everything. I am a beginner in DarkBasic pro therefore I do a lot of faults

I tried your code-example, but I recieved a big problem. After my background move was finished, it would't stop, and it continued to move out of the screen, and the original background repeat the whole process again

Therefore I tried to experiment with connect your code idea into my original code

Quote: "if XK < -512 //I don't know what XK is ???"

XK = 0

Quote: " XJ = 0 //I don't know what XK is ???"

XJ = 512

Quote: " //NO SYNC FUNCTION!!! "

I tried the sync command, but when sync is on, and the moving background process is done. Then the left side picture becomes delete and the blue standard background appears

Thank you for using your time to help me

Back to top

Profile PM

Sasuke

19

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 31st Oct 2013 12:13 Edited at: 31st Oct 2013 12:15

Link

Quote: "
for i=0 to -512 step -1 //This says 'make i go from 0 to -512 in steps of -1'
Paste image 223,i,0 //This pastes this Image 233 at (x,y)=(i,0), i changes every Loop of the for-loop so the Image will be pasted
//in a slightly different Position each for-Loop and appear to move accross the Screen!
Paste image 222,512,0 //This pastes the other Image, nothing interesting!
sync //This is very important, this draws everything to the Screen, without this command nothing will appear on screen!
next i //This moves to the next i value (i=i+step)
"

The problem here is image 222 is being pasted in the same place 512 times for no reason, the loop speed is very depended fps, they'll be a huge delay(depended on fps how long) before anything else can update that's outside of the loop, everything after it won't draw unless you have an active backdrop.

Quote: "In the game me and my friend is creating, we're adding a sort of DOA effect where one character can be knocked off the map you're on. Though, instead of having the second character pop out of no-where on the second map, we're cutting the screen in to and creating the effect that the two characters are on different parts of the map, and one has to go to the other "

Ahh now this all makes sense! What I want to know is how the split screen works, so if two players are on different maps, do you want there background to move aswell based on there location on that map. And if the two player meets the view un-splits, something like that?

If I know exactly what your trying to do then I(we) know the best course of action to take

"Get in the Van!" - Van B

Back to top

Profile PM Email

Broken_Code

14

Years of Service

User Offline

Joined: 20th Aug 2010

Location: Bremen, Germany

Posted: 31st Oct 2013 12:59

Link

Quote: "Ahh now this all makes sense! What I want to know is how the split screen works, so if two players are on different maps, do you want there background to move aswell based on there location on that map. And if the two player meets the view un-splits, something like that?

If I know exactly what your trying to do then I(we) know the best course of action to take "

Ah, I'd assumed it was a cut-scene sort of Thing?! Is that right?

Quote: "I am sorry if I have misunderstood everything. I am a beginner in DarkBasic pro therefore I do a lot of faults "

np, I probably didn't explain it very well!

Everyone's a beginner at some Point, even EVOLVED!

Quote: "I tried the sync command, but when sync is on, and the moving background process is done. Then the left side picture becomes delete and the blue standard background appears "

The sync command is Needed to draw everything to the Screen, so if it is left out of the Loop None of the changes will appear on Screen!

Back to top

Profile PM

WAKS

11

Years of Service

User Offline

Joined: 5th Oct 2013

Location: Oslo, Norway

Posted: 31st Oct 2013 13:18

Link

@ Sasuke

Quote: "Ahh now this all makes sense! What I want to know is how the split screen works, so if two players are on different maps, do you want there background to move aswell based on there location on that map. And if the two player meets the view un-splits, something like that?

If I know exactly what your trying to do then I(we) know the best course of action to take."

Yes, that's what I'd like to do, could you help with that?

Back to top

Profile PM

WAKS

11

Years of Service

User Offline

Joined: 5th Oct 2013

Location: Oslo, Norway

Posted: 31st Oct 2013 13:50 Edited at: 31st Oct 2013 14:03

Link

@ Broken_code

Quote: "P.S. Don't Forget to Show us your game when your done!"

Afterward when we have worked a little bit more with the game I will post it on the showcase or work in progress page on TGC

@ Sasuke

Quote: "The problem here is image 222 is being pasted in the same place 512 times for no reason, the loop speed is very depended fps, they'll be a huge delay(depended on fps how long) before anything else can update that's outside of the loop, everything after it won't draw unless you have an active backdrop."

yeah, thanks it fix my fps drop

Now i have no problems with my moving background idea, and I will thank again for all the help I have received

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Problem with moving background?

Attachments

Attachments