腳本殺怪

㈠ 按鍵精靈自動打怪腳本如何設置

[Script]
Plugin hwnd=Window.Foreground()
Import window.dll
VBSBegin
win=Window.Foreground()
client=Window.GetClientRect(win)
s=split(client,"|")
dx=s(0)
dy=s(1)
zx=s(2)
zy=s(3)
VBSEnd
Dim red,blue,bbred,redwait,bluewait,monwait,fqg,jb,a,b,c,k,q,s1,s2,s3,s4,s5,s6,s7,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10
t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=0
UserVar fqg=DropList{防搶怪:0|不防搶怪:1}=0 防搶怪設置
UserVar jb=DropList{不撿包:0|自動撿包:1}=0 是否撿物
UserVar s1=2 門派普攻F1間隔(秒)
UserVar s2=20 單體攻擊F2間隔(秒)
UserVar s3=20 單體攻擊F3間隔(秒)
UserVar s4=25 怒氣攻擊F4間隔(秒)
UserVar s5=80 自定技能F5間隔(秒)
UserVar s6=60 BB技能F6間隔(秒)
UserVar s7=10 狀態技能F7間隔(分)
UserVar red=DropList{30%:30|50%:50|70%:70}=1 血少於%加血F8
UserVar blue=DropList{30%:30|50%:50|70%:70}=0 藍少於%加藍F9
UserVar bbred=DropList{沒有出戰:0|20%:20|30%:30|50%:50}=2 寵少於%加血F10
UserVar redwait=1 紅葯冷卻時間(秒)
UserVar bluewait=1 藍葯冷卻時間(秒)
UserVar monwait=100 尋怪延時(毫秒)
PutAttachment .\plugin *.dll
Rem 開始
Delay monwait
Gosub 驗證碼
Gosub 找怪
If fqg=0
IfColor dx+369,dy+31,1E252A,2
Goto 開始
EndIf
EndIf
Rem 繼續殺怪
Gosub 判斷血藍狀態
Gosub BB血狀態
Gosub 殺怪
Rem End
EndScript
Sub 驗證碼
Rem 再次報警
VBSCall FindPic(0,50,600,550,"Attachment:\yz1.bmp",0.9,x,y)
If x>0 and y>0
Plugin SimPlayer.ring(19)
//使用了聲音插件，需要自己去官網下載
Delay 2000
EndIf
While x>0
VBSCall FindPic(0,300,600,550,"Attachment:\20S.bmp",0.9,x,y)
If x>=0 and y>=0
IfColor x+17,y+9-k,FFFFFF,0
KeyPress 27 1
Delay 1000
MoveTo dx+446,dy+315
Delay 1000
LeftClick 1
Goto End
EndIf
Else
Goto 再次報警
EndIf
EndWhile
Return 驗證碼
Sub 判斷血藍狀態
IfColor red/100*120+66+dx,dy+31,222222,2
a=a+1
Else
EndIf
IfColor blue/100*120+66+dx dy+37 222222 2
b=b+1
Else
EndIf
Return 判斷血藍狀態
Sub BB血狀態
If bbred>0
IfColor bbred+91+dx dy+69 111111 2
c=c+1
EndIf
EndIf
Return BB血狀態
Sub 找怪
KeyDown 1,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 1,1
Delay 10
Return 找怪
Sub 殺怪
IfColor dx+247,dy+31,0019FF,2
IfColor dx+261,dy+31,0011ff,2
Gosub 技能
Else
KeyPress 12 1
Delay 1000
EndIf
Goto 繼續殺怪
Else
If jb=1
Gosub 撿包
Else
Goto 開始
EndIf
EndIf
Return 殺怪
Sub 怒氣判斷
IfColor qx+126,qy+43,00ffff,2
q=1
EndIf
IfColor qx+188,qy+43,00ffff,2
q=2
EndIf
Return 怒氣判斷
Sub 技能
Goto 開始
If DateDiff("s",t1,now)>=s1
KeyPress 12 1
t1=now
Delay 100
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t2,now)>=s2
Delay 500
KeyPress 113 1
t2=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t3,now)>=s3
Delay 500
KeyPress 114 1
t3=now
Delay 500
EndIf
Else
EndIf
Gosub 怒氣判斷
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t4,now)>=s4 and q>=1
Delay 500
KeyPress 115 1
t4=now:q=q-1
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t5,now)>=s5
Delay 500
KeyPress 116 1
t5=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t6,now)>=s6
KeyPress 117 1
t6=now
Delay 100
EndIf
EndIf
If DateDiff("n",t7,now)>=s7
MoveTo dx+36,dy+35
LeftClick 1
Delay 100
KeyPress 118 1
t7=now
Delay 100
KeyDown 17,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 17,1
Delay 10
EndIf
If DateDiff("s",t8,now)>=redwait and a>=1
KeyPress 119 1
t8=now:a=0
Delay 500
EndIf
If DateDiff("s",t9,now)>=bluewait and b>=1
KeyPress 120 1
t9=now:b=0
Delay 500
EndIf
If DateDiff("s",t10,now)>=1 and c>=1
KeyPress 121 1
t10=now
c=0
Delay 500
EndIf
Return 技能
Sub 撿包
Dim v,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1
l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560
If x0-a1>=a2-x0
n=a1
Else
n=x0-(a2-x0)
EndIf
Rem 開始搜索
v=l
i=m
x1=x0:y1=y0-v
While x1>=n
k1=0:k2=v
For 2
For i
x1=x1+k1:y1=y1+k2
If x1>=a1 and x1<=a2 and y1>=b1 and y1<=b2
MoveTo x1,y1
Delay 2
VBSCall shape=GetCursorShape(0)
If shape=d
Delay 50
RightClick 1
Delay 400
Goto 開始
EndIf
EndIf
EndFor
k1=v:k2=0
EndFor
i=i+1:v=v*(-1)
EndWhile
Goto 開始
Return 撿包

㈡ 怎麼用按鍵精靈製作自動殺人腳本。

按鍵精靈做連擊腳本
1、123鍵的按法
所謂按法實際上就是各種代碼方式
常見的有以下幾種（time為延時，自己修改）
KeyPress 49,1（按一次1）
Delay time
KeyPress 50,1（按一次2）
Delay time
KeyPress 51,1（按一次3）
Delay time
KeyDown 49,1（按住1）
Delay time
KeyUp 49,1（彈起1）
Delay time
KeyDown 50,1（按住2）
Delay time
KeyUP 50,1（彈起2）
Delay time
KeyDown 51,1（按住3）
Delay time
KeyUp 51,1（彈起3）
Delay time
KeyDown 49,1（按住1）
Delay time
KeyUp 49,1（彈起1）
Delay time
KeyDown 50,1（按住2）
Delay time
KeyDown 51,1（按住3）
Delay time
KeyUP 50,1（彈起2）
Delay time
KeyUp 51,1（彈起3）
Delay time
2、設置循環
通常有2種方式，第一種是直接在製作時候選擇循環方式。第二種用rem標記，然後在代碼結束時用goto來返回。區別不大，有時2種同時測試會產生意外的效果
網路文庫用戶有獎調查
1/2
3、間隔時間
寫奇跡連擊腳本，關鍵之處在於時間間隔，每種按法所對應的時間間隔是不同的，最直接能觀察出腳本好壞的，就是在本機觀察連擊後產生的光圈。光圈清晰，如環狀爆出的，說明時間間隔和攻擊速度偏差大，光圈射出針狀的零星散光時，說明技能的間隔之間最佳，在單位時間內所爆出的次數也最多。要想搞出bt腳本就要耐心在這里做觀察了！！
技能的時間間隔，武器技能為1號位置時，間隔時間要控制在釋放1次技能所需時間以上，迴旋/雷霆的時間間隔要控制在釋放1次技能所需時間以下，襲風的間隔則要保正在釋放2次所需時間以上，具體多少需要自己在游戲中找了，一般時間間隔以毫秒為標准，以10毫秒為一階段修改，當修改到1秒能能出1次連擊且次數穩定時，將武器技能的修改值精確到5毫秒，雷霆霹靂修改值為2毫秒，襲風修改值為3毫秒。
4、代碼的實際運用
第1點中的代碼只是給大家的幾中基本形式，代碼可以幾種混合，或者在原有的基礎上減少，但有一點必須明白，每一次的按鍵中至少需要2個或以上的鍵完成全動作，即按下彈起。上述的2、3類型代碼，彈起後的延時設置范圍控制在1-80毫秒間（最後一個延時1-150毫秒），一般來說偏小不偏大。而按下代碼後的延時，則是活動性比較大的，可以根據敏捷以反比例下調，在測試代碼時候，也是以這幾個延時為主要修改點的
大致先到這里，可能我表達的也不夠理想，反正意思到了，看大家領悟。連擊腳本就是123，但十幾毫秒差別就能決定你殺人或被殺，一般腳本在寫完後最好的測試環境就是直接去pk，盡量是在無補丁和輔助的情況下，通常好的腳本都是在無數次的實戰中才能產生的，切記不要用怪或組隊去嘗試寫，戰斗永遠充滿變數的。

[Script]
KeyPress 49 1
Delay 250
KeyPress 50 1
KeyPress 51 1
Delay 120

㈢ 傳奇任務腳本怎麼寫我

A: NPC領取殺怪任務100隻，當殺怪達到100隻的時候回來NPC處領取獎勵
B:人物在某地圖殺怪提示。即每殺一隻怪 聊天框 就提示你目前殺怪總數為:
C:當殺怪達到100隻，；聊天框提示：殺怪總數完成，請回去領取獎勵

A 用到自定義變數
B 用到殺怪觸發
C 一樣殺怪觸發
臨時寫的 看下面的
[@main]
#if
#say
<領取殺怪100任務/@領取> <任務完成領取獎勵/@獎勵>
[@領取]
#if
Check [100] 0
#act
set [100] 1
SENDMSG 6 提示:任務領取完畢,請盡快完成.
#elseact
SENDMSG 6 提示:草，領取過的還來搗亂，勞資乾死你.
break
[@獎勵]
#if
CHECKVAR HUMAN SGCF > 99
#act
set [100] 0
CREDITPOINT + 5
SENDMSG 6 提示:任務完成獎勵聲望+5.
CALCVAR HUMAN SGCF = 0
SAVEVAR HUMAN YUAN ..\QuestDiary\數據文件\變數數據.txt
#elseact
SENDMSG 6 提示:草，任務未完成，還想要獎勵，滾.
break
-----------------------------------------------------------------------------
登陸腳本如下:
請在mirserver\Mir200\Envir\QuestDiary\數據文件\ ---目錄下建立一個[變數數據.txt]的文本
如果沒有的話就自己創建
[@login]
#if
CHECKLEVELEX > 0
#act
VAR Integer HUMAN SGCF
LOADVAR HUMAN SGCF ..\QuestDiary\數據文件\變數數據.txt
-----------------------------------------------------------------------------
殺怪觸發:
mirserver\Mir200\Envir目錄下MapQuest.txt文本,添加如下一行:
3 [035] 0 沃瑪教主 * Q016

上面的3代表殺怪所在的地圖號,沃瑪教主代表殺的怪物名稱,可以自己修改
Q016對應的是mirserver\Mir200\Envir\MapQuest_Def 裡面的文本
意思就是這里寫Q016那麼MapQuest_Def目錄下觸發的文本名稱也必須是 Q016.txt
總之最後你寫什麼那麼MapQuest_Def目錄下就必須創建一個相對應的名稱txt文本
-----------------------------------------------------------------------------
mirserver\Mir200\Envir\MapQuest_Def\Q016.txt 裡面的文本內容如下:
[@main]
#IF
CHECKVAR HUMAN SGCF > 99
#ACT
mapmove 3 333 333
SENDMSG 6 提示:任務完成.
#elseact
CALCVAR HUMAN SGCF + 1
SAVEVAR HUMAN YUAN ..\QuestDiary\數據文件\變數數據.txt
messagebox 您的當前殺怪數量為：<$HUMAN(SGCF)>
break

3K的，方法一樣

㈣ 傳奇腳本。殺死怪物觸發傳送至某個地圖。MapQuest_def和MapQuest.txt都加了相應的文件，也實現不了

MapQuest
是在某地圖觸發某種功能，當然你也可以運用到殺怪觸發上。

簡單的方法：
你可以在QFunction-0.txt文本內添加以下內容。
[@殺怪傳送]
#IF
CheckKillMonName 白野豬
#ACT
mapmove 3 330 330
你可以把白野豬換成你想設置的怪物名稱。

利用地圖觸發的方法：
你在MapQuest_def文件夾里添加的東西應該是正確的，但是需要在MapInfo.txt文本內添加需要觸發的自定義腳本頭部名稱。
例如：
[0 比奇省] RUNMON SHAGUAI
然後在MapQuest_def文件夾內添加一個SHAGUAI文本，把腳本內容寫好就可以了
這種方法主要是指定某個地圖做某個觸發，和上面的相比更准確一些。

㈤ 傳奇HERO引擎添加殺怪獎勵物品任務腳本如何寫出。

首先
在
QManage.txt
進行申明和讀取自定義變數
[@gwre]
這里自己定義
#act
var
integer
human
殺怪任務
翻譯
申明私有變數
殺怪任務
loadvar
human
殺怪任務
..\QuestDiary\任務\殺怪任務.txt
翻譯
讀取私有變數
殺怪任務
路徑
然後在你的
該任務的NPC腳本中添加
checkvar
human
殺怪任務
>10
翻譯
檢測自定義私有變數
殺怪任務
中數值是否大於10
然後腳本的意思就是
檢測
殺某樣怪物的數量
是否達到規定數
達到的話
給與
沒達到不給與
等等
這我就不寫了
你自己慢慢改吧!
第三步
:在MapQuest.txt
中添加
按照下列格式
加
請
自定義內容(在這里設定
某地圖中的任務怪物
和執行腳本名稱!!)
地圖號
變數名稱
1
怪物名稱
*
腳本文件名稱
(這個腳本文件名稱
在下面給你介紹)
D713
[192]
1
紅野豬7
*
Q40
這段
腳本內容
指向的是
MapQuest_def
文件夾
在MapQuest_def
文件夾下
創建
Q40.txt文件
(自己定義)
然後在
Q40.txt
添加
[@main]
#if
checkvar
human
殺怪任務
>10
翻譯:檢測自定義私有變數
殺怪任務
數值是否大於10
#act
翻譯
是,則執行
sendmsg
7
您當前已經殺死足夠的xx怪物
請找任務NPC提交任務!!
break
#elseact
翻譯
不是則執行
calcvar
human
殺怪任務
+
1
翻譯
修改自定義變數
殺怪任務
變數
+1
savevar
human
殺怪任務
..\QuestDiary\任務\殺怪任務.txt
翻譯
保存
殺怪任務
變數
sendmsg
7
當前您已經殺死<$human(殺怪任務)>個XX怪物!!
具體就這些
有不懂的地方請查看相關資料!!!也可追問!!!
希望對你有所幫助!!!!!!!!

㈥ 傳奇私服殺怪任務腳本

首先在D:\mirserver\Mir200\Envir下的MapQuest.txt裡面寫 0 [001] 0 稻草人 * Q001
意思是在比奇殺稻草人就轉到腳本Q001
再在D:\mirserver\Mir200\Envir\MapQuest_Def裡面建立Q001.TXT
裡面寫
[@main]

#IF
#ACT
CALCVAR HUMAN 稻草人 + 1
SENDMSG 6 您已經殺死了稻草人：<$HUMAN(稻草人)>/20隻
SAVEVAR HUMAN 稻草人 ..\QuestDiary\數據文件\稻草人.txt

#IF
CHECKVAR HUMAN 稻草人 > 19
#ACT
SENDMSG 6 你已經消滅了20隻稻草人
CALCVAR HUMAN 稻草人 - 20
SAVEVAR HUMAN 稻草人 ..\QuestDiary\數據文件\稻草人.txt
CHANGEEXP + 20000
break