How to add a pic - GameCreators Forum

Author

Message

lacorp

17

Years of Service

User Offline

Joined: 7th Nov 2006

Location:

Posted: 8th Nov 2006 00:16

Link

Hi, I am new to the forum and have a programming question.
I am making a text-based game and was wondering if it was possible to make a picture appear. Also how can I make it so the picture will disappear after 10 seconds

To err is human, to balme other people for your mistakes is management potential.

Back to top

Profile PM

lacorp

17

Years of Service

User Offline

Joined: 7th Nov 2006

Location:

Posted: 8th Nov 2006 00:20

Link

I almost forgot, the language I am using is DBP

To err is human, to balme other people for your mistakes is management potential.

Back to top

Profile PM

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 8th Nov 2006 01:30

Link

First you'll need to load the picture via the "LOAD IMAGE filename,image number" command. Next, you'll need to put the image on the screen using a sprite or the PASTE IMAGE command.

Example Code:

+ Code Snippet

Load Image "Image.jpg",1

do
paste image 1,0,0
loop

That's a little model for ya.

Tutorials:
Array
Functions

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

18

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 8th Nov 2006 01:41 Edited at: 8th Nov 2006 01:43

Link

You can paste the image to the screen with "paste image", use "timer()" to determine if 10 seconds have past and there are several ways to make the image disappear.

One method is to simply clear the screen with "cls". In this code it clears the screen and pastes the image every loop... once "sec" is zero it exits the loop and make another "cls" without pasting the image.

+ Code Snippet

` Load the image
load image "ZorkWhiteHouse.png",1,1

` Create variables to store the timer() and delay (sec) 
second=timer()
sec=10

do
 
 ` Clear the screen
 cls
 ` Paste the image to the screen
 paste image 1,0,0
 
 ` Check if a second has passed  (1000 = 1 second)
 if timer()>second+1000
  ` Reset second timer
  second=timer()
  ` Decrease the number of seconds you want to delay
  dec sec
  ` Check if sec=0 and if so exit the do/loop
  if sec=0 then exit
 endif
 
 ` Print the text
 text 0,200,"This image will dissapear in "+str$(sec)+" seconds."

loop

cls
text 0,200,"Gone!"
wait key

Or if you don't like the idea of clearing the screen (which would clear all typed text you can change the ink color to black and make a box over the picture.

+ Code Snippet

` Set the text to overwrite the background color too
set text opaque

` Load the image
load image "ZorkWhiteHouse.png",1,1

` Create variables to store the timer() and delay (sec) 
second=timer()
sec=10

` Paste the image to the screen
paste image 1,0,0

do

 ` Check if a second has passed  (1000 = 1 second)
 if timer()>second+1000
  ` Reset second timer
  second=timer()
  ` Decrease the number of seconds you want to delay
  dec sec
  ` Check if sec=0 and if so exit the do/loop
  if sec=0 then exit
 endif
 
 ` Print the text
 text 0,200,"This image will dissapear in "+str$(sec)+" seconds.   "

loop
` Change the ink color to black
ink 0,0
` Make a box to cover the image
box 0,0,300,191
` Change the ink color back to bright white
ink rgb(255,255,255),0

` This has many spaces to overwrite the previous text
text 0,200,"Gone!                                          "
wait key

You can also make the image a sprite and have it slowly fade out (since you use Pro). I'll post that code in a few hours... I've got to get back to work right now.

Attachments

Login to view attachments

Back to top

Profile PM Email

warship45

19

Years of Service

User Offline

Joined: 24th Jul 2004

Location: uk

Posted: 8th Nov 2006 08:25 Edited at: 8th Nov 2006 08:27

Link

or you could just do it like this which would be much simpler. it is not the best way to do it but for new people it is most likly easyer to understand

+ Code Snippet

`loads the image
load image "imagename",1
`pastes the image to the screen at 0,0
paste image 1,0,0
`waits 10secons
wait 10000
`clears the screen back to blank
cls
`delete the image if you are never gonig to use it agin
delete image 1

dbpro plugins
www.0z0.co.uk

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

18

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 8th Nov 2006 12:27

Link

Ack... the human world distracted me from getting here till now.

I think I sometimes get too eager to help... I need to slow down for newbies.

Here's the code using a sprite and fading it out (if you don't get it right away don't get discouraged):

` Turn on syncing  (syncing lets you control when the
`  screen updates)  (0 = as fast as the computer can take it)
sync rate 0
sync on

` Load the image
load image "ZorkWhiteHouse.png",1,1
` Create a sprite
sprite 1,0,0,1

` Create variables to store the timer() and delay (sec) 
second=timer()
sec=10

do

` Check if a second has passed  (1000 = 1 second)
 if timer()>second+1000
  ` Reset second timer
  second=timer()
  ` Decrease the number of seconds you want to delay
  dec sec
  ` Check if sec=0 and if so exit the do/loop
  if sec=0 then exit
 endif
 
 ` Print the text
 text 0,200,"This image will dissapear in "+str$(sec)+" seconds.   "
 sync  ` Update the screen
loop

` Set a timer
tim=timer()
` Create a variable to hold the sprites alpha  (255 solid to 0 invisible)
Alpha=255

` Fade out the image
do
 ` This is to slow it down so the change can be seen
 if timer()>tim+10
  ` Set the sprite alpha 
  set sprite alpha 1,Alpha
  tim=timer()  ` Reset timer()
  dec Alpha   ` Decrease Alpha
 endif
 if Alpha=0 then exit   ` Exit the do/loop if alpha=0
 sync  ` Update the screen
loop

text 0,200,"Gone!"
sync   ` Update the screen
wait key

+ Code Snippet

` Turn on syncing  (syncing lets you control when the
`  screen updates)  (0 = as fast as the computer can take it)
sync rate 0
sync on    

` Load the image
load image "ZorkWhiteHouse.png",1,1
` Create a sprite
sprite 1,0,0,1

` Create variables to store the timer() and delay (sec) 
second=timer()
sec=10

do

 ` Check if a second has passed  (1000 = 1 second)
 if timer()>second+1000
  ` Reset second timer
  second=timer()
  ` Decrease the number of seconds you want to delay
  dec sec
  ` Check if sec=0 and if so exit the do/loop
  if sec=0 then exit
 endif
 
 ` Print the text
 text 0,200,"This image will dissapear in "+str$(sec)+" seconds.   "
 sync  ` Update the screen
loop

` Set a timer
tim=timer()
` Create a variable to hold the sprites alpha  (255 solid to 0 invisible)
Alpha=255

` Fade out the image
do
 ` This is to slow it down so the change can be seen
 if timer()>tim+10
  ` Set the sprite alpha 
  set sprite alpha 1,Alpha
  tim=timer()  ` Reset timer()
  dec Alpha   ` Decrease Alpha
 endif
 if Alpha=0 then exit   ` Exit the do/loop if alpha=0
 sync  ` Update the screen
loop

text 0,200,"Gone!"
sync   ` Update the screen
wait key

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / How to add a pic

Attachments