|
 | ̤²ò·è |
 | ²ò·è |
 | Ää»ß |
 | ºï½üÍ×ÀÁ |
|
2010/4/28(Wed) 20:10:21|NO.32364
¤³¤¦¤¤¤Ã¤¿ÇùÁ³¤È¤·¤¿¤³¤È¤ò¤·¤Æ¤Ï¤¤¤±¤Ê¤¤¤È
½ñ¤¤¤Æ¤¢¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢¤É¤¦¤·¤Æ¤âÍê¤ë¤È¤³¤í¤¬Ìµ¤¤¤Î¤Ç¡¢¤¹¤¤¤Þ¤»¤ó¡£
¤«¤´¤òÆ°¤«¤·¤Æ¡¢Íî¤Á¤Æ¤¯¤ë¤ê¤ó¤´(²¿¤Ç¤âÎɤ¤¤Î¤Ç¤¹¤¬)
¤ò¥¥ã¥Ã¥Á¤¹¤ë¥²¡¼¥à¤òºî¤ê¤¿¤¤¤Ç¤¹¡£
¼«Ê¬¤ÎÃæ¤Ç¤Ï¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤Î¤Ö¤Ä¤«¤Ã¤¿¤È¤¤Î
Åö¤¿¤êȽÄê¤Ç¤Ç¤¤ë¤È»×¤¤¹þ¤ó¤Ç¤¤¤ë¤Î¤Ç¤¹¤¬¡¢
¤½¤¦¤¤¤¦¤â¤Î¤Ç¤Ï¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£
Æñ¤·¤¤Ã±¸ì¤Ï¼«Ê¬¤ÇÄ´¤Ù¤Þ¤¹¤Î¤Ç¡¢¤É¤Ê¤¿¤«¤´¶µ¼ø¤¤¤¿¤À¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£
|
|
2010/4/28(Wed) 20:38:21|NO.32365
¼«Ê¬¤ÇÇùÁ³¤È¤·¤¿¼ÁÌä¤Ç¤¢¤ë¤ÈÍý²ò¤·¤Æ¤¤¤ë¤Î¤Ê¤é¤Ð¡¢
¤â¤¦¾¯¤·¶ñÂÎŪ¤Ë½ñ¤¯ÅØÎϤò¤·¤Æ¤¯¤À¤µ¤¤¡£
>>¼«Ê¬¤ÎÃæ¤Ç¤Ï¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤Î¡¦¡¦¡¦
¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤ÎÅö¤¿¤êȽÄê¤ò¹Ô¤¦ÊýË¡¤Ï¤¿¤¯¤µ¤ó¤¢¤ê¤Þ¤¹¡£
¤¢¤Ê¤¿¤¬ÁÛÁü¤·¤Æ¤¤¤ëʪ¤ò¥¹¥¯¥ê¥×¥È¤È¤·¤ÆÄ󼨤·ÀâÌÀ¤¹¤ë¤«¡¢
ÆâÍƤ¬¤ï¤«¤ë¤è¤¦¤Ë¤Ï¤Ã¤¤ê¤ÈÀâÌÀ¤·¤Æ¤¯¤À¤µ¤¤¡£
¤½¤¦¤·¤Æ¤â¤é¤¨¤Ê¤±¤ì¤ÐÅú¤¨¤è¤¦¤¬¤¢¤ê¤Þ¤»¤ó¡£
|
|
2010/4/28(Wed) 21:23:17|NO.32367
¥ê¥ó¥´¤È¥×¥ì¥¤¥ä¡¼¤ÎºÂɸ(X or Y)¤¬½Å¤Ê¤Ã¤¿¤é¥¥ã¥Ã¥Á¤·¤Æ¡¢¤½¤Î¥ê¥ó¥´¤ò¾Ã¤¹
|
|
2010/4/28(Wed) 21:24:11|NO.32368
¹Í¤¨¤ò¼ÑµÍ¤á¤Æ¤¤¤±¤Ð¡¢½èÍý¤Îή¤ì¤¬Ê¬¤«¤ë¤È»×¤¦¡£
Âç¤Þ¤«¤Ë¤Ç¤âŽ¥Ž¥Ž¥
¡¦¥ê¥ó¥´¤Ï²¼¤ØÍî¤Á¤ë
¡¦¥«¥´¤ÏÆ°¤«¤»¤ë
¡¦¥ê¥ó¥´¤È¥«¥´¤¬ÀÜ¿¨¤¹¤ë¤È¥¥ã¥Ã¥Á¤¹¤ë
¡¦¥ê¥ó¥´¤¬²èÌ̤«¤é¾Ã¤¨¤ë
¤È¹Í¤¨¤Æ¡¢¤µ¤é¤ËºÙ¤«¤¯Êø¤·¤Æ¤¤¤±¤Ð¡¢É¬ÍפʽèÍý¤¬Ê¬¤«¤ë¤È»×¤¤¤Þ¤¹¡£
¡¦¥ê¥ó¥´¤Ï²¼¤ØÍî¤Á¤ë
¡¥ê¥ó¥´¤Ï¡û¤º¤Ä²¼¤ØÍî¤Á¤ë
¢¡û¤º¤ÄÍî¤È¤¹°Ù¤Ë¥ê¥ó¥´¤ÎºÂɸ¤òµÏ¿¤¹¤ëÊÑ¿ô¤¬É¬Íפˤʤë
£¤½¤ÎÊÑ¿ô¤Ë¡û¤º¤Ä²Ã»»¤µ¤»¤Æ¤¤¤¯½èÍý¤ò¥ë¡¼¥×¤ØÆþ¤ì¤ë
¤¥«¥´¤ÎºÂɸ¤È½Å¤Ê¤Ã¤¿¤é¥ê¥ó¥´¤¬¾Ã¤¨¤Æ¡¢¥¥ã¥Ã¥Á¤·¤¿»ö¤Ë¤Ê¤ë
¥ÃÏÌ̤ˤª¤Á¤Æ¤â¥ê¥ó¥´¤¬¾Ã¤¨¤ë
¡Äetc
|
|
2010/4/28(Wed) 21:26:36|NO.32370
HGIMG3¤À¤Ã¤¿¤égetcoli¤¬´Êñ
[¥ê¥ó¥´¤ò¾Ã¤¹]¤«¤é¡¢¥ë¡¼¥×¤Î¤¦¤Á¤ÇËè²ó³¨²è½èÍý(ºÂɸ¤¬½Å¤Ê¤Ã¤Æ¤¤¤¿¤é¥¹¥¥Ã¥×¤¹¤ë¤È¤«)
|
|
2010/4/28(Wed) 23:54:37|NO.32375
>¼«Ê¬¤ÎÃæ¤Ç¤Ï¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤Î¤Ö¤Ä¤«¤Ã¤¿¤È¤¤Î
>Åö¤¿¤êȽÄê¤Ç¤Ç¤¤ë¤È»×¤¤¹þ¤ó¤Ç¤¤¤ë¤Î¤Ç¤¹¤¬¡¢
>¤½¤¦¤¤¤¦¤â¤Î¤Ç¤Ï¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£
¡¡¾¯¤·°Û¤Ê¤ëÍ×ÁǤ¬Íí¤ó¤Ç¤¤Þ¤¹¡£
¡¡¤Þ¤º¡¢¤«¤´¤ò¥É¥Ã¥Èñ°Ì¤ÇÆ°¤«¤¹¤Î¤«¥¥ã¥é¥¯¥¿Ã±°Ì¤Ç
Æ°¤«¤¹¤Î¤«¡Ê¤³¤ì¤ÏƱ»þ¤Ë¥ê¥ó¥´¤Î½é´ü°ÌÃ֣غÂɸ¤ò
¥É¥Ã¥Èñ°Ì¤Ë¤¹¤ë¤Î¤«¥¥ã¥é¥¯¥¿Ã±°Ì¤Ë¤¹¤ë¤Î¤«¤È¤¤¤¦
¤³¤È¤Ç¤â¤¢¤ê¤Þ¤¹¡Ë
¥¥ã¥é¥¯¥¿Ã±°Ì¤ÇÆ°¤«¤¹¤Î¤Ç¤¢¤ì¤Ð¡¢¤¦¤Þ¤¯¥¥ã¥Ã¥Á¤Ç¤¤¿
¤È¤¤Ï¥ê¥ó¥´¤È¤«¤´¤¬¤Ô¤Ã¤¿¤ê½Å¤Ê¤ê¤Þ¤¹¤·¡¢¥¥ã¥Ã¥Á
¤Ç¤¤Ê¤¤¤È¤¤Ï¤Þ¤ë¤ÇÎ¥¤ì¤Þ¤¹¤«¤éÌäÂꤢ¤ê¤Þ¤»¤ó¡£
¡¡¤·¤«¤·¡¢¥É¥Ã¥Èñ°Ì¤ÇÆ°¤«¤¹¾ì¹ç¡¢Åµ·¿Åª¤ÊÎã¤È¤·¤Æ¤Ï
¤«¤´¤È¥ê¥ó¥´¤¬¡Ê£ØºÂɸ¤Ë¤Ä¤¤¤Æ¡ËȾʬ¤À¤±½Å¤Ê¤Ã¤Æ¤¤¤ë¤È¤
¤É¤¦È½Äꤹ¤ë¤Î¤«¤È¤¤¤¦ÌäÂ꤬À¸¤¸¤Þ¤¹¡£
¡¡¤·¤«¤·¡¢¥·¥å¡¼¥Æ¥£¥ó¥°¤Î¤¢¤¿¤êȽÄê¤ÈƱÍͤË
¾¯¤·¤Ç¤â¿¨¤Ã¤Æ¤¤¤ì¤Ð¥¥ã¥Ã¥Á¤Ç¤¤¿¤ÈȽÄꤹ¤ë¤³¤È¤â
¤Ç¤¤Þ¤¹¡£
¡¡·ë¶É¡¢¤½¤ì¤ò·è¤á¤ë¤Î¤Ï¤¢¤Ê¤¿¤Ç¤¢¤Ã¤Æ¡¢
¤¤¤¤¤«°¤¤¤«¤ÎÌäÂê¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£
|
|
2010/4/29(Thu) 00:10:55|NO.32377
>¤¤¤¤¤«°¤¤¤«¤ÎÌäÂê¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£
¡¡ÄûÀµ¡£
Àµ¤·¤¤¤«´Ö°ã¤Ã¤Æ¤¤¤ë¤«¤È¤¤¤¦ÌäÂê¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£
|
|
2010/4/29(Thu) 14:15:42|NO.32381
hsp32\sample\game\block2.hsp
¥µ¥ó¥×¥ë¥Õ¥¡¥¤¥ë¤ò»²¹Í¤Ë¤µ¤ì¤¿¤é¡© xD
|
|
2010/4/30(Fri) 11:10:31|NO.32394
¥ê¥ó¥´¥¥ã¥Ã¥Á¥²¡¼¥à¤Ê¤é´ðËÜŪ¤Ë¥×¥ì¥¤¥ä¡¼¤¬¾å²¼¤Ë°ÜÆ°¤¹¤ë»ö¤Ï̵¤¤¤Î¤Ç
¥×¥ì¥¤¥ä¡¼¤ÎYºÂɸ¤Ë¥ê¥ó¥´¤¬Ã£¤·¤¿»þ¤Ë¥×¥ì¥¤¥ä¡¼¤ÎÉý¤ÎÃæ¤Ë
¥ê¥ó¥´¤ÎXºÂɸ¤¬Â¸ºß¤·¤Æ¤¤¤ì¤Ð¥¥ã¥Ã¥Á¤Ç¤¤¿»ö¤Ë¤Ê¤ê¤Þ¤¹¡£
ȽÄê¤Ï¤³¤ó¤Ê´¶¤¸¤Ê¤Î¤Ç¤½¤ì¤Û¤ÉÆñ¤·¤¯Ìµ¤¤¤È¤Ï»×¤¤¤Þ¤¹¤¬
Ê£¿ô¤Î¥ê¥ó¥´¤òÍî¤È¤½¤¦¤È¤·¤¿¾ì¹ç¤Î´ÉÍý¤ÎÊý¤¬½é¿´¼Ô¤Ë¤Ï¿¾¯¥Ï¡¼¥É¥ë¤¬
¹â¤¤¤Î¤Ç¤Ï¤Ê¤¤¤«¤È»×¤¤¤Þ¤¹¡£
°Ê¾å¤òƧ¤Þ¤¨¤ÆºÇÄã¸ÂɬÍפÊÍ×ÁǤòÆþ¤ì¤¿¥¹¥¯¥ê¥×¥È¤òºî¤Ã¤Æ¤ß¤Þ¤·¤¿¡£
³ÆÌ¿Îá¤Î¾ÜºÙ¤ÏÌ¿Îá¥Ø¥ë¥×¡ÊÌ¿Îá¤Ë¥¥ã¥ì¥Ã¥È¤ò¤¢¤ï¤»¤ÆF1¥¡¼¤Çµ¯Æ°)¤ò¸«¤Æ²¼¤µ¤¤¡£
Enter¥¡¼¤ÇÅö¤¿¤êȽÄ꤬ɽ¼¨¤µ¤ì¤ë¤Î¤ÇÆâÉô¤Ç¤É¤Î¤è¤¦¤Ë
Æ°¤¤¤Æ¤¤¤ë¤Î¤«¤Î»²¹Í¤Ë¤Ê¤ì¤Ð¤È»×¤¤¤Þ¤¹¡£
¡Ê¥ê¥ó¥´¤ÎȽÄê°ÌÃÖ¤òÃæ¿´¤Ë¤¹¤ë°Ù¤Ëɽ¼¨°ÌÃÖ¤òº¸¤Ë8¥É¥Ã¥Èʬ¤º¤é¤·¤Æ¤¤¤ë¤Î¤ËÃí°Õ¡Ë
screen 0, 640, 480
buffer 1 : cls 4
font msgothic, 16
color 255, 255, 255
pos 1, 0 : mes "¡û"
pos 0, 13 : mes "Âç"
pos 0, 26 : mes "£Ö"
color 255 : pos 1, 42 : mes "¡ü"
Px = 320 ;¥×¥ì¥¤¥ä¡¼¤Î½é´üºÂɸ£Ø
Py = 450 ;¥×¥ì¥¤¥ä¡¼¤Î½é´üºÂɸ£Ù
Pmuki = 1 ;º¸¸þ¤=-1 ±¦¸þ¤=1
Pmov = 8 ;¥×¥ì¥¤¥ä¡¼¤Î°ÜÆ°ÎÌ
hit1 = Px ;Åö¤¿¤êȽÄ꺸ü
hit2 = Px +16 + 12 ;Åö¤¿¤êȽÄ걦ü
Amax = 15 ;¥ê¥ó¥´¤ÎºÇÂç¿ô
dim Ax, Amax ;¥ê¥ó¥´¤Î£ØºÂɸ
dim Ay, Amax ;¥ê¥ó¥´¤Î£ÙºÂɸ
dim Aflg, Amax ;¥ê¥ó¥´¤Î¸ºß¥Õ¥é¥°
Anum = 0 ;²èÌÌÃæ¤Î¥ê¥ó¥´¤Î¿ô
Asty = 0 ;¥ê¥ó¥´¤Î½é´ü°ÌÃÖ
Amov = 4 ;¥ê¥ó¥´¤Î°ÜÆ°ÎÌ
Adflg = 10 ;¥ê¥ó¥´¤¬²¿¥Õ¥ì¡¼¥àËè¤Ë½Ð¸½¤¹¤ë¤«¡©
Chkline = 445 ;Åö¤¿¤êȽÄê¥é¥¤¥ó
dbg = 0 ;¥Ç¥Ð¥Ã¥°¥Õ¥é¥°
Score = 0
randomize ;Íð¿ô½é´ü²½
*main
gsel 0
gmode 2, 16, 25
redraw 0
color 0 : boxf
; ¥×¥ì¥¤¥ä¡¼¤Î°ÜÆ°¤Èɽ¼¨
stick key, 5
if key & 1 : Pmuki = -1 : Px + Pmov * Pmuki : hit1 = Px - 12 : hit2 = Px +16
if key & 4 : Pmuki = 1 : Px + Pmov * Pmuki : hit1 = Px : hit2 = Px +16 + 12
if key & 32 : dbg + 1 : dbg \ 2
if key & 128 : end
Px = limit(Px, 16, 612)
pos Px, Py : gcopy 1
pos Px + 12 * Pmuki, Py + 10 : gcopy 1, 0, 28, 16, 12
if Anum ! 0 : gosub *Apple_Move ;¥ê¥ó¥´¤Î¿ô¤¬°ì¸Ä°Ê¾å¤¢¤ì¤Ð°ÜÆ°¥ë¡¼¥Á¥ó¤Ø
Adrop++ : Adrop \ Adflg ;¥é¥ó¥À¥à¤Ç¥ê¥ó¥´¤òÍ
if Adrop = 0 : if rnd(3) = 0 : gosub *Apple_Drop
if dbg = 1 { ;Åö¤¿¤êȽÄê¥é¥¤¥óɽ¼¨
color ,,255 : line hit1, 0, hit1, 480 : line hit2, 0, hit2, 480
color ,255 : line 0, Chkline, 640, Chkline
}
title "" + Anum + "¸ÄÍî²¼Ãæ " + Score + "¸Ä½¦¤Ã¤¿ Esc¤Ç½ªÎ»¡¡Enter¤ÇȽÄêɽ¼¨"
redraw 1
await 33
goto *main
*Apple_Drop
if Anum = Amax : return ;¥ê¥ó¥´¤¬ºÇÂç¿ô¤è¤êÁý¤¨¤Ê¤¤¤è¤¦¤ËÄ´Àá
repeat Amax
if Aflg(cnt) = 0 { ;ÇÛÎó¤Î¶õ¤¤¬¤¢¤ì¤Ð¥ê¥ó¥´¤òÄɲ乤ë
Aflg(cnt) = 1
Anum = limit(Anum + 1, 0, Amax)
Ax(cnt) = rnd(79) * 8 + 8 ;¥ê¥ó¥´¤Î½Ð¸½°ÌÃÖ·èÄê
Ay(cnt) = Asty
break
}
loop
return
*Apple_Move
repeat Amax
if Aflg(cnt) = 1 {
Ay(cnt) + Amov
if Ay(cnt) > Chkline { ;Åö¤¿¤êȽÄ곫»Ï
if (Ax(cnt) > hit1)&(Ax(cnt) < hit2) {
Aflg(cnt) = 0
Anum = limit(Anum - 1, 0, Amax)
Score + 1
continue
}
}
if Ay(cnt) > 480 { ;ÃÏÌ̤ËÍî¤Á¤¿¤é¾Ã¤¨¤ë
Aflg(cnt) = 0
Anum = limit(Anum - 1, 0, Amax)
continue
}
pos Ax(cnt) -8, Ay(cnt) : gcopy 1, 0, 42, 16, 54 ;¥ê¥ó¥´É½¼¨
if dbg = 1 : color 255 : line Ax(cnt), 0, Ax(cnt), 640 ;Åö¤¿¤êȽÄê¥é¥¤¥óɽ¼¨
}
loop
return

| |
|
2010/4/30(Fri) 19:03:01|NO.32399
¥¢¥ë¥´¥ê¥º¥à¤µ¤¨Ê¬¤«¤ì¤Ð¤³¤ÎÀè±þÍѤǤä¤Ã¤Æ¤¤¤±¤ë¤È»×¤¦¤Î¤Ç¡¢´Êά²½¤·¤¿¥µ¥ó¥×¥ë¤ò½ñ¤¤Þ¤·¤¿¡£
Åö¤¿¤êȽÄê¤Ï¥ê¥ó¥´¤ÎÃæ¿´ÅÀ¤À¤±¤Ç¹Ô¤Ã¤Æ¤¤¤Þ¤¹¡£(¥«¥´¤Ë¤«¤¹¤Ã¤¿¤À¤±¤ÇÆþ¤ë¤È¤¤¤¦¤Î¤â¤ª¤«¤·¤¤µ¤¤¬¤¹¤ë¤Î¤Ç)
max=5//°ì²èÌ̤ËÍî¤È¤¹¥ê¥ó¥´¤ÎºÇÂç¿ô
dim appX,max//¥ê¥ó¥´X°ÌÃÖÍÑÇÛÎó
dim appY,max//¥ê¥ó¥´Y°ÌÃÖÍÑÇÛÎó
repeat max//¥ê¥ó¥´¤Î½é´ü°ÌÃÖ¤ò¥é¥ó¥À¥à¤Ë·è¤á¤ë
appX(cnt)=rnd(680)
appY(cnt)=-rnd(max*100)
loop
kagoX=0//¥«¥´¤ÎX°ÌÃÖ
kagoY=450//Y°ÌÃÖ
mes "¦Ò"
mesx=ginfo_mesx/2//ʸ»ú¤Î²£Éý¤ÎȾʬ¡¡(´Ê°×Åö¤¿¤êȽÄê¤Ë»ÈÍÑ)
repeat
redraw 0
color 0,0,0:boxf//²èÌ̤ò¹õ¤ÇÅɤêÄÙ¤·
color 255,255,255
pos 0,0:mes "¥«¥´¤ÎÃæ¤Ë¤Ï¥ê¥ó¥´¤¬"+nakami+"¸Ä¤Ç¤¹"
repeat max//¥ê¥ó¥´¤Î¿ôʬ·«¤êÊÖ¤¹
appY(cnt)+=2//¥ê¥ó¥´¤ÎYºÂɸ¤ò²¼¤²¤ë
color 255,0,0
pos appX(cnt),appY(cnt):mes "¦Ò"//¤½¤Î°ÌÃÖ¤Ëɽ¼¨
if (appX(cnt)+mesx>kagoX) & (appX(cnt)+mesx<kagoX+30) & (appY(cnt)>kagoY) & (appY(cnt)<kagoY+20){//¥ê¥ó¥´¤ÎÃæ¿´¤¬¥«¥´¤ËÅö¤¿¤Ã¤Æ¤¤¤ì¤Ð
/* 30=¥«¥´¤Î²£Éý¡¡20=¥«¥´¤Î½ÄÉý */
color 255,255,255
pos appX(cnt)-20,appY(cnt)-20
mes "¡À¥¹¥Ý¥Ã¡¿"//¥¹¥Ý¥Ã
nakami++//¥«¥¦¥ó¥È¤òÁý¤ä¤¹
appX(cnt)=rnd(640)//ºÂɸ¤ò¥é¥ó¥À¥à¤Ë
appY(cnt)=-rnd(max*100)
}
if appY(cnt)>480{//²èÌ̤β¼¤Þ¤Ç¤¤¿¤é¤Þ¤¿ºÂɸ¤ò¥é¥ó¥À¥à¤Ë
appX(cnt)=rnd(640)
appY(cnt)=-rnd(max*100)
}
loop
stick key,1|4
if key=1:kagoX-=4//¢«¤Ê¤éX¤ò¸º¤é¤·
if key=4:kagoX+=4//¢ª¤Ê¤éÁý¤ä¤¹
color 255,255,255
boxf kagoX,kagoY,kagoX+30,kagoY+20//¥«¥´É½¼¨
color:pos kagoX,450:mes "¥«¥´"
redraw 1
wait 1
loop

| |
|
2010/5/3(Mon) 21:02:36|NO.32441
>¤«¤´¤òÆ°¤«¤·¤Æ¡¢Íî¤Á¤Æ¤¯¤ë¤ê¤ó¤´(²¿¤Ç¤âÎɤ¤¤Î¤Ç¤¹¤¬)
>¤ò¥¥ã¥Ã¥Á¤¹¤ë¥²¡¼¥à¤òºî¤ê¤¿¤¤¤Ç¤¹¡£
¿ïʬÃê¾ÝŪ¤Ê¼ÁÌä¤Î¤è¤¦¤Êµ¤¤¬¤¹¤ë¡¦¡¦¡¦¡£
¤Þ¤¢¡¢¤³¤¦¤¤¤¦¤Î¤Ï¡¢Ve¤µ¤ó¤¬µ½Ò¤·¤Æ¤¢¤ë¤È¤ª¤ê¡¢
½èÍý¤òʬ¤±¤Æ¹Í¤¨¤Æ¤¤¤¯¤Î¤¬¤¤¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¡£
¡¦½é´ü½èÍý[£±²ó¤Î¤ß]
¡¡²èÁü¥Ç¡¼¥¿¤Î¥í¡¼¥É¤Ê¤É
¡¦ÆþÎϽèÍý
¡¡¥¡¼ÆþÎÏÆɤ߹þ¤ß½èÍý
¡¦°ÜÆ°½èÍý
¡¡¼«µ¡(¤«¤´)¤Î°ÜÆ°½èÍý
¡¡Å¨µ¡(¤ê¤ó¤´)¤Î°ÜÆ°½èÍý
¡¦Åö¤¿¤êȽÄê
¡¡¼«µ¡(¤«¤´)¤ÈŨµ¡(¤ê¤ó¤´)¤ÎÅö¤¿¤êȽÄê
¡¦ÉÁ²è½èÍý
¡¡¼«µ¡(¤«¤´)¤ÎÉÁ²è½èÍý
¡¡Å¨µ¡(¤ê¤ó¤´)¤ÎÉÁ²è½èÍý
¤¢¤ê¤µ¤ó¤äu¤µ¤ó¤¬¡¢¥µ¥ó¥×¥ë¥¹¥¯¥ê¥×¥È¤òºÜ¤»¤Æ¤Þ¤¹¤¬¡¢
»ä¤â¥µ¥ó¥×¥ë¥¹¥¯¥ê¥×¥È¤òºîÀ®¤·¤¿¤Î¤ÇºÜ¤»¤Æ¤ª¤¤Þ¤¹¡£
¤½¤ì¤Ë¤·¤Æ¤â¡¢¤³¤ì¤À¤±¤Î»ÅÍͤʤΤˡ¢
£È£Ó£Ð¤Ï¡¢Êʤ¬¤¢¤ê¤¹¤®¤Î¤«¡¢
¼ÂÁõ¤¹¤ë¤Î¤Ë¤«¤Ê¤êÈè¤ì¤¿¡¦¡¦¡¦(¡¡¦¦Ø¡¦¡®)
//====================================================================================================
// ¥Õ¥¡¥¤¥ë̾¡§SampleHsp001.hsp
// Æâ¡¡¡¡¡¡ÍÆ¡§¤ß¤«¤ó¤µ¤ó¤Î¼ÁÌä¤ÎÊÖÅú
// ºî¡¡À®¡¡¼Ô¡§¥Æ¥Ã¥¯
// ¹¹¡¡¿·¡¡¼Ô¡§¥Æ¥Ã¥¯
// ºî¡¡À®¡¡Æü¡§2010/05/01
// ¹¹¡¡¿·¡¡Æü¡§2010/05/03
// Íú¡¡¡¡¡¡Îò¡§2010/05/01 ¿·µ¬ºîÀ®
// ¡¡¡¡¡¡¡¡¡¡¡¡2010/05/02 ¤«¤´ÍÑ¡¦¤ê¤ó¤´ÍѤÎÇÛÎ󡦥ޥ¯¥í¤òºîÀ®
// ¡¡¡¡¡¡¡¡¡¡¡¡2010/05/03 ¥²¡¼¥à¥á¥¤¥ó½èÍý¡¦Åö¤¿¤êȽÄê¤ò¼ÂÁõ
// ¥á¡¡¡¡¡¡¥â¡§¥¹¥ì¥Ã¥É¡Öhttp://hsp.tv/play/pforum.php?mode=all&num=32364¡×
//====================================================================================================
//==================== ¥Ø¥Ã¥À¡¼¥Õ¥¡¥¤¥ë¤Î¥¤¥ó¥¯¥ë¡¼¥É ====================//
#include "hspdef.as"
//==================== ¥Þ¥¯¥í¤ÎÀë¸À ====================//
#define global APPLE_SIZE 10 // ¤ê¤ó¤´¤Î¸Ä¿ô
#define global ITEM_SIZE_BASKET 6 // ¤«¤´¤Î¹àÌÜ¿ô
#define global ITEM_SIZE_APPLE 7 // ¤ê¤ó¤´¤Î¹àÌÜ¿ô
#define global WINDOW_ID_BASKET 1 // ¥¦¥£¥ó¥É¥¦£É£Ä(¤«¤´)
#define global WINDOW_ID_APPLE 2 // ¥¦¥£¥ó¥É¥¦£É£Ä(¤ê¤ó¤´)
#define global FILE_NAME_BASKET "Basket.gif" // ¥Õ¥¡¥¤¥ë̾(¤«¤´)
#define global FILE_NAME_APPLE "Apple.gif" // ¥Õ¥¡¥¤¥ë̾(¤ê¤ó¤´)
#define global BASKET_WIDTH 36 // ¤«¤´²èÁü¤ÎÉý
#define global BASKET_HEIGHT 36 // ¤«¤´²èÁü¤Î¹â¤µ
#define global APPLE_WIDTH 36 // ¤ê¤ó¤´²èÁü¤ÎÉý
#define global APPLE_HEIGHT 36 // ¤ê¤ó¤´²èÁü¤Î¹â¤µ
#define global APPLE_WAIT 20 // ¤ê¤ó¤´¤ÎÉÁ²è´Ö³Ö
#define global BASKET_MOVE_X 20 // ¤«¤´²èÁü¤Î°ÜÆ°ÎÌ(£Ø¼´)
#define global BASKET_MOVE_Y 0 // ¤«¤´²èÁü¤Î°ÜÆ°ÎÌ(£Ù¼´)
#define global APPLE_MOVE_X 0 // ¤ê¤ó¤´²èÁü¤Î°ÜÆ°ÎÌ(£Ø¼´)
#define global APPLE_MOVE_Y 8 // ¤ê¤ó¤´²èÁü¤Î°ÜÆ°ÎÌ(£Ù¼´)
#define global g_clsBasket_hWindowId g_nArrayBasket@(0)
#define global g_clsBasket_nDivId g_nArrayBasket@(1)
#define global g_clsBasket_nLeft g_nArrayBasket@(2)
#define global g_clsBasket_nTop g_nArrayBasket@(3)
#define global g_clsBasket_nWidth g_nArrayBasket@(4)
#define global g_clsBasket_nHeight g_nArrayBasket@(5)
#define global ctype g_clsApple_hWindowId(%1) g_nArrayApple@(0, %1)
#define global ctype g_clsApple_nDivId(%1) g_nArrayApple@(1, %1)
#define global ctype g_clsApple_nLeft(%1) g_nArrayApple@(2, %1)
#define global ctype g_clsApple_nTop(%1) g_nArrayApple@(3, %1)
#define global ctype g_clsApple_nWidth(%1) g_nArrayApple@(4, %1)
#define global ctype g_clsApple_nHeight(%1) g_nArrayApple@(5, %1)
#define global ctype g_clsApple_nDisplay(%1) g_nArrayApple@(6, %1)
// ¢¨¢¬¥â¥¸¥å¡¼¥ëÆ⤫¤é¥°¥í¡¼¥Ð¥ëÊÑ¿ô¤ò»²¾È¤¹¤ë¾ì¹ç¤Ï¡¢ÊÑ¿ô̾¤ÎºÇ¸å¤Ë¡÷¤òÉÕ¤±¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤
//==================== Äê¿ô¤ÎÀë¸À ====================//
#const global WAIT_TIME 10 // ÃæÃÇ»þ´Ö(ñ°Ì¡§£±£°¥ß¥êÉÃ)
#const global KEY_ARROW_LEFT 1 // ¥«¡¼¥½¥ë¥¡¼¤Îº¸(¢«)
#const global KEY_ARROW_RIGHT 4 // ¥«¡¼¥½¥ë¥¡¼¤Î±¦(¢ª)
#const global KEY_ARROW_UP 2 // ¥«¡¼¥½¥ë¥¡¼¤Î¾å(¢¬)
#const global KEY_ARROW_DOWN 8 // ¥«¡¼¥½¥ë¥¡¼¤Î²¼(¢)
#const global KEY_SPACE 16 // ¥¹¥Ú¡¼¥¹¥¡¼
#const global KEY_ENTER 32 // Enter¥¡¼
#const global KEY_ESC 128 // Esc¥¡¼
//==================== Îóµó·¿¤ÎÀë¸À ====================//
// ¥×¥í¥»¥¹£É£Ä
#enum global ENUM_PROCESS_ID_BEGIN = 0 // ¥×¥í¥»¥¹£É£Ä(½é¡¡´ü½èÍý)
#enum global ENUM_PROCESS_ID_MAIN // ¥×¥í¥»¥¹£É£Ä(¥á¥¤¥ó½èÍý)
#enum global ENUM_PROCESS_ID_END // ¥×¥í¥»¥¹£É£Ä(½ª¡¡Î»½èÍý)
#enum global ENUM_PROCESS_ID_LIMIT // ¥×¥í¥»¥¹£É£Ä(¸Â³¦ÃÍ)
// ¥·¡¼¥ó£É£Ä
#enum global ENUM_SCENE_ID_GAME = 0 // ¥·¡¼¥ó£É£Ä(¥²¡¼¥à²èÌÌ)
#enum global ENUM_SCENE_ID_TITLE // ¥·¡¼¥ó£É£Ä(¥¿¥¤¥È¥ë²èÌÌ)
#enum global ENUM_SCENE_ID_LIMIT // ¥·¡¼¥ó£É£Ä(¸Â³¦ÃÍ)
//==================== ¥°¥í¡¼¥Ð¥ëÊÑ¿ô¤ÎÀë¸À ====================//
g_nProcessId = ENUM_PROCESS_ID_BEGIN // ¥×¥í¥»¥¹£É£Ä
g_nSceneIdOld = ENUM_SCENE_ID_GAME // ¥·¡¼¥ó£É£Ä(²áµî)
g_nSceneIdNow = ENUM_SCENE_ID_GAME // ¥·¡¼¥ó£É£Ä(¸½ºß)
g_nSceneIdNew = ENUM_SCENE_ID_GAME // ¥·¡¼¥ó£É£Ä(̤Íè)
g_nKeyData = 0 // ¥¡¼ÆþÎϥǡ¼¥¿
g_nArrowLeft = 0 // ¥¡¼ÆþÎϥե饰(º¸)
g_nArrowRight = 0 // ¥¡¼ÆþÎϥե饰(±¦)
g_nAppleCount = 0 // ¤ê¤ó¤´¤ÎÉÁ²è´Ö³Ö¥«¥¦¥ó¥È
dim g_nArrayBasket, ITEM_SIZE_BASKET // ¤«¤´¾ðÊó¤Î£±¼¡¸µÇÛÎó
dim g_nArrayApple, ITEM_SIZE_APPLE, APPLE_SIZE // ¤ê¤ó¤´¾ðÊó¤Î£²¼¡¸µÇÛÎó
//==================== ¥â¥¸¥å¡¼¥ë¤ÎÀë¸À ====================//
#module SampleModule
// £²¤Ä¤Î¶ë·Á¤ÎÅö¤¿¤êȽÄê¤ò¹Ô¤¦
// °ú¿ô
// ¡¡lstRect1 : ¶ë·Á£±¤ÎÇÛÎó
// ¡¡lstRect2 : ¶ë·Á£²¤ÎÇÛÎó
// ¡¡nIndex : ¶ë·Á£²¤ÎÇÛÎó¤ÎÍ×ÁÇ¿ô
// ¥í¡¼¥«¥ëÊÑ¿ô
// ¡¡nHitFlag :
// Ìá¤êÃÍ
// ¡¡£°°Ê³° : £²¤Ä¤Î¶ë·Á¤¬ÀÜ¿¨¤·¤Æ¤¤¤ë¾ì¹ç
// ¡¡£°¡¡¡¡ : £²¤Ä¤Î¶ë·Á¤¬ÀÜ¿¨¤·¤Æ¤¤¤Ê¤¤¾ì¹ç
#defcfunc IsHit array lstRect1, array lstRect2, int nIndex, local nHitFlag, \
local nLeft1, local nLeft2, local nLeft3, local nLeft4, \
local nTop1, local nTop2, local nTop3, local nTop4
nLeft1 = lstRect1(2)
nLeft2 = lstRect2(2, nIndex) + lstRect2(4, nIndex)
nLeft3 = lstRect1(2) + lstRect1(4)
nLeft4 = lstRect2(2, nIndex)
nTop1 = lstRect1(3)
nTop2 = lstRect2(3, nIndex) + lstRect2(5, nIndex)
nTop3 = lstRect1(3) + lstRect1(5)
nTop4 = lstRect2(3, nIndex)
// ¶ë·Á£±¤Îº¸Â¦¤Î£ØºÂɸ¤¬¡¢¶ë·Á£²¤Îº¸Â¦¤Î£ØºÂɸ¡Ü¶ë·Á£²¤ÎÉý̤Ëþ¤Î¾ì¹ç ¤«¤Ä
// ¶ë·Á£±¤Îº¸Â¦¤Î£ØºÂɸ¡Ü¶ë·Á£±¤ÎÉý¤¬¡¢¶ë·Á£²¤Îº¸Â¦¤Î£ØºÂɸ°Ê¾å¤Î¾ì¹ç ¤«¤Ä
// ¶ë·Á£±¤Î¾å¦¤Î£ÙºÂɸ¤¬¡¢¶ë·Á£²¤Î¾å¦¤Î£ÙºÂɸ¡Ü¶ë·Á£²¤Î¹â¤µÌ¤Ëþ¤Î¾ì¹ç ¤«¤Ä
// ¶ë·Á£±¤Î¾å¦¤Î£ÙºÂɸ¡Ü¶ë·Á£±¤Î¹â¤µ¤¬¡¢¶ë·Á£²¤Î¾å¦¤Î£ÙºÂɸ°Ê¾å¤Î¾ì¹ç
if((nLeft1 < nLeft2) & (nLeft3 > nLeft4) & (nTop1 < nTop2) & (nTop3 > nTop4)) {
nHitFlag = 1
// ¾åµ°Ê³°¤Î¾ì¹ç
} else {
nHitFlag = 0
}
return nHitFlag
// ½é´ü½èÍý¤ò¹Ô¤¦
// °ú¿ô
// ¡¡nSceneIdNow : ¥·¡¼¥ó£É£Ä(¸½ºß)
// ¡¡nSceneIdOld : ¥·¡¼¥ó£É£Ä(²áµî)
// Ìá¤êÃÍ
// ¡¡¤Ê¤·
#deffunc ProcessBegin int nSceneIdNow, int nSceneIdOld
// ¤«¤´²èÁü¾ðÊó¤Î½é´ü²½¤ò¹Ô¤¦
g_clsBasket_hWindowId = WINDOW_ID_BASKET
g_clsBasket_nDivId = 0
g_clsBasket_nLeft = 0
g_clsBasket_nTop = 400
g_clsBasket_nWidth = BASKET_WIDTH
g_clsBasket_nHeight = BASKET_HEIGHT
// ¤ê¤ó¤´²èÁü¾ðÊó¤Î½é´ü²½¤ò¹Ô¤¦
for i, 0, APPLE_SIZE, 1
g_clsApple_hWindowId(i) = WINDOW_ID_APPLE
g_clsApple_nDivId(i) = 0
g_clsApple_nLeft(i) = 0
g_clsApple_nTop(i) = 0
g_clsApple_nWidth(i) = APPLE_WIDTH
g_clsApple_nHeigth(i) = APPLE_HEIGHT
g_clsApple_nDisplay(i) = 0
next
// ²èÁü¥Õ¥¡¥¤¥ë¤ò¥í¡¼¥É¤·¡¢²¾ÁÛ²èÌÌ(¥Ð¥Ã¥Õ¥¡)¤ò½é´ü²½¤¹¤ë
celload FILE_NAME_BASKET, WINDOW_ID_BASKET, 0
celload FILE_NAME_APPLE, WINDOW_ID_APPLE, 0
return
// ¥á¥¤¥ó½èÍý¤ò¹Ô¤¦
// °ú¿ô
// ¡¡nSceneIdNow : ¥·¡¼¥ó£É£Ä(¸½ºß)
// ¡¡nSceneIdOld : ¥·¡¼¥ó£É£Ä(²áµî)
// ¥í¡¼¥«¥ëÊÑ¿ô
// ¡¡nSceneIdNew : ¥·¡¼¥ó£É£Ä(̤Íè)
// ¡¡nHitFlag : Åö¤¿¤ê¥Õ¥é¥°
// Ìá¤êÃÍ
// ¡¡¥·¡¼¥ó£É£Ä(̤Íè)
#defcfunc ProcessMain int nSceneIdNow, int nSceneIdOld, local nSceneIdNew, local nHitFlag
// ¥·¡¼¥ó£É£Ä(̤Íè)¤Ë¥·¡¼¥ó£É£Ä(¸½ºß)¤òÂåÆþ¤¹¤ë
nSceneIdNew = nSceneIdNow
// ¤ê¤ó¤´¤ÎÉÁ²è´Ö³Ö¥«¥¦¥ó¥È¤ò¥«¥¦¥ó¥È¥¢¥Ã¥×¤¹¤ë
g_nAppleCount@++
// ¥«¡¼¥½¥ë¥¡¼¤Îº¸(¢«)¤ÎÆþÎϾõÂÖ¤ò¼èÆÀ¤¹¤ë
getkey g_nArrowLeft, 37
// ¥«¡¼¥½¥ë¥¡¼¤Îº¸(¢«)¤¬²¡²¼¤µ¤ì¤Æ¤¤¤ë¾ì¹ç
// if(g_nKeyData@ & KEY_ARROW_LEFT) {
if(g_nArrowLeft) {
// ¤«¤´¤Î£ØºÂɸ¤¬£°Ì¤Ëþ(¥¦¥£¥ó¥É¥¦¤Îº¸Ã¼)¤Î¾ì¹ç
if(g_clsBasket_nLeft <= 0) {
g_clsBasket_nLeft = 0
// ¤«¤´¤Î£ØºÂɸ¤¬£°°Ê¾å¤Î¾ì¹ç
} else {
// ¤«¤´¤Î£ØºÂɸ¤«¤é¤«¤´¤Î°ÜÆ°Î̤ò¸º»»¤¹¤ë
g_clsBasket_nLeft = g_clsBasket_nLeft - BASKET_MOVE_X
}
}
// ¥«¡¼¥½¥ë¥¡¼¤Î±¦(¢ª)¤ÎÆþÎϾõÂÖ¤ò¼èÆÀ¤¹¤ë
getkey g_nArrowRight, 39
// ¥«¡¼¥½¥ë¥¡¼¤Î±¦(¢ª)¤¬²¡²¼¤µ¤ì¤Æ¤¤¤ë¾ì¹ç
// if(g_nKeyData@ & KEY_ARROW_RIGHT) {
if(g_nArrowRight) {
// ¤«¤´¤Î£ØºÂɸ¡Ü¤«¤´¤ÎÉý¤¬£¶£´£°°Ê¾å(¥¦¥£¥ó¥É¥¦¤Î±¦Ã¼)¤Î¾ì¹ç
if(g_clsBasket_nLeft + g_clsBasket_nWidth >= 640) {
g_clsBasket_nLeft = 640 - g_clsBasket_nWidth
// ¤«¤´¤Î£ØºÂɸ¡Ü¤«¤´¤ÎÉý¤¬£¶£´£°Ì¤Ëþ¤Î¾ì¹ç
} else {
// ¤«¤´¤Î£ØºÂɸ¤Ë¤«¤´¤Î°ÜÆ°Î̤ò²Ã»»¤¹¤ë
g_clsBasket_nLeft = g_clsBasket_nLeft + BASKET_MOVE_X
}
}
// ¤ê¤ó¤´¤Î°ÜÆ°¡¦ÉÁ²è½èÍý¤ò¹Ô¤¦
for i, 0, APPLE_SIZE, 1
// ¤ê¤ó¤´¤¬ÉÁ²è¤µ¤ì¤Æ¤¤¤ë¾ì¹ç
if(g_clsApple_nDisplay(i)) {
// ¤ê¤ó¤´¤Î£ÙºÂɸ¤Ë¤ê¤ó¤´¤Î°ÜÆ°ÎÌ(£ÙºÂɸ)¤ò²Ã»»¤¹¤ë
g_clsApple_nTop(i) = g_clsApple_nTop(i) + APPLE_MOVE_Y
// ¤ê¤ó¤´¤Î£ÙºÂɸ¤¬£´£¸£°°Ê¾å(¥¦¥£¥ó¥É¥¦¤Î²¼Ã¼)¤Î¾ì¹ç
if(g_clsApple_nTop(i) >= 480) {
// ¤ê¤ó¤´¤òÈóɽ¼¨¤Ë¤¹¤ë
g_clsApple_nDisplay(i) = 0
// Ê̲è²èÌ̤ËÁ«°Ü¤¹¤ë(º£²ó¤Ï¡¢£È£Ó£Ð¤ò½ªÎ»¤¹¤ë)
nSceneIdNew = ENUM_SCENE_ID_LIMIT
// ¥ë¡¼¥×¤òÈ´¤±¤ë
_break
}
// ¤«¤´¤È¤ê¤ó¤´¤¬ÀÜ¿¨¤·¤Æ¤¤¤ë¤«¥Á¥§¥Ã¥¯¤¹¤ë
nHitFlag = IsHit(g_nArrayBasket@, g_nArrayApple@, i)
// ¤«¤´¤È¤ê¤ó¤´¤¬ÀÜ¿¨¤·¤Æ¤¤¤ë¾ì¹ç
if(nHitFlag) {
// ¤ê¤ó¤´¤òÈóɽ¼¨¤Ë¤¹¤ë
g_clsApple_nDisplay(i) = 0
// ¤«¤´¤È¤ê¤ó¤´¤¬ÀÜ¿¨¤·¤Æ¤¤¤Ê¤¤¾ì¹ç
} else {
// ¤«¤´¤ÎÉÁ²è°ÌÃÖ¤òÀßÄꤹ¤ë
pos g_clsApple_nLeft(i), g_clsApple_nTop(i)
// ¤ê¤ó¤´¤òÉÁ²è¤¹¤ë
celput g_clsApple_hWindowId(i), g_clsApple_nDivId(i), 1.0, 1.0, 0.0
}
// ¤ê¤ó¤´¤¬ÉÁ²è¤µ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç
} else {
// ¤ê¤ó¤´¤ÎÉÁ²è´Ö³Ö¤Î¥«¥¦¥ó¥È¤¬¤ê¤ó¤´¤ÎÉÁ²è´Ö³Ö°Ê¾å¤Î¾ì¹ç
if(g_nAppleCount@ >= APPLE_WAIT) {
// ¤ê¤ó¤´¤ÎÉÁ²è°ÌÃÖ¤ò½é´ü²½¤¹¤ë
g_clsApple_nLeft(i) = rnd(640 - APPLE_WIDTH)
g_clsApple_nTop(i) = 0
g_clsApple_nDisplay(i) = 1
// ¤ê¤ó¤´¤ÎÉÁ²è´Ö³Ö¤Î¥«¥¦¥ó¥È¤ò£°¤Ç¥¯¥ê¥¢¤¹¤ë
g_nAppleCount@ = 0
}
}
next
// ¤«¤´¤ÎÉÁ²è°ÌÃÖ¤òÀßÄꤹ¤ë
pos g_clsBasket_nLeft, g_clsBasket_nTop
// ¤«¤´¤òÉÁ²è¤¹¤ë
celput g_clsBasket_hWindowId, g_clsBasket_nDivId, 1.0, 1.0, 0.0
return nSceneIdNew
// ½ªÎ»½èÍý¤ò¹Ô¤¦
// °ú¿ô
// ¡¡nSceneIdNow : ¥·¡¼¥ó£É£Ä(¸½ºß)
// ¡¡nSceneIdOld : ¥·¡¼¥ó£É£Ä(²áµî)
// Ìá¤êÃÍ
// ¡¡¤Ê¤·
#deffunc ProcessEnd int nSceneIdNow, int nSceneIdOld
return
// module SampleModule
#global
//==================== £È£Ó£Ð¥¹¥¯¥ê¥×¥È¤Î¼ÂÁõ ====================//
// £È£Ó£Ð¤Î¥¨¥ó¥È¥ê¡¼¥Ý¥¤¥ó¥È
// °ú¿ô
// ¡¡¤Ê¤·
// Ìá¤êÃÍ
// ¡¡¤Ê¤·
*HspMain
// ¥¦¥£¥ó¥É¥¦¤ò½é´ü²½¤¹¤ë
// screen 0, 640, 480, 0
// ²èÌ̤ò¥¯¥ê¥¢¤¹¤ë(¹õ)
cls 4
// ¥²¡¼¥à¥ë¡¼¥×
// ¥×¥í¥»¥¹£É£Ä¤¬¥×¥í¥»¥¹£É£Ä(¸Â³¦ÃÍ)°Ê¾å¤Ë¤Ê¤ë¤Þ¤Ç¥ë¡¼¥×¤¹¤ë
do
// £È£Ó£Ð¤Î¼Â¹Ô¤ò°ìÄê»þ´ÖÃæÃǤ¹¤ë
wait WAIT_TIME
// ²èÌ̤ò¥¯¥ê¥¢¤¹¤ë(¹õ)
cls 4
// ¥¡¼ÆþÎϾðÊó¤ò¼èÆÀ¤¹¤ë
stick g_nKeyData, 0, 0
// Esc¥¡¼¤¬²¡²¼¤µ¤ì¤¿¾ì¹ç
if(g_nKeyData & KEY_ESC) {
// ½ªÎ»½èÍý¤ËÁ«°Ü¤¹¤ë
g_nProcessId = ENUM_PROCESS_ID_END
// £È£Ó£Ð¤ò½ªÎ»¤¹¤ë
g_nProcessId = ENUM_PROCESS_ID_LIMIT
}
// ¥×¥í¥»¥¹£É£Ä¤ËÂбþ¤·¤¿½èÍý¤ò¹Ô¤¦
switch g_nProcessId
// ½é´ü½èÍý¤Î¾ì¹ç
case ENUM_PROCESS_ID_BEGIN
// ½é´ü½èÍý¤ò¹Ô¤¦
ProcessBegin g_nSceneIdNow, g_nSceneIdOld
// ¥á¥¤¥ó½èÍý¤ËÁ«°Ü¤¹¤ë
g_nProcessId = ENUM_PROCESS_ID_MAIN
swbreak
// ¥á¥¤¥ó½èÍý¤Î¾ì¹ç
case ENUM_PROCESS_ID_MAIN
// ¥á¥¤¥ó½èÍý¤ò¹Ô¤¦
g_nSceneIdNew = ProcessMain(g_nSceneIdNow, g_nSceneIdOld)
// ¥·¡¼¥ó£É£Ä(¸½ºß)¤È¥·¡¼¥ó£É£Ä(̤Íè)¤¬°Û¤Ê¤ë¾ì¹ç
if(g_nSceneIdNow != g_nSceneIdNew) {
// ¥·¡¼¥ó£É£Ä(²áµî)¤Ë¥·¡¼¥ó£É£Ä(¸½ºß)¤òÂåÆþ¤¹¤ë
g_nSceneIdOld = g_nSceneIdNow
// ¥·¡¼¥ó£É£Ä(¸½ºß)¤Ë¥·¡¼¥ó£É£Ä(̤Íè)¤òÂåÆþ¤¹¤ë
g_nSceneIdNow = g_nSceneIdNew
// ½ªÎ»½èÍý¤ËÁ«°Ü¤¹¤ë
g_nProcessId = ENUM_PROCESS_ID_END
}
swbreak
// ½ªÎ»½èÍý¤Î¾ì¹ç
case ENUM_PROCESS_ID_END
// ½ªÎ»½èÍý¤ò¹Ô¤¦
ProcessEnd g_nSceneIdNow, g_nSceneIdOld
// ¥·¡¼¥ó£É£Ä(̤Íè)¤¬¥·¡¼¥ó£É£Ä(¸Â³¦ÃÍ)¤Î¾ì¹ç
if(g_nSceneIdNew == ENUM_SCENE_ID_LIMIT) {
// £È£Ó£Ð¤ò½ªÎ»¤¹¤ë
g_nProcessId = ENUM_PROCESS_ID_LIMIT
}
swbreak
// ¾åµ°Ê³°¤Î¾ì¹ç
default
swbreak
swend
until g_nProcessId >= ENUM_PROCESS_ID_LIMIT
// £È£Ó£Ð¤ò½ªÎ»¤¹¤ë
end
stop

| |
|