;cg by xddd1xd񲻻ɣǺǡ


*definecgmode ;defineڼgosub *definecgmode
defsub cgget    ;ȡcg͵ĽͼƬ
filelog

defsub cgget2  ;ȡÿcgͼƬûе"none"
defsub cgget3  ;ͼƬָ
defsub cgcheck2  ;ÿͼƬǷ

numalias bgmplay,888   ;Լ
numalias bgmplaying,889 ;Ƿڲ
return


*bgmplaya
mov %bgmplaying,1
if %bgmplay = 22 mov %bgmplay,1  ;ʵһһͷʱûʱν˼
if %bgmplay = 0 mov %bgmplay,21
itoa $bgmplay,%bgmplay
if %bgmplay < 10 mov $bgmplay,"0"+$bgmplay
bgm "bgm/m"+$bgmplay+".ogg"
return



*cgmode
mov %0,1 ;ҳʼ
mov %bgmplay,1:mov %bgmplaying,1

*gl_page1 ;һҳ
lsp 100,"mgd/ex_cg.png",0,0  ;

cgget "cgbtn1_1","cgbtn1_2","cgbtn1_3","cgbtn1_4","cgbtn1_5","cgbtn1_6","cgbtn1_7","cgbtn1_8","cgbtn1_9","cgbtn1_10","cgbtn1_11","cgbtn1_12","cgbtn1_13","cgbtn1_14","cgbtn1_15","cgbtn1_16"
goto *gl_btn



*gl_page2 ;ڶҳ
lsp 100,"mgd/ex_cg.png",0,0

cgget "cgbtn2_1","cgbtn2_2","cgbtn2_3","cgbtn2_4","none","none","none","none","none","none","none","none","none","none","none","none"


*gl_btn
lsp 99,":a/5,0,3;system/cg/memo.png",30,530 ;˳ť
lsp 98,"system/cg/1.png",710,110
lsp 97,"system/cg/2.png",735,110
lsp 96,"system/cg/a.png",310,65
lsp 95,"system/cg/b.png",310+45,65
lsp 94,"system/cg/c.png",310+45*2,65
lsp 93,"system/cg/d.png",310+45*3,65

print 1

exbtn 99,1,"P99,1"
if %0 = 2 spbtn 98,2
if %0 = 1 spbtn 97,3
spbtn 96,4
if %bgmplaying = 0 spbtn 95,5
if %bgmplaying = 1 spbtn 94,6
spbtn 93,7
exbtn_d "P74-P89C54-69P99,0"
btnwait %5
if %5 = -1 || %5 = 1 goto *gl_end
if %5 = 2 mov %0,1:gosub *gl_end:goto *gl_page1  ;ҳ
if %5 = 3 mov %0,2:gosub *gl_end:goto *gl_page2
if %5 = 4 sub %bgmplay,1:gosub *bgmplaya:goto *gl_btn
if %5 = 5 gosub *bgmplaya:goto *gl_btn
if %5 = 6 bgmstop:mov %bgmplaying,0:goto *gl_btn
if %5 = 7 add %bgmplay,1:gosub *bgmplaya:goto *gl_btn
for %1 = 1 to 4   ;cgͼƬť
   for %2 = 1 to 4
      if %5 = (%2-1)*4+%1+10 cgget2 $%5:gosub *cgview:break  ;ȡcgԻȡӦϵcgҽʾģʽ
   next
next
if %0 = 1 goto *gl_page1
if %0 = 2 goto *gl_page2
;ǺĴ_
*cgget   
getparam $11,$12,$13,$14,$15,$16,$17,$18,$19,$20,$21,$22,$23,$24,$25,$26
for %1 = 1 to 4  ;
   for %2 = 1 to 4  ;
       mov %3,(%2-1)*4+%1+10 ;ͼƬӦ
       if $%3 = "none" jumpf ;cgͼƬֱ
       cgget2 $%3  ;ȡӦͼƬһϵcg
       cgcheck2      ;ϵcgͼƬѻȡ
       if %%3 = 0 lsp 100-%3,"system/cg/cgbtn1_00b.png",220+140*(%1-1),170+100*(%2-1):jumpf   ;ͼƬΪ0ʾno image
       lsp 100-%3,"system/cg/"+$%3+"a.png",220+140*(%1-1),170+100*(%2-1) ;ʾӦcgͼƬ·޸ģ
       lsph 80-%3,"system/cg/"+$%3+"b.png",220+140*(%1-1),170+100*(%2-1) 
       itoa $%3,100-%3:mov %4,%3+20:itoa $%4,80-%3  ;תť
       exbtn 100-%3,%3,"C"+$%3+"P"+$%4   ;尴ť
       ~
    next
next  ;ѭ
return

*cgget2   ;ÿcgͼƬļ
getparam $1
if %0 = 2 jumpf
if $1=$11 cgget3 "ev01","ev01p1"
if $1=$12 cgget3 "ev02","ev02p1"
if $1=$13 cgget3 "ev03","ev03p1"
if $1=$14 cgget3 "ev04","ev04p1"
if $1=$15 cgget3 "ev05","ev05p1"
if $1=$16 cgget3 "ev06","ev06p1"
if $1=$17 cgget3 "ev07","ev07p1"
if $1=$18 cgget3 "ev08","ev08p1"
if $1=$19 cgget3 "ev09","ev09p1"
if $1=$20 cgget3 "ev10","ev10p1"
if $1=$21 cgget3 "ev11","ev11p1"
if $1=$22 cgget3 "ev12","ev12p1"
if $1=$23 cgget3 "ev13","ev13p1"
if $1=$24 cgget3 "ev14","ev14p1"
if $1=$25 cgget3 "ev15","ev15p1"
if $1=$26 cgget3 "ev16","ev16p1"
return
~
if $1=$11 cgget3 "ev17","ev17p1"
if $1=$12 cgget3 "ev18","ev18p1"
if $1=$13 cgget3 "ev19","ev19p1"
if $1=$14 cgget3 "ev20","ev20p1"
if $1=$15 cgget3 "none","none"
if $1=$16 cgget3 "none","none"
if $1=$17 cgget3 "none","none"
if $1=$18 cgget3 "none","none"
if $1=$19 cgget3 "none","none"
if $1=$20 cgget3 "none","none"
if $1=$21 cgget3 "none","none"
if $1=$22 cgget3 "none","none"
if $1=$23 cgget3 "none","none"
if $1=$24 cgget3 "none","none"
if $1=$25 cgget3 "none","none"
if $1=$26 cgget3 "none","none"
return

*cgget3
getparam $5,$6
return

*cgcheck2
mov %%3,0  ;cgҳʼ
if $5 !="none" && fchk "mgd/"+$5+".png" add %%3,1 ;ѭ
if $6 !="none" && fchk "mgd/"+$6+".png" add %%3,1 ;ѭ
return

*cgview  ;cgʾ
mov %4,(%2-1)*4+%1+10  
if %%4 = 0 return
if %%4 > 0 lsp 53,"mgd/"+$5+".png",0,0:print 10,1000:click
if %%4 > 1 lsp 53,"mgd/"+$6+".png",0,0:print 10,1000:click
csp 53
print 10,1000
return

*gl_end  ;Ҫprintʵֽл
for %5 = 53 to 100
csp %5
next
return



