有关一个游戏脚本,按键精灵上用的,懂脚本的人进来
http://www.vrbrothers.com/cn/qmacro/qcodelib/Browse/Detail/1c3a0063-d2d8-48d4-a2cf-17...
http://www.vrbrothers.com/cn/qmacro/qcodelib/Browse/Detail/1c3a0063-d2d8-48d4-a2cf-17715b1dc257/1
上面那个脚本,我想导入到按键精灵里面进去,可是不知道怎么导入?我把他们全部复制到记事本,再导入,结果不行!
所以懂脚本的人,帮我看一下,然后你再把那些脚本弄成可以用的“记事本”格式,直接导入就可以用的!发到我邮箱来,谢谢!!
425210909@qq.com 展开
上面那个脚本,我想导入到按键精灵里面进去,可是不知道怎么导入?我把他们全部复制到记事本,再导入,结果不行!
所以懂脚本的人,帮我看一下,然后你再把那些脚本弄成可以用的“记事本”格式,直接导入就可以用的!发到我邮箱来,谢谢!!
425210909@qq.com 展开
2个回答
2009-06-18 · 知道合伙人软件行家
关注
展开全部
[General]
Description=我的脚本
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
//传入变量youxi
Plugin youxi=WindowEx.EnumWindowA(0,0,"《星尘传说》",65536)
i=UBound(youxi)
//设置环境变量key为1
SetEnvironmentVar "Key0","1"
SetEnvironmentVar "Key1","1"
SetEnvironmentVar "Key2","1"
//......上面3条分线程3个环境变量,如果要开跟多可以加//SetEnvironmentVar "Key3","1"等等
//a为数组下标.c为技能使用延时时间
a=0:cd=2000/(i+1)
//位置可以改变
For i+1
//设置窗口位置
Plugin WindowEx.MoveWindow(youxi(a),876,717)
a=a+1
Delay 200
EndFor
//---------设置坐标怪HP条最左颜色-----
x=418:y=78
Gosub 窗口坐标转屏幕坐标
MLx=x:MLy=y
//怪HP随意一点颜色2点判断
x=515:y=105
Gosub 窗口坐标转屏幕坐标
LVx=x:LVy=y
//HP补充位置
x=1004:y=796
Gosub 窗口坐标转屏幕坐标
HPx=x:HPy=y
//MP补充位置
x=994:y=829
Gosub 窗口坐标转屏幕坐标
MPx=x:MPy=y
//循环内设置坐标颜色
Delay 200
//----------------------------主程序----------------------------
While 1
If a>i
a=0
EndIf
TracePrint youxi(a)
//窗口是否激活
Gosub 是否激活
Delay 100
//获取分线程局部变量值
While 1
//分线程状态正在执行,则跳这轮循环
Key0=GetEnvironmentVar("Key0")
Key1=GetEnvironmentVar("Key1")
Key2=GetEnvironmentVar("Key2")
//.....可加,同环境变量
If Key0=0
Goto 1
EndIf
If Key1=0
Goto 1
EndIf
If Key2=0
Goto 1
EndIf
//.....可加,同环境变量
//坐标颜色这里设置
IfColor MLx,MLy,37d861,2
IfColor LVx,LVy,0,0
KeyPress 50,1
EndIf
Else
IfColor HPx,HPy,63f09e,0
IfColor MPx,MPy,e6ab67,0
KeyPress 32,1
Delay 100
KeyPress 9,1
Delay 100
KeyPress 50,1
EndIf
Else
BeginThread "Thread"&a
EndIf
EndIf
Rem 1
Delay cd
a=a+1
EndWhile
EndWhile
//---------------------------子程序--------------------
Sub 是否激活
//判断窗口是否激活
Plugin F=WindowEx.GetWindowState(youxi(a),1)
TracePrint F
While F
Goto 1
EndWhile
//激活窗口
Plugin WindowEx.SetWindowState(youxi(a),1)
Delay 100
Rem 1
Return
Sub 窗口坐标转屏幕坐标
Plugin WindowEx.ClientToScreen(youxi(a),x,y)
Return
//---------------------------分线程--------------------
Sub Thread0
SetEnvironmentVar "Key0","0"
Delay 30000
SetEnvironmentVar "Key0","1"
Return
Sub Thread1
SetEnvironmentVar "Key1","0"
Delay 30000
SetEnvironmentVar "Key1","1"
Return
Sub Thread2
SetEnvironmentVar "Key2","0"
Delay 30000
SetEnvironmentVar "Key2","1"
Return
//.....可加分线,同环境变量
把上面的复制,然后用导入功能->读取剪贴板就可以了
Description=我的脚本
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
//传入变量youxi
Plugin youxi=WindowEx.EnumWindowA(0,0,"《星尘传说》",65536)
i=UBound(youxi)
//设置环境变量key为1
SetEnvironmentVar "Key0","1"
SetEnvironmentVar "Key1","1"
SetEnvironmentVar "Key2","1"
//......上面3条分线程3个环境变量,如果要开跟多可以加//SetEnvironmentVar "Key3","1"等等
//a为数组下标.c为技能使用延时时间
a=0:cd=2000/(i+1)
//位置可以改变
For i+1
//设置窗口位置
Plugin WindowEx.MoveWindow(youxi(a),876,717)
a=a+1
Delay 200
EndFor
//---------设置坐标怪HP条最左颜色-----
x=418:y=78
Gosub 窗口坐标转屏幕坐标
MLx=x:MLy=y
//怪HP随意一点颜色2点判断
x=515:y=105
Gosub 窗口坐标转屏幕坐标
LVx=x:LVy=y
//HP补充位置
x=1004:y=796
Gosub 窗口坐标转屏幕坐标
HPx=x:HPy=y
//MP补充位置
x=994:y=829
Gosub 窗口坐标转屏幕坐标
MPx=x:MPy=y
//循环内设置坐标颜色
Delay 200
//----------------------------主程序----------------------------
While 1
If a>i
a=0
EndIf
TracePrint youxi(a)
//窗口是否激活
Gosub 是否激活
Delay 100
//获取分线程局部变量值
While 1
//分线程状态正在执行,则跳这轮循环
Key0=GetEnvironmentVar("Key0")
Key1=GetEnvironmentVar("Key1")
Key2=GetEnvironmentVar("Key2")
//.....可加,同环境变量
If Key0=0
Goto 1
EndIf
If Key1=0
Goto 1
EndIf
If Key2=0
Goto 1
EndIf
//.....可加,同环境变量
//坐标颜色这里设置
IfColor MLx,MLy,37d861,2
IfColor LVx,LVy,0,0
KeyPress 50,1
EndIf
Else
IfColor HPx,HPy,63f09e,0
IfColor MPx,MPy,e6ab67,0
KeyPress 32,1
Delay 100
KeyPress 9,1
Delay 100
KeyPress 50,1
EndIf
Else
BeginThread "Thread"&a
EndIf
EndIf
Rem 1
Delay cd
a=a+1
EndWhile
EndWhile
//---------------------------子程序--------------------
Sub 是否激活
//判断窗口是否激活
Plugin F=WindowEx.GetWindowState(youxi(a),1)
TracePrint F
While F
Goto 1
EndWhile
//激活窗口
Plugin WindowEx.SetWindowState(youxi(a),1)
Delay 100
Rem 1
Return
Sub 窗口坐标转屏幕坐标
Plugin WindowEx.ClientToScreen(youxi(a),x,y)
Return
//---------------------------分线程--------------------
Sub Thread0
SetEnvironmentVar "Key0","0"
Delay 30000
SetEnvironmentVar "Key0","1"
Return
Sub Thread1
SetEnvironmentVar "Key1","0"
Delay 30000
SetEnvironmentVar "Key1","1"
Return
Sub Thread2
SetEnvironmentVar "Key2","0"
Delay 30000
SetEnvironmentVar "Key2","1"
Return
//.....可加分线,同环境变量
把上面的复制,然后用导入功能->读取剪贴板就可以了
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询