【原創】節奏遊戲

joe5491 · 发表于 2013-4-4 02:59:35

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

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

x

本帖最后由 joe5491 于 2013-4-5 13:07 编辑

這個就是一個很單純的節拍遊戲，錄譜面的時候，可以從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=[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
end
end

复制代码

黑舞嗜 · 发表于 2013-4-4 09:52:44

支持一下...6R 发布区越来越冷清了...来

chd114 · 发表于 2013-4-4 10:08:53

主要是115的网盘很多人下不了···你传到百度吧···至少那个目前稳定些

joe5491 · 发表于 2013-4-4 10:44:12

已新增百度載點了～

joe5491 · 发表于 2013-4-5 13:10:17

更新了疊加模式，還有Fail判斷，自己用新Code把舊的覆蓋吧...

bilibilimoe · 发表于 2013-5-16 09:28:56

音乐打击类游戏支持一个

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

[原创发布] 【原創】節奏遊戲

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

评分

开拓者