|
Título: 4player sprite example Publicado por: jltursan en 02 de Octubre de 2006, 07:16:13 pm Mensaje original por Nitrofurano
Here is a .asm (asMSX compatible), based on the movable sprites example from Dioniso, but with 4 sprites controlled from one keyboard (4 players) WSAD controls the sprite '1' TGFH controls the sprite '2' IKJL controls the sprite '3' cursor keys controls the sprite '4' the lack is it's being based on the 'international' keyboard (used on CBios and the most usual Bios) - i don't know if it work on brazilian MSX machines, per example (i think they used 'american' keyboard ) (for information take a look at the msx red book) Who knows this example can be a start for 4 player games on MSX games, even on MSXDEV workshop? I'm having lots of ideas for using it - cloning Warlords, a Combat clone for 4 players, a Bomberman clone with 4 players, an lots of original ideas can appear too... Código: ;- 4 player sprite example ;- started from Dioniso - June '05 ;- 4 player implement by Nitrofurano :- player1:'wsad', player2:'tgfh', player3:'ikjl', player4:cursors ;-(counting with international keyboad compatibility) ;- bug: i can't set default sprite positions of sprites '2', '3' and '4' ; else (0,0) (what is wrong?) (this bug seems to get fixed when i ; use the msx2 palette code posted by BiFi in this forum... ; Very weird...) ;BASIC program to handle sprites with keyboard ;SPEED is set to one pixel in every frame ;variables ;$c000 = keyboard read ;$c001 = Y position of the sprite 0 ;$c002 = X position of the sprite 0 ;$c003 = Y position of the sprite 1 ;$c004 = X position of the sprite 1 ;$c005 = Y position of the sprite 2 ;$c006 = X position of the sprite 2 ;$c007 = Y position of the sprite 3 ;$c008 = X position of the sprite 3 ;you can use BIOS to read the keyboard and write to VRAM, instead of these ;routines ;positions in VRAM to write: ;0x1B00 with $C001 (Y of sprite 0) ;0x1B01 with $C002 (X of sprite 0) ;0x1B04 with $C003 (Y of sprite 1) ;0x1B05 with $C004 (X of sprite 1) ;0x1B08 with $C005 (Y of sprite 2) ;0x1B09 with $C006 (X of sprite 2) ;0x1B0C with $C007 (Y of sprite 3) ;0x1B0D with $C008 (X of sprite 3) .bios .page 2 .rom .start BEGIN ;----------------------------------------------- ;- vram address labels CHRTBL equ 0x0000 NAMTBL equ 0x1800 CLRTBL equ 0x2000 SPRTBL equ 0x3800 SPRATR equ 0x1B00 ;----------------------------------------------- ;- declaring variables .page 3 V_KBD: ds 1 V_Y0: ds 1 V_X0: ds 1 V_Y1: ds 1 V_X1: ds 1 V_Y2: ds 1 V_X2: ds 1 V_Y3: ds 1 V_X3: ds 1 ;----------------------------------------------- ;- code start ;start......................................> .page 2 .org 0x8010 BEGIN: ;- colour 1,14,6 ld a,1 ld [$f3e9],a ld a,14 ld [$f3ea],a ld a,6 ld [$f3eb],a xor a ;- no keyboard-click ld [$f3db],a ;- screen 2 ld a,2 call 0x005f ;- turn off screen call 0x0041 ;- sprites 16*16 ld a,[$F3E0] or 00000010b and 11111110b ld b,a ld c,1 call 0x0047 ;- waitvbl halt ;- clear all sprites definitions ld hl,14336 ld bc,2048 xor a call 0x0056 ;- sprite definitions ld hl,spr_definition ld de,14336 ld bc,128 ;(4 sprites * 32 datas) call 0x005c ld hl,spr_attributes ld de,6912 ld bc,16 ;(4 sprites * 4 attributes) call 0x005c ;...............................................; ;- turn on screen call 0x0044 ;- important!!!!!! ;- let's initialize the Y and X variables in RAM ld a,80 ld [V_Y0],a ;Y ld a,110 ld [V_X0],a ;X ld a,80 ld [V_Y1],a ;Y ld a,150 ld [V_X1],a ;X ld a,120 ld [V_Y2],a ;Y ld a,110 ld [V_X2],a ;X ld a,120 ld [V_Y3],a ;Y ld a,150 ld [V_X3],a ;X ;keyboard ----> MAIN LOOP OF THE PROGRAM! loop_main: ;.................................................................; ;- waitvbl halt ;- sprite 00: 'wsad' ;-right: line 3, bit 1: key ='d' ld a,3 call SNSMAT bit 1,a call z,mov_right_00 ;-left: line 2, bit 6: key ='a' ld a,2 call SNSMAT bit 6,a call z,mov_left_00 ;-down: line 5, bit 0: key ='s' ld a,5 call SNSMAT bit 0,a call z,mov_down_00 ;-up: line 5, bit 4: key ='w' ld a,5 call SNSMAT bit 4,a call z,mov_up_00 ;- sprite 01: 'tgfh' ;-right: line 3, bit 5: key ='h' ld a,3 call SNSMAT bit 5,a call z,mov_right_01 ;-left: line 3, bit 3: key ='f' ld a,3 call SNSMAT bit 3,a call z,mov_left_01 ;-down: line 3, bit 4: key ='g' ld a,3 call SNSMAT bit 4,a call z,mov_down_01 ;-up: line 5, bit 1: key ='t' ld a,5 call SNSMAT bit 1,a call z,mov_up_01 ;- sprite 02: 'ikjl' ;-right: line 4, bit 1: key ='l' ld a,4 call SNSMAT bit 1,a call z,mov_right_02 ;-left: line 3, bit 7: key ='j' ld a,3 call SNSMAT bit 7,a call z,mov_left_02 ;-down: line 4, bit 0: key ='k' ld a,4 call SNSMAT bit 0,a call z,mov_down_02 ;-up: line 3, bit 6: key ='i' ld a,3 call SNSMAT bit 6,a call z,mov_up_02 ;- sprite 03: cursors ;-right: line 8, bit 7: key ='right' ld a,8 call SNSMAT bit 7,a call z,mov_right_03 ;-left: line 8, bit 4: key ='left' ld a,8 call SNSMAT bit 4,a call z,mov_left_03 ;-down: line 8, bit 6: key ='down' ld a,8 call SNSMAT bit 6,a call z,mov_down_03 ;-up: line 8, bit 5: key ='up' ld a,8 call SNSMAT bit 5,a call z,mov_up_03 ;- write the new/same attributes of the two sprites = 4 bytes to write....; ld hl,0x1B00 ;sprite 0 call set_VRAM ld hl,V_Y0 ;Y,X sprite 0 call write_2bytes_VRAM ld hl,0x1B04 ;sprite 1 call set_VRAM ld hl,V_Y1 ;Y,X sprite 1 call write_2bytes_VRAM ld hl,0x1B08 ;sprite 2 call set_VRAM ld hl,V_Y2 ;Y,X sprite 2 call write_2bytes_VRAM ld hl,0x1B0C ;sprite 3 call set_VRAM ld hl,V_Y3 ;Y,X sprite 3 call write_2bytes_VRAM ;...............................................; jp loop_main ;we read the keyboard again; GOTO loop_main ;routines for writting to VRAM (easier if you use BIOS).....; set_VRAM: ld a,l di out [$99],a ld a,h or $40 out [$99],a ei ret write_2bytes_VRAM: ld bc,$0298 ;number of datas [$02] + port [$98] di outi outi ei ld a,0 ;better than NOP ret ;...........................................................; ;THIS IS VERY BASIC! ;mov_up_down_right_left with border detection.........; ;- replaced 'or a' with 'cp 0' for more coding flexibility ;- sprite 00 mov_up_00: ld a,[V_Y0] cp 0 ; or a ???? ret z dec a ld [V_Y0],a ret mov_down_00: ld a,[V_Y0] cp 191-16 ;192-16 pixels of sprites ret z inc a ld [V_Y0],a ret mov_right_00: ld a,[V_X0] cp 255-16 ;256-16 pixels of sprites ret z inc a ld [V_X0],a ret mov_left_00: ld a,[V_X0] cp 0 ; or a ???? ret z dec a ld [V_X0],a ret ;- sprite 01 mov_up_01: ld a,[V_Y1] cp 0 ; or a ???? ret z dec a ld [V_Y1],a ret mov_down_01: ld a,[V_Y1] cp 191-16 ;192-16 pixels of sprites ret z inc a ld [V_Y1],a ret mov_right_01: ld a,[V_X1] cp 255-16 ;256-16 pixels of sprites ret z inc a ld [V_X1],a ret mov_left_01: ld a,[V_X1] cp 0 ; or a ???? ret z dec a ld [V_X1],a ret ;- sprite 02 mov_up_02: ld a,[V_Y2] cp 0 ; or a ???? ret z dec a ld [V_Y2],a ret mov_down_02: ld a,[V_Y2] cp 191-16 ;192-16 pixels of sprites ret z inc a ld [V_Y2],a ret mov_right_02: ld a,[V_X2] cp 255-16 ;256-16 pixels of sprites ret z inc a ld [V_X2],a ret mov_left_02: ld a,[V_X2] cp 0 ; or a ???? ret z dec a ld [V_X2],a ret ;- sprite 03 mov_up_03: ld a,[V_Y3] cp 0 ; or a ???? ret z dec a ld [V_Y3],a ret mov_down_03: ld a,[V_Y3] cp 191-16 ;192-16 pixels of sprites ret z inc a ld [V_Y3],a ret mov_right_03: ld a,[V_X3] cp 255-16 ;256-16 pixels of sprites ret z inc a ld [V_X3],a ret mov_left_03: ld a,[V_X3] cp 0 ; or a ???? ret z dec a ld [V_X3],a ret ;.....................................................; ;- sprites data spr_definition: ;- Sprite patterndata for sprite 0 db $FF,$FF,$FE,$FC,$F0,$F0,$F0,$FE,$FE,$FE,$FE,$FE,$FE,$FE,$FE,$FF db $FF,$FF,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$FF ;- Sprite patterndata for sprite 1 db $FF,$FF,$F0,$C0,$80,$81,$03,$FF,$F0,$C0,$80,$83,$00,$00,$00,$FF db $FF,$FF,$07,$01,$00,$C0,$C0,$00,$01,$03,$3F,$FF,$00,$00,$00,$FF ;- Sprite patterndata for sprite 2 db $FF,$FF,$F0,$C0,$80,$81,$FF,$FC,$FC,$FC,$FF,$03,$00,$80,$E0,$FF db $FF,$FF,$07,$01,$00,$C0,$C0,$01,$01,$00,$E0,$E0,$00,$01,$03,$FF ;- Sprite patterndata for sprite 3 db $FF,$FF,$FE,$FC,$F8,$F0,$E0,$C1,$83,$03,$00,$00,$00,$FF,$FF,$FF db $FF,$FF,$03,$03,$03,$03,$83,$83,$83,$83,$00,$00,$00,$83,$83,$FF ;- sprites attributes spr_attributes: db 40, 50, 0,12 ;sprite 0 (Y,X,plane,colour) db 90, 50, 4, 5 ;sprite 1 (Y,X,plane,colour) db 40,110, 8, 9 ;sprite 2 (Y,X,plane,colour) db 90,110,12,13 ;sprite 3 (Y,X,plane,colour) ;..........................................................; Título: Re: 4player sprite example Publicado por: nitrofurano en 12 de Octubre de 2007, 01:57:23 pm only now i'm seeing this, which i thaugh were lost! - thank you jltursan for posting! :-D
Título: Re: 4player sprite example Publicado por: Dioniso en 12 de Octubre de 2007, 11:49:11 pm only now i'm seeing this, which i thaugh were lost! - thank you jltursan for posting! :-D About the keyboard, maybe you find this thread interesting: here (http://karoshi.msxgamesbox.com/index.php?topic=665.0). All the testing there was right, whatever nationality was the keyboard. |