這個是圓形漸開線掃瞄找變色怪的腳本
可是裡面包含了一些東西 所以我不知道該怎麼改
想我要讓他只要單純劃圈圈就好
有高手可以幫我改一下嗎~"~
VBS dim x0,n,y0,x,color0,color
//聲明變量
Rem start
//標記漸開線找怪開始
VBS x0=400:n=1:y0=300:x=400
//變量初始化
While x<800
//限定橫坐標範圍不超過800
VBS x=x0+4*(cos(n)+n*sin(n))
//根據漸開線公式計算下一個點的橫坐標並賦值給x
VBS y=y0+3*(sin(n)-n*cos(n))
//根據漸開線公式計算下一個點的縱坐標並賦值給y
VBSCall color0=GetPixelColor(x,y)
//在鼠標移動之前,獲取目標點色值並賦值給color0
VBSCall Call SetCursorPos(x,y)
//馬上移動鼠標到目標點
VBSCall color=GetPixelColor(x,y)
//獲取鼠標移動後該點色值並賦值給color
If color<>color0
//同一點取得的兩次色值比較,不同,則執行以下的打怪腳本
LeftClick 1
//左鍵單擊
Delay 3000
//打怪延時
EndIf
//該點判斷結束
Delay 10
//循環延時
VBS n=n+0.2
//漸開線參數增量,其中0.2代表點間距,數值越小,漸開線散開點間距越小
EndFor
//一次漸開線取點判斷結束
Goto start
//跳轉到開始,重複漸開線搜索
[ 本帖最後由 pb220501 於 2009-7-24 14:54 編輯 ] |