game Module

Uses

- iso_c_binding
- menu
- cinter
- sleep_std
- errs
- blocks
- shapes
- fields
- random
- keys

Contents

Variables

F trate players update debug difffact

Subroutines

main_game mainsub redraw cmd_parse draw_screen draw_score

Variables

Type	Visibility	Attributes		Name		Initial
type(Field),	public		::	F(2)
integer,	public		::	trate
integer,	public		::	players
logical,	public		::	update	=	.false.
logical,	public		::	debug	=	.false.
real,	public		::	difffact

Subroutines

public subroutine main_game(W, H)

get tick rae

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	W
integer,	intent(in)			::	H

public subroutine mainsub(F, P, NP)

time's up, move piece one step down. real(trate) is necessary for float time comparison!

Arguments

Type	Intent	Optional	Attributes		Name
class(Field)				::	F
type(Piece)				::	P
type(Piece)				::	NP

public subroutine redraw(F, P, NP)

Arguments

Type	Intent	Optional	Attributes		Name
class(Field),	intent(in)			::	F
class(Piece),	intent(in)			::	P
class(Piece),	intent(in)			::	NP

public subroutine cmd_parse(W, H)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	W
integer,	intent(out)			::	H

public subroutine draw_screen(F)

Arguments

Type	Intent	Optional	Attributes		Name
class(Field),	intent(in)			::	F

public subroutine draw_score(F)

Arguments

Type	Intent	Optional	Attributes		Name
class(Field),	intent(in)			::	F