Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

10.1: Animierte Spielfigur

Uploader:Redakteurnemored
Datum/Zeit:29.10.2011 00:42:00
Hinweis: Dieser Quelltext ist Bestandteil des Projekts OpenBook: 2D-Spieleprogrammierung, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

' *** CODE 10.1: Animierte Spielfigur

DIM AS INTEGER breite = 80, hoehe = 150, anzahl = 10, nr = 0
SCREENRES breite, hoehe, 32
DIM AS ANY PTR animation = IMAGECREATE(breite*anzahl, hoehe)
BLOAD "walking.bmp", animation

DO
  PUT (0, 0), animation, (nr*breite, 0)-STEP(breite-1, hoehe-1), PSET
  SLEEP 100
  nr = (nr+1) MOD anzahl    ' naechstes Bild
LOOP UNTIL INKEY <> ""      ' Ende bei Tastendruck
IMAGEDESTROY animation