Problem mit Oval -_- (erledigt)

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

.:_]TRaSh

Betreff: Problem mit Oval -_- (erledigt)

BeitragDi, Feb 24, 2004 15:41
Antworten mit Zitat
Benutzer-Profile anzeigen
Hai Leute.
Ich wollte grade ein kleines Schleichspiel machen, bei dem man den Schall der eigenen Fußschritte sieht. Das ganze sieht man von oben, und die "Schallwellen" werden durch Kreise mit dem Befehl Oval dargestellt.
Man kann zusätzlich die Geschwindigkeit der Spielfigur bestimmen, wodurch sich auch der Radius der Wellen verändert.

Wenn ich aber schnell hintereinander die Geschwindigkeit immer wieder hoch und runter schalte, wird die Schallwelle auf einmal megariesig, bis sie den Bildschirm verlässt und man sie überhaupt nicht mehr sieht.

Hier der Code:

Code: [AUSKLAPPEN]

Graphics 800,600,32,2
Setbuffer backbuffer()

Speed = 1
X = 400
Y = 200


PL = LoadImage("Player.bmp") ;Das Bild ist 10x10 Pixel groß


While not Keydown(1)
   Cls

   If Schall = 1 Then
      Oval X-time, Y-time, time*2+10, time*2+10

      time = time + 1

      If time = 10*Speed Then
         Schall = 0
         time   = 0   
      endif
   endif

   

   Drawimage PL,X,Y


   If Keydown(200) Then
      Y = Y - Speed
      Schall = 1
   Endif

   ;Das für alle vier Richtungen...


   If KeyHit(30) Then Speed = Speed + 1
   If KeyHit(44) Then Speed = Speed - 1

   If Speed > 4 Then Speed = 4
   If Speed < 0 Then Speed = 0


   Flip
Wend
End


Ich hoffe ihr wisst das irgends zu verhindern? Rolling Eyes [/code]
[20:17] IMurDOOM: hm irgendwie is die mitte des viehs kaputt
[20:17] TRaSh: ein bisschen
[20:18] DarkAngel: es tut mir irgend wie leid
  • Zuletzt bearbeitet von .:_]TRaSh am Di, Feb 24, 2004 16:05, insgesamt einmal bearbeitet

BladeRunner

Moderator

BeitragDi, Feb 24, 2004 15:52
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]

 If time >= 10*Speed Then  ;>= statt =
         Schall = 0
         time   = 0   
      endif

Muss auf größer als geprüft werden, denn wenn du den speed herunter setzt kann es sein das 10*speed größer (und nit gleich) time wird.
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
  • Zuletzt bearbeitet von BladeRunner am Di, Feb 24, 2004 15:56, insgesamt einmal bearbeitet

Jan_

Ehemaliger Admin

BeitragDi, Feb 24, 2004 15:54
Antworten mit Zitat
Benutzer-Profile anzeigen
oval, x1,y1,x2,y2,0?
between angels and insects
 

.:_]TRaSh

Betreff: ::disch::

BeitragDi, Feb 24, 2004 16:04
Antworten mit Zitat
Benutzer-Profile anzeigen
Oh, vielen Dank BladeRunner! Very Happy
[20:17] IMurDOOM: hm irgendwie is die mitte des viehs kaputt
[20:17] TRaSh: ein bisschen
[20:18] DarkAngel: es tut mir irgend wie leid

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group