SIMPLE BITMAP QUEST. - GameCreators Forum

Author

Message

Los

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Location:

Posted: 5th Jan 2005 07:19

Link

+ Code Snippet

CLS 0
SET DISPLAY MODE 640,480,16

load BITMAP "fake.bmp",19
load BITMAP "ring.bmp",20
load BITMAP "wander.bmp",21
load BITMAP "wiz.bmp",22



DO
SET CURRENT BITMAP 0
PRINT "PRESS SPACE"
SUSPEND FOR KEY
CLS 0
FOR A=19 TO 22
   SET CURRENT BITMAP A
   COPY BITMAP A,0
   PRINT A
   WAIT 3000
   CLS 0
   STUN=A
NEXT A
PRINT STUN
LOOP

Do me a favour and look at this code. Tell me why I can't see any bitmaps being displayed on the second time round. It's this simple stuff like this that puts me off making a longer program.

Back to top

Profile PM

AJay

22

Years of Service

User Offline

Joined: 24th Jan 2004

Location:

Posted: 5th Jan 2005 08:14

Link

try putting sync at the end of the loop.

This may not help at all since i am a newbie. But it wont hurt to try

128MB ATI All In Wonder 9200 AGP video card, 768 MB of Ram, 2.4 Ghz Pentium 4 processor, 768 MB of ram, 64 bit sound blaster live, 40 Gig hard drive. -AJay- Much thanks to Coding Area

Back to top

Profile PM Email Website

pizzaman

22

Years of Service

User Offline

Joined: 18th Feb 2004

Location: Gateshead, UK

Posted: 5th Jan 2005 18:16

Link

Theres a few problems wrong with your code the main one being:
You didn't tell the computer to update the screen anywhere (sync command)

I modified your code a little bit see if you understand the changes; if not post back

+ Code Snippet

`CLS 0 - don't need this as the screen always starts black
SET DISPLAY MODE 640,480,16

load BITMAP "fake.bmp",19
load BITMAP "ring.bmp",20
load BITMAP "wander.bmp",21
load BITMAP "wiz.bmp",22

`moved this outside main loop as you only need to call it once, not every loop
SET CURRENT BITMAP 0

DO
text 0,0,"PRESS SPACE"
sync
SUSPEND FOR KEY
CLS 0
FOR A=19 TO 22
   `SET CURRENT BITMAP A - Don't need this I moved it above
   COPY BITMAP A,0
   `replaced print with text - its much better to use text
   text 0,0,str$(A)
   sync
   WAIT 3000
   CLS 0
   `just wondering why you have this below and....
   STUN=A
NEXT A
`....why you have this because STUN will always equal 22 
text 0,0,str$(STUN)
sync
LOOP

Back to top

Profile PM Email

Los

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Location:

Posted: 6th Jan 2005 03:46

Link

cheers for the simple version pizzadude.. I got out of the situation by making it alittle more complicated..

SET CURRENT BITMAP 0
FOR A=19 TO 22
SET CURRENT BITMAP A
COPY BITMAP A,0
set current bitmap 0
COPY BITMAP A,0
PRINT A
WAIT 3000
CLS 0
NEXT A

STUN was something just to check if it completed the FOR loop each time I was that scared.. I'll try and get something to show ya with this proggy

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / SIMPLE BITMAP QUEST.