3D-Space-Game-017.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-017
; Date: 1.08.03
;-------------------------------------------------------
; BB3D: 1.83
;-------------------------------------------------------
; Mein dank an: Markus und HotBit
;-------------------------------------------------------
;
; Ich habe den Code so eingeteilt. Das die einzelnen
; segmente leicht getrennt werden können. Speichert die
; Include Teile ab und nemt das semikolon vom Include
; befehl weg. Dann löscht den Teil zwischen dem Include
; und dem ; End Include.
; ------------------------------------------------------
;
; Var ******
;Include "Init-Var.bb"
; 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 ausschalten
; der Schnellen geschwindigkeit.
Global location ; enthält -1 oder die nummer der Location in der
;sich das schiff gerade befindedet. Innerhalb
;der Location funktioniert kein HighSpeed.
Global ot ; Object 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
Global t5,trans_go,ziehl ; teimer für erzeuge transporter
;End Include
; Start *****
;Include "Screen.bb"
; Dann wird der Bildschirm geöffnet
;
Graphics3D screen_x,screen_y,screen_t,screen_m ; Den Bildschirm öffnen
SetBuffer BackBuffer() ; das DoubleBuffering aktivieren
; Ein Object, welches mit DOGA L1 erstellt wurde, wird geladen
Global schiff=LoadMesh("schiff.x") ; Schiff-Object 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 aussenansicht
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() ; Ein 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 SkyBox 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 SkyBox
;End Include
;Include "System.bb"
; Das SonnenSystem erzeugen
;
Restore planeten_system_daten
Dim pl(10) ; enthält die Handler der Planeten Objecte
Dim plt(10) ; Zeiger auf Planeten Texture
Dim plr#(10) ; eigen rotation
Dim plsc(10) ; Speicher für Planeten/Location Durchmesser
; Für das abschalten des HighSped
Dim plg(10) ; Gefahrengrenze
Dim pld(10) ; Colisions grenze (Game Over) für Planeten etc
Dim pln(10) ; Sortiernummer der Planeten/Objecte damit
; eine identivikation im ereignissfall möglich ist
Dim plb(10) ; Object bindung
Global anz_pl ; Anzahl der Planeten im System
i=0 ; Das erste object 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$ ; Object 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-Object laden
PositionEntity pl(i),x,y,z,1 ; Position beliebig
EntityType pl(i),2
Else If ty=3
pl(i)=CreatePivot(pl(b)) ;CreateSphere(5,pl(b))
ScaleEntity pl(i),sc,sc,sc
PositionEntity pl(i),x,y,z,1
EntityType pl(i),3
EntityRadius pl(i),sc
EndIf
plsc(i)=sc+sch ; Location durchmesser
plg(i)=sc+scg ; Gefahren grenze
pld(i)=sc+scd ; Todes grenze
plr(i)=r ; planeten Rotation
pln(i)=i ; object nummer