3D-Space-Game-015.bb
;-------------------------------------------------------
;
; 3D Space Game Tutorial
;
; (C) by Turgut Frank Temucin alias TFT
;
; Alle Rechte verbleiben beim Autor. Die Veröffentlich-
; ung außerhalb des BlitzForums ist nur mit Genehmigung
; gestattet. Der Source-Code ist Freeware, und darf für den
; privaten Gebrauch frei verwendet werden.
;
;-------------------------------------------------------
; File: 3D-Space-Game-015
; Date: 31.07.03
;-------------------------------------------------------
; BB3D: 1.83
;-------------------------------------------------------
; Mein Dank an: Markus und Hot-Bit
;-------------------------------------------------------
;
; Nachdem wir jetzt wissen, wie wir ein Portal einbinden
; können, folgt als nächstes die Selektion der Portal-Art
; und die Reaktion darauf. Wir werden erst mal einen
; Hangar coden. Dazu wird die Data-Sektion wieder ein mal
; erweitert. Und die Funktionen "portal" sowie "hangar"
; eingeführt. Da die Änderungen im Code immer massiver
; werden, schaut ihn euch genau an. Die Portal-Sphere
; wird gegen ein Pivot ersetzt. Jetzt kann man in den Hangar
; einfliegen und die Kollisions-Funktionen werden in
; den Hangar-Mode übergehen. Auf diese Weise lassen sich
; etliche verschiedene Reaktionen auf das Betreten eines
; Portales erzeugen.
; ------------------------------------------------------
;
; Als erstes werden ein paar Konstanten definiert. Diese
; sind unveränderbar und immer Global.
Const screen_x=640
Const screen_y=480
Const screen_m=2 ; Bildschirm Modus
; 2=Fenster 1=Fullscreen
Const screen_t=16; 16 Bit oder 32 Bit Bildschirm
Global hispeed ; Schalter-Variable. Zum Ein- und Aus-schalten
; der Schnellen Geschwindigkeit.
Global location ; enthält -1 oder die Nummer der Lokation in der
;sich das Schiff gerade befindet. Innerhalb
;der LoKation funktioniert kein High-Speed.
;*******
;
Global ot ; Objekt-Type bei Gefahr oder -1
Global inHangar ; Schalter-Variable, ob sich das Schiff in einem
; Hangar befindet.
Global SchiffAlpha=1 ; ist das Schiff sichtbar oder nicht
;
;*******
Global gefahr ;
Global tod ;
Global t2,t3,c1 ; Timing-Anzeige für Monitor-Funktion
; Dann wird der Bildschirm geöffnet
;
Graphics3D screen_x,screen_y,screen_t,screen_m ; Den Bildschirm öffnen
SetBuffer BackBuffer() ; das Double-Buffering aktivieren
; Ein Objekt, welches mit DOGA L1 erstellt wurde, wird geladen
Global schiff=LoadMesh("schiff.x") ; Schiff-Objekt laden
PositionEntity schiff,0,0,0 ; Position beliebig
EntityType schiff,1 ; Kollisions-Type
EntityRadius schiff,1 ; Kollisions-Radius
; Danach die Kamera- und Licht- Einstellungen
;
Global cammerap=CreatePivot(schiff) ; Drehpunkt für Außenansicht
Global Cammera=CreateCamera(cammerap) ; Ohne Kamera sieht man nichts
; und es wird an das Schiff angebunden
CameraRange cammera,1,600000 ; Sichtweite der Kamera anpassen
MoveEntity cammera,0,.5,-4 ; Da die Kamera mitten im Schiff liegt,
; wird sie etwas nach hinten verschoben.
CameraZoom cammera,2 ; Fischaugen korrigieren
Global plp=CreatePivot() ; Einen Sammel-Punkt für das Verschieben des ganzen
; Systems anlegen
Global licht=CreateLight(2,plp) ; Für das richtige Ambiente muß eine ordentliche
; Lichtquelle her.
PositionEntity licht,80000,0,0 ; Licht positionieren
LightRange licht,100000 ; Reichweite des Lichtes
AmbientLight 100,100,100 ; Umgebungslicht verstärkt oder schwächt den Kontrast
; Die Sky-Box wird erstellt
;
Global skay=CreateSphere(12) ; Eine Kugel erstellen
Global skay_tex=LoadTexture("all.jpg") ; Die All-Textur laden
EntityTexture skay,skay_tex ; und dem Objekt zuweisen
ScaleEntity skay,500000,500000,500000 ; Den Weltraum vergrößern
FlipMesh skay ; Von innen sichtbar
EntityOrder skay,1 ; Immer als erstes darstellen
EntityFX skay,1 ; Kein Licht-Effekt für die Sky-Box
; Das Sonnen-System erzeugen
;
Restore planeten_system_daten
Dim pl(10) ; enthält die Handler der Planeten-Objekte
Dim plt(10) ; Zeiger auf Planeten-Textur
Dim plr#(10) ; Eigen-Rotation
Dim plsc(10) ; Speicher für Planeten/Lokation Durchmesser
; Für das Abschalten des High-Speed
Dim plg(10) ; Gefahren-Grenze
Dim pld(10) ; Kollisions-Grenze (Game-Over) für Planeten etc...
Dim pln(10) ; Sortier-Nummer der Planeten/Objekte damit
; eine Identifikation im Ereignisfall möglich ist
;******
;
Dim plb(10) ; Objekt-Bindung
;
;******
Global anz_pl ; Anzahl der Planeten im System
i=0 ; Das erste Objekt ist die Sonne
Read anz_pl ; Anzahl Planeten ohne Sonne
For i1=0To anz_pl
Read t$,sc,x,y,z,r#,sch,scg,scd,ty,i,b,nn$ ; Objekt-Daten holen
If ty=0 ; Erzeuge Sonne
plt(i)=LoadTexture(t$,2) ; Sonnen-Textur laden
pl(i)=CreateCube(plp) ; Objekt erzeugen
EntityTexture(pl(i),plt(i)) ; Textur aufbringen
EntityAlpha(pl(i),.9) ; Sonne etwas transparent machen
PositionEntity(pl(i),x,y,z) ; Im Raum positionieren
ScaleEntity(pl(i),sc,sc,1) ; Vergrößern
EntityFX pl(i),1 ; Kein Licht-Effekt für die Sonne
EntityRadius pl(i),sc
Else If ty=1 ; erzeuge Planeten
pl(i)=CreateSphere(16,plp) ; Eine Kugel erstellen
plt(i)=LoadTexture(t$) ; Die Welt-Textur laden
EntityTexture pl(i),plt(i) ; und dem Objekt zuweisen
ScaleEntity pl(i),sc,sc,sc ; Den Planet vergrößern
PositionEntity pl(i),x,y,z ; Und vor die Kamera stellen
EntityRadius pl(i),sc ;
Else If ty=2 ; erzeuge Stationen
pl(i)=LoadMesh("station.x",plp) ; Station-Objekt laden