Question

这是一个大话制符脚本，我想知道里面的这些语句，有什么用，是嘛意思，希望各位高手给注释一下，先谢谢啦

lu1
Plugin hx=Window.Foreground()
Plugin s=Window.GetClientRect(hx)
c=split(s,"|",-1,1):qx=c(0):qy=c(1)
VBSCall ReadMemory(&H604A60,2,jdz)
VBS gdx="&H" & hex(jdz+43036)
VBS gdy="&H" & hex(jdz+43036+4)
//***********************************************************
Rem 1
VBSCall ReadMemory
VBSCall FindPic(qx+0,qy+0,qx+640,qy+480,"Attachment:\制符台.bmp",1,fx,fy)
If fx>0
tx=fx:ty=fy:jqd=5
Gosub movetoxy
LeftClick 1
Delay 2000
Else
Delay 200
Goto denglu1
EndIf
Rem 2
VBSCall FindPic(qx+0,qy+0,qx+640,qy+480,"Attachment:\开始.bmp",0.8,fx,fy)
If fx>0
Delay 200
tx=fx+70:ty=fy+7:jqd=5
Gosub movetoxy
Delay 500
LeftClick 1
Delay 2000
Else
EndIf
Rem 3
VBSCall FindPic(qx+0,qy+0,qx+640,qy+480,"Attachment:\羊毛笔.bmp",1,fx,fy)
If fx>0
Delay 500
tx=fx+265:ty=fy-15:jqd=3
Gosub movetoxy
Delay 300
LeftClick 1
Delay 300
LeftClick 1
Delay 300
LeftClick 1
Delay 300
LeftClick 1
Else
EndIf
Delay 1500
Rem 4
VBSCall FindPic(qx+0,qy+0,qx+640,qy+480,"Attachment:\确定.bmp",1,fx,fy)
If fx>0
tx=fx:ty=fy-3:jqd=3
Gosub movetoxy
LeftClick 1
Delay 1000
Delay 5000
Goto denglu1
Else
EndIf
Goto denglu1
Sub movetoxy
Plugin dh=Window.Foreground()
sx=tx+(320-tx)*0.3+qx
sy=ty+(240-ty)*0.3+qy
Rem move
VBSCall GetCursorPos(x,y)
If x>qx+640 or x<qx+0 or y>qy+480 Or y<qy+0
sx=qx+tx:sy=qy+ty
EndIf
MoveTo sx,sy
Delay 70
VBSCall ReadMemory(gdx,2,mx)
VBSCall ReadMemory(gdy,2,my)
//MessageBox(mx&","&my)
rx=tx-mx
ry=ty-my
If abs(tx-mx)<=jqd and abs(ty-my)<=jqd
// MoveR rx,ry
Else
sx=sx+rx*0.7
sy=sy+ry*0.7
Goto move
EndIf
Return

Answer 1

读内存操作的

追问

能和你做个朋友方便向您请教吗？1076010177本人的QQ号

Answer 2

只有这些代码吗?一个制符的脚本应该不止这些的,太少看不太清楚

追问

这个脚本应该只是画符用的吧。您能给我写个回合制游戏自动打怪，血法少的时候回血法的脚本吗？或者您指点我一下。1076010177这是我的QQ，希望能和您交个朋友！

追答

http://bbs.vrbrothers.com/index.php
上面个网站是按键精灵的官方论坛地址,你进去注册个帐号看看,有教程教你怎么制作脚本的,你上面的代码好像也是用按键精灵做出来的吧,希望能帮到你

追问

我下载了按键精灵了，我自己在上面找不到，我能和您交个朋友吗？方便以后向您请教！

追答

我也只是懂得一点点按键精灵而已,呵呵,以前也想用按键精灵写个大话2自动用ALT+A杀傲来山妖头领的脚本,可是那个鼠标漂移的问题一直解决不 了,现在也没写成功,最近都比较少去看按键精灵的论坛了