求助，我的游戏会在后台也可以按键盘

yang1zhi

没有使用后台运行的脚本。
实际也没有后台运行，切出来过会切会去，还是刚才的进度。
就是键盘是可以操作的。

【蛋塔】

RUBY 代码复制

#此脚本用于挂机获得经验之类所用。
#
#
#打开后台  事件脚本：$_Start.call
#关闭后台  事件脚本：$_Stop.call
#
unless $_Start
 
 
$_Start = Win32API.new("Lib/BackgroundRunning","Start",'V','L')
$_Stop = Win32API.new("Lib/BackgroundRunning","Stop",'V','L')
$_OnFocus = Win32API.new("Lib/BackgroundRunning","OnFocus",'V','L')
 
$_Start.call
 
module Input
  InputUpdate = method :update
  InputTrigger = method :trigger?
  InputPress = method :press?
  InputRepeat = method :repeat?
  InputDir4 = method :dir4
  InputDir8 = method :dir8
  def self.update
    InputUpdate.call if $_OnFocus.call != 0
  end
  def self.trigger?(num)
    return $_OnFocus.call != 0 ? InputTrigger.call(num) : false
  end
  def self.press?(num)
    return $_OnFocus.call != 0 ? InputPress.call(num) : false
  end
  def self.repeat?(num)
    return $_OnFocus.call != 0 ? InputRepeat.call(num) : false
  end
  def self.dir4
    return $_OnFocus.call != 0 ? InputDir4.call : 0    
  end
  def self.dir8
    return $_OnFocus.call != 0 ? InputDir8.call : 0    
  end
end
 
 
end

#此脚本用于挂机获得经验之类所用。


#


#


#打开后台  事件脚本：$_Start.call


#关闭后台  事件脚本：$_Stop.call


#


unless $_Start


 


 


$_Start = Win32API.new("Lib/BackgroundRunning","Start",'V','L')


$_Stop = Win32API.new("Lib/BackgroundRunning","Stop",'V','L')


$_OnFocus = Win32API.new("Lib/BackgroundRunning","OnFocus",'V','L')


 


$_Start.call


 


module Input


  InputUpdate = method :update


  InputTrigger = method :trigger?


  InputPress = method :press?


  InputRepeat = method :repeat?


  InputDir4 = method :dir4


  InputDir8 = method :dir8


  def self.update


    InputUpdate.call if $_OnFocus.call != 0


  end


  def self.trigger?(num)


    return $_OnFocus.call != 0 ? InputTrigger.call(num) : false


  end


  def self.press?(num)


    return $_OnFocus.call != 0 ? InputPress.call(num) : false


  end


  def self.repeat?(num)


    return $_OnFocus.call != 0 ? InputRepeat.call(num) : false


  end


  def self.dir4


    return $_OnFocus.call != 0 ? InputDir4.call : 0    


  end


  def self.dir8


    return $_OnFocus.call != 0 ? InputDir8.call : 0    


  end


end


 


 


end

只有脚本可不行，需要在工程目录中增加这个： Lib.rar (19.1 KB, 下载次数: 75)

2017-4-27 22:33 上传

点击文件名下载附件

congwsbn

某些脚本会造成这样的情况，看看是哪个脚本出问题了吧……