|
|
Post by Tulio Adriano on Oct 11, 2007 16:37:42 GMT -5
The sega logo doesn't need to be loaded as Sprite, but since you wanted the example, here you got it!  This code will load 3 sprites (since sega logo size is 12x4) each one 4x4 tiles big. Then it will position the sprites side by side, and rotate the palette. The sprite code you probably want is the one related to: AddSprite PropSprite MoveSprite FreeSprite You can see how they are handled in the code below! 
'************************************
'************************************
'** SEGA LOGO **
'** Developed by Tulio Adriano **
'** mailto:tgoncalves@terra.com.br **
'************************************
'************************************
'This is the standard Sega logo, used in most games made and officialy released for
'Sega Genesis.
'This logo can be used in any homebrew game. Please credit me in some part of it.
Dim OffSt as Integer
Dim Slp as Integer
dim Sprt1 as Integer
dim Sprt2 as Integer
dim Sprt3 as Integer
Slp = 3
Pallettes PalletteSEGA,0,0,16
LoadTiles tiledata_sega,48,256
OffSt = 256
'Creates the sprite in Genesis memory
Sprt1 = AddSprite(4,4)
Sprt2 = AddSprite(4,4)
Sprt3 = AddSprite(4,4)
'Assign the sprites to the apropriate memory position
PropSprite Sprt1, 256, PalletteSEGA
PropSprite Sprt2, 272, PalletteSEGA
PropSprite Sprt3, 288, PalletteSEGA
'Move the sprites to the center of the screen so they can be visible.
'(Remember that center of screen + 128, so that it can be on the viewable region of the screen.)
MoveSprite Sprt1, 240, 216
MoveSprite Sprt2, 272, 216
MoveSprite Sprt3, 304, 216
'DrawTiles mapdata_sega, OffSt, 14, 11, 12, 4
Sleep 15
Pallettes PalletteSEGA2,0,0,16
Sleep Slp
Pallettes PalletteSEGA3,0,0,16
Sleep Slp
Pallettes PalletteSEGA4,0,0,16
Sleep Slp
Pallettes PalletteSEGA5,0,0,16
Sleep Slp
Pallettes PalletteSEGA6,0,0,16
Sleep Slp
Pallettes PalletteSEGA7,0,0,16
Sleep Slp
Pallettes PalletteSEGA8,0,0,16
Sleep Slp
Pallettes PalletteSEGA9,0,0,16
Sleep Slp
Pallettes PalletteSEGA10,0,0,16
Sleep Slp
Pallettes PalletteSEGA11,0,0,16
Sleep Slp
Pallettes PalletteSEGA12,0,0,16
Sleep Slp
Pallettes PalletteSEGA13,0,0,16
Sleep Slp
Pallettes PalletteSEGA14,0,0,16
Sleep Slp
Pallettes PalletteSEGA15,0,0,16
Sleep Slp
Pallettes PalletteSEGA16,0,0,16
Sleep Slp
Pallettes PalletteSEGA,0,0,16
Sleep 150
Pallettes PalletteDark,0,0,16
'Always a good idea release the sprite before you move on
FreeSprite Sprt1
FreeSprite Sprt2
FreeSprite Sprt3
PalletteSEGA:
DATAINT $0000,$0000,$0EEE,$0E40,$0E20,$0E00,$0C00,$0A00
DATAINT $0E60,$0E80,$0EA0,$0EC0,$0000,$0000,$0000,$0000
PalletteSEGA2:
DATAINT $0000,$0000,$0EEE,$0E60,$0E40,$0E20,$0E00,$0C00
DATAINT $0E80,$0EA0,$0EC0,$0EA0,$0000,$0000,$0000,$0000
PalletteSEGA3:
DATAINT $0000,$0000,$0EEE,$0E80,$0E60,$0E40,$0E20,$0E00
DATAINT $0EA0,$0EC0,$0EA0,$0E80,$0000,$0000,$0000,$0000
PalletteSEGA4:
DATAINT $0000,$0000,$0EEE,$0EA0,$0E80,$0E60,$0E40,$0E20
DATAINT $0EC0,$0EA0,$0E80,$0E60,$0000,$0000,$0000,$0000
PalletteSEGA5:
DATAINT $0000,$0000,$0EEE,$0EC0,$0EA0,$0E80,$0E60,$0E40
DATAINT $0EA0,$0E80,$0E60,$0E40,$0000,$0000,$0000,$0000
PalletteSEGA6:
DATAINT $0000,$0000,$0EEE,$0EA0,$0EC0,$0EA0,$0E80,$0E60
DATAINT $0E80,$0E60,$0E40,$0E20,$0000,$0000,$0000,$0000
PalletteSEGA7:
DATAINT $0000,$0000,$0EEE,$0E80,$0EA0,$0EC0,$0EA0,$0E80
DATAINT $0E60,$0E40,$0E20,$0E00,$0000,$0000,$0000,$0000
PalletteSEGA8:
DATAINT $0000,$0000,$0EEE,$0E60,$0E80,$0EA0,$0EC0,$0EA0
DATAINT $0E40,$0E20,$0E00,$0C00,$0000,$0000,$0000,$0000
PalletteSEGA9:
DATAINT $0000,$0000,$0EEE,$0E40,$0E60,$0E80,$0EA0,$0EC0
DATAINT $0E20,$0E00,$0C00,$0A00,$0000,$0000,$0000,$0000
PalletteSEGA10:
DATAINT $0000,$0000,$0EEE,$0E20,$0E40,$0E60,$0E80,$0EA0
DATAINT $0E00,$0C00,$0A00,$0C00,$0000,$0000,$0000,$0000
PalletteSEGA11:
DATAINT $0000,$0000,$0EEE,$0E00,$0E20,$0E40,$0E60,$0E80
DATAINT $0C00,$0A00,$0C00,$0E00,$0000,$0000,$0000,$0000
PalletteSEGA12:
DATAINT $0000,$0000,$0EEE,$0C00,$0E00,$0E20,$0E40,$0E60
DATAINT $0A00,$0C00,$0E00,$0E20,$0000,$0000,$0000,$0000
PalletteSEGA13:
DATAINT $0000,$0000,$0EEE,$0A00,$0C00,$0E00,$0E20,$0E40
DATAINT $0C00,$0E00,$0E20,$0E40,$0000,$0000,$0000,$0000
PalletteSEGA14:
DATAINT $0000,$0000,$0EEE,$0C00,$0A00,$0C00,$0E00,$0E20
DATAINT $0E00,$0E20,$0E40,$0E60,$0000,$0000,$0000,$0000
PalletteSEGA15:
DATAINT $0000,$0000,$0EEE,$0E00,$0C00,$0A00,$0C00,$0E00
DATAINT $0E20,$0E40,$0E60,$0E80,$0000,$0000,$0000,$0000
PalletteSEGA16:
DATAINT $0000,$0000,$0EEE,$0E20,$0E00,$0C00,$0A00,$0C00
DATAINT $0E40,$0E60,$0E80,$0EA0,$0000,$0000,$0000,$0000
PalletteDark:
DATAINT $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DATAINT $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
mapdata_sega:
DATA $00,$04,$08,$0C,$10,$14,$18,$1C,$20,$24,$28,$2C
DATA $01,$05,$09,$0D,$11,$15,$19,$1D,$21,$25,$29,$2D
DATA $02,$06,$0A,$0E,$12,$16,$1A,$1E,$22,$26,$2A,$2E
DATA $03,$07,$0B,$0F,$13,$17,$1B,$1F,$23,$27,$2B,$2F
tiledata_sega:
DATALONG $11111111 ' Tile #0 (Sprite 1)
DATALONG $11111222
DATALONG $11122334
DATALONG $11283333
DATALONG $12883333
DATALONG $12888333
DATALONG $28888332
DATALONG $29888823
DATALONG $29888233 ' Tile #12
DATALONG $29988283
DATALONG $29988283
DATALONG $29998288
DATALONG $29998288
DATALONG $29999288
DATALONG $29999288
DATALONG $2A999928
DATALONG $12999982 ' Tile #24
DATALONG $12A99998
DATALONG $11299998
DATALONG $112A9999
DATALONG $11122299
DATALONG $22222222
DATALONG $2AAAA999
DATALONG $2AAAAA99
DATALONG $2BAAAA99 ' Tile #36
DATALONG $2BBAAAA9
DATALONG $22222222
DATALONG $2BBBAAAA
DATALONG $2BBBAAAA
DATALONG $2BBBBAAA
DATALONG $2BBBBAAA
DATALONG $22222222
DATALONG $11111111 ' Tile #1
DATALONG $22222222
DATALONG $44455556
DATALONG $44445555
DATALONG $44445555
DATALONG $34444555
DATALONG $22222222
DATALONG $33444455
DATALONG $33444455 ' Tile #13
DATALONG $33344445
DATALONG $33344445
DATALONG $33222222
DATALONG $33334444
DATALONG $83333444
DATALONG $83333444
DATALONG $88333344
DATALONG $22222224 ' Tile #25
DATALONG $88833332
DATALONG $88833334
DATALONG $88883333
DATALONG $88883333
DATALONG $22228333
DATALONG $98888333
DATALONG $99888833
DATALONG $99888833 ' Tile #37
DATALONG $99988882
DATALONG $22222223
DATALONG $99998888
DATALONG $99998888
DATALONG $A9999888
DATALONG $A9999888
DATALONG $22222222
DATALONG $11111111 ' Tile #2
DATALONG $22222211
DATALONG $66677211
DATALONG $66667212
DATALONG $66667228
DATALONG $56666228
DATALONG $22222288
DATALONG $55666288
DATALONG $55666298 ' Tile #14
DATALONG $55566298
DATALONG $55566299
DATALONG $22222299
DATALONG $22222299
DATALONG $45222299
DATALONG $45522299
DATALONG $44552299
DATALONG $445522A9 ' Tile #26
DATALONG $444552A9
DATALONG $244552AA
DATALONG $244452AA
DATALONG $244452AA
DATALONG $244442AA
DATALONG $244442AA
DATALONG $234442AA
DATALONG $234442BA ' Tile #38
DATALONG $333442BA
DATALONG $333442BB
DATALONG $3333212B
DATALONG $3333212B
DATALONG $83321112
DATALONG $82211111
DATALONG $21111111
DATALONG $11111111 ' Tile #3
DATALONG $11222222
DATALONG $22334444
DATALONG $33334444
DATALONG $83333444
DATALONG $83333444
DATALONG $88333222
DATALONG $88332344
DATALONG $88823334 ' Tile #15
DATALONG $88823334
DATALONG $88823333
DATALONG $88823332
DATALONG $98828333
DATALONG $98828333
DATALONG $99828833
DATALONG $99828833
DATALONG $99922222 ' Tile #27
DATALONG $99928883
DATALONG $99928888
DATALONG $99928888
DATALONG $A9929888
DATALONG $A9929882
DATALONG $AA929988
DATALONG $AA929988
DATALONG $AAA29998 ' Tile #39
DATALONG $AAA92998
DATALONG $AAAA9222
DATALONG $AAAA9999
DATALONG $BAAAA999
DATALONG $BAAAA999
DATALONG $22AAAA99
DATALONG $11222222
DATALONG $11111111 ' Tile #4 (Sprite 2)
DATALONG $22222222
DATALONG $55556666
DATALONG $55556666
DATALONG $45555666
DATALONG $45555666
DATALONG $22222222
DATALONG $44555566
DATALONG $44455556 ' Tile #16
DATALONG $44455556
DATALONG $44445555
DATALONG $22222222
DATALONG $34444555
DATALONG $34444555
DATALONG $33444455
DATALONG $33444455
DATALONG $22222222 ' Tile #28
DATALONG $33344445
DATALONG $33334444
DATALONG $33334444
DATALONG $83333444
DATALONG $22222222
DATALONG $88333344
DATALONG $88333344
DATALONG $88833334 ' Tile #40
DATALONG $88833334
DATALONG $22222222
DATALONG $88883333
DATALONG $98888333
DATALONG $98888333
DATALONG $99888833
DATALONG $22222222
DATALONG $11111111 ' Tile #5
DATALONG $22221111
DATALONG $77721122
DATALONG $77721233
DATALONG $67722833
DATALONG $67722833
DATALONG $22228883
DATALONG $66728883
DATALONG $66628888 ' Tile #17
DATALONG $66629888
DATALONG $66629888
DATALONG $22229988
DATALONG $52229988
DATALONG $52229998
DATALONG $52229998
DATALONG $52229999
DATALONG $22229999 ' Tile #29
DATALONG $5222A999
DATALONG $5222A999
DATALONG $5222AA99
DATALONG $4222AA99
DATALONG $2222AAA9
DATALONG $4452AAA9
DATALONG $4452AAAA
DATALONG $4442BAAA ' Tile #41
DATALONG $4442BAAA
DATALONG $22222BAA
DATALONG $44422BAA
DATALONG $34422BBA
DATALONG $344212BA
DATALONG $33421122
DATALONG $22221111
DATALONG $11111111 ' Tile #6
DATALONG $22222222
DATALONG $34444555
DATALONG $34444555
DATALONG $33444455
DATALONG $33444455
DATALONG $33322222
DATALONG $32244445
DATALONG $23334444 ' Tile #18
DATALONG $23333444
DATALONG $23333444
DATALONG $28333222
DATALONG $28333244
DATALONG $28833234
DATALONG $28833234
DATALONG $28883233
DATALONG $28883222 ' Tile #30
DATALONG $28888233
DATALONG $28888233
DATALONG $29888233
DATALONG $29888233
DATALONG $29988222
DATALONG $29988883
DATALONG $29998888
DATALONG $29998888 ' Tile #42
DATALONG $A2299888
DATALONG $AA922222
DATALONG $AA999988
DATALONG $AAA99998
DATALONG $AAA99998
DATALONG $AAAA9999
DATALONG $22222222
DATALONG $11111111 ' Tile #7
DATALONG $22222222
DATALONG $56666777
DATALONG $56666777
DATALONG $55666677
DATALONG $55666677
DATALONG $22222222
DATALONG $55566667
DATALONG $55556666 ' Tile #19
DATALONG $45556666
DATALONG $45555666
DATALONG $22222222
DATALONG $44555566
DATALONG $44455566
DATALONG $44455556
DATALONG $44445556
DATALONG $22222555 ' Tile #31
DATALONG $34442555
DATALONG $34442555
DATALONG $33442455
DATALONG $33442455
DATALONG $33342445
DATALONG $33342445
DATALONG $33332444
DATALONG $33332444 ' Tile #43
DATALONG $83332444
DATALONG $22222344
DATALONG $88333344
DATALONG $88833334
DATALONG $88833334
DATALONG $88883333
DATALONG $22222222
DATALONG $11111111 ' Tile #8 (Sprite 3)
DATALONG $22111111
DATALONG $72111111
DATALONG $72111111
DATALONG $72111111
DATALONG $72111111
DATALONG $22111111
DATALONG $72111112
DATALONG $72111112 ' Tile #20
DATALONG $72111112
DATALONG $62111128
DATALONG $22111128
DATALONG $62111128
DATALONG $62111288
DATALONG $62111288
DATALONG $62111298
DATALONG $62112998 ' Tile #32
DATALONG $62112999
DATALONG $52112999
DATALONG $5212A999
DATALONG $5212A999
DATALONG $5212AA99
DATALONG $522AAA99
DATALONG $522AAAA9
DATALONG $52BAAAA9 ' Tile #44
DATALONG $42BBAAAA
DATALONG $44BBAAAA
DATALONG $44BBBAA2
DATALONG $44BBBAA2
DATALONG $44BBBBA2
DATALONG $44BBBBA2
DATALONG $22222222
DATALONG $11111111 ' Tile #9
DATALONG $11111222
DATALONG $11122555
DATALONG $11244555
DATALONG $12444555
DATALONG $23444455
DATALONG $23444455
DATALONG $33344422
DATALONG $33344422 ' Tile #21
DATALONG $33334244
DATALONG $33334244
DATALONG $83333244
DATALONG $83332444
DATALONG $88332344
DATALONG $88332344
DATALONG $88823334
DATALONG $88823334 ' Tile #33
DATALONG $88823333
DATALONG $88283333
DATALONG $98288333
DATALONG $98288322
DATALONG $92888822
DATALONG $92888833
DATALONG $92988883
DATALONG $29988883 ' Tile #45
DATALONG $29998888
DATALONG $29992222
DATALONG $A9992888
DATALONG $A9922888
DATALONG $AA922988
DATALONG $AA222988
DATALONG $22222222
DATALONG $11112222 ' Tile #10
DATALONG $21111121
DATALONG $62211121
DATALONG $56621121
DATALONG $56662121
DATALONG $55666211
DATALONG $55666211
DATALONG $55566621
DATALONG $55566621 ' Tile #22
DATALONG $25556621
DATALONG $25556662
DATALONG $25555662
DATALONG $42555662
DATALONG $42555566
DATALONG $42555566
DATALONG $44255556
DATALONG $44255556 ' Tile #34
DATALONG $44245555
DATALONG $44425555
DATALONG $34424555
DATALONG $34424555
DATALONG $33442455
DATALONG $33442455
DATALONG $33342445
DATALONG $33344245 ' Tile #46
DATALONG $33334244
DATALONG $22222244
DATALONG $83333444
DATALONG $83333444
DATALONG $88333344
DATALONG $88333344
DATALONG $22222222
DATALONG $21211112 ' Tile #11
DATALONG $11221122
DATALONG $11212212
DATALONG $11211112
DATALONG $11211112
DATALONG $11111111
DATALONG $11111111
DATALONG $11111111
DATALONG $11111111 ' Tile #23
DATALONG $11111111
DATALONG $11111111
DATALONG $11111111
DATALONG $11111111
DATALONG $21111111
DATALONG $21111111
DATALONG $21111111
DATALONG $62111111 ' Tile #35
DATALONG $62111111
DATALONG $62111111
DATALONG $56211111
DATALONG $56211111
DATALONG $55211111
DATALONG $55621111
DATALONG $55521111
DATALONG $55521111 ' Tile #47
DATALONG $55552111
DATALONG $55552111
DATALONG $45552111
DATALONG $45555211
DATALONG $44555211
DATALONG $44555211
DATALONG $22222211
Now if you want to use this code in your game, feel free to remove the sprite code, and uncomment the DrawTiles command. It will work the same. |
|
