GORILLAS in BASIC #2196

toncho11 · 2025-01-21T19:59:24Z

toncho11
Jan 21, 2025

Version 1 that should be compatible with our BASIC


10 REM ** GORILLAS GAME **
20 REM ** SET GRAPHICS MODE AND CLEAR SCREEN **
30 MODE 1
40 CLS

50 REM ** CONSTANTS **
60 LET GRAVITY = 0.1
70 LET SCREEN_WIDTH = 320
80 LET SCREEN_HEIGHT = 200

90 REM ** PLAYER POSITIONS **
100 LET GX1 = 50 : LET GY1 = 150   ' Gorilla 1 (Player 1)
110 LET GX2 = 270 : LET GY2 = 130  ' Gorilla 2 (Player 2 or AI)

120 REM ** DRAW SKYLINE **
130 FOR X = 0 TO 300 STEP 50
140   LET HEIGHT = INT(RND * 100) + 50
150   PLOT X, SCREEN_HEIGHT
160   DRAW 0, -HEIGHT
170 NEXT X

180 REM ** DRAW GORILLAS **
190 PLOT GX1, GY1 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5
200 PLOT GX2, GY2 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5

210 REM ** GAME MODE SELECTION **
220 PRINT "GORILLAS GAME: SELECT MODE"
230 PRINT "1: SINGLE PLAYER (VS AI)"
240 PRINT "2: TWO PLAYERS"
250 INPUT "ENTER CHOICE (1 OR 2): ", MODE

260 REM ** GAME LOOP **
270 FOR TURN = 1 TO 10
280   REM ** DETERMINE PLAYER TURN **
290   IF TURN MOD 2 = 1 THEN
300     PRINT "PLAYER 1'S TURN!"
310     INPUT "ANGLE (0-90)? ", A
320     INPUT "VELOCITY? ", V
330     LET GX = GX1 : LET GY = GY1
340   ELSE
350     IF MODE = 2 THEN
360       PRINT "PLAYER 2'S TURN!"
370       INPUT "ANGLE (0-90)? ", A
380       INPUT "VELOCITY? ", V
390       LET GX = GX2 : LET GY = GY2
400     ELSE
410       REM ** AI CALCULATES ANGLE AND VELOCITY **
420       PRINT "AI'S TURN..."
430       LET A = INT(RND * 45) + 30 ' Random angle between 30-75
440       LET V = INT(RND * 10) + 20 ' Random velocity between 20-30
450       PRINT "AI CHOOSES ANGLE="; A; " VELOCITY="; V
460       LET GX = GX2 : LET GY = GY2
470     END IF
480   END IF

490   REM ** CONVERT ANGLE TO RADIANS **
500   LET A = A * PI / 180

510   REM ** THROW BANANA **
520   FOR T = 0 TO 50 STEP 0.1
530     LET BX = GX + V * COS(A) * T
540     LET BY = GY - (V * SIN(A) * T - 0.5 * GRAVITY * T^2)
550     IF BX < 0 OR BX > SCREEN_WIDTH OR BY > SCREEN_HEIGHT THEN EXIT FOR
560     PLOT INT(BX), INT(BY)
570     PAUSE 10
580     PLOT INT(BX), INT(BY)
590     REM ** CHECK COLLISION **
600     IF ABS(BX - GX1) < 5 AND ABS(BY - GY1) < 5 THEN GOTO 800
610     IF ABS(BX - GX2) < 5 AND ABS(BY - GY2) < 5 THEN GOTO 900
620   NEXT T
630   PRINT "MISS!"
640   NEXT TURN

650 PRINT "GAME OVER!"
660 END

670 REM ** EXPLOSION EFFECT **
680 SUB EXPLOSION(X, Y)
690 FOR R = 1 TO 10
700   CIRCLE X, Y, R
710   PAUSE 20
720 NEXT R
730 FOR R = 10 TO 1 STEP -1
740   CIRCLE X, Y, R
750   PAUSE 20
760 NEXT R
770 END SUB

780 REM ** PLAYER 2 OR AI WINS **
800 PRINT "PLAYER 2 (OR AI) WINS!"
810 CALL EXPLOSION(GX1, GY1)
820 STOP

830 REM ** PLAYER 1 WINS **
900 PRINT "PLAYER 1 WINS!"
910 CALL EXPLOSION(GX2, GY2)
920 STOP

toncho11 · 2025-01-21T20:04:21Z

toncho11
Jan 21, 2025
Author

version 2 with better visual effects:

10 REM ** GORILLAS GAME WITH BUILDINGS AND SUN **
20 REM ** SET GRAPHICS MODE AND CLEAR SCREEN **
30 MODE 1
40 CLS

50 REM ** CONSTANTS **
60 LET GRAVITY = 0.1
70 LET SCREEN_WIDTH = 320
80 LET SCREEN_HEIGHT = 200
90 LET BUILDING_WIDTH = 40
100 LET WINDOW_SIZE = 5
110 LET SUN_X = 280 : LET SUN_Y = 40 : LET SUN_RADIUS = 15

120 REM ** DRAW BACKGROUND: SUN AND SKYLINE **
130 GOSUB 1000  ' Draw the sun
140 GOSUB 1100  ' Draw the buildings

150 REM ** PLAYER POSITIONS (TOP OF RANDOM BUILDINGS) **
160 LET GX1 = BUILDING_X1 + BUILDING_WIDTH / 2 : LET GY1 = BUILDING_Y1 - 5
170 LET GX2 = BUILDING_X2 + BUILDING_WIDTH / 2 : LET GY2 = BUILDING_Y2 - 5

180 REM ** DRAW GORILLAS **
190 PLOT GX1, GY1 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5
200 PLOT GX2, GY2 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5

210 REM ** GAME MODE SELECTION **
220 PRINT "GORILLAS GAME: SELECT MODE"
230 PRINT "1: SINGLE PLAYER (VS AI)"
240 PRINT "2: TWO PLAYERS"
250 INPUT "ENTER CHOICE (1 OR 2): ", MODE

260 REM ** GAME LOOP **
270 FOR TURN = 1 TO 10
280   REM ** DETERMINE PLAYER TURN **
290   IF TURN MOD 2 = 1 THEN
300     PRINT "PLAYER 1'S TURN!"
310     INPUT "ANGLE (0-90)? ", A
320     INPUT "VELOCITY? ", V
330     LET GX = GX1 : LET GY = GY1
340   ELSE
350     IF MODE = 2 THEN
360       PRINT "PLAYER 2'S TURN!"
370       INPUT "ANGLE (0-90)? ", A
380       INPUT "VELOCITY? ", V
390       LET GX = GX2 : LET GY = GY2
400     ELSE
410       REM ** AI CALCULATES ANGLE AND VELOCITY **
420       PRINT "AI'S TURN..."
430       LET A = INT(RND * 45) + 30 ' Random angle between 30-75
440       LET V = INT(RND * 10) + 20 ' Random velocity between 20-30
450       PRINT "AI CHOOSES ANGLE="; A; " VELOCITY="; V
460       LET GX = GX2 : LET GY = GY2
470     END IF
480   END IF

490   REM ** CONVERT ANGLE TO RADIANS **
500   LET A = A * PI / 180

510   REM ** THROW BANANA **
520   FOR T = 0 TO 50 STEP 0.1
530     LET BX = GX + V * COS(A) * T
540     LET BY = GY - (V * SIN(A) * T - 0.5 * GRAVITY * T^2)
550     IF BX < 0 OR BX > SCREEN_WIDTH OR BY > SCREEN_HEIGHT THEN EXIT FOR
560     PLOT INT(BX), INT(BY)
570     PAUSE 10
580     PLOT INT(BX), INT(BY)
590     REM ** CHECK COLLISION **
600     IF ABS(BX - GX1) < 5 AND ABS(BY - GY1) < 5 THEN GOTO 800
610     IF ABS(BX - GX2) < 5 AND ABS(BY - GY2) < 5 THEN GOTO 900
620   NEXT T
630   PRINT "MISS!"
640   NEXT TURN

650 PRINT "GAME OVER!"
660 END

670 REM ** EXPLOSION EFFECT **
680 SUB EXPLOSION(X, Y)
690 FOR R = 1 TO 10
700   CIRCLE X, Y, R
710   PAUSE 20
720 NEXT R
730 FOR R = 10 TO 1 STEP -1
740   CIRCLE X, Y, R
750   PAUSE 20
760 NEXT R
770 END SUB

780 REM ** PLAYER 2 OR AI WINS **
800 PRINT "PLAYER 2 (OR AI) WINS!"
810 CALL EXPLOSION(GX1, GY1)
820 STOP

830 REM ** PLAYER 1 WINS **
900 PRINT "PLAYER 1 WINS!"
910 CALL EXPLOSION(GX2, GY2)
920 STOP

1000 REM ** DRAW SUN **
1010 FOR R = SUN_RADIUS TO 1 STEP -1
1020   CIRCLE SUN_X, SUN_Y, R
1030 NEXT R
1040 RETURN

1100 REM ** DRAW BUILDINGS WITH WINDOWS **
1110 REM ** Random Building Heights **
1120 LET BUILDING_X1 = 40 : LET BUILDING_HEIGHT1 = INT(RND * 80) + 50
1130 LET BUILDING_X2 = 240 : LET BUILDING_HEIGHT2 = INT(RND * 80) + 50
1140 LET BUILDING_Y1 = SCREEN_HEIGHT - BUILDING_HEIGHT1
1150 LET BUILDING_Y2 = SCREEN_HEIGHT - BUILDING_HEIGHT2

1160 REM ** Draw Building 1 **
1170 FOR Y = SCREEN_HEIGHT TO BUILDING_Y1 STEP -WINDOW_SIZE*2
1180   FOR X = BUILDING_X1 TO BUILDING_X1 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE*2
1190     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1200   NEXT X
1210 NEXT Y

1220 REM ** Draw Building 2 **
1230 FOR Y = SCREEN_HEIGHT TO BUILDING_Y2 STEP -WINDOW_SIZE*2
1240   FOR X = BUILDING_X2 TO BUILDING_X2 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE*2
1250     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1260   NEXT X
1270 NEXT Y
1280 RETURN

0 replies

toncho11 · 2025-01-21T20:11:48Z

toncho11
Jan 21, 2025
Author

Version 3 with 16 CGA colors:


10 REM ** GORILLAS GAME WITH CGA COLORS **
20 MODE 1  ' Set graphics mode
30 CLS

40 REM ** CONSTANTS **
50 LET GRAVITY = 0.1
60 LET SCREEN_WIDTH = 320
70 LET SCREEN_HEIGHT = 200
80 LET BUILDING_WIDTH = 40
90 LET WINDOW_SIZE = 5
100 LET SUN_X = 280 : LET SUN_Y = 40 : LET SUN_RADIUS = 15

110 REM ** CGA COLOR PALETTE **
120 REM Colors: 0=Black, 1=Blue, 2=Green, 3=Cyan, 4=Red, 5=Magenta, 6=Brown, 7=White, etc.
130 COLOR 3, 0  ' Cyan background with black text
140 CLS

150 REM ** DRAW BACKGROUND: SUN AND SKYLINE **
160 GOSUB 1000  ' Draw the sun
170 GOSUB 1100  ' Draw the buildings

180 REM ** PLAYER POSITIONS (TOP OF RANDOM BUILDINGS) **
190 LET GX1 = BUILDING_X1 + BUILDING_WIDTH / 2 : LET GY1 = BUILDING_Y1 - 5
200 LET GX2 = BUILDING_X2 + BUILDING_WIDTH / 2 : LET GY2 = BUILDING_Y2 - 5

210 REM ** DRAW GORILLAS **
220 COLOR 4, 0  ' Red for gorillas
230 PLOT GX1, GY1 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5
240 PLOT GX2, GY2 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5

250 REM ** GAME MODE SELECTION **
260 PRINT "GORILLAS GAME: SELECT MODE"
270 PRINT "1: SINGLE PLAYER (VS AI)"
280 PRINT "2: TWO PLAYERS"
290 INPUT "ENTER CHOICE (1 OR 2): ", MODE

300 REM ** GAME LOOP **
310 FOR TURN = 1 TO 10
320   REM ** DETERMINE PLAYER TURN **
330   IF TURN MOD 2 = 1 THEN
340     PRINT "PLAYER 1'S TURN!"
350     INPUT "ANGLE (0-90)? ", A
360     INPUT "VELOCITY? ", V
370     LET GX = GX1 : LET GY = GY1
380   ELSE
390     IF MODE = 2 THEN
400       PRINT "PLAYER 2'S TURN!"
410       INPUT "ANGLE (0-90)? ", A
420       INPUT "VELOCITY? ", V
430       LET GX = GX2 : LET GY = GY2
440     ELSE
450       REM ** AI CALCULATES ANGLE AND VELOCITY **
460       PRINT "AI'S TURN..."
470       LET A = INT(RND * 45) + 30 ' Random angle between 30-75
480       LET V = INT(RND * 10) + 20 ' Random velocity between 20-30
490       PRINT "AI CHOOSES ANGLE="; A; " VELOCITY="; V
500       LET GX = GX2 : LET GY = GY2
510     END IF
520   END IF

530   REM ** CONVERT ANGLE TO RADIANS **
540   LET A = A * PI / 180

550   REM ** THROW BANANA **
560   FOR T = 0 TO 50 STEP 0.1
570     LET BX = GX + V * COS(A) * T
580     LET BY = GY - (V * SIN(A) * T - 0.5 * GRAVITY * T^2)
590     IF BX < 0 OR BX > SCREEN_WIDTH OR BY > SCREEN_HEIGHT THEN EXIT FOR
600     COLOR 14, 0  ' Yellow banana
610     PLOT INT(BX), INT(BY)
620     PAUSE 10
630     PLOT INT(BX), INT(BY)
640     REM ** CHECK COLLISION **
650     IF ABS(BX - GX1) < 5 AND ABS(BY - GY1) < 5 THEN GOTO 800
660     IF ABS(BX - GX2) < 5 AND ABS(BY - GY2) < 5 THEN GOTO 900
670   NEXT T
680   PRINT "MISS!"
690 NEXT TURN

700 PRINT "GAME OVER!"
710 END

720 REM ** EXPLOSION EFFECT **
730 SUB EXPLOSION(X, Y)
740 FOR R = 1 TO 10
750   COLOR 12, 0  ' Bright red for explosion
760   CIRCLE X, Y, R
770   PAUSE 20
780 NEXT R
790 FOR R = 10 TO 1 STEP -1
800   CIRCLE X, Y, R
810   PAUSE 20
820 NEXT R
830 END SUB

840 REM ** PLAYER 2 OR AI WINS **
850 PRINT "PLAYER 2 (OR AI) WINS!"
860 CALL EXPLOSION(GX1, GY1)
870 STOP

880 REM ** PLAYER 1 WINS **
900 PRINT "PLAYER 1 WINS!"
910 CALL EXPLOSION(GX2, GY2)
920 STOP

930 REM ** DRAW SUN **
940 SUB DRAWSUN
950 COLOR 14, 0  ' Yellow sun
960 FOR R = SUN_RADIUS TO 1 STEP -1
970   CIRCLE SUN_X, SUN_Y, R
980 NEXT R
990 RETURN

1000 REM ** DRAW BUILDINGS WITH WINDOWS **
1010 REM ** Random Building Heights **
1020 LET BUILDING_X1 = 40 : LET BUILDING_HEIGHT1 = INT(RND * 80) + 50
1030 LET BUILDING_X2 = 240 : LET BUILDING_HEIGHT2 = INT(RND * 80) + 50
1040 LET BUILDING_Y1 = SCREEN_HEIGHT - BUILDING_HEIGHT1
1050 LET BUILDING_Y2 = SCREEN_HEIGHT - BUILDING_HEIGHT2

1060 REM ** Draw Building 1 **
1070 COLOR 1, 0  ' Blue building
1080 FOR Y = SCREEN_HEIGHT TO BUILDING_Y1 STEP -WINDOW_SIZE*2
1090   FOR X = BUILDING_X1 TO BUILDING_X1 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE*2
1100     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1110   NEXT X
1120 NEXT Y

1130 REM ** Draw Building 2 **
1140 COLOR 6, 0  ' Brown building
1150 FOR Y = SCREEN_HEIGHT TO BUILDING_Y2 STEP -WINDOW_SIZE*2
1160   FOR X = BUILDING_X2 TO BUILDING_X2 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE*2
1170     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1180   NEXT X
1190 NEXT Y
1200 RETURN

0 replies

ghaerr · 2025-01-22T00:41:47Z

ghaerr
Jan 22, 2025
Maintainer

@toncho11 - You're welcome to submit an elkscmd/basic/gorilla.bas should you like this to be more easily available for others. Can you share a screenshot of what the graphics looks like? We don't have too many graphics programs to show off basic. At some point later we could add the basic programs to a distribution disk if there become a larger variety of useful or gaming program examples.

0 replies

toncho11 · 2025-01-22T15:27:38Z

toncho11
Jan 22, 2025
Author

I am experimenting for now:

version 4:


10 REM ** GORILLAS GAME WITH CGA COLORS **
20 MODE 1  ' Set graphics mode
30 CLS

40 REM ** CONSTANTS **
50 LET GRAVITY = 0.1
60 LET SCREEN_WIDTH = 320
70 LET SCREEN_HEIGHT = 200
80 LET BUILDING_WIDTH = 40
90 LET WINDOW_SIZE = 5
100 LET SUN_X = 280 : LET SUN_Y = 40 : LET SUN_RADIUS = 15

110 REM ** CGA COLOR PALETTE **
120 REM Colors: 0=Black, 1=Blue, 2=Green, 3=Cyan, 4=Red, 5=Magenta, 6=Brown, 7=White, etc.
130 COLOR 3, 0  ' Cyan background with black text
140 CLS

150 REM ** DRAW BACKGROUND: SUN AND SKYLINE **
160 GOSUB 940  ' Draw the sun
170 GOSUB 1000  ' Draw the buildings

180 REM ** PLAYER POSITIONS (TOP OF RANDOM BUILDINGS) **
190 LET GX1 = BUILDING_X1 + BUILDING_WIDTH / 2
200 LET GY1 = BUILDING_Y1 - 5
210 LET GX2 = BUILDING_X2 + BUILDING_WIDTH / 2
220 LET GY2 = BUILDING_Y2 - 5

230 REM ** DRAW GORILLAS **
240 COLOR 4, 0  ' Red for gorillas
250 PLOT GX1, GY1 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5
260 PLOT GX2, GY2 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5

270 REM ** GAME MODE SELECTION **
280 PRINT "GORILLAS GAME: SELECT MODE"
290 PRINT "1: SINGLE PLAYER (VS AI)"
300 PRINT "2: TWO PLAYERS"
310 INPUT "ENTER CHOICE (1 OR 2): ", GAME_MODE

320 REM ** GAME LOOP **
330 FOR TURN = 1 TO 10
340   REM ** DETERMINE PLAYER TURN **
350   IF TURN MOD 2 = 1 THEN
360     PRINT "PLAYER 1'S TURN!"
370     INPUT "ANGLE (0-90)? ", ANGLE
380     INPUT "VELOCITY? ", VELOCITY
390     LET GX = GX1 : LET GY = GY1
400   ELSE
410     IF GAME_MODE = 2 THEN
420       PRINT "PLAYER 2'S TURN!"
430       INPUT "ANGLE (0-90)? ", ANGLE
440       INPUT "VELOCITY? ", VELOCITY
450       LET GX = GX2 : LET GY = GY2
460     ELSE
470       REM ** AI CALCULATES ANGLE AND VELOCITY **
480       PRINT "AI'S TURN..."
490       LET ANGLE = INT(RND * 45) + 30  ' Random angle between 30-75
500       LET VELOCITY = INT(RND * 10) + 20  ' Random velocity between 20-30
510       PRINT "AI CHOOSES ANGLE="; ANGLE; " VELOCITY="; VELOCITY
520       LET GX = GX2 : LET GY = GY2
530     END IF
540   END IF

550   REM ** CONVERT ANGLE TO RADIANS **
560   LET ANGLE = ANGLE * PI / 180

570   REM ** THROW BANANA **
580   FOR T = 0 TO 50 STEP 0.1
590     LET BX = GX + VELOCITY * COS(ANGLE) * T
600     LET BY = GY - (VELOCITY * SIN(ANGLE) * T - 0.5 * GRAVITY * T^2)
610     IF BX < 0 OR BX > SCREEN_WIDTH OR BY > SCREEN_HEIGHT THEN EXIT FOR
620     COLOR 14, 0  ' Yellow banana
630     PLOT INT(BX), INT(BY)
640     PAUSE 10
650     PLOT INT(BX), INT(BY)
660     REM ** CHECK COLLISION **
670     IF ABS(BX - GX1) < 5 AND ABS(BY - GY1) < 5 THEN GOTO 850
680     IF ABS(BX - GX2) < 5 AND ABS(BY - GY2) < 5 THEN GOTO 860
690   NEXT T
700   PRINT "MISS!"
710 NEXT TURN

720 PRINT "GAME OVER!"
730 END

740 REM ** EXPLOSION EFFECT **
750 SUB EXPLOSION(X, Y)
760 FOR R = 1 TO 10
770   COLOR 12, 0  ' Bright red for explosion
780   CIRCLE X, Y, R
790   PAUSE 20
800 NEXT R
810 FOR R = 10 TO 1 STEP -1
820   CIRCLE X, Y, R
830   PAUSE 20
840 NEXT R
850 END SUB

860 REM ** PLAYER 2 OR AI WINS **
870 PRINT "PLAYER 2 (OR AI) WINS!"
880 EXPLOSION GX1, GY1
890 STOP

900 REM ** PLAYER 1 WINS **
910 PRINT "PLAYER 1 WINS!"
920 EXPLOSION GX2, GY2
930 STOP

940 REM ** DRAW SUN **
950 SUB DRAWSUN
960 COLOR 14, 0  ' Yellow sun
970 FOR R = SUN_RADIUS TO 1 STEP -1
980   CIRCLE SUN_X, SUN_Y, R
990 NEXT R
1000 END SUB

1010 REM ** DRAW BUILDINGS WITH WINDOWS **
1020 REM ** Random Building Heights **
1030 LET BUILDING_X1 = 40
1040 LET BUILDING_HEIGHT1 = INT(RND * 80) + 50
1050 LET BUILDING_X2 = 240
1060 LET BUILDING_HEIGHT2 = INT(RND * 80) + 50
1070 LET BUILDING_Y1 = SCREEN_HEIGHT - BUILDING_HEIGHT1
1080 LET BUILDING_Y2 = SCREEN_HEIGHT - BUILDING_HEIGHT2

1090 REM ** Draw Building 1 **
1100 COLOR 1, 0  ' Blue building
1110 FOR Y = SCREEN_HEIGHT TO BUILDING_Y1 STEP -WINDOW_SIZE * 2
1120   FOR X = BUILDING_X1 TO BUILDING_X1 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE * 2
1130     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1140   NEXT X
1150 NEXT Y

1160 REM ** Draw Building 2 **
1170 COLOR 6, 0  ' Brown building
1180 FOR Y = SCREEN_HEIGHT TO BUILDING_Y2 STEP -WINDOW_SIZE * 2
1190   FOR X = BUILDING_X2 TO BUILDING_X2 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE * 2
1200     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1210   NEXT X
1220 NEXT Y
1230 END SUB

0 replies

toncho11 · 2025-01-22T15:42:01Z

toncho11
Jan 22, 2025
Author

Actually I can not test it. It is because I am on Windows with WSL and mount does not work. There are other problems as well.

We need a host version of this basic so that development can be done easier. In this case a graphical 64 bit compatible library must be selected such SDL2 for Linux.

0 replies

tyama501 · 2025-01-22T23:09:26Z

tyama501
Jan 22, 2025

Thank you for the codes.
I think current CGA 320x240 mode cannot use 8 colores. It is 4 colors.

0 replies

toncho11 · 2025-01-27T18:04:09Z

toncho11
Jan 27, 2025
Author

gorillas.zip

0 replies

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

GORILLAS in BASIC #2196

{{title}}

{{editor}}'s edit

{{editor}}'s edit

Replies: 7 comments

{{title}}

{{title}}

{{editor}}'s edit

{{editor}}'s edit

{{title}}

{{title}}

{{editor}}'s edit

{{editor}}'s edit

{{title}}

{{title}}

{{title}}

Select a reply

GORILLAS in BASIC #2196

toncho11 Jan 21, 2025

Replies: 7 comments

toncho11 Jan 21, 2025 Author

toncho11 Jan 21, 2025 Author

ghaerr Jan 22, 2025 Maintainer

toncho11 Jan 22, 2025 Author

toncho11 Jan 22, 2025 Author

tyama501 Jan 22, 2025

toncho11 Jan 27, 2025 Author

toncho11
Jan 21, 2025

toncho11
Jan 21, 2025
Author

toncho11
Jan 21, 2025
Author

ghaerr
Jan 22, 2025
Maintainer

toncho11
Jan 22, 2025
Author

toncho11
Jan 22, 2025
Author

tyama501
Jan 22, 2025

toncho11
Jan 27, 2025
Author