環(huán)形漸開找怪示例
更新時(shí)間:2009年07月18日 15:53:42 作者:
玩法,打開畫圖程序,選噴槍,然后運(yùn)行此腳本就開始漸開畫圓了,如果改改就成找怪的腳本了,呵呵?。。?
無聊,寫個(gè)大家玩玩?。。?BR>玩法,打開畫圖程序,選噴槍,然后運(yùn)行此腳本就開始漸開畫圓了,如果改改就成找怪的腳本了,呵呵?。?!
dim Ttx,Tty
function main
Ttx=512
Tty=(768-42)/2
do
for r=1 to 10
rr=20*r
if ismonster(rr,x,y) then
//這寫找到怪后的動(dòng)作
end if
next
loop
end function
function ismonster(pixelR,byref monsterX,byref monsterY)
ismonster=false
//CopyScreen()
for k=1 to 2
for j=-pixelR to pixelR step 2
if k=1 then
x=Ttx+j
y=Tty+Sqr(pixelR*pixelR-j*j)
else
x=Ttx-j
y=Tty-Sqr(pixelR*pixelR-j*j)
end if
//以下三行本來是寫怪物顏色判斷,這改成畫圖了,呵呵
MouseMove(x,y)
MouseLeftClick()
Wait(100)
next
next
end function
復(fù)制代碼 代碼如下:
dim Ttx,Tty
function main
Ttx=512
Tty=(768-42)/2
do
for r=1 to 10
rr=20*r
if ismonster(rr,x,y) then
//這寫找到怪后的動(dòng)作
end if
next
loop
end function
function ismonster(pixelR,byref monsterX,byref monsterY)
ismonster=false
//CopyScreen()
for k=1 to 2
for j=-pixelR to pixelR step 2
if k=1 then
x=Ttx+j
y=Tty+Sqr(pixelR*pixelR-j*j)
else
x=Ttx-j
y=Tty-Sqr(pixelR*pixelR-j*j)
end if
//以下三行本來是寫怪物顏色判斷,這改成畫圖了,呵呵
MouseMove(x,y)
MouseLeftClick()
Wait(100)
next
next
end function
相關(guān)文章
炒股用的腳本 我上班作業(yè)時(shí)用的腳本 無保留
炒股用的腳本 我上班作業(yè)時(shí)用的腳本 無保留,需要的朋友可以參考下。2009-07-07sp官方出品用Seraph不被封號(hào)方法(圖文教程)
天龍八部封號(hào)比較嚴(yán)格,什么掃地僧,榮譽(yù)天龍之類的經(jīng)常被封,因?yàn)樗麄円薷姆獍?,游戲?nèi)存等等。。。2008-08-08