Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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

11.1: Kollisionskontrolle mit einem Farbwert

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

' *** CODE 11.1: Kollisionskontrolle mit einem Farbwert

DIM AS INTEGER hindernisGefunden = 0        ' 0 als false-Wert
FOR i AS INTEGER = sx TO sx + sb - 1        ' ueber die ganze Breite der Figur
  IF POINT(i, sy+sh) = hindernisfarbe THEN  ' hier ist ein Hindernis
    hindernisGefunden = -1                  ' -1 als true-Wert
    EXIT FOR                                ' keine weitere Kontrolle noetig
  END IF
NEXT