Physik ähnlich wie in Enigma programmieren?

Anfängerfragen zum Programmieren mit PureBasic.
Antworten
Benutzeravatar
zigapeda
Beiträge: 1753
Registriert: 06.03.2005 17:22
Wohnort: Kaufbeuren
Kontaktdaten:
Kontaktdaten von zigapeda

Physik ähnlich wie in Enigma programmieren?

Beitrag von zigapeda »

Hi

ich hab mich erst daran versucht ein Spiel ähnlich wie Enigma zu programmiern.

So weit bin ich bis jetzt gekommen aber ich bin nicht zufrieden 1. mit der Fliehkraft und 2. das Abprallen von wänden klappt ja überhaupt nicht oO

Code: Alles auswählen

InitSprite()
InitMouse()
InitKeyboard()

Enumeration
  #map
EndEnumeration

movex.f
movey.f

Dim map(39,29)

ExamineDesktops()

OpenScreen(DesktopWidth(0),DesktopHeight(0),DesktopDepth(0),"Ball")

Restore level1
CreateSprite(#map,DesktopWidth(0),DesktopHeight(0))
b = DesktopWidth(0) / 40
h = DesktopHeight(0) / 30
StartDrawing(SpriteOutput(#map))
For y = 0 To 29
  For x = 0 To 39
    Read a.b
    map(x,y) = a
    Select a
      Case 0
        Box(x * b, y * h, b, h, $000000)
      Case 1
        Box(x * b, y * h, b, h, $4499BB)
    EndSelect
  Next x
Next y
StopDrawing()


Repeat
  Delay(1)
  ClearScreen($000000)
  TransparentSpriteColor(#map,$000000)
  DisplayTransparentSprite(#map,0,0)
  ExamineKeyboard()
  ExamineMouse()
  

  If MouseDeltaX() <> 0
    movex + MouseDeltaX()
    movex / 2
  Else
    movex / 1.1
  EndIf
  If MouseDeltaY() <> 0
    movey + MouseDeltaY()
    movey / 2
  Else
    movey / 1.1
  EndIf
  ax = Round((x+movex) / b,0)
  ay = Round((y+movey) / h,0)
  If ax >= 0 And ax <= 39 And ay >= 0 And ay <= 29
   If map(ax,ay)
      movex * -1
      movey * -1
    EndIf
  EndIf
  x + movex
  y + movey
  If x < 0
    x = 0
  EndIf
  If y < 0
    y = 0
  EndIf
  If x > DesktopWidth(0)
    x = DesktopWidth(0)
  EndIf
  If y > DesktopHeight(0)
    y = DesktopHeight(0)
  EndIf
  StartDrawing(ScreenOutput())
    DrawText(0,0, Str(movex) + " - " + Str(movey))
    Circle(x, y, 10, $FFFFFF)
  StopDrawing()
  FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)


DataSection

level1:
Data.b 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data.b 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data.b 1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,1
Data.b 1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,1
Data.b 1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data.b 1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data.b 1,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1
Data.b 1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.b 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

EndDataSection
Ich hoffe Ihr könnt mir nen paar Tipps geben wie ich das ändern kann^^
Danke schon mal im Vorraus MfG Daniel
kluger Mann + kluge Frau = Romanze | dummer Mann + dumme Frau = Schwangerschaft
kluger Mann + dumme Frau = Affäre | dummer Mann + kluge Frau = Shopping <)
Nach oben
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

mit "fliehkraft" meinst du wahrscheinlich die trägheit.

probiers mit anderen faktoren, bzw. vielleicht garnicht mit teilen sondern nur was abziehen.
die idee, um MouseDelta zu erhöhen, ist schonmal ganz gut,
aber auch hier wären vielleicht gewisse faktoren gut,
damit man nicht so kräftig bremsen kann.

grundsätzlich wäre es vielleicht praktisch, wenn du erstmal auf
ner oberfläche komplett ohne map nur die steuerung abstimmst.

wenn ich mich recht entsinne (hab Enigma mal vor längerem gespielt),
kommen ja später auch noch andere untergründe mit unterschiedlicher reibung hinzu.

vielleicht auch einfach mal die physik-formelsammlung auspacken,
und sich die beschleunigte bewegung, die reibung, ggf. auch impuls anschauen.


zum abprallen:
das musst du viel ausführlicher prüfen.
im grunde die koordinaten der kugel viel präziser checken,
und sowie sie auf den Rand eines besetzten nachbarfeldes auftrifft,
den betreffenden bewegungsvektor umkehren.
letzteres tust du ja, du musst halt überarbeiten, wann du das machst.


PS:
achja... und nimm ruhig Doubles. und nicht nur für die bewegung, auch für die Koordinaten und für die beschleunigung.
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Nach oben
Benutzeravatar
Xaby
Beiträge: 2144
Registriert: 12.11.2005 11:29
Wohnort: Berlin + Zehdenick
Kontaktdaten:
Kontaktdaten von Xaby

Beitrag von Xaby »

schau mal hier:
http://www.purebasic.fr/german/viewtopic.php?t=12712 :allright:

Anregung:

http://www.youtube.com/watch?v=x0wzjbscv3E

Versuch es erstmal in einer Richtung ordentlich hinzubekommen.
So wie die Mauszeiger-Beschleunigung unter Windows.

Die Geschwindigkeit ergibt sich aus der Differenz zwischen den Mauskoordinaten der ersten Abfrage und den Mauskoodinaten der darauf folgenden Abfrage(n).

Wenn die Differenz erheblich ist, also die Geschwindigkeit größer, dann setzt du das in deinen Mauszeiger um.

Und du brauchst Reibung, oder irgendwas, dodurch dein Gegenstand, der sich bewegen soll kontinuierlich Geschwindigkeit verliert. Damit er irgendwann aufhört, sich zu bewegen.

:allright:
Kinder an die Macht http://scratch.mit.edu/
Nach oben
Benutzeravatar
Xaby
Beiträge: 2144
Registriert: 12.11.2005 11:29
Wohnort: Berlin + Zehdenick
Kontaktdaten:
Kontaktdaten von Xaby

Beitrag von Xaby »

Nicht ganz so schön wie bei Marble Madness oder Enigma ...
aber das kannst dir ja selbst in Zeile 78 austüfteln, wie du die richtigen Parameter ermittelst. Kannst die ganzen Sachen auch mit floats machen, sieht dann sicherlich noch um einiges geschmeidiger aus.

Code: Alles auswählen

ExamineDesktops() 

InitSprite() ; 
InitKeyboard() 
InitMouse() 

Procedure Ball(*x.Long,*y.Long,*Speedx.Long,*SpeedY.Long,*RX.Long,*RY.Long)
  #Radius=20
   
  If *x\l<#Radius Or *x\l+#Radius> DesktopWidth(0)
    *RX\l*(-1) 
    ; Zur Sicherheit
    If *x\l>200
      *x\l=DesktopWidth(0)-#Radius
    Else
      *x\l=#Radius
    EndIf  
    
  EndIf
  If *y\l<#Radius Or *y\l+#Radius> DesktopHeight(0)
    *RY\l*(-1) 
    ; Zur Sicherheit
    If *y\l>200
      *y\l=DesktopHeight(0)-#Radius
    Else
      *y\l=#Radius
    EndIf  
  EndIf 
  
  *x\l+*Speedx\l**RX\l
  *y\l+*SpeedY\l**RY\l
  If *Speedx\l>0
    *Speedx\l-1
  Else
    *Speedx\l=0
  EndIf  
  If *SpeedY\l>0
    *SpeedY\l-1
  Else
    *SpeedY\l=0
  EndIf
  
   
  Circle(*x\l,*y\l,#Radius,#Red)
  
  
EndProcedure


OpenScreen(DesktopWidth(0),DesktopHeight(0),DesktopDepth(0),"Ball") 

; Variablen
XPos.l=DesktopWidth(0)/2
YPos.l=DesktopHeight(0)/2
SpeedX_.l=0
SpeedY_.l=0
RY_.l=0
RX_.l=0

Repeat 
  Delay(10) 
  ClearScreen(0) 
  
  ExamineKeyboard() 
  ExamineMouse() 
  
  If Not(MouseDeltaX()=0 And MouseDeltaY()=0)
  If MouseDeltaX()>0
    RX_=1
  Else
    RX_=-1
  EndIf  
  If MouseDeltaY()>0
    RY_=1
  Else
    RY_=-1
  EndIf  
  SpeedY_=10 ; die Geschwindigkeit, die dazu kommt oder abnimmt, muss hier eingetragen werden
  SpeedX_=10
  EndIf 
  
  
  StartDrawing(ScreenOutput())
  Ball(@XPos,@YPos,@SpeedX_,@SpeedY_,@RX_,@RY_)
  
  StopDrawing()
  
  
  FlipBuffers() 
Until KeyboardPushed(#PB_Key_Escape)
Zeile 78 hat geschrieben:SpeedY_=10 ; die Geschwindigkeit, die dazu kommt oder abnimmt, muss hier eingetragen werden
Hoffe, es hilft dir und es ist verständlich.
Vielleicht hast in der Zwischenzeit ja schon was hübscheres geschafft.

:allright:
Kinder an die Macht http://scratch.mit.edu/
Nach oben
Benutzeravatar
Xaby
Beiträge: 2144
Registriert: 12.11.2005 11:29
Wohnort: Berlin + Zehdenick
Kontaktdaten:
Kontaktdaten von Xaby

Beitrag von Xaby »

Schau mal im CodeArchive:

Graphics\Sprites&Screen\SpriteCollisions

... Elastic Collision ...

:allright:
Kinder an die Macht http://scratch.mit.edu/
Nach oben
Antworten

Zurück zu „Anfänger“