TPMSX-Engine/GAMEmotor.GEN at main · jamque/TPMSX-Engine · GitHub

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
;;MOTOR DEL JOC
; ////////////////////////////////
; ///////// GAMEMOTOR ////////////
; ////////////////////////////////
GAMEMOTOR:
	; POSA EL TEU CODI AQUI

	ret


; ////////////////////////////////
; ///////// GAMEINI //////////////
; ////////////////////////////////
; Inicialitzacio de Variables del joc
GAMEINI:
	; Posa color negre al borde
	ld	A,1
	call	COLORBR

	ld	A,1
	ld	(PT3_NUMSONG),A
	xor	A
	ld	(PT3_SECOND),A
	ld	(PT3_FRAME),A
	ld	(PT3_PATTERN_POS),A

	ld	hl,MUSIC_PT3
	call	PT3_SELECTMUSIC

	call	PT3_START

	ret


;------------------------------------
; SUB RUTINES
;------------------------------------

; ////////////////////////////////
; ///////// SPRTCOL //////////////
; ////////////////////////////////
; Sprite colision
; Similar al ON SPRITE GOSUB del BASIC
SPRTCOL:
;***** Activar Control Temps Timer ***
IFDEF	TEST_BORDES
	ld	A,6
	call	COLORBR
ENDIF
;*************************************
	di		; CAL UN DISABLE INTERRUP MENTRES ES COMPROBA


SPRTCOLEND:
	xor	A
	ld	(TIM_SPC),A
;***** Activar Control Temps Timer ***
IFDEF	TEST_BORDES
	ld	A,1
	call	COLORBR
ENDIF
;*************************************
	ei
	ret


; ////////////////////////////////
; /// MOTOR_TIMER_SPECIAL ////////
; ////////////////////////////////
; Rutinas y cosas especiales que han de pasar en cada frame
;   propias del juego en especifico
MOTOR_TIMER_SPECIAL:

.END:
	ret