Typesbefehl each für alle ?

Übersicht

BlitzBasic

Beginners-Corner

	Affenmann Betreff: Typesbefehl each für alle ?	Sa, Jul 29, 2006 12:50 Antworten mit Zitat
Hi Zählt für Code: [AUSKLAPPEN] [EINKLAPPEN] For ratte.monster each monster Jedes Monster ? oder nur Ratten... Weil bei mir wird zb die Monster übereinander gezeichnet:/ Code: [AUSKLAPPEN] [EINKLAPPEN] For x = 0 To mapx For y = 0 To mapy If map1(x,y,1)=2 Then ratte.Monster=New Monster ratte\Name$="Ratte" ratte\locx=x16 ratte\locy=y16 ratte\level=Rand(1,3) Ratte\target=0 EndIf Next Next For x=0 To mapx For y=0 To mapy If map1(x,y,1)=3 Then schlange.Monster=New Monster schlange\Name$="Schlange" Schlange\locx=x16 schlange\locy=y16 schlange\level=Rand(4,6) schlange\target=0 End If Next Next An beiden stellen wird eine Ratte und auch eine Schlange gezeichnet : / Hier noch das Zeichnen Code: [AUSKLAPPEN] [EINKLAPPEN] For ratte.monster = Each monster DrawImage Ratteset,ratte\locx-scrollx,ratte\locy-scrolly-20,4 If ratte\level>Spieler\stufe Then Color 255,0,0 If ratte\level=Spieler\stufe Then Color 255,255,0 If ratte\level<Spieler\stufe Then Color 0,255,0 Text Ratte\locx-scrollx,Ratte\locy-scrolly+5,Ratte\Name Text ratte\locx-scrollx,ratte\locy-scrolly-20,Ratte\level Text ratte\locx-scrollx,ratte\locy-scrolly-30,ratte\tp Next For schlange.monster = Each monster DrawImage schlangenset,schlange\locx-scrollx,schlange\locy-scrolly-20,4 If schlange\level>Spieler\stufe Then Color 255,0,0 If schlange\level=Spieler\stufe Then Color 255,255,0 If schlange\level<Spieler\stufe Then Color 0,255,0 Text schlange\locx-scrollx,schlange\locy-scrolly+5,schlange\Name Text schlange\locx-scrollx,schlange\locy-scrolly-20,schlange\level Text schlange\locx-scrollx,schlange\locy-scrolly-30,schlange\tp

Affenmann

Betreff: Typesbefehl each für alle ?

Sa, Jul 29, 2006 12:50
Antworten mit Zitat

Hi

Zählt für

Code: [AUSKLAPPEN]

For ratte.monster each monster

Jedes Monster ? oder nur Ratten... Weil bei mir wird zb die Monster übereinander gezeichnet:/

Code: [AUSKLAPPEN]

For x = 0 To mapx
For y = 0 To mapy
If map1(x,y,1)=2 Then
ratte.Monster=New Monster
ratte\Name$="Ratte"
ratte\locx=x*16
ratte\locy=y*16
ratte\level=Rand(1,3)
Ratte\target=0
EndIf
Next
Next

For x=0 To mapx
For y=0 To mapy
If map1(x,y,1)=3 Then
schlange.Monster=New Monster
schlange\Name$="Schlange"
Schlange\locx=x*16
schlange\locy=y*16
schlange\level=Rand(4,6)
schlange\target=0
End If
Next
Next

An beiden stellen wird eine Ratte und auch eine Schlange gezeichnet : /

Hier noch das Zeichnen
Code: [AUSKLAPPEN]

For ratte.monster = Each monster
DrawImage Ratteset,ratte\locx-scrollx,ratte\locy-scrolly-20,4
If ratte\level>Spieler\stufe Then Color 255,0,0
If ratte\level=Spieler\stufe Then Color 255,255,0
If ratte\level<Spieler\stufe Then Color 0,255,0
Text Ratte\locx-scrollx,Ratte\locy-scrolly+5,Ratte\Name
Text ratte\locx-scrollx,ratte\locy-scrolly-20,Ratte\level
Text ratte\locx-scrollx,ratte\locy-scrolly-30,ratte\tp
Next

For schlange.monster = Each monster
DrawImage schlangenset,schlange\locx-scrollx,schlange\locy-scrolly-20,4
If schlange\level>Spieler\stufe Then Color 255,0,0
If schlange\level=Spieler\stufe Then Color 255,255,0
If schlange\level<Spieler\stufe Then Color 0,255,0
Text schlange\locx-scrollx,schlange\locy-scrolly+5,schlange\Name
Text schlange\locx-scrollx,schlange\locy-scrolly-20,schlange\level
Text schlange\locx-scrollx,schlange\locy-scrolly-30,schlange\tp

	BladeRunner Moderator	Sa, Jul 29, 2006 12:53 Antworten mit Zitat
For each zählt für alle. Du musst deine Types also anhand eines Kriteriums unterscheiden. ZB. der Name. if mon\name = "Ratte" then ... oder Du weisst ihnen eine Nummer zu (1 für Ratte, 2 für Schlange etc...)
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Sa, Jul 29, 2006 12:53
Antworten mit Zitat

For each zählt für alle.
Du musst deine Types also anhand eines Kriteriums unterscheiden.
ZB. der Name.
if mon\name = "Ratte" then ...

oder Du weisst ihnen eine Nummer zu (1 für Ratte, 2 für Schlange etc...)

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Affenmann	Sa, Jul 29, 2006 12:54 Antworten mit Zitat
Die nummer habe ich ja auf der map^^ 2 ist Ratte und 3 ist Schlange Code: [AUSKLAPPEN] [EINKLAPPEN] If map1(x,y,1)=2 Then

Affenmann

Sa, Jul 29, 2006 12:54
Antworten mit Zitat

Die nummer habe ich ja auf der map^^

2 ist Ratte und 3 ist Schlange

Code: [AUSKLAPPEN]

If map1(x,y,1)=2 Then

	BladeRunner Moderator	Sa, Jul 29, 2006 16:21 Antworten mit Zitat
Nutzt Dir aber in der for each primär mal wenig. Da Du ja einen Namen hast, frag den doch einfach ab. siehe oben. dann funzt das auch.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Sa, Jul 29, 2006 16:21
Antworten mit Zitat

Nutzt Dir aber in der for each primär mal wenig.
Da Du ja einen Namen hast, frag den doch einfach ab. siehe oben. dann funzt das auch.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Affenmann	Sa, Jul 29, 2006 17:47 Antworten mit Zitat
OK Also demnach ist each für ALLE monster da? Also zb schreibe ich Code: [AUSKLAPPEN] [EINKLAPPEN] for schlange.monster = Each monster schlange\locx=20 next dann haben alle Monster locx = 20 ? Auch die keine schlangen sind ? :O

Affenmann

Sa, Jul 29, 2006 17:47
Antworten mit Zitat

Also demnach ist each für ALLE monster da?

Also zb schreibe ich

Code: [AUSKLAPPEN]

for schlange.monster = Each monster
schlange\locx=20
next

dann haben alle Monster locx = 20 ?

Auch die keine schlangen sind ? :O

	BladeRunner Moderator	Sa, Jul 29, 2006 17:49 Antworten mit Zitat
nochmals: ja. Vorgehen: siehe oben.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Sa, Jul 29, 2006 17:49
Antworten mit Zitat

nochmals: ja.
Vorgehen: siehe oben.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92