最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

環(huán)形漸開找怪示例

 更新時(shí)間:2009年07月18日 15:53:42   作者:  
玩法,打開畫圖程序,選噴槍,然后運(yùn)行此腳本就開始漸開畫圓了,如果改改就成找怪的腳本了,呵呵!??!
無聊,寫個(gè)大家玩玩?。。?BR>玩法,打開畫圖程序,選噴槍,然后運(yùn)行此腳本就開始漸開畫圓了,如果改改就成找怪的腳本了,呵呵?。?!
復(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)文章

最新評論

措勤县| 灵武市| 夹江县| 鄯善县| 固镇县| 寿宁县| 苍南县| 牙克石市| 霍山县| 张家口市| 凌海市| 玉屏| 长海县| 虞城县| 上林县| 镇坪县| 房产| 同江市| 双流县| 渑池县| 平顶山市| 聂拉木县| 新宾| 辽阳市| 沁水县| 乌鲁木齐市| 建昌县| 洛川县| 内乡县| 南宫市| 红安县| 抚宁县| 云阳县| 通道| 贵州省| 如皋市| 康平县| 连州市| 宁海县| 英山县| 高雄市|