Post by lucasyuhyuh on Sept 16, 2019 12:01:59 GMT -5
I'mtrying to put my printed text in front of my background, but it just disappears after a split second!
Here's the code:
Here's the code:
titlescreenanimation:
Palettes Title_pal,0,0,16
ink 0
loadtiles Game_Title,960,128 ' 960 Tiles (320x192, 40x24)
DRAWTILESINC 128,0,2,40,24 'start tileset,x,y,Width,Height
sleep 3
ink 0
loadtiles Game_Title3,960,128 ' 960 Tiles (320x192, 40x24)
DRAWTILESINC 128,0,2,40,24 'start tileset,x,y,Width,Height
sleep 3
ink 0
loadtiles Game_Title2,960,128 ' 960 Tiles (320x192, 40x24)
DRAWTILESINC 128,0,2,40,24 'start tileset,x,y,Width,Height
sleep 3
ink 0
loadtiles Game_Title3,960,128 ' 960 Tiles (320x192, 40x24)
DRAWTILESINC 128,0,2,40,24 'start tileset,x,y,Width,Height
sleep 3
goto titlescreenanimation
title:
print ""
print ""
print ""
print ""
print ""
print ""
print ""
print ""
print ""
ink 2
print ""
print ""
print ""
print ""
print ""
print ""
print ""
print ""
print ""
print ""
print ""
print ""
print " Made in Botswana - Criado em Botswana"
print " (c)2019 Lucrom Games LTDA."
print " "
music:
if joypad().7 then goto game
PSG 0, 383
PSGVOL 0, 15
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 7
if joypad().7 then goto game
PSGVOL 0, 0
PSGVOL 1, 0
if joypad().7 then goto game
sleep 2
if joypad().7 then goto game
PSG 0, 383
PSGVOL 0, 15
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 7
if joypad().7 then goto game
PSGVOL 0, 0
PSGVOL 1, 0
if joypad().7 then goto game
PSG 0, 571
PSGVOL 0, 15
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 2
if joypad().7 then goto game
PSGVOL 1, 0
if joypad().7 then goto game
PSG 0, 596
PSGVOL 0, 15
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 7
if joypad().7 then goto game
PSGVOL 0, 0
PSGVOL 1, 0
if joypad().7 then goto game
sleep 2
if joypad().7 then goto game
PSG 0, 383
PSGVOL 0, 15
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 7
if joypad().7 then goto game
PSGVOL 0, 0
if joypad().7 then goto game
PSG 1, 685
PSGVOL 1, 15
if joypad().7 then goto game
sleep 1
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 2
if joypad().7 then goto game
PSGVOL 1, 0
if joypad().7 then goto game
sleep 10
if joypad().7 then goto game
PSG 0, 571
PSGVOL 0, 15
if joypad().7 then goto game
PSG 1, 685
PSGVOL 1, 15
if joypad().7 then goto game
sleep 2
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
PSG 0, 596
PSGVOL 0, 15
if joypad().7 then goto game
sleep 7
if joypad().7 then goto game
PSGVOL 0, 0
if joypad().7 then goto game
PSG 1, 643
PSGVOL 1, 15
if joypad().7 then goto game
sleep 2
if joypad().7 then goto game
PSG 1, 685
PSGVOL 1, 15
if joypad().7 then goto game
sleep 3
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 15
if joypad().7 then goto game
PSG 0, 383
PSGVOL 0, 15
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 7
if joypad().7 then goto game
PSGVOL 0, 0
PSGVOL 1, 0
if joypad().7 then goto game
sleep 2
if joypad().7 then goto game
PSG 0, 383
PSGVOL 0, 15
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 7
if joypad().7 then goto game
PSGVOL 0, 0
PSGVOL 1, 0
if joypad().7 then goto game
PSG 0, 571
PSGVOL 0, 15
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 2
if joypad().7 then goto game
PSGVOL 1, 0
if joypad().7 then goto game
PSG 0, 596
PSGVOL 0, 15
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 7
if joypad().7 then goto game
PSGVOL 0, 0
PSGVOL 1, 0
if joypad().7 then goto game
sleep 2
if joypad().7 then goto game
PSG 0, 383
PSGVOL 0, 15
if joypad().7 then goto game
PSG 1, 704
PSGVOL 1, 15
if joypad().7 then goto game
sleep 13
if joypad().7 then goto game
PSGVOL 0, 0
PSGVOL 1, 0
if joypad().7 then goto game
sleep 15
if joypad().7 then goto game
PSG 0, 596
PSGVOL 0, 15
if joypad().7 then goto game
sleep 5
if joypad().7 then goto game
PSG 0, 571
PSGVOL 0, 15
if joypad().7 then goto game
sleep 5
if joypad().7 then goto game
PSG 0, 516
PSGVOL 0, 15
if joypad().7 then goto game
sleep 15
if joypad().7 then goto game
PSGVOL 0, 10
sleep 5
if joypad().7 then goto game
PSGVOL 0, 5
sleep 1
if joypad().7 then goto game
PSGVOL 0, 0
goto music
Title_pal:
DATAINT $0026,$0026,$0028,$0048,$00CE,$004C,$000E,$046C
DATAINT $046A,$0EEE,$0000,$0444,$0246,$0000,$0000,$0000
Game_Title: datafile sgts.BIN,BIN ' 960 Tiles (320x192, 40x24)
Game_Title2: datafile sgts2.BIN,BIN ' 960 Tiles (320x192, 40x24)
Game_Title3: datafile sgts3.BIN,BIN ' 960 Tiles (320x192, 40x24)
game:
ts=1
PSGVOL 0, 0
PSGVOL 1, 0
cls
pallettes colors, 0, 0, 16
loadtiles sbo, 16, 1
loadtiles sle, 16, 17
x=48
y=80
sheepbody=addsprite(4,4)
propsprite sheepbody,1,0
movesprite sheepbody,128+x,128+y
sheeplegz=addsprite(4,4)
propsprite sheeplegz,17,0
movesprite sheeplegz,128+x,128+y+32
do
movesprite sheepbody,128+x,128+y
movesprite sheeplegz,128+x,128+y+32
if joypad().0 then y=y-2
if joypad().1 then y=y+2
if joypad().2 then x=x-2
if joypad().3 then x=x+2
sleep 1
loop
sbo:
DATALONG $00000007 ' Tile: 0
DATALONG $00000770
DATALONG $00007000
DATALONG $00070000
DATALONG $00700000
DATALONG $00709999
DATALONG $07999999
DATALONG $07999999
DATALONG $79999999 ' Tile: 1
DATALONG $79999999
DATALONG $79999999
DATALONG $79F0999F
DATALONG $79F0999F
DATALONG $79FF999F
DATALONG $79FF999F
DATALONG $79999999
DATALONG $79999F99 ' Tile: 2
DATALONG $799999FF
DATALONG $79999999
DATALONG $07999999
DATALONG $07999999
DATALONG $00709999
DATALONG $00700000
DATALONG $00070000
DATALONG $00007000 ' Tile: 3
DATALONG $00000770
DATALONG $00000007
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $77777770 ' Tile: 4
DATALONG $00000007
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $99000000
DATALONG $99990000
DATALONG $99999900
DATALONG $99999990 ' Tile: 5
DATALONG $99999999
DATALONG $99999999
DATALONG $00999999
DATALONG $00999999
DATALONG $FF999999
DATALONG $FF999999
DATALONG $99999999
DATALONG $F9999999 ' Tile: 6
DATALONG $99999999
DATALONG $99999990
DATALONG $99999900
DATALONG $99990000
DATALONG $99000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 7
DATALONG $00000007
DATALONG $77777770
DATALONG $00700000
DATALONG $00700000
DATALONG $00700000
DATALONG $00700000
DATALONG $00700700
DATALONG $00000000 ' Tile: 8
DATALONG $70000000
DATALONG $07000000
DATALONG $00700000
DATALONG $00070000
DATALONG $00070000
DATALONG $00007000
DATALONG $00007000
DATALONG $00000700 ' Tile: 9
DATALONG $00000700
DATALONG $90000700
DATALONG $90000700
DATALONG $99000700
DATALONG $99000700
DATALONG $99000700
DATALONG $90000700
DATALONG $90000700 ' Tile: 10
DATALONG $00000700
DATALONG $00000700
DATALONG $00007000
DATALONG $00007770
DATALONG $00070007
DATALONG $00070000
DATALONG $00700000
DATALONG $07000000 ' Tile: 11
DATALONG $70000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00777770
DATALONG $07000007
DATALONG $07000000
DATALONG $00000000 ' Tile: 12
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 13
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 14
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $77000000
DATALONG $00770000
DATALONG $00007700
DATALONG $00000070 ' Tile: 15
DATALONG $00000070
DATALONG $00000007
DATALONG $00000007
DATALONG $00000007
DATALONG $00000007
DATALONG $77700007
DATALONG $70070007
sle:
DATALONG $00000000 ' Tile: 0
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 1
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 2
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 3
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00700700 ' Tile: 4
DATALONG $00700700
DATALONG $00700700
DATALONG $00700700
DATALONG $00700700
DATALONG $00799799
DATALONG $00799799
DATALONG $00077777
DATALONG $00000000 ' Tile: 5
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 6
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 7
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $07000000 ' Tile: 8
DATALONG $07000000
DATALONG $07000000
DATALONG $07000000
DATALONG $07000000
DATALONG $07000000
DATALONG $97000000
DATALONG $70000000
DATALONG $00000000 ' Tile: 9
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 10
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 11
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $70070007 ' Tile: 12
DATALONG $70070007
DATALONG $70070007
DATALONG $70070007
DATALONG $70070007
DATALONG $79979907
DATALONG $79979997
DATALONG $07777770
DATALONG $00000000 ' Tile: 13
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 14
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000 ' Tile: 15
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
DATALONG $00000000
colors:
DATAINT $0EEE,$00EE,$0E0E,$000E,$0EE0,$00E0,$0E00,$0888 ' Pallette: 0
DATAINT $0CCC,$0048,$0808,$0008,$0880,$0080,$0800,$0000
DATAINT $0EEE,$00EE,$0E0E,$000E,$0EE0,$00E0,$0E00,$0888 ' Pallette: 1
DATAINT $0CCC,$0088,$0808,$0008,$0880,$0080,$0800,$0000
DATAINT $0EEE,$00EE,$0E0E,$000E,$0EE0,$00E0,$0E00,$0888 ' Pallette: 2
DATAINT $0CCC,$0088,$0808,$0008,$0880,$0080,$0800,$0000
DATAINT $0EEE,$00EE,$0E0E,$000E,$0EE0,$00E0,$0E00,$0888 ' Pallette: 3
DATAINT $0CCC,$0088,$0808,$0008,$0880,$0080,$0800,$0000
DATAINT $0EEE,$00EE,$0E0E,$000E,$0EE0,$00E0,$0E00,$0888 ' Pallette: 4
DATAINT $0CCC,$0088,$0808,$0008,$0880,$0080,$0800,$0000
DATAINT $0EEE,$00EE,$0E0E,$000E,$0EE0,$00E0,$0E00,$0888 ' Pallette: 5
DATAINT $0CCC,$0088,$0808,$0008,$0880,$0080,$0800,$0000
DATAINT $0EEE,$00EE,$0E0E,$000E,$0EE0,$00E0,$0E00,$0888 ' Pallette: 6
DATAINT $0CCC,$0088,$0808,$0008,$0880,$0080,$0800,$0000
DATAINT $0EEE,$00EE,$0E0E,$000E,$0EE0,$00E0,$0E00,$0888 ' Pallette: 7
DATAINT $0CCC,$0088,$0808,$0008,$0880,$0080,$0800,$0000