Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 45 lines (33 sloc) 0.714 kb
9419b57 横移動、アニメ追加
mokehehe authored
1 module Const where
2
2a0ddc5 Change comment to englist
mokehehe authored
3 -- Window
9672a7a @mokehehe Remove warnings
authored
4 wndTitle :: String
006adf5 Change nario to monao
unknown authored
5 wndTitle = "Monao in Haskell"
d5f7af9 きのこ追加
mokehehe authored
6
9672a7a @mokehehe Remove warnings
authored
7 screenWidth, screenHeight, wndBpp, frameRate :: Int
8 screenWidth = 256
9 screenHeight = 224
10 wndBpp = 32
11
12 frameRate = 60
d5f7af9 きのこ追加
mokehehe authored
13
2a0ddc5 Change comment to englist
mokehehe authored
14 -- Game timer
9672a7a @mokehehe Remove warnings
authored
15 timeBase :: Int
16 timeBase = 22
b5002d3 コメントなど修正
mokehehe authored
17
9419b57 横移動、アニメ追加
mokehehe authored
18
2a0ddc5 Change comment to englist
mokehehe authored
19 -- One for fixed point integer
9672a7a @mokehehe Remove warnings
authored
20 one :: Int
21 one = 256
9419b57 横移動、アニメ追加
mokehehe authored
22
2a0ddc5 Change comment to englist
mokehehe authored
23 -- Size of charcter
9672a7a @mokehehe Remove warnings
authored
24 chrSize :: Int
25 chrSize = 16
9419b57 横移動、アニメ追加
mokehehe authored
26
2a0ddc5 Change comment to englist
mokehehe authored
27 -- Gravity
9672a7a @mokehehe Remove warnings
authored
28 gravity :: Int
374232a プレーヤー操作性調整
mokehehe authored
29 gravity = one * 2 `div` 5
30
2a0ddc5 Change comment to englist
mokehehe authored
31 -- Maximum speed for falling
9672a7a @mokehehe Remove warnings
authored
32 maxVy :: Int
a080f0f ファイヤーナリオのときにショットを撃てるように
mokehehe authored
33 maxVy = one * 5
34
374232a プレーヤー操作性調整
mokehehe authored
35
2a0ddc5 Change comment to englist
mokehehe authored
36 -- Score point
9672a7a @mokehehe Remove warnings
authored
37 pointKuribo, pointNokonoko, pointKinoko, pointFlower, pointBreakBlock, pointGetCoin, pointKoura :: Int
38 pointKuribo = 100
39 pointNokonoko = 100
40 pointKinoko = 1000
41 pointFlower = 1000
42 pointBreakBlock = 50
43 pointGetCoin = 200
44 pointKoura = 400
Something went wrong with that request. Please try again.