Seltsames Probem

Übersicht

BlitzBasic

Beginners-Corner

	mk Betreff: Seltsames Probem	Mi, Feb 09, 2005 19:00 Antworten mit Zitat
Kann mir jemand helfen? Wenn die Feder mit dem Fuss kollidiert, und man die linke maustaste drückt, spielt das Programm keinen lachsound ab, nur an der rechten: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,0,2 SetBuffer BackBuffer() fuss=LoadImage ("data\fuss.bmp") feder=LoadImage ("data\feder.bmp") s=LoadImage ("data\schalter.bmp") son=LoadImage ("data\schalteron.bmp") Global laugh1=LoadSound ("data\l1.mp3") Global laugh2=LoadSound ("data\l2.au") MaskImage fuss,255,255,255 MaskImage feder,255,255,255 fussx=fussx-100 HidePointer Repeat mx=MouseX() my=MouseY() scol=ImagesCollide (feder,mx,my,0,s,600,300,0) If scol=1 And MouseHit (1) Then scoll=scoll+1 If scoll>0 Then DrawImage son,600,300 fussx=fussx+1 Else DrawImage s,600,300 EndIf If fussx=100 Then fussx=fussx-1 federfusscol=ImagesCollide (feder,mx,my,0,fuss,100,fussx,0) ;geht nicht: If federfusscol=1 And MouseHit (1) Then s1=PlaySound (laugh2) ;geht: If federfusscol=1 And MouseHit (2) Then s1=PlaySound (laugh2) DrawImage fuss,100,fussx DrawImage feder,mx,my Flip Delay 1 Cls Until KeyHit(1)
Pentium 4 2,6 GHz \| 256 MB RAM \| 120 GB Festplatte \| DVD-ROM Laufwerk (48 Fach) \| I am a noob www.marcelkroener.de.vu Mein Arcor Webspace =)

mk

Betreff: Seltsames Probem

Mi, Feb 09, 2005 19:00
Antworten mit Zitat

Kann mir jemand helfen?
Wenn die Feder mit dem Fuss kollidiert, und man die linke maustaste drückt, spielt das Programm keinen lachsound ab, nur an der rechten:

Code: [AUSKLAPPEN]

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

fuss=LoadImage ("data\fuss.bmp")
feder=LoadImage ("data\feder.bmp")
s=LoadImage ("data\schalter.bmp")
son=LoadImage ("data\schalteron.bmp")
Global laugh1=LoadSound ("data\l1.mp3")
Global laugh2=LoadSound ("data\l2.au")

MaskImage fuss,255,255,255
MaskImage feder,255,255,255

fussx=fussx-100

HidePointer

Repeat

mx=MouseX()
my=MouseY()

scol=ImagesCollide (feder,mx,my,0,s,600,300,0)

If scol=1 And MouseHit (1) Then scoll=scoll+1
If scoll>0 Then
DrawImage son,600,300
fussx=fussx+1
Else
DrawImage s,600,300
EndIf
If fussx=100 Then fussx=fussx-1

federfusscol=ImagesCollide (feder,mx,my,0,fuss,100,fussx,0)

;geht nicht:
If federfusscol=1 And MouseHit (1) Then s1=PlaySound (laugh2)
;geht:
If federfusscol=1 And MouseHit (2) Then s1=PlaySound (laugh2)

DrawImage fuss,100,fussx
DrawImage feder,mx,my

Flip
Delay 1
Cls
Until KeyHit(1)

Pentium 4 2,6 GHz | 256 MB RAM | 120 GB Festplatte | DVD-ROM Laufwerk (48 Fach) |

I am a noob Smile

www.marcelkroener.de.vu

Mein Arcor Webspace =)

	Digi_ Betreff: Re: Seltsames Probem	Mi, Feb 09, 2005 19:07 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,0,2 SetBuffer BackBuffer() fuss=LoadImage ("data\fuss.bmp") feder=LoadImage ("data\feder.bmp") s=LoadImage ("data\schalter.bmp") son=LoadImage ("data\schalteron.bmp") Global laugh1=LoadSound ("data\l1.mp3") Global laugh2=LoadSound ("data\l2.au") MaskImage fuss,255,255,255 MaskImage feder,255,255,255 fussx=fussx-100 HidePointer Repeat mx=MouseX() my=MouseY() scol=ImagesCollide (feder,mx,my,0,s,600,300,0) mousehits = MouseHit(1);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; If scol=1 And mousehits Then scoll=scoll+1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; If scoll>0 Then DrawImage son,600,300 fussx=fussx+1 Else DrawImage s,600,300 EndIf If fussx=100 Then fussx=fussx-1 federfusscol=ImagesCollide (feder,mx,my,0,fuss,100,fussx,0) ;geht nicht: If federfusscol=1 And mousehits Then s1=PlaySound (laugh2);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;geht: If federfusscol=1 And MouseHit (2) Then s1=PlaySound (laugh2) DrawImage fuss,100,fussx DrawImage feder,mx,my Flip Delay 1 Cls Until KeyHit(1) Zitat: Rückgabewert Anzahl der Betätigungen seit dem letzten Aufruf.

Digi_

Betreff: Re: Seltsames Probem

Mi, Feb 09, 2005 19:07
Antworten mit Zitat

Code: [AUSKLAPPEN]

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

fuss=LoadImage ("data\fuss.bmp")
feder=LoadImage ("data\feder.bmp")
s=LoadImage ("data\schalter.bmp")
son=LoadImage ("data\schalteron.bmp")
Global laugh1=LoadSound ("data\l1.mp3")
Global laugh2=LoadSound ("data\l2.au")

MaskImage fuss,255,255,255
MaskImage feder,255,255,255

fussx=fussx-100

HidePointer

Repeat

mx=MouseX()
my=MouseY()

scol=ImagesCollide (feder,mx,my,0,s,600,300,0)
mousehits = MouseHit(1);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
If scol=1 And mousehits Then scoll=scoll+1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
If scoll>0 Then
DrawImage son,600,300
fussx=fussx+1
Else
DrawImage s,600,300
EndIf
If fussx=100 Then fussx=fussx-1

federfusscol=ImagesCollide (feder,mx,my,0,fuss,100,fussx,0)

;geht nicht:
If federfusscol=1 And mousehits Then s1=PlaySound (laugh2);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;geht:
If federfusscol=1 And MouseHit (2) Then s1=PlaySound (laugh2)

DrawImage fuss,100,fussx
DrawImage feder,mx,my

Flip
Delay 1
Cls
Until KeyHit(1)

Zitat:

Rückgabewert
Anzahl der Betätigungen seit dem letzten Aufruf.

Zuletzt bearbeitet von Digi_ am Mi, Feb 09, 2005 19:08, insgesamt einmal bearbeitet

	simi	Mi, Feb 09, 2005 19:07 Antworten mit Zitat
StandardProblem: MouseHit(1) wurde schon oben abgefragt... Standardlösung: Am Anfang MouseHit in eine Variable speichern, und dann immer die Variable abfragen...

simi