Moorhuhn klon

Übersicht

BlitzBasic

Allgemein

Gehe zu Seite 1, 2 Weiter

	Roggi Betreff: Moorhuhn klon	So, Okt 23, 2005 10:09 Antworten mit Zitat
Hallo Leute wie in meinen Titel schon steht will ich einen Moorhuhn Klon machen. Doch ich weiß einfach nicht wie ich das hinkriegen soll! Ich habe einen Startbildschirm und die Bewegungsabfrage des Fadenkreuzes. Aber ich sitze schon seit Tagen daran einen Hintergrund zu machen. es ist immer ein Schwarzer Bildschirm und geht nicht Bitte helft mir!!

Roggi

Betreff: Moorhuhn klon

So, Okt 23, 2005 10:09
Antworten mit Zitat

Hallo Leute wie in meinen Titel schon steht will ich einen Moorhuhn Klon machen. Doch ich weiß einfach nicht wie ich das hinkriegen soll! Ich habe einen Startbildschirm und die Bewegungsabfrage des Fadenkreuzes. Aber ich sitze schon seit Tagen daran einen Hintergrund zu machen. es ist immer ein Schwarzer Bildschirm und geht nicht Embarassed

Bitte helft mir!!

	Xalon	So, Okt 23, 2005 10:56 Antworten mit Zitat
Dazu brauchen wir den Quellcode Außerdem ist das eher Beginners-Corner Xalon
>>Besucht doch mal meine Seite,mit NEUEN Tutorials<< User posted image

Xalon

So, Okt 23, 2005 10:56
Antworten mit Zitat

Dazu brauchen wir den Quellcode Wink

Außerdem ist das eher Beginners-Corner

Xalon

>>Besucht doch mal meine Seite,mit NEUEN Tutorials<<
User posted image

	Eclipse	So, Okt 23, 2005 13:36 Antworten mit Zitat
mach ein ganz normales image von der größe der auflösung und positioniere es an 0,0

Eclipse

So, Okt 23, 2005 13:36
Antworten mit Zitat

mach ein ganz normales image von der größe der auflösung und positioniere es an 0,0

	Klip	So, Okt 23, 2005 14:13 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] LoadImage TileBlock

Klip

So, Okt 23, 2005 14:13
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

LoadImage
TileBlock

	Roggi	So, Okt 23, 2005 15:48 Antworten mit Zitat
Der zeigt dann immer Expecting Until or Forever an

Roggi

So, Okt 23, 2005 15:48
Antworten mit Zitat

Der zeigt dann immer Expecting Until or Forever an

	Xalon	So, Okt 23, 2005 15:53 Antworten mit Zitat
Code her Xalon
>>Besucht doch mal meine Seite,mit NEUEN Tutorials<< User posted image

Xalon

So, Okt 23, 2005 15:53
Antworten mit Zitat

Code her

Xalon

>>Besucht doch mal meine Seite,mit NEUEN Tutorials<<
User posted image

	-jc-	So, Okt 23, 2005 19:28 Antworten mit Zitat
Guck dir mal den Source-Code von Robs "Helihunter" an, einem relativ einfachen Moorhohn-Klon: http://www.robsite.de/daten/pr...hunter.zip Solltest du mit dem Code nicht zurechtkommen, läge es sicher an fehlenden Grundlagen...

-jc-

So, Okt 23, 2005 19:28
Antworten mit Zitat

Guck dir mal den Source-Code von Robs "Helihunter" an, einem relativ einfachen Moorhohn-Klon:
http://www.robsite.de/daten/pr...hunter.zip

Solltest du mit dem Code nicht zurechtkommen, läge es sicher an fehlenden Grundlagen...

	sirokuhl	Mo, Okt 24, 2005 16:47 Antworten mit Zitat
0ahnung hat Folgendes geschrieben: Der zeigt dann immer Expecting Until or Forever an Die Meldung kommt wenn du bei deiner repeat schleife am ende das until oder forever vergessen hast!

sirokuhl

Mo, Okt 24, 2005 16:47
Antworten mit Zitat

0ahnung hat Folgendes geschrieben:

Der zeigt dann immer Expecting Until or Forever an

Die Meldung kommt wenn du bei deiner repeat schleife am ende das until oder forever vergessen hast!

	Roggi Betreff: anderes Game	Di, Okt 25, 2005 16:02 Antworten mit Zitat
Habs mir jetzt einfacher gemacht und ein Spiel gemacht wo man nur mit nem Auto auf ner Map fahren kann hier ist der Code. Aber irgendiwe krieg ich kein Hintergrundbild hin BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] ;Die Autofahrt ;von Tom Graphics 800,600,32,1 AppTitle (\"Die Autofahrt-Tom 10.05\") ;Loaden Auto=LoadImage(\"Grafik\Auto1.bmp\") links = 203 rechts = 205 runter = 208 hoch = 200 xs = 300 ys = 450 spielbild = LoadImage(\"Grafik\Map.bmp\") TileBlock spielbild 0,0 Repeat Cls ;------------------------- Bewegung des Spielers ----------------------- If KeyDown(hoch) And ys > 0 Then ys = ys - 1 If KeyDown(runter) And ys < 470 Then ys = ys + 1 If KeyDown(rechts) And xs < 700 Then xs = xs + 1 EndIf If KeyDown(links) And xs > 0 Then xs = xs - 1 EndIf DrawImage Auto, xs, ys ;------------- Until KeyHit57

Roggi

Betreff: anderes Game

Di, Okt 25, 2005 16:02
Antworten mit Zitat

Habs mir jetzt einfacher gemacht und ein Spiel gemacht wo man nur mit nem Auto auf ner Map fahren kann hier ist der Code. Aber irgendiwe krieg ich kein Hintergrundbild hin
BlitzBasic: [AUSKLAPPEN]

;Die Autofahrt
;von Tom 


Graphics 800,600,32,1

AppTitle (\"Die Autofahrt-Tom 10.05\")



;Loaden


Auto=LoadImage(\"Grafik\Auto1.bmp\")


links = 203
rechts = 205
runter = 208
hoch = 200


xs = 300
ys = 450


spielbild = LoadImage(\"Grafik\Map.bmp\")
TileBlock spielbild 0,0

Repeat
Cls

;-------------------------  Bewegung des Spielers  -----------------------
If KeyDown(hoch) And ys > 0 Then ys = ys - 1
If KeyDown(runter) And ys < 470 Then ys = ys + 1
If KeyDown(rechts) And xs < 700 Then
xs = xs + 1
EndIf
If KeyDown(links) And xs > 0 Then 
xs = xs - 1
EndIf
DrawImage Auto, xs, ys



;-------------
Until KeyHit57

	fliege	Di, Okt 25, 2005 16:04 Antworten mit Zitat
Du hast am Ende die Klammer bei Keyhit vergessen Fliege
Wer weiß was kommt.. ?

fliege

Di, Okt 25, 2005 16:04
Antworten mit Zitat

Du hast am Ende die Klammer bei Keyhit vergessen
Fliege

Wer weiß was kommt.. ?

	Dödel	Di, Okt 25, 2005 16:19 Antworten mit Zitat
Zum Until/Forever Problem: Wahrscheinlich existiert die Beendung der Repeat schliefe, du hast bloß vergessen eine darin enthaltene Schliefe zu schließen (EndIf, etc...)

Dödel

Di, Okt 25, 2005 16:19
Antworten mit Zitat

Zum Until/Forever Problem:

Wahrscheinlich existiert die Beendung der Repeat schliefe, du hast bloß vergessen eine darin enthaltene Schliefe zu schließen (EndIf, etc...)

	Chester	Di, Okt 25, 2005 16:45 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Const links = 203 Const rechts = 205 Const runter = 208 Const hoch = 200 Graphics 800,600,32,1 AppTitle (\"Die Autofahrt-Tom 10.05\") ;Loaden Global Auto=LoadImage(\"Grafik\Auto1.bmp\") Global spielbild = LoadImage(\"Grafik\Map.bmp\") Global xs = 300 Global ys = 450 Repeat Cls ;------------------------- Bewegung des Spielers ----------------------- If KeyDown(hoch) And ys > 0 Then ys = ys - 1 If KeyDown(runter) And ys < 470 Then ys = ys + 1 If KeyDown(rechts) And xs < 700 Then xs = xs + 1 If KeyDown(links) And xs > 0 Then xs = xs - 1 TileBlock spielbild 0,0 DrawImage Auto, xs, ys ;------------- Until KeyHit(57) So dürfte das alles schonma ein bisschen besser funktionieren. MFg CHEsTeR

Chester

Di, Okt 25, 2005 16:45
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]



Const links = 203
Const rechts = 205
Const runter = 208
Const hoch = 200

Graphics 800,600,32,1
AppTitle (\"Die Autofahrt-Tom 10.05\")

;Loaden


Global Auto=LoadImage(\"Grafik\Auto1.bmp\")
Global spielbild = LoadImage(\"Grafik\Map.bmp\")


Global xs = 300
Global ys = 450





Repeat
Cls

;-------------------------  Bewegung des Spielers  -----------------------
If KeyDown(hoch) And ys > 0 Then ys = ys - 1
If KeyDown(runter) And ys < 470 Then ys = ys + 1
If KeyDown(rechts) And xs < 700 Then xs = xs + 1
If KeyDown(links) And xs > 0 Then xs = xs - 1

TileBlock spielbild 0,0
DrawImage Auto, xs, ys


;-------------
Until KeyHit(57)

So dürfte das alles schonma ein bisschen besser funktionieren.

MFg
CHEsTeR

	Roggi	Di, Okt 25, 2005 19:57 Antworten mit Zitat
Ich hab das so übernommen und da kommt bei mir nach Tileblock spielbild und vor 0,0 expecting until or forever. Was mach ich falsch obwohl ichs genau so gemacht habe

Roggi

Di, Okt 25, 2005 19:57
Antworten mit Zitat

Ich hab das so übernommen und da kommt bei mir nach

Tileblock spielbild und vor 0,0 expecting until or forever.
Was mach ich falsch obwohl ichs genau so gemacht habe Rolling Eyes

	Rallimen Sieger des 30-EUR-Wettbewerbs	Di, Okt 25, 2005 19:59 Antworten mit Zitat
Da fehlt das Komma! Code: [AUSKLAPPEN] [EINKLAPPEN] TileBlock spielbild, 0,0 Das sollte aber jeder beherschen!
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Di, Okt 25, 2005 19:59
Antworten mit Zitat

Da fehlt das Komma!
Code: [AUSKLAPPEN]

TileBlock spielbild, 0,0

Das sollte aber jeder beherschen!

[BB2D | BB3D | BB+]

	Roggi Betreff: Noch eins	Di, Okt 25, 2005 20:04 Antworten mit Zitat
Schon wieder ein Problem. Alles geht doch der Bildschirm flackert so schwarz. Wollt ihr Bilder? Wie ging der Screenshoot gleich noch mal

Roggi

Betreff: Noch eins

Di, Okt 25, 2005 20:04
Antworten mit Zitat

Schon wieder ein Problem. Alles geht doch der Bildschirm flackert so schwarz. Wollt ihr Bilder? Wie ging der Screenshoot gleich noch mal

	Klip	Di, Okt 25, 2005 20:23 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics [...] SetBuffer BackBuffer() ; grafiken laden Repeat Cls ; Sachen malen Flip Until KeyHit(1):End Die Streifen können durch fehlendes Doublebuffering zustande kommen. Vergiss den Buffer und Flip nicht.

Klip

Di, Okt 25, 2005 20:23
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]


Graphics [...]
SetBuffer BackBuffer()

; grafiken laden

Repeat
Cls

; Sachen malen

Flip
Until KeyHit(1):End

Die Streifen können durch fehlendes Doublebuffering zustande kommen. Vergiss den Buffer und Flip nicht.

	Roggi Betreff: Bitte	Di, Okt 25, 2005 20:37 Antworten mit Zitat
sagt mir dann mal bitte wie ich den Code noch umzuschreiben habe? BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] ;Die Autofahrt ;von Tom Const links = 203 Const rechts = 205 Const runter = 208 Const hoch = 200 Graphics 800,600 AppTitle (\"Die Autofahrt-Tom 10.05\") Global Auto=LoadImage(\"Grafik\Auto1.bmp\") Global spielbild = LoadImage(\"Grafik\Map.bmp\") Global xs = 300 Global ys = 450 Repeat Cls ;------------------------- Bewegung des Spielers ----------------------- If KeyDown(hoch) And ys > 0 Then ys = ys - 1 If KeyDown(runter) And ys < 470 Then ys = ys + 1 If KeyDown(rechts) And xs < 700 Then xs = xs + 1 If KeyDown(links) And xs > 0 Then xs = xs - 1 TileBlock spielbild, 0, 0 DrawImage Auto, xs, ys ;------------- Until KeyHit (57) End

Roggi

Betreff: Bitte

Di, Okt 25, 2005 20:37
Antworten mit Zitat

sagt mir dann mal bitte wie ich den Code noch umzuschreiben habe?
BlitzBasic: [AUSKLAPPEN]

;Die Autofahrt
;von Tom

Const links = 203
Const rechts = 205
Const runter = 208
Const hoch = 200

Graphics 800,600
AppTitle (\"Die Autofahrt-Tom 10.05\")
Global Auto=LoadImage(\"Grafik\Auto1.bmp\")
Global spielbild = LoadImage(\"Grafik\Map.bmp\")

Global xs = 300
Global ys = 450



Repeat
Cls

;-------------------------  Bewegung des Spielers  -----------------------
If KeyDown(hoch) And ys > 0 Then ys = ys - 1
If KeyDown(runter) And ys < 470 Then ys = ys + 1
If KeyDown(rechts) And xs < 700 Then xs = xs + 1
If KeyDown(links) And xs > 0 Then xs = xs - 1


TileBlock spielbild, 0, 0
DrawImage Auto, xs, ys

;-------------
Until KeyHit (57)
End

	Dödel	Di, Okt 25, 2005 20:53 Antworten mit Zitat
Schau dir mal Double Buffering an...

Dödel

Di, Okt 25, 2005 20:53
Antworten mit Zitat

Schau dir mal Double Buffering an...

	Roggi Betreff: Danke	Di, Okt 25, 2005 21:21 Antworten mit Zitat
Danke an alle Antworten. Endlich mein erstes ganz, ganz kleines Minigame ist fertig. Es ist sehr simpel. Man sieht ein Auto und ein paar Straßen und fährt einfach lang. Ich weiß vielleicht gehört das nicht hier hin, aber vielleicht will mir ja jemand bei der Verbesserung des Games helfen. Es soll wie ein kleiner GTA Klon werden. Bloß dass man nicht aussteigt. Erstmal sollte man bloß in einer Stadt rumfahren. Nochmals Danke. Bald stell ich ein Download bereit. Also wer Lust hat es zu verbessern wie zum Bsp.: andere Autos die in der Stadt rumfahren, Stadt vergrößern... Kann sich hier oder bei meiner Mail melden Roggimax@skydsl.de

Roggi

Betreff: Danke

Di, Okt 25, 2005 21:21
Antworten mit Zitat

Danke an alle Antworten. Endlich mein erstes ganz, ganz kleines Minigame ist fertig. Es ist sehr simpel. Man sieht ein Auto und ein paar Straßen und fährt einfach lang. Ich weiß vielleicht gehört das nicht hier hin, aber vielleicht will mir ja jemand bei der Verbesserung des Games helfen. Es soll wie ein kleiner GTA Klon werden. Bloß dass man nicht aussteigt. Erstmal sollte man bloß in einer Stadt rumfahren. Nochmals Danke. Bald stell ich ein Download bereit. Also wer Lust hat es zu verbessern wie zum Bsp.: andere Autos die in der Stadt rumfahren, Stadt vergrößern...

Kann sich hier oder bei meiner Mail melden
Roggimax@skydsl.de

	Xalon	Di, Okt 25, 2005 21:23 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Die Autofahrt ;von Tom Const links = 203 Const rechts = 205 Const runter = 208 Const hoch = 200 Graphics 800,600 SetBuffer BackBuffer AppTitle (\"Die Autofahrt-Tom 10.05\") Global Auto=LoadImage(\"Grafik\Auto1.bmp\") Global spielbild = LoadImage(\"Grafik\Map.bmp\") Global xs = 300 Global ys = 450 Repeat Cls ;------------------------- Bewegung des Spielers ----------------------- If KeyDown(hoch) And ys > 0 Then ys = ys - 1 If KeyDown(runter) And ys < 470 Then ys = ys + 1 If KeyDown(rechts) And xs < 700 Then xs = xs + 1 If KeyDown(links) And xs > 0 Then xs = xs - 1 TileBlock spielbild, 0, 0 DrawImage Auto, xs, ys Flip ;------------- Until KeyHit (57) End Xalon
>>Besucht doch mal meine Seite,mit NEUEN Tutorials<< User posted image

Xalon

Di, Okt 25, 2005 21:23
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

Die Autofahrt
;von Tom

Const links = 203
Const rechts = 205
Const runter = 208
Const hoch = 200

Graphics 800,600
SetBuffer BackBuffer
AppTitle (\"Die Autofahrt-Tom 10.05\")
Global Auto=LoadImage(\"Grafik\Auto1.bmp\")
Global spielbild = LoadImage(\"Grafik\Map.bmp\")

Global xs = 300
Global ys = 450



Repeat
Cls

;-------------------------  Bewegung des Spielers  -----------------------
If KeyDown(hoch) And ys > 0 Then ys = ys - 1
If KeyDown(runter) And ys < 470 Then ys = ys + 1
If KeyDown(rechts) And xs < 700 Then xs = xs + 1
If KeyDown(links) And xs > 0 Then xs = xs - 1


TileBlock spielbild, 0, 0
DrawImage Auto, xs, ys
Flip
;-------------
Until KeyHit (57)
End

Xalon

>>Besucht doch mal meine Seite,mit NEUEN Tutorials<<
User posted image

Gehe zu Seite 1, 2 Weiter

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Moorhuhn klon

Betreff: Moorhuhn klon

Betreff: anderes Game

Betreff: Noch eins

Betreff: Bitte

Betreff: Danke