Оцените игру ShotGun

CHDIR ".\game"
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
'
'        ±±    ±± ±±±±±± ±±±±±± ±± ±±±±±  ±±±±±± ±±±   ±±  ±±±±±±±±±±
'        ±±    ±± ±±  ±± ±±  ±± ±±    ±±  ±±  ±± ±± ±± ±±      ±±
'        ±±±±±±±± ±±  ±± ±±±±±± ±±   ±±   ±±  ±± ±±  ±±±±      ±±
'        ±±    ±± ±±  ±± ±± ±±  ±±  ±±    ±±  ±± ±±   ±±±      ±±
'        ±±    ±± ±±±±±± ±±  ±± ±± ±±±±±± ±±±±±± ±±    ±±      ±±
'
'         M I R I D I N    E N T E R T A I N M E N T  -  2 0 1 5
'
'
'               Game Name:  Miridin TANK COMMANDER Horizont version 1.3 ALPHA
'                   Programmer:  Petrov Mihail Denisovech
'                     Completed:  Sentember 22, 2015
'
'
'                               * * * *
'
'Are as follows:
'
'BLUE TANK  - up:  8
'             down:  2
'             left:  4
'             right:  6
'             brakes:  5
'             shoot:  0
'
'GREEN TANK - up:  W
'             down:  S
'             left:  A
'             right:  D
'             brakes:  Q
'             shoot:  SPACE BAR
'File list for Qbasic TANK COMMANDER v2:
'
'*  TCV2.BAS....................Game code file.
'*  ARENA.BSV...................BSAVEd graphics file for game arena.
'*  SPRITES.BSV.................BSAVEd graphics file for sprites.
'
'**************************** PRESS <ENTER> TO PLAY!! *************************
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 
'Define variables A-Z as integers.
DEFINT A-Z
 
'Define the data TYPE, PaletteType.
TYPE PaletteType
    Red AS INTEGER
    Green AS INTEGER
    Blue AS INTEGER
END TYPE
 
'SHAREing of certain variables.
DIM SHARED Pal AS PaletteType
DIM SHARED pData(0 TO 255, 1 TO 3)
 
'Declaration of various SUBs.
DECLARE SUB PALETTE.Set (nColor%, pInfo AS PaletteType)
DECLARE SUB PALETTE.GET (nColor%, pInfo AS PaletteType)
DECLARE SUB PALETTE.FadeOut ()
DECLARE SUB PALETTE.FadeIn ()
 
'Change the default directory to the one being used for TANK COMMANDER. When
'setting this, remember to uncomment it.
'CHDIR ""
 
'Initial values of various variables.
D1 = 2: D2 = 4: T1H = 6: T1V = 87: T2H = 300: T2V = 102: Speed = 550
 
'Customise the VGA color palette for the introductory text.
SCREEN 13
C = 16: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * A) + (256 * 0) + 0: C = C + 1: NEXT
C = 32: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * 0) + (256 * A) + 0: C = C + 1: NEXT
C = 48: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * 0) + (256 * 0) + A: C = C + 1: NEXT
C = 64: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * A) + (256 * A) + 0: C = C + 1: NEXT
C = 80: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * A) + (256 * 0) + A: C = C + 1: NEXT
C = 96: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * 0) + (256 * A) + A: C = C + 1: NEXT
C = 112: B = 0: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * A) + (256 * B) + 0: B = B + 3: C = C + 1: NEXT
C = 128: B = 0: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * B) + (256 * 0) + A: B = B + 3: C = C + 1: NEXT
C = 144: B = 0: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * B) + (256 * A) + 0: B = B + 3: C = C + 1: NEXT
C = 160: B = 0: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * B) + (256 * A) + A: B = B + 3: C = C + 1: NEXT
C = 176: B = 0: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * A) + (256 * A) + A: C = C + 1: NEXT
C = 192: B = 12: AA = 0: FOR A = 30 TO 62 STEP 2: PALETTE C, (256 ^ 2 * B) + (256 * AA) + A: B = B + 2: C = C + 1: NEXT
C = 208: B = 12: AA = 0: FOR A = 30 TO 62 STEP 2: PALETTE C, (256 ^ 2 * B) + (256 * B) + A: B = B + 2: C = C + 1: NEXT
C = 224: B = 12: AA = 0: FOR A = 30 TO 62 STEP 2: PALETTE C, (256 ^ 2 * AA) + (256 * B) + A: B = B + 2: C = C + 1: NEXT
 
'Do presentation text.
PALETTE.FadeOut
COLOR 1
LOCATE 11, 14: PRINT  "M I R I D I N"
LOCATE 13, 13: PRINT "P R E S E N T S"
COLOR 9
LOCATE 20, 16: PRINT "*********"
LOCATE 17, 16: PRINT "*********"
LOCATE 18, 16: PRINT "*"
LOCATE 19, 16: PRINT "*"
LOCATE 19, 24: PRINT "*"
LOCATE 18, 24: PRINT "*"
COLOR 2
LOCATE 18, 18: PRINT "ALPHA "
COLOR 6
LOCATE 19, 17: PRINT " v 1.3 "
COLOR 1
'Color in "M I R I D I N" with various shades of blue.
Y = 72: C = 32
DO
    FOR X = 1 TO 300
        IF POINT(X, Y) > 0 THEN PSET (X, Y), C + RND * 17
    NEXT
    Y = Y + 1
LOOP UNTIL Y = 79
 
'Color in "PRESENTS" with various shades of red. Once this has been done,
'fade in the screen, melt it, and then fade out.
Y = 96: C = 49
DO
    FOR X = 1 TO 300
        IF POINT(X, Y) > 0 THEN PSET (X, Y), C + RND * 17
    NEXT
    Y = Y + 1
LOOP UNTIL Y = 103
PALETTE.FadeIn
NOW! = TIMER: WHILE (TIMER - 3) < NOW!: WEND
DIM Melt%(1700)
FOR R = 1 TO 1700
    RANDOMIZE TIMER
    X = INT(RND * 271)
    RANDOMIZE TIMER
    Y = INT(RND * 170)
    GET (X, Y)-(X + 48, Y + 18), Melt%
    PUT (X, Y + 1), Melt%, PSET
    IF INKEY$ = CHR$(27) THEN END
NEXT
PALETTE.FadeOut
CLS : PALETTE: PALETTE.FadeOut
 
'GET the sprite data.
DEF SEG = 40960: BLOAD "sprites.bsv"
DIM Tank1(150): GET (1, 1)-(15, 10), Tank1
DIM Tank2(150): GET (1, 14)-(15, 23), Tank2
DIM Tank3(150): GET (1, 27)-(15, 36), Tank3
DIM Tank4(150): GET (1, 40)-(15, 49), Tank4
DIM Tank5(150): GET (20, 1)-(34, 10), Tank5
DIM Tank6(150): GET (20, 14)-(34, 23), Tank6
DIM Tank7(150): GET (20, 27)-(34, 36), Tank7
DIM Tank8(150): GET (20, 40)-(34, 49), Tank8
 
'Load the file ARENA.BSV, which is the graphics data for the arena, into the
'video memory segment (segment 40960).
BLOAD "arena.bsv"
 
'Place both tanks in their initial positions and fade in the completed arena.
PUT (T1H, T1V), Tank1, PSET
PUT (T2H, T2V), Tank6, PSET
PALETTE.FadeIn
 
'Main program loop.
DO
 
    'IF Count < Speed THEN Count = Count + 1 ELSE Count = 0
    WAIT &H3DA, 8: WAIT &H3DA, 8, 8
 
    IF Go1 = 1 AND Count = 0 THEN
        IF D1 = 1 AND T1V > 26 THEN T1V = T1V - 1: PUT (T1H, T1V), Tank3, PSET
        IF D1 = 2 AND T1H < 305 THEN T1H = T1H + 1: PUT (T1H, T1V), Tank1, PSET
        IF D1 = 3 AND T1V < 190 THEN T1V = T1V + 1: PUT (T1H, T1V), Tank4, PSET
        IF D1 = 4 AND T1H > 0 THEN T1H = T1H - 1: PUT (T1H, T1V), Tank2, PSET
    END IF
    IF Go2 = 1 AND Count = 0 THEN
        IF D2 = 1 AND T2V > 26 THEN T2V = T2V - 1: PUT (T2H, T2V), Tank7, PSET
        IF D2 = 2 AND T2H < 305 THEN T2H = T2H + 1: PUT (T2H, T2V), Tank5, PSET
        IF D2 = 3 AND T2V < 190 THEN T2V = T2V + 1: PUT (T2H, T2V), Tank8, PSET
        IF D2 = 4 AND T2H > 0 THEN T2H = T2H - 1: PUT (T2H, T2V), Tank6, PSET
    END IF
    IF St1 = 30 THEN St1 = 0: Fire1 = 0: PSET (B1H, B1V), Col
    IF St2 = 30 THEN St2 = 0: Fire2 = 0: PSET (B2H, B2V), Col2
    IF Fire1 = 1 AND St1 < 30 AND Count = 0 THEN
        PSET (B1H, B1V), Col
        IF BD1 = 1 THEN B1V = B1V - 2
        IF BD1 = 2 THEN B1H = B1H + 2
        IF BD1 = 3 THEN B1V = B1V + 2
        IF BD1 = 4 THEN B1H = B1H - 2
        Col = POINT(B1H, B1V)
        PSET (B1H, B1V), 14
        St1 = St1 + 1
        GOSUB CheckBullet1
    END IF
    IF Fire2 = 1 AND St2 < 30 AND Count = 0 THEN
        PSET (B2H, B2V), Col2
        IF BD2 = 1 THEN B2V = B2V - 2
        IF BD2 = 2 THEN B2H = B2H + 2
        IF BD2 = 3 THEN B2V = B2V + 2
        IF BD2 = 4 THEN B2H = B2H - 2
        Col2 = POINT(B2H, B2V)
        PSET (B2H, B2V), 14
        St2 = St2 + 1
        GOSUB CheckBullet2
    END IF
    KEY$ = INKEY$
    IF KEY$ = CHR$(27) THEN PALETTE.FadeOut: GOTO Results
    IF KEY$ = "4" THEN Go1 = 1: D1 = 4
    IF KEY$ = "6" THEN Go1 = 1: D1 = 2
    IF KEY$ = "8" THEN Go1 = 1: D1 = 1
    IF KEY$ = "2" THEN Go1 = 1: D1 = 3
    IF KEY$ = "0" THEN IF Fire1 = 0 THEN GOSUB Shoot1
    IF KEY$ = "5" THEN Go1 = 0
    IF KEY$ = "A" OR KEY$ = "a" THEN Go2 = 1: D2 = 4
    IF KEY$ = "D" OR KEY$ = "d" THEN Go2 = 1: D2 = 2
    IF KEY$ = "W" OR KEY$ = "w" THEN Go2 = 1: D2 = 1
    IF KEY$ = "S" OR KEY$ = "s" THEN Go2 = 1: D2 = 3
    IF KEY$ = "Q" OR KEY$ = "q" THEN Go2 = 0
    IF KEY$ = CHR$(32) THEN IF Fire2 = 0 THEN GOSUB Shoot2
LOOP
 
Shoot1:  'Initiates the shooting from Tank 1.
BD1 = D1
IF BD1 = 0 THEN RETURN
IF BD1 = 1 THEN B1H = (T1H + 7): B1V = (T1V - 1)
IF BD1 = 2 THEN B1H = (T1H + 14): B1V = (T1V + 5)
IF BD1 = 3 THEN B1H = (T1H + 7): B1V = (T1V + 11)
IF BD1 = 4 THEN B1H = (T1H - 1): B1V = (T1V + 5)
St1 = 1: Fire1 = 1: Col = POINT(B1H, B1V)
RETURN
 
Shoot2:  'Initiates the shooting from Tank 2.
BD2 = D2
IF BD2 = 0 THEN RETURN
IF BD2 = 1 THEN B2H = (T2H + 7): B2V = (T2V - 1)
IF BD2 = 2 THEN B2H = (T2H + 14): B2V = (T2V + 5)
IF BD2 = 3 THEN B2H = (T2H + 7): B2V = (T2V + 11)
IF BD2 = 4 THEN B2H = (T2H - 1): B2V = (T2V + 5)
St2 = 1: Fire2 = 1: Col2 = POINT(B2H, B2V)
RETURN
 
CheckBullet1:  'Hit detection from Tank 1 bullet.
T2V = T2V + 2: T2H = T2H + 3
FOR ScanTank2 = 1 TO 7
    FOR Scan = 1 TO 9
        IF B1H = T2H AND B1V = T2V THEN Crash = 2: GOTO Explode
        T2H = T2H + 1
    NEXT
    T2H = T2H - 9: T2V = T2V + 1
NEXT
T2V = T2V - 9: T2H = T2H - 3
RETURN
 
CheckBullet2:  'Hit detection from Tank 2 bullet.
T1V = T1V + 2: T1H = T1H + 3
FOR ScanTank1 = 1 TO 7
    FOR Scan = 1 TO 9
        IF B2H = T1H AND B2V = T1V THEN Crash = 1: GOTO Explode
        T1H = T1H + 1
    NEXT
    T1H = T1H - 9: T1V = T1V + 1
NEXT
T1V = T1V - 9: T1H = T1H - 3
RETURN
 
Explode:  'Create very cheap graphic explosion.
IF Crash = 1 THEN ExplodeH = T1H: ExplodeV = T1V: T2Wins = 1
IF Crash = 2 THEN ExplodeH = T2H: ExplodeV = T2V: T1Wins = 1
FOR Explode = 1 TO 9
    IF Explode = 1 THEN Col = 14
    IF Explode = 5 THEN Col = 12
    IF Explode = 7 THEN Col = 4
    CIRCLE (ExplodeH, ExplodeV), Explode, Col
    NOW! = TIMER: WHILE (TIMER - .02) < NOW!: WEND
NEXT
NOW! = TIMER: WHILE (TIMER - 1.2) < NOW!: WEND
PALETTE.FadeOut
 
Results:  'Announce the winning tank and display credits.
SCREEN 0: WIDTH 66, 27
COLOR 12, 4
PRINT " G A M E   R E S U L T S "
PRINT
COLOR 9, 0
PRINT "Blue tank wins:"
COLOR 4
LOCATE 3, 17: PRINT T1Wins
COLOR 2
PRINT "Green tank wins:"
COLOR 4
LOCATE 4, 18: PRINT T2Wins
PRINT
COLOR 12, 4
PRINT " C R E D I T S "
PRINT
COLOR 3, 0
PRINT "Concept:"
PRINT "Programming:"
PRINT "Game art:"
PRINT "Fade effect:"
PRINT "Testing:"
PRINT "Debugging:"
COLOR 2
LOCATE 8, 11: PRINT "Miridin"
LOCATE 9, 15: PRINT "Misha Petrov"
LOCATE 10, 12: PRINT "Misha Petrov"
LOCATE 11, 15: PRINT "Misha Petrov"
COLOR 12
LOCATE 12, 11: PRINT "ALPHA"
COLOR 2
LOCATE 13, 13: PRINT "MIsha Petrov"
PRINT
COLOR 9
PRINT "All programmed by Mihail Petrov."
PRINT
COLOR 4,9
PRINT "Thank you for playing TANK COMMANDER Horizont v1.3 ALPHA !!!"
PRINT "Everything is made in QBASIC"
COLOR 2,0
PRINT ""
PRINT ""
LOCATE 25, 15 :PRINT "Made in POCTOB-HA-DOHY!"
COLOR 9,0
 
 
SUB PALETTE.FadeIn
DIM tT(1 TO 3)
FOR I = 1 TO 64
    WAIT &H3DA, 8, 8
    FOR O = 0 TO 255
        PALETTE.GET O, Pal
        tT(1) = Pal.Red
        tT(2) = Pal.Green
        tT(3) = Pal.Blue
        IF tT(1) < pData(O, 1) THEN tT(1) = tT(1) + 1
        IF tT(2) < pData(O, 2) THEN tT(2) = tT(2) + 1
        IF tT(3) < pData(O, 3) THEN tT(3) = tT(3) + 1
        Pal.Red = tT(1)
        Pal.Green = tT(2)
        Pal.Blue = tT(3)
        PALETTE.Set O, Pal
    NEXT
NEXT
END SUB
 
SUB PALETTE.FadeOut
DIM tT(1 TO 3)
FOR I = 0 TO 255
    PALETTE.GET I, Pal
    pData(I, 1) = Pal.Red
    pData(I, 2) = Pal.Green
    pData(I, 3) = Pal.Blue
NEXT
FOR I = 1 TO 64
    WAIT &H3DA, 8, 8
    FOR O = 0 TO 255
        PALETTE.GET O, Pal
        tT(1) = Pal.Red
        tT(2) = Pal.Green
        tT(3) = Pal.Blue
        IF tT(1) > 0 THEN tT(1) = tT(1) - 1
        IF tT(2) > 0 THEN tT(2) = tT(2) - 1
        IF tT(3) > 0 THEN tT(3) = tT(3) - 1
        Pal.Red = tT(1)
        Pal.Green = tT(2)
        Pal.Blue = tT(3)
        PALETTE.Set O, Pal
    NEXT
NEXT
END SUB
 
SUB PALETTE.GET (nColor%, pInfo AS PaletteType)
OUT &H3C6, &HFF
OUT &H3C7, nColor%
pInfo.Red = INP(&H3C9)
pInfo.Green = INP(&H3C9)
pInfo.Blue = INP(&H3C9)
END SUB
 
SUB PALETTE.Set (nColor%, pInfo AS PaletteType)
OUT &H3C6, &HFF
OUT &H3C8, nColor%
OUT &H3C9, pInfo.Red
OUT &H3C9, pInfo.Green
OUT &H3C9, pInfo.Blue
END SUB