¤³¤Á¤é¤ÏHSPÎò2¥ö·îȾ¤Î¼Ô¤Ç¤¹¡£
¤Ê¤ª¡¢C¸À¸ìÎò16ǯ¡¢C++¸À¸ìÎò7ǯ¤À¤Ã¤¿¤ê¤·¤Þ¤¹¡£
ºÇ¶á¡¢HSP¤Ç¤¤¤í¤¤¤í¤È¥Ä¡¼¥ë¥½¥Õ¥È¤òºîÀ®¤·¡¢
¥Þ¥Ë¥å¥¢¥ë¤È¥Í¥Ã¥È¸¡º÷¤è¤ê gsquare Ì¿Îá¤Î»È¤¤Êý¤ò³Ð¤¨¤Þ¤·¤¿¡£
¤½¤³¤Çº£Æü¤Ï¥·¥å¡¼¥Æ¥£¥ó¥°¡¦¥²¡¼¥à¤ò»î¤·¤Ëºî¤í¤¦¤È¤·¤Þ¤·¤¿¡£
¤½¤³¤ÇÌäÂ꤬ȯÀ¸¤·¤Þ¤¹¡£
¤Þ¤º¤Ï¼¡¤Î¥µ¥ó¥×¥ë¤ò¼Â¹Ô¤·¤Æ¸«¤Æ²¼¤µ¤¤¡£
// µ¹æÄê¿ô¾åµ¤Î¥µ¥ó¥×¥ë¤Ï£±ÃÊÌܤβèÁü¤ò gsquare ¤ÇÊÑ·Á¤·¤Æ buffer 2 ¤Ë¥³¥Ô¡¼¤·¤Æ¤Þ¤¹¡£
#const FIGHT_XSIZE (32) #const FIGHT_YSIZE (32) #const SLOPE_COUNT (7) // ¥á¥¤¥óÉô *Main gosub *MakeImage : pos 0, 0 : gcopy 2,0,0,(FIGHT_XSIZE*SLOPE_COUNT),FIGHT_YSIZE gosub *CopyImage : pos 0,32 : gcopy 1,0,0,(FIGHT_XSIZE*SLOPE_COUNT),FIGHT_YSIZE stop // ¼«Æ°²èÁüÀ¸À® *MakeImage buffer 2,(FIGHT_XSIZE*SLOPE_COUNT),FIGHT_YSIZE font MSGOTHIC,FIGHT_YSIZE s="£","¢","¡","»³","¡","¢","£" x=0 y=0 rrr=$00 : ggg=$99 : bbb=$00 repeat SLOPE_COUNT color rrr,ggg,bbb : boxf x,y,(x+FIGHT_XSIZE),(y+FIGHT_YSIZE) color $00,$66,$00 : pos x,y : mes s(cnt) x+=FIGHT_XSIZE ggg+=$11 loop gsel 0 return // »Í³Ñ·Á¤Î¥³¥Ô¡¼ *CopyImage buffer 1,(FIGHT_XSIZE*SLOPE_COUNT),FIGHT_YSIZE color $00,$00,$00 : boxf x=0 y=0 // £ dstX=(x+8),(x+24),(x+24),(x+ 8) dstY=(y+8),(y+ 0),(y+32),(y+24) srcX=(x+0),(x+32),(x+32),(x+ 0) srcY=(y+0),(y+ 0),(y+32),(y+32) gsquare 2,dstX,dstY,srcX,srcY : x+=FIGHT_XSIZE // ¢ dstX=(x+4),(x+28),(x+28),(x+ 4) dstY=(y+8),(y+ 0),(y+32),(y+24) srcX=(x+0),(x+32),(x+32),(x+ 0) srcY=(y+0),(y+ 0),(y+32),(y+32) gsquare 2,dstX,dstY,srcX,srcY : x+=FIGHT_XSIZE // ¡ dstX=(x+0),(x+32),(x+32),(x+ 0) dstY=(y+4),(y+ 0),(y+32),(y+28) srcX=(x+0),(x+32),(x+32),(x+ 0) srcY=(y+0),(y+ 0),(y+32),(y+32) gsquare 2,dstX,dstY,srcX,srcY : x+=FIGHT_XSIZE // »³ dstX=(x+0),(x+32),(x+32),(x+ 0) dstY=(y+0),(y+ 0),(y+32),(y+32) srcX=(x+0),(x+32),(x+32),(x+ 0) srcY=(y+0),(y+ 0),(y+32),(y+32) gsquare 2,dstX,dstY,srcX,srcY : x+=FIGHT_XSIZE // ¡ dstX=(x+0),(x+32),(x+32),(x+ 0) dstY=(y+0),(y+ 4),(y+28),(y+32) srcX=(x+0),(x+32),(x+32),(x+ 0) srcY=(y+0),(y+ 0),(y+32),(y+32) gsquare 2,dstX,dstY,srcX,srcY : x+=FIGHT_XSIZE // ¢ dstX=(x+4),(x+28),(x+28),(x+ 4) dstY=(y+0),(y+ 8),(y+24),(y+32) srcX=(x+0),(x+32),(x+32),(x+ 0) srcY=(y+0),(y+ 0),(y+32),(y+32) gsquare 2,dstX,dstY,srcX,srcY : x+=FIGHT_XSIZE // £ dstX=(x+8),(x+24),(x+24),(x+ 8) dstY=(y+0),(y+ 8),(y+24),(y+32) srcX=(x+0),(x+32),(x+32),(x+ 0) srcY=(y+0),(y+ 0),(y+32),(y+32) gsquare 2,dstX,dstY,srcX,srcY : x+=FIGHT_XSIZE gsel 0 return
¤³¤Î£²ÃÊÌܤκ¸Â¦¤Î£³¤Ä¤Î²èÁü¤ò¸«¤Æ²¼¤µ¤¤¡£
»ä¤Î´Ä¶¤Ç¤Ï£¡¢¢¡¢¡¤Î±¦²¼¶ù¤¬·ç¤±¤Æ¤Þ¤¹¡£
³§¤µ¤ó¤Î´Ä¶¤Ç¤ÏÀµ¾ï¤ËÂæ·Á¥³¥Ô¡¼¤Ç¤¤Æ¤Þ¤¹¤«¡©
Ʊ¤¸¸½¾Ý¤Ç±¦²¼¶ù¤¬·ç¤±¤Æ¤¤¤¿¾ì¹ç¤Ï¡¢¤É¤Î¤è¤¦¤Ë½¤Àµ¤¹¤ì¤ÐÎɤ¤¤Î¤«¡©
¶µ¤¨¤ÆÍߤ·¤¤¤Ç¤¹¡£(HSP¥Ð¥°¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡©)