RPGMAKER XP 脚本实践

最新推荐文章于 2026-05-15 09:57:37 发布

原创最新推荐文章于 2026-05-15 09:57:37 发布 · 5.8k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#脚本 #xp #游戏 #user #dll

抄程式专栏收录该内容

28 篇文章

订阅专栏

本文介绍了作者使用RPGMAKER XP制作游戏的体验，探讨了其扩展性，特别是通过ruby脚本语言增强游戏功能。然而，作者在实现电影播放功能时遇到了困难，包括全屏支持、鼠标问题、焦点丢失以及播放黑屏等问题。文章分享了作者的解决方案，并讨论了在游戏返回时如何恢复中断状态的脚本挑战。此外，还提及了结构体的使用和推荐的音乐软件Overture。

一次在网上下载游戏，同人的仙剑奇侠传。不知不觉玩了4个小时，剧情早已都了然与心，到了镇妖塔的时候玩不下去。前面放掉的经验值实在太多。这类同人游戏在网上自然没有什么修改器，但我也惊讶于与我年纪相仿的兄弟既然可以做出如此好的游戏。看了说明，原来他是使用rpgmaker 做的，自己也照猫画虎做起游戏。

RPGMAKER XP 1.02

使用ruby脚本语言，非常好的扩展性，可以做出很多类型游戏。

美中不足的是，与windows联系不很紧密，联系由扩展的win32api脚本来完成。例如电影播放使用起来就很麻烦，66rpg论坛提出的方法用mcistringsend，通过句柄联系，这样不会跳出一个窗口来，也有人用delphi写了使用mcicommand的dll。不过画面总是从左上角开始并且没有做到640*480 比例扩大。

自己也写了个dll。义不容辞使用directshow，因为没有接触过，写完以后发现难点不是在这个dll，而是ruby脚本！

这是一个糟糕的电影播放器的例子，因为是个dll

1、不支持全屏:没写，根据调查好像很多人都不喜欢640*480全屏显示。

2、有鼠标问题:用了个很猥琐的方法解决，但是如果用了鼠标脚本，会发现一个bug（不是脚本冲突）。

3、不能失去焦点：一旦播放电影时，鼠标焦点不在屏幕内……默默地等影片结束吧。

4、关键问题：难以解决的第一次播放动画黑屏的问题,这个问题不知道这否是特例?!@#$%。

我用的是K-Lite Codec Pack 解码包（类似暴风之类，国外的，没有广告……）。

p4 1.7GHz/sdram 256M/tnt2pro 32M/i845G……。

第二次开始则很好的播放了……传说中的原因为（通俗说法） divx还没预热好，电影就播放了。。应该是我的程序的问题……在用win32asm写的调用程序里是一切正常的……为什么在rpgxp里……~!@#$%。程序为我网络硬盘的testdll.rar。

电影宽度问题：默认的是硬性将所播放的电影宽定为640，高按比例减小或扩大正中显示。

最后不得不提的脚本问题，回到游戏时。如何回到所中断的状态，是个需要解决的问题。

说一下结构体，过去问过这个问题，现在自己解决

比如：

RECT STRUCT

left dd ?

top dd ?

right dd ? <-----width

bottom dd ?

RECT ENDS

那么先定义：

rect = [0, 0, 0, 0].pack('l4') #4个dword 于是乎使用直接为：

width = rect.unpack('l4')[2]

width, height = rect.unpack('l4')[2..3]

windows下所有的类型是32位 dword。高级语言为了编程方便分出一大堆类型，所以大家在msdn上查到的结构体可以直接按这个方法使用了。

最后说点题外话，我觉得Overture是个不错音乐软件，尽管大多钢琴，不过写谱子的人真多。

下载http://www.popiano.net/dp.htm 。可以导出为midi。压缩包里有导出的几个喜欢的midi，就当是看完这些无聊的文一种安慰。

# ————————————————————————————————————
# 本脚本来自www.66rpg.com，已修给，请保留此信息
# ————————————————————————————————————

class Play_Movie
def initialize(movie,exit_to_game=true)
  @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'
  @movie_name = "Movies/"+movie
  @exit_to_game = exit_to_game
end
def main
  
  game_name = "/0" * 256
  @readini.call('Game','Title','',game_name,255,".//Game.ini")
  game_name.delete!("/0")
  Graphics.transition
  
  @wnd = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L')
  @hWnd = @wnd.call(0,0,nil,game_name)

  @ShowCursor = Win32API.new("user32", "ShowCursor", 'i', 'l')
  @SetCursorPos = Win32API.new("user32", "SetCursorPos", 'i,i', 'l')
  
  @movie = Win32API.new('play','PlayMovieInWindow','%w(l,p)','i')
  @stopm = Win32API.new('play','CloseClip',nil,'V')
  @message = Win32API.new('user32','SendMessage','%w(l,l,l,l)','V')
 # 全屏有待完成
  @detector = Win32API.new('user32','GetSystemMetrics','%w(l)','L')
   #尽管不支持全屏，但是以后还要有的。
    @width = @detector.call(0)
      if @width == 640
        fullscreen
        Graphics.update
        sleep(1)
        Graphics.update
        sleep(1)
        Graphics.update
        sleep(1)
  end
  @message.call(@hWnd,6,1,0)
  Graphics.update
     @ShowCursor.call(0)
     @SetCursorPos.call(-100,-100)#无可奈何的办法
     @counter = @movie.call(@hWnd,@movie_name)

     #p @counter.to_s
  loop do
    sleep(1)
    @message.call(@hWnd,11,0,0)
    Graphics.update
    @message.call(@hWnd,11,1,0)

    Input.update
    if Input.trigger?(Input::B)
      break
    end
    @counter = @counter - 1
    if @counter <= 0
      break
    end
  end
  @stopm.call()
  @Pmovie = true
  if @exit_to_game
    #$scene = $game_map.events.values
    $scene = Scene_Map.new
  else
    $scene = Scene_Title.new
  end 
 # Graphics.freezea
 @message.call(@hWnd,6,1,0)
  if @width == 640
    fullscreen
  end
end
end
def fullscreen()
 $full.call(18,0,0,0)
 $full.call(13,0,0,0)
 $full.call(18,0,2,0)
 $full.call(13,0,2,0)
end
$full = Win32API.new('user32','keybd_event','%w(l,l,l,l)','')