Sorry your browser is not supported!

sync on:sync rate 0:randomize timer()
set display mode 226,256,16:set window size 452,512:color backdrop 0
set text font "arial"

#constant D data:#constant sp sprite:#constant ei endif
#constant O3 1,1,1:#constant O4 1,1,1,1:#constant O5 1,1,1,1,1
#constant Z3 0,0,0:#constant Z4 0,0,0,0:#constant Z5 0,0,0,0,0
#constant isn x+y*11:#constant inx x*16+ipox:#constant iny y*16+ipoy+t2
global iof

repeat
    inc c:read wy:read wx:ink rgb(255*(c<>8)*(c<11),255*(c<>7),255*(c<>7)*(c<>8)*(c<11)),0
    for y=1 to wy:for x=1 to wx
        read t:if t:dot x,y:dot wx*2+1-x,y:ei
    next x:next y
    get image c,1,1,wx*2+1,wy+1,1:cls
until c=12
make memblock from image 2,10
DIM inv(11,5)

goto sk

ngm:
wav=-1:liv=3:scr=0:gov=0:make memblock from image 1,11:for c=20 to 23:make image from memblock c,1:next c:delete memblock 1
res:
for c=0 to 3:sprite 150+c,30+c*48,177,20+c:next c
inc wav:idr=1:ipoy=40+wav*6:ipox=11:msdr=0:pdt=timer():pr=1:pl=1:ilf=55
DIM isx(1):DIM isy(1)
for y=1 to 5:for x=1 to 11:inv(x,y)=0:next x:next y
isy(1)=-5 `Bullet ypos
sp 101,1,0,7:sp 100,30,0,8
sk:
do
text 13,10,"SCORE<1>":text 87,10,"HI-SCORE":text 155,10,"SCORE<2>":text 10,230,str$(screen fps())
t$="":for c=len(str$(scr))+1 to 4:t$=t$+"0":next c
center text 35,20,t$+str$(scr):center text 115,20,str$(hsc):center text 180,20,"0000"
for c=2 to liv:paste image 8,c*20,230:next c

if liv=0 or gov:pl=0:center text 113,50,"Space Invaders remake by BMacZero":center text 113,100,"GAME OVER":center text 113,110,"Press ENTER to play!":if returnkey() and pr=0:if scr>hsc:hsc=scr:ei:goto ngm:ei:ei

if pl

if ilf<=0:wait 500:inc scr,1000:inc liv,(liv<4):goto res:ei

t=7+2*(mst>0)
if timer()-mtm>=21:sp 101,sp x(101)+msdr,36,t:mtm=timer():ei
if mst=0 and (msdr=0 or (msdr=1 and sp x(101)>270) or (msdr=-1 and sp x(101)<-20)):msdr=(rnd(1)*2)-1:sprite 101,-msdr*(500+rnd(256)),36,7:ei
if isy(1)>=sp y(101) and isy(1)<sp y(101)+13 and isx(1)>=sp x(101) and isx(1)<sp x(101)+17:msdr=0:inc scr,(rnd(5)+1)*50:mst=timer():isy(1)=-5:ei
mst=(timer()-mst<120)*mst

ps=0
bd2=1:if timer()-sht>=15:bd2=0:sht=timer():ei
for x=1 to 11:for y=1 to 5
    t2=0:if timer()-inv(x,y)>=100 and inv(x,y)>0:t2=-500:ei
    r=9:if inv(x,y)=0:r=1+iof:if y=1:r=5+iof:ei:if y=2 or y=3:r=3+iof:ei:ei
    sprite isn,inx,iny,r
    if inv(x,y)=0 and isy(1)>=iny and isy(1)<iny+13 and isx(1)>=inx and isx(1)<inx+13:inv(x,y)=timer():isy(1)=-5:dec ilf:r=10:if y=1:r=40:ei:if y=2 or y=3:r=20:ei:inc scr,r:ei
    if (inx<10 or inx>204) and inv(x,y)=0:ps=1:ei
    if (iny>=192):gov=1:ei
    bad=0
    for c=y+1 to 5
        if inv(x,c)=0:bad=1:ei
    next c
    if bad=0 and bd2=0 and inv(x,y)=0 and rnd(800)=0:array insert at bottom isx(0):array insert at bottom isy(0):t=array count(isy(0)):isx(t)=inx+6:isy(t)=iny+8:ei
next y:next x
if ps:idr=1-idr:inc ipoy,8:inc ipox,((idr*2)-1)*2:ei

bad=1:if timer()-smt>=15:bad=0:ei
for c=array count(isx(0)) to 1 step -1
    line isx(c),isy(c),isx(c),isy(c)-4
    if bad=0
    inc isy(c),1*(c>2):smt=timer()
    if c>2 and isy(c)>199 and isy(c)<209 and isx(c)>=sp x(100) and isx(c)<=sp x(100)+14:dec liv:pdt=timer():sp 100,sp x(100),200,12:ei
    if isy(c)>isy(1)-4 and isy(c)+4<isy(1) and isx(c)>isx(1)-3 and isx(c)<isx(1)+3:paste image 10,isx(1)-4,isy(1)-4:isy(1)=-5:isy(c)=226:ei
    t2=3^(c<3):for f=1 to t2:if c=1 and isy(c)>-5:dec isy(c):ei
    if isy(c)>177 and isy(c)<193
        for e=0 to 3
            if isx(c)>29+e*48 and isx(c)<51+e*48
                make memblock from image 1,20+e
                t=(3+(isx(c)-sp x(150+e))+(isy(c)-sp y(150+e))*20)*4+1
                if t<get memblock size(1):if memblock byte(1,t)>0
                    for x=0 to 7:for y=0 to 7
                        if memblock byte(2,(3+x+y*8)*4)>0 and x+isx(c)-sp x(150+e)<24 and x+isx(c)-sp x(150+e)>3
                            t=(3+(isx(c)-sp x(150+e)+x-4)+(isy(c)-sp y(150+e)+y-4)*20)*4
                            if t>11 and t<get memblock size(1):write memblock dword 1,t,0:ei
                        ei
                    next y:next x
                    isy(c)=226:if c<3:isy(c)=-5:ei
                ei:ei
                delete image 20+e:make image from memblock 20+e,1:delete memblock 1
            ei
        next e
    ei:next f
    if isy(c)>225 and c>1:array delete element isx(0),c:array delete element isy(0),c:ei
    ei
next c

if timer()-tm>=650-(55-ilf)*10:tm=timer():iof=1-iof:inc ipox,((idr*2)-1)*2:ei

if timer()-pt>=15:pt=timer():mm=(rightkey()-leftkey()):t=sp x(100)+mm:if t<10:t=10:ei:if t>208:t=208:ei:sp 100,t,200,sp image(100):ei

if spacekey() and pr=0 and isy(1)<0:pr=1:isx(1)=sp x(100)+7:isy(1)=199:ei

ei

if spacekey()=0:pr=0:ei
ink 0x00FF00,0:line 10,225,216,225:ink rgb(255,255,255),0
opl=pl:pl=(timer()-pdt>2000):if opl<pl:sp 100,30,200,8:DIM isx(2):DIM isy(2):isy(1)=-5:isy(2)=-5:ei
sync:loop

D 8,6,Z4,1,1,0,O5,O5,O4,0,0,O5,1,1,0,0,O3,0,0,1,1,0,0,1,0,0,1,1,0,0
D 8,6,Z4,1,1,0,O5,O5,O4,0,0,O5,1,1,0,0,O3,0,0,1,1,0,0,O3,Z4
D 8,6,0,0,1,Z5,0,1,Z4,O4,0,1,1,0,O5,O4,0,O5,0,1,Z5,0,1,1,0
D 8,6,0,0,1,Z3,1,0,0,1,0,0,1,0,O5,1,1,0,O5,O3,0,0,O4,Z3,1,Z4,1,Z3
D 8,6,Z5,1,Z4,1,1,Z3,O3,0,0,1,1,0,1,0,0,O4,Z4,1,Z4,1,0,1,0,0,1,0,1,0
D 8,6,Z5,1,Z4,1,1,Z3,O3,0,0,1,1,0,1,0,0,O4,Z3,1,0,1,0,0,1,Z5,0,1,0,0
D 7,8,Z5,O3,Z3,O5,0,0,O5,1,0,1,1,0,1,1,0,O5,O4,0,0,O3,0,0,1,Z3,1,Z4
D 8,7,Z5,0,1,Z5,1,1,Z5,1,1,0,O5,O5,O5,O5,O5,O5,O4
D 8,6,Z5,1,0,1,Z5,0,1,Z3,1,1,Z5,Z5,0,1,0,0,1,0,1,0,0,1,Z5,1,0,1
D 8,4,1,Z3,0,0,1,0,0,O3,O4,O4,0,O3,0,0,1,0,1,0,0,1
D 16,10,Z4,O3,O3,Z3,O4,O3,0,0,O4,O4,0,O5,O4,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O4,O3,Z3,O3,O3,Z4,O5,Z5,O5,Z5
D 8,8,Z3,1,Z4,1,Z5,1,Z4,1,Z5,Z5,1,0,0,1,0,0,1,0,1,1,0,0,1,Z4,1,Z3,O5,0,0,1,1,0,O3

SET DISPLAY MODE 500,480,16
SYNC ON
SYNC RATE 0
COLOR BACKDROP 0


GLOBAL r,d,m$,s,bt,hs,ta,l
l=3
w=10
h=8

DATA 0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,0,0,0,1,1,0,1,1,0,1,1,0,0,1,1,1,1,1,1,1,1,0,0,0,0,1,0,0,1,0,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0,1,0,0,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,0,0,0,1,1,0,1,1,0,1,1,0,0,1,1,1,1,1,1,1,1,0,0,0,1,0,1,1,0,1,0,0,0,1,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,1,0,1,1,1,1,1,1,0,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,0,0,0,1,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,0,1,0,0,1,0,0,0,0,0,1,1,1,1,1,1,0,0,0,1,1,0,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,0,1,1,0,1,0,0,0,0,1,0,1,0,0,0,1,0,0,1,0,0,0,0,0,0,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,0,0,1,1,0,0,0,1,1,0,1,1,0,1,1,0,1,1,0,0,0,0,0,0,1,1,0,0,0,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,0,0,1,1,0,0,0,1,1,0,1,1,0,1,1,0,0,0,1,1,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,0,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,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,0,0,0,0,1,0,1,0,1,0,1,0,0,1,0,1,0,0,0,1,0,1,1,0,1,0,0,0,0,0,1,0,0,1,0,0,0,1,1,1,1,0,0,1,1,1,1,0,0,0,1,0,0,1,0,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0,1,0,0,1,0,1,0,11,6,0,0,0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,0,1,1,0,1,0,1,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0,1,0,0
bunker:DATA 0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,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,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,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1


FOR a=1 TO 9
    FOR y=0 TO h-1
    FOR x=0 TO w-1
        read n
        IF n > 1
            w=n
            read n
            h=n
            read n
        ENDIF
        IF n = 1
            box x*2,y*2,x*2+2,y*2+2
        ENDIF
    NEXT x
    NEXT y
    GET IMAGE a,0,0,w*2,h*2
    CLS
NEXT a

SET TEXT SIZE 15
INK 4294901760,0
TEXT 0,0,"100"
GET IMAGE 10,0,0,22,12
CLS

INK 0x00FF00,0
BOX 0,0,3,8
GET IMAGE 20,0,0,3,8
CLS

BOX 0,0,2,2
GET IMAGE 30,0,0,2,2
CLS

INK 4294967295,0
BOX 2,0,5,10
LINE 0,2,6,4
LINE 0,3,6,5
LINE 0,6,6,8
LINE 0,7,6,9
GET IMAGE 21,0,0,6,10

SPRITE 56,150,400,7
STRETCH SPRITE 56,150,100
SET SPRITE DIFFUSE 56,0,255,0
CLONE SPRITE 56,58
CLONE SPRITE 56,59
SPRITE 58,50,431,7
SPRITE 59,90,431,7

HTTP CONNECT "www.gamingvibe.com"
hs=VAL(HTTP REQUEST DATA("POST", "SpaceInvaders.cgi","a=GetHighscore"))

Reset()

DO
    t=TIMER()
    IF l > 0
    
        IF st + 30000 < t
            st=t
            SPRITE 70,550,60,9
            SET SPRITE DIFFUSE 70,255,0,0
        ENDIF
        IF mt + 3 < t
            mt=t
            x=SPRITE X(56)
            y=SPRITE Y(56)
            IF LEFTKEY() AND x > 20 THEN SPRITE 56,x-1,y,7
            IF RIGHTKEY() AND x < 450 THEN SPRITE 56,x+1,y,7
            IF SPACEKEY() THEN IF NOT SPRITE EXIST(57) THEN SPRITE 57,x + 14,y,20

            RANDOMIZE t
            IF RND(200)=1
                FOR i=60 to 63
                    IF NOT SPRITE EXIST(i)
                        al=RND(10)+1
                        FOR j=4 to 0 STEP -1 
                            a=al+(j*11)
                            IF SPRITE EXIST(a)
                                SPRITE i,SPRITE X(a)+(SPRITE WIDTH(a) / 2),SPRITE Y(a) + 24,21
                                EXIT
                            ENDIF
                        NEXT j
                        EXIT
                    ENDIF
                NEXT i
            ENDIF

            IF SPRITE EXIST(70) THEN IF SPRITE IMAGE(70) <> 10
                    SPRITE 70,SPRITE X(70) - 1,SPRITE Y(70),9
                    IF SPRITE X(70) < -30 THEN DELETE SPRITE 70
            ENDIF

            IF SPRITE EXIST(56)
                h=SPRITE COLLISION(56,0)
                IF h > 0 AND h < 56 
                	DEC l
                	Reset()
                ENDIF
            ENDIF

            IF SPRITE EXIST(57)
            	MOVE SPRITE 57, 2
                IF SPRITE Y(57) < 53
                    DELETE SPRITE 57
                ELSE
                    h=SPRITE COLLISION(57,0)
                    IF h > 199
                      DELETE SPRITE h
                      DELETE SPRITE 57
                    ENDIF
                    IF h > 0 AND h < 56
                        IF SPRITE IMAGE(h) <> 8
                            DELETE SPRITE 57
                            
                            IF SPRITE IMAGE(h) > 4
                            	INC s,10
                            ELSE
                              IF SPRITE IMAGE(h) > 2
                                INC s,20
                              ELSE
                                INC s,40
                              ENDIF
                            ENDIF
                            
                            DEC ta
                            IF ta=0 THEN Reset()
                            
                            SPRITE h,SPRITE X(h),SPRITE Y(h),8
                        ENDIF
                    ENDIF
                    IF h = 70
                      DELETE SPRITE 57
                      SET SPRITE IMAGE 70,10
                      INC s,100
                    ENDIF
                ENDIF
                
            ENDIF 
            FOR i=60 to 63
                IF SPRITE EXIST(i)
                	IF SPRITE Y(i) > 418
                        DELETE SPRITE i
                    ELSE
                        MOVE SPRITE i, -1
                        
                        h=SPRITE COLLISION(i,0)
                    	IF h = 56
                        	DELETE SPRITE i
                        	DEC l
                        	Reset()
                        	EXIT
                    	ENDIF
                    	IF h > 199
                        	DELETE SPRITE i
                        	DELETE SPRITE h
                    	ENDIF
                    ENDIF
                ENDIF
            NEXT i
                     
        ENDIF
        IF rt + 500 < t
        	rt=t
            IF SPRITE EXIST(70) THEN IF SPRITE IMAGE(70) = 10 THEN DELETE SPRITE 70
            FOR a=1 to 55
                IF SPRITE EXIST(a) THEN IF SPRITE IMAGE(a)=8 THEN DELETE SPRITE a
            NEXT a
        ENDIF
        
        IF at + ((ta/55.0)*950)+50 < t
            at=t
            mi=0
            ma=0
            
            FOR a=1 to 55
                IF SPRITE EXIST(a) THEN IF SPRITE IMAGE(a) <> 8
                	x=SPRITE X(a)
            		IF mi=0 
            			mi=a
            			ma=a
            		ENDIF
            		IF x < SPRITE X(mi) THEN mi=a
            		IF x > SPRITE X(ma) THEN ma=a
            		
                	i=SPRITE IMAGE(a)
                	IF i MOD 2
                    	INC i
                	ELSE
                    	DEC i
                	ENDIF
                	SPRITE a,x+(d*8),r+((ceil(a/11.0)-1)*24),i
	
                	h=SPRITE COLLISION(a,0)
                	WHILE h > 199
                    	DELETE SPRITE h
                    	h=SPRITE COLLISION(a,0)
                	ENDWHILE
                ENDIF
            NEXT a
            IF SPRITE X(mi) < 50 OR SPRITE X(ma) > 430
                d=0-d
                r=r+24
            ENDIF
            
        ENDIF
    ENDIF

    INK 0x00FF00,0
    BOX 0,428,500,430
    BOX 0,50,500,52
    INK 4294967295,0
    TEXT 350,431,"CREDIT 00"
    TEXT 10,10,"SCORE"
    TEXT 350,10,"HIGH SCORE"
    TEXT 10,431,str$(l)
    TEXT 10,30,str$(s)
    TEXT 350,30,str$(hs)
    CENTER TEXT 250,240,m$
    
    SYNC
    
LOOP

HTTP DISCONNECT

FUNCTION Reset
    IF l = 0
        FOR a=1 TO bt
        	IF SPRITE EXIST(a) THEN DELETE SPRITE a
        NEXT a
        m$="Game Over"
        t$=HTTP REQUEST DATA("POST", "SpaceInvaders.cgi","a=SetHighscore&s="+str$(s))
    ELSE
        r=150
        d=1
        bt=200
        ta=55
        
        FOR a=1 to 55
            i=1
            IF a > 11 THEN i=3
            IF a > 33 THEN i=5
            
            gr=ceil(a/11.0)-1
            SPRITE a,50+((a-(gr*11))*28),r+(gr*24),i
        NEXT a

        SPRITE 56,235,400,7

        HIDE SPRITE 58
        HIDE SPRITE 59
        IF l > 1 THEN SHOW SPRITE 58
        IF l > 2 THEN SHOW SPRITE 59

        FOR b=1 TO 3
        RESTORE bunker
        FOR y=0 TO 8
        FOR x=0 TO 15
            read d
            IF d = 1
                SPRITE bt,35+(b*100)+(x*2),360+(y*2),30
                INC bt
            ENDIF
        NEXT x
        NEXT y
        NEXT b
    ENDIF
ENDFUNCTION

#!/usr/bin/perl -w

use strict;
use CGI;
use DBI;

my $cgi = new CGI;
my %p = $cgi->Vars();

my $dbh = DBI->connect("dbi:Pg:dbname=", '', '', { RaiseError => 1, AutoCommit => 0 }) or die DBI->errstr;

my $sth = $dbh->prepare("SELECT highscore FROM stats");
$sth->execute();
my($hs)=$sth->fetchrow_array();

if ($p{a} eq "GetHighscore"){
    print $cgi->header();
    print $hs;
}
elsif ($p{a} eq "SetHighscore"){
    if ($p{s} > $hs){
      my $sth2 = $dbh->prepare("UPDATE stats SET highscore=?");
      $sth2->execute($p{s});
      $dbh->commit();
      print $cgi->header();
      print "Score set to:" . $p{s};
    }
    else {
      print $cgi->header();
      print "Score not set.";
    }
}

set display mode 320,280,32
set window on
set window size 640,560
sync on
sync rate 0
sync
randomize timer()
hide mouse
set text font "courier"
#constant P center text
#constant e endif
#constant b sprite
#constant i Gosub
#constant n Next
#constant K paste image
#constant D for
dim C(2) as DWORD
C(0)=4294967295
C(1)=4278255360
C(2)=4294901760
HS=0
if file exist("S.s")
open to read 9,"S.s"
read long 9,HS
close file 9
e
type NT
x as float
y as float
T
endtype
Dim n(501) as NT
D t=1 to 18
DI(t)
n t
DO
IY=-16
L=3
XL=1500
Q=0
I H
P 160,50,"PLAY"
P 160,80,"SPACE INVADERS"
P 160,110,"*SCORE ADVANCE TABLE*"
K 7,122,137
p 180,135,"=? MYSTERY"
K 1,126,156
p 180,155,"=30 POINTS"
K 3,125,176
p 180,175,"=20 POINTS"
K 5,124,196
p 180,195,"=10 POINTS"
sync
t=timer()
repeat
until scancode() or timer()-t>9999
I H
P 160,80,"PLAY PLAYER<1>"
sync
wait 2000
K 17,1,1
s=200
D t=1 to 4
D x=1 to 11
D y=1 to 8
if rgbg(point(x,y))>180
inc s
b s,t*50+x*2+23,210+y*2,18
n(s).T=19
e
n y
n x
n t
DO
IY=IY+16
if IY>80
IY=80
e
s=0
D y=1 to 5
D x=1 to 11
inc s
t=1+(2*(y>1))+(2*(y>3))
n(s).x=x*16+62
n(s).y=y*16+40+IY
n(s).T=t
b s,n(s).x,n(s).y,t
n x
n y
TX=1
MD=0
A#=0
F#=0
st=900+rnd(300)
s#=0
n(60).x=99
LI=0
t1=timer()
do
G#=(timer()-t1)*0.0011*((IY/2)+100-IL)
t1=timer()
w=1
IL=0
D t=1 to 55
if b exist(t)
INC IL
e
n t
if s#<st
if b exist(56)=0 && IL>15
s#=s#+g#
e
else
SX=rnd(1)*2-1
n(56).x=55+(210*(SX=-1))
b 56,n(56).x,40,7
n(56).y=40
s#=0
e
if b exist(56)
inc n(56).x,SX*G#*0.4
b 56,n(56).x,40,7
if n(56).x<55 or n(56).x>265
ds(56,56)
st=600+rnd(450)
e
e
if A#<(30.0-((9-IL)*(IL<9)))
a#=a#+g#
else
F=1-F
D t=1 to 55
if b exist(t)
set b image t,n(t).T+F
e
n t
A#=0.0
e
if w#<(11.0-((11-IL)*(IL<11)))
w#=w#+g#
else
if MD=0
D t=1 to 55
if b exist(t)
inc n(t).x,TX*(1+(IL=1))
b t,n(t).x,n(t).y,n(t).T+F
I CO
if n(t).x>268 or n(t).x<52
MD=1
e
e
n t
else
LI=0
D t=1 to 55
if b exist(t)
inc n(t).y,8
b t,n(t).x,n(t).y,n(t).T+F
if n(t).y>LI
LI=n(t).y
e
e
n t
TX=-TX
MD=0
e
w#=0.0
e
if F#>(50+(IL/2)-(IY/4))
D t=57 to 59
if b exist(t)=0
x=rnd(10)+45
while b exist(x)=0
dec x,11
if x<1
exit
e
endwhile
if x>0
n(t).x=n(x).x+4-rnd(8)
n(t).y=n(x).y+8
n(t).T=8+(rnd(1)*2)
b t,n(t).x,n(t).y,n(t).T
F#=0.0
e
EXIT
e
n t
else
f#=f#+g#
e
D t=57 to 59
if b exist(t)
inc n(t).y,G#*1.25
if n(t).T>0
b t,n(t).x,n(t).y,n(t).T+F
e
w=0
I CO
if c>200
n(t).y=399
e
if c=100
Dec L
ds(55,59)
D x=1 to 10
I H
b 100,x#,244,13+(x mod 2)
sync
wait 150
n x
x#=0
if L<1
GOTO EG
e
t1=timer()
e
if n(t).y>250
c=t
I MX
e
e
n t
x#=x#+(rightkey()-leftkey())*G#*0.75
if x#<62
x#=62
e
if x#>258
x#=258
e
b 100,x#,244,12
if b exist(99)=0
if spacekey()
b 99,x#,234,15
n(99).x=x#
n(99).y=234
e
else
dec n(99).y,G#*2.5
b 99,n(99).x,n(99).y,15
t=99
I CO
if c
ds(99,99)
if c=56
I MX
a=50+rnd(5)*50
Q=Q+a
n(56).T=a
n(56).y=60
e
if c>56 && c<60 && rnd(1)=0
I MX
e
if c>0 && c<56
I MX
Q=Q+(40-((n(c).T+1)/2)*10)
e
e
if n(99).y<40
c=99
I MX
e
e
I H
inc n(60).x,G#
if n(60).x<22
K 16, n(0).x-4, n(0).y-4,1
w=0
e
D t=1 to 500
if b exist(t)
offset b t, b width(t)/2, b height(t)/2
e
n t
sync
if IL<1 && w=1
EXIT
e
if LI>231
wait 1000
goto EG
e
loop
loop
H:
CLS
ink C(1),0
line 45,255,275,255
if n(56).T>0
ink C(2),0
dec n(56).y,G#
if n(56).y<1
n(56).T=0
e
text n(56).x-8,32,str$(n(56).T)
e
if Q>HS
HS=Q
e
if Q>=XL
XL=XL+1500
inc L
e
ink C(0),0
p 160,2,"SCORE<1>   HI-SCORE"
a$=str$(Q)
while len(a$)<4
a$="0"+a$
Endwhile
P 110,16,a$
a$=str$(HS)
while len(a$)<4
a$="0"+a$
Endwhile
P 205,16,a$
text 50,260,str$(L)
D t=1 to L-1
K 12,t*18+44,260
n t
text 200,260,"CREDIT 01"
return
CO:
c=b Collision(t,0)
if c>200
ds(c,c)
e
Return
MX:
n(60).x=0
n(0).x=n(c).x
n(0).y=n(c).y
ds(c,c)
Return
EG:
if file exist("S.s")
delete file "S.s"
e
open to write 9,"S.s"
write long 9,HS
close file 9
ds(1,500)
I H
P 160,100,"GAME OVER"
SYNC
WAIT 4000
LOOP
END
Function DI(t)
read a,u,c
ink C(c),0
create bitmap 1,a+2,u+2
D y=1 to u
c=a-1
Read Z
D x=a to 1 step -1
V=2^c
if Z>=V
dot x,y
dec z,v
e
dec c
n x
n y
get image t,1,1,a+1,u+1,1
delete bitmap 1
Endfunction
Function DS(x,y)
D t=x to y
If b exist(t)
delete b t
e
n t
Endfunction
data 8,8,0,24,60,126,219,255,36,90,165,8,8,0,24,60,126,219,255,90,129,66,11,8,0,260,1161,1533,1911,2047,1022,260,514,11,8,0,260,136,508,886,2047,2047,1285,216,12,8,0,240,2046,4095,3687,4095,408,876,3075,12,8,0,240,2046,4095,3687,4095,924,1638,780,16,8,2,2016,8184,16380,28086,65535,14748,4104,0,3,7,0,4,2,1,2,4,2,1,3,7,0,1,2,4,2,1,2,4,3,7,0,2,2,2,2,2,7,2,3,7,0,2,7,2,2,2,2,2,14,8,1,192,480,480,8190,16383,16383,16383,16383,14,8,1,4664,6944,3438,9560,12305,1016,8188,16383,14,8,1,2308,2312,1169,12962,2724,2040,4094,8191,1,7,0,1,1,1,1,1,1,1,9,9,0,273,146,68,0,387,0,68,146,273,11,8,1,508,1022,2047,2047,2047,2047,1799,1539,2,2,1,3,3

sync on
sync rate 0
randomize m
set display mode 226,256,16
set window size 452,512
color backdrop 0
set text font "arial"

#constant D data:#constant s sprite:#constant i endif:#constant m timer():#constant b memblock
#constant O3 1,1,1:#constant O4 1,1,1,1:#constant O5 1,1,1,1,1
#constant Z3 0,0,0:#constant Z4 0,0,0,0:#constant Z5 0,0,0,0,0
#constant isn x+y*11:#constant inx x*16+ipox:#constant iny y*16+ipoy+t2
global iof

repeat
inc c
read wy
read wx
ink rgb(255*(c<>8)*(c<11),255*(c<>7),255*(c<>7)*(c<>8)*(c<11)),0
for y=1 to wy:for x=1 to wx
read t
if t:dot x,y:dot wx*2+1-x,y:i
next x:next y
get image c,1,1,wx*2+1,wy+1,1:cls
until c=12
make b from image 2,10
DIM inv(11,5)

goto sk

ngm:
wav=-1:liv=3:scr=0:gov=0:make b from image 1,11:for c=20 to 23:make image from b c,1:next c:delete b 1
res:
for c=0 to 3:s 150+c,30+c*48,177,20+c:next c
inc wav:idr=1:ipoy=40+wav*6:ipox=11:msdr=0:pdt=m:pr=1:pl=1:ilf=55
DIM isx(1):DIM isy(1)
for y=1 to 5:for x=1 to 11:inv(x,y)=0:next x:next y
isy(1)=-5
s 101,1,0,7:s 100,30,0,8
sk:
do
text 13,10,"SCORE<1>":text 87,10,"HI-SCORE":text 155,10,"SCORE<2>":text 10,230,str$(screen fps())
t$="":for c=len(str$(scr))+1 to 4:t$=t$+"0":next c
center text 35,20,t$+str$(scr):center text 115,20,str$(hsc):center text 180,20,"0000"
for c=2 to liv:paste image 8,c*20,230:next c

if liv=0 or gov:pl=0:center text 113,50,"Space Invaders remake by BMacZero":center text 113,100,"GAME OVER":center text 113,110,"Press ENTER to play!":if returnkey() and pr=0:if scr>hsc:hsc=scr:i:goto ngm:i:i

if pl

if ilf<=0:wait 500:inc scr,1000:inc liv,(liv<4):goto res:i

t=7+2*(mst>0)
if m-mtm>=21:s 101,s x(101)+msdr,36,t:mtm=m:i
if mst=0 and (msdr=0 or (msdr=1 and s x(101)>270) or (msdr=-1 and s x(101)<-20)):msdr=(rnd(1)*2)-1:s 101,-msdr*(500+rnd(256)),36,7:i
if isy(1)>=s y(101) and isy(1)<s y(101)+13 and isx(1)>=s x(101) and isx(1)<s x(101)+17:msdr=0:inc scr,(rnd(5)+1)*50:mst=m:isy(1)=-5:i
mst=(m-mst<120)*mst

ps=0
bd2=1:if m-sht>=15:bd2=0:sht=m:i
for x=1 to 11:for y=1 to 5
t2=0:if m-inv(x,y)>=100 and inv(x,y)>0:t2=-500:i
r=9:if inv(x,y)=0:r=1+iof:if y=1:r=5+iof:i:if y=2 or y=3:r=3+iof:i:i
s isn,inx,iny,r
if inv(x,y)=0 and isy(1)>=iny and isy(1)<iny+13 and isx(1)>=inx and isx(1)<inx+13:inv(x,y)=m:isy(1)=-5:dec ilf:r=10:if y=1:r=40:i:if y=2 or y=3:r=20:i:inc scr,r:s isn,inx,iny,9:i
if (inx<10 or inx>204) and inv(x,y)=0:ps=1:i
if (iny>=192):gov=1:i
bad=0
for c=y+1 to 5
if inv(x,c)=0:bad=1:i
next c
if bad=0 and bd2=0 and inv(x,y)=0 and rnd(800)=0:array insert at bottom isx(0):array insert at bottom isy(0):t=array count(isy(0)):isx(t)=inx+6:isy(t)=iny+8:i
next y:next x
if ps:idr=1-idr:inc ipoy,8:inc ipox,((idr*2)-1)*2:i

bad=1:if m-smt>=15:bad=0:i
for c=array count(isx(0)) to 1 step -1
line isx(c),isy(c),isx(c),isy(c)-4
if bad=0
inc isy(c),1*(c>2):smt=m
if c>2 and isy(c)>199 and isy(c)<209 and isx(c)>=s x(100) and isx(c)<=s x(100)+14:dec liv:pdt=m:s 100,s x(100),200,12:i
if isy(c)>isy(1)-4 and isy(c)+4<isy(1) and isx(c)>isx(1)-3 and isx(c)<isx(1)+3:paste image 10,isx(1)-4,isy(1)-4:isy(1)=-5:isy(c)=226:i
t2=3^(c<3):for f=1 to t2:if c=1 and isy(c)>-5:dec isy(c):i
if isy(c)>177 and isy(c)<193
for e=0 to 3
if isx(c)>29+e*48 and isx(c)<51+e*48
make b from image 1,20+e
t=(3+(isx(c)-s x(150+e))+(isy(c)-s y(150+e))*20)*4+1
if t<get b size(1):if b byte(1,t)>0
for x=0 to 7:for y=0 to 7
if b byte(2,(3+x+y*8)*4)>0 and x+isx(c)-s x(150+e)<24 and x+isx(c)-s x(150+e)>3
t=(3+(isx(c)-s x(150+e)+x-4)+(isy(c)-s y(150+e)+y-4)*20)*4
if t>11 and t<get b size(1):write b dword 1,t,0:i
i
next y:next x
isy(c)=226:if c<3:isy(c)=-5:i
i:i
delete image 20+e
make image from b 20+e,1
delete b 1
i
next e
i:next f
if isy(c)>225 and c>1:array delete element isx(0),c:array delete element isy(0),c:i
i
next c

if m-tm>=650-(55-ilf)*10:tm=m:iof=1-iof:inc ipox,((idr*2)-1)*2:i

if m-pt>=15:pt=m:mm=(rightkey()-leftkey()):t=s x(100)+mm:if t<10:t=10:i:if t>208:t=208:i:s 100,t,200,s image(100):i

if spacekey() and pr=0 and isy(1)<0:pr=1:isx(1)=s x(100)+7:isy(1)=199:i

i

if spacekey()=0:pr=0:i
ink 0x00FF00,0:line 10,225,216,225:ink rgb(255,255,255),0
opl=pl:pl=(m-pdt>2000):if opl<pl:s 100,30,200,8:DIM isx(2):DIM isy(2):isy(1)=-5:isy(2)=-5:i
sync:loop

D 8,6,Z4,1,1,0,O5,O5,O4,0,0,O5,1,1,0,0,O3,0,0,1,1,0,0,1,0,0,1,1,0,0,8,6,Z4,1,1,0,O5,O5,O4,0,0,O5,1,1,0,0,O3,0,0,1,1,0,0,O3,Z4,8,6,0,0,1,Z5,0,1,Z4,O4,0,1,1,0,O5,O4,0,O5,0,1,Z5,0,1,1,0,8,6,0,0,1,Z3,1,0,0,1,0,0,1,0,O5,1,1,0,O5,O3,0,0,O4,Z3,1,Z4,1,Z3
D 8,6,Z5,1,Z4,1,1,Z3,O3,0,0,1,1,0,1,0,0,O4,Z4,1,Z4,1,0,1,0,0,1,0,1,0,8,6,Z5,1,Z4,1,1,Z3,O3,0,0,1,1,0,1,0,0,O4,Z3,1,0,1,0,0,1,Z5,0,1,0,0
D 7,8,Z5,O3,Z3,O5,0,0,O5,1,0,1,1,0,1,1,0,O5,O4,0,0,O3,0,0,1,Z3,1,Z4,8,7,Z5,0,1,Z5,1,1,Z5,1,1,0,O5,O5,O5,O5,O5,O5,O4,8,6,Z5,1,0,1,Z5,0,1,Z3,1,1,Z5,Z5,0,1,0,0,1,0,1,0,0,1,Z5,1,0,1,8,4,1,Z3,0,0,1,0,0,O3,O4,O4,0,O3,0,0,1,0,1,0,0,1
D 16,10,Z4,O3,O3,Z3,O4,O3,0,0,O4,O4,0,O5,O4,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O4,O3,Z3,O3,O3,Z4,O5,Z5,O5,Z5,8,8,Z3,1,Z4,1,Z5,1,Z4,1,Z5,Z5,1,0,0,1,0,0,1,0,1,1,0,0,1,Z4,1,Z3,O5,0,0,1,1,0,O3

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, July 08, 2010

Rem ***** Main Source File *****
`Space invaders by jammysoft

`press 1 to start
`Arrowkeys to move and space to fire

`images
set window on
set display mode 224,260,16
set window size 448,520
SET WINDOW LAYOUT 0, 1, 4

set text size 5
sync on 
SYNC RATE 60
speed=600 : lin=1 :move=2 :drop=0 : ssx=50 :pltime=timer():pl1firetime=timer()  : score=0 :level=0 :invadershot1=0 : in2vadershot=0 :hiscore=2000
`background
create bitmap 1,224,260
box 0,0,224,260,RGB(0,50,155),rgb(0,0,0),rgb(0,50,155),rgb(0,0,0)
for temp=1 to 500
    dot rnd(224),rnd(200),rgb(55,55,55)
NEXT

for cir=1 to 150
ink RGB(128,150-cir,0),rgb(0,0,0)

circle 112,300,cir
ink RGB(cir/2,cir/2,0),rgb(0,0,0)
circle 112,299,cir

next cir
get image 13,0,0,224,260
ink rgb(255,255,255),rgb(0,0,0)
set current bitmap 0
cls

`draw to screen
score$="0000" :hiscore$="2000" :lives=3
y=1
repeat
read x
if x=0 then y=y+1
If x=98 then y=y+12
if y>110 then ink rgb(255,0,0),rgb(0,0,0)
if y>125 then ink RGB(0,180,0),rgb(0,0,0)
if y>140 then ink rgb(255,255,255),rgb(0,0,0)
if y>180 then ink RGB(0,180,0),rgb(0,0,0)
if y>218 then ink rgb(255,0,0),rgb(0,0,0)
if y>247 then ink rgb(255,255,255),rgb(0,0,0)
if x>0 and x<98 then dot x,y

until x=99
ink rgb(255,255,255),rgb(0,0,0)
`invaders
get image 1,1,1,13,9,1
get image 2,1,20,13,28,1
get image 3,1,39,13,47,1 
get image 4,1,58,13,66,1
get image 5,1,77,13,85,1
get image 6,1,96,13,104,1
`bonus ship
get image 7,1,115,17,122,1
`player
get image 8,1,133,16,141,1
`shots
get image 9,2,152,3,160,1
get image 10,1,171,4,178,1
`bunker
get image 11,1,188,27,209,1
`explosions
`shot
get image 12,1,219,8,229,1
`ship
get image 14,1,239,17,249,1

do
set current bitmap 1
cls
for bunker=1 to 4
paste image 11,(50*bunker)-25,200
get image 99+bunker,(50*bunker)-25,200,(50*bunker),226
next bunker
set current bitmap 0
SET WINDOW TITLE "For more games visit       www.weejammy.com"
`START SCREEN
GOSUB STARTSCREEN


play:
`draw sprites
` player
 gosub drawplayer
`bunkers
gosub drawBunkers
`invaders
gosub drawinvaders


`bonus sauser


`cls

time=timer()



`main

repeat 
`background  
paste image 13,0,0
`move invaders 
if timer()>time+speed

if lin=1 
if toggle=1 then toggle=-1 else toggle=1
for s=1 to 11 
    
if sprite exist(s)=1
sx=Sprite x(s) : sy=Sprite y(s): si=sprite image(s)
    sx=sx+Move
    if drop=1 then sy=sy+8 
    si=si+toggle
    sprite s,sx,sy,si
            if sx>bsx then bsx=sx
    if sx<ssx then ssx=sx
    endif
    next s

    lin=2
    
    endif
    if lin=2 and time+speed+(speed/5)<timer()
for s=12 to 22 
    if sprite exist(s)=1

sx=Sprite x(s) : sy=Sprite y(s): si=sprite image(s)
    sx=sx+Move
    if drop=1 then sy=sy+8
    si=si+toggle
    sprite s,sx,sy,si
            if sx>bsx then bsx=sx
    if sx<ssx then ssx=sx
    endif
    next s
    lin=3

    endif
       if lin=3 and time+speed+((speed/5)*2)<timer()
for s=23 to 33 
if sprite exist(s)=1
sx=Sprite x(s) : sy=Sprite y(s): si=sprite image(s)
    sx=sx+Move
    if drop=1 then sy=sy+8
    si=si+toggle
    sprite s,sx,sy,si
            if sx>bsx then bsx=sx
    if sx<ssx then ssx=sx
   endif
    next s
    lin=4

    endif
       if lin=4 and time+speed+((speed/5)*3)<timer()
for s=34 to 44 
if sprite exist(s)=1
sx=Sprite x(s) : sy=Sprite y(s): si=sprite image(s)
    sx=sx+Move
    if drop=1 then sy=sy+8
    si=si+toggle
    sprite s,sx,sy,si
   endif
          if sx>bsx then bsx=sx
    if sx<ssx then ssx=sx
    next s
     
    lin=5
    endif
    
       if lin=5 and time+speed+((speed/5)*4)<timer()
for s=45 to 55 
if sprite exist(s)=1
sx=Sprite x(s) : sy=Sprite y(s): si=sprite image(s)
    sx=sx+Move
    if drop=1 then sy=sy+8
    si=si+toggle
    sprite s,sx,sy,si
    endif
               if sx>bsx then bsx=sx
    if sx<ssx then ssx=sx
    next s
 
    lin=1 : drop=0
    time=timer()
    endif
    
   


endif



if lin=1
if bsx>210 then drop=1:move=-2 :bsx=50
if ssx<2 then drop=1:move=2 :ssx=50
endif
`sauser
if rnd(3000)=1 and sprite exist(56)=0 then
if rnd(2)=1
sprite 56,0,40,7 :sausx#=0 : sausdir#=0.75
else
sprite 56,260,40,7 :sausx#=260 : sausdir#=-0.75
endif


if sprite exist(56)=1 
if timer() >pltime+29 then  sausx#=sausx#+sausdir#
sprite 56,sausx#,40,7
if sausx#> 260 or sausx#<0 then delete sprite 56
endif
`invader shoot
if invadershot1=0
    if rnd(10000)<(playlevel+1)*100
        repeat
        inv=rnd(54)+1
        until sprite exist(inv)=1
        insx= sprite x(inv):insy=sprite y(inv)
        sprite 1001, insx+4,insy,10
        invadershot1=1
    endif
else
insy=sprite y(1001) :  insx=sprite x(1001)
if timer() >inshtime+30-playlevel
    sprite 1001, insx,insy+1,10
    mirror sprite 1001
    if insy>240 then delete sprite 1001: invadershot1=0
    inshtime=timer()
    endif
    
endif
if in2vadershot=0
    if rnd(10000)<(playlevel+1)*100
        repeat
        inv=rnd(54)+1
        until sprite exist(inv)=1
        insx= sprite x(inv):insy=sprite y(inv)
        sprite 1002, insx+4,insy,10
        in2vadershot=1
    endif
else
insy=sprite y(1002): insx=sprite x(1002)
if timer() >in2shtime+20-playlevel
    sprite 1002, insx,insy+1,10
    mirror sprite 1002
    if insy>240 then delete sprite 1002: in2vadershot=0
    in2shtime=timer()
    endif
    
endif
`invader shot hit



for  laser=1001 to 1002
    `hit bunkers
    invhitted=0
    
    if sprite exist (laser)=1
invhitted=sprite collision(laser,0)
if invhitted>99 and invhitted<104
    `demolish bunker
    shotx=sprite x(laser): shoty=sprite y(laser)
    set current bitmap 1
    if point (shotx,shoty)=46080 or point (shotx+1,shoty) or point (shotx-1,shoty)
        ink rgb(0,0,0),rgb(0,0,0)
        line shotx,shoty,shotx,shoty+6
       line shotx-1,shoty,shotx-1,shoty+8
        line shotx+1,shoty,shotx+1,shoty+6
        for temp=1 to 20+rnd(10)
            dot shotx+rnd(8)-4,shoty+rnd(8)
        NEXT temp
        delete sprite laser 
        if laser=1002 then in2vadershot=0
        if laser=1001 then invadershot1=0
        gosub DrawBunkers
        ink rgb(255,255,255),rgb(0,0,0)
    endif
    set current bitmap 0
ENDIF
`hitshot

if invhitted = 70
    delete sprite 70
    pl1fire=0
        if rnd(1)=0
delete sprite laser
        if laser=1002 then in2vadershot=0
        if laser=1001 then invadershot1=0
        endif
endif

`hit player
if invhitted=59
delete sprite laser
sprite 2001,sprite x(59),sprite y(59),14
        if laser=1002 then in2vadershot=0
        if laser=1001 then invadershot1=0
 if sprite exist(57)then       delete sprite 57
     if sprite exist(58)then    delete sprite 58
    if sprite exist(59)then     delete sprite 59
   
    pl1x=0 :playexpl=1
         lives=lives-1
        gosub drawplayer
       

endif


endif
next laser 
`check aliens have landed
for temp=1 to 55
    if sprite exist(temp)=1
    invay= sprite y(temp)
        if invay > maxinvy then maxinvy=invay
        if maxinvy>225 then lives=0
        
ENDIF
NEXT



`players
if keystate(57)=0 then letgo=0
if timer() >pltime+30
`player1
if KEYSTATE(30)=1 or keystate (203)=1 then pl1x=pl1x-1
if keystate(32)=1 or keystate (205)=1 then pl1x=pl1x+1
if pl1x<10 then Pl1x=10
if pl1x>200 then pl1x=200
if keystate(57)=1 and pl1fire=0 and letgo=0 and sprite exist(2000)=0 then pl1fire=1 :letgo=1

pltime=timer()
endif

sprite 59,pl1x,230,8
if pl1fire=1 
if sprite exist(70)=0
sprite 70,pl1x+7,230,9

else 
if timer()>pl1firetime
move sprite 70,2

if sprite y(70)<20 then delete sprite 70 : pl1fire=0
if sprite exist(70)=1
hitted=sprite collision(70,0)
`hit invader and sauser
if hitted<57 and hitted>0 
`score
if sprite image(hitted)<3 then score=score+30
if sprite image(hitted)=3 or sprite image(hitted)=4 then score=score+20
if sprite image(hitted)=5 or sprite Image(hitted)=6 then score=score+10
if sprite image(hitted)=7 
sausamount=(rnd(2)+1)*100
sausex=sprite x(hitted)
score=score+Sausamount
sausetimer=100
endif


sprite 2000,sprite x(hitted)+2,sprite y(hitted)+2,12

plexsz=1
size sprite 2000,plexsz,plexsz
if hitted<56 then invadersleft=invadersleft-1 :speed=speed-10 :pl1fire=0
delete sprite hitted :delete sprite 70 
 
endif
if sausetimer>0 
center text sausex,30,str$(sausamount) 
dec sausetimer
endif

`hit bunker
if hitted>99 and hitted<104  
`demolish bunker
shotx=sprite x(70): shoty=sprite y(70)-1
set current bitmap 1
if point (shotx,shoty)=46080


ink rgb(0,0,0),rgb(0,0,0)
line shotx,shoty-4,shotx,shoty+2
line shotx-1,shoty-4,shotx-1,shoty+2
line shotx+1,shoty-4,shotx+1,shoty+2
for temp=1 to 20+rnd(10)
   dot shotx+rnd(8)-4,shoty-rnd(8)
NEXT temp
delete sprite 70 : pl1fire=0
gosub DrawBunkers
ink rgb(255,255,255),rgb(0,0,0)
endif

set current bitmap 0
endif
endif


pl1firetime=timer()
`endif
endif
endif

endif
if sprite exist(2000)
inc plexsz
size sprite 2000,plexsz,plexsz
sprite 2000,sprite x(2000)+0.25,sprite y(2000)+0.5,12
if plexsz=12
delete sprite 2000
plexsz=0
 pl1fire=0
endif
endif
`new level
if invadersleft=0
gosub Drawinvaders
playlevel=playlevel+1
endif


text 8,1,"SCORE<1> HI-SCORE SCORE<2>"
if score=0 then score$="000"+str$(score)
if score<100 and score>0 then score$="00"+str$(score)
if score<1000 and score>100 then score$="0"+str$(score)
if score>1000 then score$=str$(score)
if score>hiscore then hiscore=score
hiscore$=str$(hiscore)
text 16,15,score$ : text 90,15,Hiscore$
line 0,245,224,245
text 8,245,str$(lives) : text 140,245,"CREDIT 99"
    sync


    
until lives=0
paste image 13,0,0
center text 100,50,"* GAME OVER *"

sync 
wait 1000
for deltemp=1 to 2000
    if sprite exist(deltemp)then delete sprite deltemp
NEXT

loop
STARTSCREEN:
cls
gosub drawplayer
starttime=timer()
repeat
`background  
paste image 13,0,0
text 8,1,"SCORE<1> HI-SCORE SCORE<2>"
if score=0 then score$="000"+str$(score)
if score<100 and score>0 then score$="00"+str$(score)
if score<1000 and score>100 then score$="0"+str$(score)
if score>1000 then score$=str$(score)
text 16,15,score$ : text 90,15,Hiscore$
text 8,245,str$(lives) : text 140,245,"CREDIT 99"
center text 112,40, "PLAY"
center text 112,60, "SPACE INVADERS"
center text 112,80, "by"
center text 112,100, "Jammy-Soft"
center text 112,150, "PUSH"
center text 112,175, "ONLY 1PLAYER BUTTON"


    sync

until keystate(2)=1
lives=3 : score=0: level=0 :in2vadershot=0: invadershot1=0 : lev=0
speed=600 : lin=1 :move=2 :drop=0 : ssx=50 :pltime=timer():pl1firetime=timer() 
return
drawPlayer:
if playexpl=1
for temp = 1 to 10
if sprite visible(2001)=1 then hide sprite 2001 else show sprite 2001
paste image 13,0,0
text 8,1,"SCORE<1> HI-SCORE SCORE<2>"
if score=0 then score$="000"+str$(score)
if score<100 and score>0 then score$="00"+str$(score)
if score<1000 and score>100 then score$="0"+str$(score)
if score>1000 then score$=str$(score)
text 16,15,score$ : text 90,15,Hiscore$
line 0,245,224,245
text 8,245,str$(lives) : text 140,245,"CREDIT 99"
sync
wait 100
NEXT temp
playexpl=0 :delete sprite 2001
endif
s=57
if lives>1
for play=1 to lives-1
sprite s,20*play,250,8 :inc s
next play
endif
`sprite s,0,225,8:inc s
return
DrawBunkers:
set current bitmap 1

for bunker=1 to 4

get image 99+bunker,(50*bunker)-25,200,(50*bunker),226,1
next bunker
set current bitmap 0
for bunker=1 to 4
    sprite 99+bunker,(50*bunker)-25,200,99+bunker
NEXT bunker
return

Drawinvaders:
q=9: invadersleft=55

`invaders

for i=1 to 55
    paste image 13,0,0

    q=q+16
    if 1<12 
    sprite i,q,120+lev,5
    endif
    
if i>11 and i<23 
if i=12 then q=25
    sprite i,q,105+lev,5
    endif
    
    if i>22 and i<34 
if i=23 then q=25
    sprite i,q,90+lev,3
    endif
    
    if i>33 and i<45 
if i=34 then q=25
    sprite i,q,75+lev,3
    endif
    
    if i>44 and i<56 
if i=45 then q=25
    sprite i,q,60+lev,1
    endif
    
sync
wait 20
NEXT
toggle=-1 : lin=1
if playlevel<4 then lev=lev+15 
speed=560



return


`invader 1
data 6,7,0,5,6,7,8,0,4,5,6,7,8,9,0,3,4,6,7,9,10,0,3,4,5,6,7,8,9,10,0,5,8,0,4,6,7,9,0,3,5,8,10,98
data 6,7,0,5,6,7,8,0,4,5,6,7,8,9,0,3,4,6,7,9,10,0,3,4,5,6,7,8,9,10,0,4,6,7,9,0,3,10,0,4,9,98
`invader 2
data 3,10,0,1,4,9,12,0,1,3,4,5,6,7,8,9,10,12,0,1,2,3,5,6,7,8,10,11,12,0,1,2,3,4,5,6,7,8,9,10,11,12,0,2,3,4,5,6,7,8,9,10,11,0,3,10,0,2,11,98
data 3,10,0,4,9,0,3,4,5,6,7,8,9,10,0,2,3,5,6,7,8,10,11,0,1,2,3,4,5,6,7,8,9,10,11,12,0,1,3,4,5,6,7,8,9,10,12,0,1,3,10,12,0,4,5,8,9,98
`invader 3
data 5,6,7,8,0,2,3,4,5,6,7,8,9,10,11,0,1,2,3,4,5,6,7,8,9,10,11,12,0,1,2,3,6,7,10,11,12,0,1,2,3,4,5,6,7,8,9,10,11,12,0,4,5,8,9,0,3,4,6,7,9,10,0,1,2,11,12,98
data 5,6,7,8,0,2,3,4,5,6,7,8,9,10,11,0,1,2,3,4,5,6,7,8,9,10,11,12,0,1,2,3,6,7,10,11,12,0,1,2,3,4,5,6,7,8,9,10,11,12,0,3,4,5,8,9,10,0,2,3,6,7,10,11,0,3,4,9,10,98
`bonus ship
data 6,7,8,9,10,11,0,4,5,6,7,8,9,10,11,12,13,0,3,4,5,6,7,8,9,10,11,12,13,14,0,2,3,5,6,8,9,11,12,14,15,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,0,3,4,5,8,9,12,13,14,0,4,13,98
`player
data 8,0,7,8,9,0,7,8,9,0,2,3,4,5,6,7,8,9,10,11,12,13,14,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,98
`shots
data 2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,98
data 2,0,2,0,3,0,2,0,1,0,2,0,2,98
`bunker
data 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,0,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,0,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,0,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,0,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,7,8,16,17,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,7,17,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,18,19,20,21,22,23,24,25,26,0,1,2,3,4,5,6,18,19,20,21,22,23,24,25,26,98
`explosions
`shot
data  1,4,7,0,2,4,6,0,3,5,0,1,2,6,7,0,3,5,0,2,4,6,0,1,4,7,98
`ship

data 0,7,9,0,8,9,0,2,4,6,8,9,10,12,14,0,1,2,4,6,7,8,10,11,13,14,0,2,4,5,6,8,9,10,11,12,13,14,15,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,98

`exit
data 99

Set Window On
Set Display Mode 320,240,32
Set Window Size 640,480
Sync On
Sync Rate 60
Set Image Colorkey 0,0,0

#constant scb Set Current Bitmap
#constant sp sprite
#constant gm Get Image
#constant pm Paste Image
#constant pt Paste sprite
#constant spd Set sprite Diffuse
#constant spi Set sprite Image
#constant G ink rgb(0,255,0),0
#constant W ink rgb(255,255,255),0
#constant R ink rgb(255,0,0),0
#constant ot ,500,500,
#constant fn function
#constant ed endfunction
#constant npx xp(nxp)
#constant t1 ,1,1,1,
#constant e endif
#constant nt next
#constant ks keystate(
#constant Gb gosub
#constant c bs(b)
#constant em in(x,y)

GLOBAL nxp

type bl
x
y
t
endtype

type enm
s
a
x
y
endtype

dim in(10,4) as enm
dim xp(15) as enm
dim bs(11) as bl

G
gI(15,8,1,0)
gI(30,8,12,1)
gI(20,16,11,0)
W
gI(24,8,2,1)
gI(24,8,4,1)
gI(24,8,6,1)
gI(13,8,8,0)
gI(32,7,9,1)
gI(8,8,15,0)
gI(6,8,16,0)
gI(3,8,20,0)
gI(3,8,21,0)

sp 9 ot 9
sp 20 ot 15
sp 21 ot 16
sp 1 ot 1
sp 5 ot 20

text 0,0,"Y"
gm 80,0,0,8,15,1
sp 8 ot 80
Rotate sp 8,180

Create Bitmap 1,320,38
scb 0
st = -10
cls

inic:
PY = 0
sp 10 ot 3
W
q = 11
qq = 4
ex = 330
p = -3
cs(1)

while PY = 0
    cls
    Gb dF
    
    if CN = 0
        inc st
        if st < 131 or st > 180
            if st < 131
                n = 10
            else
                n = 190
            e
            v2 = st - n
            text 144,50,left$("PLAY",st)
            if st > 180 and v2 < 280
                if Gr < 3
                    ink 0,0
                    box 168,50,176,65
                e
                W
                if Gr = 0
                    ps(8,176,64)
                e
                if Gr = 1
                    ps(8,ex,64)
                e
                if Gr = 2
                    text ex-8,50,"Y"
                e
                if v2 > 100
                    if gr < 3 
                        inc ex,p
                    e
                    spd 10,255,255,255
                    spi 10,6 + ex MOD 2
                    pt 10,ex,53
                    if ex < 179
                        p = 3
                        inc Gr
                    e
                    if ex > 340
                        p = -3
                        Gr = 2
                    e
                e
            e
            W
            text 100,75,left$("SPACE  INVADERS",v2)
            if v2 > 40
                dec v2,40
                text 76,115,"*SCORE ADVANCE TABLE*"
                pm 9,103,140
                pm 6,105,155
                pm 4,105,170
                spi 10,3
                ps(10,105,185)
                tt(120,136,left$("=? MYSTERY",v2),0)
                tt(120,151,left$("=30 POINTS",v2-10),0)
                tt(120,166,left$("=20 POINTS",v2-20),0)
                tt(120,181,left$("=10 POINTS",v2-30),0)
            e
            if st = 130 or st = 500
                nv = 3
                PY = 2
                if st = 500
                    st = 0
                e
            e
        else
            if st < 180
                tt(160,100,"INSERT COIN",1)
                v2 = st - 140
                tt(96,130,left$("<1 OR 2 PLAYERS>",v2),0)
            e
            if st = 180
                cs(1)
            e
        e
    else
        text 144,75,"PUSH"
        if CN = 1
            text 80,100,"ONLY 1PLAYER  BUTTON"
        else
            text 80,100,"1 OR 2PLAYERS BUTTON"
        e
        if ks 57) 
            cs(1)
            dec CN
            PY = 1
            for n = 1 to 80
                sync
                Wait 50
                cls
                Gb dF
                tt(160,100,"PLAY PLAYER<1>",1)
                ink 0,0
                z = n MOD 2
                box 64,12,64+z*32,16+z*15
            nt
        e
    e
    wait 100
    if ks 46) && CN < 100 
        inc CN 
        if CN = 1 
            cs(0)
        e
    e
    if PY = 0 
        sync
    e
endwhile

rt = timer() + 35000
rx = 16
rs = 0
rf = 1
TL = 1
V = 3
SC = 0
nv = 0
MV = 3
Gb mLv
cs(0)

for n = 1 to 66
    cls
    Gb dF
    Gb dB
    dec q
    if q < 0 
        q = 11
        dec qq
    e
    for x = 0 to 10
        for y = 0 to 4
            if (y > qq) or (y = qq && x > q) 
                spi 10,6 - y - y MOD 2 
                ps(10,55+20*x,55+16*y)
            e
        nt
    nt
    sync
    Wait 20
nt

do
    Gb dA
    if nInm = 0 
        Gb mLv
    e
    
    T = timer()
    randomize T
    
    if AP = 20
        if PY = 1
            if ks 205) && px < 290 
                inc px,2
            e
            if ks 203) && px > 15 
                dec px,2
            e
            if ks 57) && T > a && bs(11).y < 20
                bs(11).x = px+7
                bs(11).y = 204
                a = T + 500
            e
        else
            if nhx > 14
                if px < nhx
                    inc px,2
                e
                if px > nhx
                    dec px,2
                e
                if px = nhx
                    for n = 1 to 4
                        if (px > n*68 - 26) && (px < n*68)
                            uk = 1
                        e
                    nt
                    if uk = 1
                        uk = 0
                        nhx = 13
                    else
                        nhx = - Rnd(50)
                    e
                e
            else
                inc nhx
                if nhx > 13
                    nhx = mx + rnd(xx - mx)
                    dec nhx, 1 - (nhx MOD 2)
                e
            e
            if T > a && bs(11).y < 20 && Rnd(10) = 8
                bs(11).x = px+7
                bs(11).y = 204
                a = T + 500
            e
        e
        pt 1,px,210
        Gb ctm
    else
        inc AP
        px = 15
    e
    
    if T > rt 
        rs = 1
        rt = T + 60000
    e
    
    for En = 1 to nv*2
        ts = 0
        t = 0
        Repeat
            inc nx,-MV/abs(MV)
            inc ts
            if nx > 10 
                nx = 0
                dec ny
            e
            if nx < 0 
                nx = 10
                dec ny
            e
            if ny < 0 
                ny = 4
            e
            ex = in(nx,ny).x
            ey = in(nx,ny).y
            if ny = 4 && ((nx = 0 && MV < 0) or (nx = 10 && MV > 0))
                if DSC = 1
                    DSC = 0
                    MV = -MV
                    nx = (MV > 0)*10
                e
                if ((mx < 15 && MV < 0) or (xx > 293 && MV > 0)) 
                    DSC = 1
                e
            e
            if in(nx,ny).s > 0 
                t = 1
            e
            if ts = 67 
                t = 2
            e
        until t > 0
        
        if t = 1
            inc in(nx,ny).a
            inc nInm
            if bs(nx).y = 0
                if rnd(100) <= nv
                    for n = 0 to 4
                        if in(nx,n).s > 0 
                            xy = n
                        e
                    nt
                    bs(nx).x = ex+6
                    bs(nx).y = in(nx,xy).y+8
                    bs(nx).t = rnd(4)+1
                e
            e
            if DSC = 1 
                inc in(nx,ny).y,8
            else
                inc in(nx,ny).x,MV
            e
        e
    nt
    
    if ks 46) and PY = 2
        inc CN
        goto inic
    e
    
    wait 40
    sync
loop

dF:
tt(50,0,"SCORE<1>  HI-SCORE  SCORE<2>",0)
tt(80,16,s(SC,4),1)
tt(160,16,s(HS,4),1)
if PY <> 1
    tt(220,16,"0000",0)
e
tt(225,224,"CREDIT "+s(CN,2),0)
if V > 0
    tt(10,224,str$(V),0)
    for u = 2 to V
        pm 1,u*20-10,227
    nt
e
return

db:
Copy Bitmap 1,0,0,320,38,0,0,185,320,223

for b = 0 to 11
    scb 0
    wd = (b = 11) * -2 + 1
    x = c.x
    y = c.y
    t = c.t
    if y < 35 && y > 0
        axp(x-4,35,1)
        c.y = 0
    e
    if x > rx && x < rx+16 && y < 43 && y > 0 && rs = 1
        c.y = 0
        rs = -1
        spi 9,10
        if PY = 1
            inc SC,100
        e
    e
    if b < 11 && abs(x - bs(11).x) < 3 && abs(c.y - bs(11).y) < 4
        c.y = 0
        bs(11).y = 0
        axp(x-3,y,2)
        axp(x-4,y,1)
    e
    y = c.y
    if y > 140 
        G 
    else
        W
    e
    if y > 0 
        d = 1
        if b = 11
            d = 0
        e
        if t > 0 && t < 3
            spi 5,20
            Rotate sp 5,180*(t-1)
            c.t = 3 - t
        e
        if t > 2 && t < 5
            spi 5,21
            Rotate sp 5,0
            if t = 4 
                Mirror sp 5
            e
            c.t = 7 - t
        e
        if d = 0 
            line x,y,x,y+6
        else
            ps(5,x+sp Angle(5)/90-1,y+sp Angle(5)/22.5 - 7)
            if t = 5 
                Mirror sp 5
            e
        e
    e
    if c.y > 0 
        inc c.y,4*wd-(wd = -1)
    e
    
    x = c.x
    y = c.y
    scb 1
    yr = y - 185
    if yr > 36 
        axp(x-3,214,2) 
        c.y = 0
        ps(20,x-4,30)
        y = 0
    e
    if y > 180
        cl = 0
        yf = yr - 6*wd
        for n = yr to yf step -wd
            if point(x,n) > 0 
                cl = n + 1
            e
        nt n
        if cl > 0
            axp(x-4,y-yr+cl-5,1)
            if b = 11
                ps(20,x-4,cl-5)
            else
                Rotate sp 21,180
                ps(21,x+3,cl+6) 
            e
            cl = 0
            c.y = 0
        e
    e
nt
scb 1
ink 0,0
for ex = 0 to 10
    for ey = 0 to 4
        xr = in(ex,ey).x
        yr = in(ex,ey).y - 185
        box xr,yr,xr+12,yr+8
    nt
nt
scb 0
if SC >= 1500 * TL 
    inc V 
    inc TL
e
return

ctm:
for b = 0 to 11
    if c.x > px && c.x < px+15 && c.y > 210 && c.y < 220 or xy > 200
        c.y = 0
        for h = 1 to 60
            Gb dA
            spi 1,12 + (h/4) MOD 2
            pt 1,px+1,210
            if h < 60
                sync
                Wait 40
            e
        nt
        dec V
        if xy > 200 
            V = 0
        e
        spi 1,1
        AP = 0
        if V = 0
            st = 0
            if SC > HS 
                HS = SC
            e
            for n = 1 to 15
                tt(124,35,left$("GAME OVER",n),0)
                wait 100
                sync
                Gb dA
            nt
            xy = 0
            Wait 1500
            Goto inic
        e
        if PY = 2
            xy = 0
            Goto inic
        e
    e
nt
return

cte:
xx = 0
mx = 50
xy = 0
nInm = 0
for y = 0 to 4
    for x = 0 to 10
        nI = em.s
        ex = em.x
        ey = em.y
        if nI < 0 
            if nI > -10 
                pm 8,ex-1,ey
            e
            if nI > -30 
                dec em.s
            e
        e
        if nI > 0
            if bs(11).x > ex && bs(11).x < ex+12 && bs(11).y > ey-5 && bs(11).y < ey+8
                if PY = 1
                    inc SC,(6-y - y MOD 2) * 5
                e
                em.s = -1
                pm 8,ex-1,ey
                bs(11).y = 0
            else
                inc nInm
                spi 10,6 - y - y MOD 2 + em.a MOD 2
                ps(10,ex,ey)
                if ex > xx 
                    xx = ex
                e
                if ex < mx 
                    mx = ex
                e
                if ey > xy
                    xy = ey
                e
            e
        e
    nt
nt

if rs <> 0
    if rs = 1 
        inc rx,rf
    e
    if rs > -20 
        ps(9,rx,35)
    e
    if rs = -20 or rx < 1 or rx > 303
        if rs = -20 
            axp(rx+8,32,4)
        e
        spi 9,9 
        rx = 304 * (rf = 1)
        rf = -rf
        rs = 0
    e
    if rs < 0 
        dec rs
    e
e
return

cx:
for p = 0 to 15
    d = 0
    x = xp(p).x
    y = xp(p).y
    t = xp(p).s
    if t > 0 && t < 11 
        ps(20,x,y) 
        d = 1
    e
    if t > 20 && t < 31 
        Rotate sp 21,xp(p).a 
        ps(21,x,y) 
        d = 1
    e
    if t > 40 && t < 61
        tt(x,y,"100",1)
        d = 1
    e
    if d > 0 
        dec xp(p).s
    e
nt
return

mLv:
cs(0)
inc nv
px = 15
nx = 11
ny = 4
for y = 0 to 4
    for x = 0 to 10
        em.s = 1
        em.a = 0
        em.x = 55+20*x
        em.y = 55+16*y
    nt
nt

scb 1
for n = 1 to 4
    pm 11,n*68 - 20,0
nt
G
line 0,37,320,37
scb 0

for b = 0 to 11
    c.y = 0
nt
return

dA:
cls
Gb df
Gb db
Gb cte
Gb cx
return

fn gI(tx,ty,n,d)
    for y = 0 to ty-1
        read v
        for x = 0 to tx-1
            read v2
            if v = 1 
                line x,y,x+v2,y
            e
            v = 1-v
            inc x,v2-1
        nt
    nt
    if d = 1
        gm n,0,0,tx/2,ty,1
        gm n+1,tx/2,0,tx,ty,1
    else
        gm n,0,0,tx,ty,1
    e
    cls
ed

fn s(n,l)
    v$ = str$(n)
    while len(v$) < l
        v$ = "0"+v$
    endwhile
ed v$

fn ps(n,x,y)
    if y < 35 
        spd n,0,0,0
    e
    if y > 34 && y < 51 
        spd n,255,0,0
    e
    if y > 50 && y < 175 
        spd n,255,255,255
    e
    if y > 174 
        spd n,0,255,0
    e
    pt n,x,y
ed

fn tt(x,y,t$,t)
    if y < 25 or (y > 50 && y < 175) or y > 222 
        W
    e
    if y > 25 && y < 51 
        R
    e
    if y > 174 && y < 222 
        G
    e
    if t = 0 
        text x,y,t$ 
    else 
        center text x,y,t$
    e
ed

fn axp(x,y,t)
    npx.x = x
    npx.y = y
    if t = 1
        npx.s = 10
    else
        npx.s = 30
        npx.a = (t-2)*180
    e
    if t = 4 
        npx.s = 60
    e
    inc nxp 
    if nxp > 15 
        nxp = 0
    e
ed

fn cs(t)
    ink 0,0
    gm 90,0,0,320,240,1
    for q = 1 to 320 step 16
        sync
        cls
        pm 90,0,0
        if t = 1
            box 0,0,q,240
        else
            box 0,30,q,220
        e
    nt q
    Delete Image 90
ed

data 0,7,1,7,0,6,3,6,0,6,3,6,0,1,13,1,1,15,1,15,1,15,1,15,0,5,1,9,1,5,1,5,1,2,0,2,1,4,1,2,1,2,1,4,1,11,0,4,1,4,1,6,1,4,1,5,1,2,0,2,1,9,1,7,1,4,1,3,1,0,5,1,1,2,6,1,3,2,2,1,6,1,1
data 2,8,2,1,4,7,5,0,2,11,4,11,2,1,30,0,4,12,4,0,3,14,3,0,2,16,2,0,1,18,1,1,20,1,20,1,20,1,20,1,20,1,20,1,20,1,20,1,7,6,7,1,6,8,6,1,5,10,5,1,5,10,5,0,4,4,8,4,4,0,1,10,2,10,1,1,24
data 1,3,2,2,2,6,2,2,2,3,1,24,0,2,3,2,3,4,3,2,3,2,0,1,2,2,2,2,2,2,2,2,2,2,2,1,0,2,2,4,2,2,2,8,2,0,2,1,6,1,4,1,6,1,2,0,3,1,4,1,3,1,2,1,4,1,2,1,0,2,8,2,1,1,8,1,1,0,1,2,1,4,1,2,1,3
data 1,4,1,3,1,24 t1 8,1,1,2,8,2 t1 1,6 t1 3,1,4,1,3,0,3,2,2,2,5,1,6,1,2,0,5,2,10,2,5,0,4,4,8,4,4,0,3,6,6,6,3,0,2,2,1,2,1,2,4,2,1,2,1,2,2,0,2,8,4,8,2,0,4,1,2,1,7,1,1,2,1,1,3,0,3
data 1,1,2,1,1,5,1,6,1,2,0,2 t1 2 t1 5,1,4,1,3,0,4,1,3,1,4,0,1,1,3 t1 3,1,1,0,2,1,7,1,2,0,3,1,5,1,3,1,2,9,2,0,3,1,5,1,3,0,2,1,2 t1 2,1,2,0,1,1,2,1,3,1,2,1,1,0,5,6,7,1,3,1,3 t1 3
data 0,3,10,8,1,2,2,4,1,1,0,2,12,2,1,3,3,2,2,5,0,1,2,1,2,1,2,1,2,1,2,4,3,4,3,2,1,1,16,1,1,2,3,1,1,2,3,2,0,2,3,2,2,2,3,6,1,5,2,4,0,3,1,8,1,5,1,3,1,2,1,4 t1 1,3,1,2,1,0,2,1,3,1
data 1,0,1,6,1,1,8,1,8,0,1,6,1,0,2,1,2,1,2,1,1,2,1,3,1,0,2,1,3,1,1,3,1,1,0,2,2,1,1,0,1,4 t1 1,3,1,0,1,5 t1 3,1,1,6,0 t1 0 t1 1,3,0 t1 0 t1 0 t1 0 t1 0 t1 0 t1 0 t1 0,2,1,0 t1 0 t1 1,1,2,0 t1 0 t1 0

dim s(56,9)
sync on
sync rate 99
set display mode 448,480,32
color backdrop 0
j=0
e=58
hi=0
g$="24 60 126 219 255 36 90 165 -1 24 60 126 219 255 90 129 66 -1 260 136 508 886 2047 1533 1285 216 -1 260 1161 1533 1911 2047 1022 260 514 -1 240 2046 4095 3687 4095 924 1638 780 -1 240 2046 4095 3687 4095 408 876 3075 -1 64 224 224 4094 8191 8191 8191 -1 262128 524280 1048572 2097150 4194303 4194303 4194303 4194303 4194303 4194303 4194303 4194303 4178047 4161599 4128799 4128799 -1 2016 8184 16380 28086 65535 14748 4104 -1 272 2210 1028 520 6147 520 1188 2322 -1 4 2 1 2 4 2 1 -1 1 2 4 2 1 2 4 -1 4 14 4 4 4 4 4 -1 4 4 4 4 4 14 4 -1 4 4 14 4 4 4 4 -1 4 4 4 4 14 4 4 -1 145 68 126 255 207 102 36 137 -1 32 1024 672 36 1728 2769 5116 22526 -1 8200 38977 66312 16448 36050 74628 4088 85996 -1 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 -1 3 3 3 3 3 3 3 3 -1 14 17 25 21 19 17 14 -1 4 6 4 4 4 4 14 -1 14 17 16 12 2 1 31 -1 31 16 8 12 16 17 14 -1 8 12 10 9 31 8 8 -1 31 1 15 16 16 17 14 -1 28 2 1 15 17 17 14 -1 31 16 8 4 2 2 2 -1 14 17 17 14 17 17 14 -1 14 17 17 30 16 8 7 -1 4 10 17 17 31 17 17 -1 15 17 17 15 17 17 15 -1 14 17 1 1 1 17 14 -1 15 17 17 17 17 17 15 -1 31 1 1 15 1 1 31 -1 15 17 17 15 1 1 1 -1 17 17 17 31 17 17 17 -1 14 4 4 4 4 4 14 -1 1 1 1 1 1 1 31 -1 17 27 21 21 17 17 17 -1 17 17 19 21 25 17 17 -1 14 17 17 17 17 17 14 -1 15 17 17 15 1 1 1 -1 15 17 17 15 5 9 17 -1 14 17 1 14 16 17 14 -1 31 4 4 4 4 4 4 -1 17 17 17 17 17 10 4 -1 17 17 10 4 4 4 4 -1 4 4 4 4 10 17 17 -1 0 0 0 31 0 0 0 0 -1 8 4 2 1 2 4 8 -1 2 4 8 16 8 4 2 -1 14 17 8 4 4 0 4 -1 4 21 14 4 14 21 4 -1 0 0 31 0 31 -1 2097151 2097151 -1 34900 17416 3301 39920 12592 6628 19649 4388 -1 "
g=len(g$)
dim b$(g)
dim d(g)
c=0
for i = 0 to g
	w$=mid$(g$,i)
	if w$<>" "
h$=h$+w$
	endif
	if mid$(g$,i)=" "
			b$(ps)=h$
d(ps)=val(b$(ps))
		ps = ps + 1
h$=""
	endif
next i
for t=1 to e
	cls
	z=0
	while z<31
	f=d(c)
	inc c
	if f=-1
		get image t,0,0,32,32,1
		z=32
	endif
	c#=2147483648
	for n=0 to 31
		if f=>c#
			if t=58 or t=9
				dot 31-n,z,rgb(255,0,0)
			endif
			if t=8 or t=7 or t=57
				dot 31-n,z,rgb(0,255,0)
			else
				if t<>58 and t<>9
					dot 31-n,z
				endif
			endif
			f=f-c#
		endif
		c#=c#/2
	next n
	inc z
	endwhile
next
st:
for a=1 to 204
if sprite exist(a)=1
	delete sprite a
endif
next
gosub me
gosub su
do
cls
if pi=2
	ps2$=str$(ps2)
	if len(ps2$)=2 then ps2$="00"+ps2$
	if len(ps2$)=3 then ps2$="0"+ps2$
	if st2=0 and pl=1
		inc st12
		inc stc2
	endif
	if stc2>250 and sts2=1 and pl=1
		st2=1
		stc2=0
		sts2=1
		stl2=0
		stt=1
	endif
	for q=1 to 4
		if st2=0 and pl=1
			if st12=4
				st12=0
				inc sts2
				if sts2=2 then sts2=0
			endif
		endif
		if len(ps2$)=>q
			sprite 116+q,338+((q-1)*16),32,22+val(mid$(ps2$,q))
			size sprite 116+q,64,64
			else
			sprite 116+q,338+((q-1)*16),32,22
			size sprite 116+q,64,64
		endif
		if sts2=0
			hide sprite 116+q
		else
			show sprite 116+q
		endif
	next
	else
	for q=1 to 4
		if sprite exist(116+q)
		hide sprite 116+q
		endif
	next
endif
ps$=str$(ps)
if len(ps$)=2 then ps$="00"+ps$
if len(ps$)=3 then ps$="0"+ps$
if st=0 and pl=0
	inc st1
	inc stc
endif
if stc>250 and sts=1 and pl=0
	st=1
	stc=0
	sts=1
	stl=0
	stt=1
endif
for q=1 to 4
	if st=0 and pl=0
		if st1=5
			st1=0
			inc sts
			if sts=2 then sts=0
		endif
	endif
	if len(ps$)=>q
		sprite 108+q,50+((q-1)*16),32,22+val(mid$(ps$,q))
		size sprite 108+q,64,64
		else
		sprite 108+q,50+((q-1)*16),32,22
		size sprite 108+q,64,64
	endif
	if sts=0
		hide sprite 108+q
	else
		show sprite 108+q
	endif
next
inc sd
if sd=2500
	sd=0
	sc=1
	sa=rnd(1)
	if sa=0
		sx=-128
	else
		sx=480
	endif
endif
if pi=2
	if ps2=>1500 and gy=0
		gy=1
		inc l
	endif
	if l=0 and l2=0
		j1=0
		if ps>hi
			hi=ps
		endif
		if ps2>hi
			hi=ps2
		endif
		gosub st
	endif
	else
	if ps=>1500 and gt=0
		gt=1
		inc l
	endif
	if l=0
    jl=0
		if ps>hi
			hi=ps
		endif
				gosub st
	endif
endif
cls
gosub cr
if sc=1
	if sa=0
		inc sx
	else
		dec sx
	endif
	paste sprite 202,sx,64
	if sx<-128 or sx>480
		sc=0
	endif
endif
if ds>0 and df=0
    ds$=str$(ds)
    for q=1 to len(ds$)
        sprite 90+q,cx+((q-1)*16),64,22+val(mid$(ds$,q))
        size sprite 90+q,64,64
    next
    inc dsc
    if dsc=>50
        dsc=0
        for q=1 to len(ds$)
            delete sprite 90+q
        next
        ds=0
    endif
endif
for t=1 to 28
	if da(t)>0
		sprite 156+t,(t)*16,0,da(t)
		size sprite 156+t,64,64
	endif
next
if pl=0
	for t=1 to 4
		paste image t+80,-32+(t*96),368
	next
else
	for t=1 to 4
		paste image t+84,-32+(t*96),368
	next
endif
if j=0
sprite 201,600,0,7 
size sprite 201,64,64
paste sprite 201,x,416
endif
if controlkey()=0
	re=0
endif
if j=1
	inc a1
	inc a3
	if a3>10
		a3=0
		inc a2
		if a2=2 then a2=0
		sprite 201,x,414,18+a2
		if a1>150
			sprite 201,x,414,7
			j=0
			a1=0
			if pl=0 and l>0 then dec l
			if pl=1 and l2>0 then dec l2					
			if pi=2
				gosub save
			endif
		endif
	endif
	else
	if controlkey()=1 and k=0 and re=0 and df=0
		re=1
		k=1
		a=x+12
		u=392
	endif
	x=x+(rightkey()-leftkey())
	if x<36 then x=36
	if x>392 then x=392
endif
s=0
if j=0 and stt=1
	redo:
	inc n
	inc w
	if w=>12
		w=1
		inc rw
	endif
	rw(w,rw)=s(n,0)
	if n=56
		n=1
		g=0
		rw=1
		if h<>d then g=1
		d=h
	endif
	if s(n,0)=1
		goto redo
	endif
	inc s(n,4)
	if s(n,4)=s(n,3)+2 then s(n,4)=s(n,3)
	if s(n,1)=>392
		h=-1
	endif
	if s(n,1)=<36
		h=1
	endif
	if g=1 then inc s(n,2),16
	if s(n,0)=0
		inc s(n,1),d*v
		sprite n+1,0,0,s(n,4)
		size sprite n+1,64,64
		hide sprite n+1
	endif
endif
for q=1 to 55
	if sprite exist(q+1)=1
		paste sprite q+1,s(q,1),s(q,2)
		if s(q,2)>336
			for t=1 to 4
				if s(q,1)>-32+(t*96)
					if s(q,1)<32+(t*96)
						inc dr
						if dr=8
							dr=0
							b1=s(q,1)
							SET IMAGE COLORKEY 255,255,255
							gosub gb
							SET IMAGE COLORKEY 0,0,0
						endif
					endif
				endif
			next
		endif
		if pl=0
			if s(q,2)>400
				l=0
				j=1
			endif
		else
			if s(q,2)>400
				l2=0
				j=1
			endif
		endif
	endif
next
if pl=0
	for q=1 to l-1
		sprite 80+q,52+(q*32),426,7
		size sprite 80+q,64,64
		hide sprite 80+q
		paste sprite 80+q,52+(q*32),464
	next
	else
	for q=1 to l2-1
		sprite 80+q,52+(q*32),426,7
		size sprite 80+q,64,64
		hide sprite 80+q
		paste sprite 80+q,52+(q*32),464
	next
endif
for q=5 to 0 step -1 
	if rw(w,q)=0
		rp=q
	endif
next
if rnd(100)=<jl*2
	go=0
	for p=1 to 3
		if b(p,1)>0
			inc go
		endif
	next
	if go<3
		bb=1
	endif
endif
if j=0 and stt=1
	if b(b,2)=0 or bb=1
		bb=0
		if rw=rp
			if s(n,1)+16>x and s(n,1)<x+64
				b=rnd(2)+1
				while b(b,1)>0
					b=rnd(2)+1
				endwhile
				b(b,0)=s(n,1)+5
				b(b,1)=s(n,2)+16
				b(b,2)=n
				else
				if rnd(11)=1
					b=rnd(2)+1
					while b(b,1)>0
						b=rnd(2)+1
					endwhile
					b(b,0)=s(n,1)+6
					b(b,1)=s(n,2)+16
					b(b,2)=n
				endif
			endif
		endif
	endif
endif
if a5>0
	inc a7
	paste image 17,a5,a6,1
	if a7>10
		a5=0
		a7=0
	endif
endif
for p=1 to 3
	if b(p,1)>0
		inc b(p,1),ceil(p/2.0)
		inc c2
		if c2=8
			c2=0
			inc c1
			if c1=2
				c1=0
			endif
		endif
		sprite 56+p,b(p,0),b(p,1),9+c1+(p*2)
		size sprite 56+p,64,64
		if b(p,1)>480
			b(p,0)=0
			b(p,1)=0
			b(p,2)=0
		endif
		if b(p,1)>0
			o=point(b(p,0)+2,b(p,1)+16)
			if o<>0
				if b(p,1)=>400 and b(p,1)<416
					j=1
					delete sprite p+56
				else
					a5=b(p,0)
					a6=b(p,1)+12
					b1=b(p,0)
					b2=b(p,1)
					SET IMAGE COLORKEY 255,255,255
					paste image 17,a5-2,a6,1
					paste image 17,a5+2,a6,1
					paste image 17,a5,a6,1
					gosub gb
					SET IMAGE COLORKEY 0,0,0
					delete sprite p+56
				endif
				b(p,1)=0
				b(p,0)=0
				b(p,2)=0
			endif
		endif
		if b(p,0)<a+1
			if b(p,0)+4>a-1
				if b(p,1)<u
					if b(p,1)+16>u
						delete sprite p+56
						a5=b(p,0)
						a6=b(p,1)
						b(p,2)=0
						b(p,1)=0
						b(p,0)=0
						k=0
						a=0
						u=0
						a4=1
					endif
				endif
			endif
		endif
	endif
next
if df=1
	inc dc
	if dc=20
		dc=0
		df=0
		delete sprite 203
	endif
endif
if k=1
	inc c4
	if c4=4
		c4=0
		inc c3
		if c3=2
			c3=0
		endif
	endif
	paste image 20+c3,a,u,1
	for t=1 to 6
	o=point(a+1,u-t)
	if o<>0 
		if sc=1
			if a>sx
				if a<sx+32
					if u>64
						if u<96
							sprite 203,sx,64,58
							size sprite 203,64,64
							ds=rnd(1)
							if ds=0
								ds1=50
								else
								ds1=150
							endif
							ds=rnd(1)+1
							ds=ds1
							if pl=0
								inc ps,ds
							endif
							if pl=1
								inc ps2,ds 
							endif
							df=1
							sc=0
							k=0
							a=0
							cx=sx
							sx=0
							u=0
						endif
					endif
				endif
			endif
		endif
		for q=1 to 55
			if sprite exist(q+1)=1
				if a>s(q,1)-2
					if a<s(q,1)+32
						if u>s(q,2)
							if u<s(q,2)+32
								s(q,0)=1
								delete sprite q+1
								sprite 203,s(q,1),s(q,2),10
								size sprite 203,64,64
								df=1
								if pl=0
									inc ps,s(q,5)
								endif
								if pl=1
									inc ps2,s(q,5)
								endif
								inc m
								if m=55
									m1=1
								endif
								k=0
								u=0
							endif
						endif
					endif
				endif
			endif
		next
		for t=1 to 4
			if a>s(q,1)-35+(t*96)
				if a<32+(t*96)
					b1=a
					b2=u
					SET IMAGE COLORKEY 255,255,255
					paste image 17,a-2,u-4,1
					paste image 17,a+2,u-4,1
					paste image 17,a,u-4,1
					paste image 17,a,u-8,1
					gosub gb
					SET IMAGE COLORKEY 0,0,0
				endif
			endif
		next
		k=0
		u=0
		a=0
	endif
	next
	dec u,4
	if u<=64
		a5=a
		a6=u
		k=0
	endif
endif
if m1=1
	m1=0
	inc jl
	gosub su
endif
sync
loop
gb:
if pl=0
	if b1<160
		get image 81,64,368,128,400,1
	endif
	if b1=>160 and b(p,0)<224
		get image 82,160,368,224,400,1
	endif
	if b1=>256 and b(p,0)<320
		get image 83,256,368,320,400,1
	endif
	if b1=>328
		get image 84,352,368,416,400,1
	endif
	else
	if b1<160
		get image 85,64,368,128,400,1
	endif
	if b1=>160 and b(p,0)<224
		get image 86,160,368,224,400,1
	endif
	if b1=>256 and b(p,0)<320
		get image 87,256,368,320,400,1
	endif
	if b1=>328
		get image 88,352,368,416,400,1
	endif
endif
return
save:
gosub cl
stt=0
st=0
st2=0
if pl=0
	for t=0 to 4
		for q=1 to 11
			rw1(q,t)=rw(q,t)
		next
	next
	else
	for t=0 to 4
		for q=1 to 11
			rw2(q,t)=rw(q,t)
		next
	next
endif
for t=1 to 55
	pla(pl,t)=s(t,0)
	pl1(pl,t)=s(t,1)
	pl2(pl,t)=s(t,2)
next
pla(pl,56)=jl
pla(pl,57)=n
pla(pl,58)=w
pla(pl,59)=rw
pla(pl,60)=g
pla(pl,61)=d
pla(pl,62)=h
pla(pl,63)=m
inc pl
if pl=2 then pl=0
if l=0 then pl=1
if l2=0 then pl=0
for t=1 to 55
	s(t,0)=pla(pl,t)
	s(t,1)=pl1(pl,t)
	s(t,2)=pl2(pl,t)
next
jl=pla(pl,56)
n=pla(pl,57)
w=pla(pl,58)
rw=pla(pl,59)
g=pla(pl,60)
d=pla(pl,61)
h=pla(pl,62)
m=pla(pl,63)
if pl=0
	for t=0 to 4
		for q=1 to 11
			rw(q,t)=rw1(q,t)
		next
	next
	else
	for t=0 to 4
		for q=1 to 11
			rw(q,t)=rw2(q,t)
		next
	next
endif
j=0
return
su:
cls
s=0
sprite 204,0,0,8 
size sprite 204,64,64
hide sprite 204
paste sprite 204,0,0
for q=1 to pi*4
	get image q+80,0,0,44,44,1
next
if jl=11 then jl=1
for t=4 to 0 step -1
	if t=0
		i=1
		va=30
	endif
	if t>0
		i=3
		va=20
	endif
	if t>2
		i=5
		va=10
	endif
	for n=1 to 11 
		rw(n,0)=1
		if fst=0
			rw2(n,0)=1
		endif
		if sprite exist(56+n)=1
			delete sprite 56+n
		endif
		inc s
		s(s,0)=0
		s(s,1)=32+(n*32)
		s(s,2)=(jl*16)+112+(t*32)
		s(s,3)=i
		s(s,4)=i
		s(s,5)=va
		pl1(1,s)=(n*32)
		pl2(1,s)=s(s,2)
	next
next
fst=1
sprite 202,sx,0,9
size sprite 202,64,64 
hide sprite 202
d=1
h=1
pla(1,59)=1
pla(1,61)=1
pla(1,62)=1
rw=1
m=0
n=0
g=0
v=2
j=0
x=36
u=0
sc=0
k=0
s=0
dim b(10,9)
return
cl:
for q=2 to 151
	if sprite exist(q)=1 then delete sprite q
next
dim b(10,9)
sprite 202,sx,0,9
size sprite 202,64,64
hide sprite 202
k=0
s=0
dc=0
df=0
u=0
a=0
return
me:
dim rw(12,9)
dim rw1(12,9)
dim rw2(12,9)
dim pla(2,200)
dim pl1(2,200)
dim pl2(2,200)
pi=0
ps=0
ps2=0
fst=0
jl=0
l=3
l2=3
gt=0
gy=0
stt=0
st=0
st2=0
men$="0 46 34 43 45 36 52 23 53 0 38 39 51 46 34 43 45 36 0 46 34 43 45 36 52 24 53 a32 22 22 22 22 a14 22 22 22 22 a98 44 40 32 49 a75 46 44 32 34 36 a2 39 42 48 32 35 36 45 46 a95 55 46 34 43 45 36 0 32 35 48 32 42 34 36 0 47 32 33 40 36 55 a39 9 0 56 54 0 41 49 46 47 36 45 49 a44 1 0 56 25 22 0 44 43 39 42 47 46 a44 5 0 56 24 22 0 44 43 39 42 47 46 a44 3 0 56 23 22 0 44 43 39 42 47 46 a232 "
le=Len(men$)
dim da$(850)
sync 
sync
dim da(850)
b$=""
for i = 0 to le
        w$=mid$(men$,i)
    if w$<>" "
                b$=b$+w$
              if b$="a"
                    flag=1
                    b$=""
                       inc Zc
             endif
    endif
    if mid$(men$,i)=" "
             if Zc=1
                      Zc=0
                if flag=1
                         flag=0
             amount=val(b$)
                         b$="0"
                      for n=1 to amount
                                 da$(ps)=b$
                 inc ps
                      next n
            endif
        else
                da$(ps)=b$
                da(ps)=val(da$(ps))
                ps = ps + 1
        endif
        b$=""
    endif
next i
sp=32
ct=0
for g=0 to 29
	for f=0 to 27
   a=da(ct)
		if a>0
			sprite sp,f*16,g*16,a
			inc sp
		endif
		inc ct
	next f
next g
for a=32 to 139 
	size sprite a,64,64
next a
hi$=str$(hi)
if len(hi$)=2 then hi$="00"+hi$
if len(hi$)=3 then hi$="0"+hi$
for q=1 to 4
	if len(hi$)=>q
		sprite 151+q,178+((q-1)*16),32,22+val(mid$(hi$,q))
		size sprite 151+q,64,64
		else
		sprite 151+q,178+((q-1)*16),32,22
		size sprite 151+q,64,64
	endif
next
dg=32
do
if scancode()=2 and cr>0
	pi=1
	dec cr
endif
if scancode()=3 and cr>1
	pi=2
	dec cr,2
endif
gosub cr
if pi>0	then exit
sync
loop
dg=0
de=0
ps=0
ps2=0
gosub cl
return
cr:
cls
if scancode()=0 then rep=0
if scancode()=46 and rep=0
	rep=1
	inc cr
endif
cr$=str$(cr)
if len(cr$)=1 then cr$="0"+cr$
for q=1 to len(cr$)
	if len(cr$)=>q
		sprite 149+q,388+((q-1)*16),464,22+val(mid$(cr$,q))
		size sprite 149+q,64,64
		else
		sprite 149+q,388+((q-1)*16),464,22
	endif
next
return

#constant d data
#constant tc set sprite texture coord
#constant s sprite

sync on : sync rate 60

cls rgb(255,255,255)
ink 0,0
x=-1
for n=1 to 197
    l=b
    read a,b
    if a<=l then inc x
    if a=b then dot x,a
    line x,a,x,b
next
ink 0,0
get image 1,0,0,101,8,1
sprite 1,0,0,1
hide sprite 1

t as dword
lt as dword
t = timer()

// test drawing
type test
    c,x,y
endtype
dim _test(100) as test

for n = 0 to 100
    _test(n).c = rnd(4)
    _test(n).x = rnd(256)
    _test(n).y = rnd(256)
next 

do

    lt=t
    t=timer()
    d# = (t-lt)*0.001
    inc e#,d#
    
    f = e#/.5 mod 2

    // test draw
    for n = 0 to 100 
        s(_test(n).c,f,_test(n).x,_test(n).y)
    next

    sync
loop

// draw charater s( charaterType, frame, posXY )
function s(c,f,x,y)
    n=12
    p=(f*n)+(c*24)
    if c=3:n=16:p=72:endif
    if c=4:n=13:p=88:endif    
    a#=p/101.:b#=n/101.
    tc 1,0,a#,0
    tc 1,1,a#+b#,0
    tc 1,2,a#,1
    tc 1,3,a#+b#,1
    size s 1,n,8
    paste s 1,x,y
endfunction

d 0,8,0,8,0,3,5,7,0,2,5,5,7,7,0,0,3,3,6,8,5,5,7,7,5,5,7,7,0,0,3,3,6,8,0,2,5,5,7,7,0,3,5,7,0,8,0,8,0,8,0,8
d 0,3,5,5,7,7,0,2,6,6,0,0,3,3,5,8,6,8,6,8,0,0,3,3,5,8,0,2,6,6,0,3,5,5,7,7,0,8,0,8
d 0,0,5,8,0,3,6,6,1,1,7,7,0,0,3,3,6,8,0,2,6,8,0,2,6,8,0,2,6,8,0,0,3,3,6,8,1,1,7,7,0,3,6,6,0,0,5,8,0,8
d 0,4,7,7,0,3,5,8,1,1,7,7,0,0,3,3,6,6,0,2,6,6,0,2,6,8,0,2,6,6,0,0,3,3,6,6,1,1,7,7,0,3,5,8,0,4,7,7,0,8
d 0,2,5,7,0,0,5,7,0,0,5,5,7,7,0,0,3,3,7,7,3,3,6,7,5,5,7,7,5,5,7,7,3,3,6,7,0,0,3,3,7,7,0,0,5,5,7,7,0,0,5,7,0,2,5,7
d 0,2,5,8,0,0,5,5,7,7,0,0,8,8,0,0,3,3,6,6,3,3,6,8,5,5,7,7,5,5,7,7,3,3,6,8,0,0,3,3,6,6,0,0,8,8,0,0,5,5,7,7,0,2,5,8
d 0,4,5,8,0,3,5,8,0,2,6,8,0,0,3,3,7,7,0,0,6,8,5,8,3,3,5,8,6,8,6,8,3,3,5,8,5,8,0,0,6,8,0,0,3,3,7,7,0,2,6,8,0,3,5,8,0,4,5,8
d 0,4,0,3,0,3,0,3,0,3,0,0,9,9,8,8,0,0,9,9,0,3,0,3,0,3,0,3,0,4