发个战斗前截取当前地图当背景的脚本

ikki · 发表于 2013-12-13 10:25:47

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有账号？注册会员

×

本帖最后由 ikki 于 2013-12-13 10:32 编辑

随便发着玩。。。不需要神马精华啥的了，毕竟都是古董了。。。国外的东东。。。附件内是调用的dll
[pre lang="ruby" line="1"]#===============================================================================
#
# Screenshot V2
#
# Screenshot Script v1 & screenshot.dll v1          created by: Andreas21
# Screenshot Script v2                               created/edit by: cybersam
# the autor is found on a german board...
# the comments are added by me...
# since the autor didnt want to add any comment...
# so thats it from here...
# have fund with it... ^-^
#
# oh yea.. the needed command line is found in "Scene_Map" in "def update"
#
#===============================================================================
module Screen
  @screen = Win32API.new 'screenshot', 'Screenshot', %w(l l l l p l l), ''
  @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'
  @findwindow = Win32API.new 'user32', 'FindWindowA', %w(p p), 'l'
  module_function
  #-----------------------------------------------------------------------------
  # here comes the stuff...
  # i add here the stuff for automatic change of the number for the screenshot
  # so it wont overrite the old one...
  # if you want to change so stuff change them in this line below
  # or you can change them in your command line... like
  # Screen::shot("screenshot", 2)
  # this change the name and the type of the screenshot
  # (0 = bmp, 1 = jpg and 2 = png)
  # ----------------------------------------------------------------------------
  def shot(file = "screenshot", typ = 1)
# to add the right extension...
if typ == 0
   typname = ".bmp"
elsif typ == 1
   typname = ".jpg"
elsif typ == 2
   typname = ".png"
end
file_index = 0
dir = "Graphics/Battlebacks/"
# make the filename....
file_name = dir + file.to_s + typname.to_s
# make the screenshot.... Attention dont change anything from here on....
@screen.call(0,0,640,480,file_name,handel,typ)
  end
  # find the game window...
  def handel
game_name = "\0" * 256
@readini.call('Game','Title','',game_name,255,".\\Game.ini")
game_name.delete!("\0")
return @findwindow.call('RGSS Player',game_name)
  end
end[/pre]

screenshot.7z (44.06 KB, 下载次数: 80)

kuerlulu · 发表于 2013-12-13 12:55:10

本帖最后由 kuerlulu 于 2013-12-13 12:56 编辑

截图脚本我以前玩过【雾。。
夏娜大大加了个防止多个RM一起运行导致获取窗口句柄出错的方法。【这句和上面一句没有必然联系

#==============================================================================
# ■ Kernel
#------------------------------------------------------------------------------
# 　该模块中定义了可供所有类使用的方法。Object 类中包含了该模块。
#==============================================================================
module Kernel
#--------------------------------------------------------------------------
# ● 需要的 Windows API 函数
#--------------------------------------------------------------------------
GetWindowThreadProcessId = Win32API.new("user32", "GetWindowThreadProcessId", "LP", "L")
GetWindow = Win32API.new("user32", "GetWindow", "LL", "L")
GetClassName = Win32API.new("user32", "GetClassName", "LPL", "L")
GetCurrentThreadId = Win32API.new("kernel32", "GetCurrentThreadId", "V", "L")
GetForegroundWindow = Win32API.new("user32", "GetForegroundWindow", "V", "L")
#--------------------------------------------------------------------------
# ● 获取窗口句柄
#--------------------------------------------------------------------------
def get_hWnd
# 获取调用线程（RM 的主线程）的进程标识
threadID = GetCurrentThreadId.call
# 获取 Z 次序中最靠前的窗口
hWnd = GetWindow.call(GetForegroundWindow.call, 0)
# 枚举所有窗口
while hWnd != 0
# 如果创建该窗口的线程标识匹配本线程标识
if threadID == GetWindowThreadProcessId.call(hWnd, 0)
# 分配一个 11 个字节的缓冲区
className = " " * 11
# 获取该窗口的类名
GetClassName.call(hWnd, className, 12)
# 如果匹配 RGSS Player 则跳出循环
break if className == "RGSS Player"
end
# 获取下一个窗口
hWnd = GetWindow.call(hWnd, 2)
end
return hWnd
end
end
#===============================================================================
#===============================================================================
# ■设置存放截图文件夹
DIR = "Screenshot"
Dir.mkdir("./#{DIR}") unless FileTest.exist?(DIR + "/")
# 主模块 Screen API ★方法：Screen::shot★
module Screen
@i = 1 # 又要玩迭代了
@screen = Win32API.new 'screenshot', 'Screenshot', %w(l l l l p l l), ''
@readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'
@findwindow = Win32API.new 'user32', 'FindWindowA', %w(p p), 'l'
module_function
def shot(file = "shot", typ = 1) # Screen::shot("save", 1)
if typ == 0
typname = ".bmp"
elsif typ == 1
typname = ".jpg"
elsif typ == 2
typname = ".png"
end
dir = DIR + "/"
@i += 1 while FileTest.exist?(dir + file.to_s + @i.to_s + typname.to_s)
file_name = dir + file.to_s + @i.to_s + typname.to_s # 生成带路径的文件名
@screen.call(0,0,640,480, file_name, get_hWnd, typ) # call出截图
end
# def handel
# game_name = "\0" * 256
# @readini.call('Game','Title','',game_name,255,".\\Game.ini")
# game_name.delete!("\0")
# return @findwindow.call('RGSS Player',game_name)
# end
end

复制代码

ikki · 发表于 2013-12-13 14:06:32

kuerlulu 发表于 2013-12-13 12:55
截图脚本我以前玩过【雾。。
夏娜大大加了个防止多个RM一起运行导致获取窗口句柄出错的方法。【这句和上面 ...

{:2_265:}我发的只是初版。。。话说。。。其实我可以不截图直接用地图的。。。

ikki · 发表于 2013-12-13 14:50:57

这个脚本是很强大的，也带作者的哦，主要现在我都找不到这些发在主页的哪里了。。。[pre lang="ruby" line="1"]#===============================================================
# 本脚本来自www.66rpg.com
# 功能：对于没有设置战斗背景的地图，直接用地图做战斗背景
#===============================================================
class Spriteset_Map
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
def initialize(flag = false)
# 生成显示端口
@viewport1 = Viewport.new(0, 0, 640, 480)
@viewport2 = Viewport.new(0, 0, 640, 480)
@viewport3 = Viewport.new(0, 0, 640, 480)
@viewport2.z = 200
@viewport3.z = 5000
# 生成元件地图
@tilemap = Tilemap.new(@viewport1)
@tilemap.tileset = RPG::Cache.tileset($game_map.tileset_name)
for i in 0..6
   autotile_name = $game_map.autotile_names
   @tilemap.autotiles = RPG::Cache.autotile(autotile_name)
end
@tilemap.map_data = $game_map.data
@tilemap.priorities = $game_map.priorities
# 生成远景平面
@panorama = Plane.new(@viewport1)
@panorama.z = -1000
# 生成雾平面
@fog = Plane.new(@viewport1)
@fog.z = 3000
unless flag
   # 生成角色活动块
   @character_sprites = []
   for i in $game_map.events.keys.sort
   sprite = Sprite_Character.new(@viewport1, $game_map.events)
   @character_sprites.push(sprite)
   end
   @character_sprites.push(Sprite_Character.new(@viewport1, $game_player))
end
# 生成天气
@weather = RPG::Weather.new(@viewport1)
# 生成图片
@picture_sprites = []
for i in 1..50
   @picture_sprites.push(Sprite_Picture.new(@viewport2,
   $game_screen.pictures))
   @viewport2.z = 9999
end
# 生成计时器块
@timer_sprite = Sprite_Timer.new
# 刷新画面
update# unless flag
end
#--------------------------------------------------------------------------
# ● 释放
#--------------------------------------------------------------------------
def dispose(flag = false)
# 释放元件地图
@tilemap.tileset.dispose
for i in 0..6
   @tilemap.autotiles.dispose
end
@tilemap.dispose
# 释放远景平面
@panorama.dispose
# 释放雾平面
@fog.dispose
unless flag
   # 释放角色活动块
   for sprite in @character_sprites
   sprite.dispose
   end
end
# 释放天候
@weather.dispose
# 释放图片
for sprite in @picture_sprites
   sprite.dispose
end
# 释放计时器块
@timer_sprite.dispose
# 释放显示端口
@viewport1.dispose
@viewport2.dispose
@viewport3.dispose
end
end

class Scene_Battle
alias battleback_map_main main
def main
  @battleback_sprite = Spriteset_Map.new(true)
  battleback_map_main
  @battleback_sprite.dispose(true)
end
end
#===============================================================
# 申请者：张永；脚本作者：bluefool 改善人：亿万星辰
#===============================================================
[/pre]

[转载发布] 发个战斗前截取当前地图当背景的脚本

加入我们，或者，欢迎回来。

开拓者