How can I make this continue

[Infinitex0]

expandcollapse popup

$text = InputBox( "Music Machine 7.0", "" & @CRLF & "[00]Eminem:Just the way I am" & @CRLF & "[01]Eminem:The real Slim Shady" & @CRLF & "[02]Track1" & @CRLF & "[03]Crank It Up" & @CRLF & "[04]Lil'John" & @CRLF & "[05]50cent:Envy Me" & @CRLF & "[06]50cent:Disco Inferno" & @CRLF & "[07]I'm a Hustler" & @CRLF & "[08]50cent:How We Do" & @CRLF & "[09]T.I.:You Don't Know Me" & @CRLF & "[10]T.I.:Bring Em Out" & @CRLF & "[11]G-Unit:Poppin Those Thangz" & @CRLF & "[12]Jay-Z:Brush That Dirt Off Your Shoulder" & @CRLF & "[13]Jay-Z:Moment Of Clarity" & @CRLF & "[14]Jay-Z:99 Problems" & @CRLF & "[15]Kanye-West:Jesus Walks" & @CRLF & "[16]Trillville:Neva Eva" & @CRLF & "[17]YoungBloodz:Damn" & @CRLF & "[18]Chingy:Right Thurr" & @CRLF & "[19]Nate Dog:Gangsta Nation" & @CRLF & "[20]J-Kwon:Tipsy"  , "","","240",389)
If @error = 1 Then
MsgBox(4096, "Music", "OK, come back any time.")
Exit
EndIf
If $text = "00" Then 
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
    SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Eminem\The Marshall Mathers LP\07 The Way I Am.wma", 1)

ElseIf $text = "01" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Eminem\The Marshall Mathers LP\08 The Real Slim Shady.wma", 1)

ElseIf $text = "02" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Unknown Artist\Unknown Album (1-26-2006 8-09-11 PM)\01 Track 1.wma", 1)

ElseIf $text = "03" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Unknown Artist\Unknown Album (1-26-2006 8-09-11 PM)\02 Track 2.wma", 1)

ElseIf $text = "04" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Unknown Artist\Unknown Album (1-26-2006 8-09-11 PM)\05 Track 5.wma", 1)
    
ElseIf $text = "05" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\DJ Famous\famous radio pt.19\01 Envy Me.wma", 1)

ElseIf $text = "06" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\DJ Famous\famous radio pt.19\04 Disco Inferno.wma", 1)

ElseIf $text = "07" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\DJ Famous\famous radio pt.19\05 Im A Hustler.wma", 1)

ElseIf $text = "08" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\DJ Famous\famous radio pt.19\07 How We Do.wma", 1)

ElseIf $text = "09" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\DJ Famous\famous radio pt.19\12 You Don't Know Me.wma", 1)

ElseIf $text = "10" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\DJ Famous\famous radio pt.19\09 Bring Em Out.wma", 1)

ElseIf $text = "11" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\G-Unit\Beg for Mercy [Clean]\02 Poppin' Them Thangs.wma", 1)

ElseIf $text = "12" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Jay-Z\The Black Album [Clean]\06 Dirt Off Your Shoulder.wma", 1)

ElseIf $text = "13" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Jay-Z\The Black Album [Clean]\08 Moment of Clarity.wma", 1)

ElseIf $text = "14" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Jay-Z\The Black Album [Clean]\09 99 Problems.wma", 1)

ElseIf $text = "15" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Kanye West\The College Dropout\07 Jesus Walks.wma", 1)

ElseIf $text = "16" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Trillville\Neva Eva", 1)

ElseIf $text = "17" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Various Artists\Source Presents- Hip Hop Hits, Vol. 8 [Clean]\01 Damn.wma", 1)

ElseIf $text = "18" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Various Artists\Source Presents- Hip Hop Hits, Vol. 8 [Clean]\03 Right Thurr.wma", 1)

ElseIf $text = "19" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Various Artists\Source Presents- Hip Hop Hits, Vol. 8 [Clean]\05 Gangsta Nation.wma", 1)

ElseIf $text = "20" Then
    $bLoop = 0
    MsgBox(4096, "Got that", "Here")
       SoundPlay("C:\Documents and Settings\Administrator\My Documents\My Music\Various Artists\Source Presents- Hip Hop Hits, Vol. 8 [Clean]\09 Tipsy.wma", 1)
Else
    MsgBox(4096, "Don't Have", "Sorry don't have that")
EndIf

Whenever a song is done or invalid text is input the script closes. How can I make the script not close until you hit "cancel" or the "X" button? Also I need a way to stop a song whenever you choose.

Edited February 9, 2006 by Infinitex0

[SmOke_N]

Put them in a loop.. and use GUIGetMsg()?

[flaxcrack]

Put them in a loop.. and use GUIGetMsg()?

While 1 at the very top and a WEND at the very bottom... Muuuahahahaha!