殺怪加屬性的腳本

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

[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 撿包

2. 傳奇如何設置破秒殺屬性，破無敵屬性，和破防爆屬性，或者腳本

你是開服的還是耍服的。如果你是開服的就把叫版本提供商把腳本改下。耍服的就只能聯系GM了

3. 按鍵精靈如何把打怪和加血腳本組合在一起

很簡單，將加血做成子程序，然後在打怪的主程序中調用加血子程序即可（實在對不起，你的提問太模糊了）。嘻嘻……以下是從按鍵9中復制過來的，請諒解！ Do
KeyPress "A", 1 '打怪攻擊熱鍵
Delay 200
Call 人物狀態保護
//<>------------------------------------------防卡設置--------------------------<>
If DateDiff("s",t1,now) >= Form1.等待.Text Then
t1=now
Exit Do
End If
Delay 200
Loop
End If Sub 人物狀態保護()
//<>--------------------------人物補血設置
If 血鍵 > 0 Then
IfColor 5+(10-5)*補血,5,"0000FF",0 Then '【坐標與顏色】需要自行修改
//補血熱鍵
KeyPress 血鍵, 1
Delay 200
End If
End If
//<>--------------------------人物補藍設置
If 藍鍵 > 0 Then
IfColor 5+(10-5)*補藍,10,"FF0000",0 Then '【坐標與顏色】需要自行修改
//補藍熱鍵
KeyPress 藍鍵, 1
Delay 200
End If
End If
//<>--------------------------奶爸奶媽技能補血設置
If 技能鍵 > 0 Then
IfColor 5+(10-5)*補血,20,"0000FF",0 Then '【坐標與顏色】需要自行修改
//技能補血熱鍵
KeyPress 技能鍵, 1
Delay 1000 '技能釋放等待時間
End If
End Ifend sub

4. 傳奇怎麼寫英雄殺怪經驗倍數的腳本

#IF
#ACT
KILLMONEXPRATE 200 7200
SENDMSG 6 %s，你已經獲得了2個小時雙倍經驗時間，如果掉線或死亡雙倍時間將消失！

200是倍數 改下就好 比如 300是3倍
後面是時間以秒為單位

5. 求個尋仙 按鍵精靈腳本 自動打怪加血 劍的

http://www.pconline.com.cn/pce/soft/gj/others/0904/1634226.html
在那下載

6. 傳奇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怪物!!
具體就這些
有不懂的地方請查看相關資料!!!也可追問!!!
希望對你有所幫助!!!!!!!!

7. 設置傳奇殺怪經驗倍數的腳本或者格式

KILLMONEXPRATE 倍率 有效時間
倍率 為殺怪經驗倍數，倍數除以100為真正的倍率(200 為 2 倍經驗，150 為1.5倍)

;==========================================
[@KILLMONEXPRATE]
#IF
#ACT
KILLMONEXPRATE 1000 600
#SAY
您當前殺怪經驗倍數為 10倍，有效時間 600秒。