°ÔÀÓ :: Roguelike :: World. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Erik Aronesty
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~earonesty/
°ÔÀÓ :: Roguelike :: World. ű×
°ÔÀÓ :: Roguelike :: World. ¼³¸í
Roguelike World. °ÔÀÓ :: Roguelike :: World´Â Perl.synopsis ÆÐÅ°Áö MyworldÀÇ Roguelike ¼¼°èÀÔ´Ï´Ù. ±âº» '°ÔÀÓ :: Roguelike :: World'¸¦ »ç¿ëÇϽʽÿÀ. $ r = myworld-> new (w => 80, h => 50, dispw => 40, disph => 18); # ÁöÁ¤µÈ ³Êºñ / ³ôÀÌ ¹×Áöµµ Ç¥½Ã ³Êºñ / ³ôÀÌ $ R-> ¿µ¿ª (»õ °ÔÀÓ :: Roguelike :: ¿µ¿ª (name => '1'))À¸·Î ¼¼°è¸¦ ¸¸µì´Ï´Ù. #ÀÌ ¼¼»ó¿¡¼ "1"$ r-> Áö¿ª -> genmaze2 ()¶ó´Â »õ·Î¿î ¿µ¿ªÀ» ¸¸µì´Ï´Ù. # CavelIKe Maze $ Char = Games :: Roguelike :: Mob-> New ($ R-> ¿µ¿ª, sym => '@', pov => 8); # '@'$ r-> setvp ($ char)¿Í ÇÔ²² ¸ð¹ÙÀÏ °´Ã¼¸¦ Ãß°¡ÇÕ´Ï´Ù. # $ charÀÇ °üÁ¡¿¡¼ º¼ ¼öÀÖ´Â Viewpoint¸¦ ¼³Á¤ÇϽʽÿÀ $ R-> DrawMap (); # ÇöÀçÀÇ °üÁ¡¿¡¼ È°¼º ¿µ¿ª ¸ÊÀ» ±×¸³´Ï´Ù (! ((((((((((((((((((((((((((((((((((³» $ c = $ r-> getch ()) eq 'q')) {$ char-> kbdmove ($ c); $ r-> drawmap (); } ¸ð½À, Ç׸ñ, MOB ó¸® ¹×Áöµµ µµ¸é Äڵ带 ÇÔ²² °¡Á® ¿À´Â ÀϹÝÀûÀÎ ½ºÆ®·¹Äª °´Ã¼. * °ÔÀÓÀÇ Çؽø¦ Æ÷ÇÔÇÕ´Ï´Ù :: Roguelike :: °ÔÀÓÀÇ °¢ "·¹º§"¶Ç´Â "Áö¿ª"¿¡ ´ëÇÑ ¿µ¿ª *Àº °ÔÀÓÀ» »ç¿ëÇÕ´Ï´Ù * Roguelike :: Console Library ÇöÀç ¿µ¿ªÀ» ±×¸®´Â * »ç¿ëÀÚ°¡ ¹«½Ã·¯µµ µÈ °ÔÀÓÀ» »ç¿ëÇÏ´Â °ÍÀ¸·Î °¡Á¤ÇÕ´Ï´Ù. :: Roguelike :: MobÀÇ ¹®ÀڷμÀÇ ¹®ÀÚ·Î »ç¿ëÀÚ°¡ ¹«½ÃÇÑ °ÔÀÓÀ» »ç¿ëÇÏ°í ÀÖ½À´Ï´Ù :: Roguelike :: Ç׸ñÀÇ Ç׸ñÀº °ÔÀÓÀÇ Ç׸ñÀ¸·Î °¡Á¤ÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
°ÔÀÓ :: Roguelike :: World. °ü·Ã ¼ÒÇÁÆ®¿þ¾î