新人赚钱大法锡拉库萨刷船票脚本T3版.docVIP

新人赚钱大法锡拉库萨刷船票脚本T3版 //1.新人赚钱大法——准备N个号去锡拉库萨教会地下城刷船票，等级无所谓，船票卖大佬，赚钱飞快 //2.装备，道具店的装备就可以了，帽子，衣服，鞋子，手套全带上 //3.武器飞刀选贝鲁特投资后道具店23攻击的，长矛选东亚道具店的矛，弓箭选雅典道具店的 //4.准备好后建N个锡拉库萨刷船票脚本,设置好参数，从教会启动脚本，就可以获得船票卖钱 //5.一天一个号可以刷400本以上船票，按50万一本的算，每个号每天可以赚2亿元，5个号就是10亿 //6.台服锡拉库萨地下城刷船票脚本T2版，游戏显示800*600(全屏,窗口均可),请用按键精灵9.1版 //7.快捷键F8为自定义栏,F11为登出(结束游戏),其余为空,自定义栏内F4为料理,全后台 //8.装备物品-陆战登录，设好主副武器，道具设置4种补血的,其余空，脚本会自动放技巧 //9.有防掉线功能,在按键右边“脚本属性”“自定义”中设置。不能开大写键盘,否则会登录失败 //10.打开“大漠插件”文件夹，运行“注册大漠插件到系统”，从锡拉库萨教会书台旁启动脚本 //11.本脚本由‘爱情弱势群体’原创，交流脚本请加QQ群123405523 //程式码如下 Dim dm,ver Set dm = createobject(dm.dmsoft) ver = dm.ver() Dim dm_set hwnd = dm.GetForegroundWindow() Delay 5 dm_ret = dm.BindWindowEx(hwnd,normal,windows,dx.keypad.state.api,dx.public.fake.window.min,0) Delay 5 For 999999 Call 判断是否掉线 Call 进入地下城 Call 第一层 Call 第二层 Next Sub 读参数 pld=dm.ReadInt(hwnd,CD38A8,1) smz=dm.ReadInt(hwnd,CD4968,0) smm=dm.ReadInt(hwnd,CD496C,0) npc=dm.ReadInt(hwnd,CCE408,0) kzb=dm.ReadInt(hwnd,CCE458,0) dyl=dm.ReadInt(hwnd,CD6328,0) zdx=dm.ReadInt(hwnd,CD374C,0) dlb=dm.ReadInt(hwnd,D4A124,0) ycy=dm.ReadInt(hwnd,CCEEB0,0) ycz=dm.ReadInt(hwnd,CCE3D8,0) djz=dm.ReadInt(hwnd,CD5140,0) gjy=dm.ReadInt(hwnd,CD5224,0) gjz=dm.ReadInt(hwnd,CD513C,0) dxc=dm.ReadInt(hwnd,CD3E8C,0) wzx = dm.ReadString(hwnd, [[CD3D7C+0]+80], 1, 24) End Sub Sub 瞬移到物品前 Call 读参数 If dxc0 Then dm_ret = dm.WriteFloat(hwnd,CD38E0,aqddx) dm_ret = dm.WriteFloat(hwnd,CD38E8,aqddy) For 3 dm_ret=dm.KeyPress(38) Delay 5 dm_ret=dm.KeyPress(40) Delay 5 Next End If End Sub Sub 延时判定 For 500 Call 读参数 If ycy=0 and ycz=0 Goto 延时判定完毕 Else Delay 50 End if Call 读参数 If dlb20 or zdx=0 Goto 延时判定完毕 Else Delay 50 End if Next Rem 延时判定完毕 End Sub Sub 吃料理 Call 读参数 If pld 400 and smm=0 and djz=0 T