hment "c:\","*.mp3"
Delay 3000

Dim X
X=inputbox("1+2=?   A:1 B:2 C:3","那个，对  就是你了！","这个，额 应该懂吧？！！")
If X=1 Then
MessageBox "失败~~"
Call Plugin.Media.Play("C:\C.mp3")
    Delay 8000
Call Plugin.Media.Stop()
ElseIf X=2
MessageBox "无语~~"
Call Plugin.Media.Play("C:\B.mp3")
    Delay 5000
Call Plugin.Media.Stop()
Else
MessageBox "哇噻！！好~~厉害啊"
Call Plugin.Media.Play("C:\A.mp3")
    Delay 5000
Call Plugin.Media.Stop()
End If
Delay 2000
EndScript