noob braucht hilfe ^^

Übersicht

BlitzBasic

Beginners-Corner

	eRRoX Betreff: noob braucht hilfe ^^	Di, Nov 30, 2004 4:14 Antworten mit Zitat
hi , bin noch ein anfänger und brauche hilfe. es soll nicht viel passiern ein mob soll paar eigenschaften bekommen und sich sehen lass naja blos anstatt der jetzt von unten nach oben fliegt bekomme ich nur ein schwarzen bildschirm , hoffe mir kann jemand helfen. kann mit types noch nciht so umgehen wer nett vielen dank im vorraus. gl & hf Graphics 800,600,16,2 SetBuffer BackBuffer() Global mob2 = LoadImage("mob.png") Global krass.mob Type mob Field x Field y Field speed End Type Function monster() For krass = Each mob krass.mob = New mob krass\x = Rnd(120,650) krass\y = 475 krass\speed = 1 Next End Function Function drawmonster() For krass = Each mob DrawImage mob2,krass\x ,krass\y krass\y = krass\y - krass\speed If krass\y < 70 Then Delete krass EndIf Next End Function Repeat Cls drawmonster() Flip Until KeyHit(1)

eRRoX

Betreff: noob braucht hilfe ^^

Di, Nov 30, 2004 4:14
Antworten mit Zitat

hi , bin noch ein anfänger und brauche hilfe. es soll nicht viel passiern ein mob soll paar eigenschaften bekommen und sich sehen lass naja blos anstatt der jetzt von unten nach oben fliegt bekomme ich nur ein schwarzen bildschirm , hoffe mir kann jemand helfen. kann mit types noch nciht so umgehen wer nett vielen dank im vorraus. gl & hf

Graphics 800,600,16,2
SetBuffer BackBuffer()

Global mob2 = LoadImage("mob.png")
Global krass.mob

Type mob
Field x
Field y
Field speed
End Type

Function monster()
For krass = Each mob
krass.mob = New mob
krass\x = Rnd(120,650)
krass\y = 475
krass\speed = 1
Next
End Function

Function drawmonster()
For krass = Each mob
DrawImage mob2,krass\x ,krass\y
krass\y = krass\y - krass\speed
If krass\y < 70 Then
Delete krass
EndIf
Next
End Function

Repeat
Cls
drawmonster()
Flip
Until KeyHit(1)

	fliege	Di, Nov 30, 2004 7:33 Antworten mit Zitat
ich glaubré, du rufst deine Monster Funktion nicht auf, denn sie werden nicht erstllt, versuch nal das: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,16,2 SetBuffer BackBuffer() Global mob2 = LoadImage("mob.png") Global krass.mob Type mob Field x Field y Field speed End Type Function monster() For krass = Each mob krass.mob = New mob krass\x = Rnd(120,650) krass\y = 475 krass\speed = 1 Next End Function Function drawmonster() For krass = Each mob DrawImage mob2,krass\x ,krass\y krass\y = krass\y - krass\speed If krass\y < 70 Then Delete krass EndIf Next End Function monster() Repeat Cls drawmonster() Flip Until KeyHit(1)
Wer weiß was kommt.. ?

fliege

Di, Nov 30, 2004 7:33
Antworten mit Zitat

ich glaubré, du rufst deine Monster Funktion nicht auf, denn sie werden nicht erstllt, versuch nal das:
Code: [AUSKLAPPEN]

Graphics 800,600,16,2
SetBuffer BackBuffer()

Global mob2 = LoadImage("mob.png")
Global krass.mob

Type mob
Field x
Field y
Field speed
End Type

Function monster()
For krass = Each mob
krass.mob = New mob
krass\x = Rnd(120,650)
krass\y = 475
krass\speed = 1
Next
End Function

Function drawmonster()
For krass = Each mob
DrawImage mob2,krass\x ,krass\y
krass\y = krass\y - krass\speed
If krass\y < 70 Then
Delete krass
EndIf
Next
End Function

monster()
Repeat
Cls
drawmonster()
Flip
Until KeyHit(1)

Wer weiß was kommt.. ?

	Dante	Di, Nov 30, 2004 11:51 Antworten mit Zitat
hmm... Ich denke es liegt an der for-schleife in der monsterfunction. Versuch dass mal: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,16,2 SetBuffer BackBuffer() Global mob2 = LoadImage("mob.png") Global krass.mob Type mob Field x Field y Field speed End Type Function monster() krass.mob = New mob krass\x = Rnd(120,650) krass\y = 475 krass\speed = 1 End Function Function drawmonster() For krass = Each mob DrawImage mob2,krass\x ,krass\y krass\y = krass\y - krass\speed If krass\y < 70 Then Delete krass EndIf Next End Function monster() Repeat Cls drawmonster() Flip Until KeyHit(1)

Dante

Di, Nov 30, 2004 11:51
Antworten mit Zitat

hmm...
Ich denke es liegt an der for-schleife in der monsterfunction.
Versuch dass mal:

Code: [AUSKLAPPEN]

Graphics 800,600,16,2
SetBuffer BackBuffer()

Global mob2 = LoadImage("mob.png")
Global krass.mob

Type mob
Field x
Field y
Field speed
End Type

Function monster()
krass.mob = New mob
krass\x = Rnd(120,650)
krass\y = 475
krass\speed = 1
End Function

Function drawmonster()
For krass = Each mob
DrawImage mob2,krass\x ,krass\y
krass\y = krass\y - krass\speed
If krass\y < 70 Then
Delete krass
EndIf
Next
End Function

monster()
Repeat
Cls
drawmonster()
Flip
Until KeyHit(1)