Types und MilliSecs()

Übersicht

BlitzBasic

Beginners-Corner

	N0X Betreff: Types und MilliSecs()	So, März 21, 2010 1:03 Antworten mit Zitat
Hey! Ich habe ein Spiel bei dem man Bomben legt und diese dann nach 3 Sekunden in die Luft fliegen. wenn ich jetzt aber zwei Bomben in kurzem Zeitabstand zueinander ablege, explodieren die erste nach 3 Sekunden, dann wartet das Programm wieder 3 Sekunden bis die nächste Bombe explodiert. Hier mal Code: Code: [AUSKLAPPEN] [EINKLAPPEN] Global x#,y# Type bomb Field x#,y# End Type ;-----------------------------------------------------------------------------------------\| Graphics 640,480,16,1 SetBuffer BackBuffer() Global time = MilliSecs() Local timer = CreateTimer(60) While Not KeyHit(1) Cls WaitTimer(timer) bewegen() bomben() Oval x,y,10,10 Flip Wend End ;-----------------------------------------------------------------------------------------\| Function bewegen() If KeyDown(17) Or KeyDown(200) Then y=y-4 If KeyDown(31) Or KeyDown(208) Then y=y+4 If KeyDown(30) Or KeyDown(203) Then x=x-4 If KeyDown(32) Or KeyDown(205) Then x=x+4 If KeyHit(57) Then b.bomb = New bomb b\x# = x#+2.5 b\y# = y#+2.5 EndIf End Function Function bomben() For b.bomb = Each bomb Oval b\x#,b\y#,5,5 If MilliSecs()-time>3000 Then time = MilliSecs() Delete b.bomb EndIf Next End Function Mfg, N0X
Projekte: \|Tibario\| http://www.blitzforum.de/worklogs/325/ \| 5%

N0X

Betreff: Types und MilliSecs()

So, März 21, 2010 1:03
Antworten mit Zitat

Hey!
Ich habe ein Spiel bei dem man Bomben legt und diese dann nach 3 Sekunden in die Luft fliegen.
wenn ich jetzt aber zwei Bomben in kurzem Zeitabstand zueinander ablege, explodieren die erste nach 3 Sekunden, dann wartet das Programm wieder 3 Sekunden bis die nächste Bombe explodiert.

Hier mal Code:
Code: [AUSKLAPPEN]

Global x#,y#

Type bomb
Field x#,y#
End Type

;-----------------------------------------------------------------------------------------|

Graphics 640,480,16,1
SetBuffer BackBuffer()

Global time = MilliSecs()

Local timer = CreateTimer(60)
While Not KeyHit(1)
Cls
WaitTimer(timer)

bewegen()
bomben()

Oval x,y,10,10

Flip
Wend
End

;-----------------------------------------------------------------------------------------|

Function bewegen()
If KeyDown(17) Or KeyDown(200) Then y=y-4
If KeyDown(31) Or KeyDown(208) Then y=y+4
If KeyDown(30) Or KeyDown(203) Then x=x-4
If KeyDown(32) Or KeyDown(205) Then x=x+4

If KeyHit(57) Then
   b.bomb = New bomb
   b\x# = x#+2.5
   b\y# = y#+2.5
EndIf
End Function

Function bomben()
For b.bomb = Each bomb
   Oval b\x#,b\y#,5,5
   If MilliSecs()-time>3000 Then
      time = MilliSecs()
      Delete b.bomb
   EndIf
Next
End Function

Mfg,
N0X

Projekte: |Tibario| http://www.blitzforum.de/worklogs/325/ | 5%

	Xeres Moderator	So, März 21, 2010 1:08 Antworten mit Zitat
Daten, die für jeden Type verschieden sein sollen (wie die Position) müssen als field verwaltet werden...
Win10 Prof.(x64)/Ubuntu 16.04\|CPU 4x3Ghz (Intel i5-4590S)\|RAM 8 GB\|GeForce GTX 960 Wie man Fragen richtig stellt \|\| "Es geht nicht" \|\| Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Xeres

Moderator

So, März 21, 2010 1:08
Antworten mit Zitat

Daten, die für jeden Type verschieden sein sollen (wie die Position) müssen als field verwaltet werden...

Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

	N0X	So, März 21, 2010 1:42 Antworten mit Zitat
Achja, dummer Fehler! Danke nochmal!
Projekte: \|Tibario\| http://www.blitzforum.de/worklogs/325/ \| 5%

N0X

So, März 21, 2010 1:42
Antworten mit Zitat

Achja, dummer Fehler! Laughing

Danke nochmal! Smile