/* ================================================= = BOULDER DASH CAVES ©1993 by SAVELSOFT = = KAUNAS = ================================================= */ #include "INCLUDE:exec/types.h" STATIC UBYTE g[785]; STATIC USHORT SDA[5]; UBYTE maximum() {return(2); } /* NUMBER OF CAVES */ UBYTE database(i) USHORT i; { return(g[i]); } setlevel(n) USHORT n; { if(n==0) {level0();} if(n==1) {level1();} if(n==2) {level2();} } USHORT ssda(n) SHORT n; { return(SDA[n]);} level0() /* 30 stupeliu x 26 eilutes */ { SHORT n; STATIC UBYTE h[]={ 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,1,9,1,2,2,8,2,1,1,1,1,1,1,1,8,1,2,1,3,1,1,2,8,2,1,10,1,1,7, 7,1,3,1,0,3,8,2,3,2,1,1,3,1,1,8,1,3,1,2,1,1,2,8,2,2,0,1,1,7, 7,2,2,3,3,1,8,1,1,1,0,1,1,3,1,8,3,1,1,1,2,1,1,8,1,1,1,1,3,7, 7,2,1,1,1,3,8,1,1,1,0,0,1,1,1,8,0,0,5,1,2,1,1,8,1,1,1,1,0,7, 7,1,1,1,1,0,8,1,0,0,5,1,1,1,1,8,0,1,1,1,1,1,1,8,1,0,0,1,0,7, 7,0,0,2,1,1,8,1,1,1,1,1,1,2,1,8,1,1,1,1,1,2,1,8,1,1,1,1,2,7, 7,8,8,8,8,8,8,1,1,1,1,1,1,1,1,8,1,1,0,0,1,1,2,8,3,2,1,1,1,7, 7,1,0,0,0,0,1,1,1,1,1,1,1,1,1,8,1,2,1,1,1,1,1,8,3,1,1,1,0,7, 7,1,1,1,1,1,1,1,1,1,1,3,1,1,1,8,1,1,1,1,1,1,1,8,1,1,3,1,0,7, 7,0,0,0,0,4,0,0,0,0,0,0,1,1,1,8,4,0,2,0,0,0,1,8,1,1,1,0,0,7, 7,0,1,1,1,3,1,1,1,1,1,1,1,1,1,8,1,0,0,1,3,1,1,8,1,1,4,0,1,7, 7,0,2,2,2,2,2,2,2,2,2,2,1,2,1,8,2,2,2,2,2,2,2,8,8,1,8,8,8,7, 7,0,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2,2,2,2,2,2,2,8,1,1,1,1,1,7, 7,0,0,1,2,2,8,2,1,1,1,1,1,1,1,8,1,2,1,3,1,1,2,8,2,1,0,1,1,7, 7,0,0,1,0,3,8,2,3,2,1,1,3,1,1,8,1,3,1,2,1,1,2,8,2,2,0,1,1,7, 7,0,2,3,3,1,8,1,1,1,0,1,1,3,1,8,3,1,1,1,2,1,1,8,1,1,1,1,3,7, 7,0,1,1,1,3,8,1,1,1,0,0,1,1,1,8,0,0,5,1,2,1,1,8,1,1,1,1,0,7, 7,0,1,1,1,0,8,1,0,0,5,1,1,1,1,8,0,1,1,1,1,1,1,8,1,0,0,1,0,7, 7,0,0,2,1,1,8,1,1,1,1,1,1,2,1,8,1,1,1,1,1,2,1,8,1,1,1,1,2,7, 7,0,8,8,8,8,8,1,1,1,1,1,1,1,1,8,1,1,0,0,1,1,2,8,3,2,1,1,1,7, 7,0,0,0,0,0,1,1,1,1,1,1,1,1,1,8,1,2,1,1,1,1,1,8,3,1,1,1,0,7, 7,0,1,1,1,1,1,1,1,1,1,3,1,1,1,8,1,1,1,1,1,1,1,8,1,1,3,1,0,7, 7,0,0,4,4,4,4,4,4,4,4,4,1,1,1,8,4,0,2,0,0,0,1,8,1,1,1,0,0,7, 7,1,1,1,1,3,1,1,1,1,1,1,1,1,1,8,1,0,0,1,3,1,1,8,1,1,4,0,1,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7}; SDA[1]=2000; SDA[2]=30; SDA[3]=40; SDA[4]=10; SDA[5]=15; for(n=0;n<780;n++){g[n]=h[n];} } /* END of LEVEL0 */ /* TIM CRISTAL HMAGMA ITEMS BONUS */ level1() { SHORT n; STATIC UBYTE h[]={ 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,9,1,1,1,1,1,1,1,4,2,2,5,8,1,1,3,0,0,0,5,4,1,1,1,1,1,1,1,7, 7,1,2,1,1,1,1,1,1,1,1,2,2,8,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,1,1,0,0,1,1,5,7, 7,1,2,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,2,1,1,1,1,1,0,1,1,1,2,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,7, 7,1,1,1,1,1,1,1,1,2,2,1,1,8,2,1,1,1,1,1,1,2,1,1,1,1,1,2,2,7, 7,8,8,8,8,8,8,8,8,8,8,8,8,8,2,2,1,1,1,1,1,1,1,1,1,1,1,2,3,7, 7,1,2,1,1,1,1,1,1,1,1,1,2,8,2,2,1,1,1,1,1,1,1,1,1,1,2,2,3,7, 7,1,1,1,1,1,1,1,1,1,1,1,3,8,2,2,2,1,1,1,1,1,1,1,1,1,2,3,3,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,8,2,2,2,2,1,1,1,1,1,1,1,1,1,3,3,7, 7,1,2,1,1,0,0,0,0,5,1,1,1,8,2,3,2,2,2,2,1,1,1,1,1,1,1,3,3,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,7, 7,1,2,1,1,1,1,1,1,0,1,1,1,8,2,2,1,1,1,3,3,3,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,2,1,1,1,1,1,8,1,2,2,1,1,1,1,1,1,1,1,1,1,1,10,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,8,1,2,2,1,2,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1,2,1,1,1,1,1,1,1,0,0,1,1,1,7, 7,1,4,1,1,1,0,1,1,1,1,2,1,8,1,1,1,1,1,1,1,1,5,1,1,1,0,1,1,7, 7,1,0,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,7, 7,1,0,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,7, 7,1,0,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,0,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,0,1,1,1,1,8,0,1,1,1,1,1,2,1,1,1,1,1,1,1,0,7, 7,1,1,1,1,1,1,0,0,1,1,1,1,8,1,1,1,1,1,1,2,1,1,1,1,1,4,0,0,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7}; SDA[1]=2000; SDA[2]=1; SDA[3]=40; SDA[4]=10; SDA[5]=15; for(n=0;n<780;n++){g[n]=h[n];} } /* END of LEVEL1 */ /* TIM CRISTAL HMAGMA ITEMS BONUS */ level2() { SHORT n; STATIC UBYTE h[]={ 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,0,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,1,1,7, 7,0,8,8,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,1,1,1,1,1,1,1,1,1,7, 7,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,1,1,1,1,1,1,1,1,1,1,7, 7,0,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,0,8,1,2,1,1,1,1,1,2,1,2,7, 7,0,8,1,8,0,0,0,0,0,0,1,0,0,0,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7, 7,0,8,1,8,0,8,8,8,8,8,1,8,8,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7, 7,0,8,1,8,4,8,0,0,0,1,0,1,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7, 7,0,8,1,8,4,8,0,8,8,8,4,8,3,8,0,8,0,8,1,1,1,2,1,2,1,2,1,1,7, 7,0,8,1,8,4,8,0,8,0,0,0,8,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7, 7,0,8,1,8,4,8,0,8,8,8,1,8,3,8,1,8,0,8,1,1,1,1,1,1,1,1,1,1,7, 7,0,8,1,8,4,8,0,8,5,0,0,8,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7, 7,0,8,8,8,4,8,0,8,8,8,1,8,3,8,0,8,0,8,1,1,2,1,1,1,1,1,1,1,7, 7,0,8,4,1,4,8,0,0,0,0,0,8,3,8,0,8,0,8,1,1,1,1,1,1,2,1,1,1,7, 7,0,8,4,8,8,8,5,8,8,8,1,8,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7, 7,0,8,4,8,5,5,5,8,1,8,1,8,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7, 7,3,8,3,8,5,8,8,8,1,8,1,8,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7, 7,3,8,3,8,5,8,9,1,1,4,4,8,3,8,0,0,0,8,2,1,1,1,1,1,1,2,1,1,7, 7,3,8,3,8,5,8,1,1,8,4,8,8,3,8,3,8,8,8,1,1,1,1,1,1,1,1,1,1,7, 7,3,8,3,8,0,8,1,1,8,4,4,8,3,3,3,3,3,8,1,1,1,1,1,1,1,1,1,1,7, 7,3,8,3,8,0,8,1,1,8,4,8,8,8,8,8,8,3,8,1,1,1,1,1,1,1,1,1,1,7, 7,3,8,3,8,0,8,8,8,8,1,8,1,1,1,1,8,3,8,1,1,1,1,1,1,1,1,1,1,7, 7,3,8,3,8,0,0,0,0,0,0,0,0,0,1,1,8,3,8,1,1,1,1,1,1,1,1,1,1,7, 7,3,8,3,8,8,8,8,8,8,8,8,8,8,8,8,8,3,8,2,1,1,1,1,1,1,1,1,1,7, 7,3,8,3,1,4,1,1,1,1,1,1,1,1,1,1,1,3,8,1,1,1,1,1,1,1,1,1,10,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7}; SDA[1]=2000; SDA[2]=30; SDA[3]=40; SDA[4]=10; SDA[5]=15; for(n=0;n<780;n++){g[n]=h[n];} } /* END of LEVEL2 */ /* TIM CRISTAL HMAGMA ITEMS BONUS */ /* leveln() { SHORT n; STATIC UBYTE h[]={ 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7}; SDA[1]=2000; SDA[2]=30; SDA[3]=40; SDA[4]=10; SDA[5]=15; for(n=0;n<780;n++){g[n]=h[n];} }*/ /* END of LEVELn */ /* TIM CRISTAL HMAGMA ITEMS BONUS */