需求挂机外挂途径和挖矿外挂，好心人帮忙！！
需求挂机外挂途径和挖矿外挂，好心人帮忙！！怎么获取这些外挂？付钱也可以，谢谢！ 拿分走人！！！！！！！！ [General]
Description=热血传奇挖矿
BeginHotkey=187
BeginHotkeyMod=0
RunOnce=0
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=传奇.
功能描述：
使用说明：.
1 快捷1放置随机传送卷
2 快捷2放置修复油
功能键定义：F3隐身，F4治愈，F5防，F6魔，F8招宠物。
【作者介绍】.
QQ：49920566
.
【制作日期】.
2007年2月15日
[Script]
VBS dim cfull(6)
VBS dim cnow(6)
VBS dim diff
VBS dim intx
VBS dim inty
VBS dim hvppl
VBS dim keepgold
VBS dim fly
VBS dim wrong
VBS dim t1
VBS dim t2
//
keepgold=0
hvppl=0
t1=0
t2=0
fly=0
wrong=0
Gosub fullred
Gosub start
While fly<25
Gosub work
EndWhile
Gosub leaveandend
Sub start
MoveTo 232 459
LeftClick 1
Delay 200
For 3
Gosub people
KeyDown 119 1
Delay 2000
KeyUp 119 1
EndFor
For 3
Gosub people
MoveTo 390 200
KeyDown 116 1
Delay 2000
KeyUp 116 1
EndFor
For 3
Gosub people
MoveTo 390 200
KeyDown 117 1
Delay 1000
KeyUp 117 1
EndFor
Return start
Sub fullred
y=1
While y<6
VBSCall color=GetPixelColor(80,(y*8+435))
VBS cfull(y)=color
y=y+1
EndWhile
Return fullred
Sub nowred
y=1
While y<6
VBSCall color=GetPixelColor(80,(y*8+435))
VBS cnow(y)=color
y=y+1
EndWhile
Return nowred
Sub comred
Gosub nowred
If cnow(5)<>cfull(5)
KeyPress 27 1
KeyPress 19 1
KeyPress 49 1
fly=fly+1
Delay 500
Gosub leave
ElseIf cnow(4)<>cfull(4)
KeyPress 27 1
KeyPress 19 1
KeyPress 49 1
fly=fly+1
MoveTo 390 200
RightClick 1
Delay 200
MoveTo 390 200
RightClick 1
For 5
MoveTo 400 590
KeyDown 115 1
Delay 1500
KeyUp 115 1
EndFor
For 2
KeyDown 114 1
Delay 1000
KeyUp 114 1
EndFor
For 3
KeyDown 119 1
Delay 2000
KeyUp 119 1
Delay 100
EndFor
For 2
KeyDown 116 1
Delay 1000
KeyUp 116 1
EndFor
For 2
KeyDown 117 1
Delay 1000
KeyUp 117 1
EndFor
ElseIf cnow(3)<>cfull(3)
KeyPress 27 1
KeyPress 19 1
KeyPress 49 1
fly=fly+1
MoveTo 390 200
RightClick 1
Delay 200
MoveTo 390 200
RightClick 1
For 5
MoveTo 400 590
KeyDown 115 1
Delay 1500
KeyUp 115 1
EndFor
For 2
KeyDown 114 1
Delay 1000
KeyUp 114 1
EndFor
For 2
KeyDown 116 1
Delay 1000
KeyUp 116 1
EndFor
For 2
KeyDown 117 1
Delay 1000
KeyUp 117 1
EndFor
ElseIf cnow(2)<>cfull(2)
MoveTo 390 200
RightClick 1
Delay 200
MoveTo 390 200
RightClick 1
For 5
MoveTo 400 590
KeyDown 115 1
Delay 1500
KeyUp 115 1
EndFor
For 2
KeyDown 114 1
Delay 1000
KeyUp 114 1
EndFor
For 2
KeyDown 116 1
Delay 1000
KeyUp 116 1
EndFor
For 2
KeyDown 117 1
Delay 1000
KeyUp 117 1
EndFor
ElseIf cnow(1)<>cfull(1)
MoveTo 390 200
RightClick 1
Delay 200
MoveTo 390 200
RightClick 1
For 3
MoveTo 400 590
KeyDown 115 1
Delay 1500
KeyUp 115 1
EndFor
For 2
KeyDown 114 1
Delay 1000
KeyUp 114 1
EndFor
EndIf
EndIf
EndIf
EndIf
EndIf
Return comred
Sub people
If hvppl>3
Plugin t2=GetSysInfo.GetTime()
VBS t3=t2-t1
If t3<5000
Gosub leave
hvppl=0
wrong=wrong+1
EndIf
EndIf
If wrong>1
Gosub nowred
If cnow(4)<>cfull(4)
Gosub leaveandend
EndIf
EndIf
VBSCall FindColor(681,1,799,118,"00FFFF",pplx,pply)
If pplx>0 and pply >0
KeyPress 27 1
KeyPress 49 1
fly=fly+1
Plugin t1=GetSysInfo.GetTime()
hvppl=hvppl+1
EndIf
Return people
Sub leave
KeyDown 18 1
KeyPress 88 1
KeyUp 18 1
MoveTo 420 350
Delay 50
LeftClick 1
MoveTo 420 350
Delay 100
LeftClick 1
MoveTo 420 350
Delay 500
LeftClick 1
Delay 50000
MoveTo 395 470
LeftClick 1
Delay 15000
MoveTo 400 440
LeftClick 1
//
Delay 1000
KeyPress 49 1
fly=fly+1
Delay 200
For 5
MoveTo 400 590
KeyDown 115 1
Delay 1000
KeyUp 115 1
Delay 100
EndFor
Delay 500
MoveTo 232 459
LeftClick 1
Delay 200
Gosub people
KeyDown 114 1
Delay 1000
KeyUp 114 1
For 3
Gosub people
KeyDown 119 1
Delay 2000
KeyUp 119 1
EndFor
MoveTo 390 180
Gosub people
KeyDown 116 1
Delay 1000
KeyUp 116 1
Gosub people
KeyDown 117 1
Delay 1000
KeyUp 117 1
Gosub people
MoveTo 400 590
KeyDown 115 1
Delay 1000
KeyUp 115 1
KeyDown 115 1
Delay 1000
KeyUp 115 1
Return leave
Sub leaveandend
KeyDown 18 1
KeyPress 88 1
KeyUp 18 1
MoveTo 420 350
Delay 50
LeftClick 1
MoveTo 420 350
Delay 100
LeftClick 1
Delay 500
MoveTo 420 350
LeftClick 1
Delay 100
KeyPress 109 1
KeyPress 189 1
KeyPress 123 1
Delay 200
KeyPress 109 1
Delay 100
KeyPress 189 1
Delay 100
KeyPress 123 1
Delay 500
EndScript
Return leaveandend
Sub work
For 30
Gosub people
Gosub comred
Plugin t=GetSysInfo.GetTime()
VBS modt=(t Mod 4)
If modt=0
movex1=534
movey1=97
movex2=244
movey2=127
clickx=534
clicky=97
EndIf
If modt=1
movex1=244
movey1=127
movex2=231
movey2=301
clickx=244
clicky=127
EndIf
If modt=2
movex1=231
movey1=301
movex2=549
movey2=312
clickx=231
clicky=301
EndIf
If modt=3
movex1=549
movey1=312
movex2=534
movey2=97
clickx=549
clicky=312
EndIf
Gosub people
Gosub comred
For 20
MoveTo movex2 movey2
RightClick 1
EndFor
EndIf
Gosub people
Gosub comred
For 100
MoveTo movex1 movey1
RightClick 1
EndFor
For 10
Gosub people
Gosub comred
For 100
MoveTo clickx clicky
LeftClick 1
EndFor
EndFor
Delay 100
KeyPress 120 1
Delay 100
For 2
Gosub people
Gosub comred
VBSCall Call FindPic(2,2,798,400,"ton.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX,intY)
LeftClick 1
Delay 500
VBS x=((intx+350) mod 700)
VBS y=((inty+250) mod 310)
MoveTo x y
LeftClick 1
Delay 500
EndIf
Gosub people
Gosub comred
VBSCall Call FindPic(2,2,798,400,"tie.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX,intY)
LeftClick 1
Delay 500
VBS x=((intx+350) mod 700)
VBS y=((inty+250) mod 310)
MoveTo x y
LeftClick 1
Delay 500
EndIf
Gosub people
Gosub comred
VBSCall Call FindPic(2,2,798,400,"yin.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX,intY)
LeftClick 1
Delay 500
VBS x=((intx+350) mod 700)
VBS y=((inty+250) mod 310)
MoveTo x y
LeftClick 1
Delay 500
EndIf
If keepgold=0
Gosub people
Gosub comred
VBSCall Call FindPic(2,2,798,400,"jin.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos((intX+5),intY)
LeftClick 1
Delay 500
VBS x=((intx+355) mod 700)
VBS y=((inty+250) mod 310)
MoveTo x y
LeftClick 1
Delay 500
EndIf
EndIf
EndFor
Delay 100
KeyPress 120 1
Delay 100
EndFor
Gosub people
Gosub comred
KeyPress 27 1
Delay 100
KeyPress 50 1
Delay 100
Gosub people
Gosub comred
Delay 100
KeyDown 119 1
Delay 2000
KeyUp 119 1
Return work 看了不会用 :( :( :( :) :) :) :) :) :L :L :L :L :L
页:
[1]