【RMXP】仿卫星地图大地图【懒人莫用】

弗雷德 · 发表于 2013-3-6 01:15:34

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

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

x

本帖最后由弗雷德于 2013-5-25 12:56 编辑

功能其实很简单，就是一个大地图类，脚本还不到200行。但是要配合美工才能有比较好的效果，所以说懒人勿用。

地图需要自己绘制，小地图也是，地名也是，聚焦坐标需要自己计算……总之懒人勿用！

效果大概就是：玩家按左右移动竖线，按上下移动横线，当纵贯线的交点坐标与最近的圆点距离在X值之内时，会自动聚焦，

按下确定键进行场所移动。设置方法在脚本都有写。

下面是俺游戏中的效果，总之美化靠自己：懒人勿用

下载地址：戳这里

提取码：znle

俺很少发布技术，因为俺的东西都需要美工的配合，而且都不是插件类。

最后：懒人勿用！

弗雷德 · 发表于 2013-3-6 12:44:35

这么说吧，俺以前上班的地儿天天路过金钟墓园，印象不深刻不行啊。

stevenrock · 发表于 2013-3-6 15:26:34

这个挺不错的，能否请教一下，大地图是用什么方法绘制的呢？

月下耶鲁夫 · 发表于 2013-3-6 19:45:28

“懒人勿用”戳中萌点~
来给大叔顶一下，感觉很有创意

aa479094467 · 发表于 2013-3-8 19:30:50

有点像使命召唤的加载动画效果

羞射了 · 发表于 2013-3-8 19:37:40

本帖最后由羞射了于 2013-3-8 22:05 编辑

额，和我想象得不太一样啊，我记得那个啥夜啥曲的是不是也有类似的效果？？我想象中是这个样子的。

TXT 代码复制

ALLMAP = 1 #记录已开启地图的变量的ID。

FR  = 20 #聚焦半径，当交叉点的坐标离地图目标距离在20个像素以内时，会自动移动靠近。

module SATEMAP

  #定义目标地图，举例：

  #TAGMAP[1] = [400，139，14，4，8]

  #1表示地图ID，400和139表示点在大地图上的坐标，14和4表示场所移动后的坐标。8是朝向。

  #也就是说，当横轴与纵轴的交叉点坐标为400,139时，玩家按下确定键，角色就会面朝上移动到

  #1号地图坐标为14，4的地点。

  TAGMAP = []

  TAGMAP[0] = [0,0,0,0,0,0]

  TAGMAP[1] = [0,0,0,0,0,0]

  TAGMAP[2] = [97,149,1,7,6,2]#森林，面朝右

  TAGMAP[3] = [319,270,1,22,6,3]#山村，面朝右

  TAGMAP[4] = [209,97,5,28,8,4]#沉默，面朝上

  TAGMAP[5] = [565,328,10,1,2,5]#悬崖，面朝下

  TAGMAP[6] = [505,84,1,9,6,6]#极北，面朝右

  TAGMAP[7] = [395,136,1,9,6,7]#体内，面朝右

  TAGMAP[8] = [477,206,20,30,8,8]#海港，面朝上

  TAGMAP[9] = [453,341,11,32,8,9]#深渊，面朝上

end

#==============================================================================

# ■ Scene_Satellite

#------------------------------------------------------------------------------

# 　处理卫星地图画面

#==============================================================================

class Scene_Satellite

  #--------------------------------------------------------------------------

  # ● 初始化对像

  #--------------------------------------------------------------------------

  def initialize

    @allmap_id = $game_variables[ALLMAP]

    @focus = 0

    @map_id = $game_map.map_id

 
    [url=home.php?mod=space&uid=36110]@Wait[/url] = 0

    @scroll_time = 8

    @m_real   = [nil,nil]

    @m_target = [nil,nil]

    @m_gap    = [nil,nil]

    @tgm = SATEMAP::TAGMAP.dup

    while @tgm[0][5] == 0

      @tgm.shift

    end

    @index = @tgm.index(SATEMAP::TAGMAP[@map_id]) 

  end

  #--------------------------------------------------------------------------

  # ● 主处理

  #--------------------------------------------------------------------------

  def main

    # 创建背景

    @back = Sprite.new

    @back.bitmap = Bitmap.new("Graphics/Systems/back")

    # 创建X轴

    @mm_x = Sprite.new

    @mm_x.bitmap = Bitmap.new("Graphics/Systems/mm_x")

    @mm_x.y = SATEMAP::TAGMAP[@map_id][1]

    # 创建Y轴

    @mm_y = Sprite.new

    @mm_y.bitmap = Bitmap.new("Graphics/Systems/mm_y")

    @mm_y.x = SATEMAP::TAGMAP[@map_id][0]

    # 创建地点缩略图

    @mm_icon = Sprite.new

    @mm_icon.bitmap = Bitmap.new("Graphics/Systems/Icon/"+@map_id.to_s)

    @mm_icon.x = 15

    @mm_icon.y = 232

 
    # 创建地名

    @mm_name = Sprite.new

    @mm_name.bitmap = Bitmap.new("Graphics/Systems/Name/"+@map_id.to_s)

    @mm_name.x = 60

    @mm_name.y = 380

     # 执行过度

    Graphics.transition(30, "Graphics/Transitions/019-Whorl01" )

    # 主循环

    loop do

      # 刷新游戏画面

      Graphics.update

      # 刷新输入信息

      Input.update

      # 刷新画面

      update

      # 如果画面切换就中断循环

      if $scene != self

        break

      end

    end

    # 装备过渡

    Graphics.freeze

    # 释放窗口

    @back.dispose

    @mm_x.dispose

    @mm_y.dispose

    @mm_name.dispose

    @mm_icon.dispose

  end

 
  def auto_scroll

    for i in 0..1

      @m_real[i] = (@wait > 1)?(@m_target[i] - @m_gap[i] * (@wait ** 2) / (@scroll_time ** 2)):@m_target[i]

    end

    @mm_y.x,@mm_x.y = @m_real[0],@m_real[1]

    @wait -= 1

  end

  #--------------------------------------------------------------------------

  # ● 刷新画面

  #--------------------------------------------------------------------------

  def update

    if @wait > 0

      auto_scroll

      return

    end

 
    if @map_id != @tgm[@index][5]

     @map_id = @tgm[@index][5]

    @mm_icon.bitmap = Bitmap.new("Graphics/Systems/Icon/"+@map_id.to_s)

    @mm_name.bitmap = Bitmap.new("Graphics/Systems/Name/"+@map_id.to_s)

    end

  #  disjudge

    # 按下 X 键的情况下

    if Input.trigger?(Input::B) 

      # 演奏取消 SE

     $game_system.se_play($data_system.cancel_se)

     $scene = Scene_Map.new

      return

    end

#========================================================

    if Input.press?(Input::LEFT)

     old = @tgm[@index]

     @tgm.sort!{|a,b| a[0] - b[0]} 

     @index = @tgm.index(old) 

     @wait = @scroll_time

     @m_real[0],@m_real[1] = @tgm[@index][0],@tgm[@index][1]

     if @index == 0

      x,y = @tgm[@tgm.size - 1][0],@tgm[@tgm.size - 1][1]

      @index = @tgm.size - 1

    else

      x,y = @tgm[@index - 1][0],@tgm[@index - 1][1]

      @index = @index - 1

    end

 
    @m_target = [x,y]

    for i in 0..1

      @m_gap[i] = @m_target[i] - @m_real[i]

    end

 
  end

#========================================================

    if Input.press?(Input::RIGHT)

     old = @tgm[@index]

     @tgm.sort!{|a,b| a[0] - b[0]} 

     @index = @tgm.index(old) 

     @wait = @scroll_time

     @m_real[0],@m_real[1] = @tgm[@index][0],@tgm[@index][1]

     if @index == @tgm.size - 1

      x,y = @tgm[0][0],@tgm[0][1]

      @index = 0

    else

      x,y = @tgm[@index + 1][0],@tgm[@index + 1][1]

      @index = @index + 1

    end

 
    @m_target = [x,y]

    for i in 0..1

      @m_gap[i] = @m_target[i] - @m_real[i]

    end

 
  end

#========================================================

 
#========================================================

    if Input.press?(Input::UP) 

     old = @tgm[@index]

     @tgm.sort!{|a,b| a[1] - b[1]} 

     @index = @tgm.index(old) 

     @wait = @scroll_time

     @m_real[0],@m_real[1] = @tgm[@index][0],@tgm[@index][1]

     if @index == 0

      x,y = @tgm[@tgm.size - 1][0],@tgm[@tgm.size - 1][1]

      @index = @tgm.size - 1

    else

      x,y = @tgm[@index - 1][0],@tgm[@index - 1][1]

      @index = @index - 1

    end

 
    @m_target = [x,y]

    for i in 0..1

      @m_gap[i] = @m_target[i] - @m_real[i]

    end

 
  end

#========================================================

    if Input.press?(Input::DOWN)

     old = @tgm[@index]

     @tgm.sort!{|a,b| a[1] - b[1]} 

     @index = @tgm.index(old) 

     @wait = @scroll_time

     @m_real[0],@m_real[1] = @tgm[@index][0],@tgm[@index][1]

     if @index == @tgm.size - 1

      x,y = @tgm[0][0],@tgm[0][1]

      @index = 0

    else

      x,y = @tgm[@index + 1][0],@tgm[@index + 1][1]

      @index = @index + 1

    end

 
    @m_target = [x,y]

    for i in 0..1

      @m_gap[i] = @m_target[i] - @m_real[i]

    end

 
  end

#========================================================   

 
    if Input.trigger?(Input::C) 

    #  if @tag_lock 

      $game_system.se_play($data_system.decision_se)

      $game_screen.start_tone_change(Tone.new(-255,-255,-255,0), 0)

      $scene = Scene_Map.new

      $game_temp.player_transferring = true

      $game_temp.player_new_map_id = @map_id

      $game_temp.player_new_x=SATEMAP::TAGMAP[@map_id][2]

      $game_temp.player_new_y=SATEMAP::TAGMAP[@map_id][3]

      $game_temp.player_new_direction = SATEMAP::TAGMAP[@map_id][4]  

      $game_screen.start_tone_change(Tone.new(0,0,0,0), 10)

 
  end

 
  end

 
end

ALLMAP = 1 #记录已开启地图的变量的ID。



FR  = 20 #聚焦半径，当交叉点的坐标离地图目标距离在20个像素以内时，会自动移动靠近。



module SATEMAP



  #定义目标地图，举例：



  #TAGMAP[1] = [400，139，14，4，8]



  #1表示地图ID，400和139表示点在大地图上的坐标，14和4表示场所移动后的坐标。8是朝向。



  #也就是说，当横轴与纵轴的交叉点坐标为400,139时，玩家按下确定键，角色就会面朝上移动到



  #1号地图坐标为14，4的地点。



  TAGMAP = []



  TAGMAP[0] = [0,0,0,0,0,0]



  TAGMAP[1] = [0,0,0,0,0,0]



  TAGMAP[2] = [97,149,1,7,6,2]#森林，面朝右



  TAGMAP[3] = [319,270,1,22,6,3]#山村，面朝右



  TAGMAP[4] = [209,97,5,28,8,4]#沉默，面朝上



  TAGMAP[5] = [565,328,10,1,2,5]#悬崖，面朝下



  TAGMAP[6] = [505,84,1,9,6,6]#极北，面朝右



  TAGMAP[7] = [395,136,1,9,6,7]#体内，面朝右



  TAGMAP[8] = [477,206,20,30,8,8]#海港，面朝上



  TAGMAP[9] = [453,341,11,32,8,9]#深渊，面朝上



end



#==============================================================================



# ■ Scene_Satellite



#------------------------------------------------------------------------------



# 　处理卫星地图画面



#==============================================================================



class Scene_Satellite



  #--------------------------------------------------------------------------



  # ● 初始化对像



  #--------------------------------------------------------------------------



  def initialize



    @allmap_id = $game_variables[ALLMAP]



    @focus = 0



    @map_id = $game_map.map_id



 


    [url=home.php?mod=space&uid=36110]@Wait[/url] = 0



    @scroll_time = 8



    @m_real   = [nil,nil]



    @m_target = [nil,nil]



    @m_gap    = [nil,nil]



    @tgm = SATEMAP::TAGMAP.dup



    while @tgm[0][5] == 0



      @tgm.shift



    end



    @index = @tgm.index(SATEMAP::TAGMAP[@map_id]) 



  end



  #--------------------------------------------------------------------------



  # ● 主处理



  #--------------------------------------------------------------------------



  def main



    # 创建背景



    @back = Sprite.new



    @back.bitmap = Bitmap.new("Graphics/Systems/back")



    # 创建X轴



    @mm_x = Sprite.new



    @mm_x.bitmap = Bitmap.new("Graphics/Systems/mm_x")



    @mm_x.y = SATEMAP::TAGMAP[@map_id][1]



    # 创建Y轴



    @mm_y = Sprite.new



    @mm_y.bitmap = Bitmap.new("Graphics/Systems/mm_y")



    @mm_y.x = SATEMAP::TAGMAP[@map_id][0]



    # 创建地点缩略图



    @mm_icon = Sprite.new



    @mm_icon.bitmap = Bitmap.new("Graphics/Systems/Icon/"+@map_id.to_s)



    @mm_icon.x = 15



    @mm_icon.y = 232



 


    # 创建地名



    @mm_name = Sprite.new



    @mm_name.bitmap = Bitmap.new("Graphics/Systems/Name/"+@map_id.to_s)



    @mm_name.x = 60



    @mm_name.y = 380



     # 执行过度



    Graphics.transition(30, "Graphics/Transitions/019-Whorl01" )



    # 主循环



    loop do



      # 刷新游戏画面



      Graphics.update



      # 刷新输入信息



      Input.update



      # 刷新画面



      update



      # 如果画面切换就中断循环



      if $scene != self



        break



      end



    end



    # 装备过渡



    Graphics.freeze



    # 释放窗口



    @back.dispose



    @mm_x.dispose



    @mm_y.dispose



    @mm_name.dispose



    @mm_icon.dispose



  end



 


  def auto_scroll



    for i in 0..1



      @m_real[i] = (@wait > 1)?(@m_target[i] - @m_gap[i] * (@wait ** 2) / (@scroll_time ** 2)):@m_target[i]



    end



    @mm_y.x,@mm_x.y = @m_real[0],@m_real[1]



    @wait -= 1



  end



  #--------------------------------------------------------------------------



  # ● 刷新画面



  #--------------------------------------------------------------------------



  def update



    if @wait > 0



      auto_scroll



      return



    end



 


    if @map_id != @tgm[@index][5]



     @map_id = @tgm[@index][5]



    @mm_icon.bitmap = Bitmap.new("Graphics/Systems/Icon/"+@map_id.to_s)



    @mm_name.bitmap = Bitmap.new("Graphics/Systems/Name/"+@map_id.to_s)



    end



  #  disjudge



    # 按下 X 键的情况下



    if Input.trigger?(Input::B) 



      # 演奏取消 SE



     $game_system.se_play($data_system.cancel_se)



     $scene = Scene_Map.new



      return



    end



#========================================================



    if Input.press?(Input::LEFT)



     old = @tgm[@index]



     @tgm.sort!{|a,b| a[0] - b[0]} 



     @index = @tgm.index(old) 



     @wait = @scroll_time



     @m_real[0],@m_real[1] = @tgm[@index][0],@tgm[@index][1]



     if @index == 0



      x,y = @tgm[@tgm.size - 1][0],@tgm[@tgm.size - 1][1]



      @index = @tgm.size - 1



    else



      x,y = @tgm[@index - 1][0],@tgm[@index - 1][1]



      @index = @index - 1



    end



 


    @m_target = [x,y]



    for i in 0..1



      @m_gap[i] = @m_target[i] - @m_real[i]



    end



 


  end



#========================================================



    if Input.press?(Input::RIGHT)



     old = @tgm[@index]



     @tgm.sort!{|a,b| a[0] - b[0]} 



     @index = @tgm.index(old) 



     @wait = @scroll_time



     @m_real[0],@m_real[1] = @tgm[@index][0],@tgm[@index][1]



     if @index == @tgm.size - 1



      x,y = @tgm[0][0],@tgm[0][1]



      @index = 0



    else



      x,y = @tgm[@index + 1][0],@tgm[@index + 1][1]



      @index = @index + 1



    end



 


    @m_target = [x,y]



    for i in 0..1



      @m_gap[i] = @m_target[i] - @m_real[i]



    end



 


  end



#========================================================



 


#========================================================



    if Input.press?(Input::UP) 



     old = @tgm[@index]



     @tgm.sort!{|a,b| a[1] - b[1]} 



     @index = @tgm.index(old) 



     @wait = @scroll_time



     @m_real[0],@m_real[1] = @tgm[@index][0],@tgm[@index][1]



     if @index == 0



      x,y = @tgm[@tgm.size - 1][0],@tgm[@tgm.size - 1][1]



      @index = @tgm.size - 1



    else



      x,y = @tgm[@index - 1][0],@tgm[@index - 1][1]



      @index = @index - 1



    end



 


    @m_target = [x,y]



    for i in 0..1



      @m_gap[i] = @m_target[i] - @m_real[i]



    end



 


  end



#========================================================



    if Input.press?(Input::DOWN)



     old = @tgm[@index]



     @tgm.sort!{|a,b| a[1] - b[1]} 



     @index = @tgm.index(old) 



     @wait = @scroll_time



     @m_real[0],@m_real[1] = @tgm[@index][0],@tgm[@index][1]



     if @index == @tgm.size - 1



      x,y = @tgm[0][0],@tgm[0][1]



      @index = 0



    else



      x,y = @tgm[@index + 1][0],@tgm[@index + 1][1]



      @index = @index + 1



    end



 


    @m_target = [x,y]



    for i in 0..1



      @m_gap[i] = @m_target[i] - @m_real[i]



    end



 


  end



#========================================================   



 


    if Input.trigger?(Input::C) 



    #  if @tag_lock 



      $game_system.se_play($data_system.decision_se)



      $game_screen.start_tone_change(Tone.new(-255,-255,-255,0), 0)



      $scene = Scene_Map.new



      $game_temp.player_transferring = true



      $game_temp.player_new_map_id = @map_id



      $game_temp.player_new_x=SATEMAP::TAGMAP[@map_id][2]



      $game_temp.player_new_y=SATEMAP::TAGMAP[@map_id][3]



      $game_temp.player_new_direction = SATEMAP::TAGMAP[@map_id][4]  



      $game_screen.start_tone_change(Tone.new(0,0,0,0), 10)



 


  end



 


  end



 


end

弗雷德 · 发表于 2013-3-9 07:20:28

本帖最后由弗雷德于 2013-3-9 07:21 编辑

羞射了发表于 2013-3-8 19:37
额，和我想象得不太一样啊，我记得那个啥夜啥曲的是不是也有类似的效果？？我想象中是这个样子的。

ALLMAP ...

俺这个是模仿丧尸危机的，跟你那个效果不大一样呃。

紫英晓狼1130 · 发表于 2013-3-9 08:09:34

这是熊叔的技术~才知道~
顶一下~
看起来效果超棒~

东野青龙 · 发表于 2013-3-9 08:29:06

Nice!

精灵使者 · 发表于 2013-3-9 11:10:53

我想起了幻世录2的那种大地图风格哦呵呵呵……
我还以为卫星地图什么的就类似于我以前那种呢。

帐号		自动登录	找回密码
密码			注册会员

[原创发布] 【RMXP】仿卫星地图大地图【懒人莫用】

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

点评

评分

点评

点评

点评

贵宾

开拓者

整合系统大赛RMVX达人

剧作品鉴家