Move_Room:
 lda Hero_X
 cmp #$E9
 bcs Prawo_Move_Room

 lda Hero_X
 cmp #$08
 bcc Lewo_Move_Room

 lda Hero_Y
 cmp #$02
 bcc Gora_Move_Room

 lda Hero_Y
 cmp #$E0
 bcs Dol_Move_Room

 rts

Prawo_Move_Room:
 jsr Czysc_Sprity

 jsr CZYSC_PPU

 ldy #$01
 jsr Move_Room_ID_Mapy

 ldx #$20
 jsr TableA0

 jsr Czysc_Sprity

 jsr BGAnim.Clear

 jsr PPU_ON

 lda #$9
 sta Hero_X

Move_Room2
 rts

Lewo_Move_Room:
 jsr CZYSC_PPU

 ldy #$00
 jsr Move_Room_ID_Mapy

 ldx #$20
 jsr TableA0

 jsr Czysc_Sprity

 jsr BGAnim.Clear

 jsr PPU_ON

Lewo_Move_Room2:

 lda #$E8
 sta Hero_X

Move_Room3:
 rts

Dol_Move_Room:
 jsr Czysc_Sprity

 jsr CZYSC_PPU

 ldy #$02
 jsr Move_Room_ID_Mapy

 ldx #$20
 jsr TableA0

 jsr Czysc_Sprity

 jsr BGAnim.Clear

 jsr PPU_ON

 lda #$08
 sta Hero_Y

Move_Room4
 rts

Gora_Move_Room:
 jsr Czysc_Sprity

 jsr CZYSC_PPU

 ldy #$03
 jsr Move_Room_ID_Mapy

 ldx #$20
 jsr TableA0

 jsr Czysc_Sprity

 jsr BGAnim.Clear

 jsr PPU_ON


 lda #$DE
 sta Hero_Y

 rts

Move_Room_ID_Mapy:
 lda Numer_Lev
 asl A
 tax

 lda pokoje2+0,x
 sta addrLO
 Lda pokoje2+1,x
 sta addrHI

 LDA [addrLO], y
 sta Numer_Lev
 rts

BGAnim.Clear:		;Czyci Buffer.Bez tego animacje ta bd
 lda #$00
 sta Buff.Enable
 rts

 .include "Mapy\Pokoje_Data.txt"
 .include "Mapy\Wczytuj_Palety.txt"