Heli-Hunter

Übersicht

BlitzBasic

Beginners-Corner

	Quäiny Betreff: Heli-Hunter	Mo, Apr 07, 2008 15:51 Antworten mit Zitat
Also ich habe mal den Code kopiert, als sich der berghintergrund auflöst, aber es fehlt anscheinend hier noch was!!!EIn paar von euch kennen vielleicht Heli-hunter von robsite.wenn man da auf "ende"klickt erscheind ein Berghintergrund, dass sich in ganz viele kleine vierecke aufteilt und dann verschwindet! Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800, 600, 16, 2 SetBuffer BackBuffer() Dim teilbildx#(80, 60) Dim teilbildy#(80, 60) For x = 1 To 80 For y = 1 To 60 teilbildx#(x, y) = x10-10 teilbildy#(x, y) = y10-10 Next Next Global spielbild=LoadImage("C:\Dokumente und Einstellungen\zum Desktop\Desktop\Thomas\BlitzBasic\beispielcode\spiele\berg.bmp") Repeat Cls For x = 1 To 80 For y = 1 To 60 angle# = winkel#(400, 300,teilbildx#(x,y), teilbildy#(x,y)) plusabstand# = abstand#(teilbildx#(x,y), teilbildy#(x,y), 400, 0) / 150 teilbildx#(x,y) = xbewegen#(teilbildx#(x,y), angle#, plusabstand#) teilbildy#(x,y) = ybewegen#(teilbildy#(x,y), angle#, plusabstand#) DrawBlockRect spielbild, teilbildx#(x,y),teilbildy#(x,y),x10, y10, 10,10 Next Next Flip Until KeyHit(1) Or teilbildx(38,30) <= -1000 End

Quäiny

Betreff: Heli-Hunter

Mo, Apr 07, 2008 15:51
Antworten mit Zitat

Also ich habe mal den Code kopiert, als sich der berghintergrund auflöst, aber es fehlt anscheinend hier noch was!!!EIn paar von euch kennen vielleicht Heli-hunter von robsite.wenn man da auf "ende"klickt erscheind ein Berghintergrund, dass sich in ganz viele kleine vierecke aufteilt und dann verschwindet!
Code: [AUSKLAPPEN]

Graphics 800, 600, 16, 2
SetBuffer BackBuffer()
Dim teilbildx#(80, 60)
Dim teilbildy#(80, 60)
For x = 1 To 80
For y = 1 To 60
teilbildx#(x, y) = x*10-10
teilbildy#(x, y) = y*10-10
Next
Next

Global spielbild=LoadImage("C:\Dokumente und Einstellungen\zum Desktop\Desktop\Thomas\BlitzBasic\beispielcode\spiele\berg.bmp")
Repeat
Cls

For x = 1 To 80
For y = 1 To 60
angle# = winkel#(400, 300,teilbildx#(x,y), teilbildy#(x,y))
plusabstand# = abstand#(teilbildx#(x,y), teilbildy#(x,y), 400, 0) / 150

teilbildx#(x,y) = xbewegen#(teilbildx#(x,y), angle#, plusabstand#)
teilbildy#(x,y) = ybewegen#(teilbildy#(x,y), angle#, plusabstand#)

DrawBlockRect spielbild, teilbildx#(x,y),teilbildy#(x,y),x*10, y*10, 10,10

Next
Next

Flip
Until KeyHit(1) Or teilbildx(38,30) <= -1000

End

Zuletzt bearbeitet von Quäiny am Mo, Apr 07, 2008 16:18, insgesamt einmal bearbeitet

	Caesium	Mo, Apr 07, 2008 16:13 Antworten mit Zitat
ohne mir den code anzusehen. wo liegt denn überhaupt dein problem? ich kann das anhand deines einen satzes nicht erkennnen. uns wäre geholfen, wenn du uns kurz erklärst was das programm machen soll und was genau nicht funktioniert. das erleichtert es ungemein, dir zu helfen. gruß, caesium
Der Vorteil der Klugheit liegt darin, dass man sich dumm stellen kann. Das Gegenteil ist da schon schwieriger.

Caesium

Mo, Apr 07, 2008 16:13
Antworten mit Zitat

ohne mir den code anzusehen. wo liegt denn überhaupt dein problem? ich kann das anhand deines einen satzes nicht erkennnen. uns wäre geholfen, wenn du uns kurz erklärst was das programm machen soll und was genau nicht funktioniert. das erleichtert es ungemein, dir zu helfen.

gruß,
caesium

Der Vorteil der Klugheit liegt darin, dass man sich dumm stellen kann. Das Gegenteil ist da schon schwieriger. Smile

	Hops	Mo, Apr 07, 2008 18:39 Antworten mit Zitat
ganz spontan würd ich tippen dass die funktion "winkel#()" fehlt.. hau mich wenn ich falsch lieg ;D

Hops

Mo, Apr 07, 2008 18:39
Antworten mit Zitat

ganz spontan würd ich tippen dass die funktion "winkel#()" fehlt.. hau mich wenn ich falsch lieg ;D