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