Author Topic: Competition (Read 35216 times)

Pete · « **Reply #60 on:** October 07, 2021, 03:26:25 pm »

It would need some tweaking to be an actual game. BTW - I only tested it on level 1. Got through it, and I think the next two levels add a bit more difficulty. It's been so long since I've played the real Space Invaders, on an Atari. I think there was a bonus for each time you blew up the mother ship, and probably a set number of points for each alien fighter destroyed. I believe the game also had three barriers you could hide behind, but they were progressively broken apart by alien missiles. I can't remember if they regenerated or not in subsequent levels.

Anyway, if I had to give this thing a name, I'd guess I'd call it, QB64 ASCII Invaders

Pete

bplus · « **Reply #61 on:** October 07, 2021, 03:36:49 pm »

Hmm... what if mother ship were an ascii witch or harvest man in the moon and the alien fighters ascii bats?

You know, to get into Halloween spirit and extra credit ;-))

Pete · « **Reply #62 on:** October 07, 2021, 04:24:25 pm »

Consider you guys lucky I didn't code ASCII fighters as: (_|_)

And no, that's not a pumpkin.

Pete

Pete · « **Reply #63 on:** October 07, 2021, 08:10:57 pm »

Okay, fine...

Halloween theme engaged. Watch out for stormy weather.

Code: QB64: [Select]

DIM SHARED intro%: intro% = -1
skip_intro:
DEFINT I
DIM SHARED lmargin%, rmargin%, topmargin%, screenwidth%, level, ibk, ileadingrow
DIM SHARED irow, icol, inextrnd, imaxalienmissiles, alienforce%, ileadingmax, imaxalienforce, ihits, score$
 
_SCREENMOVE _MIDDLE
score$ = "000000"
imaxalienforce = 6
imaxalienmissiles = 3
lmargin% = 2
rmargin% = 79
topmargin% = 3
ialiencolstat = 6
iwin = 3 ' 3 Levels.
screenwidth% = rmargin% - lmargin% + 1
ibk = 0 ' Background color
 
DIM SHARED a(imaxalienforce) AS STRING * 68
 
RANDOMIZE TIMER
SCREEN 0, 0, 0, 0
COLOR 7, 0: CLS
 
REM Make aliens
a1$ = "^^" + CHR$(79) + "^^  "
a$ = a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$
 
IF intro% THEN
    SCREEN 0, 0, 1, 1
    CALL qbideOrig
 
    SCREEN 0, 0, 2, 0
    CALL qbide
 
    SCREEN 0, 0, 1, 1
    _DELAY 2
 
    SOUND 1000, .3: SOUND 2400, .6:: SOUND 700, 2
    FOR i = 1 TO 15
        _DELAY i / 150
        IF i / 2 = i \ 2 THEN
            SOUND 250, .1
            SCREEN 0, 0, 1, 1
        ELSE
            SCREEN 0, 0, 2, 2
            IF i < 13 THEN _DELAY i / 100: SCREEN 0, 0, 3, 3: COLOR 0, 7: CLS
        END IF
    NEXT
    PCOPY 2, 0
    SCREEN 0, 0, 0, 0
ELSE
    CALL qbide
END IF
 
IF intro% = -1 THEN RESTORE first_play ELSE RESTORE replay
 
CALL instructions
 
DO
    IF inextrnd = -1 THEN PCOPY 3, 0
    tank$ = CHR$(218) + CHR$(127) + CHR$(191): icolor = 6
    REDIM SHARED bullet%(5), bulletcol%(5), bulletdelay%(5), iltalien(imaxalienforce)
    REDIM SHARED ia(imaxalienmissiles), iy(imaxalienmissiles), ix(imaxalienmissiles)
    REDIM SHARED matrix(imaxalienforce) AS STRING * 10
    alienforce% = imaxalienforce
    level = .65
    iround = iround + 1
    level = level - iround / 15
    inextrnd = -1
    COLOR 6, ibk
 
    REM Set up aliens
    ialiencol = ialiencolstat
    LOCATE 2, ialiencol
    FOR i = 1 TO imaxalienforce
        IF i MOD 1 = 0 THEN PRINT
        LOCATE , ialiencol
        IF i = imaxalienforce THEN ileadingrow = CSRLIN: ileadingmax = ileadingrow
        a(i) = a$
        PRINT a(i)
    NEXT
 
    COLOR 0 + 16, 3
    LOCATE 25, 68: PRINT "Score ";
    COLOR 0, 3
    PRINT score$;
    COLOR 6, ibk
 
    REM Station
    LOCATE 24, 40
    tanky% = CSRLIN: tankx% = POS(0) + 1
    PRINT tank$;: LOCATE , POS(0) - 2
 
    _DELAY 1
 
    DO
        z1 = TIMER
        DO
            IF zbonus THEN
                IF ABS(zbonus - TIMER) > 1.5 THEN
                    yy% = CSRLIN: xx% = POS(0)
                    COLOR 6, 0: LOCATE topmargin%, lmargin%: PRINT SPACE$(screenwidth%);
                    LOCATE yy%, xx%
                    zbonus = 0
                END IF
            END IF
 
            IF topmargin% + ileadingmax - (imaxalienforce * 2) >= topmargin% + 2 THEN
                IF imothership <> 0 THEN CALL mship(imothership)
            END IF
            IF ABS(TIMER - z1aliens) > level THEN
                CALL movealiens(ialiencol, ialiencolstat, iresults)
                z1aliens = TIMER
            END IF
            IF iresults < 0 THEN EXIT DO
            IF ABS(TIMER - z1ia) > .3 THEN CALL alienmissile(iresults): z1ia = TIMER
 
            DEF SEG = 0
            IF PEEK(1047) MOD 16 = 7 OR PEEK(1047) MOD 16 = 8 THEN
                key$ = CHR$(32) ' Alt
            ELSE
                key$ = ""
            END IF
            DEF SEG
 
            SELECT CASE key$
                CASE CHR$(32)
                    IF flag = 0 THEN switch = switch * -1 - 1: flag = -1
                    SELECT CASE switch
                        CASE 0
                            IF ABS(z9 - TIMER) > .15 THEN
                                IF POS(0) < screenwidth% THEN COLOR icolor, ibk: LOCATE , POS(0) - 1: PRINT " " + tank$;: LOCATE , POS(0) - 2
                                tanky% = CSRLIN: tankx% = POS(0)
                                IF SCREEN(tanky%, tankx% - 2) = 25 OR SCREEN(tanky%, tankx% + 2) = 25 THEN result = -1: EXIT DO
                                z9 = TIMER
                            END IF
                        CASE -1
                            IF ABS(z9 - TIMER) > .15 THEN
                                IF POS(0) > lmargin% + 1 THEN COLOR icolor, ibk: LOCATE , POS(0) - 2: PRINT tank$ + " ";: LOCATE , POS(0) - 3
                                tanky% = CSRLIN: tankx% = POS(0)
                                IF SCREEN(tanky%, tankx% - 2) = 25 OR SCREEN(tanky%, tankx% + 2) = 25 THEN result = -1: EXIT DO
                                z9 = TIMER
                            END IF
                    END SELECT
                    IF icolor = 6 THEN
                        FOR i2 = 1 TO 5
                            IF bullet%(i2) = 0 THEN
                                icolor = 12: COLOR icolor, ibk: GOSUB redraw
                                bullet%(i2) = -1: reload = TIMER: EXIT FOR
                            END IF
                        NEXT
                    END IF
                CASE ""
                    IF flag THEN skip = 0: flag = 0
                CASE CHR$(27): SYSTEM
            END SELECT
 
            IF ABS(z1 - reload) > .6 AND reload <> 0 THEN
                GOSUB redraw
                icolor = 6: reload = 0
            END IF
 
            REM Fire
            FOR i = 1 TO 5
                SELECT CASE bullet%(i)
                    CASE -1: bullet%(i) = tanky% - 1: bulletcol%(i) = tankx%
                    CASE IS > 0
                        IF bulletdelay%(i) = -1 OR bullet%(i) = tanky% - 1 THEN
                            CALL checkcollision(ihitaliens, ialiencol, i4, i)
                            z2bullet = TIMER: bulletdelay%(i) = 0
                            COLOR 6, ibk
                            LOCATE bullet%(i), bulletcol%(i)
                            IF bullet%(i) = topmargin% AND imothership <> 0 THEN ' Hit mother ship.
                                IF SCREEN(ABS(bullet%(i)), bulletcol%(i)) <> 32 THEN
                                    SOUND 1000, .75
                                    SELECT CASE iresults + 1
                                        CASE 1: bonus = 1500
                                        CASE 2: bonus = 2500
                                        CASE 3: bonus = 5000
                                    END SELECT
                                    score$ = LTRIM$(STR$(VAL(score$) + bonus))
                                    score$ = STRING$(6 - LEN(score$), "0") + score$
                                    yy% = CSRLIN: xx% = POS(0)
                                    SOUND 800, .5: SOUND 1600, .5: SOUND 2400, .5
                                    LOCATE topmargin%, lmargin%: PRINT SPACE$(screenwidth%);
                                    kbonus = bulletcol%(i) - 4
                                    IF kbonus < lmargin% THEN kbonus = lmargin%
                                    IF kbonus + 10 > screenwidth% THEN kbonus = screenwidth% - 11
                                    zbonus = TIMER
                                    LOCATE yy%, xx%
                                    imothership = 0
                                END IF
                            END IF
                            PRINT CHR$(24) ' Tank missile.
                            IF CSRLIN <> 24 THEN LOCATE , bulletcol%(i): PRINT " ";
                            IF ihitaliens <> 0 THEN CALL reprintaliens(ialiencol, ihitaliens, iresults, i4, i, imothership)
                            LOCATE tanky%, tankx%
                            IF bullet%(i) > topmargin% THEN
                                bullet%(i) = bullet%(i) - 1
                            ELSE
                                GOSUB erasebullet
                            END IF
 
                            IF zbonus THEN
                                yy% = CSRLIN: xx% = POS(0)
                                LOCATE topmargin%, kbonus: COLOR 2 + 16: PRINT "BONUS " + LTRIM$(STR$(bonus));
                                LOCATE yy%, xx%
                            END IF
 
                        END IF
                END SELECT
            NEXT
 
            REM Bullet timer delay
            IF z2bullet <> 0 THEN
                IF z1 < z2bullet THEN z2bullet = z2bullet - 86400
                IF z1 - z2bullet >= .06 THEN
                    FOR i2 = 1 TO 5
                        IF bullet%(i2) <> 0 THEN bulletdelay%(i2) = -1
                    NEXT i2
                END IF
                EXIT DO
            END IF
        LOOP
        IF iresults < 0 THEN EXIT DO
        IF alienforce% = 0 OR iresults = iwin THEN
            FOR i = 1 TO imaxalienmissiles
                IF ia(i) <> 0 THEN EXIT FOR
            NEXT
            IF i > imaxalienmissiles THEN iwait = -1
            IF iwait = -1 THEN
                EXIT DO
            END IF
        ELSE
            iwait = 1
        END IF
    LOOP
 
    IF iresults = iwin OR iresults < 0 THEN
        REM end game
        EXIT DO
    END IF
    inextrnd = -1
LOOP
 
SELECT CASE iresults
    CASE -1 ' Tank destroyed!
        SOUND 800, .3: SOUND 250, 1
 
        FOR i = 1 TO 5
            COLOR 14, 4
            LOCATE tanky%, tankx% - 1: PRINT tank$;
            _DELAY .1
 
            COLOR 8, ibk
            LOCATE tanky%, tankx% - 1: PRINT tank$;
            _DELAY .1
        NEXT
 
        COLOR 6, ibk
        LOCATE tanky% - 1, lmargin%
        PRINT SPACE$(screenwidth%);
        LOCATE tanky%, lmargin%
        PRINT SPACE$(screenwidth%);
 
        _DELAY 2
 
        CALL qbide
 
    CASE -2 ' Aliens have landed!
        SOUND 1000, .3: SOUND 2400, .6:: SOUND 700, 2
 
        COLOR 7, 0
        FOR i = 0 TO 21 ' Blank out screen.
            LOCATE topmargin% + i, lmargin%: PRINT SPACE$(screenwidth%);
        NEXT
 
        COLOR 6, ibk
        LOCATE tanky% - 1, lmargin%
        PRINT SPACE$(screenwidth%);
        LOCATE tanky%, lmargin%
        PRINT SPACE$(screenwidth%);
 
        COLOR 8, ibk
 
        FOR j = imaxalienforce TO 1 STEP -1
            IF a(j) <> "" THEN EXIT FOR
        NEXT
 
        FOR i = j TO 1 STEP -1
            LOCATE , ialiencol + INSTR(a(i), "^^")
            PRINT LTRIM$(RTRIM$(a(i)));
            LOCATE CSRLIN - 1
        NEXT
 
        _DELAY 2.5
 
    CASE ELSE ' Winner.
 
        l$ = "12"
        n$ = "n29": PLAY "L" + l$ + n$: _DELAY .5
        n$ = "n24": PLAY "L" + l$ + n$: _DELAY .5
        n$ = "n33": PLAY "L" + l$ + n$: _DELAY .5
        n$ = "n29": PLAY "L" + l$ + n$
 
        CALL qbide
 
        RESTORE winner
 
END SELECT
 
 
COLOR 0, 3
LOCATE 25, 68: PRINT "Score "; score$;
 
CALL instructions
 
COLOR 6, 0
LOCATE 5, 3: PRINT "Score "; score$
 
DEF SEG = 0
DO
    _LIMIT 30
    b$ = INKEY$
    IF b$ = CHR$(27) THEN SYSTEM
    IF PEEK(1047) MOD 16 = 7 OR PEEK(1047) MOD 16 = 8 THEN EXIT DO
LOOP
DEF SEG
 
RUN skip_intro
 
erasebullet:
LOCATE ABS(bullet%(i)), bulletcol%(i): PRINT " ";
bullet%(i) = 0: bulletcol%(i) = 0: bulletdelay%(i) = 0
LOCATE tanky%, tankx%
RETURN
 
redraw:
COLOR , ibk: LOCATE tanky%, tankx% - 1: PRINT tank$;: LOCATE tanky%, tankx%: COLOR 7, ibk
RETURN
 
first_play:
DATA "The Great Pumpkin is coming and has fired an EM pulse."
DATA ""
DATA "All that's left working is your Alt key."
DATA ""
DATA "Happy Halloween!"
DATA ""
replay:
DATA "Loading..."
DATA "EOF"
DATA "Game Over. Thanks for playing..."
DATA "EOF2"
winner:
DATA "Congratulations, you saved the planet!"
DATA "EOF3"
 
 
SUB alienattack (ialiencol)
    z2alienfire = TIMER
 
    i3 = INT(RND * 10)
    FOR i = 1 TO imaxalienmissiles
        IF ia(i) = 0 THEN
            FOR i2 = imaxalienforce TO 1 STEP -1
                IF RTRIM$(a(i2)) <> "" THEN
                    IF MID$(matrix(i2), i3 + 1, 1) <> "0" THEN
                        i4 = INSTR(i3 * 7 + 1, a(i2), CHR$(79)) + ialiencol
                        EXIT FOR
                    END IF
                END IF
            NEXT i2
            IF i4 <> 0 THEN
                ia(i) = (ileadingmax - (imaxalienforce - i2) * 2) * 80 + i4
                EXIT FOR
            END IF
        END IF
    NEXT i
 
END SUB
 
SUB alienmissile (iresults)
    irow = CSRLIN: icol = POS(0)
    FOR i = 1 TO imaxalienmissiles
        IF ia(i) <> 0 THEN
            IF iy(i) = 0 THEN
                iy(i) = ia(i) \ 80: ix(i) = ia(i) MOD 80
                IF ix(i) = 0 THEN ix(i) = screenwidth%
            END IF
            LOCATE iy(i) + 1, ix(i)
            COLOR 6, ibk
            IF CSRLIN <= 24 THEN
                IF CSRLIN = 24 THEN IF SCREEN(CSRLIN, ix(i)) <> 32 THEN iresults = -1
                PRINT CHR$(25);
            ELSE
                ia(i) = 0
                LOCATE iy(i), ix(i)
                PRINT " ";: iy(i) = 0
                ia(i) = 0
                LOCATE irow, icol
                EXIT SUB
            END IF
            LOCATE iy(i), ix(i): PRINT " ";
            iy(i) = iy(i) + 1
        END IF
    NEXT
    LOCATE irow, icol
 
END SUB
 
SUB checkcollision (ihitaliens, ialiencol, i4, i)
    ihitaliens = 0
    IF ileadingmax MOD 2 = bullet%(i) MOD 2 THEN
        i4 = imaxalienforce - (ileadingmax - bullet%(i)) \ 2
        IF bullet%(i) <= ileadingrow AND i4 > 0 AND i4 <= imaxalienforce THEN
            IF RTRIM$(a(i4)) <> "" THEN
                IF bulletcol%(i) >= iltalien(i4) AND bulletcol%(i) - ialiencol <= LEN(RTRIM$(a(i4))) THEN
                    IF MID$(a(i4), bulletcol%(i) - ialiencol, 1) > CHR$(32) THEN
                        ihitaliens = bulletcol%(i) - ialiencol + 1
                        i3 = ihitaliens - 7 + 1: IF i3 < 1 THEN i3 = 1: REM count from the "<" symbol.
                        i2 = INSTR(i3 + 1, a(i4), "^" + CHR$(79)) - 1
                        MID$(a(i4), i2, 7) = SPACE$(7)
                        MID$(matrix(i4), (i2 + 1) \ 7 + 1, 1) = "0"
                    END IF
                END IF
            END IF
        END IF
    END IF
 
    FOR i2 = 1 TO imaxalienmissiles
        IF ia(i2) <> 0 THEN
            IF iy(i2) >= bullet%(i) AND ix(i2) = bulletcol%(i) THEN
                ihitaliens = -i2
                EXIT FOR
            END IF
        END IF
    NEXT
 
END SUB
 
SUB instructions
    IF in$ = "" THEN
        key$ = INKEY$
        LOCATE 3, 3, 1, 7, 0: COLOR 6, ibk
        _DELAY 2
        DO
            READ in$
            IF MID$(in$, 1, 3) = "EOF" THEN EXIT DO
            FOR i = 1 TO LEN(in$)
                SOUND 400, .07
                LOCATE , 2 + i
                PRINT MID$(in$, i, 1);
                z = TIMER
                DO
                    IF ABS(z - TIMER) > .08 THEN EXIT DO
                LOOP
            NEXT
            LOCATE , , 0, 7, 0
            _DELAY 1
            PRINT
            LOCATE , 3
        LOOP
        _DELAY 1
    END IF
 
    IF in$ = "EOF" THEN
        COLOR 7, 0
        FOR i = 0 TO 19 ' Blank out intro message space.
            LOCATE topmargin% + i, lmargin%: PRINT SPACE$(screenwidth%);
        NEXT
        FOR i = 3 TO 24
            LOCATE i, 80: PRINT CHR$(179);
        NEXT
        LOCATE 21, 2: PRINT STRING$(screenwidth%, " ");
        LOCATE 22, 1: PRINT CHR$(179);
        LOCATE 22, 80: PRINT CHR$(179);
        LOCATE 22, 2: PRINT STRING$(screenwidth%, " ");
    ELSE
        COLOR 0, 3
    END IF
 
    IF in$ <> "EOF2" AND iresults <> iwin THEN COLOR 0 + 16, 3 ELSE COLOR 0, 3
    yy% = CSRLIN: xx% = POS(0)
    LOCATE 25, 68: PRINT "Score ";
    COLOR 0, 3
    PRINT score$;
    LOCATE yy%, xx%
 
    PCOPY 0, 3: REM save skin
 
END SUB
 
SUB marchdown (ialiencol, ialiencolstat, imotion, iresults)
    COLOR 6, ibk
    ileadingrow = ileadingrow + 1
    ileadingmax = ileadingmax + 1
    COLOR 6, ibk
    FOR i = 1 TO imaxalienforce
        REM SOUND 400, .2 ' Level down.
        IF RTRIM$(a(i)) <> "" THEN
            ialiencol = ialiencolstat + imotion
            LOCATE ileadingmax - (imaxalienforce * 2) + i * 2 - 1, lmargin%
            PRINT STRING$(screenwidth%, " ")
            LOCATE , ialiencol + INSTR(a(i), "^^")
            iltalien(i) = POS(0)
            PRINT LTRIM$(RTRIM$(a(i)))
        END IF
    NEXT
    LOCATE irow, icol
    level = level - .025
    IF ileadingrow = 22 THEN iresults = -2 ' Aliens have landed!
END SUB
 
DEFSNG I
DEFINT I
SUB movealiens (ialiencol, ialiencolstat, iresults)
    STATIC imotion, imarch, imotiondir
 
    SOUND 800, .1: SOUND 200, .33 ' Marching sound.
 
    IF inextrnd = -1 THEN inextrnd = 0: imotion = 0: imarch = 0: imotiondir = 0
    irow = CSRLIN: icol = POS(0)
    yy% = CSRLIN: xx% = POS(0)
    PCOPY 0, 1: SCREEN 0, 0, 1, 0: LOCATE yy%, xx%, 0, 7, 0
    IF imotiondir = 0 THEN imotion = imotion - 1 ELSE imotion = imotion + 1
    COLOR 6, ibk
 
    FOR i = imaxalienforce TO 1 STEP -1
        IF RTRIM$(a(i)) <> "" THEN
            i2 = i2 + 2
            ialiencol = ialiencolstat + imotion
            LOCATE ileadingmax - (imaxalienforce - i) * 2, ialiencol + INSTR(a(i), "^^")
            IF POS(0) = lmargin% THEN imarch = 1
            iltalien(i) = POS(0)
            IF imotiondir = 0 THEN
                PRINT LTRIM$(RTRIM$(a(i))); " "
            ELSE
                LOCATE , POS(0) - 1
                PRINT " "; LTRIM$(RTRIM$(a(i)))
            END IF
            IF ialiencol + LEN(RTRIM$(a(i))) = screenwidth% THEN imarch = -1
        END IF
    NEXT
 
    IF imarch = 1 THEN imotiondir = 1: CALL marchdown(ialiencol, ialiencolstat, imotion, iresults)
    IF imarch = -1 THEN imotiondir = 0: CALL marchdown(ialiencol, ialiencolstat, imotion, iresults)
    IF imarch = 0 THEN
        IF ABS(TIMER - z2alienfire) > firerate THEN
            firerate = (INT(RND * 10) + 1) / 20
            IF iwait = 0 THEN CALL alienattack(ialiencol)
        END IF
    ELSE
        imarch = 0
    END IF
    PCOPY 1, 0: SCREEN 0, 0, 0, 0
    LOCATE irow, icol, 1, 7, 0
END SUB
 
SUB mship (imothership)
    STATIC x%, mov%, z4, mothership$
 
    yy% = CSRLIN: xx% = POS(0): COLOR 6, ibk
    IF imothership = -1 THEN
        imothership = 1
        x% = lmargin%
        mothership$ = CHR$(254) + CHR$(254) + "O" + CHR$(254) + CHR$(254)
        mov% = 1
    END IF
 
    IF ABS(TIMER - z4) > .05 THEN GOSUB mothership: z4 = TIMER: LOCATE yy%, xx%: EXIT SUB
    LOCATE yy%, xx%
    EXIT SUB
 
    mothership:
    IF x% + LEN(mothership$) = screenwidth% + lmargin% THEN mov% = -1 ELSE IF x% = lmargin% THEN mov% = 1
    x% = x% + mov%
    LOCATE topmargin%, x%
    PRINT mothership$;
    IF x% > 1 AND mov% = 1 THEN
        LOCATE , POS(0) - LEN(mothership$) - 1: PRINT " ";
    END IF
    IF mov% = -1 THEN PRINT " ";
    RETURN
 
END SUB
 
DEFINT A-H, J-Z
SUB qbide
    PALETTE 2, 59
    COLOR 15, 0
    CLS
 
    COLOR 0, 7
    LOCATE 1, 1
    PRINT SPACE$(80)
    LOCATE 1, 1: PRINT "   File  Edit  View  Search  Run  Debug  Calls  Options                   Help"
 
    COLOR 7, 0 ' Black background.
 
    LOCATE 2, 1: PRINT CHR$(218)
    LOCATE 2, 2: PRINT STRING$(78, CHR$(196))
    LOCATE 2, 80: PRINT CHR$(191)
 
    LOCATE 2, 76: PRINT CHR$(180)
    LOCATE 2, 78: PRINT CHR$(195)
 
    COLOR 0, 7
    LOCATE 2, 77: PRINT CHR$(24)
    LOCATE 2, 36: PRINT " Untitled "
 
    COLOR 7, 0
    FOR Rows = 3 TO 24
        LOCATE Rows, 1: PRINT CHR$(179);
        LOCATE Rows, 80: PRINT CHR$(179);
    NEXT Rows
 
    LOCATE 22, 1: PRINT CHR$(195)
    LOCATE 22, 80: PRINT CHR$(180)
    LOCATE 22, 2: PRINT STRING$(78, CHR$(196))
    LOCATE 22, 35
    PRINT " Immediate "
 
    COLOR 0, 7
    LOCATE 21, 3: PRINT STRING$(76, CHR$(176))
    LOCATE 21, 2: PRINT CHR$(27)
    LOCATE 21, 3: PRINT CHR$(219)
    LOCATE 21, 79: PRINT CHR$(26)
    FOR Rows = 4 TO 19
        LOCATE Rows, 80: PRINT CHR$(176)
    NEXT Rows
    LOCATE 3, 80: PRINT CHR$(24)
    LOCATE 4, 80: PRINT CHR$(219)
    LOCATE 20, 80: PRINT CHR$(25)
 
    COLOR 0, 3: LOCATE 25, 1: PRINT " <Shift+F1=Help> <F6=Window> <F2=Subs> <F5=Run> <F8=Step> ";
    LOCATE 25, 59: PRINT SPACE$(4);
    COLOR 0, 3
    LOCATE 25, 63: PRINT CHR$(179);
    LOCATE 25, 64: PRINT SPACE$(6);
    LOCATE 25, 68: PRINT "C  00001:001 ";
 
END SUB
 
DEFSNG A-H, J-Z
SUB reprintaliens (ialiencol, ihitaliens, iresults, i4, i, imothership)
    IF ihitaliens > 0 THEN
        ihits = ihits + 1
 
        SELECT CASE iresults + 1
            CASE 1: score$ = LTRIM$(STR$(VAL(score$) + 150))
            CASE 2: score$ = LTRIM$(STR$(VAL(score$) + 250))
            CASE 3: score$ = LTRIM$(STR$(VAL(score$) + 350))
        END SELECT
 
        score$ = STRING$(6 - LEN(score$), "0") + score$
        IF (ihits + 15) MOD 20 = 0 AND imothership = 0 THEN imothership = -1
        LOCATE bullet%(i), lmargin%: PRINT SPACE$(screenwidth%);
        iltalien(i4) = POS(0)
 
        IF RTRIM$(a(i4)) = "" THEN
            alienforce% = alienforce% - 1
            IF alienforce% = 0 THEN iresults = iresults + 1 ' Level completed. Goto to next level.
            IF bullet%(i) = ileadingrow THEN ileadingrow = ileadingrow - 2
        ELSE
            LOCATE bullet%(i), ialiencol + INSTR(a(i4), "^^"): PRINT LTRIM$(RTRIM$(a(i4)))
        END IF
    ELSE
        i2 = ABS(ihitaliens)
        LOCATE iy(i2), ix(i2)
        PRINT " ";: iy(i2) = 0
        ia(i2) = 0
        LOCATE irow, icol
        SOUND 1000, .5
    END IF
 
    ihitaliens = 0
    bullet%(i) = -bullet%(i)
 
    COLOR 0, 3
    yy% = CSRLIN: xx% = POS(0)
    LOCATE 25, 74: PRINT score$;
    LOCATE yy%, xx%
    COLOR 6, ibk
 
END SUB
 
SUB qbideOrig
    PALETTE 2, 59
    COLOR 15, 1
    CLS
 
    COLOR 0, 7
    LOCATE 1, 1
    PRINT SPACE$(80)
    LOCATE 1, 1: PRINT "   File  Edit  View  Search  Run  Debug  Calls  Options                   Help"
 
    COLOR 7, 1
 
    LOCATE 2, 1: PRINT CHR$(218)
    LOCATE 2, 2: PRINT STRING$(78, CHR$(196))
    LOCATE 2, 80: PRINT CHR$(191)
 
    LOCATE 2, 76: PRINT CHR$(180)
    LOCATE 2, 78: PRINT CHR$(195)
 
    COLOR 1, 7
    LOCATE 2, 77: PRINT CHR$(24)
    LOCATE 2, 36: PRINT " Untitled "
 
    COLOR 7, 1
    FOR Rows = 3 TO 24
        LOCATE Rows, 1: PRINT CHR$(179);
        LOCATE Rows, 80: PRINT CHR$(179);
    NEXT Rows
 
    LOCATE 22, 1: PRINT CHR$(195)
    LOCATE 22, 80: PRINT CHR$(180)
    LOCATE 22, 2: PRINT STRING$(78, CHR$(196))
    LOCATE 22, 35
    PRINT " Immediate "
 
    COLOR 0, 7
    LOCATE 21, 3: PRINT STRING$(76, CHR$(176))
    LOCATE 21, 2: PRINT CHR$(27)
    LOCATE 21, 3: PRINT CHR$(219)
    LOCATE 21, 79: PRINT CHR$(26)
    FOR Rows = 4 TO 19
        LOCATE Rows, 80: PRINT CHR$(176)
    NEXT Rows
    LOCATE 3, 80: PRINT CHR$(24)
    LOCATE 4, 80: PRINT CHR$(219)
    LOCATE 20, 80: PRINT CHR$(25)
 
    COLOR 0, 3: LOCATE 25, 1: PRINT " <Shift+F1=Help> <F6=Window> <F2=Subs> <F5=Run> <F8=Step> ";
    LOCATE 25, 59: PRINT SPACE$(4);
    COLOR 0, 3
    LOCATE 25, 63: PRINT CHR$(179);
    LOCATE 25, 64: PRINT SPACE$(6);
    LOCATE 25, 68: PRINT "C  00001:001 ";
 
END SUB

Edited: Added scoring with 50 per hit and 500 bonus for mother ship.

Edited: Some sound and visual effects added. You can replay without the intro. Just press the Alt key at Game Over message. To end, you have to click the "x" in the program window.

bplus · « **Reply #64 on:** October 07, 2021, 10:23:19 pm »

Hey I got through level 1 and almost all level 2 with the bats.

Do miss a "Pete" comment at start :-))

Could be colorized a little? Even some Black and White would make the screen pop.

Pete · « **Reply #65 on:** October 08, 2021, 04:05:46 pm »

@bplus Ah color? Orange and black are Halloween colors, so I'm not sure what color scheme you are thinking of.

I added a couple of other effects, see edit info.

I wish I was better with SOUND. I would love to have a thunder sound at the beginning, but without including an .ogg file. I added a short note playing routine if the player completes level 3 for the win.

The counter looks like I should truncate it a bit, or maybe try a progressive scoring algorithm. Something simple like 5o- pts per hit on level 1, 200 pts per hit on level 2, and 500 pts per hit on level 3. Same with mother ship. 1000, 2000, and 5000 pt bonus based on level. Any thoughts on scoring?

Pete

bplus · « **Reply #66 on:** October 08, 2021, 08:09:21 pm »

Yeah nice changes @Pete. Haven't played game enough for help with scoring, numbers you have look OK.

Pete · « **Reply #67 on:** October 08, 2021, 08:58:33 pm »

I found one big, and fixed it. Also added a progressive scoring system.

Pete

johnno56 · « **Reply #68 on:** October 08, 2021, 09:12:19 pm »

Cool game... Nicely done... Yep. The Alt key does need a little practice... I actually got through the first wave!! For me that's 'Woo Hoo'... lol

Pete · « **Reply #69 on:** October 08, 2021, 09:39:43 pm »

@johnno56 Careful about saying Woo Hoo around here! (Someone could abuse his post privileges).

TheBOB added his thunder sound effects. I did a quick update at QBF and added them: https://www.tapatalk.com/groups/qbasic/viewtopic.php?p=213778#p213778

It made the intro sooooo much better. I left the initial afffect for anyone who does not include the .0gg files.

Pete

Pete · « **Reply #70 on:** October 08, 2021, 11:08:03 pm »

Some more cool-aberation with TheBOB. Remember I mentioned "The Great Pumpkin?"

Code: QB64: [Select]

DIM SHARED intro%: intro% = -1
skip_intro:
DEFINT I
DIM SHARED lmargin%, rmargin%, topmargin%, screenwidth%, level, ibk, ileadingrow
DIM SHARED irow, icol, inextrnd, imaxalienmissiles, alienforce%, ileadingmax, imaxalienforce, ihits, score$
 
_SCREENMOVE _MIDDLE
score$ = "000000"
imaxalienforce = 6
imaxalienmissiles = 3
lmargin% = 2
rmargin% = 79
topmargin% = 3
ialiencolstat = 6
iwin = 3 ' 3 Levels.
screenwidth% = rmargin% - lmargin% + 1
ibk = 0 ' Background color
 
DIM SHARED a(imaxalienforce) AS STRING * 68
 
RANDOMIZE TIMER
SCREEN 0, 0, 0, 0
COLOR 7, 0: CLS
 
REM Make aliens
a1$ = "^^" + CHR$(79) + "^^  "
a$ = a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$
 
IF intro% THEN
    SCREEN 0, 0, 1, 1
    CALL qbideOrig
 
    SCREEN 0, 0, 2, 0
    CALL qbide
 
    SCREEN 0, 0, 1, 1
    _DELAY 2
 
    IF _FILEEXISTS("Thunder6.ogg") THEN
        Rain& = _SNDOPEN("RainBk.ogg", "SYNC")
        T1& = _SNDOPEN("Thunder1.ogg", "SYNC")
        T2& = _SNDOPEN("Thunder2.ogg", "SYNC")
        T3& = _SNDOPEN("Thunder3.ogg", "SYNC")
        T4& = _SNDOPEN("Thunder4.ogg", "SYNC")
        T5& = _SNDOPEN("Thunder5.ogg", "SYNC")
        T6& = _SNDOPEN("Thunder6.ogg", "SYNC")
        T7& = _SNDOPEN("Thunder7.ogg", "SYNC")
        T8& = _SNDOPEN("Thunder8.ogg", "SYNC")
 
        _SNDPLAY T6&
        _DELAY .1
        _SNDPLAY T7&
        _DELAY .1
        _SNDPLAY T8&
    ELSE
        SOUND 1000, .3: SOUND 2400, .6:: SOUND 700, 2
    END IF
 
    FOR i = 1 TO 15
        _DELAY i / 150
        IF i / 2 = i \ 2 THEN
            SOUND 250, .1
            SCREEN 0, 0, 1, 1
        ELSE
            SCREEN 0, 0, 2, 2
            IF i < 13 THEN _DELAY i / 100: SCREEN 0, 0, 3, 3: COLOR 0, 7: CLS
        END IF
    NEXT
 
    PCOPY 2, 0
    SCREEN 0, 0, 0, 0
    _DELAY 1
 
    CALL TheBOB
 
    CALL qbide
 
ELSE
    CALL qbide
END IF
 
IF intro% = -1 THEN RESTORE first_play ELSE RESTORE replay
 
CALL instructions
 
DO
    IF inextrnd = -1 THEN PCOPY 3, 0
    tank$ = CHR$(218) + CHR$(127) + CHR$(191): icolor = 6
    REDIM SHARED bullet%(5), bulletcol%(5), bulletdelay%(5), iltalien(imaxalienforce)
    REDIM SHARED ia(imaxalienmissiles), iy(imaxalienmissiles), ix(imaxalienmissiles)
    REDIM SHARED matrix(imaxalienforce) AS STRING * 10
    alienforce% = imaxalienforce
    level = .65
    iround = iround + 1
    level = level - iround / 15
    inextrnd = -1
    COLOR 6, ibk
 
    REM Set up aliens
    ialiencol = ialiencolstat
    LOCATE 2, ialiencol
    FOR i = 1 TO imaxalienforce
        IF i MOD 1 = 0 THEN PRINT
        LOCATE , ialiencol
        IF i = imaxalienforce THEN ileadingrow = CSRLIN: ileadingmax = ileadingrow
        a(i) = a$
        PRINT a(i)
    NEXT
 
    COLOR 0 + 16, 3
    LOCATE 25, 68: PRINT "Score ";
    COLOR 0, 3
    PRINT score$;
    COLOR 6, ibk
 
    REM Station
    LOCATE 24, 40
    tanky% = CSRLIN: tankx% = POS(0) + 1
    PRINT tank$;: LOCATE , POS(0) - 2
 
    _DELAY 1
 
    DO
        z1 = TIMER
        DO
            IF zbonus THEN
                IF ABS(zbonus - TIMER) > 1.5 THEN
                    yy% = CSRLIN: xx% = POS(0)
                    COLOR 6, 0: LOCATE topmargin%, lmargin%: PRINT SPACE$(screenwidth%);
                    LOCATE yy%, xx%
                    zbonus = 0
                END IF
            END IF
 
            IF topmargin% + ileadingmax - (imaxalienforce * 2) >= topmargin% + 2 THEN
                IF imothership <> 0 THEN CALL mship(imothership)
            END IF
            IF ABS(TIMER - z1aliens) > level THEN
                CALL movealiens(ialiencol, ialiencolstat, iresults)
                z1aliens = TIMER
            END IF
            IF iresults < 0 THEN EXIT DO
            IF ABS(TIMER - z1ia) > .3 THEN CALL alienmissile(iresults): z1ia = TIMER
 
            DEF SEG = 0
            IF PEEK(1047) MOD 16 = 7 OR PEEK(1047) MOD 16 = 8 THEN
                key$ = CHR$(32) ' Alt
            ELSE
                key$ = ""
            END IF
            DEF SEG
 
            SELECT CASE key$
                CASE CHR$(32)
                    IF flag = 0 THEN switch = switch * -1 - 1: flag = -1
                    SELECT CASE switch
                        CASE 0
                            IF ABS(z9 - TIMER) > .15 THEN
                                IF POS(0) < screenwidth% THEN COLOR icolor, ibk: LOCATE , POS(0) - 1: PRINT " " + tank$;: LOCATE , POS(0) - 2
                                tanky% = CSRLIN: tankx% = POS(0)
                                IF SCREEN(tanky%, tankx% - 2) = 25 OR SCREEN(tanky%, tankx% + 2) = 25 THEN result = -1: EXIT DO
                                z9 = TIMER
                            END IF
                        CASE -1
                            IF ABS(z9 - TIMER) > .15 THEN
                                IF POS(0) > lmargin% + 1 THEN COLOR icolor, ibk: LOCATE , POS(0) - 2: PRINT tank$ + " ";: LOCATE , POS(0) - 3
                                tanky% = CSRLIN: tankx% = POS(0)
                                IF SCREEN(tanky%, tankx% - 2) = 25 OR SCREEN(tanky%, tankx% + 2) = 25 THEN result = -1: EXIT DO
                                z9 = TIMER
                            END IF
                    END SELECT
                    IF icolor = 6 THEN
                        FOR i2 = 1 TO 5
                            IF bullet%(i2) = 0 THEN
                                icolor = 12: COLOR icolor, ibk: GOSUB redraw
                                bullet%(i2) = -1: reload = TIMER: EXIT FOR
                            END IF
                        NEXT
                    END IF
                CASE ""
                    IF flag THEN skip = 0: flag = 0
                CASE CHR$(27): SYSTEM
            END SELECT
 
            IF ABS(z1 - reload) > .6 AND reload <> 0 THEN
                GOSUB redraw
                icolor = 6: reload = 0
            END IF
 
            REM Fire
            FOR i = 1 TO 5
                SELECT CASE bullet%(i)
                    CASE -1: bullet%(i) = tanky% - 1: bulletcol%(i) = tankx%
                    CASE IS > 0
                        IF bulletdelay%(i) = -1 OR bullet%(i) = tanky% - 1 THEN
                            CALL checkcollision(ihitaliens, ialiencol, i4, i)
                            z2bullet = TIMER: bulletdelay%(i) = 0
                            COLOR 6, ibk
                            LOCATE bullet%(i), bulletcol%(i)
                            IF bullet%(i) = topmargin% AND imothership <> 0 THEN ' Hit mother ship.
                                IF SCREEN(ABS(bullet%(i)), bulletcol%(i)) <> 32 THEN
                                    SOUND 1000, .75
                                    SELECT CASE iresults + 1
                                        CASE 1: bonus = 1500
                                        CASE 2: bonus = 2500
                                        CASE 3: bonus = 5000
                                    END SELECT
                                    score$ = LTRIM$(STR$(VAL(score$) + bonus))
                                    score$ = STRING$(6 - LEN(score$), "0") + score$
                                    yy% = CSRLIN: xx% = POS(0)
                                    SOUND 800, .5: SOUND 1600, .5: SOUND 2400, .5
                                    LOCATE topmargin%, lmargin%: PRINT SPACE$(screenwidth%);
                                    kbonus = bulletcol%(i) - 4
                                    IF kbonus < lmargin% THEN kbonus = lmargin%
                                    IF kbonus + 10 > screenwidth% THEN kbonus = screenwidth% - 11
                                    zbonus = TIMER
                                    LOCATE yy%, xx%
                                    imothership = 0
                                END IF
                            END IF
                            PRINT CHR$(24) ' Tank missile.
                            IF CSRLIN <> 24 THEN LOCATE , bulletcol%(i): PRINT " ";
                            IF ihitaliens <> 0 THEN CALL reprintaliens(ialiencol, ihitaliens, iresults, i4, i, imothership)
                            LOCATE tanky%, tankx%
                            IF bullet%(i) > topmargin% THEN
                                bullet%(i) = bullet%(i) - 1
                            ELSE
                                GOSUB erasebullet
                            END IF
 
                            IF zbonus THEN
                                yy% = CSRLIN: xx% = POS(0)
                                LOCATE topmargin%, kbonus: COLOR 2 + 16: PRINT "BONUS " + LTRIM$(STR$(bonus));
                                LOCATE yy%, xx%
                            END IF
 
                        END IF
                END SELECT
            NEXT
 
            REM Bullet timer delay
            IF z2bullet <> 0 THEN
                IF z1 < z2bullet THEN z2bullet = z2bullet - 86400
                IF z1 - z2bullet >= .06 THEN
                    FOR i2 = 1 TO 5
                        IF bullet%(i2) <> 0 THEN bulletdelay%(i2) = -1
                    NEXT i2
                END IF
                EXIT DO
            END IF
        LOOP
        IF iresults < 0 THEN EXIT DO
        IF alienforce% = 0 OR iresults = iwin THEN
            FOR i = 1 TO imaxalienmissiles
                IF ia(i) <> 0 THEN EXIT FOR
            NEXT
            IF i > imaxalienmissiles THEN iwait = -1
            IF iwait = -1 THEN
                EXIT DO
            END IF
        ELSE
            iwait = 1
        END IF
    LOOP
 
    IF iresults = iwin OR iresults < 0 THEN
        REM end game
        EXIT DO
    END IF
    inextrnd = -1
LOOP
 
SELECT CASE iresults
    CASE -1 ' Tank destroyed!
        SOUND 800, .3: SOUND 250, 1
 
        FOR i = 1 TO 5
            COLOR 14, 4
            LOCATE tanky%, tankx% - 1: PRINT tank$;
            _DELAY .1
 
            COLOR 8, ibk
            LOCATE tanky%, tankx% - 1: PRINT tank$;
            _DELAY .1
        NEXT
 
        COLOR 6, ibk
        LOCATE tanky% - 1, lmargin%
        PRINT SPACE$(screenwidth%);
        LOCATE tanky%, lmargin%
        PRINT SPACE$(screenwidth%);
 
        _DELAY 2
 
        CALL qbide
 
    CASE -2 ' Aliens have landed!
        SOUND 1000, .3: SOUND 2400, .6:: SOUND 700, 2
 
        COLOR 7, 0
        FOR i = 0 TO 21 ' Blank out screen.
            LOCATE topmargin% + i, lmargin%: PRINT SPACE$(screenwidth%);
        NEXT
 
        COLOR 6, ibk
        LOCATE tanky% - 1, lmargin%
        PRINT SPACE$(screenwidth%);
        LOCATE tanky%, lmargin%
        PRINT SPACE$(screenwidth%);
 
        COLOR 8, ibk
 
        FOR j = imaxalienforce TO 1 STEP -1
            IF a(j) <> "" THEN EXIT FOR
        NEXT
 
        FOR i = j TO 1 STEP -1
            LOCATE , ialiencol + INSTR(a(i), "^^")
            PRINT LTRIM$(RTRIM$(a(i)));
            LOCATE CSRLIN - 1
        NEXT
 
        _DELAY 2.5
 
    CASE ELSE ' Winner.
 
        l$ = "12"
        n$ = "n29": PLAY "L" + l$ + n$: _DELAY .5
        n$ = "n24": PLAY "L" + l$ + n$: _DELAY .5
        n$ = "n33": PLAY "L" + l$ + n$: _DELAY .5
        n$ = "n29": PLAY "L" + l$ + n$
 
        CALL qbide
 
        RESTORE winner
 
END SELECT
 
 
COLOR 0, 3
LOCATE 25, 68: PRINT "Score "; score$;
 
CALL instructions
 
COLOR 6, 0
LOCATE 5, 3: PRINT "Score "; score$
 
DEF SEG = 0
DO
    _LIMIT 30
    b$ = INKEY$
    IF b$ = CHR$(27) THEN SYSTEM
    IF PEEK(1047) MOD 16 = 7 OR PEEK(1047) MOD 16 = 8 THEN EXIT DO
LOOP
DEF SEG
 
RUN skip_intro
 
erasebullet:
LOCATE ABS(bullet%(i)), bulletcol%(i): PRINT " ";
bullet%(i) = 0: bulletcol%(i) = 0: bulletdelay%(i) = 0
LOCATE tanky%, tankx%
RETURN
 
redraw:
COLOR , ibk: LOCATE tanky%, tankx% - 1: PRINT tank$;: LOCATE tanky%, tankx%: COLOR 7, ibk
RETURN
 
first_play:
DATA "The Great Pumpkin has fired an EM pulse at your computer."
DATA ""
DATA "All that's left working is your Alt key."
DATA ""
DATA "Happy Halloween!"
DATA ""
replay:
DATA "Loading..."
DATA "EOF"
DATA "Game Over. Thanks for playing..."
DATA "EOF2"
winner:
DATA "Congratulations, you saved the planet!"
DATA "EOF3"
 
 
SUB alienattack (ialiencol)
    z2alienfire = TIMER
 
    i3 = INT(RND * 10)
    FOR i = 1 TO imaxalienmissiles
        IF ia(i) = 0 THEN
            FOR i2 = imaxalienforce TO 1 STEP -1
                IF RTRIM$(a(i2)) <> "" THEN
                    IF MID$(matrix(i2), i3 + 1, 1) <> "0" THEN
                        i4 = INSTR(i3 * 7 + 1, a(i2), CHR$(79)) + ialiencol
                        EXIT FOR
                    END IF
                END IF
            NEXT i2
            IF i4 <> 0 THEN
                ia(i) = (ileadingmax - (imaxalienforce - i2) * 2) * 80 + i4
                EXIT FOR
            END IF
        END IF
    NEXT i
 
END SUB
 
SUB alienmissile (iresults)
    irow = CSRLIN: icol = POS(0)
    FOR i = 1 TO imaxalienmissiles
        IF ia(i) <> 0 THEN
            IF iy(i) = 0 THEN
                iy(i) = ia(i) \ 80: ix(i) = ia(i) MOD 80
                IF ix(i) = 0 THEN ix(i) = screenwidth%
            END IF
            LOCATE iy(i) + 1, ix(i)
            COLOR 6, ibk
            IF CSRLIN <= 24 THEN
                IF CSRLIN = 24 THEN IF SCREEN(CSRLIN, ix(i)) <> 32 THEN iresults = -1
                PRINT CHR$(25);
            ELSE
                ia(i) = 0
                LOCATE iy(i), ix(i)
                PRINT " ";: iy(i) = 0
                ia(i) = 0
                LOCATE irow, icol
                EXIT SUB
            END IF
            LOCATE iy(i), ix(i): PRINT " ";
            iy(i) = iy(i) + 1
        END IF
    NEXT
    LOCATE irow, icol
 
END SUB
 
SUB checkcollision (ihitaliens, ialiencol, i4, i)
    ihitaliens = 0
    IF ileadingmax MOD 2 = bullet%(i) MOD 2 THEN
        i4 = imaxalienforce - (ileadingmax - bullet%(i)) \ 2
        IF bullet%(i) <= ileadingrow AND i4 > 0 AND i4 <= imaxalienforce THEN
            IF RTRIM$(a(i4)) <> "" THEN
                IF bulletcol%(i) >= iltalien(i4) AND bulletcol%(i) - ialiencol <= LEN(RTRIM$(a(i4))) THEN
                    IF MID$(a(i4), bulletcol%(i) - ialiencol, 1) > CHR$(32) THEN
                        ihitaliens = bulletcol%(i) - ialiencol + 1
                        i3 = ihitaliens - 7 + 1: IF i3 < 1 THEN i3 = 1: REM count from the "<" symbol.
                        i2 = INSTR(i3 + 1, a(i4), "^" + CHR$(79)) - 1
                        MID$(a(i4), i2, 7) = SPACE$(7)
                        MID$(matrix(i4), (i2 + 1) \ 7 + 1, 1) = "0"
                    END IF
                END IF
            END IF
        END IF
    END IF
 
    FOR i2 = 1 TO imaxalienmissiles
        IF ia(i2) <> 0 THEN
            IF iy(i2) >= bullet%(i) AND ix(i2) = bulletcol%(i) THEN
                ihitaliens = -i2
                EXIT FOR
            END IF
        END IF
    NEXT
 
END SUB
 
SUB instructions
    IF in$ = "" THEN
        key$ = INKEY$
        LOCATE 3, 3, 1, 7, 0: COLOR 6, ibk
        _DELAY 2
        DO
            READ in$
            IF MID$(in$, 1, 3) = "EOF" THEN EXIT DO
            FOR i = 1 TO LEN(in$)
                SOUND 400, .07
                LOCATE , 2 + i
                PRINT MID$(in$, i, 1);
                z = TIMER
                DO
                    IF ABS(z - TIMER) > .08 THEN EXIT DO
                LOOP
            NEXT
            LOCATE , , 0, 7, 0
            _DELAY 1
            PRINT
            LOCATE , 3
        LOOP
        _DELAY 1
    END IF
 
    IF in$ = "EOF" THEN
        COLOR 7, 0
        FOR i = 0 TO 19 ' Blank out intro message space.
            LOCATE topmargin% + i, lmargin%: PRINT SPACE$(screenwidth%);
        NEXT
        FOR i = 3 TO 24
            LOCATE i, 80: PRINT CHR$(179);
        NEXT
        LOCATE 21, 2: PRINT STRING$(screenwidth%, " ");
        LOCATE 22, 1: PRINT CHR$(179);
        LOCATE 22, 80: PRINT CHR$(179);
        LOCATE 22, 2: PRINT STRING$(screenwidth%, " ");
    ELSE
        COLOR 0, 3
    END IF
 
    IF in$ <> "EOF2" AND iresults <> iwin THEN COLOR 0 + 16, 3 ELSE COLOR 0, 3
    yy% = CSRLIN: xx% = POS(0)
    LOCATE 25, 68: PRINT "Score ";
    COLOR 0, 3
    PRINT score$;
    LOCATE yy%, xx%
 
    PCOPY 0, 3: REM save skin
 
END SUB
 
SUB marchdown (ialiencol, ialiencolstat, imotion, iresults)
    COLOR 6, ibk
    ileadingrow = ileadingrow + 1
    ileadingmax = ileadingmax + 1
    COLOR 6, ibk
    FOR i = 1 TO imaxalienforce
        REM SOUND 400, .2 ' Level down.
        IF RTRIM$(a(i)) <> "" THEN
            ialiencol = ialiencolstat + imotion
            LOCATE ileadingmax - (imaxalienforce * 2) + i * 2 - 1, lmargin%
            PRINT STRING$(screenwidth%, " ")
            LOCATE , ialiencol + INSTR(a(i), "^^")
            iltalien(i) = POS(0)
            PRINT LTRIM$(RTRIM$(a(i)))
        END IF
    NEXT
    LOCATE irow, icol
    level = level - .025
    IF ileadingrow = 22 THEN iresults = -2 ' Aliens have landed!
END SUB
 
DEFSNG I
DEFINT I
SUB movealiens (ialiencol, ialiencolstat, iresults)
    STATIC imotion, imarch, imotiondir
 
    SOUND 800, .1: SOUND 200, .33 ' Marching sound.
 
    IF inextrnd = -1 THEN inextrnd = 0: imotion = 0: imarch = 0: imotiondir = 0
    irow = CSRLIN: icol = POS(0)
    yy% = CSRLIN: xx% = POS(0)
    PCOPY 0, 1: SCREEN 0, 0, 1, 0: LOCATE yy%, xx%, 0, 7, 0
    IF imotiondir = 0 THEN imotion = imotion - 1 ELSE imotion = imotion + 1
    COLOR 6, ibk
 
    FOR i = imaxalienforce TO 1 STEP -1
        IF RTRIM$(a(i)) <> "" THEN
            i2 = i2 + 2
            ialiencol = ialiencolstat + imotion
            LOCATE ileadingmax - (imaxalienforce - i) * 2, ialiencol + INSTR(a(i), "^^")
            IF POS(0) = lmargin% THEN imarch = 1
            iltalien(i) = POS(0)
            IF imotiondir = 0 THEN
                PRINT LTRIM$(RTRIM$(a(i))); " "
            ELSE
                LOCATE , POS(0) - 1
                PRINT " "; LTRIM$(RTRIM$(a(i)))
            END IF
            IF ialiencol + LEN(RTRIM$(a(i))) = screenwidth% THEN imarch = -1
        END IF
    NEXT
 
    IF imarch = 1 THEN imotiondir = 1: CALL marchdown(ialiencol, ialiencolstat, imotion, iresults)
    IF imarch = -1 THEN imotiondir = 0: CALL marchdown(ialiencol, ialiencolstat, imotion, iresults)
    IF imarch = 0 THEN
        IF ABS(TIMER - z2alienfire) > firerate THEN
            firerate = (INT(RND * 10) + 1) / 20
            IF iwait = 0 THEN CALL alienattack(ialiencol)
        END IF
    ELSE
        imarch = 0
    END IF
    PCOPY 1, 0: SCREEN 0, 0, 0, 0
    LOCATE irow, icol, 1, 7, 0
END SUB
 
SUB mship (imothership)
    STATIC x%, mov%, z4, mothership$
 
    yy% = CSRLIN: xx% = POS(0): COLOR 6, ibk
    IF imothership = -1 THEN
        imothership = 1
        x% = lmargin%
        mothership$ = CHR$(254) + CHR$(254) + "O" + CHR$(254) + CHR$(254)
        mov% = 1
    END IF
 
    IF ABS(TIMER - z4) > .05 THEN GOSUB mothership: z4 = TIMER: LOCATE yy%, xx%: EXIT SUB
    LOCATE yy%, xx%
    EXIT SUB
 
    mothership:
    IF x% + LEN(mothership$) = screenwidth% + lmargin% THEN mov% = -1 ELSE IF x% = lmargin% THEN mov% = 1
    x% = x% + mov%
    LOCATE topmargin%, x%
    PRINT mothership$;
    IF x% > 1 AND mov% = 1 THEN
        LOCATE , POS(0) - LEN(mothership$) - 1: PRINT " ";
    END IF
    IF mov% = -1 THEN PRINT " ";
    RETURN
 
END SUB
 
DEFINT A-H, J-Z
SUB qbide
    PALETTE 2, 59
    COLOR 15, 0
    CLS
 
    COLOR 0, 7
    LOCATE 1, 1
    PRINT SPACE$(80)
    LOCATE 1, 1: PRINT "   File  Edit  View  Search  Run  Debug  Calls  Options                   Help"
 
    COLOR 7, 0 ' Black background.
 
    LOCATE 2, 1: PRINT CHR$(218)
    LOCATE 2, 2: PRINT STRING$(78, CHR$(196))
    LOCATE 2, 80: PRINT CHR$(191)
 
    LOCATE 2, 76: PRINT CHR$(180)
    LOCATE 2, 78: PRINT CHR$(195)
 
    COLOR 0, 7
    LOCATE 2, 77: PRINT CHR$(24)
    LOCATE 2, 36: PRINT " Untitled "
 
    COLOR 7, 0
    FOR Rows = 3 TO 24
        LOCATE Rows, 1: PRINT CHR$(179);
        LOCATE Rows, 80: PRINT CHR$(179);
    NEXT Rows
 
    LOCATE 22, 1: PRINT CHR$(195)
    LOCATE 22, 80: PRINT CHR$(180)
    LOCATE 22, 2: PRINT STRING$(78, CHR$(196))
    LOCATE 22, 35
    PRINT " Immediate "
 
    COLOR 0, 7
    LOCATE 21, 3: PRINT STRING$(76, CHR$(176))
    LOCATE 21, 2: PRINT CHR$(27)
    LOCATE 21, 3: PRINT CHR$(219)
    LOCATE 21, 79: PRINT CHR$(26)
    FOR Rows = 4 TO 19
        LOCATE Rows, 80: PRINT CHR$(176)
    NEXT Rows
    LOCATE 3, 80: PRINT CHR$(24)
    LOCATE 4, 80: PRINT CHR$(219)
    LOCATE 20, 80: PRINT CHR$(25)
 
    COLOR 0, 3: LOCATE 25, 1: PRINT " <Shift+F1=Help> <F6=Window> <F2=Subs> <F5=Run> <F8=Step> ";
    LOCATE 25, 59: PRINT SPACE$(4);
    COLOR 0, 3
    LOCATE 25, 63: PRINT CHR$(179);
    LOCATE 25, 64: PRINT SPACE$(6);
    LOCATE 25, 68: PRINT "C  00001:001 ";
 
END SUB
 
DEFSNG A-H, J-Z
SUB reprintaliens (ialiencol, ihitaliens, iresults, i4, i, imothership)
    IF ihitaliens > 0 THEN
        ihits = ihits + 1
 
        SELECT CASE iresults + 1
            CASE 1: score$ = LTRIM$(STR$(VAL(score$) + 150))
            CASE 2: score$ = LTRIM$(STR$(VAL(score$) + 250))
            CASE 3: score$ = LTRIM$(STR$(VAL(score$) + 350))
        END SELECT
 
        score$ = STRING$(6 - LEN(score$), "0") + score$
        IF (ihits + 15) MOD 20 = 0 AND imothership = 0 THEN imothership = -1
        LOCATE bullet%(i), lmargin%: PRINT SPACE$(screenwidth%);
        iltalien(i4) = POS(0)
 
        IF RTRIM$(a(i4)) = "" THEN
            alienforce% = alienforce% - 1
            IF alienforce% = 0 THEN iresults = iresults + 1 ' Level completed. Goto to next level.
            IF bullet%(i) = ileadingrow THEN ileadingrow = ileadingrow - 2
        ELSE
            LOCATE bullet%(i), ialiencol + INSTR(a(i4), "^^"): PRINT LTRIM$(RTRIM$(a(i4)))
        END IF
    ELSE
        i2 = ABS(ihitaliens)
        LOCATE iy(i2), ix(i2)
        PRINT " ";: iy(i2) = 0
        ia(i2) = 0
        LOCATE irow, icol
        SOUND 1000, .5
    END IF
 
    ihitaliens = 0
    bullet%(i) = -bullet%(i)
 
    COLOR 0, 3
    yy% = CSRLIN: xx% = POS(0)
    LOCATE 25, 74: PRINT score$;
    LOCATE yy%, xx%
    COLOR 6, ibk
 
END SUB
 
SUB qbideOrig
    PALETTE 2, 59
    COLOR 15, 1
    CLS
 
    COLOR 0, 7
    LOCATE 1, 1
    PRINT SPACE$(80)
    LOCATE 1, 1: PRINT "   File  Edit  View  Search  Run  Debug  Calls  Options                   Help"
 
    COLOR 7, 1
 
    LOCATE 2, 1: PRINT CHR$(218)
    LOCATE 2, 2: PRINT STRING$(78, CHR$(196))
    LOCATE 2, 80: PRINT CHR$(191)
 
    LOCATE 2, 76: PRINT CHR$(180)
    LOCATE 2, 78: PRINT CHR$(195)
 
    COLOR 1, 7
    LOCATE 2, 77: PRINT CHR$(24)
    LOCATE 2, 36: PRINT " Untitled "
 
    COLOR 7, 1
    FOR Rows = 3 TO 24
        LOCATE Rows, 1: PRINT CHR$(179);
        LOCATE Rows, 80: PRINT CHR$(179);
    NEXT Rows
 
    LOCATE 22, 1: PRINT CHR$(195)
    LOCATE 22, 80: PRINT CHR$(180)
    LOCATE 22, 2: PRINT STRING$(78, CHR$(196))
    LOCATE 22, 35
    PRINT " Immediate "
 
    COLOR 0, 7
    LOCATE 21, 3: PRINT STRING$(76, CHR$(176))
    LOCATE 21, 2: PRINT CHR$(27)
    LOCATE 21, 3: PRINT CHR$(219)
    LOCATE 21, 79: PRINT CHR$(26)
    FOR Rows = 4 TO 19
        LOCATE Rows, 80: PRINT CHR$(176)
    NEXT Rows
    LOCATE 3, 80: PRINT CHR$(24)
    LOCATE 4, 80: PRINT CHR$(219)
    LOCATE 20, 80: PRINT CHR$(25)
 
    COLOR 0, 3: LOCATE 25, 1: PRINT " <Shift+F1=Help> <F6=Window> <F2=Subs> <F5=Run> <F8=Step> ";
    LOCATE 25, 59: PRINT SPACE$(4);
    COLOR 0, 3
    LOCATE 25, 63: PRINT CHR$(179);
    LOCATE 25, 64: PRINT SPACE$(6);
    LOCATE 25, 68: PRINT "C  00001:001 ";
 
END SUB
 
SUB TheBOB
   ' This sub routine created by Bob Seguin of the QBasic Forum. 
   SCREEN 12
 
    OUT &H3C8, 1: OUT &H3C9, 40: OUT &H3C9, 12: OUT &H3C9, 0
    OUT &H3C8, 2: OUT &H3C9, 6: OUT &H3C9, 12: OUT &H3C9, 0
    OUT &H3C8, 3: OUT &H3C9, 30: OUT &H3C9, 8: OUT &H3C9, 0
    OUT &H3C8, 4: OUT &H3C9, 3: OUT &H3C9, 8: OUT &H3C9, 0
    OUT &H3C8, 7: OUT &H3C9, 63: OUT &H3C9, 0: OUT &H3C9, 0
    OUT &H3C8, 8: OUT &H3C9, 46: OUT &H3C9, 0: OUT &H3C9, 0
    OUT &H3C8, 9: OUT &H3C9, 63: OUT &H3C9, 63: OUT &H3C9, 63
    OUT &H3C8, 12: OUT &H3C9, 20: OUT &H3C9, 20: OUT &H3C9, 20
    OUT &H3C8, 13: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, 0
    OUT &H3C8, 14: OUT &H3C9, 55: OUT &H3C9, 35: OUT &H3C9, 0
 
    CIRCLE (320, 240), 100, 3, , , .9
    PAINT (320, 240), 3
    CIRCLE (320, 230), 90, 1, , , .9
    PAINT (320, 230), 1
    FOR Reps = 1 TO 4
        SELECT CASE Reps
            DATA 1,1.2,1.8,5
            CASE 1: Elipse = 1
            CASE 2: Elipse = 1.2
            CASE 3: Elipse = 1.8
            CASE 4: Elipse = 5
        END SELECT
        FOR E = Elipse TO Elipse + .1 STEP .01
            CIRCLE (320, 240), 100, 3, , , E
        NEXT E
    NEXT Reps
    FOR Radius = 38 TO 43
        CIRCLE (320, 160), Radius, 3, , , .4
    NEXT Radius
    CIRCLE (320, 160), 40, 14, 3.3, 6, .4
    CIRCLE (320, 240), 100, 5, , , .9
    PAINT (0, 0), 5
    CIRCLE (320, 240), 100, 0, , , .9
    PAINT (0, 0), 0
    FOR Radius = 12 TO 18
        CIRCLE (320, 153), Radius, 2, , , .3
    NEXT Radius
    CIRCLE (320, 150), 12, 2, , , .6
    PAINT STEP(0, 0), 2
    CIRCLE (300, 143), 32, 2, 6, 1.1
    CIRCLE (276, 143), 32, 2, 6, .6
    DRAW "BM302,125 C2 M+15,-10 BD10 P2,2"
    PAINT (320, 145), 2
    CIRCLE (282, 143), 32, 4, 6, .73
    CIRCLE (266, 156), 60, 4, .1, .68
    CIRCLE (320, 150), 12, 4, 3.14159, 0, .2
    DRAW "BM302,125 C4 M+15,-10 BD10"
    CIRCLE (276, 143), 32, 4, 6, .6
    PAINT STEP(35, 0), 4
    'Face begins
    CIRCLE (303, 316), 100, 14, 1.5, 2
    CIRCLE (337, 316), 100, 14, 1.1, 1.64
    PSET (310, 215), 14
    DRAW "H30 M-20,+40 M+12,-4 M+14,-29 BL2 P14,14 BF12 P15,14"
    PSET (330, 215), 14
    DRAW "E30 M+20,+40 M-12,-4 M-14,-29 BR2 P14,14 BG12 P15,14"
    PSET (320, 246), 14
    DRAW "R20 H20 G20 R20 U nL19 nR19 BU2 P15,14"
    CIRCLE (320, 170), 100, 14, 3.8, 4.1
    CIRCLE (320, 170), 100, 14, 4.42, 5.01
    CIRCLE (320, 170), 100, 14, 5.33, 5.62
    CIRCLE (320, 220), 80, 14, 3.29, 4.5
    CIRCLE (320, 220), 80, 14, 4.66, 6.15
    PSET (260, 250), 14
    DRAW "D10 F8 U13 M+10,+5 D12 M+12,+6 U12 BR60"
    DRAW "D12 M+12,-6 U12 M+10,-5 D13 E8 U10"
    PSET (300, 297), 14
    DRAW "U14 R16 D16"
    CIRCLE (320, 212), 80, 14, 3.42, 4.5
    CIRCLE (320, 212), 80, 14, 4.66, 6
    LINE (300, 280)-(316, 283), 14, BF
    PAINT (320, 296), 14
    PAINT (290, 292), 14
    PAINT (300, 278), 15, 14
    CIRCLE (100, 240), 32, 13
    PAINT STEP(0, 0), 13
    FOR x% = 58 TO 142
        FOR y% = 198 TO 282
            IF POINT(x%, y%) = 13 THEN
                IF POINT(x% + 220, y%) = 15 THEN PSET (x% + 220, y%), 9
            END IF
        NEXT y%
    NEXT x%
 
    COLOR 13: LOCATE 1, 1: PRINT "HAPPY HALLOWEEN!"
    xx = 64: yy = 360
    FOR x% = 0 TO 300
        FOR y% = 0 TO 16
            IF POINT(x%, y%) = 13 THEN
                IF y% > 6 THEN Colr = 8 ELSE Colr = 7
                LINE (x% * 4 + xx, y% * 4 + yy)-(x% * 4 + xx + 3, y% * 4 + yy + 3), Colr, BF
            END IF
        NEXT y%
    NEXT x%
    FOR x% = 0 TO 639
        IF POINT(x%, 368) <> 0 THEN PSET (x%, 368), 14
    NEXT x%
    LINE (5, 5)-(634, 474), 12, B
    LINE (8, 8)-(631, 471), 12, B
    LINE (50, 354)-(580, 420), 15, B
 
    z1 = TIMER
    DO UNTIL ABS(TIMER - z1) > 4
        FOR Reps = 1 TO 3
            WAIT &H3DA, 8
            WAIT &H3DA, 8, 8
        NEXT Reps
 
        Flicker = FIX(RND * 20)
        OUT &H3C8, 14
        OUT &H3C9, 40 + Flicker
        OUT &H3C9, 25 + Flicker
        OUT &H3C9, 10 + Flicker
 
        OUT &H3C8, 15
        OUT &H3C9, 43 + Flicker
        OUT &H3C9, 38 + Flicker
        OUT &H3C9, 20 + Flicker
    LOOP
    SCREEN 0, 0, 0, 0
END SUB

[ You are not allowed to view this attachment ]

Pete

bplus · « **Reply #71 on:** October 08, 2021, 11:33:18 pm »

@Pete Great (Pumpkin) Opening!

24750 is a level and almost the 2nd. Was it Black and Red before? good choice.

johnno56 · « **Reply #72 on:** October 09, 2021, 12:48:52 am »

Pete,

My apologies for my shameless display of ebullience. You are correct. Quite out of order.

J

Pete · « **Reply #73 on:** October 09, 2021, 01:32:55 am »

@johnno56 Did you see this thread from this link to page 2? https://www.qb64.org/forum/index.php?topic=4243.msg136169#msg136169

That's the one that also lead to my Elton John song parody. Quite logical!

Pete

SMcNeill · « **Reply #74 on:** October 09, 2021, 03:26:16 am »

Quote from: johnno56 on October 09, 2021, 12:48:52 am

Pete,

My apologies for my shameless display of ebullience. You are correct. Quite out of order.

J

E-bullies are NOT nice! No matter what you and your auto-correct might say.

News:

Author Topic: Competition (Read 35216 times)

Pete

Re: Competition

bplus

Re: Competition

Pete

Re: Competition

Pete

Re: Competition

bplus

Re: Competition

Pete

Re: Competition

bplus

Re: Competition

Pete

Re: Competition

johnno56

Re: Competition

Pete

Re: Competition

Pete

Re: Competition

bplus

Re: Competition

johnno56

Re: Competition

Pete

Re: Competition

SMcNeill

Re: Competition