-
1 # 使用者4246207823276
-
2 # 使用者4246207823276
你嘗試著用按鍵自帶的寫3D遊戲、2.5D遊戲,橫版遊戲,不同功能的遊戲輔助,例如最簡單的自動掛機,打怪。然後寫一個按鍵前臺的遊戲指令碼和按鍵後臺的遊戲指令碼,這只是剛剛開始。讓你用大漠和樂玩或者你會VB開發一個外掛。讓你在win7,win10等不同的作業系統實現遊戲的前臺單開或前臺多開,然後實現後臺的單開和多開。或者讓你用按鍵的多執行緒控制不同的指令碼來完成不同遊戲的輔助。沒寫過相對而言複雜的按鍵指令碼,就別看到你的這類的天花板,按鍵的底層是vbs,所以你自己想想。我也講不了多高深。反正我從應用層面講,你覺得按鍵是沒有技術含量的嗎?上一個圓形掃怪程式碼。
//Call 方形漸開線(530, 340,30, 10)
//Call 圓形漸開線(530, 340,30, 30, 10)
Call 橢圓漸開線(530, 340,30, 650)
Rem 打怪
TracePrint"成功掃怪,後面程式碼自己寫"
EndScript
Sub方形漸開線(中心點x座標,中心點y座標,兩點間距離,圈數)
//例子:Call 方形漸開線(400,300,20,20)
Dim x,y,v,i,j,k
x=中心點x座標: y=中心點y座標
//設定2點間距離
v=兩點間距離
i=1
For 圈數
j=0:k=v
For 2
For i
x=x+j:y=y+k
MoveTo x,y
Delay 50
Call 看看有沒有野豬
Next
j=v:k=0
Next
i=i+1:v=v*(-1)
Next
End Sub
Sub 看看有沒有野豬
dm_ret =dm.FindStrFast(169,193,855,609,"野豬","ffffff-333333",0.95,intX,intY)
If intX >= 0 and intY >= 0 Then
TracePrint "野豬"
LeftClick 1
Delay 2000
KeyPress "1", 1
Delay 2000
Goto 打怪
Else
Delay 10
End If
End Sub
Sub圓形漸開線(中心點x座標,中心點y座標,兩點間距離,遞增半徑,圈數)
//例子:Call lib.網遊.圓形漸開線(400,300,20,20,20)
Dim x0,y0,rr,l,n,r,x,y
//設定圓心座標
x0=中心點x座標:y0=中心點y座標
//設定遞增半徑
rr=遞增半徑
//設定點間距
l=兩點間距離
//初始化角度
n=0
//設定第一圈半徑
r=30
//設定畫圓圈數
For 圈數
While n<3.1415926*2
//畫圓公式
x=x0+r*cos(n)
y=y0-r*sin(n)
MoveTo x,y
Delay 50
Call 看看有沒有野豬
//l/r:點距除以半徑,取得2點間相對圓心的角度
//能有效控制掃描點的密度,2點間的距離就比較平均
n=n+l/r
Wend
//畫完一圈後重置角度
n=0
//畫完一圈後半徑遞增rr
r=r+rr
Next
End Sub
Sub橢圓漸開線(中心點x座標,中心點y座標,兩點間距離,橫座標範圍)
//例子:Call lib.網遊.橢圓漸開線(400,300,20,300)
//宣告變數
Dim x0,y0,n,x,y,color0,cor,l,r
//標記漸開線找怪開始
Rem start
//變數初始化
x0=中心點x座標:n=1:y0=中心點y座標:x=中心點x座標
//設定2點間距離
l=兩點間距離
//限定橫座標範圍不超過800
While x<中心點x座標+橫座標範圍
//根據漸開線公式計算下一個點的橫座標並賦值給x
x=x0+4*(cos(n)+n*sin(n))
//根據漸開線公式計算下一個點的縱座標並賦值給y
y=y0+3*(sin(n)-n*cos(n))
//在滑鼠移動之前,獲取目標點色值並賦值給color0
//====以下畫圖裡面示範=====
MoveTo x,y
Delay 10
LeftClick 1
Delay 10
//====以上畫圖裡面示範=====
MoveTo x,y
Delay 50
Call 看看有沒有野豬
//計算當前點(x,y)到原點(x0,y0)的距離
r=Sqr((x-x0)^2+(y-y0)^2)
//漸開線引數增量,其中l/r:點距除以半徑,取得2點間相對圓心的角度
//能有效控制掃描點的密度,2點間的距離就比較平均
n=n+l/r
Wend
Goto start
//跳轉到開始,重複漸開線搜尋
End Sub
回覆列表
你嘗試著用按鍵自帶的寫3D遊戲、2.5D遊戲,橫版遊戲,不同功能的遊戲輔助,例如最簡單的自動掛機,打怪。然後寫一個按鍵前臺的遊戲指令碼和按鍵後臺的遊戲指令碼,這只是剛剛開始。讓你用大漠和樂玩或者你會VB開發一個外掛。讓你在win7,win10等不同的作業系統實現遊戲的前臺單開或前臺多開,然後實現後臺的單開和多開。或者讓你用按鍵的多執行緒控制不同的指令碼來完成不同遊戲的輔助。沒寫過相對而言複雜的按鍵指令碼,就別看到你的這類的天花板,按鍵的底層是vbs,所以你自己想想。我也講不了多高深。反正我從應用層面講,你覺得按鍵是沒有技術含量的嗎?上一個圓形掃怪程式碼。
//Call 方形漸開線(530, 340,30, 10)
//Call 圓形漸開線(530, 340,30, 30, 10)
Call 橢圓漸開線(530, 340,30, 650)
Rem 打怪
TracePrint"成功掃怪,後面程式碼自己寫"
EndScript
Sub方形漸開線(中心點x座標,中心點y座標,兩點間距離,圈數)
//例子:Call 方形漸開線(400,300,20,20)
Dim x,y,v,i,j,k
x=中心點x座標: y=中心點y座標
//設定2點間距離
v=兩點間距離
i=1
For 圈數
j=0:k=v
For 2
For i
x=x+j:y=y+k
MoveTo x,y
Delay 50
Call 看看有沒有野豬
Next
j=v:k=0
Next
i=i+1:v=v*(-1)
Next
End Sub
Sub 看看有沒有野豬
dm_ret =dm.FindStrFast(169,193,855,609,"野豬","ffffff-333333",0.95,intX,intY)
If intX >= 0 and intY >= 0 Then
TracePrint "野豬"
LeftClick 1
Delay 2000
KeyPress "1", 1
Delay 2000
Goto 打怪
Else
Delay 10
End If
End Sub
Sub圓形漸開線(中心點x座標,中心點y座標,兩點間距離,遞增半徑,圈數)
//例子:Call lib.網遊.圓形漸開線(400,300,20,20,20)
Dim x0,y0,rr,l,n,r,x,y
//設定圓心座標
x0=中心點x座標:y0=中心點y座標
//設定遞增半徑
rr=遞增半徑
//設定點間距
l=兩點間距離
//初始化角度
n=0
//設定第一圈半徑
r=30
//設定畫圓圈數
For 圈數
While n<3.1415926*2
//畫圓公式
x=x0+r*cos(n)
y=y0-r*sin(n)
MoveTo x,y
Delay 50
Call 看看有沒有野豬
//l/r:點距除以半徑,取得2點間相對圓心的角度
//能有效控制掃描點的密度,2點間的距離就比較平均
n=n+l/r
Wend
//畫完一圈後重置角度
n=0
//畫完一圈後半徑遞增rr
r=r+rr
Next
End Sub
Sub橢圓漸開線(中心點x座標,中心點y座標,兩點間距離,橫座標範圍)
//例子:Call lib.網遊.橢圓漸開線(400,300,20,300)
//宣告變數
Dim x0,y0,n,x,y,color0,cor,l,r
//標記漸開線找怪開始
Rem start
//變數初始化
x0=中心點x座標:n=1:y0=中心點y座標:x=中心點x座標
//設定2點間距離
l=兩點間距離
//限定橫座標範圍不超過800
While x<中心點x座標+橫座標範圍
//根據漸開線公式計算下一個點的橫座標並賦值給x
x=x0+4*(cos(n)+n*sin(n))
//根據漸開線公式計算下一個點的縱座標並賦值給y
y=y0+3*(sin(n)-n*cos(n))
//在滑鼠移動之前,獲取目標點色值並賦值給color0
//====以下畫圖裡面示範=====
MoveTo x,y
Delay 10
LeftClick 1
Delay 10
//====以上畫圖裡面示範=====
MoveTo x,y
Delay 50
Call 看看有沒有野豬
//計算當前點(x,y)到原點(x0,y0)的距離
r=Sqr((x-x0)^2+(y-y0)^2)
//漸開線引數增量,其中l/r:點距除以半徑,取得2點間相對圓心的角度
//能有效控制掃描點的密度,2點間的距離就比較平均
n=n+l/r
Wend
Goto start
//跳轉到開始,重複漸開線搜尋
End Sub