游戏挂机机器人框架

非动作类游戏,一般对实时性要求不高,一般有几种事件：

1、快速的事件，几秒钟或者十几秒发生一次；

2、慢速事件，几分钟或者几十分钟触发一次，时间间隔相对固定； 

3、定时事件，一般是中午12点或者晚上6点，发体力或者做活动；

4、集中事件，一般是活动，比如答题什么的，这种一般还是手动操作，没必要机器做：

      1重复度不高，2时间较短，3复杂度高，当然非得要机器做也可以，等价于定时事件包含快速事件或慢速事件；

5、随机事件或突发事件 

按键精灵9+大漠插件

        一种框架是一个事件开一个线程，优点是无脑，缺点是每个线程需要绑定一次图形插件，且需要自定义互斥量结构（保护临界资源鼠标和键盘，实现某项操作时一般有连续的鼠标键盘操作，不能错序或者中断，当然如果你非要写个操作栈将当前状态入栈，类似linux进程切换一样，也是可以的）。

        另一种框架开两个线程，类似不带操作系统的简单单片机程序，一个主循环，一个辅循环（单片机中断源）

，相当于一个监察者，一个执行者，监察者轮询事件容器中事件是否触发，若是其中有事件触发，则等待执行者当前事务完成，然后交给执行者去完成，执行者完成任务后若是没有接到下一个任务，则执行默认任务（快速事件）。

两个循环最好在两个线程，逻辑会比较清晰，如果非得要单线程，也是可以的。

//---------------------------------------------------------------------------------------------------------/

伪代码： 

定义状态标识集合（一般将快速事件设置为默认状态，其余的事件各自定义）。

 

辅循环 （监察者）：

while 1

    获取当前时间

    与定时事件时间比较 

    如果时间已到达

则等待状态标识回归默认状态（此处的等待实际是隐含的加锁，保护状态标识，确保只有一个事件在等待被处理，不会错过事件，且不会有双生产者修改状态标识，产生竞态，当然也可以写一个事件队列，然而对这个编程语言不是很了解，貌似是vb）将状态设置为此超时事件等待处理

 

    与慢速事件超时时间相比较 

    如果时间已经超时

        则等待状态标识回归默认状态，将状态设置为超时事件等待处理

 

    检验随机事件触发条件 

    如果随机事件达到触发条件

        则等待状态标识回归默认状态，将状态设置为随机事件等待处理

 

 //-------------------------------------------------------------------------------------------------------------------------------

主循环（执行者）：

 While  1

    While 当前状态标识为快速事件等待处理

        执行快速事件

 

    如果，当前状态标识为慢速事件等待处理 

        则处理事件，事件处理完成后，重新设置此事件的超时时间，将状态标识设置为默认状态

 

    如果，当前状态标识为定时事件或者随机事件等待处理

        则处理事件，事件处理完成后，将状态标识设置为默认状态

  //------------------------------------------------------------------------------------------

以下是用按键精灵9+大漠插件+天天模拟器的《大富豪2》策略经营手游自动机器人

买卖股票属于快速事件（默认状态）

员工鼓励属于慢速事件（15分钟间隔）

挑战属于集中事件（定时事件包含慢速事件）（11点开始,8分钟一次）

<span style="font-size:18px;">Set dm = createobject("dm.dmsoft")
TracePrint dm.Ver()
dm.SetPath "d:\dmtemp"
hwnd = dm.GetMousePointWindow()

//dm_ret = dm.SetWindowSize(hwnd, 1024, 768)
//----------> I  :normal;gdi;gdi2;dx2;dx3;dx
//----------> II :normal;windows;windows2;windows3;dx;dx2
//----------> III:normal;windows;dx

//----------------------
DimEnv cur_state
DimEnv stock
//Dimenv return_main
Dimenv encourage
DimEnv chanlenge

DimEnv encourage_time
Dimenv encourage_long
DimEnv chanlenge_time
DimEnv chanlenge_long

encourage_long = 15*60*1000
chanlenge_long = 8*60*1000

stock       = 1
//return_main = 2
encourage   = 3
chanlenge   = 4

cur_state = encourage
//----------------------

Dim debug
Dim issell

issell = 1
debug = 0

If debug=1 Then
dm_ret = dm.BindWindow(hwnd, "normal", "normal", "normal", 0)
Else
dm_ret = dm.BindWindow(hwnd, "normal", "windows", "normal", 0)
End If

Delay 1000

BeginThread stateM

//股市按钮 47,836
//培养序列 286,842；146,763；252,761；405,168；355,763；；

DimEnv now_time

Sub stateM

//MessageBox "inthethread"
encourage_time = 99999999999
chanlenge_time = 99999999999

While 1
now_time = Plugin.GetSysInfo.GetTime
TracePrint now_time

If now_time >= encourage_time Then
While cur_state <> stock
Delay 1000
Wend
If now_time >= encourage_time Then
cur_state = encourage
End If
End If

nhour = hour(now)
If nhour = 11 Then
If chanlenge_begain = 0 then
While cur_state <> stock
Delay 1000
Wend
cur_state = chanlenge
chanlenge_begain = 1
End if
Else
chanlenge_begain = 0
End If

If chanlenge_begain = 1 and now_time >= chanlenge_time Then
While cur_state <> stock
Delay 1000
Wend
cur_state = chanlenge
End If

Delay 1000
Wend

End Sub

Sub ret2main
dm_ret = dm.FindPic(0,0,2000,2000,"培养ret.bmp|股票ret.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.moveto intX, intY
dm.leftclick
End If
End Sub

While 1

Call 鼓励
Call 挑战
Call 股票

Wend
//挑战序列 364,840；161,312；334,761；248,520；；；；；；；；

Sub 挑战

While cur_state = chanlenge
call m_c(364,840)

call m_c(161,312)

call m_c(334,761)

call m_c(248,520)

chanlenge_time = Plugin.GetSysInfo.GetTime
chanlenge_time = chanlenge_time + chanlenge_long

TracePrint chanlenge_time

cur_state = stock
Wend

Delay 2000
Call ret2main
Delay 2000

End Sub

Function m_c(a,b)
dm.moveto a,b
dm.leftclick
Delay 3000
End Function

Sub 鼓励

While cur_state = encourage
call m_c(286,842)

call m_c(146,763)

call m_c(252,761)

call m_c(405,168)

call m_c(355,763)

encourage_time = Plugin.GetSysInfo.GetTime
encourage_time = encourage_time + encourage_long

TracePrint encourage_time

cur_state = stock
Wend

Delay 2000
Call ret2main
Delay 2000

End Sub
//股市按钮 47,836
Sub 股票

Call m_c(47,836)

While cur_state=stock

dm.moveto 293, 243
dm.leftclick
Delay 2000

dm_ret = dm.FindColor(125,371,342,603,"edfcfd-884444",1.0,8,intX,intY)
If intX >= 0 and intY >= 0 Then
//MessageBox "找到"
dm.moveto intX, intY
If intY >= 599-15 Then
dm.moveto 378,763
dm.leftclick
End If
End If

Delay 2000

if issell=1 then
dm_ret = dm.FindColor(125,371,342,603,"edfcfd-884444",1.0,6,intX,intY)
If intX >= 0 and intY >= 0 Then
//MessageBox "找到"
dm.moveto intX, intY
If intY <=372 Then
dm.moveto 117,765
dm.leftclick
End If
End If
End If

Delay 1000
dm.moveto 205,241
dm.leftclick
Delay 2000

dm_ret = dm.FindColor(125,371,342,603,"edfcfd-884444",1.0,8,intX,intY)
If intX >= 0 and intY >= 0 Then
//MessageBox "找到"
dm.moveto intX, intY
If intY >= 599-15 Then
dm.moveto 378,763
dm.leftclick
End If
End If

Delay 2000

if issell=1 then
dm_ret = dm.FindColor(125,371,342,603,"edfcfd-884444",1.0,6,intX,intY)
If intX >= 0 and intY >= 0 Then
//MessageBox "找到"
dm.moveto intX, intY
If intY <=372 Then
dm.moveto 117,765
dm.leftclick
End If
End If
End If

Delay 2000
Wend

Delay 2000
Call ret2main
Delay 2000

End Sub

Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
End Sub</span>