Entitytype
Collisions
Countcollisions
Entityradius
Text
Updateworld
Renderworld
Flip

GRAPHICS3D 640,480
SETBUFFER BACKBUFFER()
camera=CREATECAMERA()
ROTATEENTITY camera,45,0,0
POSITIONENTITY camera,0,15,-10
light=CREATELIGHT()
ROTATEENTITY light,45,0,0

sphere=CREATESPHERE(32) ;Kugel erstellen
POSITIONENTITY sphere,0,11,0 ;Positionieren

cube=CREATECUBE()
 
ENTITYCOLOR cube,0,100,0
POSITIONENTITY cube,0,-5,0
SCALEENTITY cube,10,10,10

cylinder=CREATECYLINDER(32)
 ENTITYCOLOR cylinder,255,0,0
POSITIONENTITY cylinder,0,7,0
SCALEENTITY cylinder,2,2,2

ENTITYTYPE sphere,1
ENTITYTYPE cube,2
ENTITYTYPE cylinder,2

ENTITYRADIUS sphere,1

WHILE NOT KEYDOWN(1)
   x#=0
   y#=0
   z#=0
   IF KEYDOWN(203)=1 THEN x#=-0.1
   IF KEYDOWN(205)=1 THEN x#=0.1
   IF KEYDOWN(208)=1 THEN z#=-0.1
   IF KEYDOWN(200)=1 THEN z#=0.1
   MOVEENTITY sphere,x#,-0.1,z#
   UPDATEWORLD
   RENDERWORLD
   FLIP
WEND
END

COLLISIONS 1,2,2,1

WHILE NOT KEYDOWN(1)
   x#=0
   y#=0
   z#=0
   IF KEYDOWN(203)=1 THEN x#=-0.1
   IF KEYDOWN(205)=1 THEN x#=0.1
   IF KEYDOWN(208)=1 THEN z#=-0.1
   IF KEYDOWN(200)=1 THEN z#=0.1
   MOVEENTITY sphere,x#,-0.1,z#
   COLLISIONS 1,2,2,2
   UPDATEWORLD
   RENDERWORLD
   FLIP
WEND
END

   col=COUNTCOLLISIONS(sphere)
   TEXT 0,0,"Anzahl Kollisionen: "
   FOR index=1 TO col
      TEXT 000,i*20,"Entity="+COLLISIONENTITY(sphere,index)
   NEXT

WHILE NOT KEYDOWN(1)
   x#=0
   y#=0
   z#=0
   IF KEYDOWN(203)=1 THEN x#=-0.1
   IF KEYDOWN(205)=1 THEN x#=0.1
   IF KEYDOWN(208)=1 THEN z#=-0.1
   IF KEYDOWN(200)=1 THEN z#=0.1
   MOVEENTITY sphere,x#,-0.1,z#
   COLLISIONS 1,2,2,2
   UPDATEWORLD
   RENDERWORLD
   col=COUNTCOLLISIONS(sphere)
   TEXT 0,0,"Kollision(en):"
   FOR i=1 TO col
      TEXT 000,i*20,"Entity="+COLLISIONENTITY(sphere,i)
   NEXT
   FLIP
WEND
END

;KOLLISION
;
;
;
;Um eine Kollisionsabfrage in einem 3D-Spiel funktionsfähig hinzukriegen, werden folgende Befehle benötigt:
;
;

Entitytype

Collisions

Countcollisions

Entityradius

Text

Updateworld

Renderworld

Flip

;Etc.
;
;
;
;
;
;Erst erstellen wir die Kamera und ein Licht:
;
;

GRAPHICS3D 640,480
SETBUFFER BACKBUFFER()
camera=CREATECAMERA()
ROTATEENTITY camera,45,0,0
POSITIONENTITY camera,0,15,-10
light=CREATELIGHT()
ROTATEENTITY light,45,0,0

 
;
;Diese Befehle müsstest du eigentlich kennen!
;
;
;
;Dann erstellen wir drei Objekte: Eine Kugel, einen Würfel und einen Zylinder::
;
 

sphere=CREATESPHERE(32) ;Kugel erstellen
POSITIONENTITY sphere,0,11,0 ;Positionieren

cube=CREATECUBE()
 
ENTITYCOLOR cube,0,100,0
POSITIONENTITY cube,0,-5,0
SCALEENTITY cube,10,10,10

cylinder=CREATECYLINDER(32)
 ENTITYCOLOR cylinder,255,0,0
POSITIONENTITY cylinder,0,7,0
SCALEENTITY cylinder,2,2,2

 
;
;Die Kugel stellt hier den Spieler dar. Jetzt kommen wir zu den neuen Befehlen:
;
;Mit ENTITYTYPE wird dem Objekt ein Typ zugewiesen. Dieser wird nachher bei der kollisionsabfrage noch gebraucht. Also:
;
 

ENTITYTYPE sphere,1

ENTITYTYPE cube,2

ENTITYTYPE cylinder,2

 
;
;Der erste Parameter ist das Objekt, der zweite der Typ. Du könntest auch 2642 oder eine x-beliebige Zahl nehmen. Währe aber unübersichtlicher...
;
;
;
;Jetzt müssen wir noch die Reichweite festlegen, d.h., in welcher Entfernung das Objekt kollidiert. Stell dir den Radius wie ein Schutzschild vor. Den Radius legst du mit entityradius fest:
;
 
ENTITYRADIUS sphere,1

 
;
;Erster Parameter: Objekt, der zweite ist der Radius!
;
;
;
;Jetzt kommen wir zur Hauptschleife. Mit den Pfeiltasten kann man die Kugel bewegen:
;
 

WHILE NOT KEYDOWN(1)
   x#=0
   y#=0
   z#=0
   IF KEYDOWN(203)=1 THEN x#=-0.1
   IF KEYDOWN(205)=1 THEN x#=0.1
   IF KEYDOWN(208)=1 THEN z#=-0.1
   IF KEYDOWN(200)=1 THEN z#=0.1
   MOVEENTITY sphere,x#,-0.1,z#
   UPDATEWORLD
   RENDERWORLD
   FLIP
WEND
END

 

 

;
;
;Soweit, so gut. Und jetzt kommen wir zur Kollision:
;
;
;
;Wir brauchen einen Befehl, der überprüft, ob zwei Objekte miteinander kollidieren. Der heißt collisions. Er überprüft aber nicht die Kollision zwischen zwei Objekten, sondern zwischen zwei Typen. Die hast du vorher festgelegt (mit entitytype). Der Befehl überprüft also, ob also ein Objekt mit dem einen Typ mit einem Objekt mit dem zweiten Typ kollidiert. Zwei Parameter haben wir schon mal: den ersten (Typ 1) und den zweiten (Typ 2). Als dritter wird die Methode gewählt. Folgende stehen zur auswahl:
;
;1=Kugel-Kugel-Kollision
;2=Kugel-Polygon-Kollision
;3=Kugel-Würfel-Kollision
;
;Diese erkläre ich jetzt nicht, da wir immer den 2. verwenden werden!
;
;Und der vierte Parameter gibt an, was passieren soll, wenn eine Kollision stattfindet!
;
;Folgende Reaktionen stehen zur auswahl:
;
;1=stoppen
;2=sliden (normal)
;3=sliden (nur raufsliden)
;
;Stoppen ist klar. Sliden bedeutet, dass das kollidierende Objekt (Typ 1) sich einen Weg an dem Objekt vorbeisucht.
;
;Wir verwenden nur Parameter 1. Schon haben wir den Befehl collisions erarbeitet:

COLLISIONS 1,2,2,1

 

;Entspricht: Kollidiert ein Objekt mit Typ 1 (In diesem Fall Kugel) mit einem Objekt mit Typ 2 (in diesem Fall Würfel und Zylinder), und zwar über die Kugel-Polygon-Methode, dann stoppt der Typ 1.
;
;
;
;Das bauen wir jetzt nur noch in die Schleife ein:
;
 

WHILE NOT KEYDOWN(1)
   x#=0
   y#=0
   z#=0
   IF KEYDOWN(203)=1 THEN x#=-0.1
   IF KEYDOWN(205)=1 THEN x#=0.1
   IF KEYDOWN(208)=1 THEN z#=-0.1
   IF KEYDOWN(200)=1 THEN z#=0.1
   MOVEENTITY sphere,x#,-0.1,z#
   COLLISIONS 1,2,2,2
   UPDATEWORLD
   RENDERWORLD
   FLIP
WEND
END

 

;Ganz wichtig hier aber: Das Updateworld. Nur so wird richtig überprüft.
;
;Jetzt kommt etwas kompliziertes: Der Index-Wert. Natürlich können während eines Schleifendurchlaufs mehrere Kollisionen stattfinden. Jeder Kollision wird eine Nummer zugewiesen. Diese bezeichnet man auch als Index. Die Anzahl der Kollisionen ermittelt man mit countcollisions. Wenn dieser Befehl z.B. 5 zurückgibt, wissen wir, dass 5 Kollisionen stattgefunden haben. Und die erste hat den Index 1, die zweite 2, die dritte 3, die vierte 4 und die fünfte eben 5! Jetzt können wir auch ganz leicht rausfinden, mit welchem Objekt genau die Kugel kollidiert hat: Mit collisionentity. Als Parameter geben wir erstens das Ursprungsobjekt (Typ1 – Kugel) an, und als zweiten den Index. Um auch alle Kollisionen zu erfassen, machen wir das ganze in einer Schleife:
;
 

   col=COUNTCOLLISIONS(sphere)
   TEXT 0,0,"Anzahl Kollisionen: "
   FOR index=1 TO col
      TEXT 000,i*20,"Entity="+COLLISIONENTITY(sphere,index)
   NEXT

 

;Das Programm sagt sooft, wie es Kollisionen gibt, das jeweilige Objekt. Das bauen wir auch noch in die Hauptschleife ein:
;
 

 

WHILE NOT KEYDOWN(1)
   x#=0
   y#=0
   z#=0
   IF KEYDOWN(203)=1 THEN x#=-0.1
   IF KEYDOWN(205)=1 THEN x#=0.1
   IF KEYDOWN(208)=1 THEN z#=-0.1
   IF KEYDOWN(200)=1 THEN z#=0.1
   MOVEENTITY sphere,x#,-0.1,z#
   COLLISIONS 1,2,2,2
   UPDATEWORLD
   RENDERWORLD
   col=COUNTCOLLISIONS(sphere)
   TEXT 0,0,"Kollision(en):"
   FOR i=1 TO col
      TEXT 000,i*20,"Entity="+COLLISIONENTITY(sphere,i)
   NEXT
   FLIP
WEND
END

 
;
;Jetzt sind wir fertig.
;
;
;
;
;
;Jetzt könnt ihr das alles in den BB-Editor kopieren und laufen lassen! (Nicht vergessen, das wo die Objekte erstellt werden und der Radius sowie der Typ zugewiesen wird, mitzunehmen!)
;
;
;
;Noch Fragen? Bitte an: fabian.beutel@igelgames.de