UserVar var1=DropList{蜀国书丞:1|魏国书丞:2|吴国书丞:3}=0 〖行脚地点〗
UserVar var2=DropList{自动答题:1|手动答题:2}=1 〖答题设置〗
Rem 开始rem
Gosub 位置
Gosub 主书丞进行脚
Rem 判断出口rem
Gosub 判断出口
Rem 出口选择rem
If k=1
    Rem 一号出口rem
    Gosub 一号出口
EndIf 
If k=2
    Rem 二号出口rem
    Gosub 二号出口
EndIf 
If k=3
    Rem 三号出口rem
    Gosub 三号出口
EndIf 
If k=4
    Rem 四号出口rem
    Gosub 四号出口
EndIf 
If k=5
    Rem 五号出口rem
    Gosub 五号出口
EndIf 
If k=6
    Rem 六号出口rem
    Gosub 六号出口
EndIf 
Gosub 持续报警
Gosub 四号出口
EndScript 
Rem 行脚商行馆
For 3
    For 300
        KeyDownH 39,1
        Delay 100
        VBSCall Call FindPic(740, 388, 778, 429,"Attachment:\行脚1810.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 39,1
            Delay 500
            Goto 行脚商行馆01
        EndIf 
    EndFor 
    KeyUpH 39,1
    KeyDownH 37,1
    Delay 9000
    KeyUpH 37,1
EndFor 
Gosub 持续报警
Rem 行脚商行馆01
For 120
    MoveTo 824,258
    Delay 100
    KeyPressH 71,1
    Delay 500
    VBSCall Call FindPic(160, 144, 205, 161,"Attachment:\行脚对话01.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        MoveTo 381,250
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo 824,258
        Delay 100
    EndIf 
    VBSCall Call FindPic(450, 436, 526, 456,"Attachment:\行脚对话02.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        MoveTo 488,442
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo 824,258
        Delay 100
    EndIf 
    VBSCall Call FindPic(315, 307,360, 334,"Attachment:\行脚对话03.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        MoveTo 410,318
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo 824,258
        Delay 100
    EndIf 
    VBSCall Call FindPic(403, 309, 439, 329,"Attachment:\行脚对话04.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        MoveTo 445,317
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo 824,258
        Delay 100
    EndIf 
    Rem 行脚出题
    VBSCall Call FindPic(601, 195, 652, 231,"Attachment:\行脚的考验.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        Gosub 答题
    EndIf