[General]
Description=毛毛版-神鬼传奇-自动挂机
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=122
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=1
Number=1943232333
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
自动百分比加血（人宠） 自动打怪（普攻和XP技能）
遇BOSS自动躲避（可选只躲避多少星的BOSS）
自动拾取（只要不被踩到的箱子都能拾取）
自动召唤宝宝（可选召唤哪一个宝宝）
死亡自动治疗和复活 复活后自动返回设置的挂机图打你选定的怪
自动接受组队 （可以拒绝）
游戏设置 1024*768 全屏
不知道为什么我直接在游戏状态下不能启动精灵 非得在外面启动好了后马上返回游戏
所以脚本的开始我就来了个 5秒延时 — _—！
人物和宝宝血蓝百分比的选择项 每项都是2个 必须选择是一样的 要不绝对出错
比如 人物百分比加血 这个就有两个 必须选择一样 至于为什么 看代码就知道了
才疏学浅 没有办法解决这个问题 哈哈 好了 复制分切线下面的代码到精灵里 然后把 附件解压到精灵安装目录就可以了
-------------------分切线 上面的是介绍 不用复制--------------------------
VBS dim hong,lan,xgT,BB,BBB,bhong,blan,jn1,jn2,jn3,jn4,jn5,jn6,gj,gjj,gw,gww,x3,hhh,hh,ll,lll,bh,bbh,zd,zdd,
UserVar hong=DropList{25%加血:140,37|50%加血:183,37|75%加血:228,37|85%加血:244,37}=1 人百分比加血
UserVar hhh=DropList{25%加血:1212a8|50%加血:c0bd2|75%加血:608e1|85%加血:506e5}=1 人百分比加血
UserVar lan=DropList{25%加蓝:143,54|50%加蓝:183,54|75%加蓝:222,54|85%加蓝:236,54}=1 人百分比加蓝
UserVar lll=DropList{25%加蓝:af5912|50%加蓝:d56c0b|75%加蓝:e47908|85%加蓝:e67a06}=1 人百分比加蓝
UserVar bhong=DropList{25%加红:138,94|50%加红:159,94|75%加红:180,94|85%加红:196,94}=1 宠百分比加红
UserVar bh=DropList{25%加红:1a12e2|50%加红:120cf0|75%加红:a05f4|85%加红:d05f6}=1 宠百分比加红
UserVar BB=DropList{第一位宝宝:232|第二位宝宝:250|第三位宝宝:267|第四位宝宝:280}=1 召唤宝宝
UserVar jn1=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 人血药键
UserVar jn2=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 人蓝药键
UserVar jn3=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 宠血药键
UserVar jn4=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 宠蓝药键
UserVar jn5=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 普技能键
UserVar jn6=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} XP技能键
UserVar gj=DropList{亚特兰蒂斯海域:392,444|复活岛北部:299,452|复活岛南部:314,477|大海沟:325,378|人鱼秘境北部:457,475|人鱼秘境中部:477,494|人鱼秘境南部:479,514|大裂口:554,549|吴哥丛林:503,566|吴哥营地:483,582|吴哥神殿:445,567|龙帝墓:801,549|大西洋:480,383|百慕大群岛:444,362|矮人森林:565,339|维京草原:527,317|古冰岛:319,258|国王谷:596,402|禁魂墓穴:619,379|尼罗河海岸:676,415|胡夫大沙漠:749,435} 挂机地点
UserVar gw=DropList{★亚特兰蒂斯海域★:1,1|巨螃蟹21:454,290|小海怪23:506,373|愤怒的贝人25:304,356|斯巴达勇士27:347,260|尨大力士29:378,496|歌唱那迦31:543,315|侵入性恶鬼35:486,531|吞噬虚空35:580,427|★大西洋怪★:1,1|海马护卫25:314,245|八爪大头章鱼25:316,487|★复活岛北部★:1,1|利爪狼23:346,412|郎榨鸟21:433,288|黑冠长臂猿25:380,454|★复活岛南部★:1,1|刺砍花25:349,281|黑熊27:283,360|采石场巨蜥29:432,385|★人鱼秘境北部★:1,1|海族持剑海马战士31:411,218|血色恐怖鱼33:418,345|暴躁恐怖鱼35:499,459|★人鱼秘境中部★:1,1|海巨人37:291,346|狂躁海巨人39:413,243|海族恐怖鱼39:419,560|★人鱼秘境南部★:1,1|海族持木仓海马战士43:253,218|海族闪电海马战士45:527,442|海族持叉海马战士43:552,493} 挂机怪物选择
UserVar x3=DropList{二星怪:509|三星怪:528}=1 不打几星怪
UserVar xgT=DropList{跑2分钟:120000|跑3分钟:180000|跑4分钟:250000|跑5分钟:300000|跑6分钟:360000|跑7分钟:420000|跑8分钟:480000|跑9分钟:540000|跑10分钟:600000}=1 跑到挂机点时间
UserVar zd=DropList{拒绝组队:499,501|接受组队:627,498}=1 是否组队
Delay 5000
Rem 死亡返回
Gosub 视觉调整
Gosub 召唤宝宝
Gosub 挂机点选择
Rem 开始
Gosub 人物是否死亡
Rem 到达
Gosub 寻怪
Gosub 自动组队
Gosub 人加血蓝
Gosub 宠加血蓝
Gosub 是否有怪
Gosub 判断怪是否死亡
Goto 开始
Sub 视觉调整
MoveTo 926,29
Delay 200
LeftClick 1
Delay 200
KeyPress 35,15
Delay 200
Return 视觉调整
Sub 是否有怪
IfColor 490,37,2f7fa9,2
Gosub 判断怪是否死亡
Else
Goto 开始
EndIf
Return 是否有怪
Sub 判断怪是否死亡
IfColor 485,17,191586,2
Gosub 打怪
Else
Gosub 拾取
Goto 开始
EndIf
Return 判断怪是否死亡
Sub 打怪
IfColor 236,77,2953b1,2
KeyPress jn6,1
EndIf
KeyPress jn5,1
Gosub 拾取
Return 打怪
Sub 人加血蓝
//加血
hh=split(cstr(hong),",")
IfColor clng(hh(0)),clng(hh(1)),hhh,1
KeyPress jn1,1
Else
EndIf
//加蓝
ll=split(cstr(lan),",")
IfColor clng(ll(0)),clng(ll(1)),lll,1
KeyPress jn2
Else
EndIf
Return 人加血蓝
Sub 宠加血蓝
bbh=split(cstr(bhong),",")
IfColor clng(bbh(0)),clng(bbh(1)),bh,1
KeyPress jn3,1
Else
EndIf
Return 宠加血蓝
Sub 召唤宝宝
//判断是否头宠物
IfColor 234,99,21147b,1
KeyPress 88,1
Delay 500
//召唤第几个宠物
MoveTo 910,BB
LeftClick 1
Delay 300
MoveTo 979,413
Delay 300
LeftClick 1
Delay 59
KeyPress 88,1
Delay 4200
Else
EndIf
Return 召唤宝宝
Sub 拾取
For 3
VBSCall FindPic(10,10,1000,750,"sgcqxz.bmp",0.4,x,y)
If x>=0 and y>=0
MoveTo x y
Delay 50
RightClick 1
EndIf
EndFor
Return 拾取
Sub 怪物星级
IfColor x3,37,2f7fa9,2
KeyPress 192,1
Else
Goto 打怪开始
EndIf
Return 怪物星级
Sub 挂机点选择
KeyPress 77,1
//挂机地点大地图选择
Delay 1000
gjj=split(cstr(gj),",")
MoveTo clng(gjj(0)),clng(gjj(1))
Delay 1000
LeftClick 1
Delay 1000
gww=split(cstr(gw),",")
MoveTo clng(gww(0)),clng(gww(1))
Delay 1000
LeftClick 1
Delay 200
MoveTo 850,139
Delay 200
LeftClick 1
Delay 200
KeyPress 77,1
Delay xgT
Return 挂机点选择
Sub 寻怪
IfColor 490,37,2f7fa9,2
Gosub 怪物星级
Else
KeyPress 192,1
Delay 200
EndIf
Return 寻怪
Sub 人物是否死亡
VBSCall FindPic(498,127,556,164,"sgcqsw.bmp",0.8,x,y)
If x>=0 and y>=0
Delay 3000
MoveTo x,y
LeftClick 1
Delay 5000
KeyPress 9,1
Delay 500
MoveTo 745,215
Delay 100
LeftClick 1
Delay 5000
MoveTo 56,396
Delay 100
LeftClick 1
Delay 100
MoveTo 745,215
Delay 100
LeftClick 1
Delay 100
MoveTo 56,376
Delay 200
LeftClick 1
Delay 200
KeyPress 27,1
Delay 200
MoveTo 677,264
Delay 200
LeftClick 1
Delay 200
MoveTo 697,598
Delay 200
LeftClick 1
Delay 5000
Goto 死亡返回
Else
Goto 到达
EndIf
Return 人物是否死亡
Sub 自动组队
IfColor 790,735,12ffff,2
MoveTo 790,735
Delay 500
LeftClick 1
Delay 100
zdd=split(cstr(zd),",")
MoveTo clng(zdd(0)),clng(zdd(1))
Delay 200
LeftClick 1
Delay 200
EndIf
Return 自动组队
请问这个要怎么复制，我全部复制也不行，复制一半也不行。
