sonraki »

[guru68]

arkadaşlar cumartesi günü, saat 13 gibi şişli cevahir avm'nde tanışmaya, sohbet etmeye ve çay içmeye buluşuyoruz, gelmek isteyen olursa buyursun...

şu an katılanlar:

joker_
CommodoreFan
guru68

[wizofwor]

Afiyet olsun. Katılma niyetim vardı ama şehir dışında olacağım.

[guru68]

teşekkürler wiz, bidahaki sefere bekleriz ama kaçamazsın

[wizofwor]

Hatta Joker'e göstermek istediğim spritelar vardı. Artık bir şekil yapacağız.

/** Off topic
 Eğer bir arkadaş hayrına sprite pad ile hazırladığım spriteları Vice la nasıl gösterebileceğim konusunda ufak bir kod örneği yayınlayabilirse çok süper olur.

Örneğin, 8 frame'den oluşan bir sprite. Kodumuz sprite data'yı kopyaladığımız adresi VIC'e gönderip, sprite'ı açıyor. Ardından sırasıyla bir loop şeklinde sprite data register'ının adresini değiştirerek 8 frame'lik animasyonu oynatıyor. Bitince bşa sarıyor. (Ham sprite datasını maille göndermek çok amatörce geldi nedense.)

Kod ACME'ye göre olursa tam süper olur.
Off topic */

[Skate]

offtopic:

Kod:

	!to "sprite_animator.prg",cbm

;
; Constants
;
	SCREEN_ADDRESS		= $0400
	BASIC_START		= $0801
	CODE_START		= $080d
	SPRITE_ADDRESS		= $0c00	

	NUMBER_OF_SPRITES	= (SPRITE_END_ADDRESS - SPRITE_ADDRESS) / $40
	ANIMATION_SPEED		= 5 ; Wait For "N" Frames

	FrameCounter		= $fa
	SpritePointer		= $fb
;
; Basic Autorun
;
	* = BASIC_START
	!byte 12,8,0,0,158
	!if CODE_START >= 10000 {!byte 48+((CODE_START/10000)%10)}
	!if CODE_START >= 1000 {!byte 48+((CODE_START/1000)%10)}
	!if CODE_START >= 100 {!byte 48+((CODE_START/100)%10)}
	!if CODE_START >= 10 {!byte 48+((CODE_START/10)%10)}
	!byte 48+(CODE_START % 10),0,0,0

	* = CODE_START
	sei

	jsr $e544
	lda #$02
	sta $d020
	lda #$00
	sta $d021

	lda #$01
	sta $d015

	lda #$01
	sta $d027

	lda #$a0
	sta $d000

	lda #$a0
	sta $d001

Start
	lda #NUMBER_OF_SPRITES
	sta FrameCounter

	lda #(SPRITE_ADDRESS & $3fff)/$40
	sta SpritePointer

MainLoop
	lda SpritePointer
	sta SCREEN_ADDRESS+$3f8

	lda #$ff
	cmp $d012
	bne *-3

	ldy #ANIMATION_SPEED
WaitOL	ldx $d012
	dex
WaitIL	cpx $d012
	bne WaitIL
	dey
	bne WaitOL

	inc SpritePointer
	dec FrameCounter
	bne MainLoop

	jmp Start

	* = SPRITE_ADDRESS
;sprite 0
	!fill 63,$aa
	!byte 0
;sprite 1
	!fill 63,$f0
	!byte 0
;sprite 2
	!fill 63,$0f
	!byte 0
;sprite 3
	!fill 63,$55
	!byte 0
;sprite 4
	!fill 63,$18
	!byte 0

SPRITE_END_ADDRESS = *

"!fill 63,X" şeklindeki bölümleri silip, kendi spritelarını ekleyebilirsin. ister !byte ile doldur, ister !bin "sprite01.bin" şeklinde yüklet artık orası sana kalmış. "SPRITE_END_ADDRESS = *" bölümünü dosyanın sonunda tuttuğun sürece toplam sprite sayısı otomatik olarak algılanacaktır. Baştaki ANIMATION_SPEED parametresi ise iki animasyon karesi arasında kaç frame bekleneceği değeridir. C64 50 FPS olduğu için 50 yazarsan 1 sn bekleyecektir. Şu anki değeri "5" 1/10 sn'ye denk gelir. "1" 1/50 sn beklerken "0" yazarsan 256/50 = 5.12 sn bekleme yapacaktır.

Kod:

	lda #$01
	sta $d027

Burada sprite'ın rengi belirleniyor. Çok renkli sprite kullanacaksan bu bölümü şu şekilde değiştirmen lazım;

Kod:

	lda #$01
	sta $d01c

	lda #$01
	sta $d027
	lda #$02
	sta $d025
	lda #$03
	sta $d026

$d027 yine sprite'ın renklerinden biri. $d025 ve $d026 da 2. ve 3. renkleri.

Başka bir ihtiyacın olursa bildir. Kolay gelsin.

[Skate]

OnTopic: Cumartesi yarım gün çalışıyorum ve iş çıkışı Bon Jovi konserine gideceğim. Arada çok az ihtimal de olsa uğrayabilirim.

[joker_]

arkadaşlar çok önemli bir işiniz yoksa tembellik etmeyin gelin derim
@wizofwor;
skate'in olduğu yerde benim kod örneği yazmam abes olur fakat aklınızda olsun c64 coding ile ilgili
www.tr-demoscene.info/forumdisplay.php?f=31
burada derya gibi bilgiler mevcut

[commander64]

çayı hergün içiyoruz

[Gökçe Bozkurt]

Skate:
Bon Jovi ye ben de gidiyorum ama bildiğim kadarı ile cuma iş çıkışı gitmen lazım

[guru68]

commander sana bi tequilla ısmarlarık sen yeterki gel

[Skate]

@Gökçe: Evet haklısın. Bir an ben dün ayın 5'i sanmıştım, yanlış hesaplamışım.

[Gokhan Ozkan]

Gelmek çok isterdim.
Ama ne yazıkki  evde tadilat işi olduğu için çok büyük olasılıkla gelmeye vakit bulamıyacağım.

[commander64]

gelmeye çalışırım

[joker_]

gelmeye çalışırım

commander kardesim gelmeye calis ne zamandir gorusemiyoruz

[Skate]

saat 13 benim için epey erken ancak birkaç saat takılacak olursanız katılacağım ben de. Cevarhir'in içinde Atlantis'e gider Outrun oynarız.