Blitz Basic

Ja in dem Steuerungs-Modus bewegen sich die Dinger einfach nicht. Ist sogar Absicht ^^

Tut mir leid für die späte Antwort aber ich fang erst jetzt wieder aktiv mit Blitz3D an.

Die Demos zu dem Programm findet ihr hier: Blitz Basic Website

Ich empfehle Blitz3D runterzuladen. Blitz2D ist ein eher fensterorientiertes Programmierprogramm wie Visual Basic.
BlitzMax ist eher in die C++ Richtung.

Viel Spaß :coffee: und ich helf jedem gerne wo ich kann

~->Ping Pong Extrem<-~

Hier hab ihr mein Programm "Ping Pong Extrem" :multikiller:
zumindest den Code ^^ das spielbare Programm folgt in wenigen Tagen XD

[code]AppTitle"Spiel1"
Graphics 640,480
SetBuffer BackBuffer()
SeedRnd MilliSecs()
a$=Input("Welches level?(schwer,normal,mittel,leicht)")

If a$="mittel" Then
t=CreateTimer(75)
ElseIf a$="normal" Then
t=CreateTimer(50)
ElseIf a$="leicht" Then
t=CreateTimer(25)
If a$="schwer" Then
t=CreateTimer(200)
Else t=CreateTimer(10000)
EndIf

Global bunter.schweif
Type schweif
Field sx
Field sy
Field r
Field g
Field b
End Type
h=0

x=320
y=240
bx=320
by=240

s1x=0
s1y=240
s1p=0

s2x=630
s2y=240
s2p=0

s3x=320
s3y=0
s3p=20

s4x=320
s4y=470
s4p=0

Repeat

xx=Rand(-5,5)
yy=Rand(-5,5)
bxx=Rand(-5,5)
byy=Rand(-5,5)
Until xx<>0 And yy<>0 And byy<>0 And bxx<>0

Ball=LoadImage ("C:BbBall.bmp")
Schlaeger=LoadImage("C:BbSchlaeger.bmp")
schlaegerin=LoadImage("C:BbSchlaeger2.bmp")
hinter=LoadImage("C:Bbhinter.bmp")
ClsColor 0,0,255
Color 0,0,0
Repeat
x=xx+x
y=yy+y
ay=y
ax=x
bx=bx+bxx
by=by+byy
h=h+1
If h<100 Then
bunter.schweif=New schweif
bunter
=Rand(255)
bunterg=Rand(255)
bunter=Rand(255)
EndIf

If ImagesOverlap (Ball,x,y, Schlaeger,s1x,s1y) Or ImagesOverlap (Ball,x,y, Schlaeger,s2x,s2y) Then
xx=xx*-1
EndIf

If ImagesOverlap (Ball,x,y, schlaegerin,s3x,s3y) Or ImagesOverlap (Ball,x,y, schlaegerin,s4x,s4y)Then

yy=yy*-1
EndIf

If ImagesOverlap (Ball,bx,by, Schlaeger,s1x,s1y) Or ImagesOverlap (Ball,bx,by, Schlaeger,s2x,s2y) Then
bxx=bxx*-1
EndIf

If ImagesOverlap (Ball,bx,by, schlaegerin,s3x,s3y) Or ImagesOverlap (Ball,bx,by, schlaegerin,s4x,s4y)Then

byy=byy*-1
EndIf

If x<0 Then
s1p=s1p+1
xx=Rand(1,5)
yy=Rand(1,5)
x=320
y=240
EndIf

If x>640 Then
s2p=s2p+1
xx=Rand(1,5)
yy=Rand(1,5)
x=320
y=240
EndIf

If by>480 Then
s4p=s4p+1
bxx=Rand(1,5)
byy=Rand(1,5)
bx=320
by=240
EndIf

If by<0 Then
s3p=s3p-1
bxx=Rand(1,5)
byy=Rand(1,5)
bx=320
by=240
EndIf

If bx<0 Then
s1p=s1p+1
bxx=Rand(1,5)
byy=Rand(1,5)
bx=320
by=240
EndIf

If bx>640 Then
s2p=s2p+1
bxx=Rand(1,5)
byy=Rand(1,5)
bx=320
by=240
EndIf

If y>480 Then
s4p=s4p+1
xx=Rand(1,5)
yy=Rand(1,5)
x=320
y=240
EndIf

If y<0 Then
s4p=s3p-1
xx=Rand(1,5)
yy=Rand(1,5)
x=320
y=240
EndIf

If KeyDown (200) Then
s2y=s2y-5
EndIf

If KeyDown (208) Then
s2y=s2y+5
EndIf

If KeyDown (17) Then
s1y=s1y-5
EndIf

If KeyDown (31) Then
s1y=s1y+5
EndIf

If KeyDown (17) Then
s3y=s3y-5
EndIf

If KeyDown (31) Then
s3y=s3y+5
EndIf

If s1y<0 Then s1y=640
If s1y>480 Then s1y=0
If s2y<0 Then s2y=640
If s2y>480 Then s2y=0
If s3y<0 Then s3y=640
If s3y>480 Then s3y=0

;SPIELER 1 KI
If x<bx Then
If s1yy Then s1y=s1y-5
EndIf
If x>bx Then
If s1yby Then s1y=s1y-5
EndIf

;SPIELER 3 KI
If y<by Then
If s3xx Then s3x=s3x-5
EndIf
If y>by Then
If s3xbx Then s3x=s3x-5
EndIf

;SPILER 4KI
If y>by Then
If s4xx Then s4x=s4x-5
EndIf
If y<by Then
If s4xbx Then s4x=s4x-5
EndIf

Flip
Cls
Color 125,125,125

Text s2x-20,s2y,s2p
Text s1x+40,s1y,s1p
Text s3x,s3y+40,s3p
Text s4x,s4y-10,s4p

For bunter.schweif <=Each schweif
axx=buntersx
ayy=buntersy
buntersx=ax
buntersy=ay
ax=axx
ay=ayy
Color bunter
,bunterg,bunter

Oval buntersx,buntersy,10,10
Next

DrawImage Ball,bx,by
DrawImage Ball,x,y
DrawImage Schlaeger,s1x,s1y
DrawImage Schlaeger,s2x,s2y
DrawImage schlaegerin,s3x,s3y
DrawImage schlaegerin,s4x,s4y

WaitTimer(t)
Forever

;><)))>
;~><)))>~><)))>
;><)))>~><)))>~><)))>
[/code]

->~Blitz Basic 3D
~<-

Blitz Basic ist eine Programmiersprache, die sich an dem Basic-Syntax orientiert und sich vor allem zum Programmieren von PC-Spielen eignet.

Blitz Basic entstand auf dem Amiga. Nach dem Untergang der Homecomputer beschloss der Autor Mark Sibly, Blitz Basic auf den PC für Windows zu portieren. Mittlerweile wird beim aktuellen BlitzMax-Ableger auch Macintosh und Linux berücksichtigt. Aus dieser Familie stammen folgende Sprachvarianten: Blitz2D, Blitz3D, BlitzPlus und BlitzMax. Blitz2D wird heute allerdings nicht mehr weiter entwickelt, da BlitzPlus und Blitz3D den vollen Sprachumfang von Blitz2D besitzen. Es existiert jedoch noch eine Demoversion von Blitz2D, die unbegrenzt genutzt werden kann und somit zum Lernen sehr gut geeignet ist.

Blitz3D kam nach ca. 68 Updates (bis v1.68) neu hinzu. Es fügte Blitz Basic mehr als 200 3D-Befehle hinzu. Mit dem Update 1.78 wurde der Compiler von der IDE getrennt. Die derzeitig neuste Version von Blitz3D ist 1.105.

Hiermit kann man die Basic-Grundsyntax benutzen. Man kann 2D Sprites einbinden und bearbeiten. Einfache Sprites wie Kreise und Linien können vom Programm durch einen entsprechenden Befehl erstellt werden. Außerdem kann es noch mit 3D-Objekten umgehen. Kameraprogrammierung Verticen Bearbeitung sind auch möglich. Auch hier kommt DirectX 7.0 zum Einsatz, welches kompatibel zu aktuelleren Versionen ist. Einarbeitungszeit ist hier allerdings vonnöten. Außerdem sollte man sich schon prinzipiell mit 3D-Game-Design beschäftigt haben. Sollte das nicht der Fall sein, kann man sich aber von B2D hocharbeiten. B3D beinhaltet alle Befehle von B2D und ist um die 3D-Befehle erweitert. Die GUI-Befehle der B+ Version sind allerdings nicht enthalten. Allerdings gibt es für Blitz Basic und Blitz3d mittlerweile die BlitzUI. Das ist eine kostenlose GUI-Engine zur freien Verwendung. Blitz 3D soll nicht mehr weiterentwickelt werden, da die Zukunft BlitzMax gehören soll.