Dim hong,lan,sanguo
//初始化
Plugin sanguo = Window.Find(0,"QQ三国Online")
Rem set
Gosub daguai
Gosub panduan
Gosub daguai
Goto set
//判断加药
Sub panduan
Plugin hong=Memory.Read16Bit(sanguo,&h00128330)
If hong<300
Plugin Window.SendKeyPress(sanguo,81)
Delay 1000
EndIf
Plugin lan=Memory.Read16Bit(sanguo,&h00128338)
If lan<80
Plugin Window.SendKeyPress(sanguo,87)
Delay 500
EndIf
Plugin hong=Memory.Read16Bit(sanguo,&h00128330)
If hong<80
Plugin Window.SendKeyPress(sanguo,82)
Delay 500
EndIf
Plugin lan=Memory.Read16Bit(sanguo,&h00128338)
If lan<10
Plugin Window.SendKeyPress(sanguo,82)
Delay 500
EndIf
Return panduan
//打怪
Sub daguai
Plugin Window.SendKeyPress(sanguo,67)
Plugin Window.SendKeyPress(sanguo,68)
Return daguai
