a. 征服自動打怪腳本
要什麼腳本.別的沒有.捐官精靈我到是有.不用手動.開起來只要按f10就會自動開始捐.捐到你沒ts為止.
b. 跪求征服腳本!
vbscall call getcursorpos(a,b)@savemousepos///儲存此時坐標/開始主腳本rem beginifexpression l<=r0while 1ifexpression k>-91 and,
c. 帝國時代2 征服者地圖腳本編輯器怎麼弄場景
創建好你想要的場景後,保存,然後你可以在戰役編輯器里找到你所創的場景,選中後點添加,在定製戰役裡面就可以找到它了
d. 征服服務端裡面寫腳本放在什麼地方,文件是什麼格式的
你用管理工具添加了就是添加到服務瑞了的了! 然後要在客戶瑞的ini文件夾裡面的shop.dat添加,就可以顯示出來了!在itemtype.dat裡面修改顯示價格(這個文件要解密才可以用)
e. 誰知道按鍵精靈怎麼弄征服的自動復活腳本
你自己寫吧 我就是自己寫的,掛機的都是自己寫的,你把游戲的那個自動復活的按鈕在游戲中的坐標弄出來,自己在寫程序時候 入重復進程中。讓鍵盤的按鈕總是持續按下 命令上。這樣就可以只要死了 按鈕就持續點擊游戲上的復活按鈕的,很簡單 就看你怎麼想或者怎麼實現
f. 寫個腳本,腳本內容就是點擊下面那個「征服」按鈕,怎麼寫
如果是不間斷的按這個按鈕的話,直接弄一個時間間隔的enter鍵就好的。把滑鼠箭頭放在征服位置
g. 500高分跪求《征服-縱馬江湖》勇士練級掛機的按鍵精靈腳本!!
[replyview] vbs dim r0,l,m,k,dx,dy,x,y,a,b,starttime,sunhao2,xue2,color0,color//固定半徑r0=100vbs l=10 /圓半徑vbs m=5 /圓半徑vbs k=-90 /圓的漸變率vbs dx=1 /區的判斷值 gosub 注冊rem 注冊用戶gosub 加血提示gosub 損耗度提示gosub 半徑a,b /滑鼠初始坐標,開始時取得坐標值輸入// vbscall call getcursorpos(a,b)@savemousepos///儲存此時坐標///////////////////////////////////開始主腳本rem beginifexpression l<=r0while 1ifexpression k>-91 and k<270gosub sub1 //獲得動態坐標endif ifexpression k>269 and k<630gosub sub2 //獲得動態坐標endif gosub 注冊用戶打怪vbs k=k 1 /圓的漸變率k=k 0.3 ifexpression k=630vbs k=-90endif endfor/////////////////對應開始的循環vbs l=l 10vbs k=k 10else restoremousepos delay 5000 vbscall call getcursorpos(a,b)@ savemousepos///儲存此時坐標 vbs l=10 /圓半徑 vbs m=5 /圓半徑 vbs k=-90 /圓的漸變率 endifgoto begin ////////以下為非注冊用戶 rem 非注冊用戶gosub 啟動時間gosub 加血提示gosub 損耗度提示 gosub 半徑a,b /滑鼠初始坐標,開始時取得坐標值輸入// vbscall call getcursorpos(a,b)@savemousepos///儲存此時坐標///////////////////////////////////開始主腳本rem beginifexpression l<=r0while 1ifexpression k>-91 and k<270gosub sub1 //獲得動態坐標endif ifexpression k>269 and k<630gosub sub2 //獲得動態坐標endif gosub 非注冊用戶打怪vbs k=k 1 /圓的漸變率k=k 0.3 ifexpression k=630vbs k=-90endif endfor/////////////////對應開始的循環vbs l=l 10vbs k=k 10else restoremousepos delay 5000 vbscall call getcursorpos(a,b)@ savemousepos///儲存此時坐標 vbs l=10 /圓半徑 vbs m=5 /圓半徑 vbs k=-90 /圓的漸變率 endifgoto begin /////////////////////////////////////////////////以上為非注冊用戶代碼 sub sub1vbs x=a cos((k*3.1415926)/180)*lvbs y=b sin((k*3.1415926)/180)*lreturn sub sub2vbs x=a cos((k*3.1415926)/180)*mvbs y=b sin((k*3.1415926)/180)*mreturn /////////////////////////////////////////////////////////一下是件東西命令 sub 撿東西vbs dim gx,gy,cx,xy vbscall call getcursorpos(cx,cy)@ //獲得當前坐標,方便回到以前軌跡 vbscall call findcolor(x-100,y 100,x 100,y-100,"8ce3ff",gx,gy)@ //撿金子 if gx>0 vbscall call setcursorpos(gx,gy)@ leftclick 1 delay 3000 vbscall call setcursorpos(cx,cy)@ leftclick 1 delay 1000 endif vbscall call findcolor(x-100,y 100,x 100,y-100,"efe3ef",gx,gy)@/////撿銀子 if gx>0 vbscall call setcursorpos(gx,gy)@ leftclick 1 delay 3000 vbscall call setcursorpos(cx,cy)@ leftclick 1 delay 1000 endif vbscall call findcolor(x-100,y 100,x 100,y-100,"ff55f7",gx,gy)@/////撿流星 if gx>0 vbscall call setcursorpos(gx,gy)@ leftclick 1 delay 3000 vbscall call setcursorpos(cx,cy)@ leftclick 1 delay 1000 endif vbscall call findcolor(x-100,y 100,x 100,y-100,"ff75ce",gx,gy)@/////撿龍豬 if gx>0 vbscall call setcursorpos(gx,gy)@ leftclick 1 delay 3000 vbscall call setcursorpos(cx,cy)@ leftclick 1 delay 1000 endif return ///////////////////////////////////////////一下是退出遊戲命令 sub 死後回城退出ifcolor 63 729 5a7584 0 keypress 115 1 delay 3000 moveto 464 709 leftclick 1 delay 10000 saystring 大家玩好,我下了,先!! keypress 13 1 delay 100 moveto 671 757 leftclick 1 delay 10000 moveto 621 481 leftclick 1 delay 10000 moveto 469 413 leftclick 1 delay 100 gosub 關機 endif return ////////////////////////////////////////////下面是關機命令 sub 關機delay 4000keydown 91 1keypress 82 1keyup 91 1delay 50keypress 8 1delay 100saystring shutdown.exe -s -t 0delay 1000keypress 13 1return /////////////////////////////////////////////////下面是加血以及損耗度命令 sub 加血提示vbs dim xue2 vbscall xue2=inputbox("請輸入補血最低值:") keydown 18 1 keypress 9 1 keyup 18 1 delay 1000 if cint(xue2)>=5000 vbscall call messagebox("注意您補血設定值"&xue2&" 太高!")@ elseif cint(xue2)<=50 vbscall call messagebox("注意您補血設定值"&xue2&" 太低!")@ endif endif returnsub 加血vbs dim xue1,xue2 vbscall call readmemory(&h00e50cc0,2,xue1) if cint(xue1)<=cint(xue2) keypress 112 1 endif return sub 損耗度提示vbs dim sunhao2 vbscall sunhao2=inputbox("請輸入損耗度允許的最低值:") keydown 18 1 keypress 9 1 keyup 18 1 delay 1000 if cint(sunhao2)>=100 vbscall call messagebox("注意您損耗度設定值:"&sunhao2&" ;設置太高呀!!!")@ elseif cint(sunhao2)<=10 vbscall call messagebox("注意您損耗度設定值:"&sunhao2&" ;設置太低呀!!!")@ endif endif return sub 損耗度低退出vbs dim sunhao1,sunhao2 vbscall call readmemory(&h0504d52a,2,sunhao1) if cint(sunhao1)<=cint(sunhao2) keypress 115 1 delay 100 moveto 671 757 leftclick 1 delay 2000 moveto 621 481 leftclick 1 delay 2000 moveto 469 413 leftclick 1 delay 100 gosub 關機 endif return sub 技能 vbs dim xf vbscall call readmemory(&h0053aca8,2,xf) if cint(xf)=100 keypress 121 1 endif return sub 限時 vbs dim stoptime,starttime vbs stoptime=timer vbs t=stoptime-starttime if t>=600000 vbscall call messagebox("使用時間已到,請注冊,謝謝使用!聯系:[email protected]") moveto 671 757 leftclick 1 delay 400 moveto 621 481 leftclick 1 delay 400 moveto 469 413 leftclick 1 delay 80 keydown 91 1 keypress 82 1 keyup 91 1 delay 20 keypress 8 1 delay 50 saystring shutdown.exe -s -t 0 delay 10 keypress 13 1 gosub 終止腳本 endif return sub 注冊 vbs dim sn1,sn2,sn3 vbscall sn1=inputbox("請輸入帳號:") keydown 18 1 keypress 9 1 keyup 18 1 vbs sn3="ascii" sn1 vbscall sn2=inputbox("請輸入注冊碼:") keydown 18 1 keypress 9 1 keyup 18 1 if strcomp(sn2,sn3)=0 vbscall call messagebox("謝謝使用!請注冊!未注冊用戶試用10分鍾,聯系:[email protected]") goto 非注冊用戶 elseif strcomp(sn2,sn3)=1 vbscall call messagebox("謝謝您的注冊和支持,請關注我們為您提供的升級服務!聯系:[email protected]") goto 注冊用戶 endif return sub 葯少退出vbs dim yaovbscall call readmemory(&h00f92abc,2,yao) if cint(yao)<=3 keypress 115 1 delay 100 moveto 671 757 leftclick 1 delay 10000 moveto 621 481 leftclick 1 delay 10000 moveto 469 413 leftclick 1 delay 100 gosub 關機 endif return sub 半徑vbs dim rovbscall ro=inputbox("請輸入掛機范圍(建議:100~150):")return sub 血少退出vbs dim blood vbscall call readmemory(&h00e50cc0,2,blood) if cint(blood)<=800 keypress 115 1 delay 100 moveto 671 757 leftclick 1 delay 10000 moveto 621 481 leftclick 1 delay 10000 moveto 469 413 leftclick 1 delay 100 gosub 關機 endif return sub 終止腳本 vbscall call messagebox("謝謝使用!請提出建議並注冊,聯系:[email protected] 再見!")endscriptreturn sub 啟動時間vbs dim starttimevbs starttime=timerreturn sub 注冊用戶打怪///////////////////////////////////可以做成打怪子程序vbscall color0=getpixelcolor(x,y) //在滑鼠移動之前,獲取目標點色值並賦值給color0vbscall call setcursorpos(x,y)@ //馬上移動滑鼠到目標點vbscall color=getpixelcolor(x,y) //獲取滑鼠移動後該點色值並賦值給color ifexpression color<>color0 //同一點取得的兩次色值比較,不同,則執行以下的打怪腳本 leftclick 1 //左鍵單擊 gosub 損耗度低退出 gosub 技能 delay 900 //打怪延時 rightclick 1 gosub 加血 delay 900 //打怪延時 gosub 限時 gosub 撿東西 gosub 技能 gosub 損耗度低退出 delay 900 //打怪延時 gosub 加血 gosub 葯少退出 delay 900 gosub 技能 gosub 血少退出 gosub 死後回城退出 delay 500 gosub 限時 gosub 撿東西 endif //該點判斷結束 delay 10 //循環延時///////////////////////////////////////////while dx>0vbscall call findcentercolor(x-100,y 100,x 100,y-100,「0000bd」,dx,dy)@ifexpression dx>0 vbscall call setcursorpos(dx,dy)@ leftclick 1 //左鍵單擊 gosub 損耗度低退出 gosub 技能 delay 900 //打怪延時 rightclick 1 gosub 加血 delay 900 //打怪延時 gosub 限時 gosub 撿東西 gosub 技能 gosub 損耗度低退出 delay 900 //打怪延時 gosub 加血 gosub 葯少退出 delay 900 gosub 技能 gosub 血少退出 gosub 死後回城退出 delay 500 gosub 限時 gosub 撿東西 endifendfor/////////////////////////////////////////////vbs dx=1 ///////////////////////回到原始位置再次判斷vbscall call setcursorpos(x,y)@//回到原始設定的軌跡上leftclick 1delay 1000vbscall color0=getpixelcolor(x,y) //在滑鼠移動之前,獲取目標點色值並賦值給color0vbscall call setcursorpos(x,y)@ //馬上移動滑鼠到目標點vbscall color=getpixelcolor(x,y) //獲取滑鼠移動後該點色值並賦值給color ifexpression color<>color0 //同一點取得的兩次色值比較,不同,則執行以下的打怪腳本 leftclick 1 //左鍵單擊 gosub 損耗度低退出 gosub 技能 delay 900 //打怪延時 rightclick 1 gosub 加血 delay 900 //打怪延時 gosub 限時 gosub 撿東西 gosub 技能 gosub 損耗度低退出 delay 900 //打怪延時 gosub 加血 gosub 葯少退出 delay 900 gosub 技能 gosub 血少退出 gosub 死後回城退出 delay 500 gosub 限時 gosub 撿東西 //打怪延時 endif //該點判斷結束 delay 10 //循環延時vbscall call setcursorpos(x,y)@//回到原始設定的軌跡上leftclick 1delay 1000 return //////////////////////////////////// sub 注冊用戶打怪///////////////////////////////////可以做成打怪子程序vbscall color0=getpixelcolor(x,y) //在滑鼠移動之前,獲取目標點色值並賦值給color0vbscall call setcursorpos(x,y)@ //馬上移動滑鼠到目標點vbscall color=getpixelcolor(x,y) //獲取滑鼠移動後該點色值並賦值給color ifexpression color<>color0 //同一點取得的兩次色值比較,不同,則執行以下的打怪腳本 leftclick 1 //左鍵單擊 gosub 損耗度低退出 gosub 技能 delay 900 //打怪延時 rightclick 1 gosub 加血 delay 900 //打怪延時 gosub 撿東西 gosub 技能 gosub 損耗度低退出 delay 900 //打怪延時 gosub 加血 gosub 葯少退出 delay 900 gosub 技能 gosub 血少退出 gosub 死後回城退出 delay 500 gosub 撿東西 endif //該點判斷結束 delay 10 //循環延時///////////////////////////////////////////while dx>0vbscall call findcentercolor(x-100,y 100,x 100,y-100,「0000bd」,dx,dy)@ifexpression dx>0 vbscall call setcursorpos(dx,dy)@ leftclick 1 //左鍵單擊 gosub 損耗度低退出 gosub 技能 delay 900 //打怪延時 rightclick 1 gosub 加血 delay 900 //打怪延時 gosub 撿東西 gosub 技能 gosub 損耗度低退出 delay 900 //打怪延時 gosub 加血 gosub 葯少退出 delay 900 gosub 技能 gosub 血少退出 gosub 死後回城退出 delay 500 gosub 撿東西 endifendfor/////////////////////////////////////////////vbs dx=1 ///////////////////////回到原始位置再次判斷vbscall call setcursorpos(x,y)@//回到原始設定的軌跡上leftclick 1delay 1000vbscall color0=getpixelcolor(x,y) //在滑鼠移動之前,獲取目標點色值並賦值給color0vbscall call setcursorpos(x,y)@ //馬上移動滑鼠到目標點vbscall color=getpixelcolor(x,y) //獲取滑鼠移動後該點色值並賦值給color ifexpression color<>color0 //同一點取得的兩次色值比較,不同,則執行以下的打怪腳本 leftclick 1 //左鍵單擊 gosub 損耗度低退出 gosub 技能 delay 900 //打怪延時 rightclick 1 gosub 加血 delay 900 //打怪延時 gosub 撿東西 gosub 技能 gosub 損耗度低退出 delay 900 //打怪延時 gosub 加血 gosub 葯少退出 delay 900 gosub 技能 gosub 血少退出 gosub 死後回城退出 delay 500 gosub 撿東西 //打怪延時 endif //該點判斷結束 delay 10 //循環延時vbscall call setcursorpos(x,y)@//回到原始設定的軌跡上leftclick 1delay 1000 return[/replyview]