Code: Select all
const SCRW = 480
const SCRH = 480
screenres SCRW,SCRH,32
color rgb(0,0,0),rgb(200,200,255)
dim shared as any ptr sTile
sTile = imagecreate(16,16)
dim shared as any ptr LTile
LTile = imagecreate(16,16)
dim shared as any ptr scaffolding
scaffolding = imagecreate(SCRW,SCRH,rgb(255,0,255))
dim shared as any ptr ladders
ladders = imagecreate(SCRW,SCRH,rgb(255,0,255))
dim shared as any ptr barrels
barrels = imagecreate(304,19,rgb(255,0,255))
'================================================
'=========== CREATE SCAFFOLDING TILE ===========
'================================================
dim as ulong v
for j as integer = 0 to 15
for i as integer = 0 to 15
read v
if v = 0 then pset sTile,(i,j),rgb(200,200,255)
if v = 1 then pset sTile,(i,j),rgb(136,0,21)
if v = 2 then pset sTile,(i,j),rgb(255,127,39)
if v = 3 then pset sTile,(i,j),rgb(185,122,87)
next i
next j
bsave "sTile.bmp",sTile
'====================================================
' DRAW SCAFFOLDING TILES INTO slopes bitmap
'====================================================
dim as integer j
j = 160
for i as integer = 0 to 26 step 2
put scaffolding,(i*16,j),sTile,trans
put scaffolding,(i*16+16,j),sTile,trans
if i > 16 then
j = j + 2
end if
next i
j = j + 32
for i as integer = 26 to 0 step -2
put scaffolding,(i*16+32,j),sTile,trans
put scaffolding,(i*16++32+16,j),sTile,trans
j = j + 2
next i
j = j + 32
for i as integer = 0 to 26 step 2
put scaffolding,(i*16,j),sTile,trans
put scaffolding,(i*16+16,j),sTile,trans
j = j + 2
next i
j = j + 32
for i as integer = 26 to 0 step -2
put scaffolding,(i*16+32,j),sTile,trans
put scaffolding,(i*16++32+16,j),sTile,trans
j = j + 2
next i
j = j + 32
for i as integer = 0 to 26 step 2
put scaffolding,(i*16,j),sTile,trans
put scaffolding,(i*16+16,j),sTile,trans
j = j + 2
next i
j = j + 32
for i as integer = 28 to 0 step -2
put scaffolding,(i*16,j),sTile,trans
put scaffolding,(i*16+16,j),sTile,trans
if i > 16 then
j = j + 2
end if
next i
bsave "scaffolding.bmp",scaffolding
'===========================================
'=========== CREATE LADDER TILE ===========
'===========================================
'bload "sTile.bmp",LTile
for j as integer = 0 to 15
for i as integer = 0 to 15
read v
if v = 0 then pset LTile,(i,j),rgb(200,200,255)
if v = 1 then pset LTile,(i,j),rgb(55,55,255)
next i
next j
bsave "LTile.bmp",LTile
'====================================================
' DRAW LADDERS INTO LADDER BITMAP
'====================================================
sub drawLadder(x as integer,y as integer)
put ladders,(x,y),LTile,trans
put ladders,(x,y+16),LTile,trans
put ladders,(x,y+32),LTile,trans
put ladders,(x,y+48),LTile,trans
end sub
sub drawLadder3(x as integer,y as integer)
put ladders,(x,y),LTile,trans
put ladders,(x,y+16),LTile,trans
put ladders,(x,y+32),LTile,trans
end sub
drawLadder(112,160)
drawLadder(257,214)
drawLadder(208,274)
drawLadder(257,334)
drawLadder(144,390)
drawLadder3(336,162)
drawLadder3(128,222)
drawLadder3(336,282)
drawLadder3(128,342)
drawLadder3(336,402)
bsave "ladders.bmp",ladders
'=========== create barrels image sprite sheet =================
Const Pi = 4 * Atn(1)
Dim Shared As Double TwoPi = 8 * Atn(1)
Dim Shared As Double RtoD = 180 / Pi ' radians * RtoD = degrees
Dim Shared As Double DtoR = Pi / 180 ' degrees * DtoR = radians
dim as single angle,dx,dy,px,py
px = 9
py = 9
dim as single i
for angle as single = 0 to 359 step 360/16
circle barrels,(px+i*19,py),9,rgb(100,100,255),,,,f
dx = cos(angle*DtoR)*8
dy = sin(angle*DtoR)*8
line barrels,(px+i*19,py)-(px+dx+i*19,py+dy),rgb(0,0,0)
line barrels,(px+i*19,py)-(px-dx+i*19,py-dy),rgb(0,0,0)
dx = cos((angle+90)*DtoR)*5
dy = sin((angle+90)*DtoR)*5
circle barrels,(px+dx+i*19,py+dy),2,rgb(255,0,0),,,,f
circle barrels,(px+i*19,py),9,rgb(0,0,0)
i = i + 1
next angle
bsave "barrels.bmp",barrels
put (0,0),barrels,trans
sleep
screenres 640,480,32
color rgb(0,0,0),rgb(255,255,255):cls
dim as any ptr image
image = imagecreate( 100, 168)
dim as ulong colors( 17)
colors( 0)=RGB(255,0,255)
colors( 1)=RGB(0,0,0)
colors( 2)=RGB(128,0,0)
colors( 3)=RGB(240,207,164)
colors( 4)=RGB(64,32,0)
colors( 5)=RGB(237,28,36)
colors( 6)=RGB(255,127,39)
colors( 7)=RGB(24,126,55)
colors( 8)=RGB(34,177,76)
colors( 9)=RGB(136,0,21)
colors( 10)=RGB(156,22,46)
colors( 11)=RGB(224,192,128)
colors( 12)=RGB(224,128,64)
colors( 13)=RGB(224,224,128)
colors( 14)=RGB(32,192,64)
colors( 15)=RGB(64,32,64)
colors( 16)=RGB(224,128,0)
dim as integer n
for j as integer = 0 to 167
for i as integer = 0 to 99
read n
pset image,(i,j),colors(n)
next i
next j
bsave "smallGuy2A.bmp",image
'sTile
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
data 1,1,1,1,1,2,2,2,2,2,2,1,1,1,1,1
data 0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0
data 0,0,0,1,2,2,2,1,1,2,2,2,1,0,0,0
data 0,0,1,2,2,2,1,0,0,1,2,2,2,1,0,0
data 0,1,2,2,2,1,0,0,0,0,1,2,2,2,1,0
data 1,2,2,2,1,0,0,0,0,0,0,1,2,2,2,3
data 2,2,2,1,0,0,0,0,0,0,0,0,1,2,2,3
data 2,2,2,1,0,0,0,0,0,0,0,0,1,2,2,3
data 2,2,2,1,1,1,1,1,1,1,1,1,1,2,2,3
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
'ladder
data 1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1
data 1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1
data 1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1
data 1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1
data 1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1
data 1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1
data 1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1
data 1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1
DATA 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,2,2,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,3,3,3,3,3,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,1,1,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,1,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,1,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,1,3,3,3,3,3,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,4,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,4,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,4,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,4,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,3,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,1,3,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,3,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,3,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,3,3,3,3,3,3,3,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,1,3,3,3,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,1,1,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,5,5,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,6,6,6,6,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,5,5,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,6,6,6,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,5,1,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,1,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,1,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,1,6,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,1,3,3,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,1,3,3,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,1,3,3,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,1,3,3,1,1,1,1,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,3,3,3,3,1,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,3,3,3,3,1,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,3,3,3,3,1,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,3,3,3,3,1,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,3,3,3,3,1,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,3,3,3,3,1,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,3,3,3,3,1,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,3,3,3,3,1,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,1,3,3,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,1,3,3,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,1,3,3,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,1,3,3,1,7,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,1,1,1,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,1,1,1,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,1,1,1,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,1,1,1,1,7,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,7,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,1,1,1,1,9,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,9,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,9,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,9,1,1,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,2,2,2,1,9,9,9,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,1,9,9,9,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,1,9,9,9,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,1,9,9,9,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,9,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,9,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,9,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,9,2,1,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,2,2,2,1,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,3,3,3,3,3,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,1,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,1,3,3,3,3,3,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,2,2,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,4,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,4,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,1,1,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,1,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,3,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,4,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,3,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,4,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,3,3,3,3,3,3,3,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,1,3,3,3,3,3,1,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,2,2,2,1,3,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,3,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,1,1,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,3,3,3,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,1,3,3,3,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,6,6,6,6,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,6,6,6,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,5,5,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,1,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,1,6,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,5,5,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,1,6,6,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,1,5,5,5,5,1,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,6,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,1,10,1,5,5,5,5,1,6,6,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,6,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,1,1,10,1,5,5,5,1,1,1,1,1,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,6,6,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,6,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,0,1,3,3,1,1,5,5,5,5,5,5,5,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,1,6,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,6,6,6,6,6,1,10,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,5,1,1,6,6,1,0,0,0,0,0,0,0,0
DATA 0,0,1,3,3,3,1,1,1,5,5,5,5,5,5,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,1,5,5,5,1,11,11,1,12,1,0,0,0,0,0,0,0,0,0,0,0,1,3,13,3,1,1,6,6,6,6,6,6,1,10,10,1,3,3,1,0,0,0,0,0,0,0,0,0,0,1,5,5,5,1,11,11,1,6,1,0,0,0,0,0,0,0,0
DATA 0,0,1,3,3,3,1,1,1,1,5,5,5,5,5,1,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,5,1,11,11,11,11,1,1,1,0,0,0,0,0,0,0,0,0,0,1,13,3,3,1,6,6,6,6,6,6,6,1,10,10,1,3,3,1,0,0,0,0,0,0,0,0,0,0,1,1,5,1,11,11,11,11,1,1,1,0,0,0,0,0,0,0
DATA 0,0,1,3,3,3,1,1,14,14,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,1,1,11,11,11,11,1,14,1,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,1,1,1,1,1,1,1,1,10,10,1,3,3,1,0,0,0,0,0,0,0,0,0,0,1,14,1,1,11,11,11,11,1,7,1,0,0,0,0,0,0,0
DATA 0,0,0,1,1,1,0,1,1,14,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,7,1,11,11,1,14,14,14,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,14,14,14,14,14,14,14,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,1,11,11,1,7,7,7,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,14,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,7,1,1,1,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,1,1,1,7,7,7,7,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,1,14,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,7,1,14,14,14,14,14,14,15,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,14,14,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,1,7,7,7,7,7,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,7,7,7,1,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,1,1,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,14,14,1,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,1,7,7,7,7,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,7,7,7,7,1,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,1,1,2,1,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,14,14,1,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,1,7,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,1,7,7,7,7,7,7,1,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,1,2,2,2,1,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,14,14,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,1,1,7,1,0,0,0,0,0,0,0,0,0
DATA 0,0,1,1,1,7,7,7,7,7,7,7,1,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,1,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,14,14,14,14,14,14,14,1,7,7,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,1,2,1,0,0,0,0,0,0,0,0,0,0
DATA 0,1,2,2,1,7,7,7,7,7,1,1,0,1,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,1,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,1,2,2,1,14,14,14,14,14,1,1,0,1,7,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,1,2,2,1,0,0,0,0,0,0,0,0,0
DATA 0,1,2,2,1,7,7,7,7,1,0,0,0,1,14,14,14,14,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,7,7,7,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,1,2,2,1,14,14,14,14,1,0,0,0,1,7,7,7,7,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,14,14,14,14,1,2,2,1,0,0,0,0,0,0,0,0,0
DATA 0,1,2,2,2,1,7,1,1,0,0,0,0,0,1,14,14,1,1,2,2,2,2,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,14,1,1,0,0,0,0,0,1,7,7,1,1,2,2,2,2,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
DATA 0,1,2,2,2,2,1,0,0,0,0,0,0,0,0,1,1,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,1,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,1,0,0,0,0,0,0,0,0,1,1,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,1,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,1,2,2,2,2,1,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,1,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,0,0,0,0,0,0,0,0,0,0
DATA 0,0,1,2,2,2,2,2,1,0,0,0,0,0,0,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,0,0,0,0,0,0,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,1,1,1,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,3,3,3,3,3,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,3,3,3,3,3,1,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,1,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,2,2,2,2,2,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,4,3,1,3,3,3,3,3,1,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,4,3,1,3,3,3,3,3,1,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,2,2,2,2,2,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,3,3,1,3,3,3,3,3,1,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,1,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,1,3,3,3,3,3,1,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,1,1,2,2,2,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,3,3,3,3,3,3,3,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,4,3,1,3,3,3,3,3,1,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,3,3,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,4,3,1,3,3,3,3,3,1,2,2,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,3,3,3,3,3,3,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,1,3,3,3,3,3,1,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,3,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,1,3,3,3,3,3,1,2,2,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,3,3,3,3,3,3,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,3,3,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,3,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,3,3,1,2,2,2,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,1,1,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,3,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,3,2,2,2,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,3,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,3,3,2,2,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,3,3,3,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,1,6,6,6,6,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,1,6,6,6,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,6,6,6,6,1,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,1,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,5,5,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,6,6,1,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,5,5,5,5,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,16,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,6,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,1,5,5,5,5,1,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,6,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,6,6,1,5,5,5,5,1,10,1,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,6,6,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,1,1,1,1,1,5,5,5,1,10,1,1,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,6,6,1,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,10,1,6,6,6,6,6,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,6,1,1,5,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,5,5,5,5,5,5,5,1,1,3,3,1,0,0,0
DATA 0,0,0,0,0,0,0,0,1,6,1,3,3,1,5,5,5,1,0,0,0,0,0,0,0,0,0,0,1,3,3,1,10,10,1,6,6,6,6,6,6,1,1,11,3,3,1,0,0,0,0,0,0,0,0,0,0,0,1,12,1,3,3,1,5,5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,3,1,5,5,5,5,5,5,1,1,1,3,3,3,1,0,0
DATA 0,0,0,0,0,0,0,1,1,1,3,3,3,3,1,5,1,1,0,0,0,0,0,0,0,0,0,0,1,3,3,1,10,10,1,6,6,6,6,6,6,6,1,11,11,3,1,0,0,0,0,0,0,0,0,0,0,1,1,1,3,3,3,3,1,5,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,1,5,5,5,5,5,1,1,1,1,3,3,3,1,0,0
DATA 0,0,0,0,0,0,0,1,7,1,3,3,3,3,1,1,14,1,0,0,0,0,0,0,0,0,0,0,1,3,3,1,10,10,1,1,1,1,1,1,1,1,1,11,11,11,1,0,0,0,0,0,0,0,0,0,0,1,14,1,3,3,3,3,1,1,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,14,14,1,1,3,3,3,1,0,0
DATA 0,0,0,0,0,0,1,7,7,7,1,3,3,1,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,14,14,14,14,14,14,14,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,14,14,14,1,3,3,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,14,1,1,0,1,1,1,0,0,0
DATA 0,0,0,0,0,0,1,7,7,7,7,1,1,1,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,1,1,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,14,1,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,7,7,7,7,7,1,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,14,14,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,14,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,14,1,1,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,7,7,7,7,1,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,1,14,14,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,1,1,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,1,7,7,7,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,7,7,7,1,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,1,14,14,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,1,2,1,1,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,1,7,7,7,7,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,1,7,1,1,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,7,1,14,14,14,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,1,2,2,2,1,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,1,7,7,7,7,7,7,1,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,2,1,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,7,7,7,1,14,14,14,14,14,14,14,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,1,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,14,1,7,7,7,7,7,7,7,1,1,1,0,0
DATA 0,0,0,0,0,0,0,0,0,1,2,2,1,14,14,14,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,7,7,1,0,1,1,14,14,14,14,14,1,2,2,1,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,1,7,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14,14,14,1,0,1,1,7,7,7,7,7,1,2,2,1,0
DATA 0,0,0,0,0,0,0,0,0,1,2,2,1,14,14,14,14,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,7,7,7,7,1,0,0,0,1,14,14,14,14,1,2,2,1,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,7,7,7,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,14,14,14,14,1,0,0,0,1,7,7,7,7,1,2,2,1,0
DATA 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,2,2,2,2,1,1,7,7,1,0,0,0,0,0,1,1,14,1,2,2,2,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,2,2,2,2,1,1,14,14,1,0,0,0,0,0,1,1,7,1,2,2,2,1,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,1,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,1,0,0,0,0,0,0,0,0,1,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,1,1,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,1,1,0,0,0,0,0,0,0,0,1,2,2,2,2,1,0
DATA 0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,1,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,1,0,0,0,0,0,0,0,1,2,2,2,2,1,0,0
DATA 0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,0,0,0,0,0,0,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,0,0,0,0,0,0,1,2,2,2,2,2,1,0,0
DATA 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,1,0,0,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,1,0,0,1,3,3,1,0,0,0
DATA 0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,1,3,3,3,3,1,1,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,1,1,3,3,3,3,1,0,0
DATA 0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,1,3,3,3,3,1,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,1,3,3,3,3,1,0,0
DATA 0,0,0,0,0,0,0,1,2,2,9,9,9,9,9,2,2,1,0,0,0,0,0,0,0,0,0,0,1,3,3,1,1,2,2,9,9,9,9,9,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,9,9,9,9,9,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,9,9,9,9,9,2,2,1,1,3,3,1,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,9,9,9,9,9,2,2,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,2,2,9,9,9,9,9,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,9,9,9,9,9,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,9,9,9,9,9,2,2,1,1,1,1,0,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,9,9,9,9,9,2,2,1,0,0,0,0,0,0,0,0,0,0,0,1,5,5,1,2,2,9,9,9,9,9,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,9,9,9,9,9,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,9,9,9,9,9,2,2,1,5,5,1,0,0,0,0
DATA 0,0,0,0,1,1,0,1,2,2,9,9,9,9,9,2,2,1,0,1,1,0,0,0,0,0,0,0,0,1,5,5,1,2,2,9,9,9,9,9,2,2,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,2,2,9,9,9,9,9,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,9,9,9,9,9,2,2,1,5,5,1,0,0,0,0
DATA 0,0,0,1,3,3,1,1,2,2,9,9,9,9,9,2,2,1,1,3,3,1,0,0,0,0,0,0,0,1,5,5,1,2,2,9,9,9,9,9,2,2,1,0,1,1,0,0,0,0,0,0,0,1,3,3,1,1,2,2,9,9,9,9,9,2,2,1,0,1,1,0,0,0,0,0,0,0,0,1,1,0,1,2,2,9,9,9,9,9,2,2,1,5,5,1,0,0,0,0
DATA 0,0,1,3,3,3,3,1,3,2,9,9,9,9,9,2,3,1,3,3,3,3,1,0,0,0,0,0,0,1,5,5,1,2,2,9,9,9,9,9,2,2,1,1,3,3,1,0,0,0,0,0,1,3,3,3,3,1,3,2,9,9,9,9,9,2,2,1,1,3,3,1,0,0,0,0,0,0,1,3,3,1,1,2,2,9,9,9,9,9,2,2,1,5,5,1,0,0,0,0
DATA 0,0,1,3,3,3,3,1,3,3,3,3,3,3,3,3,3,1,3,3,3,3,1,0,0,0,0,0,0,1,5,5,1,3,3,3,3,3,3,3,3,3,1,3,3,3,3,1,0,0,0,0,1,3,3,3,3,1,3,3,3,3,3,3,3,3,3,1,3,3,3,3,1,0,0,0,0,1,3,3,3,3,1,3,3,3,3,3,3,3,3,3,1,5,5,1,0,0,0,0
DATA 0,0,0,1,3,3,1,1,3,3,3,3,3,3,3,3,3,1,1,3,3,1,0,0,0,0,0,0,0,1,5,5,1,3,3,3,3,3,3,3,3,3,1,3,3,3,3,1,0,0,0,0,0,1,3,3,1,1,3,3,3,3,3,3,3,3,3,1,3,3,3,3,1,0,0,0,0,1,3,3,3,3,1,3,3,3,3,3,3,3,3,3,1,5,5,1,0,0,0,0
DATA 0,0,0,1,1,1,1,0,1,3,3,3,3,3,3,3,1,0,1,1,1,1,0,0,0,0,0,0,0,1,5,5,5,1,3,3,3,3,3,3,3,3,1,1,3,3,1,0,0,0,0,0,0,1,1,1,1,0,1,3,3,3,3,3,3,3,3,1,1,3,3,1,0,0,0,0,0,0,1,3,3,1,1,3,3,3,3,3,3,3,3,1,5,5,5,1,0,0,0,0
DATA 0,0,0,1,5,5,1,0,0,1,1,3,3,3,1,1,0,0,1,5,5,1,0,0,0,0,0,0,0,1,5,5,5,1,1,1,3,3,3,1,1,1,0,1,1,1,1,0,0,0,0,0,0,1,5,5,1,0,0,1,1,3,3,3,1,1,1,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,0,1,1,1,3,3,3,1,1,1,5,5,5,1,0,0,0,0
DATA 0,0,0,1,5,5,1,0,0,0,1,3,3,3,1,0,0,0,1,5,5,1,0,0,0,0,0,0,0,1,5,5,5,1,0,1,3,3,3,1,0,0,0,1,5,5,1,0,0,0,0,0,0,1,5,5,1,0,0,0,1,3,3,3,1,0,0,0,1,6,6,1,0,0,0,0,0,0,1,5,5,1,0,0,0,1,3,3,3,1,0,1,5,5,5,1,0,0,0,0
DATA 0,0,0,1,5,5,5,1,1,1,1,1,1,1,1,1,1,1,5,5,5,1,0,0,0,0,0,0,0,1,5,5,5,5,1,1,1,1,1,1,1,0,0,1,5,5,1,0,0,0,0,0,0,1,5,5,5,1,1,1,1,1,1,1,1,1,0,0,1,6,6,1,0,0,0,0,0,0,1,5,5,1,0,0,1,1,1,1,1,1,1,5,5,5,5,1,0,0,0,0
DATA 0,0,0,1,5,5,5,1,6,6,6,6,6,6,6,6,6,1,5,5,5,1,0,0,0,0,0,0,0,1,5,5,5,1,6,6,6,6,6,6,6,1,1,5,5,5,1,0,0,0,0,0,0,1,5,5,5,1,6,6,6,6,6,6,6,6,1,1,6,6,6,1,0,0,0,0,0,0,1,5,5,5,1,1,6,6,6,6,6,6,6,1,5,5,5,1,0,0,0,0
DATA 0,0,0,1,5,5,5,1,6,6,6,6,6,6,6,6,6,1,5,5,5,1,0,0,0,0,0,0,0,0,1,5,1,6,6,6,6,6,6,6,6,6,1,5,5,5,1,0,0,0,0,0,0,1,5,5,5,1,6,6,6,6,6,6,6,6,1,6,6,6,6,1,0,0,0,0,0,0,1,5,5,5,1,6,6,6,6,6,6,6,6,6,1,5,1,0,0,0,0,0
DATA 0,0,0,0,1,5,5,1,6,6,6,6,6,6,6,6,6,1,5,5,1,0,0,0,0,0,0,0,0,0,0,1,1,6,6,6,6,6,6,6,6,6,1,5,5,5,1,0,0,0,0,0,0,0,1,5,5,1,6,6,6,6,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,1,5,5,5,1,6,6,6,6,6,6,6,6,6,1,1,0,0,0,0,0,0
DATA 0,0,0,0,0,1,5,1,6,6,6,6,6,6,6,6,6,1,5,1,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,5,5,1,0,0,0,0,0,0,0,0,0,1,5,1,6,6,6,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,1,5,5,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,1,6,6,6,6,6,6,6,6,6,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,5,1,0,0,0,0,0,0,0,0,0,0,0,1,1,6,6,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,1,5,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,6,6,6,6,6,6,6,6,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,8,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,8,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,8,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,8,8,8,8,8,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,8,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,8,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,8,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,8,8,8,8,8,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,1,1,1,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,1,1,1,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,1,1,1,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,1,1,1,8,8,8,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,8,8,8,8,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,2,2,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,1,8,8,8,8,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,1,8,8,8,8,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,1,8,8,8,8,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,8,8,8,8,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,8,8,8,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8,8,8,8,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,2,2,2,1,2,2,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,1,2,2,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,2,1,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,2,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0
Code: Select all
const SCRW = 480
const SCRH = 480
screenres SCRW,SCRH,32
color rgb(0,0,0),rgb(200,200,255)
dim shared as any ptr scaffolding
scaffolding = imagecreate(SCRW,SCRH,rgb(255,0,255))
bload "scaffolding.bmp",scaffolding
dim shared as any ptr ladders
ladders = imagecreate(SCRW,SCRH,rgb(255,0,255))
bload "ladders.bmp",ladders
dim as any ptr spriteSheet2
spriteSheet2 = imagecreate(100,168,rgb(255,0,255))
bload "smallGuy2A.bmp",spriteSheet2
'=====================================
type SPRITE
as integer px
as integer py
as integer vx
as integer vy
as integer w
as integer h
as integer a 'alive
as integer s 'which image strip to use
as integer f 'current frame
as integer fc 'number of frames
as integer c 'count between frames
as any ptr img 'pointer to sprite sheet
end type
dim shared as SPRITE hero
hero.px = 72
hero.py = 400
hero.w = 25
hero.h = 42
hero.s = 1 'walking right
hero.fc = 4
hero.img = spriteSheet2
hero.a = 1 'show hero
dim shared as SPRITE barrel(0 to 19) 'up to 20 barrels
dim shared as integer total 'total barrels
dim shared as any ptr barrels
barrels = imagecreate(304,19,rgb(255,0,255))
bload "barrels.bmp",barrels
'==============================================
sub throwBarrel()
if total < 19 then
barrel(total).a = 1 'show ball
barrel(total).fc = 16
barrel(total).px = 122
barrel(total).py = 144
barrel(total).vx = 1
barrel(total).vy = 1 'gravity
barrel(total).w = 19
barrel(total).h = 19
barrel(total).img = barrels
total = total + 1
end if
end sub
function testCollision(b1 as SPRITE,b2 as SPRITE) as boolean
return b2.py < b1.py+b1.h and b2.py+b2.h > b1.py and b2.px < b1.px+b1.w and b2.px+b2.w > b1.px
end function
function onGround(b as SPRITE) as boolean
if point (b.px+b.w\2 ,b.py+b.h-1,scaffolding)<>rgb(255,0,255) then
return TRUE
else
return FALSE
end if
end function
function onLadder(b as SPRITE) as boolean
if point(b.px+ b.w\2,b.py+b.h-1,ladders)<>rgb(255,0,255) or point(b.px+ b.w\2,b.py+b.h,ladders)<>rgb(255,0,255) then
return TRUE
else
return FALSE
end if
end function
sub display()
screenlock
cls
put (0,0),scaffolding,trans
put (0,0),ladders,trans 'show ladders
'draw any barrels
if total > 0 then
for i as integer = 0 to total-1
if barrel(i).a = 1 then
put (barrel(i).px,barrel(i).py),barrels,(barrel(i).f*19,0)-(barrel(i).f*19+18,18),trans
end if
next i
end if
'draw hero if alive
if hero.a = 1 then
put (hero.px,hero.py),hero.img,(hero.f*hero.w,hero.s*hero.h)-(hero.f*hero.w + hero.w-1,hero.s * hero.h + hero.h-1),trans
end if
locate 2,2
print " TAP SPACE BAR TO ROLL A BARREL"
screenunlock
end sub
sub update()
hero.c = hero.c + 1
if hero.c > 10 then 'controls frame rate
hero.c = 0 'reset counter
hero.f = hero.f + 1 'next frame
if hero.f = hero.fc then
hero.f = 0
end if
end if
if total > 0 then
for i as integer = 0 to total-1
barrel(i).c = barrel(i).c + 1
if barrel(i).c > 4 then
barrel(i).c = 0
if barrel(i).vx > 0 then
barrel(i).f = barrel(i).f + 1
if barrel(i).f = barrel(i).fc then barrel(i).f = 0
else
barrel(i).f = barrel(i).f - 1
if barrel(i).f < 0 then barrel(i).f = barrel(i).fc-1
end if
end if
'update position
barrel(i).px = barrel(i).px + barrel(i).vx 'move barrel left/right
if not(onGround(barrel(i))) then
barrel(i).py = barrel(i).py + 1 'gravity
end if
if onGround(barrel(i)) then
barrel(i).py = barrel(i).py - 1
end if
'change horizontal direction
if barrel(i).px < 0 or barrel(i).px > SCRW-19 then
barrel(i).vx = -barrel(i).vx
barrel(i).f = 0
end if
'remove hero if collision with a barrel
if testCollision(hero,barrel(i)) = TRUE then
hero.a = 0 'end of hero
end if
'remove barrel at end of run
if barrel(i).py = 435 and barrel(i).px = 10 then
barrel(i).a = 0
end if
next i
end if
if not(onLadder(hero)) then
if not(onGround(hero)) then
hero.py = hero.py + 1 'gravity
end if
while onGround(hero)
hero.py = hero.py - 1 'lift out of ground
wend
end if
end sub
do
display()
if inkey=" " then
throwBarrel()
end if
hero.s = 0 'not moving
if multikey(&H4B) then
hero.px = hero.px - 1
hero.s = 2 'move left
end if
if multikey(&H4D) then
hero.px = hero.px + 1
hero.s = 1 'move right
end if
if onLadder(hero) then
if multikey(&H48) then 'UP
hero.py = hero.py - 1
hero.s = 3
end if
if multikey(&H50) then 'DOWN
hero.py = hero.py + 1
hero.s = 3
end if
end if
'adjust for left/right border
if hero.px < 0 then hero.px = 0
if hero.px > SCRW - hero.w then hero.px = SCRW - hero.w
update()
sleep 10
loop until multikey(&H01)