Post by alexmega on Aug 26, 2018 11:56:44 GMT -5
Good morning, follow a code for those who are in need of energy bars, this is the advantage and they are in pixel and not in tiles. if you want to increase and replicate the drantiles.
bar_life:
DataLong $66666666 ' Tile: 0
DataLong $33333333
DataLong $44444444
DataLong $44444444
DataLong $44444444
DataLong $55555555
DataLong $55555555
DataLong $55555555
DataLong $55555555 ' Tile: 1
DataLong $44444444
DataLong $44444444
DataLong $44444444
DataLong $44444444
DataLong $33333333
DataLong $33333333
DataLong $66666666
DataLong $66666666 ' Tile: 2
DataLong $23333333
DataLong $24444444
DataLong $24444444
DataLong $24444444
DataLong $25555555
DataLong $25555555
DataLong $25555555
DataLong $25555555 ' Tile: 3
DataLong $24444444
DataLong $24444444
DataLong $24444444
DataLong $24444444
DataLong $23333333
DataLong $23333333
DataLong $66666666
DataLong $66666666 ' Tile: 4
DataLong $22333333
DataLong $22444444
DataLong $22444444
DataLong $22444444
DataLong $22555555
DataLong $22555555
DataLong $22555555
DataLong $22555555 ' Tile: 5
DataLong $22444444
DataLong $22444444
DataLong $22444444
DataLong $22444444
DataLong $22333333
DataLong $22333333
DataLong $66666666
DataLong $66666666 ' Tile: 6
DataLong $22333333
DataLong $22444444
DataLong $22444444
DataLong $22444444
DataLong $22555555
DataLong $22555555
DataLong $22555555
DataLong $22555555 ' Tile: 7
DataLong $22444444
DataLong $22444444
DataLong $22444444
DataLong $22444444
DataLong $22333333
DataLong $22333333
DataLong $66666666
DataLong $66666666 ' Tile: 8
DataLong $22233333
DataLong $22244444
DataLong $22244444
DataLong $22244444
DataLong $22255555
DataLong $22255555
DataLong $22255555
DataLong $22255555 ' Tile: 9
DataLong $22244444
DataLong $22244444
DataLong $22244444
DataLong $22244444
DataLong $22233333
DataLong $22233333
DataLong $66666666
DataLong $66666666 ' Tile: 10
DataLong $22223333
DataLong $22224444
DataLong $22224444
DataLong $22224444
DataLong $22225555
DataLong $22225555
DataLong $22225555
DataLong $22225555 ' Tile: 11
DataLong $22224444
DataLong $22224444
DataLong $22224444
DataLong $22224444
DataLong $22223333
DataLong $22223333
DataLong $66666666
DataLong $66666666 ' Tile: 12
DataLong $22222333
DataLong $22222444
DataLong $22222444
DataLong $22222444
DataLong $22222555
DataLong $22222555
DataLong $22222555
DataLong $22222555 ' Tile: 13
DataLong $22222444
DataLong $22222444
DataLong $22222444
DataLong $22222444
DataLong $22222333
DataLong $22222333
DataLong $66666666
DataLong $66666666 ' Tile: 14
DataLong $22222223
DataLong $22222224
DataLong $22222224
DataLong $22222224
DataLong $22222225
DataLong $22222225
DataLong $22222225
DataLong $22222225 ' Tile: 15
DataLong $22222224
DataLong $22222224
DataLong $22222224
DataLong $22222224
DataLong $22222223
DataLong $22222223
DataLong $66666666
DataLong $66666666 ' Tile: 16
DataLong $22222222
DataLong $22222222
DataLong $22222222
DataLong $22222222
DataLong $22222222
DataLong $22222222
DataLong $22222222
DataLong $22222222 ' Tile: 17
DataLong $22222222
DataLong $22222222
DataLong $22222222
DataLong $22222222
DataLong $22222222
DataLong $22222222
DataLong $66666666
cor_bar:
DataInt $0000,$00E0,$00A0,$0006,$000A,$000E,$0EEE,$0888 ' Pallette: 0
DataInt $0CCC,$0088,$0808,$0008,$0880,$0080,$0800,$0000
LoadTiles bar_life,18,256
Palettes cor_bar,1,0,16
b1=32
Do
WaitRaster 1
Sleep 5
Locate 1,12
Print b1
Locate 2,12
Print "press D/E +/-1 "
Locate 3,12
Print "press U/D +/-8 "
c=j
j=JoyPad(0)
'LEFT'
If c.2 Then
b1-=2
End If
'RIGHT'
If c.3 Then
b1+=2
End If
' up'
If c.0 Then
b1-=8
End If
'down'
If c.1 Then
b1+=8
End If
If b1>65000 Then
b1=0
End If
If b1>70 Then
b1=70
End If
If b1<17 Then
DrawTilesInc 256+b1+Palette(1),2,2,1,2
DrawTilesInc 256+Palette(1),3,2,1,2
DrawTilesInc 256+Palette(1),4,2,1,2
DrawTilesInc 256+Palette(1),5,2,1,2
ElseIf b1<36 Then
DrawTilesInc 272+Palette(1),2,2,1,2
DrawTilesInc 256+b1-18+Palette(1),3,2,1,2
DrawTilesInc 256+Palette(1),4,2,1,2
DrawTilesInc 256+Palette(1),5,2,1,2
ElseIf b1<54 Then
DrawTilesInc 272+Palette(1),2,2,1,2
DrawTilesInc 272+Palette(1),3,2,1,2
DrawTilesInc 256+b1-36+Palette(1),4,2,1,2
DrawTilesInc 256+Palette(1),5,2,1,2
ElseIf b1<71 Then
DrawTilesInc 272+Palette(1),2,2,1,2
DrawTilesInc 272+Palette(1),3,2,1,2
DrawTilesInc 272+Palette(1),4,2,1,2
DrawTilesInc 256+b1-54+Palette(1),5,2,1,2
End If
Loop