你的位置：
发个魔域前台自动跑商的给大家
03:31:38 |
来源: 按键精灵资源站
Set dm = createobject(&dm.dmsoft&)
hwnd = dm.FindWindowEx(0,&&,&【魔域】&)
dm.MoveWindow hwnd,-5,-5
dm_ret = dm.SetPath(&E:\字库&)
dm_ret = dm.SetDict(0, &黄色宋体9号.txt&)
dm_ret = dm.FindStr(0,0,,&商人&,&00ff00-.0,intX,intY)
If intX &= 0 and intY &= 0 Then
& & dm.MoveTo intX + 30, intY + 70
& & Delay 50
& & dm.LeftClick
& & Delay 1500
& & dm_ret = dm.FindPic(0,0,,&买木头.bmp&,&.9,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX + 3, intY + 2
& && &&&Delay 300
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm_ret = dm.FindPic(283,407,363,437,&我买.bmp&,&.0,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX + 6, intY + 2
& && &&&Delay 20
& && &&&dm.MoveTo intX + 7, intY + 3
& && &&&Delay 100
& && &&&dm.LeftClick
& && &&&Delay 2000
& & End If
& & dm_ret = dm.FindColor(0,0,5d4a-.0,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY
& && &&&Delay 500
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm.MoveTo 730, 468
& & Delay 100
& & dm.LeftClick
& & Delay 58 * 1000
& & dm.MoveTo 756,540
& & Delay 100
& & dm.LeftClick
& & Delay 45*1000
dm_ret = dm.FindStr(0,0,,&组队&,&00ff00-.0,intX,intY)
If intX &= 0 and intY &= 0 Then
& & dm.MoveTo intX + 232, intY -30
& & Delay 50
& & dm.LeftClick
& & Delay 1500
If Form1.海岛.Value = 1 Then
& & dm.MoveTo 753, 537
& && &Delay 50
& & dm.LeftClick
& & Delay 50 * 1000
& & dm.MoveTo 663, 495
& && &Delay 50
& & dm.LeftClick
& & Delay 25 * 1000
& & dm.MoveTo 691, 535
& && &Delay 50
& & dm.LeftClick
& & Delay 50 * 1000
& & dm_ret = dm.FindColor(0,0,5d4a-.0,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY
& && &&&Delay 500
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm_ret = dm.FindStr(0,0,,&组队&,&00ff00-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX + 221, intY +80
& && &&&Delay 50
& && &&&dm.LeftClick
& && &&&Delay 3500
& & End If
& & dm_ret = dm.FindColor(0,0,5d4a-.0,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY
& && &&&Delay 200
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm.MoveTo 588, 262
& && & Delay 50
& & dm.LeftClick
& & Delay 120 * 1000
& & dm.MoveTo 569, 284
& && & Delay 50
& & dm.LeftClick
& & Delay 55 * 1000
& && &&&dm_ret = dm.FindColor(0,0,5d4a-.0,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY
& && &&&Delay 500
& && &&&dm.LeftClick
& && &&&Delay 2500
& & End If
& & dm_ret = dm.FindStr(0,0,,&师&,&00ff00-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX+15 , intY +50
& && &&&Delay 50
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm_ret = dm.FindStr(0,0,,&卖&,&ffffff-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY +5
& && &&&Delay 50
& && &&&dm.LeftClick
& && &&&Delay 1500
& && &&&EndScript
& & End If
dm.MoveTo 436, 531
dm.LeftClick
Delay 62 * 1000
If Form1.树心.Value = 1 Then
& & dm.MoveTo 481, 481
& &&&Delay 50
& && &&&dm.LeftClick
& & Delay 28 * 1000
& & dm_ret = dm.FindColor(0,0,5d4a-.0,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY
& && &&&Delay 200
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm_ret = dm.FindStr(0,0,,&师&,&00ff00-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX+15 , intY +50
& && &&&Delay 50
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm_ret = dm.FindStr(0,0,,&卖&,&ffffff-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY +5
& && &&&Delay 50
& && &&&dm.LeftClick
& && &&&Delay 1500
& && &&&EndScript
& & End If
dm.MoveTo 281, 518
& && &&&dm.LeftClick
Delay 40 * 1000
dm.MoveTo 399, 490
& && &&&dm.LeftClick
Delay 20 * 1000
dm.MoveTo 588, 519
& && &&&dm.LeftClick
Delay 85 * 1000
If Form1.戈壁.Value = 1 Then
& & dm.MoveTo 277, 425
& &&&Delay 50
& && &&&dm.LeftClick
& & Delay 50* 1000
& & dm_ret = dm.FindColor(0,0,5d4a-.0,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY
& && &&&Delay 200
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm_ret = dm.FindStr(0,0,,&师&,&00ff00-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX+15 , intY +50
& && &&&Delay 50
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm_ret = dm.FindStr(0,0,,&卖&,&ffffff-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY +5
& && &&&Delay 50
& && &&&dm.LeftClick
& && &&&Delay 1500
& && &&&EndScript
& & End If
dm.MoveTo 538, 508
& && &&&dm.LeftClick
Delay 50 * 1000
dm.MoveTo 519, 485
& && &&&dm.LeftClick
Delay 80 * 1000
dm.MoveTo 268, 546
& && &&&dm.LeftClick
Delay&&45* 1000
If Form1.沼泽.Value = 1 Then
& & dm.MoveTo 459, 420
& &&&Delay 50
& && &&&dm.LeftClick
& & Delay 110* 1000
& & dm_ret = dm.FindColor(0,0,5d4a-.0,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY
& && &&&Delay 200
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm_ret = dm.FindStr(0,0,,&师&,&00ff00-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX+15 , intY +50
& && &&&Delay 50
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm_ret = dm.FindStr(0,0,,&卖&,&ffffff-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY +5
& && &&&Delay 50
& && &&&dm.LeftClick
& && &&&Delay 1500
& && &&&EndScript
& & End If
dm.MoveTo 544, 535
& && &&&dm.LeftClick
Delay 78 * 1000
dm.MoveTo 428, 534
& && &&&dm.LeftClick
Delay 55 * 1000
dm.MoveTo 289, 527
& && &&&dm.LeftClick
Delay 40 * 1000
Call Plugin.Media.Play(&C:\WINDOWS\Media\Windows XP 启动.wav&)
Delay 5000
MessageBox &请手动过传送门&
Delay 3000
If Form1.冰宫.Value = 1 Then
& & dm.MoveTo 522, 298
& &&&Delay 50
& && &&&dm.LeftClick
& & Delay 72* 1000
& & dm_ret = dm.FindColor(0,0,5d4a-.0,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY
& && &&&Delay 200
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm_ret = dm.FindStr(0,0,,&师&,&00ff00-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX+15 , intY +50
& && &&&Delay 50
& && &&&dm.LeftClick
& && &&&Delay 1500
& & End If
& & dm_ret = dm.FindStr(0,0,,&卖&,&ffffff-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX , intY +5
& && &&&Delay 50
& && &&&dm.LeftClick
& && &&&Delay 1500
& && &&&EndScript
& & End If
最后告诉新手一句，魔域大漠完全可以写出后台，就看你怎么去运用，后台源码我就不发了，&&发个前台的吧，当初我也是在论坛查的这样的帖子，所以发个给新手参考下， 别去听他们说难难，最重要自己用心，我也是新手，高手别喷，呵呵呵，不是给大漠卖广告，呵呵&&确实。。。。。你的位置：
功能强大的
魔域摆摊卖货 脚本 帮忙找BUg
21:29:14 |
来源: 按键精灵资源站
本帖最后由 alftmdh 于
21:32 编辑
一.角本用定点取色判断物品,当遇到多种物品共用一个图片(999花和99花和粮食)时，会出现判断错误的现像,所以请先将容易出错的物品手动上摊位.
二.同样物品可能存在多种颜色值，请将每种颜色值都做进配置文件中.(经验+10就有好几个颜色)
三.要摆摊的号上不能有赠品幻兽(赠品物品可以放在前6个物品格子里，然后从第7个格子上贷)，不然角本上贷时会卡在赠品这里，（一直上赠品，赠品又不让卖，死循环）
四. 注意上贷最多只能上到第22个格子的位置，如果你头22个格子都是不卖物品的话，上物品功能将关闭
五.因游戏中装备（上品以上的）有颜色渐变的特效，所以本角本不能正确识别.还有就是当前取色点刚好是装备的空洞，所以取色为空值，角本会出错
物品颜色获取方式，角本窗口 物品颜色获取&&
& && &&&选择& &现在获取& & 会抓取当前物品栏中所有物品的图片保存在& &C:\test_game\摆摊\物品颜色& && &&&文件中图片名称就是颜色
& && &&&选择& &运行获取& & 当遇到没有颜色的物品时会抓取当前物品的图片保存在 C:\test_game\摆摊\物品颜色& &&&文件中图片名称就是颜色
& && &&&选择& &头次运行& & 将会获取&&运行必须&&的几个必要颜色&&请确保当前VIP仓库没有东西，物品栏没有东西
头次运行& &说明：
第一步&&得到仓库空值，如果确定仓库为空的话&&可直接按 任意键 继续，如果仓库不为空，可以手动打开VIP仓库，翻到没有物品的页面 按 任意键 继续，如果不使用VIP取物品功能，这个选项就无关紧要了,但不能空。另类办法&&用同电脑其它号取值。摆摊号不用麻烦。
格式：仓库空值=颜色空值
例：仓库空值=&&(这个是本人电脑上的空值)
第二步&&得到物品空值 这个很重要，物品栏尽量为空，然后任意键 继续,得到颜色会弹出 存放图片的文件夾和配置文本，请将所有空格子的颜色值按以下格式&&输入到& &物品栏空值 这个值后面
格式：物品栏空值=颜色空值1/颜色空值2/颜色空值n
例：&&物品栏空值=//2947& & (这个是本人电脑上的空值)
卖贷设置说明：
只卖物品和只卖幻兽就不说了
一样一个，当幻兽没有卖出会自动上物品
优先幻兽&&只要能上幻兽就上幻兽，不能上在上物品，上1个物品在检查幻兽能上不能，能上就上，不能上就上物品。。。。。
优先物品&&物品没卖空之前& &上4次物品上一次幻兽 这样循环
关于&&颜色 物品价格的关系是& &先&&颜色=物品名称（在物品颜色文本中设置）&&在物品名称=价格(注意：物品名称和物品颜色里面设置的一样，不然读不出来的,这个可以改价格文本，也可以在角本运行后弹出的文件里改)
补充说明：& &在价格文本里面更改的数据，将会做为范本保存。在角本运行后弹出的文件里改的数据，只保存在当前游戏人物的配置文本中
添加颜色说明:&&当当前物品没有颜色时，角本会抓取当前物品图片保存，图片的名称就是颜色值。 格式如下:
添加价格说明:&&先确定你添加了颜色如下例， 物品名称是幻魔晶石 那么&&公式就出来了&&如下:
幻魔晶石=8
在说明一下，这个价格是魔石和金币通用的，当你在角本设置魔石（金币）时，它就是魔石（金币）的价格。
例如:要卖的幻兽为&&战士攻防型& &&&同时有 1*&&2*&&3* 4* 5* 6* 15星 19星 20星&&还有千载难逢&&百里挑一 等 那么价格就是
战士功防型=1
战士功防型100分=8
战士功防型280分=15
战士功防型480分=35
战士功防型600分=50
战士功防型800分=80
战士功防型1200分=150
战士功防型1500分=888
战士功防型1900分=1000
战士功防型2000分=2000
注意：以上就是角本做好的星级判断，如需要其它星级，请联系我
说明：2星和3星的&&角本会认为是280& &&&4星和5星的&&角本会认为是480
其它做进角本的按实际星数
其它未做进角本的，全部认为是&&幻兽名称& &切记
如卖高星BB&&请改名为要卖的价格即可
& & 脚本 运行期间有什么问题请回复& &谢谢你的位置：
求一个魔域自动捡东西的脚本
08:44:04 |
来源: 按键精灵资源站
求一个魔域自动捡东西的脚本，或者只给我捡东西的代码也行，我自己研究研究，谢谢各位哥哥姐姐跪求魔域合宝宝按键精灵脚本,会的高手麻烦帮我做一个谢谢了._百度宝宝知道