Desktop Game

[Infinitex0]

#include <Misc.au3>

HotKeySet("{F1}", "terminate")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

SplashImageOn("", "C:\Documents and Settings\Owner\My Documents\My Pictures\desktop.JPG", 1023, 769, 0, 0, 1)
If _IsPressed("01") Then
$Pos0 = MouseGetPos()
$wherepic = GUICtrlCreatePic("C:\Documents and Settings\Owner\My Documents\My Pictures\bullet hole.bmp", $Pos0[0], $Pos0[1]) 
GUICtrlSetData($Pos0[0], MouseGetPos(0))
GUICtrlSetData($Pos0[1], MouseGetPos(1))
EndIf
sleep(2147483647)
SplashOff()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func terminate()
SplashOff()
Exit 0
EndFunc

this is a program that is supposed to make a picture of my desktop appear and whenever I click make a bullet hole appear in the desktop picture. Problem is that whenever Iclick nothing happens. Any ideas?

[greenmachine]

It only checks for the mouseclick on the first run-through, and then just sleeps... forever. You need to put the check in a loop.

[Infinitex0]

Okay this is what I have now.

#include <Misc.au3>

HotKeySet("{F1}", "terminate")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

SplashImageOn("", "C:\Documents and Settings\Owner\My Documents\My Pictures\desktop.JPG", 1023, 769, 0, 0, 1)
If _IsPressed("01") Then
while 1
$Pos0 = MouseGetPos()
$wherepic = GUICtrlCreatePic("C:\Documents and Settings\Owner\My Documents\My Pictures\bullet hole.bmp", $Pos0[0], $Pos0[1]) 
GUICtrlSetData($Pos0[0], MouseGetPos(0))
GUICtrlSetData($Pos0[1], MouseGetPos(1))
WEnd
EndIf
sleep(2147483647)
SplashOff()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func terminate()
SplashOff()
Exit 0
EndFunc

But for some reason it is not working. Why?

Edited April 2, 2006 by Infinitex0

[greenmachine]

The _IsPressed needs to be in the loop too.. otherwise you're still checking once, and if you happen to be clicking the mouse at the time, it will loop in that location forever.

[Infinitex0]

Okay this is what I have now

#include <Misc.au3>

HotKeySet("{F1}", "terminate")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

SplashImageOn("", "C:\Documents and Settings\Owner\My Documents\My Pictures\desktop.JPG", 1023, 769, 0, 0, 1)
While 1
If _IsPressed("01") Then
$Pos0 = MouseGetPos()
$wherepic = GUICtrlCreatePic("C:\Documents and Settings\Owner\My Documents\My Pictures\bullet hole.bmp", $Pos0[0], $Pos0[1]) 
GUICtrlSetData($Pos0[0], MouseGetPos(0))
GUICtrlSetData($Pos0[1], MouseGetPos(1))
EndIf
WEnd
sleep(2147483647)
SplashOff()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func terminate()
SplashOff()
Exit 0
EndFunc

but it still doesn't work. Any ideas?

[greenmachine]

Maybe because you're trying to use GUI functions on a SplashImage?

[Infinitex0]

I see, in that case what's that funtion used to set an image as a backround?

(I'm realy out of it)

Edited April 2, 2006 by Infinitex0

[ConsultingJoe]

this is what I did

#include <Misc.au3>

HotKeySet("{F1}", "terminate")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While 1
If _IsPressed("01") Then
$Pos0 = MouseGetPos()
;GUICreate("My GUI picture",350,300,-1,-1)
SplashImageOn ( "", @ScriptDir & "\test.bmp", 48, 48,$Pos0[0], $Pos0[1], 1  )
;$wherepic = GUICtrlCreatePic(@ScriptDir & "\test.bmp", $Pos0[0], $Pos0[1])
GUISetState ()

GUICtrlSetData($Pos0[0], MouseGetPos(0))
GUICtrlSetData($Pos0[1], MouseGetPos(1))
EndIf
sleep(100)
WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func terminate()
SplashOff()
Exit 0
EndFunc

[RazerM]

@zerocool

that works but you should change it to

GUICtrlSetData($Pos0[0] - 24, MouseGetPos(0))
GUICtrlSetData($Pos0[1] - 24, MouseGetPos(1))

to centre it