求骑士1299FS的挂机脚本

kay3838 发表于 2008-7-21 12:18:23

RT~~~~~

天剑风小流 发表于 2008-7-22 20:00:21

无聊不？
知道世界上有个叫按键精灵的吗？

hytw 发表于 2008-7-23 11:42:26

够全了吧,直截导入按键就OK

Rem ======= 【主程序部分】=======
//===============================
//使用说明：
//技能设在F5里
//排列: 1 480血 1 960血 3上限 4防 5红 6蓝 7解疾病 8解诅咒
//自动接受组队,自动吃红蓝,
//自动加上限和防,自动给队友伤加血
//开近身箱子

//===============================
Rem 【主程序开始】
VBS k=0
Rem 【开始】
KeyPress 116 1
Gosub 自动接受组队
Gosub 自动吃红蓝
Gosub Self
Gosub 全捡
Gosub 打坐
Gosub +++
Goto 【开始】
EndScript
Rem 【主程序结束】
//===============================
Rem ======= 【子程序部分】=======
Rem 〖子程序〗
//===============================
Sub 自动接受组队
IfColor 405 307 9cdff7 2
   IfColor 349 443 6bcff7 2
         IfColor 375 459 9cdfef 2
            IfColor 389 436 b5ebf7 2
               MoveTo 389 436
               Delay 350
               LeftDown 1
               Delay 500
               LeftUp 1
               Delay 350
            EndIf
         EndIf
   EndIf
EndIf
IfColor 626 143 c6cfe7 2
   IfColor 375 525 bdcfe7 2
         IfColor 681 548 bdcfe7 2
            IfColor 663 156 21344a 2
               MoveTo 663 156
               Delay 350
               LeftDown 1
               Delay 500
               LeftUp 1
               Delay 350
            EndIf
         EndIf
   EndIf
EndIf
Return 自动接受组队
//===============================
Sub +480MP
IfColor 412 42 9c 2
   Delay 350
   KeyPress 49 1
   Delay 1800
   KeyPress 67 1
   Delay 1000
EndIf
IfColor 412 80 9c 2
   Delay 350
   KeyPress 49 1
   Delay 1800
   KeyPress 67 1
   Delay 1000
EndIf
Return +480MP
//===============================
Sub +960MP
IfColor 412 42 9c 2
   Delay 350
   KeyPress 50 1
   Delay 1800
   KeyPress 67 1
   Delay 1000
EndIf
IfColor 412 80 9c 2
   Delay 350
   KeyPress 50 1
   Delay 1800
   KeyPress 67 1
   Delay 1000
EndIf
Return +960MP
//===============================
Sub 打坐
IfColor 978 748 0 0
   VBS k=0
Else
   VBS k=k+1
   If k>3
         VBS k=0
         KeyDown 67 1
         Delay 400
         KeyUp 67 1
         Delay 100
   EndIf
EndIf
Return 打坐
//===============================
Sub 自动吃红蓝
IfColor 150 42 1031 2
   IfColor 125 42 1031 2
         KeyPress 53 1
   EndIf
EndIf
IfColor 125 58 1031 2
   IfColor 80 58 1031 2
         IfColor 150 58 1031 2
            KeyPress 54 1
         EndIf
   EndIf
EndIf
Return 自动吃红蓝
//===============================
Sub Self
IfColor 230 42 1031 2
   KeyPress 90 1
   Delay 500
   KeyPress 49 1
   Delay 1500
EndIf
Return Self
//===============================
Sub +++
Rem D1
IfColor 910 115 00009c 2
   IfColor 990 115 00009c 2
         Goto D2
   Else
         IfColor 990 115 0 0
            MoveTo 950 120
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +960MP
            Goto D2
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D2
EndIf
Rem D2
IfColor 910 160 00009c 2
   IfColor 990 160 00009c 2
         Goto D3
   Else
         IfColor 990 160 0 0
            MoveTo 950 165
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +960MP
            Goto D3
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D3
EndIf
Rem D3
IfColor 910 205 00009c 2
   IfColor 990 205 00009c 2
         Goto D4
   Else
         IfColor 990 205 0 0
            MoveTo 950 210
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +960MP
            Goto D4
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D4
EndIf
Rem D4
IfColor 910 250 00009c 2
   IfColor 990 250 00009c 2
         Goto D5
   Else
         IfColor 990 250 0 0
            MoveTo 950 255
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +960MP
            Goto D5
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D5
EndIf
Rem D5
IfColor 910 297 00009c 2
   IfColor 990 297 00009c 2
         Goto D6
   Else
         IfColor 990 295 0 0
            MoveTo 950 300
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +960MP
            Goto D6
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D6
EndIf
Rem D6
IfColor 910 340 00009c 2
   IfColor 990 340 00009c 2
         Goto D7
   Else
         IfColor 990 340 0 0
            MoveTo 950 345
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +960MP
            Goto D7
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D7
EndIf
Rem D7
IfColor 910 385 00009c 2
   IfColor 990 385 00009c 2
         Goto D8
   Else
         IfColor 990 385 0 0
            MoveTo 950 390
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +960MP
            Goto D8
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D8
EndIf
Rem D8
IfColor 910 430 00009c 2
   IfColor 990 430 00009c 2
         Goto D1X
   Else
         IfColor 990 430 0 0
            MoveTo 950 435
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +960MP
            Goto D1X
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D1X
EndIf
Rem D1X
IfColor 910 115 00009c 2
   IfColor 1008 115 00009c 2
         Goto D2X
   Else
         IfColor 1008 115 0 0
            MoveTo 950 120
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +480MP
            Goto D2X
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D2X
EndIf
Rem D2X
IfColor 910 160 00009c 2
   IfColor 1008 160 00009c 2
         Goto D3X
   Else
         IfColor 1008 160 0 0
            MoveTo 950 165
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +480MP
            Goto D3X
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D3X
EndIf
Rem D3X
IfColor 910 205 00009c 2
   IfColor 1008 205 00009c 2
         Goto D4X
   Else
         IfColor 1008 205 0 0
            MoveTo 950 210
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +480MP
            Goto D4X
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D4X
EndIf
Rem D4X
IfColor 910 250 00009c 2
   IfColor 1008 250 00009c 2
         Goto D5X
   Else
         IfColor 1008 250 0 0
            MoveTo 950 255
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +480MP
            Goto D5X
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D5X
EndIf
Rem D5X
IfColor 910 297 00009c 2
   IfColor 1008 297 00009c 2
         Goto D6X
   Else
         IfColor 1008 295 0 0
            MoveTo 950 300
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +480MP
            Goto D6X
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D6X
EndIf
Rem D6X
IfColor 910 340 00009c 2
   IfColor 1008 340 00009c 2
         Goto D7X
   Else
         IfColor 1008 340 0 0
            MoveTo 950 345
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +480MP
            Goto D7X
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D7X
EndIf
Rem D7X
IfColor 910 385 00009c 2
   IfColor 1008 385 00009c 2
         Goto D8X
   Else
         IfColor 1008 385 0 0
            MoveTo 950 390
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +480MP
            Goto D8X
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto D8X
EndIf
Rem D8X
IfColor 910 430 00009c 2
   IfColor 1008 430 00009c 2
         Goto 【开始】
   Else
         IfColor 1008 430 0 0
            MoveTo 950 435
            Delay 300
            LeftClick 3
            Delay 300
            Gosub +480MP
            Goto 【开始】
         EndIf
   EndIf
Else
   Gosub 解黄毒
   Gosub 解绿毒
   Gosub 解诅咒
   Goto 【开始】
EndIf
Return +++
//===============================
Sub 解黄毒
VBSCall FindPic(900,100,965,450,"KO2_H.bmp",0.9,x,y)
If x>=900 and y>=100
   MoveTo x y
   MoveR 50 10
   Delay 300
   LeftClick 3
   Delay 300
   KeyPress 55 1
   Delay 1800
   KeyPress 49 1
   Delay 1800
   KeyPress 67 1
   Delay 1000
EndIf
Return 解黄毒
//===============================
Sub 解绿毒
VBSCall FindPic(900,100,965,450,"KO2_G.bmp",0.9,x,y)
If x>=900 and y>=100
   MoveTo x y
   MoveR 50 10
   Delay 300
   LeftClick 3
   Delay 300
   KeyPress 56 1
   Delay 1800
   KeyPress 49 1
   Delay 1800
   KeyPress 67 1
   Delay 1000
EndIf
Return 解绿毒
//===============================
Sub 解诅咒
VBSCall FindPic(900,100,965,450,"KO2_Z.bmp",0.9,x,y)
If x>=900 and y>=100
   MoveTo x y
   MoveR 50 10
   Delay 300
   LeftClick 3
   Delay 300
   KeyPress 56 1
   Delay 1800
   KeyPress 49 1
   Delay 1800
   KeyPress 67 1
   Delay 1000
EndIf
Return 解诅咒
//===============================
Sub 全捡
MoveTo 421 583
KeyPress 32 1
KeyPress 103 1
KeyPress 104 1
KeyPress 100 1
KeyPress 101 1
KeyPress 97 1
KeyPress 98 1
Return 全捡
//===============================

hytw 发表于 2008-7-23 11:43:57

天剑风小流 发表于 2008-7-23 12:31:13

这是祭祀的

hytw 发表于 2008-7-25 08:15:35

看错法师的来了

Script]
Rem ======= 【主程序部分】=======
//===============================
//使用说明:
//技能设在F5里面,7红8蓝,其它设技能。
//1 2 3为攻击技能。
//4 5 为群技能
//武器红修理武器

//===============================
Rem 【主程序开始】
VBS k=0
Rem 【开始】
KeyPress 116 1
Gosub 自动接受组队
Gosub 回蓝
Gosub 自动吃红蓝
Gosub 修理武器
Gosub ZG
Gosub Kill
Goto 【开始】
//===============================
EndScript
Rem 【主程序结束】
//===============================
Rem ======= 【子程序部分】=======
Rem 〖子程序〗
//===============================
Sub 修理武器
VBS k=k+1
If k>300
   VBS k=0
   Gosub Left&Right
EndIf
Return 修理武器
//===============================
Sub Left&Right
Delay 2000
MoveTo 882 177
Delay 350
LeftDown 1
Delay 500
LeftUp 1
Delay 350
MoveTo 984 179
Delay 350
LeftDown 1
Delay 500
LeftUp 1
Delay 350
Return Left&Right
//===============================
Sub 修理
IfColor 864 185 0 1
   IfColor 871 191 0 1
         IfColor 895 162 0 1
            Delay 350
            MoveTo 882 177
            Delay 350
            LeftDown 1
            Delay 500
            LeftUp 1
            Delay 350
         EndIf
   EndIf
EndIf
Return 修理
//===============================
Sub 自动接受组队
IfColor 405 307 9cdff7 2
   IfColor 349 443 6bcff7 2
         IfColor 375 459 9cdfef 2
            IfColor 389 436 b5ebf7 2
               Delay 350
               MoveTo 389 436
               Delay 350
               LeftDown 1
               Delay 500
               LeftUp 1
               Delay 350
            EndIf
         EndIf
   EndIf
EndIf
IfColor 626 143 c6cfe7 2
   IfColor 375 525 bdcfe7 2
         IfColor 681 548 bdcfe7 2
            IfColor 663 156 21344a 2
               MoveTo 663 156
               Delay 350
               LeftDown 1
               Delay 500
               LeftUp 1
               Delay 350
            EndIf
         EndIf
   EndIf
EndIf
Return 自动接受组队
//===============================
Sub 自动吃红蓝
IfColor 150 42 1031 2
   IfColor 145 42 1031 2
         KeyPress 55 1
   EndIf
EndIf
IfColor 150 58 1031 2
   IfColor 80 58 1031 2
         IfColor 90 58 1031 2
            KeyPress 56 1
         EndIf
   EndIf
EndIf
Return 自动吃红蓝
//===============================
Sub 回蓝
IfColor 50 58 1031 2
   IfColor 35 58 1031 2
         KeyDown 67 1
         Gosub 自动吃红蓝
         Gosub 自动接受组队
         KeyUp 67 1
         Delay 180000
   EndIf
EndIf
Return 回蓝
//===============================
Sub ZG
KeyDown 90 1
Gosub 自动接受组队
Gosub 自动吃红蓝
KeyUp 90 1
Return ZG
//===============================
Sub Kill
IfColor 411 42 9c 2
   Rem K1
   Gosub ZG
   KeyPress 49 1
   Delay 350
   KeyPress 50 1
   Delay 350
   KeyPress 51 1
   Gosub 自动吃红蓝
   IfColor 411 42 9c 2
         Goto K1
   Else
         Goto 【开始】
   EndIf
EndIf
IfColor 411 80 9c 2
   Rem K2
   Gosub ZG
   Delay 350
   KeyPress 49 1
   Delay 350
   KeyPress 50 1
   Delay 350
   KeyPress 51 1
   Gosub 自动吃红蓝
   IfColor 411 80 9c 2
         Goto K2
   Else
         Goto 【开始】
   EndIf
EndIf
Return Kill
//===============================

页: [1]

骑士爱好者's Archiver