Displaying text over background - GameCreators Forum

Author

Message

Serain

18

Years of Service

User Offline

Joined: 17th Jul 2006

Location:

Posted: 25th Jul 2006 20:39

Link

Hi,
I'm trying to display some text in my game using the "Print" command. But the text appears under my background (even though the "Print" command is after the command that draws my background). It might be because I'm using the "Sprite" command to draw my background, but I don't know how else I could do it.

rem Sprite 1 is the Ship
rem Sprites 3 - 502 are Bullets
rem Sprites 550 - 570 are Enemies
rem Sprite 2 is the Background

Sync On
Sync Rate 30
Hide Mouse

Set Display Mode 800,600,32

Set Image ColorKey 255,0,255

Load Image "ship.bmp",1
Load Image "enemy.bmp",2
Load Image "bullet.bmp",3
Load Image "background.bmp",4

Dim BulletX(500)
Dim BulletY(500)

Dim EnemyX(20)
Dim EnemyY(20)

ShipX = 400
ShipY = 500

Do

Cls

rem Display Background
Sprite 2,0,0,4

rem Mouvements
If LeftKey() = 1 And ShipX > 20
ShipX = ShipX - 20
Endif

If RightKey() = 1 And ShipX < 760
ShipX = ShipX + 20
Endif

If Inkey$() = "a"
Gosub Shoot
Endif

Gosub AddEnemy

Gosub UpdateShip

Gosub UpdateBullet

Gosub UpdateEnemies

Gosub EnemyBulletCollision

Gosub PrintScore

Sync

Loop

Shoot:
For i = 1 to 500
If BulletX(i) = 0
BulletX(i) = ShipX + 17
BulletY(i) = ShipY - 9
Sprite 2 + i,BulletX(i),BulletY(i),3
Exit
Endif
Next i
Return

UpdateShip:
Sprite 1,ShipX,ShipY,1
Return

UpdateBullet:
For i = 1 to 500
If BulletX(i) > 0
If BulletY(i) < 0
BulletY(i) = 0
BulletX(i) = 0
Endif

BulletY(i) = BulletY(i) - 25
Sprite 2 + i,BulletX(i),BulletY(i),3
Endif
Next i
Return

AddEnemy:
For i = 1 to 20
If EnemyX(i) = 0
EnemyX(i) = Rnd(700) + 40
EnemyY(i) = 10
Sprite 549 + i,EnemyX(i),EnemyY(i),2
Exit
Endif
Next i
Return

UpdateEnemies:
For i = 1 to 20
If EnemyX(i) > 0
EnemyY(i) = EnemyY(i) + 5
EnemyX(i) = EnemyX(i)
Sprite 549 + i,EnemyX(i),EnemyY(i),2
Endif

If EnemyY(i) > 600
EnemyX(i) = 0
EnemyY(i) = 0
Endif
Next i
Return

EnemyBulletCollision:
For i = 1 to 20
For j = 1 to 500
If Sprite Exist(549 + i) And Sprite Exist(2 + j)
If Sprite Hit(2 + j,549 + i) = 1
Delete Sprite 2 + j
Delete Sprite 549 + i
BulletX(j) = 0
BulletY(j) = 0
EnemyX(i) = 0
EnemyY(i) = 0
Score = Score + 10
Endif
Endif
Next j
Next i
Return

PrintScore:
Set Cursor 100,100
Text 1,1,"Score:"
Return[/quote]

Back to top

Profile PM Email

m2zt

19

Years of Service

User Offline

Joined: 12th Nov 2005

Location:

Posted: 26th Jul 2006 20:26

Link

Try using
Load bitmap "background.bmp",4 instead of
Load Image "background.bmp",4

In the do loop add
copy bitmap 4,0

And if you still cant see the text try removing the cls at the begining of the loop.

Futurama 2008

Back to top

Profile PM Email

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 26th Jul 2006 20:32 Edited at: 26th Jul 2006 20:33

Link

That won't help.

The reason you can't see the text is (as you suspect) because you are using a sprite as the backdrop.

There are two ways around your problem:

1) Don't use a sprite as a backdrop, try pasting the backdrop to a 3D plain and positioning it so that it fills the screen. There is a formula knocking around in code snippets somewhere to calculate the position for it.

2) Use bitmap fonts instead of the text command. I have got some bitmap fonts in the '2D all the way' section including functions to display them as sprites, or you can find them in the Free Media thread.

Back to top

Profile PM Email

m2zt

19

Years of Service

User Offline

Joined: 12th Nov 2005

Location:

Posted: 26th Jul 2006 20:49 Edited at: 27th Jul 2006 03:37

Link

Yes it will help.

rem Sprite 1 is the Ship
rem Sprites 3 - 502 are Bullets
rem Sprites 550 - 570 are Enemies
rem Sprite 2 is the Background

Sync On
Sync Rate 30
Hide Mouse

Set Display Mode 800,600,32

Set Image ColorKey 255,0,255
Load Image "ship.bmp",1
Load Image "enemy.bmp",2
Load Image "bullet.bmp",3
Load bitmap "background.bmp",1

Dim BulletX(500)
Dim BulletY(500)

Dim EnemyX(20)
Dim EnemyY(20)

ShipX = 400
ShipY = 500

Do

copy bitmap 1,0
set current bitmap 0

rem Display Background
`Sprite 2,0,0,4

rem Mouvements
If LeftKey() = 1 And ShipX > 20
ShipX = ShipX - 20
Endif

If RightKey() = 1 And ShipX < 760
ShipX = ShipX + 20
Endif

If Inkey$() = "a"
Gosub Shoot
Endif

Gosub AddEnemy

Gosub UpdateShip

Gosub UpdateBullet

Gosub UpdateEnemies

Gosub EnemyBulletCollision

Gosub PrintScore

Sync

Loop

Shoot:
For i = 1 to 500
If BulletX(i) = 0
BulletX(i) = ShipX + 17
BulletY(i) = ShipY - 9
Sprite 2 + i,BulletX(i),BulletY(i),3
Exit
Endif
Next i
Return

UpdateShip:
Sprite 1,ShipX,ShipY,1
Return

UpdateBullet:
For i = 1 to 500
If BulletX(i) > 0
If BulletY(i) < 0
BulletY(i) = 0
BulletX(i) = 0
Endif

BulletY(i) = BulletY(i) - 25
Sprite 2 + i,BulletX(i),BulletY(i),3
Endif
Next i
Return

AddEnemy:
For i = 1 to 20
If EnemyX(i) = 0
EnemyX(i) = Rnd(700) + 40
EnemyY(i) = 10
Sprite 549 + i,EnemyX(i),EnemyY(i),2
Exit
Endif
Next i
Return

UpdateEnemies:
For i = 1 to 20
If EnemyX(i) > 0
EnemyY(i) = EnemyY(i) + 5
EnemyX(i) = EnemyX(i)
Sprite 549 + i,EnemyX(i),EnemyY(i),2
Endif

If EnemyY(i) > 600
EnemyX(i) = 0
EnemyY(i) = 0
Endif
Next i
Return

EnemyBulletCollision:
For i = 1 to 20
For j = 1 to 500
If Sprite Exist(549 + i) And Sprite Exist(2 + j)
If Sprite Hit(2 + j,549 + i) = 1
Delete Sprite 2 + j
Delete Sprite 549 + i
BulletX(j) = 0
BulletY(j) = 0
EnemyX(i) = 0
EnemyY(i) = 0
Score = Score + 10
Endif
Endif
Next j
Next i
Return

PrintScore:
Set Cursor 100,100
Text 1,1,"Score:"
Return

+ Code Snippet


rem Sprite 1 is the Ship
rem Sprites 3 - 502 are Bullets
rem Sprites 550 - 570 are Enemies
rem Sprite 2 is the Background


Sync On
Sync Rate 30
Hide Mouse

Set Display Mode 800,600,32

Set Image ColorKey 255,0,255
Load Image "ship.bmp",1
Load Image "enemy.bmp",2
Load Image "bullet.bmp",3
Load bitmap "background.bmp",1

Dim BulletX(500)
Dim BulletY(500)

Dim EnemyX(20)
Dim EnemyY(20)

ShipX = 400
ShipY = 500


Do

copy bitmap 1,0
set current bitmap 0


rem Display Background
`Sprite 2,0,0,4

rem Mouvements
If LeftKey() = 1 And ShipX > 20
ShipX = ShipX - 20
Endif

If RightKey() = 1 And ShipX < 760
ShipX = ShipX + 20
Endif

If Inkey$() = "a"
Gosub Shoot
Endif

Gosub AddEnemy

Gosub UpdateShip

Gosub UpdateBullet

Gosub UpdateEnemies

Gosub EnemyBulletCollision

Gosub PrintScore

Sync

Loop


Shoot:
For i = 1 to 500
If BulletX(i) = 0
BulletX(i) = ShipX + 17
BulletY(i) = ShipY - 9
Sprite 2 + i,BulletX(i),BulletY(i),3
Exit
Endif
Next i
Return

UpdateShip:
Sprite 1,ShipX,ShipY,1
Return

UpdateBullet:
For i = 1 to 500
If BulletX(i) > 0
If BulletY(i) < 0
BulletY(i) = 0
BulletX(i) = 0
Endif

BulletY(i) = BulletY(i) - 25
Sprite 2 + i,BulletX(i),BulletY(i),3
Endif
Next i
Return

AddEnemy:
For i = 1 to 20
If EnemyX(i) = 0
EnemyX(i) = Rnd(700) + 40
EnemyY(i) = 10
Sprite 549 + i,EnemyX(i),EnemyY(i),2
Exit
Endif
Next i
Return

UpdateEnemies:
For i = 1 to 20
If EnemyX(i) > 0
EnemyY(i) = EnemyY(i) + 5
EnemyX(i) = EnemyX(i)
Sprite 549 + i,EnemyX(i),EnemyY(i),2
Endif

If EnemyY(i) > 600
EnemyX(i) = 0
EnemyY(i) = 0
Endif
Next i
Return


EnemyBulletCollision:
For i = 1 to 20
For j = 1 to 500
If Sprite Exist(549 + i) And Sprite Exist(2 + j)
If Sprite Hit(2 + j,549 + i) = 1
Delete Sprite 2 + j
Delete Sprite 549 + i
BulletX(j) = 0
BulletY(j) = 0
EnemyX(i) = 0
EnemyY(i) = 0
Score = Score + 10
Endif
Endif
Next j
Next i
Return

PrintScore:
Set Cursor 100,100
Text 1,1,"Score:"
Return

The code is tested and the score does show up on the screen. But your methods work too. I just havent tried them myself.

Futurama 2008

Back to top

Profile PM Email

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 26th Jul 2006 21:28

Link

Perhaps when I said it won't help I should have phrased it: It may work but why the hell would anyone want the frame rate hit of copying a screen sized bitmap every loop?

It is an insane method that I wouldn't recommend to anybody.

Back to top

Profile PM Email

Stupot

18

Years of Service

User Offline

Joined: 13th Jul 2006

Location: East Sussex

Posted: 26th Jul 2006 23:51

Link

Does the background have to be a sprite?
Could it not be a BITMAP?. That way you could just put

+ Code Snippet

 LOAD BITMAP "background.bmp", 0

Setting it to 0 will ensure that it stays behind everything else.

Tell me if I'm talking rubbish, and I'll get my coat.

-Stu

Back to top

Profile PM

MoWL

18

Years of Service

User Offline

Joined: 27th Jul 2006

Location:

Posted: 27th Jul 2006 18:40

Link

ok i got the same problem except i got a tile map which is a whole lotta sprites? how do i change them to images then? past image? wil it work? cauz im using the line command to make a selection box in my RTS...

`--------------------------------------------------------------------------------------------
`-******************************************************************************************-
`-*************************************2D STRATEGY GAME*************************************-
`-*****************************************By MoWL******************************************-
`--------------------------------------------------------------------------------------------

`--------------------------------------------------------------------------------------------
`-                                       INITIALISING                                       -
`--------------------------------------------------------------------------------------------
`setup screen
flush video memory
set display mode 800,600,0
hide mouse
set image colorkey 255,0,255
sync on
sync rate 60

`set variables
cursor = 999
tilesizex = 32
tilesizey = 32
mapsizex = 800
mapsizey = 600
dim tiles(20,25)

`load all files
load image "media/game/cursor.bmp", cursor
load image "media/game/exitoff.bmp", 100
load image "media/game/exiton.bmp", 101

load image "media/tiles/dirt.bmp", 20
load image "media/tiles/grass.bmp", 1
load image "media/tiles/grass_dirt_bottom.bmp", 8
load image "media/tiles/grass_dirt_bottomleft.bmp", 7
load image "media/tiles/grass_dirt_bottomright.bmp", 9
load image "media/tiles/grass_dirt_left.bmp", 5
load image "media/tiles/grass_dirt_right.bmp", 6
load image "media/tiles/grass_dirt_top.bmp", 3
load image "media/tiles/grass_dirt_topleft.bmp", 2
load image "media/tiles/grass_dirt_topright.bmp", 4
load image "media/tiles/water.bmp", 10
load image "media/tiles/water_bottom.bmp", 13
load image "media/tiles/water_bottomleft.bmp", 12
load image "media/tiles/water_bottomright.bmp", 14
load image "media/tiles/water_left.bmp", 15
load image "media/tiles/water_right.bmp", 16
load image "media/tiles/water_top.bmp", 18
load image "media/tiles/water_topleft.bmp", 17
load image "media/tiles/water_topright.bmp", 19

`makes the map
for y = 1 to 20
  for x = 1 to 25
    read z
    tiles(y,x) = z
  next x
next y

`sprites the tiles to the screen
for y = 1 to 20
  for x = 1 to 25
    sprite 1000 + n, tileposx, tileposy,  tiles(y,x)
    tileposx = tileposx + 32
    n = n + 1
  next x
  tileposy = tileposy + 32
  tileposx = 0
next y

`sprites all the buttons to the screen
sprite 100,715,5,100

`--------------------------------------------------------------------------------------------
`-                                        MAIN LOOP                                         -
`--------------------------------------------------------------------------------------------

do

`get cursorx + cursory
  cursorx = mousex()
  cursory = mousey()

`sprite the new cursor onto the mouse
  sprite cursor, cursorx, cursory, cursor

`selection box
  if mouseclick() = 1 and selection = 0
    selection = 1
    bx = mouseX()
    by = mouseY()
  endif

if mouseclick() = 1 And selection = 1
    bx2 = mouseX()
    by2 = mouseY()
  endif

if mouseclick() <> 1 then selection = 0

if selection = 1

`ink rgb(0,255,0),0

line bx, by, bx2, by
    line bx2, by, bx2, by2
    line bx2, by2, bx, by2
    line bx, by2, bx, by

endif

`checks if the mouse is over any buttons
  if sprite collision(cursor,100) then exiton = 1
  if sprite collision(cursor,100) = 0 then exiton = 0
  if exiton = 1 then sprite 100,715,5,101 else sprite 100,715,5,100
  if exiton = 1 and mouseclick() = 1 then exit

`clears screen and sync
  cls
  sync

loop

`--------------------------------------------------------------------------------------------
`-                                 SUB ROUTINES + FUNCTIONS                                 -
`--------------------------------------------------------------------------------------------

data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 2, 3, 3, 3, 3, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 5,20,20,20,20, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 5,20,20,20,20, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 5,20,20,20,20, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 5,20,20,20,20, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 7, 8, 8, 8, 8, 9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

+ Code Snippet

`--------------------------------------------------------------------------------------------
`-******************************************************************************************-
`-*************************************2D STRATEGY GAME*************************************-
`-*****************************************By MoWL******************************************-
`--------------------------------------------------------------------------------------------

`--------------------------------------------------------------------------------------------
`-                                       INITIALISING                                       -
`--------------------------------------------------------------------------------------------
`setup screen
flush video memory
set display mode 800,600,0
hide mouse
set image colorkey 255,0,255
sync on
sync rate 60

`set variables
cursor = 999
tilesizex = 32
tilesizey = 32
mapsizex = 800
mapsizey = 600
dim tiles(20,25)

`load all files
load image "media/game/cursor.bmp", cursor
load image "media/game/exitoff.bmp", 100
load image "media/game/exiton.bmp", 101

load image "media/tiles/dirt.bmp", 20
load image "media/tiles/grass.bmp", 1
load image "media/tiles/grass_dirt_bottom.bmp", 8
load image "media/tiles/grass_dirt_bottomleft.bmp", 7
load image "media/tiles/grass_dirt_bottomright.bmp", 9
load image "media/tiles/grass_dirt_left.bmp", 5
load image "media/tiles/grass_dirt_right.bmp", 6
load image "media/tiles/grass_dirt_top.bmp", 3
load image "media/tiles/grass_dirt_topleft.bmp", 2
load image "media/tiles/grass_dirt_topright.bmp", 4
load image "media/tiles/water.bmp", 10
load image "media/tiles/water_bottom.bmp", 13
load image "media/tiles/water_bottomleft.bmp", 12
load image "media/tiles/water_bottomright.bmp", 14
load image "media/tiles/water_left.bmp", 15
load image "media/tiles/water_right.bmp", 16
load image "media/tiles/water_top.bmp", 18
load image "media/tiles/water_topleft.bmp", 17
load image "media/tiles/water_topright.bmp", 19

`makes the map
for y = 1 to 20
  for x = 1 to 25
    read z
    tiles(y,x) = z
  next x
next y

`sprites the tiles to the screen
for y = 1 to 20
  for x = 1 to 25
    sprite 1000 + n, tileposx, tileposy,  tiles(y,x)
    tileposx = tileposx + 32
    n = n + 1
  next x
  tileposy = tileposy + 32
  tileposx = 0
next y

`sprites all the buttons to the screen
sprite 100,715,5,100

`--------------------------------------------------------------------------------------------
`-                                        MAIN LOOP                                         -
`--------------------------------------------------------------------------------------------

do

  `get cursorx + cursory
  cursorx = mousex()
  cursory = mousey()

  `sprite the new cursor onto the mouse
  sprite cursor, cursorx, cursory, cursor

  `selection box
  if mouseclick() = 1 and selection = 0
    selection = 1
    bx = mouseX()
    by = mouseY()
  endif

  if mouseclick() = 1 And selection = 1
    bx2 = mouseX()
    by2 = mouseY()
  endif

  if mouseclick() <> 1 then selection = 0

  if selection = 1

    `ink rgb(0,255,0),0

    line bx, by, bx2, by
    line bx2, by, bx2, by2
    line bx2, by2, bx, by2
    line bx, by2, bx, by

  endif

  `checks if the mouse is over any buttons
  if sprite collision(cursor,100) then exiton = 1
  if sprite collision(cursor,100) = 0 then exiton = 0
  if exiton = 1 then sprite 100,715,5,101 else sprite 100,715,5,100
  if exiton = 1 and mouseclick() = 1 then exit

  `clears screen and sync
  cls
  sync

loop

`--------------------------------------------------------------------------------------------
`-                                 SUB ROUTINES + FUNCTIONS                                 -
`--------------------------------------------------------------------------------------------

data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 2, 3, 3, 3, 3, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 5,20,20,20,20, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 5,20,20,20,20, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 5,20,20,20,20, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 5,20,20,20,20, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 7, 8, 8, 8, 8, 9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Back to top

Profile PM Email

Cave Man

18

Years of Service

User Offline

Joined: 22nd Aug 2006

Location: North Carolina, US

Posted: 31st Aug 2006 23:52

Link

ok, this is over a month old, but here are some answers

Serain: its simple to put the background inback of text

+ Code Snippet

sync on

background = 1
LOAD IMAGE "background.bmp", background

do
PASTE IMAGE background, 0,0
ink RGB(255,255,255), 0
text 0,0,"lalala"
loop

also with sprites, you can put text infront of sprites by manually pasting the sprites.

+ Code Snippet

sync on

MakeRectIm(1,50,50,RGB(0,0,255))
sprite 1, 190,190,1

`hide all sprites so that we have complete control over them
hide all sprites
do
    cls 0
    paste sprite 1, sprite x(1),sprite y(1)

    ink RGB(255,255,255),0
    text 200,200,"lalala"
    sync
loop
Function MakeRectIm(ImNum as integer, Width as integer, Height as integer, Color as Dword)
    create bitmap 32, Width, Height
    ink Color, 0
    box 1,1,Width, Height
    get image ImNum, 1,1, Width, Height
    delete bitmap 32
endfunction

MoWL: never use sprites for tiles.
I made an example for someone, shows you how to do a tilemap

`note that the text appears over the map
sync on

Dim Tiles(1) as integer
Dim MAP(-1,-1) as integer
xscroll as integer = 0
yscroll as integer = 0
Width as integer
Height as integer

`make a grass tile so that this is medialess, change to your load image
MakeRectIm(1000, 32,32, RGB(0,255,0))
MakeRectIm(1001, 32,32, RGB(255,255,255))
`the tiles are hard coded, you should probably... unhardcode them
Tiles(0) = 1001
Tiles(1) = 1000

`tell it to start reading at the label MapData
restore MapData
`read the width and height
read width
read height
`decrease it cause were starting at zero at all our loops
dec width
dec height
undim MAP()
`redim with the width and height
dim MAP(Width,Height) as integer

`loop through and read the data
for y = 0 to height
    for x = 0 to width
        read MAP(x,y)
    next x
next y

do
cls 0
`paste the tiles, you should put this in a function
xstart = int(xscroll / 32)
ystart = int(yscroll / 32)
xend = xstart + int(screen width() / 32) + 1
yend = ystart + int(screen height() / 32) + 1
for y = ystart to yend
    for x = xstart to xend
        if x >= 0 and x <= Width and y >= 0 and y <= Height
            paste image Tiles(MAP(x,y)), (x * 32) - xscroll, (y * 32) - yscroll
        endif
    next x
next y
if rightkey() then inc xscroll, 2
if downkey() then inc yscroll, 2
if leftkey() then dec xscroll, 2
if upkey() then dec yscroll, 2
ink 0, 0
`text after we draw the map, otherwise it will apear under
text 300,300,"lalala"
sync
loop
end
`this makes a image of a rectangle so that we dont need media for this example
Function MakeRectIm(ImNum as integer, IWidth as integer, IHeight as integer, Color as Dword)
    create bitmap 32, IWidth, IHeight
    ink Color, 0
    box 0,0,IWidth, IHeight
    get image ImNum, 0,0, IWidth, IHeight, 3
    delete bitmap 32
endfunction

`all the map data
MapData:
`width and height are here
data 40,30
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
return

+ Code Snippet

`note that the text appears over the map
sync on

Dim Tiles(1) as integer
Dim MAP(-1,-1) as integer
xscroll as integer = 0
yscroll as integer = 0
Width as integer
Height as integer

`make a grass tile so that this is medialess, change to your load image
MakeRectIm(1000, 32,32, RGB(0,255,0))
MakeRectIm(1001, 32,32, RGB(255,255,255))
`the tiles are hard coded, you should probably... unhardcode them
Tiles(0) = 1001
Tiles(1) = 1000

`tell it to start reading at the label MapData
restore MapData
`read the width and height
read width
read height
`decrease it cause were starting at zero at all our loops
dec width
dec height
undim MAP()
`redim with the width and height
dim MAP(Width,Height) as integer

`loop through and read the data
for y = 0 to height
    for x = 0 to width
        read MAP(x,y)
    next x
next y





do
cls 0
`paste the tiles, you should put this in a function
xstart = int(xscroll / 32)
ystart = int(yscroll / 32)
xend = xstart + int(screen width() / 32) + 1
yend = ystart + int(screen height() / 32) + 1
for y = ystart to yend
    for x = xstart to xend
        if x >= 0 and x <= Width and y >= 0 and y <= Height
            paste image Tiles(MAP(x,y)), (x * 32) - xscroll, (y * 32) - yscroll
        endif
    next x
next y
if rightkey() then inc xscroll, 2
if downkey() then inc yscroll, 2
if leftkey() then dec xscroll, 2
if upkey() then dec yscroll, 2
ink 0, 0
`text after we draw the map, otherwise it will apear under
text 300,300,"lalala"
sync
loop
end
`this makes a image of a rectangle so that we dont need media for this example
Function MakeRectIm(ImNum as integer, IWidth as integer, IHeight as integer, Color as Dword)
    create bitmap 32, IWidth, IHeight
    ink Color, 0
    box 0,0,IWidth, IHeight
    get image ImNum, 0,0, IWidth, IHeight, 3
    delete bitmap 32
endfunction

`all the map data
MapData:
`width and height are here
data 40,30
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
return

Back to top

Profile PM

CreamPie

18

Years of Service

User Offline

Joined: 20th Jul 2006

Location:

Posted: 7th Sep 2006 03:35

Link

Serain,

Is your background animated? If it is not, then do as CaveMan has stated in his last post.

However, only paste the background ONCE, before the loop...not within it. On top of this, make sure that anything that will be covering the background(bullets, ships etc) are sprites, and that
they are set to redraw their background.

Doing this will give you a background in which text can be placed upon, and it will drastically raise your FPS. Oh yes, take out the CLS command. This clears the video memory of everything, making the program to have to fill it back kup with everything again. However, if the BG is never cleared from memory, it will always be there and the processor will be freed from having to place it back into memory each loop. Instead, it can simply pull it from video memory straight to the screen.

If you need to place text somewhere, a way to clear it from the screen would be to get a rectangle clipping of your background, the size of the text string, and paste it over the text. This will have the same effect as using CLS and the repasting the background each loop, but without the side effects of a slow FPS! This is a very important topic to learn if you wish for your programs to carry a higher FPS.

Here is an example program that does not use ClS.

` excluding the CLS command
set display mode 800,600,32
sync on : sync rate 60

` color enumerator
white = rgb(255,255,255) : grey = rgb(200,200,200)
black = rgb(0,0,0) : blue = rgb(0,0,255) : dkgrey = rgb(100,100,100)

` constants
btnwidth = 100 : btnheight = 40
btnx = (screen width() - btnwidth) / 2
btny = (screen height() - btnheight) / 2
btntext$ = "Press Me"
fpstextx = 5 : fpstexty = 5

` CLS used to initially color BG - CLS not used again after this point
ink dkgrey,dkgrey
cls
` main loop
repeat

button(btnx,btny,btnwidth,btnheight,grey,black,blue,white,btntext$)
	printfps(fpstextx,fpstexty)
	
sync
until something = 1
end

function button(xpos,ypos,width,height,bgnopress,textnopress,bgpress,textpress,word$)

left = xpos : top = ypos : right = left + width : bottom = top + height
true =1 : false = 0
mx = mousex() : my = mousey()
notpressed = 0 : pressed = 1
textx = left + ((width - text width(word$)) / 2)
texty = top + ((height - text height(word$)) / 2)

` check collision
if mx => left and mx =< right and my => top and my =< bottom
	if mouseclick() = true
		btnstate = pressed
		boxcolor = bgpress
		textcolor = textpress
	else
		btnstate = notpressed
		boxcolor = bgnopress
		textcolor = textnopress
	endif

` only draw button if its state has changed - another processor saver
if state <> oldstate 
	ink boxcolor,boxcolor
	box left,top,right,bottom
	ink textcolor,textcolor
	text textx,texty,word$
endif

endfunction

function printfps(x,y)

` constants
black = rgb(0,0,0)

` restore old area of BG before reprinting text - sprites use this type of method(processor

saver)
paste image 1,oldx,oldy
delete image 1

fpstext$ = str$(fps())
` capture area of BG that text will be covering
left = x : top = y : right = left + text width(fpstext$) : bottom = y + text height(fpstext$)
set current bitmap 0
get image 1,left,top,right,bottom

ink black,black
text x,y,fpstext$

endfunction

+ Code Snippet

` excluding the CLS command
set display mode 800,600,32
sync on : sync rate 60

` color enumerator
white = rgb(255,255,255) : grey = rgb(200,200,200)
black = rgb(0,0,0) : blue = rgb(0,0,255) : dkgrey = rgb(100,100,100)

` constants
btnwidth = 100 : btnheight = 40
btnx = (screen width() - btnwidth) / 2
btny = (screen height() - btnheight) / 2
btntext$ = "Press Me"
fpstextx = 5 : fpstexty = 5


` CLS used to initially color BG - CLS not used again after this point
ink dkgrey,dkgrey
cls
` main loop
repeat

	button(btnx,btny,btnwidth,btnheight,grey,black,blue,white,btntext$)
	printfps(fpstextx,fpstexty)
	
sync
until something = 1
end

function button(xpos,ypos,width,height,bgnopress,textnopress,bgpress,textpress,word$)

left = xpos : top = ypos : right = left + width : bottom = top + height
true =1 : false = 0
mx = mousex() : my = mousey()
notpressed = 0 : pressed = 1
textx = left + ((width - text width(word$)) / 2)
texty = top + ((height - text height(word$)) / 2)


` check collision
if mx => left and mx =< right and my => top and my =< bottom
	if mouseclick() = true
		btnstate = pressed
		boxcolor = bgpress
		textcolor = textpress
	else
		btnstate = notpressed
		boxcolor = bgnopress
		textcolor = textnopress
	endif

` only draw button if its state has changed - another processor saver
if state <> oldstate 
	ink boxcolor,boxcolor
	box left,top,right,bottom
	ink textcolor,textcolor
	text textx,texty,word$
endif

endfunction



function printfps(x,y)

` constants
black = rgb(0,0,0)

` restore old area of BG before reprinting text - sprites use this type of method(processor 

saver)
paste image 1,oldx,oldy
delete image 1

fpstext$ = str$(fps())
` capture area of BG that text will be covering
left = x : top = y : right = left + text width(fpstext$) : bottom = y + text height(fpstext$)
set current bitmap 0
get image 1,left,top,right,bottom

ink black,black
text x,y,fpstext$

endfunction

P.S. I have no compiler where I am currently at. Therefore, the program may be buggy. Check the get image commands within the fps printing function. I had no reference, therefore, the command may be typed out wrong.

>-Formerly known as NanoBrain-<

Back to top

Profile PM Email

Sorry your browser is not supported!

2D All the way! / Displaying text over background