ar開始的是自定義變數根據自己需要修改帳號和密碼一定要帶引號"" //不啟用斷線重連的話不用設置帳號密碼 UserVar MM="你的密碼" 密碼 UserVar HH="你的帳號" 帳號 //料理設定 UserVar liaoli1=50 料理1恢復度 UserVar Cl1=400 料理1存量 //數字"1"為啟用"0"為不啟用 //啟用自動切換視窗為先決條件,啟用斷線重連的話要設置帳號密碼 UserVar Pd0=0 是否啟用自動切換視窗 UserVar Pd1=0 是否啟用檢測斷線並重連 UserVar Pd21=1 是否啟用飄副官模式 UserVar Pd3=0 是否啟用丟棄貨物 UserVar Pd4=0 是否啟用出狀況就登出模式 UserVar Pd5=2 重複第n次喊話, 0為無 UserVar Pd6=1 是否要進港補給 //漂流順序配置 UserVar a=3 一副現在崗位 沒有=0 航海=1 巡邏=2 會計=3 倉管=4 兵長=5 船醫=6 UserVar b=1 二副現在崗位 沒有=0 1-6設定和一副相同 //一副官天數 UserVar A1d=100 第一副官航海長漂流天數 UserVar A2d=100 第一副官巡邏員漂流天數 UserVar A3d=100 第一副官會計主管漂流天數 UserVar A4d=100 第一副官倉庫保管員漂流天數 UserVar A5d=100 第一副官兵長漂流天數 UserVar A6d=100 第一副官軍醫漂流天數 //二副官天數 UserVar B1d=86 第二副官航海長漂流天數 UserVar B2d=90 第二副官巡邏員漂流天數 UserVar B3d=74 第二副官會計主管漂流天數 UserVar B4d=69 第二副官倉庫保管員漂流天數 UserVar B5d=89 第二副官兵長漂流天數 UserVar B6d=72 第二副官軍醫漂流天數 //副官漂流前資料,紀錄用,可不填 UserVar A1a=30 第一副官冒等 UserVar A1c=36 第一副官商等 UserVar A1m=38 第一副官戰等 UserVar A1av=4325 第一副官冒等經驗值 UserVar A1cv=96478 第一副官商等經驗值 UserVar A1mv=140584 第一副官戰等經驗值 UserVar A2a=26 第二副官冒等 UserVar A2c=26 第二副官商等 UserVar A2m=28 第二副官戰等 UserVar A2av=28375 第二副官冒等經驗值 UserVar A2cv=9559 第二副官商等經驗值 UserVar A2mv=63788 第二副官戰等經驗值 //雜項設定 UserVar dayb=124950 跑一輪技能基本的時間(毫秒) UserVar days=30 大約幾天進港補給一次 UserVar Bldp=70 剩多少百分比行動力時進行補給 UserVar moveY=60 移動船的滑鼠高度位置 //自定義檔 F1~F8 UserVar Ft1=1 是否啟用F1 技能或消災道具 UserVar Ft2=1 是否啟用F2 料理 UserVar Ft3=1 是否啟用F3 技能或消災道具 UserVar Ft4=1 是否啟用F4 技能或消災道具 UserVar Ft5=1 是否啟用F5 技能或消災道具 UserVar Ft6=1 是否啟用F6 技能或消災道具 UserVar Ft7=1 是否啟用F7 技能或消災道具 UserVar Ft8=1 是否啟用F8 技能 救助 VBS set TiShiObj = createobject("WScript.Shell") Plugin hwn=Window.GetKeyFocusWnd() //設置結束 //主程式開始 Delay 1000 Rem 主程式開始 days1=(days*60000-8550-50-3500-5141-10050) lun=int((days1)\dayb) If Pd21=1 //停船 MoveTo 785 612 Delay 500 LeftClick 1 Delay 500 Gosub 副官換崗位 EndIf If Pd3=1 //停船 MoveTo 785 612 Delay 500 LeftClick 1 Delay 500 Gosub 丟棄貨物 EndIf If Pd6=1 Gosub 進港 Gosub 補給出城 Gosub 確認到港外 KeyPress 27 1 Delay 50 //轉向撞岸 Gosub 角度歸零 KeyDown 17 1 Delay 1000 KeyDown 39 1 Delay 3000 KeyUp 39 1 Delay 141 KeyUp 17 1 Delay 1000