本文欢迎转载，转载请注明：转载自中国学网： []
用户还关注你的位置：
初学者，自己做的冒险岛自动打怪脚本不知道哪里错了。。。
00:51:54 |
来源: 按键精灵资源站
请大家看看
SetSimMode 2
Hwnd = Plugin.Window.GetKeyFocusWnd()
sRect = Plugin.Window.GetClientRect(Hwnd)
MyArray=Split(sRect,&丨\&)
Ux=CLng(myarray(0))
Uy = CLng(myarray(1))
Rem 开始右跑
KeyDown &Right&, 1
KeyUp &Right&, 1
Rem 继续右跑
Call 出界判定()
Call 攻击子程序()
If i = 1 Then
& & Goto 开始右跑
Goto 继续右跑
Rem 开始左跑
KeyDown &Left&, 1
KeyUp &Left&, 1
Rem 继续左跑
Call 出界判定()
Call 攻击子程序()
If i = 1 Then
& & Goto 开始右跑
Goto 继续左跑
Sub 出界判定()
FindColor 25+Ux,129+Uy,108+Ux,144+Uy,&88FFFF&,pointX,pointY
If pointX & 108 + Ux Then
& & KeyUp &Right&, 1
& & Delay 200
& & Goto 开始左跑
If pointX & 0 And pointX & 35 + Ux Then
& & KeyUp &Left&, 1
& & Delay 200
& & Goto 开始右跑
Sub 攻击子程序()
Rem 攻击开始
FindPic Ux,Uy,Ux+800,Ux+600,&Attachment:\1.bmp&,1,zijiX,zijiY
If zijiX & 0 And zijiY & 0 Then
KeyUp &Right&, 1
KeyUp &Left&, 1
FindPic Ux-370,Uy-100,zijiX+230,zijiYx+100,&Attachment:\2.bmp&,1,guaiX,guaiY
If guaiX & 0 And guaiY & 0 Then
If guaiX & zijiX - 70 Then
& & & & KeyDown &Right&, 1
& & KeyDown &Left&, 1
KeyDown &PageDown&, 1
KeyDown &E&, 1
KeyDown &Shift&, 1
KeyPress &S&, 1
KeyUp &Right&, 1
KeyUp &Left&, 1
Goto 攻击开始
Goto 攻击结束
Goto 攻击结束
Rem 攻击结束易语言冒险岛如何制作游戏辅助教程免费工具_土豆_高清视频在线观看