#include "ti83pce.inc"
.assume ADL=1
.db tExtTok,tAsm84CeCmp
.org userMem
;#macro safe_call(x) push iy \ ld iy,$D00080 \ call x \ pop iy #endmacro
;;........................................................
	call _clrscrnfull			;reglage de l'ecran

	ld hl,$FFFF \ ld (mpLCDPalette),hl
	ld hl,$7C00 \ ld (mpLCDPalette+2),hl
	ld hl,$001F \ ld (mpLCDPalette+4),hl

	ld a,$27
	ld ($E30018),a

	ld hl,$D403C8	;y1			;affichage de l'ecran
	ld a,221d
	call _RoutineV
	ld hl,$D4064A	;y2
	ld a,217d
	call _RoutineV
	ld hl,$D40776	;y3
	ld a,217d
	call _RoutineV
	ld hl,$D404F8	;y4
	ld a,221d
	call _RoutineV

	ld hl,$D403C9	;x1
	ld bc,302d
	call _RoutineH
	ld hl,$D4064B	;x2
	ld bc,298d
	call _RoutineH
	ld hl,$D5144B	;x3
	ld bc,298d
	call _RoutineH
	ld hl,$D516C9	;x4
	ld bc,302d
	call _RoutineH

	ld hl,$D4078B
	ld a,215
RoutineC:
	ld bc,298d
	ld (hl),0d
	ex de,hl
	or a,a
	sbc hl,hl
	add hl,de
	inc de
	ldir
	ld bc,22d
	add hl,bc
	dec a
	jr nz,RoutineC

;;........................................................
;;Reglage

	LD B ,%00001000			;DE3
	LD HL,$D03342			;HL4
	LD ($D031F6),HL			;Adresse de HL4
	LD (HL),B
	LD HL,$D4D290			;DE4
	PUSH HL
	LD HL,$D0335B			;HL2
	LD (HL),B
	PUSH HL
	LD HL,$D4C390			;DE2
	PUSH HL
	LD HL,$D0335B			;HL3
	LD (HL),B
	LD DE,$D4C390			;DE3
	EXX
	LD HL,$D03374			;HL1
	LD (HL),B
	LD DE,$D4B490			;DE1

	PUSH HL

;;........................................................
;;Detection des touches

Boucle:

	LD HL,$F50000
	LD (HL),2
	XOR A
scan_wait:
	CP (HL)
	JR nz,scan_wait
	POP HL
DGetKey:
	LD A,($F5001E)
	BIT 0,A
	jp nz,AdjustKdown
	BIT 1,A
	jp nz,AdjustKleft
	BIT 2,A
	jp nz,AdjustKright
	BIT 3,A
	jp nz,AdjustKup

;;........................................................		;ne fonctionne pas
;;Detection des collisions

;(DE)=Sprite regle
;(HL)=HL1

	PUSH BC				;save BC
	LD BC,$7
	EX DE,HL			; test coté droit
	ADD HL,BC			;Permet de mettre sur un pixel noir si attein les bords (ajoute 7)
	LD A,(HL)
	OR A,A
	;JP z,EndTheGame			;Test si c'est un pixel noir
	OR A,A
	SBC HL,BC			;remait DE à son ancienne valeure

	OR A,A				; test coté gauche
	SBC HL,BC			;Permet de mettre sur un pixel noir si attein les bords (ajoute 7)
	LD A,(HL)
	OR A,A
	;JP z,EndTheGame			;Test si c'est un pixel noir
	ADD HL,BC			;remait DE à son ancienne valeure
	EX DE,HL
	POP BC

	LD A,(HL)
	BIT 4,A
	JP nz,EndTheGame

;;........................................................
;;Affichage de la tête

AffichageTete:
	PUSH DE
	BIT 0,B
	CALL nz,_Adown
	BIT 3,B
	CALL nz,_Aup
	BIT 1,B
	CALL nz,_Aleft
	BIT 2,B
	CALL nz,_Aright

	CALL _SpriteA	; stake: 1.BC 2.HL

	POP BC
	POP HL
	POP IX
	POP IY
	PUSH HL
	PUSH DE
	LEA HL,IY

;;........................................................
;;Affichage de la partie après la tête

GetMouveAfterA:
	LD C,(HL)
	BIT 0,C
	CALL nz,_AftermouveDown
	BIT 3,C
	CALL nz,_AftermouveUp
	BIT 1,C
	CALL nz,_AftermouveLeft
	BIT 2,C
	CALL nz,_AftermouveRight
GetSpriteAfterA:
	POP BC
	POP HL
	LD A,(HL)
	PUSH HL
	PUSH BC
	CP A,C
	JP nz,GetSpriteAfterA_Rotation
	BIT 0,C
	CALL nz,_GetSpriteAADown
	BIT 3,C
	CALL nz,_GetSpriteAAUp
	BIT 1,C
	CALL nz,_GetSpriteAALeft
	BIT 2,C
	CALL nz,_GetSpriteAARight
AffiSpriteAfterA:

	Call _SpriteA

	POP BC
	POP IX
	POP IY
	POP HL
	PUSH IX
	PUSH DE
	LEA DE,IY

;;........................................................
;;Gestion de la pomme
;;Utilise HL1, et les registres HL, DE, BC.

;Detection
;(DE)=Sprite DE1
;(HL)=HL1

	LD A,(HL)		; test position, si 1, c'est fini ;) .
	BIT 5,A
	JP z,FinEtSuite

	PUSH HL		;Sauvegarde
	PUSH DE
	PUSH BC

Alleatoire:
;routine aleatoire TheMachine02
;;Expects ADL mode.
;;Output: HL
;;50cc
;;33 bytes
;;cycle length: 281,474,959,933,440 (about 2.8 trillion)
    ld de,(seed1)
    or a
    sbc hl,hl
    add hl,de
    add hl,hl
    add hl,hl
    inc l
    add hl,de
    ld (seed1),hl
    ld hl,(seed2)
    add hl,hl
    sbc a,a
    and %00011011
    xor l
    ld l,a
    ld (seed2),hl
    add hl,de
	;fin de la routine
	LD DE,0
	LD A,H
	LD E,L
	AND A,%00000001
	LD D,A
	OR A,A
	SBC HL,HL
	;test si
	BIT 0,D
	JR z,Matrice
	LD A,R
	AND A,%01111111
	LD E,A         ;empeche de dépassement de 450
Matrice:
	LD HL,$D0300A		;debut matrice
	ADD HL,DE
	LD A,(HL)
	BIT 4,A
	JR z,Alleatoire
	AND A,%11011111
	LD (HL),A
VRAMPomme:
	EX DE,HL
	LD DE,$D40645		;debut VRAM
	ld BC,25d
	PUSH HL
PommeY:
	LD HL,320d
	EX DE,HL
	ADD HL,DE
	EX DE,HL
	POP HL
	OR A,A
	SBC HL,BC
	PUSH HL
	JP p,PommeY

	LD HL,320d
	EX DE,HL
	OR A,A
	SBC HL,DE
	EX DE,HL

	POP HL
	ADD HL,BC

	EX DE,HL
	LD BC,12d
PommeX:
	DEC E
	ADD HL,BC
	JP p,PommeX
	OR A,A
	SBC HL,BC
	EX DE,HL
	LD HL,SpritePomme

	CALL _SpriteA

	POP BC
	POP DE
	POP HL
	JP Boucle	;Detection des touches

FinEtSuite:

	EXX

;;........................................................
;;Affichage de la queue

AffQueue:
	PUSH DE
	LD C,(HL)
	BIT 0,C
	CALL nz,_AFFQDown
	BIT 3,C
	CALL nz,_AFFQUp
	BIT 1,C
	CALL nz,_AFFQLeft
	BIT 2,C
	CALL nz,_AFFQRight

	CALL _SpriteA

	POP HL
	POP BC
	POP IX
	POP IY
	PUSH HL
	PUSH DE
	PUSH IX
	PUSH BC
	LD HL,$D031F6	;adresse de HL4
	LEA DE,IY

;;........................................................
;;Effacement et remise à 0 de la partie des dirrections et du bit de d'information sur si le corps du serpent est bien là, du registre B

Effacement:

	ld C,(HL)
	BIT 0,C
	CALL nz,_EffDown
	BIT 3,C
	CALL nz,_EffUp
	BIT 1,C
	CALL nz,_EffLeft
	BIT 2,C
	CALL nz,_EffRight

	LD HL,SpriteEffSnake
	CALL _SpriteA

	POP BC
	POP HL
	POP IX
	POP IY
	PUSH DE
	PUSH HL
	PUSH BC
	LEA HL,IY
	LEA DE,IX
	EXX

	JP Boucle

;;........................................................

GetSpriteAfterA_Rotation:
	BIT 0,C
	JR nz,ABit0R
	BIT 3,C
	JR nz,ABit3R
	BIT 1,C
	JR nz,ABit1R
	JR z,ABit2R
ABit0R:
	BIT 1,A
	CALL nz,_GetSpriteAAR3
	CALL z,_GetSpriteAAR4
	JP AffiSpriteAfterA
ABit3R:
	BIT 1,A
	CALL nz,_GetSpriteAAR1
	CALL z,_GetSpriteAAR2
	JP AffiSpriteAfterA
ABit1R:
	BIT 0,A
	CALL nz,_GetSpriteAAR2
	CALL z,_GetSpriteAAR4
	JP AffiSpriteAfterA
ABit2R:
	BIT 0,A
	CALL nz,_GetSpriteAAR1
	CALL z,_GetSpriteAAR3
	JP AffiSpriteAfterA

;;........................................................
EndTheGame:
	RET		;end ;)

;;........................................................

_RoutineV:
	ld bc,320d
	ld (hl),2d
	add hl,bc
	dec a
	jr nz,_RoutineV
	ret

_RoutineH:
	ld (hl),2d
	ex de,hl
	or a,a
	sbc hl,hl
	add hl,de
	inc de
	ldir
	ret

;;........................................................

AdjustKdown:
	BIT 3,B
	JP nz,AffichageTete
	RES 1,B
	RES 2,B
	SET 0,B
	SET 4,B
	jp DGetKey
AdjustKup:
	BIT 0,B
	JP nz,AffichageTete
	RES 1,B
	RES 2,B
	SET 3,B
	SET 4,B
	jp DGetKey
AdjustKleft:
	BIT 2,B
	JP nz,AffichageTete
	RES 0,B
	RES 3,B
	SET 1,B
	SET 4,B
	jp DGetKey
AdjustKright:
	BIT 1,B
	JP nz,AffichageTete
	RES 0,B
	RES 3,B
	SET 2,B
	SET 4,B
	jp DGetKey
_Adown:
	POP IX
	LD (HL),B
	LD DE,$11
	ADD HL,DE
	POP DE
	PUSH HL
	PUSH BC
	LD BC,$F00
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	PUSH IX
	LD HL,SpriteDownA
	RET
_Aup:
	POP IX
	LD (HL),B
	LD DE,$11
	OR A,A
	SBC HL,DE
	POP DE
	PUSH HL
	PUSH BC
	LD BC,$F00
	EX DE,HL
	OR A,A
	SBC HL,BC
	EX DE,HL
	PUSH IX
	LD HL,SpriteUpA
	RET
_Aleft:
	POP IX
	LD (HL),B
	DEC HL
	POP DE
	PUSH HL
	PUSH BC
	LD BC,$B
	EX DE,HL
	OR A,A
	SBC HL,BC
	EX DE,HL
	PUSH IX
	LD HL,SpriteLeftA
	RET
_Aright:
	POP IX
	LD (HL),B
	INC HL
	POP DE
	PUSH HL
	PUSH BC
	LD BC,$B
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	PUSH IX
	LD HL,SpriteRightA
	RET
_AftermouveDown:
	POP IY
	LD DE,$11
	ADD HL,DE
	LEA DE,IX
	PUSH HL
	PUSH BC
	LD BC,$F00
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	PUSH IY
	RET
_AftermouveUp:
	POP IY
	LD DE,$11
	OR A,A
	SBC HL,DE
	LEA DE,IX
	PUSH HL
	PUSH BC
	LD BC,$F00
	EX DE,HL
	OR A,A
	SBC HL,BC
	EX DE,HL
	PUSH IY
	RET
_AftermouveLeft:
	POP IY
	DEC HL
	LEA DE,IX
	PUSH HL
	PUSH BC
	LD BC,$B
	EX DE,HL
	OR A,A
	SBC HL,BC
	EX DE,HL
	PUSH IY
	RET
_AftermouveRight:
	POP IY
	INC HL
	LEA DE,IX
	PUSH HL
	PUSH BC
	LD C,$B
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	PUSH IY
	RET
_GetSpriteAADown:
	LD HL,SpriteAADown
	RET
_GetSpriteAAUp:
	LD HL,SpriteAADown
	RET
_GetSpriteAALeft:
	LD HL,SpriteAARight
	RET
_GetSpriteAARight:
	LD HL,SpriteAARight
	RET
_GetSpriteAAR1:
	LD HL,SpriteAAR1
	RET
_GetSpriteAAR2:
	LD HL,SpriteAAR2
	RET
_GetSpriteAAR3:
	LD HL,SpriteAAR3
	RET
_GetSpriteAAR4:
	LD HL,SpriteAAR4
	RET
_AFFQDown:
	POP IX
	LD DE,$11
	ADD HL,DE
	POP DE
	PUSH HL
	LD BC,$F00
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	LD HL,SpriteAGdown
	PUSH IX
	RET
_AFFQUp:
	POP IX
	LD DE,$11
	OR A,A
	SBC HL,DE
	POP DE
	PUSH HL
	LD BC,$F00
	EX DE,HL
	OR A,A
	SBC HL,BC
	EX DE,HL
	LD HL,SpriteAGup
	PUSH IX
	RET
_AFFQLeft:
	POP IX
	DEC HL
	POP DE
	PUSH HL
	LD BC,$B
	EX DE,HL
	OR A,A
	SBC HL,BC
	EX DE,HL
	LD HL,SpriteAGleft
	PUSH IX
	RET
_AFFQRight:
	POP IX
	INC HL
	POP DE
	PUSH HL
	LD BC,$B
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	LD HL,SpriteAGright
	PUSH IX
	RET

_EffDown:
	LD (HL),0
	LD BC,$11
	ADD HL,BC
	LD ($D031F6),HL	;adresse de HL4
	LD BC,$F00
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	RET
_EffUp:
	LD (HL),0
	LD BC,$11
	OR A,A
	SBC HL,BC
	LD ($D031F6),HL	;adresse de HL4
	LD BC,$F00
	EX DE,HL
	OR A,A
	SBC HL,BC
	EX DE,HL
	RET
_EffLeft:
	LD (HL),0
	DEC HL
	LD ($D031F6),HL	;adresse de HL4
	LD BC,$B
	EX DE,HL
	OR A,A
	SBC HL,BC
	EX DE,HL
	RET
_EffRight:
	LD (HL),0
	INC HL
	LD ($D031F6),HL	;adresse de HL4
	LD C,$B
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	RET

_SpriteA:
	LD A,12d
CopyLineA:
	LD BC,12d
	LDIR
	LD BC,308d
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	DEC A
	JR nz,CopyLineA
	LD BC,$F0C
	EX DE,HL
	OR A,A
	SBC HL,BC
	EX DE,HL
	RET

;........................................................
;Tête

SpriteDownA:
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,1,1,1,1,1,1,1,1,0,0
	.db	0,0,0,1,1,1,1,1,1,0,0,0
	.db	0,0,0,0,1,1,1,1,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0,0


SpriteUpA:
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,1,1,1,1,0,0,0,0
	.db	0,0,0,1,1,1,1,1,1,0,0,0
	.db	0,0,1,1,1,1,1,1,1,1,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0,0

SpriteLeftA:
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,1,0,0,0,0,0,0,0,0
	.db	0,0,1,1,0,0,0,0,0,0,0,0
	.db	0,1,1,1,0,0,0,0,0,0,0,0
	.db	1,1,1,1,1,1,1,1,1,1,1,1
	.db	1,1,1,1,1,1,1,1,1,1,1,1
	.db	0,1,1,1,0,0,0,0,0,0,0,0
	.db	0,0,1,1,0,0,0,0,0,0,0,0
	.db	0,0,0,1,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0

SpriteRightA:
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,1,0,0,0
	.db	0,0,0,0,0,0,0,0,1,1,0,0
	.db	0,0,0,0,0,0,0,0,1,1,1,0
	.db	1,1,1,1,1,1,1,1,1,1,1,1
	.db	1,1,1,1,1,1,1,1,1,1,1,1
	.db	0,0,0,0,0,0,0,0,1,1,1,0
	.db	0,0,0,0,0,0,0,0,1,1,0,0
	.db	0,0,0,0,0,0,0,0,1,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0


;........................................................
;Après la tête

SpriteAADown:
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0,0



SpriteAARight:
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	1,1,1,1,1,1,1,1,1,1,1,1
	.db	1,1,1,1,1,1,1,1,1,1,1,1
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0



;........................................................
;Après la tête rotation

SpriteAAR1:
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,1,1,1,0,0,0,0,0
	.db	0,0,0,1,1,1,1,0,0,0,0,0
	.db	1,1,1,1,1,1,0,0,0,0,0,0
	.db	1,1,1,1,1,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0



SpriteAAR2:
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,1,0,0,0,0
	.db	0,0,0,0,0,1,1,1,1,0,0,0
	.db	0,0,0,0,0,0,1,1,1,1,1,1
	.db	0,0,0,0,0,0,0,1,1,1,1,1
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0



SpriteAAR3:
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	1,1,1,1,1,0,0,0,0,0,0,0
	.db	1,1,1,1,1,1,0,0,0,0,0,0
	.db	0,0,0,1,1,1,1,0,0,0,0,0
	.db	0,0,0,0,1,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0,0



SpriteAAR4:
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,1,1,1,1,1
	.db	0,0,0,0,0,0,1,1,1,1,1,1
	.db	0,0,0,0,0,1,1,1,1,0,0,0
	.db	0,0,0,0,0,1,1,1,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0,0



;........................................................
;La Queue

SpriteAGdown:
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,1,1,1,1,0,0,0,0
	.db	0,0,0,0,1,1,1,1,0,0,0,0
	.db	0,0,0,0,1,1,1,1,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0,0



SpriteAGup:
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,1,1,1,1,0,0,0,0
	.db	0,0,0,0,1,1,1,1,0,0,0,0
	.db	0,0,0,0,1,1,1,1,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0



SpriteAGleft:
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,1,1,1,0,0,0,0,0,0,0
	.db	1,1,1,1,1,1,1,1,1,0,0,0
	.db	1,1,1,1,1,1,1,1,1,0,0,0
	.db	0,0,1,1,1,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0



SpriteAGright:
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,1,1,1,0,0
	.db	0,0,0,1,1,1,1,1,1,1,1,1
	.db	0,0,0,1,1,1,1,1,1,1,1,1
	.db	0,0,0,0,0,0,0,1,1,1,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0



;........................................................
;La pomme

SpritePomme:
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,2,0,0,0
	.db	0,0,0,0,0,0,0,2,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,1,1,1,1,0,0,0,0
	.db	0,0,0,1,1,2,2,1,1,0,0,0
	.db	0,0,0,1,1,2,2,1,1,0,0,0
	.db	0,0,0,0,1,1,1,1,0,0,0,0
	.db	0,0,0,0,0,1,1,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0



;........................................................
;Effacement

SpriteEffSnake:
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0





.end