Boulder Dash Clone

Übersicht

BlitzBasic

Beginners-Corner

	PSY Betreff: Boulder Dash Clone	Mi, Jan 19, 2005 20:20 Antworten mit Zitat
Hiho alle, erstmal hallo...hab mich soeben registriert In nächster Zeit werd ich euch also mit Fragen nerven... ...vor einiger Zeit hab ich einen Boulder Dash Clone (die meisten werden BD vom C64 oder Atari800XL noch kennen) in Darkbasic programmiert. (95% 2D) Da der Screen aus 25*17 pix images besteht, die alle gleichzeitig gescrollt werden müssen, und aufgrund eines Bugs (Kombination Graka-Treiber, Betriebssystem, DX + Darkbasic) war das Spiel auf manchen Systemen schlecht spielbar. (einfach zu langsam) Aus Neugier hab ich mir mal die Demo von Blitz3D gesaugt, und ein Programm geschrieben, das einfach 1000000 punkte auf den screen zeichnet. Ergebnis: Darkbasic braucht für 10000 Punkte 10 sekunden Blitz3D braucht für ne Million Punkte 10 sekunden keine Ahnung, wie schnell Blitz im 3D Bereich ist. Aber für 2D werd ich ab jetzt nichts anderes mehr benutzen man sieht sich, PSY (edit) mal sehn ob sich der code relativ leicht nach blitz portieren lässt...jemand in dem bereich schonmal erfahrungen gesammelt?

PSY

Betreff: Boulder Dash Clone

Mi, Jan 19, 2005 20:20
Antworten mit Zitat

Hiho alle,

erstmal hallo...hab mich soeben registriert Very Happy

In nächster Zeit werd ich euch also mit Fragen nerven... Razz

...vor einiger Zeit hab ich einen Boulder Dash Clone (die meisten werden BD vom C64 oder Atari800XL noch kennen) in Darkbasic programmiert. (95% 2D)
Da der Screen aus 25*17 pix images besteht, die alle gleichzeitig gescrollt werden müssen, und aufgrund eines Bugs (Kombination Graka-Treiber, Betriebssystem, DX + Darkbasic) war das Spiel auf manchen Systemen schlecht spielbar. (einfach zu langsam)

Aus Neugier hab ich mir mal die Demo von Blitz3D gesaugt, und ein Programm geschrieben, das einfach 1000000 punkte auf den screen zeichnet.

Ergebnis:
Darkbasic braucht für 10000 Punkte 10 sekunden
Blitz3D braucht für ne Million Punkte 10 sekunden

keine Ahnung, wie schnell Blitz im 3D Bereich ist. Aber für 2D werd ich ab jetzt nichts anderes mehr benutzen Very Happy

man sieht sich,
PSY

(edit) mal sehn ob sich der code relativ leicht nach blitz portieren lässt...jemand in dem bereich schonmal erfahrungen gesammelt?

Zuletzt bearbeitet von PSY am Mi, Jan 19, 2005 22:42, insgesamt einmal bearbeitet

	Rob_	Mi, Jan 19, 2005 20:23 Antworten mit Zitat
Und dafür war jetzt ein Therad nötig? Das hast du toll herausgefunden! Glückwunsch!
AMD Athlon 64 3500+ \| Infineon 1 GB DDR RAM \| nVidia Geforce 7800 GTX

Rob_

Mi, Jan 19, 2005 20:23
Antworten mit Zitat

Und dafür war jetzt ein Therad nötig?
Das hast du toll herausgefunden! Glückwunsch!

AMD Athlon 64 3500+ | Infineon 1 GB DDR RAM | nVidia Geforce 7800 GTX

	Vertex	Mi, Jan 19, 2005 21:05 Antworten mit Zitat
Naja, soetwas muss mal gesagt werden
vertex.dreamfall.at \| GitHub

Vertex

Mi, Jan 19, 2005 21:05
Antworten mit Zitat

Naja, soetwas muss mal gesagt werden Smile

vertex.dreamfall.at | GitHub

	PSY	Mi, Jan 19, 2005 22:40 Antworten mit Zitat
Rob_ hat Folgendes geschrieben: Und dafür war jetzt ein Therad nötig? Das hast du toll herausgefunden! Glückwunsch! gelle...nenn mich sherlock holmes. warum postest du dann nen reply wenn der thread so unnötig war? wenns dich nicht interessiert ignoriers einfach. freundlichkeit wird hier wohl nicht gerade grossgeschrieben...

PSY

Mi, Jan 19, 2005 22:40
Antworten mit Zitat

Rob_ hat Folgendes geschrieben:

Und dafür war jetzt ein Therad nötig?
Das hast du toll herausgefunden! Glückwunsch!

gelle...nenn mich sherlock holmes.
warum postest du dann nen reply wenn der thread so unnötig war?
wenns dich nicht interessiert ignoriers einfach.
freundlichkeit wird hier wohl nicht gerade grossgeschrieben...

	Waveblue	Mi, Jan 19, 2005 22:53 Antworten mit Zitat
ein Vorstell-Thread wär doch gar keine schlechte Idee! jeder der neu hier reinkommt, könnte seine "Amtsantrittsrede" reinschreiben und man weiß, mit wem man es zu tun hat was haltet ihr von der Idee?
This is 10% luck 20% skill 15% concentrated power of will 5% pleasure, 50% pain and 100% reason to remember the name

Waveblue

Mi, Jan 19, 2005 22:53
Antworten mit Zitat

ein Vorstell-Thread wär doch gar keine schlechte Idee! Very Happy

jeder der neu hier reinkommt, könnte seine "Amtsantrittsrede" reinschreiben und man weiß, mit wem man es zu tun hat Wink

was haltet ihr von der Idee?

This is 10% luck
20% skill
15% concentrated power of will
5% pleasure, 50% pain
and 100% reason to remember the name

	PSY	Mi, Jan 19, 2005 22:57 Antworten mit Zitat
Waveblue hat Folgendes geschrieben: ein Vorstell-Thread wär doch gar keine schlechte Idee! jeder der neu hier reinkommt, könnte seine "Amtsantrittsrede" reinschreiben und man weiß, mit wem man es zu tun hat was haltet ihr von der Idee? das war der plan naja nun kennt ihr mich ja 8)

PSY

Mi, Jan 19, 2005 22:57
Antworten mit Zitat

Waveblue hat Folgendes geschrieben:

ein Vorstell-Thread wär doch gar keine schlechte Idee! Very Happy

jeder der neu hier reinkommt, könnte seine "Amtsantrittsrede" reinschreiben und man weiß, mit wem man es zu tun hat Wink

was haltet ihr von der Idee?

das war der plan Very Happy

naja nun kennt ihr mich ja 8)

	soli	Do, Jan 20, 2005 2:09 Antworten mit Zitat
@Rob_ Gehst du zuhause auch so mit Gästen um die dir freundlich entgegentreten? Naja, wenigstens weiss psy jetzt schon was er von dir zu halten hat. @psy Herzlich Willkommen, viel Spaß und Erfolg.
solitaire

soli

Do, Jan 20, 2005 2:09
Antworten mit Zitat

@Rob_
Gehst du zuhause auch so mit Gästen um
die dir freundlich entgegentreten?
Naja, wenigstens weiss psy jetzt schon
was er von dir zu halten hat.

@psy
Herzlich Willkommen,
viel Spaß und Erfolg.

solitaire

	Travis	Do, Jan 20, 2005 2:20 Antworten mit Zitat
Jetzt mal Back to Topic: Erstmal Hallo! Irgendwo habe ich sogar mal ein Benchmark gesehen, wo verschiedene Sprachen wie Blitz Basic, Pure Basic, und Dark Basic, Visual Basic und sogar Quick Basic verglichen wurde. Dabei wurde ein Image auf dem Bildschirm gekachelt und die Durchläufe pro Sekunde wurden gemessen. http://www.purebasic.de/showcase.shtml 3. Punkt - Grafik Benchmark - Hier mal der Blitz Basic Benchmark. Der wurde ja nicht mitgeliefert Code: [AUSKLAPPEN] [EINKLAPPEN] ; Vergleichsdaten ; 1. ; AMD Athlon XP 1800+ ; 512 MB PC2100/266Mhz ; MSI G4MX440T 64MB DDR Grafik ; Windows XP, DirectX 9 ; Ergebnis: 2269 Bilder in 1000ms ; 2. ; AMD Athlon XP 1800+ ; 512 MB PC2100/266Mhz ; MSI GF 5700 Ultra, 128 MB ; nVidia ForceWare 66.93 ; Windows XP SP2, DirectX 9c ; Ergebnis: 1163 Bilder in 1000ms Graphics 640, 480, 16, 1 SetBuffer BackBuffer() Bild = LoadImage("Ebene0.bmp") Text 0,0, "Beliebige Taste drücken um zu starten..." Flip WaitKey Start = MilliSecs() Messzeit = 1000 ; ms Repeat Cls For y = 1 To 480 Step 64 For x = 1 To 640 Step 64 DrawImage bild, x, y Next Next n = n + 1 Flip 0 Until MilliSecs()-Start > Messzeit ; Nach abgelaufener Messzeit beenden Color 255,255,255 Text 0,0, "Das Bild wurde in " + Messzeit + "ms " + n + " mal aufgebaut." Flip WaitKey End
www.funforge.org Ich hasse WASD-Steuerung. Man kann alles sagen, man muss es nur vernünftig begründen können.

Travis

Do, Jan 20, 2005 2:20
Antworten mit Zitat

Jetzt mal Back to Topic:

Erstmal Hallo! Irgendwo habe ich sogar mal ein Benchmark gesehen, wo verschiedene Sprachen wie Blitz Basic, Pure Basic, und Dark Basic, Visual Basic und sogar Quick Basic verglichen wurde. Dabei wurde ein Image auf dem Bildschirm gekachelt und die Durchläufe pro Sekunde wurden gemessen.

http://www.purebasic.de/showcase.shtml
3. Punkt - Grafik Benchmark -

Hier mal der Blitz Basic Benchmark. Der wurde ja nicht mitgeliefert

Code: [AUSKLAPPEN]

; Vergleichsdaten

; 1.
; AMD Athlon XP 1800+
; 512 MB PC2100/266Mhz
; MSI G4MX440T 64MB DDR Grafik
; Windows XP, DirectX 9
; Ergebnis: 2269 Bilder in 1000ms

; 2.
; AMD Athlon XP 1800+
; 512 MB PC2100/266Mhz
; MSI GF 5700 Ultra, 128 MB
; nVidia ForceWare 66.93
; Windows XP SP2, DirectX 9c
; Ergebnis: 1163 Bilder in 1000ms

Graphics 640, 480, 16, 1
SetBuffer BackBuffer()

Bild = LoadImage("Ebene0.bmp")

Text 0,0, "Beliebige Taste drücken um zu starten..."
Flip
WaitKey

Start = MilliSecs()
Messzeit = 1000 ; ms

Repeat
Cls

For y = 1 To 480 Step 64
For x = 1 To 640 Step 64
DrawImage bild, x, y
Next
Next

n = n + 1

Flip 0
Until MilliSecs()-Start > Messzeit ; Nach abgelaufener Messzeit beenden

Color 255,255,255
Text 0,0, "Das Bild wurde in " + Messzeit + "ms " + n + " mal aufgebaut."
Flip

WaitKey
End

www.funforge.org

Ich hasse WASD-Steuerung.

Man kann alles sagen, man muss es nur vernünftig begründen können.

	Ebola33	Do, Jan 20, 2005 2:36 Antworten mit Zitat
Nun, es heisst ja nicht umsonst BLITZ BASIC gelle ? Egal, habe mir gestern B3D bestellt. Das heisst ich habe mein BB2D über. Also wenn jemand es haben möchte dann wäre ich bereit es ihm für die Versandkosten zu überlassen........ edit : bitte keine pn's mehr wegen dem BB2d. Ist schon weg. Mfg Ebola
ansteckend... verstaubtes Projekt : http://www.mitglied.lycos.de/ebola33/

Ebola33

Do, Jan 20, 2005 2:36
Antworten mit Zitat

Nun, es heisst ja nicht umsonst BLITZ BASIC gelle ? Wink

Egal, habe mir gestern B3D bestellt. Das heisst ich habe mein BB2D über.
Also wenn jemand es haben möchte dann wäre ich bereit es ihm für die Versandkosten zu überlassen........

edit : bitte keine pn's mehr wegen dem BB2d. Ist schon weg.

Mfg Ebola

ansteckend... Wink

verstaubtes Projekt : http://www.mitglied.lycos.de/ebola33/

Zuletzt bearbeitet von Ebola33 am Do, Jan 20, 2005 16:39, insgesamt einmal bearbeitet

	PSY	Do, Jan 20, 2005 3:55 Antworten mit Zitat
Zitat: @psy Herzlich Willkommen, viel Spaß und Erfolg. danke, werd ich haben. zumindest spass

PSY

Do, Jan 20, 2005 3:55
Antworten mit Zitat

Zitat:

@psy
Herzlich Willkommen,
viel Spaß und Erfolg.

danke, werd ich haben. zumindest spass Wink

	Spikespine	Do, Jan 20, 2005 14:07 Antworten mit Zitat
Apropros Punkte, mir ist gerade aufgefallen, dass der folgende Code viel schneller ist, wenn ich Plot verwende : Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,16,1 SeedRnd MilliSecs() SetBuffer BackBuffer() rgb=0$1000000 + 255$10000 + 255*$100 + 255 start = MilliSecs() While Not MilliSecs()-start > 1000 LockBuffer BackBuffer() WritePixelFast Rand(800),Rand(600),rgb UnlockBuffer BackBuffer() punkte = punkte + 1 Wend Cls Text 10,10,punkte Flip WaitKey

Spikespine

Do, Jan 20, 2005 14:07
Antworten mit Zitat

Apropros Punkte, mir ist gerade aufgefallen, dass der folgende Code viel schneller ist, wenn ich Plot verwende :
Code: [AUSKLAPPEN]

Graphics 800,600,16,1
SeedRnd MilliSecs()
SetBuffer BackBuffer()

rgb=0*$1000000 + 255*$10000 + 255*$100 + 255

start = MilliSecs()
While Not MilliSecs()-start > 1000
LockBuffer BackBuffer()

WritePixelFast Rand(800),Rand(600),rgb

UnlockBuffer BackBuffer()

punkte = punkte + 1
Wend
Cls
Text 10,10,punkte

Flip

WaitKey

	Jan_ Ehemaliger Admin	Do, Jan 20, 2005 14:17 Antworten mit Zitat
jap, ganz einfach darum, weil du keine ahnung hast! Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,16,1 SeedRnd MilliSecs() SetBuffer BackBuffer() rgb=0$1000000 + 255$10000 + 255*$100 + 255 start = MilliSecs() LockBuffer BackBuffer() While Not MilliSecs()-start > 1000 WritePixelFast Rand(800),Rand(600),rgb punkte = punkte + 1 Wend UnlockBuffer BackBuffer() Cls Text 10,10,punkte Flip WaitKey
between angels and insects

Jan_

Ehemaliger Admin

Do, Jan 20, 2005 14:17
Antworten mit Zitat

jap, ganz einfach darum, weil du keine ahnung hast!
Code: [AUSKLAPPEN]

Graphics 800,600,16,1
SeedRnd MilliSecs()
SetBuffer BackBuffer()

rgb=0*$1000000 + 255*$10000 + 255*$100 + 255

start = MilliSecs()
LockBuffer BackBuffer()
While Not MilliSecs()-start > 1000
WritePixelFast Rand(800),Rand(600),rgb
punkte = punkte + 1
Wend
UnlockBuffer BackBuffer()
Cls
Text 10,10,punkte

Flip

WaitKey

between angels and insects