Dim MonColor(4),i,j,k
// UserVar VocationVar=DropList{戰士:0|機甲師:1|魔法師:2|召喚師:3}=0  職業設定
VocationVar==0
UserVar KillModeVar=DropList{全自動打怪:0|手動滑鼠自動攻擊:1|手動滑鼠手動攻擊:2}=0  打怪模式設定
UserVar SkillVar=DropList{普通攻擊(左鍵):0|技能攻擊(右鍵):1|先左後右攻擊:2}=0 攻擊設定
UserVar LRTime=100 先左後右間隔時間(毫秒)
UserVar HPvar=DropList{Close:0|10%:0.1|20%:0.2|30%:0.3|40%:0.4|50%:0.5|60%:0.6|70%:0.7|80%:0.8|90%:0.9}=7 剩幾%補紅
UserVar HPtimeVar=DropList{Close:0|1秒:1|2秒:2|3秒:3}=1 補紅間隔時間
UserVar MPvar=DropList{Close:0|10%:0.1|20%:0.2|30%:0.3|40%:0.4|50%:0.5|60%:0.6|70%:0.7|80%:0.8|90%:0.9}=5 剩幾%補補藍
UserVar MPtimeVar=DropList{Close:0|1秒:1|2秒:2|3秒:3}=2 補藍間隔時間
UserVar HPvar1=DropList{Close:0|25%:0.25|50%:0.5|75%:0.75}=0 打坐補紅
UserVar MPvar1=DropList{Close:0|25%:0.25|50%:0.5|75%:0.75}=0 打坐補藍
UserVar Killvar=DropList{只打紅怪:1|粉怪以上:2|白怪以上:3|綠怪以上:4|藍怪以上:5}=4 打怪等級
UserVar NoKillMon=DropList{Close:0|防搶怪:1}=0 防搶怪設定
UserVar CanNotKillVar=DropList{Close:0|防卡牆:1}=1 防打卡牆怪物
UserVar CanNotKillTime=6 防卡牆時間(秒)
UserVar AriseVar=DropList{Close:0|重生點:1|原地:2|咒文書:3|結束遊戲程式:4}=0 復活設定
// 搜尋方式
// UserVar FineVar=DropList{集中掃描:0|全部掃描:1}=0 搜尋方式
UserVar FineSizeVar=DropList{大範圍:0|中範圍:1|小範圍:2}=0 搜尋範圍
UserVar EyesVar=DropList{手動:0|自動:1|自動拉遠:2}=2 視角調整
UserVar AspectVar=DropList{Close:0|15度:1|30度:2|45度:3|60度:4|75度:5}=0 自動旋轉方向
// UserVar SkillTime=DropList{0.3秒:3|0.5秒:5|1秒:10|1.5秒:15|2秒:20|2.5秒:25}=4 技能時間
UserVar AspectVar1=DropList{Close:0|15度:1|30度:2|45度:3|60度:4|75度:5}=2 無怪時旋轉方向
UserVar CarafeVar=DropList{Close:0|回重生點:1}=1 無補充水瓶設定
UserVar GetBaoVar=DropList{Close:0|全部撿:1|撿紫裝:2}=2 強制撿寶設定
// UserVar BallVar=10 買子彈次數
BallVar=1
// 初始值
// 搜尋方式
FineVar=0
// 紅怪
MonColor(0)="3434cd"
// 粉紅怪
MonColor(1)="5e81c9"
// 白怪
MonColor(2)="ffffff"
// 綠怪
MonColor(3)="5ec968"
// 藍怪
MonColor(4)="c97c5e"
// 取得補紅起始時間
HPtime=Now
// 取得補藍起始時間
MPtime=Now
// 取得怪物血條時間
MonRunTime=time
Rem again
// 調整方向和角度
If EyesVar=1 or EyesVar=2
    For 50
        MouseWheel 1
        Delay 40
    EndFor 
    If EyesVar=1
        For 15
            MoveTo 500,500
            RightDown 1
            Delay 40
            MoveR 0,-200
            Delay 40
            RightUp 1
        EndFor 
        Delay 1000
    EndIf 
EndIf 
// 腳本開始
Rem start
// 偵測紅血、藍魔
Gosub HP
Gosub MP
// 特殊職業設定
Gosub Vocation
// 打怪模式
If KillModeVar=1
    // 手動滑鼠自動攻擊
    VBSCall Shape=GetCursorShape(0)
    If Shape=978197372
        If SkillVar=0
            // 普通攻擊
            LeftClick 1
        ElseIf SkillVar=1
            // 技能攻擊
            RightClick 1
        ElseIf SkillVar=2
            // 先左後右攻擊
            LeftClick 1
            Delay LRTime
            RightClick 1
        EndIf 
    EndIf 
    KeyPress 32,1
    Delay 40
    Goto start
ElseIf KillModeVar=2
    // 手動滑鼠手動攻擊
    KeyPress 32,1
    Delay 40
    Goto start
EndIf