paste image - GameCreators Forum

Author

Message

demons breath

20

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 5th Dec 2003 19:58 Edited at: 5th Dec 2003 22:19

Link

When I run my program, as soon as it gets to the menu the mouse freezes. What am I doing wrong?

+ Code Snippet

sync rate 0
sync on
hide mouse

center text 320,240,"Please Wait..."
load music "music\mymercy.mp3",1
loop music 1

cls
load bitmap "bitmaps\demonsbreathlogo.bmp",1
i=1 : s=20

for a=100 to 0 step -5

	get image i,0,0,640,151
	fade bitmap 1,a
	inc i

next a

set current bitmap 0

for a=i-1 to 1 step -1
	paste image a,0,150
	sleep s
	sync
next a

sleep 2000

cls
load bitmap "bitmaps\anarchy.bmp",1
i=1 : s=20

for a=100 to 0 step -5

	get image i,0,0,640,151
	fade bitmap 1,a
	inc i

next a

set current bitmap 0

for a=i-1 to 1 step -1
	paste image a,0,150
	sleep s
	sync
next a
suspend for key
cls

show mouse
load image "bitmaps\anarchymenu.bmp",1
paste image 1,0,0
wait 100
do
if mousey()<160 and mouseclick()=1
	goto newgame
endif
loop
newgame:
end

Am I the only one here who's really confused?
In the shadow of the valley of death we will need our torches.

Back to top

Profile PM Website

D I G I T A L

21

Years of Service

User Offline

Joined: 22nd Jun 2003

Location: Dubai, UAE

Posted: 6th Dec 2003 01:20

Link

if i were u id put the Sync ON and then Sync Rate. and another thing, put a SYNC just before ur LOOP.

hope i helped

‘Those who ignore the lessons of the past are doomed to repeat them’ (Napoleon)

Back to top

Profile PM Website

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 6th Dec 2003 08:37

Link

It works here.

You could load an image and use a sprite and sprite alpha to fade in the sprite.

+ Code Snippet

sync on
hide mouse

`make an image to use
create bitmap 1,640,480
box 0,0,320,240
box 320,240,640,480
get image 1,0,0,640,480,1
delete bitmap 1
`end make an image
`comment make an image out if an use `load image if you have an image
`load image "filename",1,1

sprite 1,0,0,1

i as integer

for i = 0 to 255
  cls rgb(0,0,0)
  set sprite alpha 1,i
  sync
  wait 20
next i

delete sprite 1
delete image 1
show mouse
cls
text 0,0,"Press a key to exit"
sync
wait key

dbpro : p166mmx @ 233 : 256mb : sb 128pci : sis onboard

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / paste image