Making animations in Screen 12

[Wing]

How do i make an animation i use screen 12

[na_th_an]

What kind of animation? Sprites? Vectorial? Scroller? Raster effect?

Maybe you just need to know which commands are used for graphics... Look CLS, LINE, PAINT, CIRCLE, DRAW, PSET, PUT, GET in QB help, and follow the links.

[Neo]

First start with static sprites if you do not have any knowledge about them yet

[Wing]

i know all this commands but is it only to put an image over the other with put

[Neo]

Yes, that sort of animation is called sprite animation.

[Zap]

Too animate in screen 12 using sprites, you simply:

1: Draw the image
2: Wait (Animation delay)
3: Deleting the image (Not using CLS, but drawing it over with the background colour)
4: Draw image at new position, and repeat 2-4.

But i would suggest you use a mode with pages (ie. mode 7), or a hi-res/many colours gfx library if you need higher resolution (DirectQB for a start).

/Zap

[NovaProgramming]

IN OTHER WORDS

do something like this

Code:

'Able to move a circle around on the screen using w,s,a,d
x = 50
y = 50
'starting coordinates...near upperleft
DO
press$ = inkey$
'using inkey$ by itself does not work too good.
line (x+2,y+2)-(x-2,y-2),0,bf
circle (x,y),2
paint (x,y),2
if press$ = "w" and y > 0 then y = y - 2
if press$ = "s" and y < 480 then y = y + 2
if press$ = "a" and x > 0 then x = x - 2
if press$ = "d" and x < 640 then x = x + 2
LOOP until press$ = "q"

Well, this was not exactly my idea, you can find some of the most helpful information about QBASIC in my opinion at www.Qbasicnews.com and by clicking on the tutorials section (where I got this coding [or at least the basis for it])

[rCX]

This very large graphics tutorial was writen by "TheBOB". It has alot of examples on how to make animations in SCREEN 12. I havn't read through the whole thing yet but I think this might be what you are looking for.

The tutorial (To start tutoral: Click on qbg.exe)
Utilites and sorce code