谁能给个大航海开美8脚本？（17173上的那个有点问题，到了教会门口进不去）
谁能给个大航海开美8脚本？（17173上的那个有点问题，到了教会门口进不去）
09-09-22 &
游戏启动环境设置中必须把2D和3D两个属性设置为低。//快捷键设置，f11是自定义栏，自定义栏中f5是搜索，请使人物有充足的行动力，本脚本不自动吃料理。//视角设置，800*600分辨率，32位色。人物最大视角，出王宫后不动，调整视角到屏幕上沿和对面门的最上沿重合。//本脚本版权属守信誉的西瓜所有//bgtql报告提前量这个变量的作用是，当你报告发现物的时候，如果你的美术是在第四项或者第五项，这个值你就设置为0，如果美术是在第三项，就设置为1，如果美术是在第二项，就设置为2.bgtql=2Plugin hwnd=Window.Foreground()Plugin Window.Move(hwnd,0,0)//将窗口移动到左上角KeyPress 27,3Rem 开始For 48 Gosub 走到教会附近 Gosub 进教会 Gosub 走到美术8附近 Gosub 进行搜索 //Gosub 快速搜索 Gosub 走到教会门口 Gosub 找出口 Gosub 走到住宅附近 Gosub 找卫兵 Gosub 找国王 Gosub 进行报告 //Beep Gosub 走到住宅门口 Gosub 找出口EndFor //////////报警鸣笛For 5 Beep
Delay 200EndFor MessageBox &本轮开图完毕&//Goto 开始EndScript /////////////////////////////////////////////////////////////////////////////////////////////////Sub
//Return Sub 走到教会附近 KeyPress 27,3 MoveTo 10,35 KeyDown 37,1 Delay 800 KeyUp 37,1 LeftClick 2 KeyDown 27,1 Delay 3000 KeyPress 36,3Return 走到教会附近Sub 进教会 q1=0 While q1=0 KeyPress 9,1 Delay 200 IfColor 667,360,ffffff,0 IfColor 663,371,ffffff,0 IfColor 676,371,ffffff,0 IfColor 689,371,ffffff,0 q1=1 KeyUp 38,1 While q1=1 KeyPress 13,1 Delay 500 Gosub 鼠标形状 IfColor 83,39,ffffff,0 IfColor 99,52,ffffff,0 q1=2 EndIf
EndIf
EndWhile
EndIf
EndIf
EndIf
EndIf
EndWhile Return 进教会Sub 走到美术4附近 // MoveTo 180,270 Delay 200 LeftClick 2 Delay 300 KeyPress 36,1 KeyPress 122,1 //提前启动F11 Delay 1400Return 走到美术4附近Sub 走到美术8附近 // KeyDown 39,1 Delay 500 KeyUp 39,1 MoveTo 760,240 Delay 200 LeftClick 2 Delay 300 KeyPress 36,1 KeyPress 122,1 //提前启动F11 Delay 1400Return 走到美术8附近Sub 快速搜索 q1=0 While q1=0 IfColor 662,104,ffffff,1 KeyPress 122,1 Delay 500 EndIf
Delay 100 IfColor 662,104,ffffff,2 q1=1 EndIf
EndWhile
KeyPress 116,1 Delay 5000Return 快速搜索Sub 进行搜索 // q1=0 While q1=0 IfColor 662,104,ffffff,1 KeyPress 122,1 Delay 500 EndIf
q01=0 While q01=0 Delay 100 IfColor 662,104,ffffff,2 q01=1 EndIf
EndWhile
KeyPress 116,1 Delay 11000 q1=1 //未发现任何物品 IfColor 18,585,ffaa84,2 IfColor 29,584,ffaa84,2 IfColor 110,579,ffaa84,2 IfColor 114,579,ffaa84,2 IfColor 130,592,ffaa84,2 IfColor 134,592,ffaa84,2 q1=0 EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
//附近好像有什么东西 IfColor 92,581,ffaa84,2 IfColor 104,580,ffaa84,2 IfColor 111,579,ffaa84,2 IfColor 116,579,ffaa84,2 IfColor 123,586,ffaa84,2 IfColor 134,591,ffaa84,2 IfColor 143,592,ffaa84,2 IfColor 164,579,ffaa84,2 q1=0 EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
//有已经被发现的地图 IfColor 17,561,ffaa80,2 IfColor 43,559,ffaa80,2 IfColor 50,539,ffaa80,2 IfColor 71,539,ffaa80,2 IfColor 83,539,ffaa80,2 IfColor 97,539,ffaa80,2 IfColor 101,539,ffaa80,2 IfColor 164,552,ffaa80,2 q1=1 EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndWhile Return 进行搜索Sub 走到教会门口 // KeyDown 27,3 KeyDown 40,2 Delay 200Return 走到教会门口Sub 找出口 qi=0 While qi=0 KeyPress 9,1 Delay 100 //出口 IfColor 635,361,ffffff,0 IfColor 640,359,ffffff,0 IfColor 645,367,ffffff,0 IfColor 645,372,ffffff,0 IfColor 659,360,ffffff,0 IfColor 660,361,ffffff,0 IfColor 659,371,ffffff,0 IfColor 650,371,ffffff,0 KeyUp 40,1 qi=1 EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndWhile
//按回车，走到跟前并进入按钮页面 While qi=1 KeyPress 13,3 Delay 500 IfColor 135,40,ffffff,0 qi=2 EndIf
EndWhile Return 找出口Sub 走到住宅附近 // KeyPress 27,3 MoveTo 270,35 KeyDown 39,1 Delay 1200 KeyUp 39,1 LeftClick 3 KeyDown 27,1 Delay 2000 KeyPress 36,3 KeyDown 38,1 Delay 6500Return 走到住宅附近Sub 找卫兵 // q1=0 While q1=0 KeyPress 9,1 Delay 200 IfColor 648,372,ffffff,0 IfColor 646,371,ffffff,0 IfColor 658,359,ffffff,0 IfColor 659,363,ffffff,0 q1=1 KeyUp 27,1 KeyUp 38,2 While q1=1 KeyPress 13,2 Delay 500 Gosub 鼠标形状 IfColor 640,384,ffffff,0 q1=2 MoveTo 645,390 Delay 200 LeftClick 2 EndIf
EndWhile
EndIf
EndIf
EndIf
EndIf
EndWhile Return 找卫兵Sub 找国王 // KeyDown 27,1 q1=0 While q1=0 KeyPress 9,1 Delay 100 IfColor 681,359,ffffff,0 IfColor 678,372,ffffff,0 IfColor 705,369,ffffff,0 IfColor 714,359,ffffff,0 q1=1 KeyUp 27,1 While q1=1 KeyPress 13,1 Delay 500 Gosub 鼠标形状 IfColor 680,384,ffffff,0 IfColor 720,384,ffffff,0 q1=2 EndIf
EndIf
EndWhile
EndIf
EndIf
EndIf
EndIf
EndWhile Return 找国王Sub 进行报告 i=0 MoveTo 725,390 MoveTo 725,390 MoveTo 725,390 Delay 200 LeftClick 2 Delay 500 Gosub 鼠标形状 Delay 50 //If bgml=4 //美术 q1=0 While q1=0 KeyPress 40,1 Delay 50 IfColor 229,322-bgtql*56,ffffff,2 IfColor 230,322-bgtql*56, q1=1 EndIf
EndIf
//i=i+1 EndWhile
//EndIf q1=0 While q1=0 KeyPress 13,2 Delay 200 //发现物 IfColor 195,162,0,2 IfColor 199,162,0,2 IfColor 216,162,0,2 IfColor 223,175,0,2 q1=1 KeyPress 13,2 Delay 100 While q1=1 IfColor 595,414,ffffff,2 q1=2 EndIf
Delay 50 EndWhile
EndIf
EndIf
EndIf
EndIf
Delay 100 EndWhile Return 进行报告Sub 走到住宅门口 // q1=0 While q1=0 KeyPress 27,1 Delay 50 IfColor 634,360,ffffff,2 q1=1 EndIf
//IfColor 634,360,7a5346,2 // q1=1 //EndIf EndWhile
KeyDown 40,2 Delay 200Return 走到住宅门口Sub 鼠标形状 //如果是漏斗，就等待 Delay 100 //***箭头时候的鼠标形状 //Shape1 =
Shape1= //网络延时的时候漏斗的形状 //Shape2 =
Shape2= DelayTime = 0 While DelayTime = 0 VBSCall shape=GetCursorShape(0) If shape = shape2 Delay 200 ElseIf shape&&shape2 DelayTime = 1 EndIf
EndWhile Return 鼠标形状Sub 检测F IfColor 662,104,ffffff,2 IfColor 675,110,10cfff,2 KeyPress 122,1 Delay 400 EndIf
EndIf Return 检测F
请登录后再发表评论!
