Laduj_Opisy_Itemow:
 ldx #$21
 ldy #$A9
 sty $D0
 lda Slot1
 sta Tymczasowa_Kolizje3	;Zapisuje Z jakiego adresu ma wasciwie pobra ID opisu..
 inc Tymczasowa_Kolizje3	;Zwiksz..by numer opisu by zwikszony(dla opisu itemu FF)
 jsr cos123

 ldx #$22
 ldy #$29
 sty $D0
 lda Slot2
 sta Tymczasowa_Kolizje3	;Zapisuje Z jakiego adresu ma wasciwie pobra ID opisu..
 inc Tymczasowa_Kolizje3	;Zwiksz..by numer opisu by zwikszony(dla opisu itemu FF)
 jsr cos123

 ldx #$22
 ldy #$A9
 sty $D0
 lda Slot3
 sta Tymczasowa_Kolizje3	;Zapisuje Z jakiego adresu ma wasciwie pobra ID opisu..
 inc Tymczasowa_Kolizje3	;Zwiksz..by numer opisu by zwikszony(dla opisu itemu FF)
 jsr cos123


 ldx #$20
 ldy #$63
 sty $D0
 lda #$21
 sta Tymczasowa_Kolizje3	;Zapisuje Z jakiego adresu ma wasciwie pobra ID opisu..
 inc Tymczasowa_Kolizje3	;Zwiksz..by numer opisu by zwikszony(dla opisu itemu FF)
 jsr cos123
 rts

cos123:
 inc $91
 stx Tymczasowa_Kolizje1	;Te zmienna zostaa uyta
 sty Tymczasowa_Kolizje2	;poniewa mona bez problemw z kolizjami jej uywa
 ldy #$0
 sty Opisy_Itemow
wypisz:
 ldx Tymczasowa_Kolizje1
 STx $2006            		; W X powinno by podane do ktrej name table zapisa
 ldy Tymczasowa_Kolizje2
 STy $2006            		; w Y natomiast dokadny adres
 lda Tymczasowa_Kolizje3	;Odczytuje ID textu
 asl A
 tax
 ldy Opisy_Itemow
Sprawdz_ID_Opisu_Itemu:
 lda ID_Jezyk
 beq LANG.ENG			;00-Angielski.

 lda Item_Name_TablePL+0,x
 sta addrLO
 Lda Item_Name_TablePL+1,x          
 sta addrHI
 jmp Ile_textu_Odczytac_ADV

LANG.ENG:
 lda Item_Name_Table+0,x
 sta addrLO
 Lda Item_Name_Table+1,x          
 sta addrHI

Ile_textu_Odczytac_ADV:
 ldx #$20


Zapisz_Opis_Itemu:
 lda [addrLO],y 
 cmp #$FE
 beq Druga_linia_TEXT_ADV
 cmp #$FF
 beq tyle_tego
 cmp #$8C
 bcs Alfabet_PL_Text_ADV_Skocz
 cmp #$2E
 bcs Alfabet_ADV_Text_ADV_Skocz
 jmp ainz

Alfabet_PL_Text_ADV_Skocz:
 jmp Alfabet_PL_Text_ADV
Alfabet_ADV_Text_ADV_Skocz:
 jmp Alfabet_ADV_Text_ADV

ainz:
 sty Opisy_Itemow
 ASL A
 TAY
 lda Tymczasowa_Kolizje1
 STa $2006
 lda Tymczasowa_Kolizje2
 STa $2006 
 lda [addrLO2],y
ainz2
 sta $2007

 jsr zapisz_druga_litere

 ldy Opisy_Itemow
 iny
 inc Tymczasowa_Kolizje2
 dex
 bne Zapisz_Opis_Itemu
 rts

Druga_linia_TEXT_ADV:
 jsr tyle_tego

 lda $D0
 clc
 adc #$40
 sta $D0
 sta Tymczasowa_Kolizje2
 cmp #$40
 bcs zwiekszajnie
 inc Tymczasowa_Kolizje1
zwiekszajnie:
 inc Opisy_Itemow
 inc Opisy_Itemow
 jsr wypisz
 rts

tyle_tego:
 rts

zapisz_druga_litere:
 lda Tymczasowa_Kolizje1
 STa $2006
 lda Tymczasowa_Kolizje2
 clc
 adc #$20
 STa $2006 			;zwiksz low o 20(nstpna linia tekstu)
 cmp #$20			;Sprawd czy trzeba przeczy hi
 bcs ainz3			;jeeli nie to przeskocz przeczenie
 inc Tymczasowa_Kolizje1
 jmp ainz4
ainz3:
 iny
 lda [addrLO2],y
 sta $2007
 rts
ainz4:
 lda Tymczasowa_Kolizje1
 STa $2006
 lda Tymczasowa_Kolizje2
 clc
 adc #$20
 STa $2006
 iny
 lda [addrLO2],y
 sta $2007
 dec Tymczasowa_Kolizje1
 rts
 
Alfabet_ADV_Text_ADV:
 lda #low(Alfabet_ADV)
 sta addrLO2
 Lda #high(Alfabet_ADV)
 sta addrHI2
 lda [addrLO],y 
 sec
 sbc #$2E
 jmp ainz

Alfabet_PL_Text_ADV:
 lda #low(Alfabet_PL)
 sta addrLO2
 Lda #high(Alfabet_PL)
 sta addrHI2

 lda [addrLO],y
 cmp #$A5
 beq Alfabet_PL_Text_ADV_1
 cmp #$C6
 beq Alfabet_PL_Text_ADV_2
 cmp #$D1
 beq Alfabet_PL_Text_ADV_3
 cmp #$AF
 beq Alfabet_PL_Text_ADV_4
 cmp #$8F
 beq Alfabet_PL_Text_ADV_5
 cmp #$CA
 beq Alfabet_PL_Text_ADV_6
 cmp #$D3
 beq Alfabet_PL_Text_ADV_7
 cmp #$A3
 beq Alfabet_PL_Text_ADV_8
 cmp #$8C
 beq Alfabet_PL_Text_ADV_9
 jmp ainz

Alfabet_PL_Text_ADV_1:
 lda #$00
 jmp ainz

Alfabet_PL_Text_ADV_2:
 lda #$01
 jmp ainz

Alfabet_PL_Text_ADV_3:
 lda #$02
 jmp ainz

Alfabet_PL_Text_ADV_4:
 lda #$03
 jmp ainz

Alfabet_PL_Text_ADV_5:
 lda #$04
 jmp ainz

Alfabet_PL_Text_ADV_6:
 lda #$05
 jmp ainz

Alfabet_PL_Text_ADV_7:
 lda #$06
 jmp ainz

Alfabet_PL_Text_ADV_8:
 lda #$07
 jmp ainz

Alfabet_PL_Text_ADV_9:
 lda #$08
 jmp ainz

Item_Name_Table:
 .dw Nothing_ITEM_ADV,Stone_ITEM_ADV,Rope_ITEM_ADV,Scuba_ITEM_ADV
 .dw Klucz1_ITEM_ADV,Klucz2_ITEM_ADV,Drabina_ITEM_ADV,Klucz_ITEM_ADV,Krzyz_ITEM_ADV
 .dw Tasak_ITEM_ADV,Klucz3_ITEM_ADV,Holy_ITEM_ADV,Spear_ITEM_ADV,Left_ITEM_ADV,Right_ITEM_ADV,Fish_ITEM_ADV,Item16
 .dw Dialog1,Dialog2,Dialog3,Dialog4,Dialog5,Dialog6,Dialog7,Dialog8,Dialog9
 .dw Jezyk.Wybor.Dialog,Dialog10,Dialog11,CREDITS,Kamien.Dialog,HTS.Dialog,Most.Dialog,Ryba.Dialog,Plecak

Item_Name_TablePL:
 .dw Nothing_ITEM_ADVPL,Stone_ITEM_ADVPL,Rope_ITEM_ADVPL,Scuba_ITEM_ADVPL
 .dw Klucz1_ITEM_ADVPL,Klucz2_ITEM_ADVPL,Drabina_ITEM_ADVPL,Klucz_ITEM_ADVPL,Krzyz_ITEM_ADVPL
 .dw Tasak_ITEM_ADVPL,Klucz3_ITEM_ADVPL,Holy_ITEM_ADVPL,Spear_ITEM_ADVPL,Left_ITEM_ADVPL,Right_ITEM_ADVPL,Fish_ITEM_ADVPL,Item16PL
 .dw Dialog1PL,Dialog2PL,Dialog3PL,Dialog4PL,Dialog5PL,Dialog6PL,Dialog7PL,Dialog8PL,Dialog9PL
 .dw Jezyk.Wybor.Dialog,Dialog10PL,Dialog11PL,CREDITSPL,Kamien.DialogPL,HTS.DialogPL,Most.DialogPL,Ryba.DialogPL,PlecakPL


Alfabet_ADV:
 .include "Items\Alfabet.txt"

Alfabet_PL:
 .incbin "Items\PL.bin"
