DIM keypress AS STRING
SCREEN 12

COMMON SHARED x AS SINGLE, y AS SINGLE, xx AS SINGLE, yy AS SINGLE, score AS SINGLE, cc AS SINGLE, eclor AS SINGLE, range AS SINGLE, weapon AS SINGLE, ammo AS SINGLE, clr AS SINGLE

yy = 100
xx = 200
weapon = 1
ammo = 15
health = 3

DO

    keypress = UCASE$(INKEY$)

    hit

    IF keypress = "W" THEN
        y = y - 1
        CLS
        acls
    END IF

    IF keypress = "S" THEN
        y = y + 1
        CLS
        acls
    END IF

    IF keypress = "A" THEN
        x = x - 1
        CLS
        acls
    END IF

    IF keypress = "D" THEN
        x = x + 1
        CLS
        acls
    END IF

    IF keypress = "E" THEN
        SOUND 1000, 1
        ammo = ammo - 1
        FOR x2 = x TO x + range
            CIRCLE (x2, y), 3, clr
            FOR d = 1 TO 1000000
            NEXT d
            CLS
            ashot
            acls

        NEXT x2
        ' dead
    END IF

    IF keypress = "Q" THEN
        wepswitch
        CLS
        acls

    END IF







    IF keypress = "E" AND x + range = xx AND y = yy THEN
        dead
        score = score + 1
        CLS
        ammo = ammo + 5
        acls
    END IF





    CIRCLE (x, y), 10, 2
    enemy
    hbar





LOOP UNTIL keypress = "K" OR ammo = 0


SUB acls
PRINT "SCORE"; score; "Weapon"; weapon; "AMMO"; ammo
END SUB

SUB ashot
CIRCLE (x, y), 10, 2
enemy
hbar
END SUB

SUB enemy
CIRCLE (xx, yy), 10, 4
END SUB

SUB dead
RANDOMIZE TIMER
xx = INT(RND * 640)
RANDOMIZE TIMER
yy = INT(RND * 480)
END SUB




SUB wepswitch
weapon = weapon + 1
IF weapon > 3 THEN weapon = 1

IF weapon = 1 THEN
    range = 50
    clr = 2
END IF
IF weapon = 2 THEN
    range = 120
    clr = 4
END IF
IF weapon = 3 THEN
    range = 300
    clr = 14
END IF


END SUB