Anzahl Zufallsgegner

Übersicht

BlitzBasic

Allgemein

	vanjolo Betreff: Anzahl Zufallsgegner	Mi, Dez 10, 2008 14:05 Antworten mit Zitat
Hallo mich plagt folgendes Problem. Ich möchte von rechts verschiedene Gegner einfliegen lassen. In Anzahl und Art. Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,32,2 SetBuffer BackBuffer() gegnerbild = LoadImage ("gegner.bmp") Dim gegner (5,2) Repeat Cls For i= 1 To 5 If gegner (i,0) = 0 Then gegner (i,0) = 1 gegner (i,1) = Rand (580,640) gegner (i,2) = Rand (100,400) EndIf horizontal = Rand (1) Select horizontal Case 1,2 If gegner (i,1) < x Then gegner (i,1) = gegner (i,1) +1 Else gegner (i,1) = gegner (i,1) -1 EndIf Case 3 If gegner (i,1) > x Then gegner (i,1) = gegner (i,1) -1 Else gegner (i,1) = gegner (i,1) +1 End If End Select vertikal = Rand (8) Select vertikal Case 8,9,10 gegner (i,2) = gegner (i,2) +0 End Select If gegner (i,1) < 0 Then gegner (i,0) = 0 If gegner (i,0) = 1 Then DrawImage gegnerbild, gegner (i,1), gegner (i,2) EndIf Next Delay 8 Flip Until KeyDown(1) Vielleicht weis jemand eine bessere Möglichkeit und vielleicht auch wie ich darin unterschiedliche Gegner packe? Danke euch

vanjolo

Betreff: Anzahl Zufallsgegner

Mi, Dez 10, 2008 14:05
Antworten mit Zitat

Hallo mich plagt folgendes Problem.

Ich möchte von rechts verschiedene Gegner einfliegen lassen. In Anzahl und Art.

Code:

Graphics 640,480,32,2
SetBuffer BackBuffer()

gegnerbild = LoadImage ("gegner.bmp")

Dim gegner (5,2)

Repeat
Cls

For i= 1 To 5

If gegner (i,0) = 0 Then
gegner (i,0) = 1

gegner (i,1) = Rand (580,640)
gegner (i,2) = Rand (100,400)
EndIf

horizontal = Rand (1)
Select horizontal

Case 1,2
If gegner (i,1) < x Then
gegner (i,1) = gegner (i,1) +1
Else
gegner (i,1) = gegner (i,1) -1
EndIf
Case 3
If gegner (i,1) > x Then
gegner (i,1) = gegner (i,1) -1
Else
gegner (i,1) = gegner (i,1) +1

End If
End Select

vertikal = Rand (8)
Select vertikal

Case 8,9,10
gegner (i,2) = gegner (i,2) +0
End Select
If gegner (i,1) < 0 Then gegner (i,0) = 0

If gegner (i,0) = 1 Then
DrawImage gegnerbild, gegner (i,1), gegner (i,2)
EndIf
Next

Delay 8
Flip
Until KeyDown(1)

Vielleicht weis jemand eine bessere Möglichkeit und vielleicht auch wie ich darin unterschiedliche Gegner packe?

Danke euch

	Tigerkev	Mi, Dez 10, 2008 14:14 Antworten mit Zitat
Vllt mit Types? ^^ Also in etwa: pseudocode: type gegner field gegnertyp ... etc? edit: ich merke grade das ich totalen müll rede, sollte vllt langsam mal ins bett gehen Edit2: Obwohl, die anzahl und art der gegner könntest du eigtl schon mit Types machen... bin mir aber jetzt nicht sicher, wie gesagt ist schon früh

Tigerkev

Mi, Dez 10, 2008 14:14
Antworten mit Zitat

Vllt mit Types? ^^

Also in etwa:

pseudocode:
type gegner
field gegnertyp
... etc?

edit: ich merke grade das ich totalen müll rede, sollte vllt langsam mal ins bett gehen Very Happy

Edit2: Obwohl, die anzahl und art der gegner könntest du eigtl schon mit Types machen... bin mir aber jetzt nicht sicher, wie gesagt ist schon früh Rolling Eyes

	TimBo	Mi, Dez 10, 2008 14:25 Antworten mit Zitat
Hi, benutze dazu Types. Code: [AUSKLAPPEN] [EINKLAPPEN] ;um einen Type zu erstellen Type gegner filed x field y field was_du_noch_brauchst end type ;Mainloop repeat if du_willst_einen_gegner_machen g.gegner = new gegner endif ;jetz noch alle gegner managen for g.gegner = each gegner g\x=g\x-1 drawimage img,g\x,g\y next until keyhit(1) schaue aber unbedingt nochmal in die Hilfe unter Types. Viele Grüße TimBo[/code]
mfg Tim Borowski // CPU: Ryzen 2700x GPU: Nvidia RTX 2070 OC (Gigabyte) Ram: 16GB DDR4 @ 3000MHz OS: Windows 10 Stolzer Gewinner des BCC 25 & BCC 31 hat einen ersten Preis in der 1. Runde beim BWInf 2010/2011 & 2011/12 mit BlitzBasic erreicht.

TimBo

Mi, Dez 10, 2008 14:25
Antworten mit Zitat

Hi,

benutze dazu Types.

Code:

;um einen Type zu erstellen
Type gegner
filed x
field y
field was_du_noch_brauchst
end type

;Mainloop
repeat
if du_willst_einen_gegner_machen
g.gegner = new gegner
endif

;jetz noch alle gegner managen
for g.gegner = each gegner
g\x=g\x-1
drawimage img,g\x,g\y
next

until keyhit(1)

schaue aber unbedingt nochmal in die Hilfe unter Types.

Viele Grüße
TimBo[/code]

mfg Tim Borowski // CPU: Ryzen 2700x GPU: Nvidia RTX 2070 OC (Gigabyte) Ram: 16GB DDR4 @ 3000MHz OS: Windows 10
Stolzer Gewinner des BCC 25 & BCC 31
hat einen ersten Preis in der 1. Runde beim BWInf 2010/2011 & 2011/12 mit BlitzBasic erreicht.