您的位置 :
按键精灵珞珈传奇挂机脚本
所属专题：&
按键精灵珞珈传奇挂机脚本 1.80天字合计 圣爵精品传奇官网 185金币合击 500sf发布网 永恒传奇私服 老传世客户端下载 传奇永恒迷失29转 超级变态传奇靓装 1.85玉兔无强化版本 1.78狂战复古
知道他不差钱…！水灵心里嘟囔着，听着那头被加多宝挂断了的忙音，脑海中一片茫然，不断无意识的回想着加多宝说的话，好像她活了一辈子，就没遇到过什么好人，重生回来之后，昨天热心的监舍大妈算一个，这个加多宝，如今也能算一个吧。
要知道吕静之所以奔到庸县来，一方面是替自己儿子收尸，另一方面就是因为张己诚的通缉令不知何时传到了水家奶奶的手上，那思想封建的老人家认为张己诚败坏了水家门风，整日里对着吕静不是打就是骂，没让她过过一天好日子。
刀疤男说完。肆无忌惮的坐在欧式真皮沙发上，在茶几上捻了个苹果，随意的在t恤上蹭蹭，然后舒舒服服的将背靠上沙发。两只脚搁置在茶几上，看着被吓得瑟瑟发抖的吕静，拿起苹果，咬了口，脸上闪着亡命之徒独有的神情，慢悠悠问道：“你是打算还钱呢，还是交货呢？”
坐在电脑前面的水灵随意瞟一眼左下角的帮会聊天频道，很是意外的看到了为君醉的名字，他居然又被浴火凤凰收进自由联盟了？于是抬手打字问道，【帮会频道】灵灵签：我来了，你不是去了气魄剑派？
第065章 被逼
慢条斯理的用了一个小时吃完一顿饭，水灵早上还揣了500元的口袋，如今又只剩下80块了，吃完了饭，她回到网吧，见还是那位提醒她可以包机的网吧小妹，便和她点头打了个招呼，一头钻进自己的豪华情侣包厢，又见放在沙发上的那套精品女裙还在，她翻了翻购物袋，衣服似乎没有被动过，坐在沙发上伸了个懒腰，便十指翻飞的开工了。
学生们的心中自然是不服气的，然而再是不服气，也只能选择服从，很少有小说中的那种白痴极品会跳出来公然反对教官。而水灵的心态还好，可能是早有准备的关系，她始终显得不慌不忙的，以着什么样的步速来的，便以什么样的步速回去。
说是去上厕所，实际上转了个弯，在距离厕所门口几米处，选了个人流量和摄像头几乎为零的地段，水灵突然一个转身，从手提包中掏出加多宝送的枪，想也不想的“啪”一声，直接朝着其中一名保镖的身上开了一枪，然后一脚抬起，踹中另一名保镖的裤裆。又胡乱朝着那名保镖的身上开了一枪。
【世界频道】彩虹般绚烂：呵～这不奇怪，捻花浅笑就是这么言而无信！当初她还说要做我女朋友呢。
“嗳？～你往哪儿去？”身后，吕静追出了门，伸手攀住水奇的胳膊想将他拉回来，急道：“你刚刚不是在给水灵打电话问她在哪儿嘛？她说什么了？这是要去抓她还是怎么了？”
她一出京城，便被魔窟的眼线找到，那一次，水灵根本没怎么挣扎，便乖乖的跟着魔窟的人回了南城，她继续做她的高级娼妓，每日过着纸醉金迷的生活，可是那之后，水灵便真真正正的放弃了要做回良家女子的想法。爱情？她不配得到，她也不屑得到。
这句话，水灵戛然而止，并没有说出口，因为她看到了高源转过头来，直直的与她对视着，眼睛里若隐若现的仿佛有光，就在一瞬间，水灵突然就明白了高源的骄傲，那不是说说而已，那是属于一个兵王的骄傲，自强不息自力更生奋勇向前，真的不是嘴巴上说说而已。
【私聊频道】浴火凤凰悄悄的对你说：你还不知道吧，也是，今天你军训了一天。肯定不知道，看看官方论坛就知道了。
“嘿，多大点事儿，溧水算什么，巴掌大的地方，你去了南城后，谁还知道你在溧水发生的事？”
看到“在乎着你的在乎”这句话，水灵又翻到帮会面板的资材一页。发现自早上之后，帮会资材突然暴涨，几乎已经完成了收集资材任务数量的十分之九，然而这样的速度单凭一个才不到600人的帮会是绝对不可能完成的，特别是这个帮会的驻地还非常的贫瘠，600人中绝大部分都是死号。
“哦”不知道该说什么才好了的水灵，讪讪的将桌面上的毛爷爷收了回来，想了想，又看着王姿道：“那你安排吧，别累着就行了，把张强和李兰的事办好了，我给你奖金。”
“我说的是事实，怎么就得罪人了？”
梁青林回过身，见着水灵欣喜的迎上去，伸手，准备握住水灵的双肩，却被她后退一步躲了过去，梁青林脸上有着片刻的失望，又是看着水灵那张面无表情的样子。忧伤道：“我想和你解释，所以在这里等了你一天。”
灵语录中，彩虹般绚烂说话的声音没带半分好气，不过想来也是，任谁将自个儿的帮会贬损成这幅德性，怕是都没什么好姿态的。水灵皱了下眉头，反唇相讥，问道：“叫我们来是为了兴师问罪？那如果是这样的话，谁都不愿意来。”
然而这人一进来，就在帮会频道里开始发言，【帮会频道】在乎着你的在乎：帮主，谢谢你。我能问你一个问题嘛？
想通了。水灵笑笑，不再管这事儿。驱着灵灵签这个人物飞回到帮会驻地中，看到三级青龙图腾已经建设完毕了。
在上灵灵签那个号的时候，01号一直停在小雪村的仓库边，这个号里还剩下整整100金，她上易市以100金/天的高价租了个摊位，摊位的名字就叫“天灵灵地灵灵”。
那妇人看神情便很憔悴，并且透着一股病态，浑身还弥漫着浓郁的中药味，不用费劲去猜测，水灵便知道这是谁了，于是不动声色的看着二人进门，她却如老僧坐定般，盘坐在病床上一动不动。
虽然心中不以为然，但水灵并没有将这疑问问出口，那是因为不再期望，所以无所谓纠结，她在苏佩雅的桎梏中，轻轻转动自己的手腕，这苏佩雅身怀六甲，看肚子这么大肯定是快要生了，此时也不好用力跟这女人犟力气，否则闹出点儿什么事，耽误她回京的进度。
按键精灵珞珈传奇挂机脚本
【】【】【】
【】【】【】热血传奇按键精灵战士挂机僵尸洞脚本_百度知道你的位置：
发一个传奇3矿区挂机脚本{战士}，有兴趣的试试
20:00:04 |
来源: 按键精灵资源站
SyntaxVersion=2
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
EnableWindow=
MacroID=7cf4d4fc-36ac-48ae-a85b-e0
Description=postion
[Relative]
SetupOCXFile=
[Attachment]
UEsDBBQAAgAIABakhz+mnQdFKgAAAJYAAAAJABEAc3BsaXQuYm1wVVQNAAdrzd9Oec3fTmvN305z8p3GAAFmQKwBxMxAzAHEjAwSYPEEBmzgPwyB2Pfu3YOzkcWJYWPVCwBQSwMEFAACAAgAtCGIP+A82C0xAAAA1gAAAA4AEQBzcGxpdGJsYWNrLmJtcFVUDQAHVjngToA54E5VOeBOc/K9xgABZkCsAcSsQMwFxIwMEmDxBQzYwH9UBKYUFRQRfCDn3u17MCFMeSz6qWceAFBLAwQUAAIACAC+doQ/pp0HRSoAAACWAAAACwARAHdheWZsYWcuYm1wVVQNAAdbidtOdTngTluJ205z8p3GAAFmQKwBxMxAzAHEjAwSYPEEBmzgPwyB2Pfu3YOzkcWJYWPVCwBQSwMEFAACAAgAdHWeP4rAzNh7AAAAEgQAAAkAEQBrdWxvdS5ibXBVVA0AB/7N/U4g1P1O/s39TnPyFWJhAAMzINYAYkkg5gViRgYJsPgdZgYs4D/1EJgCAmQGGkCTgiuAmwJjM6BrRjYazRqsRiCJ4HAXVrPwG02+uzAZFIUXhhps7sKwEF94ofgRUw+mUjQ2jkDE6WAs+jHDFNWlqFZRJ7zw+wtrmsDnLuLDHmd4UQ0BAFBLAwQUAAIACAAyh58/P3s+sycAAABmAAAACAARAGxpbmUuYm1wVVQNAAf1Pv9OMT//TvU+/05z8k1jgAAzINYAYlYgZgZiRgYJsLgBAzbwHxUx/L93+x4EQfkoCABQSwMEFAACAAgATIefP277WwomAAAAcgAAAAcAEQByb3cuYm1wVVQNAAc+P/9OWT//Tj4//05z8i1igAAzINYAYmYgZgViRgYJsLgNAzbwH4ZA7Hu37xFkw9UDAFBLAwQUAAIACABCcSFAHDzvsikAAAB2AAAABgARAGwxLmJtcFVUDQAHOWkATyxwAE84aQBPc/ItY4AAMyDWAGJWIGYBYkYGCbC4AwM28B8VMfy/BwNQviIMQPkoCABQSwMEFAACAAgA6nIhQKj4yYwoAAAAhgAAAAYAEQByMS5ibXBVVA0AB2lsAE8rcABPaWwAT3PybWOAADMg1gBiVihmZJAAiwcwYAP/URHDf0VFxXv37gFJIvkoCABQSwMEFAACAAgA9HV8PxuG2RlLAAAAPgIAAAkAEQBnaG9zdC5ibXBVVA0ABw6f005KhwBPDp/TTnPytWNiAAMzINYAYl4oZmSQAItzQOVRwX/iEMN/CEAWRQNQdXA5vGwGLNIYhv1Hdx9EApkkrA7dH5gOx2kvIU8MtHlYDcPiX8IIAFBLAwQUAAIACAAsdnw/n8wJjF8AAADeAwAADAARAGppYW5nc2hpLmJtcFVUDQAHkp/TTkqHAE+Sn9NOc/K9x8wABmZArAHEEkDMC8SMYBYDwwqoPCr4T0WEH0AUEGkOMgONi8kmxhxMx5BnDi73EGMUXDuu8CHJHOKdjSeyCIYPSQ4mI3xwmYPfPQQ9i+wSst2DP0kTHz6UIwBQSwECFwsUAAIACAAWpIc/pp0HRSoAAACWAAAACQAJAAAAAAAAACAAgIEAAAAAc3BsaXQuYm1wVVQFAAdrzd9OUEsBAhcLFAACAAgAtCGIP+A82C0xAAAA1gAAAA4ACQAAAAAAAAAgAICBYgAAAHNwbGl0YmxhY2suYm1wVVQFAAdWOeBOUEsBAhcLFAACAAgAvnaEP6adB0UqAAAAlgAAAAsACQAAAAAAAAAgAICB0AAAAHdheWZsYWcuYm1wVVQFAAdbidtOUEsBAhcLFAACAAgAdHWeP4rAzNh7AAAAEgQAAAkACQAAAAAAAAAgAICBNAEAAGt1bG91LmJtcFVUBQAH/s39TlBLAQIXCxQAAgAIADKHnz8/ez6zJwAAAGYAAAAIAAkAAAAAAAAAIACAgecBAABsaW5lLmJtcFVUBQAH9T7/TlBLAQIXCxQAAgAIAEyHnz9u+1sKJgAAAHIAAAAHAAkAAAAAAAAAIACAgUUCAAByb3cuYm1wVVQFAAc+P/9OUEsBAhcLFAACAAgAQnEhQBw877IpAAAAdgAAAAYACQAAAAAAAAAgAICBoQIAAGwxLmJtcFVUBQAHOWkAT1BLAQIXCxQAAgAIAOpyIUCo+MmMKAAAAIYAAAAGAAkAAAAAAAAAIACAgf8CAAByMS5ibXBVVAUAB2lsAE9QSwECFwsUAAIACAD0dXw/G4bZGUsAAAA+AgAACQAJAAAAAAAAACAAgIFcAwAAZ2hvc3QuYm1wVVQFAAcOn9NOUEsBAhcLFAACAAgALHZ8P5/MCYxfAAAA3gMAAAwACQAAAAAAAAAgAICB3wMAAGppYW5nc2hpLmJtcFVUBQAHkp/TTlBLBQYAAAAACgAKAIECAAB5BAAAAAA=
[UIPackage]
UEsDBBQAAgAIAJCjJUBaowS3HAAAAC8AAAAJABEAVUlQYWNrYWdlVVQNAAfoBwZP6AcGT+gHBk9jYmBgYIRiFrf8olxWEGHICOIjgXgmBoYfQBoAUEsBAhcLFAACAAgAkKMlQFqjBLccAAAALwAAAAkACQAAAAAAAAAAAACAAAAAAFVJUGFja2FnZVVUBQAH6AcGT1BLBQYAAAAAAQABAEAAAABUAAAAAAA=
Hwnd = Plugin.Window.Find(0, &传奇3【服务器名】&)
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArrary
MyArray = Split(SRect, &|&)
Ux = Clng(MyArray(0))
Uy = Clng(MyArray(1))
iSavex = -1
iSavey = -1
gLastX = 0
gLastY = 0
gWayIsOK = 0
Dim posArrayX(7)
Dim posArrayY(7)
Dim posWinArrayX(7)
Dim posWinArrayY(7)
posArrayX(0) = 82
posArrayX(1) = 67
posArrayX(2) = 105
posArrayX(3) = 87
posArrayX(4) = 104
posArrayX(5) = 40
posArrayX(6) = 167
posArrayY(0) = 109
posArrayY(1) = 53
posArrayY(2) = 70
posArrayY(3) = 83
posArrayY(4) = 111
posArrayY(5) = 26
posArrayY(6) = 28
// win post
posWinArrayX(0) = 841
posWinArrayX(1) = 820
posWinArrayX(2) = 877
posWinArrayX(3) = 850
posWinArrayX(4) = 875
posWinArrayX(5) = 779
posWinArrayX(6) = 970
posWinArrayY(0) = 183
posWinArrayY(1) = 126
posWinArrayY(2) = 143
posWinArrayY(3) = 156
posWinArrayY(4) = 184
posWinArrayY(5) = 99
posWinArrayY(6) = 101
gSnMax = 7
gGetPosX = 0
gGetPoxY = 0
//intBeginX=100
intBeginX=20
intBeginY=20
intEndX=850
intEndY=520
LastColLeft = &00FF00&
LastColRight = &00FF00&
LastDownColLeft = &00FF00&
LastDownColRight = &00FF00&
//Rem TEST
//Call FindTest()
//MessageBox &Next&
//Goto TEST
//Call FindDrop()
//Call FindDropAll()
Call FindEight()
MoveToS Ux + 511, Uy + 209
LeftDoubleClickS 1
Rem Begin_fire
Call FindPostion()
//MessageBox gGetPosX & & & & gGetPosY & & & & gSn
If gGetPosX = posArrayX(gSn) and gGetPosY = posArrayY(gSn) Then
& & gSn = gSn + 1
& & If gSn = gSnMax Then
& && &&&gSn = 0
& & End If
KeyPressS &T&, 1
Delay 1000
MoveToS Ux+posWinArrayX(gSn), Uy+posWinArrayY(gSn)
LeftDoubleClickS 1
KeyPressS &T&, 1
Call FireInSnake()
Call FindPostion()
If gGetPosX = posArrayX(gSn) and gGetPosY = posArrayY(gSn) Then
& & gSn = gSn + 1
& & If gSn = gSnMax Then
& && &&&gSn = 0
& & End If
Goto Begin_fire
//Call KillTarget()
Sub FindPostion()
& & num1=&0&
& & num2=&0&
& & num3=&1&
& & num4=&0&
& & num5=&1&
& & num6=&1&
& & num7=&0&
& & num8=&1&
& & num9=&1&
& & num0=&1&
& & FindPic Ux+907,Uy+180,Ux+978,Uy+191,&Attachment:\splitblack.bmp&,1,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&//MoveToS intX, intY
& && &&&//MessageBox GetPixelColor(intX,intY)
& && &&&//MessageBox intX & & OK & & intY
& && &&&Dim getNumPos(6)
& && &&&getNumPos(0) = &&
& && &&&getNumPos(1) = &&
& && &&&getNumPos(2) = &&
& && &&&getNumPos(3) = &&
& && &&&getNumPos(4) = &&
& && &&&getNumPos(5) = &&
& && &&&For iPosY = 0 To 4
& && && && &For iPosX = 0 To 4
& && && && && & If GetPixelColor((intX - 18 + iPosX), (intY + iPosY)) = &DEDBDE& Then
& && && && && && &&&getNumPos(0)=getNumPos(0)&&1&
& && && && && & Else
& && && && && && &&&getNumPos(0)=getNumPos(0)&&0&
& && && && && & End If
& && && && && & If GetPixelColor((intX - 12 + iPosX), (intY + iPosY)) = &DEDBDE& Then
& && && && && && &&&getNumPos(1)=getNumPos(1)&&1&
& && && && && & Else
& && && && && && &&&getNumPos(1)=getNumPos(1)&&0&
& && && && && & End If
& && && && && & If GetPixelColor((intX - 6 + iPosX), (intY + iPosY)) = &DEDBDE& Then
& && && && && && &&&getNumPos(2)=getNumPos(2)&&1&
& && && && && & Else
& && && && && && &&&getNumPos(2)=getNumPos(2)&&0&
& && && && && & End If
& && && && && & If GetPixelColor((intX + 6 + iPosX), (intY + iPosY)) = &DEDBDE& Then
& && && && && && &&&getNumPos(3)=getNumPos(3)&&1&
& && && && && & Else
& && && && && && &&&getNumPos(3)=getNumPos(3)&&0&
& && && && && & End If
& && && && && & If GetPixelColor((intX + 12 + iPosX), (intY + iPosY)) = &DEDBDE& Then
& && && && && && &&&getNumPos(4)=getNumPos(4)&&1&
& && && && && & Else
& && && && && && &&&getNumPos(4)=getNumPos(4)&&0&
& && && && && & End If
& && && && && & If GetPixelColor((intX + 18 + iPosX), (intY + iPosY)) = &DEDBDE& Then
& && && && && && &&&getNumPos(5)=getNumPos(5)&&1&
& && && && && & Else
& && && && && && &&&getNumPos(5)=getNumPos(5)&&0&
& && && && && & End If
& && && && &Next
& && &&&Next
& && &&&gStrNumLeft = &&
& && &&&gStrNumRight = &&
& && &&&For i = 0 To 5
& && && && &If getNumPos(i)=num0
& && && && && & getNumPos(i)=&0&
& && && && &ElseIf getNumPos(i)=num1
& && && && && & getNumPos(i)=&1&
& && && && &ElseIf getNumPos(i)=num2
& && && && && & getNumPos(i)=&2&
& && && && &ElseIf getNumPos(i)=num3
& && && && && & getNumPos(i)=&3&
& && && && &ElseIf getNumPos(i)=num4
& && && && && & getNumPos(i)=&4&
& && && && &ElseIf getNumPos(i)=num5
& && && && && & getNumPos(i)=&5&
& && && && &ElseIf getNumPos(i)=num6
& && && && && & getNumPos(i)=&6&
& && && && &ElseIf getNumPos(i)=num7
& && && && && & getNumPos(i)=&7&
& && && && &ElseIf getNumPos(i)=num8
& && && && && & getNumPos(i)=&8&
& && && && &ElseIf getNumPos(i)=num9
& && && && && & getNumPos(i)=&9&
& && && && &Else
& && && && && & getNumPos(i)=&&
& && && && &End If
& && && && &If i & 3 Then
& && && && && & gStrNumLeft = gStrNumLeft & getNumPos(i)
& && && && &Else
& && && && && & gStrNumRight = gStrNumRight & getNumPos(i)
& && && && &End If
& && &&&Next
& && &&&//MessageBox gStrNumLeft
& && &&&//MessageBox gStrNumRight
& && &&&gGetPosX = CLng(gStrNumLeft)
& && &&&gGetPosY = CLng(gStrNumRight)
& && &&&//MessageBox &ERROR&
& && &&&gGetPosX = 0
& && &&&gGetPosY = 0
& & End If
Sub FindDrop()
& & & & //FindCenterColor Ux + 10, Uy + 10, Ux + 840, Uy + 550, &DEDBDE&, intBookX, intBookY
& & & & //FindColorEx Ux+10,Uy+10,Ux+860,Uy+560,&DEDBDE&,0,0.9,intBookX, intBookY
& & & & FindPic Ux+10,Uy+10,Ux+860,Uy+560,&Attachment:\line.bmp&,0.9,intBookX,intBookY
& & & & If intBookX & 0 And intBookY & 0 Then
& & & & & & & & //MessageBox intBookX & & & & intBookY
& & & & & & //If GetPixelColor(intBookX, intBookY-1) = &212021& or GetPixelColor(intBookX - 1, intBookY) = &212021& Then
& && &&&& & & & MoveToS intBookX+18, intBookY+5
& && &&&& & & & Delay 50
& && &&&& & & & //RightClick 1
& && &&&& & & & RightClickS 2
& && &&&& & & & Delay 1000
& && &&&& & & & LeftClickS 1
& && &&&& & & & Delay 100
& & & & & & //End If
& & & & End If
& & & & FindPic Ux+10,Uy+10,Ux+860,Uy+560,&Attachment:\row.bmp&,0.9,intBookX,intBookY
& & & & If intBookX & 0 And intBookY & 0 Then
& & & & & & & & //MessageBox intBookX & & & & intBookY
& & & & & & //If GetPixelColor(intBookX, intBookY-1) = &212021& or GetPixelColor(intBookX - 1, intBookY) = &212021& Then
& && &&&& & & & MoveToS intBookX+18, intBookY+5
& && &&&& & & & Delay 50
& && &&&& & & & //RightClick 1
& && &&&& & & & RightClickS 2
& && &&&& & & & Delay 1000
& && &&&& & & & LeftClickS 1
& && &&&& & & & Delay 100
& & & & & & //End If
& & & & End If
Sub FindDropAll()
& & & & //FindCenterColor Ux + 10, Uy + 10, Ux + 840, Uy + 550, &DEDBDE&, intBookX, intBookY
& & & & FindColorEx Ux+10,Uy+10,Ux+860,Uy+230,&DEDBDE&,0,0.9,intBookX, intBookY
& & & & If intBookX & 0 And intBookY & 0 Then
& & & & & & If GetPixelColor(intBookX, intBookY-1) = &212021& or GetPixelColor(intBookX - 1, intBookY) = &212021& Then
& && &&&& & & & MoveToS intBookX+18, intBookY+5
& && &&&& & & & Delay 50
& && &&&& & & & //RightClick 1
& && &&&& & & & RightClickS 1
& && &&&& & & & Delay 1000
& && &&&& & & & LeftClickS 1
& && &&&& & & & Delay 50
& & & & & & End If
& & & & End If
& & & & FindColorEx Ux+10,Uy+231,Ux+1023,Uy+560,&DEDBDE&,0,0.9,intBookX, intBookY
& & & & If intBookX & 0 And intBookY & 0 Then
& & & & & & If GetPixelColor(intBookX, intBookY-1) = &212021& or GetPixelColor(intBookX - 1, intBookY) = &212021& Then
& && &&&& & & & MoveToS intBookX+18, intBookY+5
& && &&&& & & & Delay 50
& && &&&& & & & //RightClick 1
& && &&&& & & & RightClickS 1
& && &&&& & & & Delay 1000
& && &&&& & & & LeftClickS 1
& && &&&& & & & Delay 50
& & & & & & End If
& & & & End If
Sub KillTarget()
& & & & i = 1
& & While i= 1
& && &&&FindPic Ux + intBeginX, Uy + intBeginY, Ux + intEndX, Uy + intEndY,&Attachment:\kulou.bmp&,0.9,intX,intY
& && &&&If intX & 0 And intY & 0 Then
& && && && &If iSavex = intX And iSavey = intY Then
& && && && && & Delay 10
& && && && &Else
& && && && && & IfColor iSavex, iSavey, &FFFFFF&, 0 Then
& && && && && && &&&Delay 100
& && && && && & End If
& && && && &End If
& && && && &iSavex = intX
& && && && &iSavey = intY
& && && && &//MoveToS intX+21, intY+55
& && && && &//MoveToS intX+22, intY+22&&在开头
& && && && &MoveToS intX+22, intY+24
& && && && &Delay 20
& && && && &LeftClickS 1
& && && && &For 10
& && && && && & Delay 1000
& && && && && & // 15,551
& && && && && & If GetPixelColor(Ux + 15, Uy + 551) = &0000DE& Then
& && && && && && &&&//MessageBox &OK&
& && && && && && &&&Exit For
& && && && && & End If
& && && && &Next
& & & & & & & &
& & & & & & & & & & & &
& && && && &Call FindTest()
& && && && &//Call FindDropAll()
& && && && &Call FindEight()
& && && && &MoveToS Ux + 510, Uy + 310
& && && && &Delay 100
& && &&&Else
& && && && &i = 0
& && &&&End If
& & //MoveToS Ux + 510, Uy + 310
& & //Delay 500
& & Call FindTest()
& & //Call FindDropAll()
& & Call FindEight()
& & //Call Move_always()
Sub FindEight()
& & & & For 8
& & & & & & & & FindColorEx Ux + intBeginX, Uy + intBeginY, Ux + intEndX, Uy + intEndY, &DEDBDE&, 0, 0.9, intCheckX, intCheckY
& & & & & & & & If intCheckX & 0 And intCheckY & 0 Then
& & & & & & & & & & & & Call FindTest()
& & & & & & & & Else
& & & & & & & & & & & & Exit For
& & & & & & & & End If
& & & & Next
Sub FindTest()
& & & & FindPic Ux+10,Uy+10,Ux+860,Uy+560,&Attachment:\l1.bmp&,0.9,intBookX,intBookY
& & & & If intBookX & 0 And intBookY & 0 Then
& && &&&MoveToS intBookX+6, intBookY+12
& && &&&Delay 50
& && &&&//RightClick 1
& && &&&If (intBookX & (Ux + 411) and intBookX & (Ux + 591)) and (intBookY & (Uy + 241) and intBookY & (Uy + 357)) Then
& && &&&& & & & LeftClickS 2
& & & & & & & & Else
& & & & & & & & & & & & RightClickS 1
& && &&&End If
& && &&&Delay 1000
& & & & Else
& && &&&FindPic Ux+10,Uy+10,Ux+860,Uy+560,&Attachment:\r1.bmp&,0.9,intBookX,intBookY
& && &&&If intBookX & 0 And intBookY & 0 Then
& && && && &MoveToS intBookX+6, intBookY+12
& && && && &Delay 50
& && && && &If (intBookX & (Ux + 411) and intBookX & (Ux + 591)) and (intBookY & (Uy + 241) and intBookY & (Uy + 357)) Then
& && && && && & LeftClickS 2
& && && && &Else
& && && && && & RightClickS 1
& && && && &End If
& && && && &Delay 1000
& && && && &//End If
& && &&&End If
& & & & End If
Sub FireInCy()
& & For 900
& && &&&MoveToS Ux + 511, Uy + 209
& && &&&Delay 50
& && &&&FindPic Ux + intBeginX, Uy + intBeginY, Ux + intEndX, Uy + intEndY, &Attachment:\kulou.bmp&, 0.9, intCheckX, intCheckY
& && &&&If intCheckX & 0 And intCheckY & 0 Then
& && && && &MoveToS Ux + 511, Uy + 209
& && && && &Delay 200
& && && && &LeftDoubleClickS 1
& && && && &Call KillTarget()
& && && && &Call FindPostion()
& && && && &If gGetPosX = posArrayX(gSn) and gGetPosY = posArrayY(gSn) Then
& && && && && & gSn = gSn + 1
& && && && && & If gSn = gSnMax Then
& && && && && && &&&gSn = 0
& && && && && & End If
& && && && &End If
& && && && &Exit For
& && &&&End If
& && &&&TmpColLeft = GetPixelColor(Ux + 460, Uy + 276)
& && &&&TmpColRight = GetPixelColor(Ux + 558, Uy + 276)
& && &&&TmpDownColLeft = GetPixelColor(Ux + 460, Uy + 320)
& && &&&TmpDownColRight = GetPixelColor(Ux + 558, Uy + 320)
& && &&&If LastColLeft = TmpColLeft and LastColRight = TmpColRight and TmpDownColLeft = LastDownColLeft and TmpDownColRight = LastDownColRight Then
& && && && &Exit For
& && &&&Else
& && && && &LastColLeft = TmpColLeft
& && && && &LastColRight = TmpColRight
& && && && &LastDownColLeft = TmpDownColLeft
& && && && &LastDownColRight = TmpDownColRight
& && && && &Delay 2000
& && &&&End If
Sub FireInSnake()
& & For 900
& && &&&MoveToS Ux + 511, Uy + 209
& && &&&Delay 50
& && &&&FindPic Ux + intBeginX, Uy + intBeginY, Ux + intEndX, Uy + intEndY, &Attachment:\jiangshi.bmp&, 0.9, intCheckX, intCheckY
& && &&&If intCheckX & 0 And intCheckY & 0 Then
& && && && &MoveToS Ux + 511, Uy + 209
& && && && &Delay 50
& && && && &LeftDoubleClickS 1
& && && && &Delay 100
& && && && &Call KillSnake()
& && && && &Call FindPostion()
& && && && &If gGetPosX = posArrayX(gSn) and gGetPosY = posArrayY(gSn) Then
& && && && && & gSn = gSn + 1
& && && && && & If gSn = gSnMax Then
& && && && && && &&&gSn = 0
& && && && && & End If
& && && && &End If
& && && && &Exit For
& && &&&End If
& && &&&FindPic Ux + intBeginX, Uy + intBeginY, Ux + intEndX, Uy + intEndY, &Attachment:\ghost.bmp&, 0.9, intCheckX, intCheckY
& && &&&If intCheckX & 0 And intCheckY & 0 Then
& && && && &MoveToS Ux + 511, Uy + 209
& && && && &Delay 50
& && && && &LeftDoubleClickS 1
& && && && &Delay 100
& && && && &Call KillSnake()
& && && && &Call FindPostion()
& && && && &If gGetPosX = posArrayX(gSn) and gGetPosY = posArrayY(gSn) Then
& && && && && & gSn = gSn + 1
& && && && && & If gSn = gSnMax Then
& && && && && && &&&gSn = 0
& && && && && & End If
& && && && &End If
& && && && &Exit For
& && &&&End If
& && &&&TmpColLeft = GetPixelColor(Ux + 460, Uy + 276)
& && &&&TmpColRight = GetPixelColor(Ux + 558, Uy + 276)
& && &&&TmpDownColLeft = GetPixelColor(Ux + 460, Uy + 320)
& && &&&TmpDownColRight = GetPixelColor(Ux + 558, Uy + 320)
& && &&&If LastColLeft = TmpColLeft and LastColRight = TmpColRight and TmpDownColLeft = LastDownColLeft and TmpDownColRight = LastDownColRight Then
& && && && &Exit For
& && &&&Else
& && && && &LastColLeft = TmpColLeft
& && && && &LastColRight = TmpColRight
& && && && &LastDownColLeft = TmpDownColLeft
& && && && &LastDownColRight = TmpDownColRight
& && && && &Delay 2000
& && &&&End If
Sub KillSnake()
& & & & i = 1
& & While i= 1
& && &&&FindPic Ux + intBeginX, Uy + intBeginY, Ux + intEndX, Uy + intEndY,&Attachment:\jiangshi.bmp&,0.9,intX,intY
& && &&&If intX & 0 And intY & 0 Then
& && && && &If iSavex = intX And iSavey = intY Then
& && && && && & Delay 10
& && && && &Else
& && && && && & IfColor iSavex, iSavey, &FFFFFF&, 0 Then
& && && && && && &&&Delay 100
& && && && && & End If
& && && && &End If
& && && && &iSavex = intX
& && && && &iSavey = intY
& && && && &//MoveToS intX+21, intY+55
& && && && &//MoveToS intX+22, intY+22&&在开头
& && && && &MoveToS intX-1, intY+23
& && && && &Delay 20
& && && && &LeftClickS 1
& && && && &For 5
& && && && && & Delay 1000
& && && && && & // 15,551
& && && && && & If GetPixelColor(Ux + 15, Uy + 551) = &0000DE& Then
& && && && && && &&&//MessageBox &OK&
& && && && && && &&&Exit For
& && && && && & End If
& && && && &Next
& && && && &Call FindTest()
& && && && &Call FindEight()
& && && && &MoveToS Ux + 510, Uy + 300
& && && && &Delay 100
& && &&&//Else
& && &&&//& & i = 0
& && &&&End If
& && &&&FindPic Ux + intBeginX, Uy + intBeginY, Ux + intEndX, Uy + intEndY,&Attachment:\ghost.bmp&,0.9,intX,intY
& && &&&If intX & 0 And intY & 0 Then
& && && && &If iSavex = intX And iSavey = intY Then
& && && && && & Delay 10
& && && && &Else
& && && && && & IfColor iSavex, iSavey, &FFFFFF&, 0 Then
& && && && && && &&&Delay 100
& && && && && & End If
& && && && &End If
& && && && &iSavex = intX
& && && && &iSavey = intY
& && && && &//MoveToS intX+21, intY+55
& && && && &//MoveToS intX+22, intY+22&&在开头
& && && && &MoveToS intX-1, intY+23
& && && && &Delay 20
& && && && &LeftClickS 1
& && && && &For 5
& && && && && & Delay 1000
& && && && && & // 15,551
& && && && && & If GetPixelColor(Ux + 15, Uy + 551) = &0000DE& Then
& && && && && && &&&//MessageBox &OK&
& && && && && && &&&Exit For
& && && && && & End If
& && && && &Next
& && && && &Call FindTest()
& && && && &Call FindEight()
& && && && &MoveToS Ux + 510, Uy + 300
& && && && &Delay 100
& && &&&Else
& && && && &i = 0
& && &&&End If
& & Call FindTest()
& & Call FindEight()}