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