设为首页收藏本站
开启辅助访问 切换到窄版

幻想森林

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
幻想森林»论坛 › 工具区 › AVG制作者专区 › 咱自编的一音乐模式代码,请各位大大帮忙简化. ...
返回列表 发新帖
查看: 1925|回复: 5

[ＮＳ] 咱自编的一音乐模式代码,请各位大大帮忙简化.

[复制链接]
fatiny

24

主题

193

帖子

2239

积分

⑥精研

偶尔做次标题党

积分
2239
发表于 2006-7-20 13:13:11 | 显示全部楼层 |阅读模式
*define

game

*start

bg "img/titleg0.bmp",10,1000
click
bg "img/titleg1.bmp",10,500

*title

waveloop "wav\rain.wav"
*title1
btndef "img\titleg2.bmp"
btn 1,419,332,130,30,419,332
btn 2,442,433,180,33,442,433
btn 3,409,537,80,25,409,537

btnwait2 %0
if %0<=0 goto *title1
if %0==1 goto *start1
if %0==2 goto *musicmode
if %0==3 goto *ex
*start1
end




*musicmode
bg "img\musicmode.bmp"
*musicmodes
btndef "img\musicmodebtn.bmp"
btn 1,442,130,1180,25,442,130
btn 2,442,170,1180,25,442,170
btn 3,442,210,1180,25,442,210
btn 4,442,250,1180,25,442,250
btn 5,442,290,1180,25,442,290
btn 6,442,330,1180,25,442,330
btn 7,442,370,1180,25,442,370
btnwait2 %0
if %0==-1 goto *title
if %0==0 goto *musicmodes
if %0==1 goto *bgm1
if %0==2 goto *bgm2
if %0==3 goto *bgm3
if %0==4 goto *bgm4
if %0==5 goto *bgm5
if %0==6 goto *bgm6
if %0==7 goto *bgm7

*musicmode1
bg "img\musicmode1.bmp"
*musicmode1s
btndef "img\musicmodebtn.bmp"
btn 1,442,130,180,25,442,130
btn 2,442,170,180,25,442,170
btn 3,442,210,180,25,442,210
btn 4,442,250,180,25,442,250
btn 5,442,290,180,25,442,290
btn 6,442,330,180,25,442,330
btn 7,442,370,180,25,442,370
btnwait2 %0
if %0==-1 goto *title
if %0==0 goto *musicmode1s
if %0==1 goto *bgm1
if %0==2 goto *bgm2
if %0==3 goto *bgm3
if %0==4 goto *bgm4
if %0==5 goto *bgm5
if %0==6 goto *bgm6
if %0==7 goto *bgm7

*musicmode2
bg "img\musicmode2.bmp"
*musicmode2s
btndef "img\musicmodebtn.bmp"
btn 1,442,130,180,25,442,130
btn 2,442,170,180,25,442,170
btn 3,442,210,180,25,442,210
btn 4,442,250,180,25,442,250
btn 5,442,290,180,25,442,290
btn 6,442,330,180,25,442,330
btn 7,442,370,180,25,442,370
btnwait2 %0
if %0==-1 goto *title
if %0==0 goto *musicmode2s
if %0==1 goto *bgm1
if %0==2 goto *bgm2
if %0==3 goto *bgm3
if %0==4 goto *bgm4
if %0==5 goto *bgm5
if %0==6 goto *bgm6
if %0==7 goto *bgm7

*musicmode3
bg "img\musicmode3.bmp"
*musicmode3s
btndef "img\musicmodebtn.bmp"
btn 1,442,130,180,25,442,130
btn 2,442,170,180,25,442,170
btn 3,442,210,180,25,442,210
btn 4,442,250,180,25,442,250
btn 5,442,290,180,25,442,290
btn 6,442,330,180,25,442,330
btn 7,442,370,180,25,442,370
btnwait2 %0
if %0==-1 goto *title
if %0==0 goto *musicmode3s
if %0==1 goto *bgm1
if %0==2 goto *bgm2
if %0==3 goto *bgm3
if %0==4 goto *bgm4
if %0==5 goto *bgm5
if %0==6 goto *bgm6
if %0==7 goto *bgm7

*musicmode4
bg "img\musicmode4.bmp"
*musicmode4s
btndef "img\musicmodebtn.bmp"
btn 1,442,130,180,25,442,130
btn 2,442,170,180,25,442,170
btn 3,442,210,180,25,442,210
btn 4,442,250,180,25,442,250
btn 5,442,290,180,25,442,290
btn 6,442,330,180,25,442,330
btn 7,442,370,180,25,442,370
btnwait2 %0
if %0==-1 goto *title
if %0==0 goto *musicmode4s
if %0==1 goto *bgm1
if %0==2 goto *bgm2
if %0==3 goto *bgm3
if %0==4 goto *bgm4
if %0==5 goto *bgm5
if %0==6 goto *bgm6
if %0==7 goto *bgm7

*musicmode5
bg "img\musicmode5s.bmp"
*musicmode5s
btndef "img\musicmodebtn.bmp"
btn 1,442,130,180,25,442,130
btn 2,442,170,180,25,442,170
btn 3,442,210,180,25,442,210
btn 4,442,250,180,25,442,250
btn 5,442,290,180,25,442,290
btn 6,442,330,180,25,442,330
btn 7,442,370,180,25,442,370
btnwait2 %0
if %0==-1 goto *title
if %0==0 goto *musicmode5s
if %0==1 goto *bgm1
if %0==2 goto *bgm2
if %0==3 goto *bgm3
if %0==4 goto *bgm4
if %0==5 goto *bgm5
if %0==6 goto *bgm6
if %0==7 goto *bgm7

*musicmode6
bg "img\musicmode6.bmp"
*musicmode6s
btndef "img\musicmodebtn.bmp"
btn 1,442,130,180,25,442,130
btn 2,442,170,180,25,442,170
btn 3,442,210,180,25,442,210
btn 4,442,250,180,25,442,250
btn 5,442,290,180,25,442,290
btn 6,442,330,180,25,442,330
btn 7,442,370,180,25,442,370
btnwait2 %0
if %0==-1 goto *title
if %0==0 goto *musicmode6s
if %0==1 goto *bgm1
if %0==2 goto *bgm2
if %0==3 goto *bgm3
if %0==4 goto *bgm4
if %0==5 goto *bgm5
if %0==6 goto *bgm6
if %0==7 goto *bgm7

*musicmode7
bg "img\musicmode7.bmp"
*musicmode7s
btndef "img\musicmodebtn.bmp"
btn 1,442,130,180,25,442,130
btn 2,442,170,180,25,442,170
btn 3,442,210,180,25,442,210
btn 4,442,250,180,25,442,250
btn 5,442,290,180,25,442,290
btn 6,442,330,180,25,442,330
btn 7,442,370,180,25,442,370
btnwait2 %0
if %0==-1 goto *title
if %0==0 goto *musicmode7s
if %0==1 goto *bgm1
if %0==2 goto *bgm2
if %0==3 goto *bgm3
if %0==4 goto *bgm4
if %0==5 goto *bgm5
if %0==6 goto *bgm6
if %0==7 goto *bgm7

*bgm1
stop
bgm "bgm\1.mp3"
goto *musicmode1

*bgm2
stop
bgm "bgm\2.mp3"
goto *musicmode2

*bgm3
stop
bgm "bgm\3.mp3"
goto *musicmode3

*bgm4
stop
bgm "bgm\4.mp3"
goto *musicmode4

*bgm5
stop
bgm "bgm\5.mp3"
goto *musicmode5

*bgm6
stop
bgm "bgm\6.mp3"
goto *musicmode6

*bgm7
stop
bgm "bgm\7.mp3"
goto *musicmode7

*ex
end


musicmode1.bmp-musicmode7.bmp的不同是播放中的曲目有底色和下方的歌曲介绍字幕条不同,我知道这样很笨,但是实在懒的JIONG代码OTZ.原谅我吧!神!P.S:按钮坐标是咱口胡的-__,-.
人类只不过是由构成世界的最基本元素构成的构成世界的最基本元素之一而已……
回复

使用道具 举报

sarah707

36

主题

996

帖子

350万

积分

⑧专业

积分
3507413
发表于 2006-7-20 14:38:31 | 显示全部楼层
个人觉得……
*musicmode
bg "img\\musicmode.bmp"
这里……可以用一个变量判定使用哪个背景……
像是if %1==0 bg "img\\musicmode.bmp"
if %1==1 bg "img\\musicmode1.bmp"
然后
if %0==1 goto *bgm1
这里改为
if %0==1 mov %1,1:goto *bgm1
然后从*bgm返回*musicmode……
另外……*bgm那里……也可以用变量简化为一段……
不过……如果觉得复制粘贴也很方便的话……应该也无所谓吧……
回复 支持 反对

使用道具 举报

fatiny

24

主题

193

帖子

2239

积分

⑥精研

偶尔做次标题党

积分
2239
 楼主| 发表于 2006-7-20 14:54:38 | 显示全部楼层
引用第1楼sarah707于2006-07-20 14:38发表的“”:
个人觉得……
*musicmode
bg "imgmusicmode.bmp"
这里……可以用一个变量判定使用哪个背景……
像是if %1==0 bg "imgmusicmode.bmp"
.......

其实大人讲的都有想到过,就是懒病发作没药医-____,-.
现在在口胡着想做播放界面,结果发现似乎很难或不可能实现暂停功能呀- -.
播放完一曲继续播放下一曲的功能正在调试中...
用FOR循环计时然后变量控制播放曲目- -.我真口胡- -...
人类只不过是由构成世界的最基本元素构成的构成世界的最基本元素之一而已……
回复 支持 反对

使用道具 举报

sarah707

36

主题

996

帖子

350万

积分

⑧专业

积分
3507413
发表于 2006-7-20 15:03:26 | 显示全部楼层
想要达成那些功能……用vb做来的比较快…… [s:5]
ns很多地方还是颇rp的……加油吧……


单纯抱怨一下……最近发现lsp的东西一多ns竟然常常都不跳出报错窗口就直接系统错误跳出了……真是………………………………………………
回复 支持 反对

使用道具 举报

fatiny

24

主题

193

帖子

2239

积分

⑥精研

偶尔做次标题党

积分
2239
 楼主| 发表于 2006-7-20 15:09:05 | 显示全部楼层
咱是无良的破解党,最近在拆SANARARA偷学代码-____,-.
结果发现还是没有暂停功能呀OTZ.整个放弃播放界面算了- -.就设置单曲循环或全曲循环- -.
人类只不过是由构成世界的最基本元素构成的构成世界的最基本元素之一而已……
回复 支持 反对

使用道具 举报

fatiny

24

主题

193

帖子

2239

积分

⑥精研

偶尔做次标题党

积分
2239
 楼主| 发表于 2006-7-21 04:04:31 | 显示全部楼层
*musicmode_exbtnmake

    exbtn_d $sys_exstr

    exbtn 101,23,&quot101,1"

    exbtn 102,24,&quot102,1"
    exbtn 103,25,&quot103,1"
    exbtn 104,26,&quot104,1"
    exbtn 105,27,&quot105,1"

    exbtn 131,1,&quot131,1C111C112C113C114C115C116P117C118"
    exbtn 132,2,&quot132,1P111C112C113C114C115C116C117C118"
    exbtn 133,3,&quot133,1P111C112C113C114C115C116C117C118"
    exbtn 134,4,&quot134,1C111C112C113P114C115C116C117C118"
    exbtn 135,5,&quot135,1P111C112C113C114C115C116C117C118"
    exbtn 136,6,"P136,1C111P112C113C114C115C116C117C118"
    exbtn 137,7,"P137,1P111C112C113C114C115C116C117C118"
    exbtn 138,8,"P138,1C111P112C113C114C115C116C117C118"
    exbtn 139,9,"P139,1C111C112P113C114C115C116C117C118"
    exbtn 140,10,"P140,1P111C112C113C114C115C116C117C118"
    exbtn 141,11,"P141,1C111C112C113P114C115C116C117C118"
    exbtn 142,12,"P142,1C111C112C113C114C115P116C117C118"
    exbtn 143,13,"P143,1C111C112P113C114C115C116C117C118"
    exbtn 144,14,"P144,1C111C112C113P114C115C116C117C118"
    exbtn 145,15,"P145,1C111C112C113P114C115C116C117C118"
    exbtn 146,16,"P146,1C111C112C113C114P115C116C117C118"
    exbtn 147,17,"P147,1C111C112C113C114P115C116C117C118"
    exbtn 148,18,"P148,1C111C112C113C114C115P116C117C118"
    exbtn 149,19,"P149,1P111C112C113C114C115C116C117C118"
    exbtn 150,20,"P150,1C111C112C113C114C115P116C117C118"
    exbtn 151,21,"P151,1C111C112P113C114C115C116C117C118"
    exbtn 152,22,"P152,1C111C112C113C114C115C116C117P118"

return




*musicmode_change

   
    if %sys_playing > 22 mov %sys_playing,1
    if %sys_playing < 1 mov %sys_playing,22

return



*musicmode_playing

    if %sys_playing == 1 bgmonce "bgm\\1.mp3"
    if %sys_playing == 2 bgmonce "bgm\\2.mp3"    ;
    if %sys_playing == 3 bgmonce "bgm\\3.mp3"    ;
    if %sys_playing == 4 bgmonce "bgm\\4.mp3"    ;
    if %sys_playing == 5 bgmonce "bgm\\5.mp3"    ;
    if %sys_playing == 6 bgmonce "bgm\\6.mp3"    ;
    if %sys_playing == 7 bgmonce "bgm\\7.mp3"    ;
    if %sys_playing == 8 bgmonce "bgm\\8.mp3"    ;
    if %sys_playing == 9 bgmonce "bgm\\9.mp3"    ;
    if %sys_playing == 10 bgmonce "bgm\\10.mp3"    ;
    if %sys_playing == 11 bgmonce "bgm\\11.mp3"    ;
    if %sys_playing == 12 bgmonce "bgm\\12.mp3"    ;
    if %sys_playing == 13 bgmonce "bgm\\13.mp3"    ;
    if %sys_playing == 14 bgmonce "bgm\\14.mp3"    ;
    if %sys_playing == 15 bgmonce "bgm\\15.mp3"    ;
    if %sys_playing == 16 bgmonce "bgm\\16.mp3"    ;
    if %sys_playing == 17 bgmonce "bgm\\17.mp3"    ;
    if %sys_playing == 18 bgmonce "bgm\\18.mp3"    ;
    if %sys_playing == 19 bgmonce "bgm\\19.mp3"    ;
    if %sys_playing == 20 bgmonce "bgm\\20.mp3"    ;
    if %sys_playing == 21 bgmonce "bgm\\21.mp3"    ;
    if %sys_playing == 22 bgmonce "bgm\\22.mp3"   

    spstr "P131P132P133P134P135P136P137P138P139P140P141P142P143P144P145P146P147P148P149P150P151P152"

    if %sys_playing ==  1 cell 131,1:mov $sys_exstr,"P101P102P103P104P105P131,1C111C112C113C114C115C116P117C118"
    if %sys_playing ==  2 cell 132,1:mov $sys_exstr,"P101P102P103P104P105P132,1P111C112C113C114C115C116C117C118"
    if %sys_playing ==  3 cell 133,1:mov $sys_exstr,"P101P102P103P104P105P133,1P111C112C113C114C115C116C117C118"
    if %sys_playing ==  4 cell 134,1:mov $sys_exstr,"P101P102P103P104P105P134,1C111C112C113P114C115C116C117C118"
    if %sys_playing ==  5 cell 135,1:mov $sys_exstr,"P101P102P103P104P105P135,1P111C112C113C114C115C116C117C118"
    if %sys_playing ==  6 cell 136,1:mov $sys_exstr,"P101P102P103P104P105P136,1C111P112C113C114C115C116C117C118"
    if %sys_playing ==  7 cell 137,1:mov $sys_exstr,"P101P102P103P104P105P137,1P111C112C113C114C115C116C117C118"
    if %sys_playing ==  8 cell 138,1:mov $sys_exstr,"P101P102P103P104P105P138,1C111P112C113C114C115C116C117C118"
    if %sys_playing ==  9 cell 139,1:mov $sys_exstr,"P101P102P103P104P105P139,1C111C112P113C114C115C116C117C118"
    if %sys_playing == 10 cell 140,1:mov $sys_exstr,"P101P102P103P104P105P140,1P111C112C113C114C115C116C117C118"
    if %sys_playing == 11 cell 141,1:mov $sys_exstr,"P101P102P103P104P105P141,1C111C112C113P114C115C116C117C118"
    if %sys_playing == 12 cell 142,1:mov $sys_exstr,"P101P102P103P104P105P142,1C111C112C113C114C115P116C117C118"
    if %sys_playing == 13 cell 143,1:mov $sys_exstr,"P101P102P103P104P105P143,1C111C112P113C114C115C116C117C118"
    if %sys_playing == 14 cell 144,1:mov $sys_exstr,"P101P102P103P104P105P144,1C111C112C113P114C115C116C117C118"
    if %sys_playing == 15 cell 145,1:mov $sys_exstr,"P101P102P103P104P105P145,1C111C112C113P114C115C116C117C118"
    if %sys_playing == 16 cell 146,1:mov $sys_exstr,"P101P102P103P104P105P146,1C111C112C113C114P115C116C117C118"
    if %sys_playing == 17 cell 147,1:mov $sys_exstr,"P101P102P103P104P105P147,1C111C112C113C114P115C116C117C118"
    if %sys_playing == 18 cell 148,1:mov $sys_exstr,"P101P102P103P104P105P148,1C111C112C113C114C115P116C117C118"
    if %sys_playing == 19 cell 149,1:mov $sys_exstr,"P101P102P103P104P105P149,1P111C112C113C114C115C116C117C118"
    if %sys_playing == 20 cell 150,1:mov $sys_exstr,"P101P102P103P104P105P150,1C111C112C113C114C115P116C117C118"
    if %sys_playing == 21 cell 151,1:mov $sys_exstr,"P101P102P103P104P105P151,1C111C112P113C114C115C116C117C118"
    if %sys_playing == 22 cell 152,1:mov $sys_exstr,"P101P102P103P104P105P152,1C111C112C113C114C115C116C117P118"

return



咱真口胡-____,-.有切换曲目功能的播放器- -.暂停功能始终无法实现- -.
人类只不过是由构成世界的最基本元素构成的构成世界的最基本元素之一而已……
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|幻想森林

GMT+8, 2024-5-26 08:59 , Processed in 0.026267 second(s), 20 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表