じ☆ve冰风 发表于 2024-4-19 21:21:06

【原創】節奏遊戲

這個就是一個很單純的節拍遊戲,錄譜面的時候,可以從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鍵可以清除錄錯的譜面#======================================================#★ 節奏遊戲 -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= #======================================================class Scene_Mapdef 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!=nil      op=255      case $Hit_pjd          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 || $game_switches          #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    endendalias map_update_hit updatedef update    hit_music    map_update_hitendend复制代码



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