Colourbot der Sounddatei abspielt.

[HipTheHop]

Hi,
wollte mir eigentlich nur nen kleinen Colourbot skripten, der während er die ganze Zeit Leertaste und X drückt einen Bereich nach der Farbei weiß (0xFFFFFF) absucht. Er sollte bei erfolgreichen Fund die Schleife verlassen und eine Sounddatei die sich unter C:\media\sound.wav befindet abspielen.

Hier mein Skript:

HotKeySet("{insert}", "_start")
HotKeySet("{delete}", "_stop")
HotKeySet("{end}", "_ende")
HotKeySet("{F8}", "OL")
HotKeySet("{F9}", "UR")

Global $OL
Global $UR


While 1
Sleep(1000)
WEnd



Func OL()
$OL = MouseGetPos()
EndFunc

Func UR()
$UR = MouseGetPos()
EndFunc


Func _start()
Local $pic
While 1
Send("{Space}")
Sleep(250)
Send("x")
$pic = PixelSearch($OL[0], $OL[1], $UR[0], $UR[1], 0xFFFFFF, 5, 1)
If IsArray($pic) Then
ExitLoop
_stop()
; Hier soll der Sound, der sich unter C:\media\sound.wav befindet abgespielt werden
Else
EndIf
WEnd
EndFunc

Func _stop()
While 1
Sleep(1000)
WEnd
EndFunc

Func _ende()
Exit
EndFunc

Bekomms nur nicht hin, wie ich den Sound abspielen lasse. Habs mit Soundplay probiert, aber es hat nicht funktioniert, nur die Schleife wurde durch Exitloop verlassen. Im Fertigen Skrip soll natürlich der Funktionsaufruf _stop() nach Exitloop nicht da sein, hab ich nur schnell eingebaut, da es nich anders ging.
Ich hoffe ihr könnt mir dabei helfen, wie ich den Sound abspielen kann.

Mfg, HipTheHop.

P.S.: Die Soundplay aufforderung hab ich so reingebaut:

...
If IsArray($pic) Then
SoundPlay(@WindowsDir & "\media\sound.wav", 1)
Else
...

[| Moep |]

1. Befindet sich in meinem Windows Ordner keine sound.wav Datei, probiers mal mit SoundPlay(@WindowsDir & "\media\tada.wav",1)
2. ExitLoop beendet eine While-, Do- oder For-Schleife. D.h. du müsstest dich nachdem der Pixel gefunden wurde wieder in ersten while schleife befinden.
3. Durch zweitens wird niemals _stop() und soundplay ausgeführt

[HipTheHop]

Oh, hab den Fehler gefunden, hatte meinen Sound in C:\Media drin, nachdem ich ihn in C:\WINDOWS\Media gepackt habe gehts. Vielen dank^^

Das ganze sieht jetz so aus:

#include <Sound.au3>


HotKeySet("{insert}", "_start")
HotKeySet("{delete}", "_stop")
HotKeySet("{end}", "_ende")
HotKeySet("{F8}", "OL")
HotKeySet("{F9}", "UR")

Global $OL
Global $UR
Global $sound
Global $sound1




While 1
Sleep(1000)
WEnd



Func OL()
$OL = MouseGetPos()
EndFunc

Func UR()
$UR = MouseGetPos()
EndFunc


Func _start()
Local $pic
While 1
Send("{Space}")
Sleep(250)
Send("x")
$pic = PixelSearch($OL[0], $OL[1], $UR[0], $UR[1], 0xFFFFFF, 5, 1)
If IsArray($pic) Then
$sound = _SoundOpen(@WindowsDir & "\media\tada.wav", $sound1)
_SoundPlay($sound, 1)
_SoundStop($sound)
ExitLoop
_stop()
Else
EndIf
WEnd
EndFunc

Func _stop()
While 1
Sleep(1000)
WEnd
EndFunc

Func _ende()
Exit
EndFunc