PutAttachment .\plugin *.dll
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
VBSCall Call FindPic(775, 167, 845, 193,"Attachment:\罗城1208.bmp",0.8,intX,intY)
If intX>=0 and intY>=0
Goto 开始rem
EndIf
EndFor
Rem 行脚商行馆02
EndScript
/////////////复制不上来了,超过字的数量了,把源程序放到附件里,有兴趣的下下来分享吧
游戏OPEN模式运行
XP经典模式
