Plugin hwnd=Window.GetKeyFocusWnd()
Plugin cc=Window.GetClass(hwnd)
If StrComp(cc,"MacromediaFlashPlayerActiveX")<>0
    VBS MsgBox "遊戲視窗註冊失敗！"+vbCrLf+"* 請點擊一下遊戲畫面再啟動腳本"
    EndScript 
EndIf 
Plugin rect=Window.GetClientRect(hwnd)
VBS rect2=Split(rect,"|"):x=rect2(0):y=rect2(1)
VBS Dim p:p=0
VBS Dim k(10)
While true
    VBSCall color=GetPixelColor(x+202+5*34,y+346)
    If color="6A453E" or color="6F5651" or color="FEA796" or color="EA9A8A" or color="7B74FF" or color="8A7CDA" or color="323978" or color="49496D" or color="E0A09B" or color="EDEADC" or color="E4DBD8" or color="7E5C56" or color="443D8E" or color="D2DFDD" or color="CFDAFF" or color="7071E9"
        VBS s=0
    Else 
        VBSCall color=GetPixelColor(x+202+17+4*34,y+346)
        If color="6A453E" or color="6F5651" or color="FEA796" or color="EA9A8A" or color="7B74FF" or color="8A7CDA" or color="323978" or color="49496D" or color="E0A09B" or color="EDEADC" or color="E4DBD8" or color="7E5C56" or color="443D8E" or color="D2DFDD" or color="CFDAFF" or color="7071E9"
            VBS s=17
        Else 
            Goto PressSpace
        EndIf 
    EndIf 
    VBS i=0
    For 11
        VBSCall color=GetPixelColor(x+202+s+i*34,y+346)
        If color="6A453E" or color="7B74FF"
            VBS k(i)=4
        Else 
            If color="6F5651" or color="8A7CDA"
                VBS k(i)=8
            Else 
                If color="FEA796" or color="323978"
                    VBS k(i)=6
                Else 
                    If color="EA9A8A" or color="49496D"
                        VBS k(i)=2
                    Else 
                        If color="E0A09B" or color="443D8E"
                            VBS k(i)=1
                        Else 
                            If color="EDEADC" or color="D2DFDD"
                                VBS k(i)=3
                            Else 
                                If color="E4DBD8" or color="CFDAFF"
                                    VBS k(i)=7
                                Else 
                                    If color="7E5C56" or color="7071E9"
                                        VBS k(i)=9
                                    Else 
                                        VBS k(i)=0
                                    EndIf 
                                EndIf 
                            EndIf 
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
        VBS i=i+1
    EndFor 
    VBS i=0
    For 11
        If k(i)>0
            VBS vk=96+k(i)
            KeyDown vk,1
            KeyUp vk,1
        EndIf 
        VBS i=i+1
    EndFor 
    Rem PressSpace
    IfColor x+479+p,y+315,ffffff,0
        KeyDown 32,1
        KeyUp 32,1
    EndIf 
    GetLastKey hotkey
    If hotkey=120
        VBS p=0
        Beep 
    ElseIf hotkey=118
        VBS p=p-1
        Beep 
    ElseIf hotkey=119
        VBS p=p+1
        Beep 
    EndIf 
    VBS hotkey=0
EndWhile