蒸气幻想简单挂机脚本

脚本说明:
1.请在 Windows XP样式  屏幕分辨率1024*768(32色位) 游戏分辨率800*600  窗口模式画面: 低配置模式下运行
2.脚本运行后会弹出一个对话框    请输入数字0(抢怪)  数字1(不抢怪)
3.可自修改辅助技能间隔时间和按键  还有补药键 (按键必需是硬件模拟模式)
4.攻击技能放在数字1,2,3键位上默认每攻击一次发动一个技能
5.判断阻碍物有阻碍物跳回重新搜怪

[General]
Description=蒸气幻想简单挂机版
BeginHotkey=120
BeginHotkeyMod=0
RunOnce=1
Enable=1
[Repeat]
Type=1
Number=11545568
[CallBack]
OnSetup=
[Comment]
Content=

[Script]
dim a,s,k,t1,t2,t3,color,x,y
Rem 挂机模式
VBSCall a=InputBox("请输入挂机抢怪模式（数字）０为抢怪１为不抢")
s=Len(a)
If s=1
If a="0"
      a=347
ElseIf a="1"
      a=512
Else
      MessageBox 错误：请重新输入  ０或１
      Goto 挂机模式
EndIf
Else
MessageBox 错误：小样  耍我啊？
Goto 挂机模式
EndIf
t1=now:t2=now:t3=now
k=49
//***************〖开始挂机〗*****************
Rem 找怪
Gosub 辅助技能
KeyPressH 9 1
Delay 100
Rem 判断怪血条
VBSCall color=GetPixelColor(a,77)
If color="383BEE" or color="000293"
Delay 100
//使用攻击技能  技能放在1,2,3
KeyPressH k 1
k=k+1
If k>51
      k=49
EndIf
Rem 普通攻击
KeyPressH 192 5
Gosub 自动用药
Gosub 判断障碍物
Rem 判断怪死亡
IfColor 347 75 0004D3 1
      Delay 2000
      KeyPressH 192 1
      Rem 判断捡物框
      IfColor 675 212 6fe1f9 0
         KeyPressH 192 1
         Goto 判断捡物框
      EndIf
      Goto 找怪
EndIf
Goto 普通攻击
EndIf
Goto 找怪
//**************〖子程序〗**************
Sub 辅助技能
//120为120秒  可自己修改时间按键可自己修改
If DateDiff("s",t1,now)>=120
      //辅助技能1 自己修改
      t1=now
EndIf
If DateDiff("s",t2,now)>=120
      //辅助技能2 自己修改
      t2=now
EndIf
If DateDiff("s",t3,now)>=120
      //辅助技能3 自己修改
      t3=now
EndIf
Return 辅助技能
Sub 自动用药
Rem ＨＰ
IfColor 154 73 2d0995 1
      IfColor 154 76 3710c1 1
         //加ＨＰ命令  自己修改
      EndIf
EndIf
Rem ＭＰ
IfColor 152 90 96420c 1
      IfColor 152 92 b44d0b 1
         //加ＭＰ命令  自己修改
      EndIf
EndIf
Rem ＳＰ
IfColor 143 104 a8ead7 1
      IfColor 143 106 93dcc8 1
         //加ＳＰ命令  自己修改
      EndIf
EndIf
Return 自动用药
Sub 判断障碍物
Delay 100
VBSCall FindPic(330,155,440,310,"1.bmp",0.9,x,y)
If x>=330 and y>=155
      Goto 找怪
EndIf
Return 判断障碍物