e=30
f=40
q=0.8
Rem kaishi
Delay 20
VBSCall FindPic(0,0,1023,767,"Attachment:\ckd.bmp",1,x,y)
a=x+176
b=y+325
c=x+216
d=y+365
g=x+554
x1=x+470
y1=y+307
x=0
y=0
n=1
m=1
Rem xunhuan
If n=m
    Gosub 1
    Goto xunhuan
EndIf 
Rem jc
IfColor x1,y1,DE2F30,2
    KeyPress 32,1
    Delay 200
    Goto kaishi
Else 
    Goto jc
EndIf 
Goto kaishi
Sub 1
    VBSCall FindPic(a,b,c,d,"Attachment:\1.bmp",q,x,y)
    If x>a and y>b
        KeyPress 97,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 2
    EndIf 
Return 1
Sub 2
    VBSCall FindPic(a,b,c,d,"Attachment:\2.bmp",q,x,y)
    If x>a and y>b
        KeyPress 98,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 3
    EndIf 
Return 2
Sub 3
    VBSCall FindPic(a,b,c,d,"Attachment:\3.bmp",q,x,y)
    If x>a and y>b
        KeyPress 99,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 4
    EndIf 
Return 3
Sub 4
    VBSCall FindPic(a,b,c,d,"Attachment:\4.bmp",q,x,y)
    If x>a and y>b
        KeyPress 100,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 6
    EndIf 
Return 4
Sub 6
    VBSCall FindPic(a,b,c,d,"Attachment:\6.bmp",q,x,y)
    If x>a and y>b
        KeyPress 102,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 7
    EndIf 
Return 6
Sub 7
    VBSCall FindPic(a,b,c,d,"Attachment:\7.bmp",q,x,y)
    If x>a and y>b
        KeyPress 103,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else