汽车发展的标志性转折:有哪位知道这段脚本的含义？？

Attribute VB_Name = "FindMon"
'**********************************************************************************************************SpeedVBS函数*****
Function SpeedVBS()
Dim mColor0, mColor, monScanX, monScanY
Dim mR(5), mG(5), mB(5), blnSimily, lngTmpN, lngTmpI
Call objFM.SetCursorPos(CenterX, 5)
For lngTmpI = -5 To 5
For lngTmpN = -5 To 5
monScanX = CenterX + lngTmpI * 10
monScanY = CenterY + lngTmpN * 10
blnSimily = 1
mColor0 = objFM.GetPixelColor(monScanX, monScanY)
mR(0) = CLng("&H" + Right(mColor0, 2))
mG(0) = CLng("&H" + Mid(mColor0, 3, 2))
mB(0) = CLng("&H" + Left(mColor0, 2))

If blnSimily = 1 Then
Call objFM.SetCursorPos(monScanX, monScanY)
objFM.SleepMS (12)
mColor = objFM.GetPixelColor(monScanX, monScanY)
If mColor <> mColor0 Then
mR(5) = CLng("&H" + Right(mColor, 2))
mG(5) = CLng("&H" + Mid(mColor, 3, 2))
mB(5) = CLng("&H" + Left(mColor, 2))
End If
End If
Next
Next
Call objFM.SetCursorPos(CenterX, CenterY)
End Function
'****************************************************************************************这个函数用于得到当前屏幕分辨率*****
Function GetScreenResolution(ByRef ScreenX, ByRef ScreenY)
Resolution = objFM.GetScreenResolution()
ScreenX = CInt(Resolution / 8192)
ScreenY = Resolution Mod 8192
End Function

'********************************************************************************************（绿色野外）地图000找怪函数*****
Function FindMonster000(tmpMapID)
Dim mi, mColor0, mColor, mTempColor(4), monScanX, monScanY, tmpMN
Dim mR(5), mG(5), mB(5), blnSimily, lngMaxDots
lngMaxDots = 2 * lngScanDots
mN = mN Mod lngScanDots
mi = 12: blnSimily = 0
objFM.SleepMS (mi)
Do While mN < lngMaxDots
tmpMN = mN Mod lngScanDots
monScanX = DotX(tmpMN) + lngoffsetX
monScanY = DotY(tmpMN) + lngoffsetY
blnSimily = 1
mColor0 = objFM.GetPixelColor(monScanX, monScanY)
mR(0) = CLng("&H" + Right(mColor0, 2))
mG(0) = CLng("&H" + Mid(mColor0, 3, 2))
mB(0) = CLng("&H" + Left(mColor0, 2))
If mG(0) >= mR(0) And mR(0) >= mB(0) Then blnSimily = 0

If blnSimily = 1 Then
mTempColor(0) = objFM.GetPixelColor(monScanX - 5, monScanY)
mTempColor(1) = objFM.GetPixelColor(monScanX + 5, monScanY)
mTempColor(2) = objFM.GetPixelColor(monScanX, monScanY - 5)
mTempColor(3) = objFM.GetPixelColor(monScanX, monScanY + 5)

mR(1) = CLng("&H" + Right(mTempColor(0), 2))
mG(1) = CLng("&H" + Mid(mTempColor(0), 3, 2))