Trouble Properly Freeing Object

[Simucal]

Alright, In my "Aimbot: Proof of Concepts" script everything works like a charm except one thing:

When you try and change games after already playing one.. it will switch to the other game... HOWEVER, the sound from the previous one is still playing.

I figured freeing the object by "$oGame = 0" would do the trick.

I have also tried, GuiCtrlDelete($oGame), GuiCtrlDelete($GUIActiveX), and $oGame.Stop

No matter what.. the sound from the previously loaded game continues to play. And if you switch games mutliple times the sounds stack up on eachother. What in the hell am I doing wrong??

I found the reference code to embed a flash .swf in a Gui window here: http://www.autoitscript.com/forum/index.ph...hockwaveFlash.1

Here is the code for my Aimbot Example Script:

(It is also posted in scripts and scraps: http://www.autoitscript.com/forum/index.php?showtopic=24784)

expandcollapse popup

; Written by: Simucal
#include <GUIConstants.au3>
Global $Aimbot = 0, $found = "no"

Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
Opt("MouseClickDelay", 0)
Opt("MouseClickDownDelay", 0)

HotKeySet("{Space}", "ToggleAimbot")

While 1
    $SelectionForm = GUICreate("Aimbot - Proof of Concept", 298, 83, 350, 400)
    GUICtrlCreateLabel("Choose a game:", 32, 8, 81, 17)
    $flybutton = GUICtrlCreateButton("Shoot the Fly", 32, 40, 105, 25)
    $csbutton = GUICtrlCreateButton("Camper Strike", 168, 40, 105, 25)
    
    GUISetState()
    
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $flybutton
                $gamename = "Shoot the Fly"
                GUIDelete($SelectionForm)
                ExitLoop
            Case $msg = $csbutton
                $gamename = "Camper Strike"
                GUIDelete($SelectionForm)
                ExitLoop
            Case $msg = $GUI_EVENT_CLOSE
                Exit
        EndSelect
    WEnd
    
    $oGame = ObjCreate ("ShockwaveFlash.ShockwaveFlash.1")
    $GameForm = GUICreate($gamename & ": Aimbot Proof of Concept", 820, 660, -1, -1)
    $GUIActiveX = GUICtrlCreateObj ($oGame, 10, 10, 800, 580)
    $exitbutton = GUICtrlCreateButton("Exit", 704, 624, 89, 25)
    $changebutton = GUICtrlCreateButton("Change Game", 610, 624, 89, 25)
    GUICtrlCreateLabel("Hit [Space] to toggle the aimbot!", 16, 608, 156, 17)
    $status = GUICtrlCreateLabel("Aimbot Status: Off", 16, 624, 500, 33)
    GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
    
    If $gamename = "Shoot the Fly" Then
        With $oGame
            .bgcolor = "#000000"
            .Movie = 'http://farm.addictinggames.com/D78AQSAKQLQWI9/1130.swf'
            .ScaleMode = 2
            .Loop = True
            .wmode = "Opaque"
        EndWith
        $searchcolor = 0x23AC00
    Else
        With $oGame
            .bgcolor = "#000000"
            .Movie = 'http://farm.addictinggames.com/D78AQSAKQLQWI9/2025.swf'
            .ScaleMode = 2
            .Loop = True
            .wmode = "Opaque"
        EndWith
        $headshot = 0xFF9986
        $bodyshot = 0xFF7070
        $searchcolor = 0xFF9986
        $headradio = GUICtrlCreateRadio("ARadio1", 425, 608, 17, 17)
        GUICtrlSetState(-1, $GUI_CHECKED)
        $bodyradio = GUICtrlCreateRadio("ARadio2", 505, 608, 17, 17)
        GUICtrlCreateLabel("Headshot", 443, 608, 50, 17)
        GUICtrlCreateLabel("Bodyshot", 523, 608, 48, 17)
        GUICtrlCreateLabel("Aimbot Options:", 340, 608, 78, 17)
    EndIf
    
    GUISetState()
    
    While 1
        If $Aimbot = 1 Then; Normal Auto-Aim
            $coord = PixelSearch(10, 10, 800, 580, $searchcolor)
            If IsArray($coord) = 1 Then
                MouseMove($coord[0], $coord[1], 0)
            EndIf
        EndIf
        If $Aimbot = 2 Then; Auto-Aim + Autoshoot
            $coord = PixelSearch(10, 10, 800, 580, $searchcolor)
            If IsArray($coord) = 1 Then
                MouseClick('left',$coord[0], $coord[1],1,0)
                If $gamename = "Camper Strike" Then Send("r")
            EndIf
        EndIf
        If $Aimbot = 3 Then; Snap-to
            $pos = MouseGetPos()
            $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor)
            If IsArray($coord) = 1 Then
                MouseMove($coord[0], $coord[1], 0)
            EndIf
        EndIf
        If $Aimbot = 4 Then; Snap-to + Autoshoot
            $pos = MouseGetPos()
            $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor)
            If IsArray($coord) = 1 Then
                MouseClick('left',$coord[0], $coord[1],1,0)
                If $gamename = "Camper Strike" Then Send("r")
            EndIf
        EndIf
        If $Aimbot = 5 Then; Auto Lock-On the first available target (best)
            If $found = "no" Then
                $coord = PixelSearch(10, 10, 800, 580, $searchcolor)
                If IsArray($coord) = 1 Then
                    MouseMove($coord[0], $coord[1], 0)
                    $found = "yes"
                EndIf
            Else
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor)
                If IsArray($coord) = 1 Then
                    MouseMove($coord[0], $coord[1], 0)
                Else
                    $found = "no"
                EndIf
            EndIf
        EndIf
        If $Aimbot = 6 Then; Auto Lock-On the first available target + Autoshoot
            If $found = "no" Then
                $coord = PixelSearch(10, 10, 800, 580, $searchcolor)
                If IsArray($coord) = 1 Then
                    MouseMove($coord[0], $coord[1], 0)
                    $found = "yes"
                EndIf
            Else
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor)
                If IsArray($coord) = 1 Then
                    MouseClick('left',$coord[0], $coord[1],1,0)
                    If $gamename = "Camper Strike" Then
                        Send("r")
                    EndIf
                Else
                    $found = "no"
                EndIf
            EndIf
        EndIf
        $msg = GUIGetMsg()
        If $gamename = "Shoot the fly" Then
            Select
                Case $msg = $exitbutton
                    ExitLoop 2
                Case $msg = $changebutton
                    GUIDelete($GameForm)
                    ExitLoop 1
                Case $msg = $GUI_EVENT_CLOSE
                    ExitLoop 2
            EndSelect
        EndIf
        If $gamename = "Camper Strike" Then
            Select
                Case $msg = $exitbutton
                    ExitLoop 2
                Case $msg = $changebutton
                    $oGame.Stop
                    GUIDelete($GameForm)
                    ExitLoop 1
                Case $msg = $bodyradio
                    $searchcolor = $bodyshot
                Case $msg = $headradio
                    $searchcolor = $headshot
                Case $msg = $GUI_EVENT_CLOSE
                    ExitLoop 2
            EndSelect
        EndIf
        
    WEnd
    $oGame = 0
    GUIDelete()
WEnd
Exit

Func ToggleAimbot()
    If $Aimbot < 6 Then
        $Aimbot = $Aimbot + 1
    Else
        $Aimbot = 0
    EndIf
    Select
        Case $Aimbot = 0
            GUICtrlSetData($status, "Aimbot Status: Off")
        Case $Aimbot = 1
            GUICtrlSetData($status, "Aimbot Status: AutoFind")
        Case $Aimbot = 2
            GUICtrlSetData($status, "Aimbot Status: AutoFind + AutoShoot")
        Case $Aimbot = 3
            GUICtrlSetData($status, "Aimbot Status: Snap-To")
        Case $Aimbot = 4
            GUICtrlSetData($status, "Aimbot Status: Snap-To + AutoShoot")
        Case $Aimbot = 5
            GUICtrlSetData($status, "Aimbot Status: AutoFind/Lock-On")
        Case $Aimbot = 6
            GUICtrlSetData($status, "Aimbot Status: AutoFind/Lock-On + AutoShoot")
    EndSelect
EndFunc;==>ToggleAimbot

Edited April 17, 2006 by Simucal

[Simucal]

It's driving me nuts

[Thatsgreat2345]

huh i do it , i press change game and it works for me ? background music are completely dif the first one quits its not still playing by the way thats pretty nice

Edited April 17, 2006 by thatsgreat2345

[Simucal]

Doesnt do it for me. I've tried running it compiled also. The songs dont stop! I have also updated my Macromedia Flash plugin.

Edited April 17, 2006 by Simucal

[Thatsgreat2345]

im guessing its just you cuz the songs stop when i switch , and i kept switching a bunch and stuff the songs stop each time

[Simucal]

im guessing its just you cuz the songs stop when i switch , and i kept switching a bunch and stuff the songs stop each time

Haha, I would be curious to find out why MY script works for others but not myself

Click on camper strike and be sure to switch in the intro where you enter you name and there is background music. Try to switch to the fly game then.

Edited April 17, 2006 by Simucal

[Simucal]

Can someone else test this for me?

Click on "Camper Strike", wait for intro music, then click change game.. and see if the music is still playing.

[Thatsgreat2345]

i did that, typed in my name then clicked change game the music quit... LOL idk why it aint workin for u