深夜吐血放松非休闲游戏脚本

西伯龄 发表于 2009-3-6 03:56:00

放出天龙诛仙梦幻三款吧哈哈其实我会用的也只有这三款嘿嘿都是网上搜索来的不过都测试过很安全的
F1一般技能 F2 F3随便放什么技能F5 放人红 F6人蓝 F7宝宝红
几个防挂机图片和报警提示音我不会上传大家自己想办法搞定吧
Description=天龙八部挂机
BeginHotkey=122
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0

Type=1
Number=1943232333

SetupOCXFile=

Content=

VBS dim hong,lan,hongT,lanT,xgT,bbh,hgsd
UserVar hong=DropList{30%:30|50%:50|70%:70|90%:90|95%:95}=1 人多少吃红F5
UserVar lan=DropList{30%:30|50%:50|70%:70}=1 人多少吃蓝F6
UserVar bbh=DropList{30%:30|50%:50|70%:70|90%:90|95%:95}=1 宠多少吃红F7
UserVar hongT=10000 红药冷却时间
UserVar lanT=1000 蓝药冷却时间
UserVar xgT=1000 寻怪延时
Rem 开始
Gosub 外挂提示
IfColor 247,31,101410,2
Rem 继续找怪
Gosub 寻怪
Rem 正式开始
Gosub 吃血蓝
Delay 200
Gosub 锁定怪
Delay 50
Else
Gosub 外挂提示
EndIf
IfColor 247,31,000fff,2
Gosub 打怪
Else
IfColor 223,30,000000,1
   Gosub 外挂提示
   Goto 继续找怪
Else
   Goto 开始
EndIf
EndIf
Sub 关闭意外窗口
VBSCall FindPic(0,0,1024,768,"tlxx.bmp",0.6,x,y)
If x>=0 and y>=0
   MoveTo x+2 y+2
   LeftClick 1
Else
EndIf
//条件结束
Delay 200
Return 关闭意外窗口
Sub 外挂提示
VBSCall FindPic(2,107,566,568,"tlfwg.bmp",0.6,x,y)
If x>=0 and y>=0
   For 3
         Gosub 报警
   EndFor
   Delay 20
   VBSCall FindPic(2,107,566,568,"tlfwgg.bmp",0.6,x,y)
   If x>=0 and y>=0
         MoveTo 886,746
         Delay 20
         LeftClick 1
         Delay 1000
         MoveTo 515,398
         Delay 20
         LeftClick 1
   Else
   EndIf
Else
EndIf
Return 外挂提示
Sub 报警
VBS strSoundFile = "d:\5201.wav"
VBS Set objShell = CreateObject("Wscript.Shell")
VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
VBS objShell.Run strCommand, 0, True
Delay 2000
Return 报警
Sub 吃血蓝
IfColor hong/100*(185-65)+65 30 1b1f1a 2
   //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
   //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
   KeyPress 116,1
   //按下补血快捷键
   Delay hongT
   //补血延时
EndIf
IfColor lan/100*(185-65)+65 37 1b1f1a 2
   //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
   //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
   KeyPress 117,1
   //按下补血快捷键
   Delay lanT
   //补血延时
EndIf
IfColor bbh/100*(185-92)+92 70 111310 2
   //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
   //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
   KeyPress 118,1
   //按下补血快捷键
   Delay lanT
   //补血延时
EndIf
Return 吃血蓝
Sub 寻怪
VBSCall FindPic(878,42,1016,197,"dthd.bmp",0.4,x,y)
If x>=0 and y>=0
   MoveTo x+4 y+4
   LeftClick 1
Else
EndIf
//条件结束
Return 寻怪
Sub 锁定怪
KeyDown 17,1
KeyPress 9,1
KeyUp 17,1
Return 锁定怪
Sub 打怪
KeyPress 112,1
KeyPress 113,1
KeyPress 114,1
Return 打怪
Sub 技能
UserVar jn1=F1 设置技能1键位
UserVar jn2=F2 设置技能2键位
UserVar jn3=F3 设置技能3键位
UserVar s1=60 设置技能1施放间隔时间
UserVar s2=90 设置技能2施放间隔时间
UserVar s3=120 设置技能3施放间隔时间
//-----------------------------------------------------------------------
//---------------------------------------------------------[赋值初始变量]
//-----------------------------------------------------------------------
dim number(2),thetime(2),key(2),sj(2)
dim a,b,c,d,jn1,jn2,jn3,s1,s2,s3,t1,t2,t3,L
//声明变量
number(0)=jn1:number(1)=jn2:number(2)=jn3
thetime(0)=s1:thetime(1)=s2:thetime(2)=s3
//把自定义参数的返回值转换成数组元素
t1=now:t2=now:t3=now
//返回当前系统日期时间到变量
//-----------------------------------------------------------------------
//---------------------------------------------------------- [跳转子程序]
//-----------------------------------------------------------------------
Gosub 判断按键
Gosub 判断时间
//-----------------------------------------------------------------------
//---------------------------------------------------------- [脚本主程序]
//-----------------------------------------------------------------------
While true
   //条件无限循环
   If DateDiff("s",t1,now)>=sj(0)
         //< DateDiff 函数：返回两个日期之间的时间间隔>
         //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
         Delay 10
         KeyPress key(0) 1
         //按键变量k(0) 1次
         t1=now
         //重新赋值日期时间到变量
   EndIf
   If DateDiff("s",t2,now)>=sj(1)
         Delay 10
         KeyPress key(1) 1
         t2=now
   EndIf
   If DateDiff("s",t3,now)>=sj(2)
         Delay 10
         KeyPress key(2) 1
         t3=now
   EndIf
   Delay 10
EndWhile
//-----------------------------------------------------------------------
//------------------------------------------------------ [判断键码子程序]
//-----------------------------------------------------------------------
Sub 判断按键
   a=0:b=0
   //赋值数组最小下标
   For 3
         L=Len(number(a))
         //< Len 函数：返回字符串内字符的数量>
         If L=1
            key(b)=Asc(UCase(number(a)))
            //< Asc 函数：返回字符串首字母的ASCII字符代码> < UCase 函数：返回转换为大写字母的字符>
            If key(b)<48 or key(b)>90
               Goto End
               //超出范围跳转到脚本结束标记
            ElseIf key(b)>57 and key(b)<65
               Goto End
            EndIf
         ElseIf L>1 and L<4
            If UCase(Left(number(a),1))="F"
               //判断字符串首字字符< Left 函数：返回字符串最左边的指定数量的字符>
               key(b)=Asc(UCase(Left(number(a),1)))+Right(number(a),L-1)+41
               //< Right 函数：返回字符串最右边的指定数量的字符>
               If key(b)<112 or key(b)>123
                     Goto End
               EndIf
            Else
               Goto End
            EndIf
         Else
            Goto End
         EndIf
         a=a+1:b=b+1
         //数组下标+1
         Delay 10
   EndFor
Return 判断按键
//-----------------------------------------------------------------------
//------------------------------------------------------ [判断时间子程序]
//-----------------------------------------------------------------------
Sub 判断时间
   c=0:d=0
   For 3
         If IsNumeric(thetime(c))=True
            //< IsNumeric 函数：返回布尔值指明表达式的值是否为数字>
            sj(d)=cint(thetime(c))
            /< CInt 函数：返回已被转换为整形子类型的变体的表达式>
         Else
            Goto End
         EndIf
         c=c+1:d=d+1
         Delay 10
   EndFor
Return 判断时间
//-----------------------------------------------------------------------
//-------------------------------------------------------- [脚本停止标记]
//-----------------------------------------------------------------------
Rem End
MessageBox 输入错误脚本停止运行
EndScript
Return 技能

[ 本帖最后由西伯龄于 2009-3-6 03:57 编辑 ]

︶ㄣo義o﹎ 发表于 2009-3-6 03:57:34

老大!看不懂啊!但是我需要啊!

︶ㄣo義o﹎ 发表于 2009-3-6 03:59:46

你来俺家教教我吧!赶紧给我天龙八部挂到90级先!防挂机的也得弄!要不挂不成!

西伯龄 发表于 2009-3-6 04:00:01

对了天龙中远攻门派可以在BIN 这个文件里调那个最大视角结合ctl+tab 单刷能爽死

西伯龄 发表于 2009-3-6 04:02:31

梦幻的这个单开升级无报警的是以前ctrl+V很安全不过这功能也就凑合了
VBS dim hong,lan,bbhong,bblan,paodong
//声明变量
UserVar hong=70 血量<hong%时，自动吃红。
UserVar lan=30 蓝量<lan%时，自动吃蓝。
UserVar bbhong=70 血量<hong%时，召唤兽自动吃红。
UserVar bblan=30 蓝量<lan%时，召唤兽自动吃蓝。
UserVar paodong=DropList{跑动:1|跟随:2}=0 遇敌方式
Rem 开始
IfColor x,y,color1,0
//如果某处的颜色=什么，可以是战斗内和战斗外不同的颜色，x和y是坐标，color1,是颜色
Gosub 战斗
//调用战斗的子程序
Else
Gosub 检查验证
//调用检查验证的子程序
Delay 100
//延时防卡
Gosub 检查红蓝
//调用检查红蓝子程序
Delay 100
//延时防卡
Gosub 遇怪
//调用遇怪子程序
EndIf
Goto 开始
//回到开头继续循环
-------------------战斗子程序-----------------------
Sub 战斗
IfColor x,y,color2,0
   //如果某处的颜色=什么，是战斗指令框的颜色（就是点防御啊法术什么的），x和y是坐标，color2是颜色
   KeyDown 18,1
   Delay 100
   KeyPress 65,1
   Delay 100
   KeyUp 18,1
   Delay 500
   KeyDown 18,1
   Delay 100
   KeyPress 65,1
   Delay 100
   KeyUp 18,1
   //可以把上面这段改成自己想要的战斗命令，这里以Alt+A为例，按两次是为了把召唤兽算进
Else
   Gosub 等待
   //调用等待子程序，等待战斗指令框出现
   Delay 100
   //延时防卡
EndIf
Return 战斗
//子程序完结回到调用处
Sub 等待
Delay 2000
//写上你等待的时间（单位：毫秒）
Return 等待
//子程序完结回到调用处
-------------------判断验证子程序-----------------------
Sub 检查验证
//写上你的判断验证语句这里以找色函数为例
VBSCall FindColor(left,right,top,bottom,color3,x,y)
VBSCall FindColor(left,right,top,bottom,color4,x2,y2)
VBSCall FindColor(left,right,top,bottom,color5,x3,y3)
//多色寻找验证框
Ifx>0 and y>0
   If x2>0 and y2>0
      If x3>0 and y3>0
   Delay 10
   VBS strSoundFile = "C:\WINDOWS\Media\ringin.wav"
   VBS Set objShell = CreateObject("Wscript.Shell")
   VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
   VBS objShell.Run strCommand, 0, True
//上面这些语句的效果就是发出丁零零一声，引用自晨风大大的脚本
      EndIf
   EndIf
EndIf
Return 检查验证
//子程序完结回到调用处
-------------------检查红蓝子程序-----------------------
Sub 检查红蓝
Rem 补红
IfColor hong/100*(x2-x1)+x1 y color 2
   //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
   //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
   MoveTo x y
   //移动到血条位置，回合战游戏一般都可右键血条加血
   Delay 100
   //延时防卡
   RightClick 1
   //右键点击血条
EndIf
Rem 补蓝
IfColor lan/100*(x2-x1)+x1 y color 2
   //x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标，
   //y=x1,x2在蓝条中的同一纵坐标，color=蓝条的空蓝颜色值。
   MoveTo x y
   //移动到蓝条位置，回合战游戏一般都可右键血条加蓝
   Delay 100
   //延时防卡
   RightClick 1
   //右键点击蓝条
EndIf
Rem 宝宝补红
IfColor bbhong/100*(x2-x1)+x1 y color 2
   //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
   //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
   MoveTo x y
   //移动到血条位置，回合战游戏一般都可右键血条加血
   Delay 100
   //延时防卡
   RightClick 1
   //右键点击血条
EndIf
Rem 宝宝补蓝
IfColor bblan/100*(x2-x1)+x1 y color 2
   //x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标，
   //y=x1,x2在蓝条中的同一纵坐标，color=蓝条的空蓝颜色值。
   MoveTo x y
   //移动到蓝条位置，回合战游戏一般都可右键血条加蓝
   Delay 100
   //延时防卡
   RightClick 1
   //右键点击蓝条
EndIf 检查红蓝
Return
//子程序完结回到调用处
-------------------走路子程序-----------------------
Sub 走路
If paodong=1
   //如果遇敌方式是跑动
   MoveTo x y
   Delay time
   MoveTo x y
   Delay time
   MoveTo x y
   Delay time
   MoveTo x y
   MoveTo x y
   Delay time
   MoveTo x y
   //写上你的走路语句
Else
   Gosub 跟随
   //否则调用跟随子程序
EndIf
Return 走路
//子程序完结回到调用处
Sub 跟随
Delay 2000
//写上根据情况设置等待时间
Return 跟随
//子程序完结回到调用处

西伯龄 发表于 2009-3-6 04:07:34

另外简单游上面有个叫木头的 5开连机的功能很强大还可以试用半小时
我升级就是看着电影一直试用就好了就不给他赚钱不过很不稳定我以前朱仙镇两个90PS被苦行去了结果又开苦行脚本最后让封了后来大年初一那个区用了 N久也没事真是奇怪

西伯龄 发表于 2009-3-6 04:10:14

1放红，2放蓝，3放捡物，7放打坐，F1放法宝技能，F2放普通攻击（其实可以自己改的！)
启动脚步前需要按下M键打开地图，把鼠标放在小箭头上！
//------------------------变量声明和定义---------------------

VBS Dim Hyd

UserVar xieb=65 吃红下限（%）

UserVar lanb=25 吃蓝下限（%）

UserVar Zds=15 自动回原点数（打多少个怪回原点）

UserVar dazuo=30 打坐下限（%）[不想用就设为0]

VBS base=&h910f4c

VBSCall Call ReadMemory(base,2,base1)

base2=base1+&H28

VBSCall Call ReadMemory(base2,2,base3)

baseh=base3+&H26c

basel=base3+&H270

VBSCall Call ReadMemory(baseh,2,hong)

VBSCall Call ReadMemory(basel,2,lan)

VBS hong1=base3+&H254

VBS lan1=base3+&H258

VBS guai=base3+&H7b8

VBS wenti=&H91331C

SaveMousePos

Delay 500

KeyPress 77,1

//------------------------脚本主程序--------------------------

Hyd=0

Rem 开始

Gosub 红蓝补给

Rem 找怪

VBSCall Call ReadMemory(guai,2,guaiid)

If guaiid=0

   KeyPress 9,1

   Delay 1000

   Goto 找怪

Else

   Gosub 战斗

   Gosub 拾取物品

   Gosub 打坐

EndIf

Hyd=Hyd+1

Rem 报警

VBSCall Call ReadMemory(wenti,0,dati)

If dati=1

   Beep

   KeyPress 145,1

   Delay 100

   VBSCall Call ReadMemory(guai,2,guaiid3)

   If guaiid3<>0

         Gosub 战斗

   EndIf

   Goto 报警

EndIf

If Hyd=Zds

   Gosub 回原点

EndIf

Goto 开始

EndScript

//------------------------战斗----------------------------

Sub 战斗

KeyPress 112,1

Delay 2000

Rem 攻击

KeyPress 113,1

Delay 1000

Gosub 红蓝补给

VBSCall Call ReadMemory(guai,2,guaiid0)

If guaiid0<>0

   Goto 攻击

EndIf

Return

//------------------------拾取物品----------------------------

Sub 拾取物品

wu1=base1+&H8

VBSCall Call ReadMemory(wu1,2,wu2)

wu2=wu2+&H24

VBSCall Call ReadMemory(wu2,2,wu3)

wu3=wu3+&H14

VBSCall Call ReadMemory(wu3,2,wupin)

If wupin<>0

   For 3

         KeyPress 51,1

         Delay 600

   EndFor

EndIf

Return

//------------------------红蓝补给----------------------------

Sub 红蓝补给

VBSCall Call ReadMemory(hong1,2,xhong)

VBSCall Call ReadMemory(lan1,2,xlan)

If xhong/hong*100<=xieb

   KeyPress 49,1

EndIf

If xlan/lan*100<=lanb

   KeyPress 50,1

EndIf

Return

//------------------------打坐----------------------------

Sub 打坐

VBSCall Call ReadMemory(hong1,2,hong2)

If hong2/hong*100<=dazuo

   KeyPress 55,1

   Rem 检测

   Delay 1000

   VBSCall Call ReadMemory(guai,2,guaiid1)

   If guaiid1<>0

         Gosub 战斗

         KeyPress 55,1

   EndIf

   hongd=base3+&H254

   VBSCall Call ReadMemory(hongd,2,h01)

   If h01<hong

         Goto 检测

   EndIf

EndIf

Return

//------------------------自动回原点------------------------

Sub 回原点

KeyPress 77,1

Delay 500

RestoreMousePos

Delay 100

LeftClick 1

Delay 1000

Rem 等待回原点

VBSCall FindColor(0,0,1024,768,"f338ec",Hy,Hx)

If Hy>=0 and Hx>=0

   Delay 1000

   Goto 等待回原点

Else

   KeyPress 77,1

   Hyd=0

Return
没怎么用过这款游戏人气一直好低迷哦

不过如果你无聊的话还可以开变速在里面狂奔很爽的
哈哈卡掉后被封不管我事了。

︶ㄣo義o﹎ 发表于 2009-3-6 04:10:23

原帖由西伯龄于 2009-3-6 04:00 发表 http://www.yanshi.cc/bbs/images/common/back.gif
对了天龙中远攻门派可以在BIN 这个文件里调那个最大视角结合ctl+tab 单刷能爽死

我的是近战!能挂吗?杂弄?

西伯龄 发表于 2009-3-6 04:12:19

最后说明：以上3款全部是 32位色经典设置下运行的
最后声明：全部抄袭，封了不管。不过几率还是很小滴。
睡觉！

西伯龄 发表于 2009-3-6 04:16:16

原帖由︶ㄣo義o﹎于 2009-3-6 04:10 发表 http://www.yanshi.cc/bbs/images/common/back.gif

我的是近战!能挂吗?杂弄?
没办法了BB打咆哮人休息好了做个延时2000的无限重复单击 BB肉的那个键就OK了
然后再找个报警脚本放再子程序里久行了不过也很无聊啊平均一小时2次报警虽然解放了手但是人还得在电脑旁边啊。

︶ㄣo義o﹎ 发表于 2009-3-6 04:18:47

关键我不知道杂弄!我不爱升级!我可以挂机看电视!

西伯龄 发表于 2009-3-6 04:22:44

在游戏安装目录中找到BIN文件夹，**BIN文件夹找到【System.cfg】文件，比如你游戏安装在X盘的TLLBB目录中，那么就是到X：/TLBB/Bin/中找到这个文件（System.cfg）然后打开这个文件，
然后在打开的记事本中找到一下字样的文字：

# Camera
#-------------------------------
Camera_MinDistance =6.0 （控制垂直的最小距离）推荐70以下
Camera_MaxDistance =18.39 （控制垂直的最大距离）推荐 50
Camera_Pitch =43.5 （控制仰角度数）推荐+50
Camera_FOV =35.0 （控制俯角度数）推荐50

调整Camera_MaxDistance =90(可以根据自己的习惯修改数值)，调整了以后你会发现距离远了很多，视野范围很大，

然后在使用ALT+END/HOME 这2个功能键配合使用鼠标滚轮就可以调整到你最舒服的游戏视角了。

★当过兵的人★ 发表于 2009-3-6 09:55:16

小西辛苦了！

页: [1]

偃师论坛's Archiver

深夜吐血放松非休闲游戏脚本