- UID
- 468
- 帖子
- 149
- 积分
- 97
- 紫菀
- 0 朵
- 花瓣
- 171 片
- 花蕊
- 22 朵
- 野草莓
- 0 个
- 蒲公英
- 0 朵
- 社区等级
- 8 级
- 在线时间
- 21 小时
- 注册时间
- 2006-9-4
- 登录状态
-
当前离线
|
楼主
发表于 2006-11-9 21:07
| 只看该作者
蒸气幻想简单挂机脚本
脚本说明:
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("请输入挂机抢怪模式(数字) 0为抢怪 1为不抢")
s=Len(a)
If s=1
If a="0"
a=347
ElseIf a="1"
a=512
Else
MessageBox 错误:请重新输入 0或1
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 HP
IfColor 154 73 2d0995 1
IfColor 154 76 3710c1 1
//加HP命令 自己修改
EndIf
EndIf
Rem MP
IfColor 152 90 96420c 1
IfColor 152 92 b44d0b 1
//加MP命令 自己修改
EndIf
EndIf
Rem SP
IfColor 143 104 a8ead7 1
IfColor 143 106 93dcc8 1
//加SP命令 自己修改
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 判断障碍物 |
|