采集脚本(页 1) - 神殿测试游戏 - 大航海时代专区 - 珈蓝神殿 - TEMPLE OF JIALAN - 网络游戏玩家的神殿

芙蓉发表于 2008-2-12 22:50

采集脚本

#在理解各条命令的基础上，您可以修改这个文件的内容
#您修改的结果将会在普通视图上有所反映

－－－－－－－搜索采集通用版－－－－－－－－
UserVar liaoli=50 料理恢复度
UserVar Cl=400 料理存量
//货物位置是打开的那个窗口左上角第一格为1,使用前请先打开窗口看下
//货物位置请从小到大排以免出错,丢弃货物位置要先点"丢弃货物"再看
UserVar DH1=1 要丢的货物1的位置
UserVar DH2=2 要丢的货物2的位置
UserVar DH3=3 要丢的货物3的位置
UserVar DH4=4 要丢的货物4的位置
UserVar DH5=5 要丢的货物5的位置
//每五分钟能采集40次看船舱和采集等级定
UserVar Jtime=5 丢货间隔时间单位(分钟)
//数字"1"为启用"0"为不启用
UserVar Pd0=1 是否启用自动切换窗口
UserVar Pd1=1 是否启用丢弃货物
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwn=Window.GetKeyFocusWnd()
//设置结束
Delay 1000
Gosub 采集通用版
Rem 结束
EndScript
Sub 采集通用版
lun=(Jtime*600)\((liaoli\5)*75)
y=Cl\lun+1
For y
      Gosub 采集
      If Pd0=1
         Gosub 激活窗口
      EndIf
      If Pd1=1
         huo1=DH1:huo2=DH2:huo3=DH3:huo4=DH4:huo5=DH5
         Gosub 丢垃圾
      EndIf
      If Pd0=1
         Gosub 返回窗口
      EndIf
EndFor
Rem 结束
Return 采集通用版
//系统默认自定义栏F10、F11使用技能（用于纠错）设置快捷键 F1采集或搜索、 F2匹萨
//参数lun 采集一轮吃一次料理
Sub 采集
For lun
      ci=liaoli\5
      For ci
         Plugin Window.SendKeyPress(hwn,121)
         Delay 1500
         Plugin Window.SendKeyPress(hwn,112)
         Delay 1000
         Plugin Window.SendKeyPress(hwn,122)
         Delay 5000
      EndFor
      Plugin Window.SendKeyPress(hwn,121)
      Delay 1000
      Plugin Window.SendKeyPress(hwn,113)
      Delay 1000
      Plugin Window.SendKeyPress(hwn,122)
      Delay 1000
      Plugin Window.SendKeyPress(hwn,27)
      Delay 600
EndFor
Return 采集
Sub 丢垃圾
Delay 500
Plugin Window.SendKeyPress(hwn,118)
Delay 1800
VBS ax=429:ay=366
Gosub 移动鼠标
Delay 1000
LeftClick 1
Delay 1000
For 10
      If huo1>0
         ax=92+((huo1+4) MOD 5)*56
         ay=114+((huo1-1)\5)*56
         Gosub 移动鼠标
         LeftClick 1
         Delay 700
         MoveR 119 124
         LeftClick 1
         Delay 700
         MoveR 0 73
         LeftClick 1
         Delay 700
      EndIf
      huo1=huo2-1:huo2=huo3-1:huo3=huo4-1
      huo4=huo5-1:huo5=huo6-1:huo6=huo7-1
      huo7=huo8-1:huo8=huo9-1;huo9=huo10-1
      huo10=0
EndFor
VBS ax=630:ay=391
Gosub 移动鼠标
LeftClick 1
Delay 600
ax=400:ay=300
Gosub 移动鼠标
RightClick 1
Delay 600
Return 丢垃圾
Sub 移动鼠标
Plugin winRect=Window.GetClientRect(hwn)
winPoint = Split(winRect, "|", -1, 1)
bx = CInt(winPoint(0)) + ax
by = CInt(winPoint(1)) + ay
MoveTo bx by
Delay 800
Return 移动鼠标
Sub 激活窗口
Plugin yuan=Window.Foreground()
Delay 800
Plugin Window.Active(hwn)
Delay 800
Plugin Window.Restore(hwn)
Delay 800
Return 激活窗口
Sub 返回窗口
Plugin Window.Active(yuan)
Return 返回窗口

芙蓉发表于 2008-2-12 22:54

脚本里面变量可以自己设置，脚本里扔5次是因为我有时候要去维拉，如果在南美东南岸，扔4次就行了，不过扔5次也不影响什么～～～
采集间隔时间的5000毫秒可以根据自己网络延时来修改，如果网络不好改成6000好了～～

这个后台脚本很稳定，希望对您有帮助～～

芙蓉发表于 2008-2-12 22:58

感谢兔兔给我这个脚本～～:微笑:

洛基的马甲 发表于 2008-2-12 23:10

F7装载 F10自定义F11使用技能F1 F2自定义

零度发表于 2008-2-13 01:33

我一直很懒。。不高兴把按键的修改成seraph脚本。。
如果用Seraph，会是很牛X的，因为判断颜色在这里东东里是很容易修改的，模糊值设置大点就可以了。

jiangshan86 发表于 2008-2-13 12:45

不懂语言还是想要个基础点的学习下

页: [1]

珈蓝神殿's Archiver

采集脚本