【魔幻小鱉】的部落格

資料來源：兄弟論壇
作者：星帆

一、橢圓漸開（修改自論壇某位大大的）
VBS dim x0,n,y0,x,color0,color
//聲明變數
Rem start
//標記漸開線找怪開始
VBS x0=400:n=1:y0=300:x=400
//變數初始化
VBS l=20
//設置2點間距離
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代表點間距，數值越小，漸開線散開點間距越小
    VBS r=Sqr((x-x0)^2+(y-y0)^2)
    //計算當前點(x,y)到原點(x0,y0)的距離
    VBS n=n+l/r
    //漸開線參數增量，其中l/r：點距除以半徑，取得2點間相對圓心的角度
    //能有效控制掃瞄點的密度，2點間的距離就比較平均
EndFor
//一次漸開線取點判斷結束
Goto start
//跳轉到開始，重複漸開線搜索

二、圓形漸開
//設置圓心座標
x0=400:y0=300
//設置遞增半徑
rr=20
//設置點間距
l=20
//初始化角度
n=0
//設置第一圈半徑
r=30
//設置畫圓圈數
For 10
    While n<3.1415926*2
        //畫圓公式
        x=x0+r*cos(n)
        y=y0-r*sin(n)
        MoveTo x y
        LeftClick 1
        Delay 10
        //l/r：點距除以半徑，取得2點間相對圓心的角度
        //能有效控制掃瞄點的密度，2點間的距離就比較平均
        n=n+l/r
    EndFor
    //畫完一圈後重置角度
    n=0
    //畫完一圈後半徑遞增rr
    r=r+rr
EndFor

三、方形漸開
//設置中心點
x=400:y=300
//設置2點間距離
v=10
i=1
//迴圈20次，即畫20圈
For 20
    j=0:k=v
    For 2
        For i
            x=x+j:y=y+k
            MoveTo x y
            LeftClick 1
            Delay 10
        EndFor
        j=v:k=0
    EndFor
    i=i+1:v=v*(-1)
EndFor