曙光腳本研究區(懂按鍵語言才進來)福音

其實，曙光打怪不用抓座標找點等等的，因為官方已經用演算法，使用TAB就可以找怪，剩下的只是設定好鍵盤動作而已，還有抓顏色點來補血。目前我已經重新製作出戰士跟弓箭手的腳本，也比亞大的穩定多了。

希望你也提出自己的意見，我不想只是一味付出，我說過了，了解的才進來討論。

要寫一個好的腳本很麻煩啦
雖然不很難
我自寫的腳本
我寫最難掛的仙法
包含了下面功能:
1.自動尋標:自動找怪，有人先開打自動換下一隻，只打特定的怪(ex:只打小魔劍不打快閃劍and蟲族哨兵)
2.自動使用魔法攻擊:第一擊用虎嘯擊(自動偵測冷卻時間，未冷卻則用猛虎戰吼)，再用猛虎戰吼打到死
3.自動撿取物品:打完怪自動撿取所有物品，在自動將物品欄中不要的東西丟棄(避免撿滿= =)，撿完重新進入自動尋標功能
4.再非攻擊狀態下受到攻擊(ex:主動攻擊怪)鎖定身邊最靠近的怪進入攻擊模式
5.使用道具:當MP，HP到一定程度以下時自動使用到具補MP，HP
6.自動逃命:當HP到一定程度以下時自動使用金蟬脫殼回到傳點並重新進入自動尋標功能
7.防卡點功能:進入攻擊模式後，一定時間未發動攻擊，自動更換目標

經延時(Delay time)微調後除卡點外，發呆時間不超過1秒

看樣子很棒隊不對?
那上傳上來給打家分享好不好?

那是不可能的
位啥?
1.因為每個人電腦的螢幕都不一樣，有人800x600，有人1024x768，還有人用視窗模式，我用的則是1280x800全螢幕
2.每個人習慣的小視窗擺放位子都不一樣，像打怪時怪物血量的視窗就可以拉到你想要的地方
因為這兩點會使的抓圖及抓座標點發生問題，要校正座標，更新抓圖的標準圖

3.每個人的電腦速度及網路連線速度都不一樣
要不發呆跑的很順要對延時(Delay time)作微調

還有其他零零種種拉
所以要寫一個萬用(誰都可以用的腳本)放上來
就要犧牲抓圖及抓座標點的功能
還無法對延時(Delay time)作微調，只好把延時(Delay time)調大一點
寧可發呆，也不要掛到一半發生錯誤
所以從網路上下載的腳本(如果沒有自己調整過)
不是有問題(掛到一半發生錯誤)
就是會容易發呆

再者就是有好心人
他會幫你一你的設定及需求修正腳本
不過這超麻煩
想我寫的腳本
光包含1~4個功能的腳本就有439行= =
要一行一行幫你修
根本不可能

所以還是自己學怎麻寫比較快啦
不會寫的話至少也要會修改

感謝妳們辛苦的看完
再這裡分享一個自動使用道具(ex:不老葉)的腳本

[Script]
VBS dim t1
VBS t1=now
Delay 21005
Rem 1
IfColor 182 49 1a2743 0
    IfColor 183 49 1a2743 0
        If DataDiff("s",t1,now)>=21
            KeyPress 112 1
            VBS t1=now
        Else
            KeyPress 116 1
        EndIf
    EndIf
Else
    Delay 1000
EndIf
Goto 1

說明如下

[Script]
VBS dim t1 <==準備定義t1這一個變量
VBS t1=now <==定義t1=現在的電腦時間
Delay 21005 <==延時21秒，防止第一個循環出現錯誤
Rem 1
IfColor 182 49 1a2743 0 <==HP血條的某一點變黑色時
    IfColor 183 49 1a2743 0 <==再次確認HP血條的某一點變黑色(減少畫面lag亂補血的情況)
        If DataDiff("s",t1,now)>=21 <==如果距離上次按鍵時間超過21秒(道具冷卻時間為20秒)
            KeyPress 112 1 <==則按快速鍵F1使用道具
            VBS t1=now <==使用道具後從新定義t1=現在的電腦時間
        Else <==如果距離上次按鍵時間不到21秒(道具冷卻時間為20秒)
            KeyPress 116 1 <==則按快速鍵F5使用金蟬脫殼回到傳點
        EndIf
    EndIf
Else <==HP血條的某一點沒有變黑色時
    Delay 1000 <==延時1秒
EndIf
Goto 1 <==回到開始處每1秒偵測一次

想了一想還是把439行的主程式貼上來
但是不做註解
會改的請自行取用

[Script]
Rem 000
IfColor 163 49 1a2743 0
    IfColor 190 49 1a2743 0
        KeyPress 112 1
    EndIf
EndIf
IfColor 275 35 2f3eff 1
    Goto 2
EndIf
IfColor 267 37 3333ff 0
    王
    Goto 2
EndIf
Rem 001
IfColor 420 35 1a2743 0
    Goto 2
EndIf
IfColor 163 49 1a2743 0
    IfColor 190 49 1a2743 0
        KeyPress 112 1
    EndIf
EndIf
Rem 1
IfColor 275 35 2f3eff 0
    IfColor 275 36 2f3eff 1
        Delay 100
        Goto 1
    EndIf
    KeyPress 120 1
    Delay 1005
    Goto 1
Else
    IfColor 163 49 1a2743 0
        IfColor 190 49 1a2743 0
            KeyPress 112 1
        EndIf
    EndIf
    IfColor 420 35 1a2743 0
        KeyPress 120 1
        Delay 1005
        Goto 1
    Else
        Delay 200
    EndIf
    IfColor 275 35 2f3eff 0
        Goto 1
    Else
        KeyPress 121 1
        Delay 300
        KeyPress 121 1
        Delay 150
    EndIf
    IfColor 275 35 2f3eff 0
        Goto 1
    Else
        KeyPress 121 1
        Delay 300
        KeyPress 121 1
        Delay 150
    EndIf
    IfColor 275 35 2f3eff 0
        Goto 1
    Else
        Rem 4
        IfColor 163 49 1a2743 0
            IfColor 190 49 1a2743 0
                KeyPress 112 1
            EndIf
            IfColor 275 35 2f3eff 0
                Goto 1
            Else
                Delay 5250
                Goto 4
            EndIf
        EndIf
        Rem 2
        KeyPress 9 1
        Delay 100
        IfColor 275 35 2f3eff 1
            Goto 2
        EndIf
        IfColor 420 35 1a2743 0
            Goto 2
        EndIf
        IfColor 267 37 3333ff 0
            王
            Goto 2
        EndIf
    EndIf
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\鎖木爪.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\轟落鎚.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\烈經鞋.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\盜魂護手.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\紫氣法帽.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\霸雲鎧甲.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\獸態皮甲.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\良質逍光仗.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\刺陀刀.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\哞武盔.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\哞武鎧甲.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\烈經法袍.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\紫氣棉褲.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\紫氣鞋.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\獸態護手.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\霸雲鞋.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\盜魂皮甲.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\妖精石.bmp",1.0,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,309,1084,540,"c:\初級祕藥.bmp",1.0,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,309,1084,540,"c:\初級傷藥.bmp",1.0,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
PutAttachment c:\
VBSCall Call FindPic(886,276,1084,540,"c:\初級生命之石.bmp",1.0,intX,intY)
If intX>=0 and intY>=0
    VBSCall Call SetCursorPos(intX,intY)
    Delay 50
    LeftDown 1
    Delay 50
    MoveTo 895 560
    Delay 50
    LeftUp 1
    Delay 50
    MoveTo 614 443
    Delay 50
    LeftClick 1
    Delay 50
    Goto 000
EndIf
Goto 000