【原創】節奏遊戲

じ☆ve冰风

這個就是一個很單純的節拍遊戲，錄譜面的時候，可以從A~Z還有上下左右鍵都可以（不過別錄太難的譜，不然沒人玩的了...）
還新增的疊加模式，可以把上次錄到一半的譜面，叫出來，從斷掉的地方開始錄。
新增！ 案ESC可以結束MV播放。      如果沒結束播放就F12，會悲劇的....

p.s.如果MV沒聲音的話，請在遊戲中按F5重整即可.......


=============載點==============
Project XD.rar，大小：4.62MB
115网盘：   http://115.com/lb/5lbqdjs3
freakshare：   http://freakshare.com/files/myzqgsmq/Project-XD.rar.html
百度：http://pan.baidu.com/share/link?shareid=393243&uk=2553703133

video.rar，大小：65.80MB
115网盘：   http://115.com/lb/5lbqdab1
freakshare：   http://freakshare.com/files/htbxj5f1/video.rar.html
百度：http://pan.baidu.com/share/link?shareid=393249&uk=2553703133

下載後請把video.rar解壓縮，放進遊戲目錄下的Audio/video/裡面，即可使用。
=============載點==============



阿！對了，裡面內建的譜面是亂錄的......別在意.....   
p.s.打完後按F12回標題

更新的Code疊加模式按住Del鍵可以清除錄錯的譜面

1. #======================================================#★ 節奏遊戲 -by joe59491#======================================================#========參數設定======================================$Hit_Control   = 9  #錄譜開關，打開為錄譜模式，關閉為播放模式$Hit_Control2 = 10  #疊加開關，打開為疊加模式，關閉為播放模式$Hit_Playing   = 12  #播放中開關，播放中為On，否則Off$Hit_Cool       = 103  #Cool動畫編號$Hit_Good      = 104  #Good動畫編號$Hit_Fail         = 105  #Fail動畫編號#======================================================#========參數歸零======================================$Hit_pjd=[0] #======================================================class Scene_Map  def hit_music#    Graphics.frame_rate = 60    if $Hit_fls!=nil    $game_switches[$Hit_Playing] = true    $Hit_fls.z=-1    if $Hit_k!=$Hit_fls.current_frame      $Hit_fls.update      $Hit_stop=0    else      $Hit_stop+=1    end    if $Hit_k < $Hit_fls.current_frame      $Hit_k=$Hit_fls.current_frame    end    $Hit_fwin.contents.clear    $Hit_fwin.contents.font.size = 20    op=0;    $Hit_fwin.contents.font.color = Color.new(255,255,0,255)    $Hit_fwin.contents.draw_text(10, 0, 212, 32,"C: "+$Hit_c.to_s, 0)    $Hit_fwin.contents.font.color = Color.new(0,255,0,255)    $Hit_fwin.contents.draw_text(110, 0, 212, 32,"G: "+$Hit_g.to_s, 0)    $Hit_fwin.contents.font.color = Color.new(127,127,127,255)    $Hit_fwin.contents.draw_text(210, 0, 212, 32,"F: "+$Hit_f.to_s, 0)    $Hit_fwin.contents.font.color = Color.new(255,255,255,255)    $Hit_fwin.contents.draw_text(360, 0, 212, 32,"Combo: "+$Hit_co.to_s, 0)    $Hit_fwin.contents.draw_text(0, 438, 212, 32,$Hit_np.to_s, 0)    #$fwin.contents.font.name = "Arial"    $Hit_fwin.contents.font.size = 25    ndpress='?'    pp=1    for i in $Hit_k..$Hit_k + 60#50      if $Hit_pjd[i]!=nil        op=255        case $Hit_pjd[i]          when 37          ndpress='←'          when 38          ndpress='↑'          when 39          ndpress='→'          when 40          ndpress='↓'          when 65          ndpress='A'          when 66          ndpress='B'          when 67          ndpress='C'          when 68          ndpress='D'          when 69          ndpress='E'          when 70          ndpress='F'          when 71          ndpress='G'          when 72          ndpress='H'          when 73          ndpress='I'          when 74          ndpress='J'          when 75          ndpress='K'          when 76          ndpress='L'          when 77          ndpress='M'          when 78          ndpress='N'          when 79          ndpress='O'          when 80          ndpress='P'          when 81          ndpress='Q'          when 82          ndpress='R'          when 83          ndpress='S'          when 84          ndpress='T'          when 85          ndpress='U'          when 86          ndpress='V'          when 87          ndpress='W'          when 88          ndpress='X'          when 89          ndpress='Y'          when 90          ndpress='Z'          end        else          op -= 255        end          if ndpress !='?' and pp==1          #bitmap=Bitmap.new("Graphics/Pictures/"+ndpress+".png")          #src_rect = Rect.new(0, 0, 32, 32)          #$fwin.contents.blt(570, 420, bitmap,src_rect)          $Hit_fwin.contents.font.color = Color.new(255,255,255,255)          $Hit_fwin.contents.draw_text(570, 420, 212, 32,ndpress, 0)          pp=0        end        if op==255       if !$game_switches[9] || $game_switches[10]          #bitmap=Bitmap.new("Graphics/Pictures/"+ndpress+".png")         #src_rect = Rect.new(0, 0, 32, 32)         #$fwin.contents.blt(570-12*(i-$k), 420, bitmap,src_rect)                  #$fwin.contents.font.color = Color.new(127,127,127,255)  #       $fwin.contents.font.color = Color.new(255,127,127,255)    #     $fwin.contents.draw_text(570-10*(i-$k)+1, 420, 212, 32,ndpress, 0)      #   $fwin.contents.draw_text(570-10*(i-$k)-1, 420, 212, 32,ndpress, 0)        # $fwin.contents.draw_text(570-10*(i-$k), 420+1, 212, 32,ndpress, 0)        # $fwin.contents.draw_text(570-10*(i-$k), 420-1, 212, 32,ndpress, 0)           $Hit_fwin.contents.font.color = Color.new(255,0,0,255)          $Hit_fwin.contents.draw_text(570-10*(i-$Hit_k), 420, 212, 32,ndpress, 0)       end        end      end      press=0      for i in 37..40        if Kboard.trigger?(i)          press=i        end      end      for i in 65..90        if Kboard.trigger?(i)          press=i        end      end      if press != 0 #and $k-$key>2        if !$game_switches[$Hit_Control]          $Hit_key=$Hit_k          if$Hit_pjd[$Hit_key]==press            $game_player.animation_id = $Hit_Cool            $Hit_pjd[$Hit_key]=nil            $Hit_c+=1            $Hit_co+=1            $Hit_np+=$Hit_co*10 + 300          elsif $Hit_pjd[$Hit_key]!=nil            $game_player.animation_id = $Hit_Fail            $Hit_pjd[$Hit_key]=nil            $Hit_f+=1            $Hit_co=0          elsif$Hit_pjd[$Hit_key+1]==press            $game_player.animation_id = $Hit_Cool            $Hit_pjd[$Hit_key+1]=nil            $Hit_c+=1            $Hit_co+=1            $Hit_np+=$Hit_co*10 +300          elsif $Hit_pjd[$Hit_key+1]!=nil            $game_player.animation_id = $Hit_Fail            $Hit_pjd[$Hit_key+1]=nil            $Hit_f+=1            $Hit_co=0          elsif$Hit_pjd[$Hit_key-1]==press            $game_player.animation_id = $Hit_Cool            $Hit_pjd[$Hit_key-1]=nil            $Hit_c+=1            $Hit_co+=1            $Hit_np+=$Hit_co*10 +300          elsif$Hit_pjd[$Hit_key-1]!=nil            $game_player.animation_id = $Hit_Fail            $Hit_pjd[$Hit_key-1]=nil            $Hit_f+=1            $Hit_co=0          elsif$Hit_pjd[$Hit_key+2]==press            $game_player.animation_id = $Hit_Good            $Hit_pjd[$Hit_key+2]=nil            $Hit_g+=1            $Hit_co+=1            $Hit_np+=$Hit_co*5 +100          elsif$Hit_pjd[$Hit_key+2]!=nil            $game_player.animation_id = $Hit_Fail            $Hit_pjd[$Hit_key+2]=nil            $Hit_f+=1            $Hit_co=0          elsif$Hit_pjd[$Hit_key-2]==press            $game_player.animation_id = $Hit_Good            $Hit_pjd[$Hit_key-2]=nil            $Hit_g+=1            $Hit_co+=1            $Hit_np+=$Hit_co*5 +100          elsif$Hit_pjd[$Hit_key-2]!=nil            $game_player.animation_id = $Hit_Fail            $Hit_pjd[$Hit_key-2]=nil            $Hit_f+=1            $Hit_co=0          elsif$Hit_pjd[$Hit_key+3]==press            $game_player.animation_id = $Hit_Fail            $Hit_pjd[$Hit_key+3]=nil            $Hit_f+=1            $Hit_co=0          else            #$game_player.animation_id = 105            #$f+=1            #$co=0          end        else          $Hit_pjd[$Hit_k]=press            $game_player.animation_id = $Hit_Cool            $Hit_c+=1            $Hit_co+=1            $Hit_np+=$Hit_co*10 +300        end      end      if !$game_switches[$Hit_Control]        if $Hit_k > 3         if $Hit_pjd[$Hit_k-3]            $game_player.animation_id = 105            $Hit_pjd[$Hit_k-3]=nil            $Hit_f+=1            $Hit_co=0          end        end      end      if $Hit_stop>10 || Kboard.trigger?($R_Key_F5)        $Hit_fls.dispose          $Hit_fls=nil        $Hit_fls=RMFlash.load("Audio/video/"+$Hit_so+".swf",640,480)        $Hit_fls.goto_frame($Hit_k)        $Hit_fls.x = 0        $Hit_fls.y = 0        $Hit_fls.z = -1        $Hit_fls.loop = 0      end      if Kboard.press?($R_Key_DELETE) and $game_switches[$Hit_Control2]        $Hit_pjd[$Hit_k]=nil      end      if Kboard.trigger?( $R_Key_ESCAPE) or $Hit_fls.total_frames==$Hit_fls.current_frame+1#||!$fls.playing?        if $game_switches[$Hit_Control]          file = File.open("PJDV/"+$Hit_so+".rxdata", "wb")          Marshal.dump($Hit_pjd, file)          file.close        end        p "完畢!   按F12回標題"        $Hit_fls.dispose        $Hit_fls=nil        $game_switches[$Hit_Playing] = false        #$game_temp.common_event_id = 12        $Hit_fwin.dispose      end    end  end  alias map_update_hit update  def update    hit_music    map_update_hit  endend复制代码

复制代码

             本帖来自P1论坛作者joe5491，因Project1站服务器在国外有时候访问缓慢不方便作者交流学习，经联系P1站长fux2同意署名转载一起分享游戏制作经验，共同为国内独立游戏作者共同创造良好交流环境，原文地址：https://rpg.blue/forum.php?mod=viewthread&tid=303704  若有侵权，发帖作者可联系底部站长QQ在线咨询功能删除，谢谢。