fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

11.1: Kollisionskontrolle mit einem Farbwert

Uploader:	nemored
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

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.