环形渐开找怪示例

    无聊,写个大家玩玩!!!
    玩法,打开画图程序,选喷枪,然后运行此脚本就开始渐开画圆了,如果改改就成找怪的脚本了,呵呵!!!

    复制代码 代码如下:

    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
    //这写找到怪后的动作
    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

发表评论

发表评论