Screenoutput collision ?

Ghost · Beitrag von **Ghost** » 22.06.2006 18:01

Hi
Gibt es eine möglichkeit zu überprüfen ob 2 Screenoutputs miteinander colliedieren ?
Ich wollte mal das Uralte Tennis Clonen und bekommen die kolision zwischen dem schläger (einfacheBox) und dem Ball (auch einfache Box) nicht hinn. Wenn ich es so mache wie unten sagt er immer There is not a curently 2D objeckt.
Ich könnte zwar richtige Bilder nehmen aber mit screenoutputs find ich es besser.

Code: Alles auswählen

If SpriteCollision(Box(0,PlayeryI,20,100),0,PlayeryI,Box(BallX,BallY,10,10),BallX,Bally)

PMV · Beitrag von **PMV** » 22.06.2006 18:10

Ich könnte zwar richtige Bilder nehmen aber mit screenoutputs find ich es besser.

du fährst wohl auch Fahrrad, allerdings montierste vorher Käste anstelle
von Rädern?

Und dann beschwerst du dich, warum das nicht geht ...
*lol*

SpriteCollision erwartet ... Sprites ... und somit solltest du auch solche
übergeben oder dir eigene Kollisionen schreiben ...

MFG PMV

Ghost · Beitrag von **Ghost** » 22.06.2006 18:19

hmm Käasten statt Räder ?... gute Idee werd ich gleich mal Probieren (bisher nahm ich immer oktaeder aber irgendwie lässt es sich damit schwer fahren )

nee jetzt aber mal ernst
gibt es denn so eine art :if Screenoutputcollision(...)
immerhinn hatten die damals ja auch keine Bilder (gut die haben auch net mit PB Programmiert)
oder baust du in einen Oldi nen V8 Motor???

AndyX · Beitrag von **AndyX** » 22.06.2006 18:43

Es gibt keine Screenoutput-Kollision, wäre auch völlig unnötig. Du kannst nicht mal zwei Screens gleichzeitig erstellen.

Aber lies mal in der Hilfe nach. Der Befehl SpriteCollision verlangt ein Sprite, nicht 0.

Ghost · Beitrag von **Ghost** » 22.06.2006 18:55

in der Hilfe hab ich schon nachgesehen (leider kaum was gefunden)
ich mein kein Scren collision sondern Screenoutput collision und mehrere Screenoutputs zB. Boxen Ounkte ect. )kann man ja haben

is aber auch net so schlimm dann nehm ich halt Bilder

#NULL · Beitrag von **#NULL** » 22.06.2006 19:01

Box(...) ist als parameter völlig sinnlos. sie ist eine zeichen-anweisung und gibt keinen nützlichen wert zurück (höchsten die konstante "1"), und schon gar keinen, mit dem ein objekt identifiziert werden konnte, denn es wird ja in Box() auch kein objekt erstellt.

wenn du mit screenoutputs sowas wie drawingoutputs meinst, dann sind dies bezüglich der der kollisionsprüfung genau die besagten sprites und images.

// boxen, kreise, plots, lines.... das sind keine outputs und auch sonst keine objekte. das sind einfach mittels der zeichen-anweisungen in den (video-)speicher geschriebene punktmengen.

Deeem2031 · Beitrag von **Deeem2031** » 22.06.2006 19:11

Sowas würde gehen:

Code: Alles auswählen

Structure DrawingInfoStruct
	Type.l    ; Type of the DC
	Window.l  ; Window associated to the DC (if any)
	DC.l      ; DC
	ReleaseProcedure.l ; Address to a procedure to release the DC when StopDrawing() is called 
	PixelBuffer.l      ; Address of the memory pixel buffer (DirectX)
	Pitch.l            ; Pitch
	Width.l
	Height.l
	Depth.l
EndStructure

Procedure OutputCollision(*DrawingInfo1.DrawingInfoStruct,X1,Y1,*DrawingInfo2.DrawingInfoStruct,X2,Y2)
  Protected result = #False
  If *DrawingInfo1 And *DrawingInfo2
    If X1 + *DrawingInfo1\Width > X2 And X2 + *DrawingInfo2\Width > X1
      If Y1 + *DrawingInfo1\Height > Y2 And Y2 + *DrawingInfo2\Height > Y1
        result = #True
      EndIf
    EndIf
    CallFunctionFast(*DrawingInfo1\ReleaseProcedure)
    CallFunctionFast(*DrawingInfo2\ReleaseProcedure)
  ElseIf *DrawingInfo1
    CallFunctionFast(*DrawingInfo1\ReleaseProcedure)
  ElseIf *DrawingInfo2
    CallFunctionFast(*DrawingInfo2\ReleaseProcedure)
  EndIf
  ProcedureReturn result
EndProcedure

Habs aber nich getestet

Ghost · Beitrag von **Ghost** » 22.06.2006 19:49

@Null ok danke für die erklärung

@Deeem2031

Wow ich glaub das is noch nen wenig zu hoch für mich

aber danke

und danke noch mal an alle anderen

PMV · Beitrag von **PMV** » 22.06.2006 20:10

loool ... das wäre natürlich auch eine möglichkeit ... aber dann könnt
er wohl besser Sprites verwenden, es sei denn er malt auf Fenstern rum
ohne Screen

...

Also ich lös das ganze jetzt mal auf ... dafür hab ich ja auch angefangen

... ok eigentlich du aber unbeabsichtigt

Problemstellung: Du möchtest die Position von zwei Rechtecke
miteinander vergleichen. Schneiden diese sich, soll das erkannt werden.

Lösung: einfache IF-Abfragen

Und mittels IF-Abfragen und kleinen Formeln hat man sich früher
beholfen, um die Kollision mit Kasten oder/ und Kreisen bestimmen zu
können.

Natürlich wäre das eine relativ lange IF-Abfrage (bzw zur übersichtlichkeit
sollte man das splitten), aber es ist genau das, was dein Problem am
besten und einfachsten lösen würde, wenn du halt keine Sprites
verwenden möchtest.

Wenn du das nicht alleine hin bekommst kannst ja noch mal lieb fragen ...
aber erst mal selber versuchen

MFG PMV

Ghost · Beitrag von **Ghost** » 22.06.2006 20:34

ok habs jetzt leider schon mit Bildern gemacht

ich stell mal rein

Code: Alles auswählen

InitSprite ()
InitMovie ()
InitMouse ()
InitKeyboard ()

OpenScreen (1024,768,32,"old Tennis")

LoadSprite(0,"EinstellungF:PlayerI.bmp",0)
LoadSprite(1,"PlayerII.bmp",0)
LoadSprite(2,"Ball.bmp",0)


Global PlayeryI.l
PlayeryI = 512

Global PlayeryII.l
PlayeryII = 100

Global x.l
x= Random(1)

Global BallSpeedy.l
BallSpeedy=5 

Global BallX.l
Global BallY.l
Global SpeedBall.l
BallX = 512
BallY = 384
SpeedBall = 3

Global PunktePI.l
Global PunktePII.l

Global Delay.l
Delay = 100

Repeat
ExamineMouse()
ExamineKeyboard()
FlipBuffers ()
ClearScreen (0,0,0)


If delay = 0
BallX - SpeedBall
EndIf 

If delay > 0
delay -1
EndIf 


BallY - BallSpeedy


If BallY < 768
 BallSpeedy* -1
EndIf 

If BallY >0
 BallSpeedy* -1
 EndIf 
 
 
 If BallX>1024
 Delay = Random(500)
 SpeedBall= 3
 PlayerPI+1
 BallX=512
 EndIf 
 
  If BallX<0
  Delay = Random(500)
  SpeedBall= 3
 PlayerPII+1
  BallX=512
 EndIf 
 
If speedball >19
speedball =19
EndIf



If SpriteCollision (0,0,PlayeryI,2,BallX,BallY)
SpeedBall +1 
SpeedBall* -1
EndIf 

If SpriteCollision (1,1000,PlayeryII,2,BallX,BallY)
SpeedBall -1
 SpeedBall * - 1
EndIf 


If KeyboardPushed(#PB_key_Down)
PlayeryI +10
  EndIf 
  
  If KeyboardPushed(#PB_key_Up)
PlayeryI - 10
  EndIf 
  
  If MouseButton(1)
PlayeryII -10
  EndIf 
  
If MouseButton(2)
PlayeryII +10
  EndIf 
  
  
 StartDrawing(ScreenOutput()) 
 DrawingMode(1)               
 Locate(200,0)                 
 FrontColor(0,0,255)          
 DrawText("P:" + Str(PlayerPI)) 
 Locate(800,0)                
  FrontColor(255,0,0)          
  DrawText("P:" + Str(PlayerPII)) 
StopDrawing()
  
 DisplayTransparentSprite(0,0,PlayeryI)
 DisplayTransparentSprite(1,1000,PlayeryII)
 DisplayTransparentSprite(2,BallX,BallY)
    

If KeyboardPushed(#PB_Key_Escape)
End
EndIf 
ForEver

ist ein schönes 2 Playergame (kam leider noch nicht dazu alles richtig einzurücken und zu ordnen also bitte net meckern)

aber ich versuch es morgen nochma mit Screenoutputs

wie meinst du das mit den If befehlen
meinst du ich soll eine Variablen für die kannten des Schlägers und Ball machen und dann über if-Befehle ermitteln ob sie sich schneiden oder überlappen?