'$DYNAMIC
'current library-timing.qlb
DEFINT A-Z
DECLARE SUB setmodex ()
DECLARE SUB copypage (BYVAL page1, BYVAL page2)
DECLARE SUB setvispage (BYVAL page)
DECLARE SUB drawsprite (pic(), pal(), BYVAL s, BYVAL X, BYVAL Y, BYVAL page)
DECLARE SUB stosprite (pic(), BYVAL X, BYVAL Y, BYVAL page)
DECLARE SUB getsprite (pic(), BYVAL X, BYVAL Y, BYVAL w, BYVAL h, BYVAL page)
DECLARE SUB fadeto (palbuff(), BYVAL red, BYVAL green, BYVAL blue)
DECLARE SUB fadetopal (pal(), palbuff())
DECLARE SUB setpal (pal())
DECLARE SUB clearpage (BYVAL page)
DECLARE SUB setdiskpages (buf(), BYVAL l, BYVAL ln)
DECLARE SUB storepage (fil$, BYVAL i, BYVAL p)
DECLARE SUB loadpage (fil$, BYVAL i, BYVAL p)
setmodex
DIM pic(1252), dir$(16), newpal(767), baspal(8), clrpal(8), nme$(14), fadepal(768), tmp(8000)
DEF SEG = VARSEG(baspal(0))
FOR i = 0 TO 15: POKE VARPTR(baspal(0)) + i, i: NEXT i
DEF SEG = VARSEG(newpal(0))
BLOAD "palette.sto", VARPTR(newpal(0))
setpal newpal()
setvispage 3
FOR i = 1 TO 16: READ dir$(i): NEXT i
FOR i = 1 TO 14: READ nme$(i): NEXT i
DEF SEG = VARSEG(pic(0))
FOR i = 1 TO 7
FOR j = 1 TO 16
BLOAD nme$(i) + dir$(j) + ".vpc", VARPTR(pic(0))
stosprite pic(), 0, j + (i - 1) * 16 - 1, 3
BLOAD nme$(i + 7) + dir$(j) + ".vpc", VARPTR(pic(0))
stosprite pic(), 160, j + (i - 1) * 16 - 1, 3
NEXT j
NEXT i
DIM shot(138)
DEF SEG = VARSEG(shot(0))
FOR i = 1 TO 12
READ nme$
BLOAD "shot" + nme$ + ".vpc", VARPTR(shot(0))
stosprite shot(), 0, 111 + i, 3
BLOAD "sword" + nme$ + ".vpc", VARPTR(shot(0))
stosprite shot(), 160, 111 + i, 3
NEXT i
DEF SEG = VARSEG(pic(0))
FOR i = 1 TO 54
READ nme$
BLOAD nme$ + ".vpc", VARPTR(pic(0))
stosprite pic(), 0, 123 + i, 3
NEXT i
FOR i = 1 TO 42
READ nme$
BLOAD nme$ + ".vpc", VARPTR(pic(0))
stosprite pic(), 160, 123 + i, 3
NEXT i
BLOAD "logo.vpc", VARPTR(pic(0))
stosprite pic(), 0, 195, 3
fil$ = "bobgraph.scr" + CHR$(0)
setdiskpages tmp(), 200, 0
storepage fil$, 0, 3
setvispage 2
loadpage fil$, 0, 2
DATA u1,u2,l1,l2,d1,d2,r1,r2,us,ud,ls,ld,ds,dd,rs,rd
DATA hero,plip,bug,shark,shrew,spid,lago,vlad,fat,worm,fish,turk,hun,grunt
DATA 1u,1l,1d,1r,2u,2l,2d,2r,3u,3l,3d,3r
DATA death,cabbage,carrot,sunseed,spam,webs,webb,dirtpc,dirtdg,dirtup,dirtcc,hapybob
DATA dancel1,dancel2,dancer1,dancer2,bludhed1,bludhed2,bludhed3,bludhed4,bludbod1,bludbod2,bludbod3,bludbod4,cannon1,cannon2,cannon3,cannon4,cannon5,cannon6,flying1,flying2,flying3,flying4,flying5,flying6
DATA rocket1,rocket2,fwork11,fwork12,fwork13,fwork14,fwork21,fwork22,fwork23,fwork24,fwork31,fwork32,fwork33,fwork34,nao,ki,ko,mine
DATA skull,apple,coin,gems,hat,guard,guardd,soilpc,dirtdg,dirtup,soilcc,hapyvlad
DATA bats1,bats2,batb1,batb2,vladjl,vladsl,vladjr,vladsr,stone,stone2,banner1,banner2,flag1,flag2,flag3,flag4,lanced1,lanced2,flee1,flee2
DATA vladhead,vladdead,vladbody,vladflat,vladbod1,vladbod2,gruntha1,gruntha2,hunha1,hunha2