Show
Ignore:
Timestamp:
09/27/08 13:27:54 (3 months ago)
Author:
mokehehe
Message:

マップ情報をファイルから読み込むよう変更

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/haskell/nario/Field.hs

    r20025 r20026  
    22module Field ( 
    33        Field, 
    4         getField, 
     4        loadField, 
    55        fieldRef, 
    66        isBlock, 
    … …  
    1919-- マップ 
    2020 
    21 fieldMap :: Field 
    22 fieldMap = [ 
    23 --       111111111111111122222222222222223333333333333333 
    24         "                                                ", 
    25         "                  123               1223        ", 
    26         "        123       456      12223    4556        ", 
    27         "        456                45556                ", 
    28         "                                                ", 
    29         "                      ?                         ", 
    30         "                                                ", 
    31         "                                                ", 
    32         "                                                ", 
    33         "   _            ?   O?O?O                     []", 
    34         "  /,`                                 []      l|", 
    35         " /,.,`           _          []        l|      l|", 
    36         "/.....`    78889/,`    789  l|        l| 7889 l|", 
    37         "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@", 
    38         "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 
    39         ] 
     21-- マップ読み込み 
     22loadField :: Int -> IO Field 
     23loadField stage = readFile fn >>= return . lines 
     24        where 
     25                fn = "data/stage" ++ (show stage) ++ ".map" 
    4026 
    41  
    42 getField :: Int -> Field 
    43 getField stage = fieldMap 
    4427 
    4528chr2img '@' = ImgBlock1 
    … …  
    4932chr2img '/' = ImgMt11 
    5033chr2img ',' = ImgMt12 
    51 chr2img '`' = ImgMt13 
     34chr2img '\\' = ImgMt13 
    5235chr2img '.' = ImgMt22 
    5336chr2img '1' = ImgCloud00 
    … …  
    7861 
    7962 
    80 renderField sur imgres scrx = sequence_ $ concatMap lineProc $ zip [0..] fieldMap 
     63renderField sur imgres scrx fld = sequence_ $ concatMap lineProc $ zip [0..] fld 
    8164        where 
    8265                lineProc (y, ln) = map (cellProc y) $ zip [0..] ln