//先定义变量
dim x,y,bx,by,lx,ly,i,hm
dim jt(7),t(8)
jt(0)="s":jt(1)="x":jt(2)="z":jt(3)="y":jt(4)="1":jt(5)="3":jt(6)="7":jt(7)="9"
t(0)="1t":t(1)="2t":t(2)="3t":t(3)="4t":t(4)="5t":t(5)="6t":t(6)="7t":t(7)="8t":t(8)="9t"
y=501:by=542
Rem 从头开始
//检查游戏有没有开始，不然还没有开始就执行的哟？
IfColor 376,484,c4efff,1
    Goto 从头开始
EndIf 
//如果已经出现在了箭头，就调用找数字的子程序，以确定它的起、始位置
Gosub 找数字
bx=x+35
While bx<hm
    i=0
    For 8
        //按照变量上的图片循环找色
        VBSCall findpic(x,y,bx,by,"Attachment:\"&jt(i)&".bmp",0.7,lx,ly)
        If lx>0
            //如果找到，就调用按箭头子程序
            Gosub 按箭头
            Delay 30
            //为了节省再找的时间，跳出寻找
            Goto 结束按键
        EndIf 
        //如果没有找到，就再加上1，继续下找
        i=i+1
    EndFor 
    Rem 结束按键
    //再继续往下找另一个箭头
    bx=bx+35
EndWhile 
Rem re
//按空格的位置，如果大约是这个颜色就跳到标记re
IfColor 652,482,f7f0e9,2
    Goto re
Else 
    //如果不等颜色就按空格
    KeyPressS 32,1
    Delay 200
    Goto 从头开始
EndIf 
Goto 从头开始
Sub 按箭头
    If i=0
        KeyPressS 38,1
    ElseIf i=1
        KeyPressS 40,1
    ElseIf i=2
        KeyPressS 37,1
    ElseIf i=3
        KeyPressS 39,1
    ElseIf i=4
        KeyPressS 97,1
    ElseIf i=5
        KeyPressS 99,1
    ElseIf i=6
        KeyPressS 103,1
    ElseIf i=9
        KeyPressS 105,1
    EndIf 
Return 按箭头
//这个是检察出现的箭头数量
Sub 找数字
    IfColor 455,485,98ff,0
        IfColor 479,485,a1ff,0
            x=359:hm=740
            Goto 14277
        EndIf 
    EndIf 
    IfColor 455,485,98ff,0
        IfColor 474,484,9aff,0
            x=341:hm=765
            Goto 14277
        EndIf 
    EndIf 
    i=0
    For 9
        VBSCall findpic(438,470,485,502,"Attachment:\"&t(i)&".bmp",0.9,lx,ly)
        If lx>0
            //如果找到就调用结果的数据
            Gosub 数字结果
            Goto 14277
        EndIf 
        i=i+1
    EndFor 
    Rem 14277
Return 找数字
Sub 数字结果
    If i=0
        //如果出再的是一个箭头，那么它的位置是如下，以此类推
        x=520:hm=561
    ElseIf i=1
        x=497:hm=579
    ElseIf i=2
        x=482:h=595
    ElseIf i=3
        x=466:h=613
    ElseIf i=4