-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy patht6lines.as
180 lines (154 loc) · 3.84 KB
/
t6lines.as
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
;-------------------------------------------------------------------------------
; コンパイルオプション
#packopt name "t6lines.exe"
#packopt type 0
#packopt xsize 320
#packopt ysize 480
#pack "fon_cha1.png"
#pack "fon_cha2.png"
#pack "fon_ball.png"
;-------------------------------------------------------------------------------
; フォント画像の分割サイズ
#const global g_font_png_x 16
#const global g_font_png_y 32
; フォントサイズ（スクリーンサイズ比）
;#const global g_font_x 12
;#const global g_font_y 24
g_font_x = ginfo_winx / 25
g_font_y = ginfo_winy / 20
; ボールの大きさ
g_ball_size = 48
; スクリーンサイズ
;#const global g_screen_x 320
;#const global g_screen_y 480
g_screen_x = ginfo_winx
g_screen_y = ginfo_winy
g_screen_view_y = g_screen_y - ( g_font_y * 2)
; ブランド名 tan6°
g_tan6 = "tan6 "
poke g_tan6, 4, 127
#module
#defcfunc log10 int _x
; log10(x)
; 常用対数（切捨て）を返す
if ( _x <= 0 ) {
ret = 0
} else {
ret = int ( logf(_x) / logf(10) )
}
return ret
#global
#module
#deffunc fprint str _p1, int _alpha
; fprint "message"
; (画像を使用したフォント表示を行ないます)
; "message" : 表示するメッセージ
; 表示座標は、posで指定した位置から
; 半角カナは全角フォント画像より読み取る
;
i = 0: st = _p1
fx = double( 1.0 * g_font_x@ / g_font_png_x@ )
fy = double( 1.0 * g_font_y@ / g_font_png_y@ )
gmode 5, 0, 0, _alpha
repeat
a1 = peek(st, i) :i++
if a1 = 0 :break
if a1 = 13 { ; 改行
a1 = peek(st, i)
if a1 = 10 :i++
continue
} else {
if ( a1 & 128 ) {
celput 3 , a1 - 160, fx, fy
} else {
celput 2 , a1 - 32, fx, fy
}
}
loop
return
#global
; 移動可能先を探索する関係モジュール
#module
#deffunc MovableArrInit
; 配列初期化
dim r, 9, 9
return
#deffunc MovableArrSet int _x, int _y
; 移動可能先設定再帰ルーチン
; _x : 現在地x座標
; _y : 現在地y座標
r(_x, _y) = 1
if ( 0 < _x ) {
if ( arr_field@(_x-1, _y) = 0 ) & ( r(_x-1, _y) = 0 ) :MovableArrSet _x-1, _y
}
if ( _x < 8 ) {
if (( arr_field@(_x+1, _y) = 0 ) & ( r(_x+1, _y) = 0 )) :MovableArrSet _x+1, _y
}
if ( 0 < _y ) {
if (( arr_field@(_x, _y-1) = 0 ) & ( r(_x, _y-1) = 0 )) :MovableArrSet _x, _y-1
}
if ( _y < 8 ) {
if (( arr_field@(_x, _y+1) = 0 ) & ( r(_x, _y+1) = 0 )) :MovableArrSet _x, _y+1
}
return
#defcfunc MovableArrGet int _x, int _y
; 返り値 : 0なら移動不可、1なら移動可能
if (( _x < 0 ) | ( 9 <= _x )) :return 0
if (( _y < 0 ) | ( 9 <= _y )) :return 0
return r( _x, _y )
#global
#module
#deffunc LineCursor var _a, var _b, int _c
; 座標のカーソル変更
dim cursor_x, 8 :cursor_x = -1, 0, 1, -1, 1, -1, 0, 1
dim cursor_y, 8 :cursor_y = 1, 1, 1, 0, 0, -1, -1, -1
_a += cursor_x(_c)
_b += cursor_y(_c)
return
#defcfunc LineCheck int _x, int _y, int _i
; 一列に並んだ同じ色の数をチェックする
; _x, _y : x座標とy座標
; _i : 向き
; 返り値 : 同じ色の数
cx = _x
cy = _y
ret = 0
do
LineCursor cx, cy, _i
if (( cx < 0 ) || ( 8 < cx ) || ( cy < 0 ) || ( 8 < cy )) :_break
if ( arr_field@( cx, cy ) = arr_field@( _x, _y )) {
ret++
} else {
_break
}
until (0)
return ret
#deffunc LineCheckAll int _x, int _y
; 一列に並んだ同じ色の数をチェックする
; _x, _y : x座標とy座標
; 返り値は返さずグローバル配列にセット（改善要項）
for i, 0, 8, 1
int_comp_d@(i) = LineCheck( _x, _y, i )
next
return
#deffunc LineErase int _x, int _y, int _i, int _n
; 一列に並んだ同じ色の数を消す
; _x, _y : x座標とy座標
; _i : 向き
; _n ; 消す数
cx = _x
cy = _y
for co, 0, _n, 1
LineCursor cx, cy, _i
arr_field@( cx, cy ) = 0
next
return
#global
#module
#defcfunc EvalScore int _x
; 消した枚数に応じて特典をゲット
; 5->10 6->12 7->18 8->28 9->42 ...
; y = 2x^2 - 20x + 60
y = ( 2 * _x * _x ) - ( 20 * _x ) + 60
return y
#global