作者：草戒指
伺服器 武曲星（１０-天波）
===============這行不用複製 複製以下內容=========================
VBS dim NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,StepX,StepY
//NumA--X軸移動的變量，NumB--Y軸移動的變量，NumK--中間變量
VBS NumA=0:NumB=0:NumC=0:CenterX=385:CenterY=310:StepX=82:StepY=66
//CenterX，CenterY---中心坐標(一般是人數) StepY,StepY--步長
//****************************主程序開始**************************************
While NumC<3
//NumC---三圈， 相當會把找怪範圍會成25個格
VBS NumN=NumC*8:NumK=0
//NumN---找怪的格子位置
While NumK<NumN
//向下移動
If NumK>0 and NumK<(NumN/4)
VBS NumB=NumB+1
EndIf
//向左移動
If NumK>=(NumN/4) and NumK<(NumN/2)
VBS NumA=NumA-1
EndIf
//向上移動
If NumK>=(NumN/2) and NumK<(NumN/4)*3
VBS NumB=NumB-1
EndIf
//向右移動
If NumK>=(NumN/4)*3 and NumK<NumN
VBS NumA=NumA+1
EndIf
//每一格的中心坐標
VBS GBX=CenterX+StepX*NumA
VBS GBY=CenterY+StepY*NumB
Delay Time/2
//***************查看運行效果********************
//如果想看本腳本的執行路線，請打開圖畫，再打把下面三句前的//去掉
//MoveTo GBX GBY
//Delay 100
//LeftClick 1
//*******************************************
//×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
//××××××××××××××××××××××××××××× 找怪部分 ××××××××××××××××××××××××××××××
VBSCall FindColorEx(GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2,"FFFFFF",1,0.6,AX,AY)
//「FFFFFF」----怪的色，其它部分不要動，這裡也可以改成在（GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2）範圍內找圖片
Delay Time/2
If AX>0
//找到色
MoveTo AX AY
//移動到AX，AY
//*****判斷是否是怪********
//gosub Mon
//<判斷是否是怪>子程序在這裡調用！
//*************************
Delay Time
Goto KillMon
EndIf
//××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
VBS NumK=NumK+1
EndFor
VBS NumA=NumA+1:NumC=NumC+1
EndFor
//************************************主程序結束***************************************
//*************************************************************************************
//******************** 打怪 ********************
Rem KillMon
//下面請自己添加打怪要的動作
//提示：1。可以先判斷是否是怪。[要判斷的話，就寫個子程序，上面有提示<判斷是否是怪>調用的地方。]
// 2。是怪的話就攻擊，殺死後跳到開始，重新開始找怪；不是的話，就跳到下一格接著找！
===============這行不用複製 複製以上內容========================= |
收藏
分享
讚
幹
分享
分享
