{{htmlmetatags>metatag-robots=()
metatag-title=(VARI ALTRI CONTRIBUTI MINIGIOCO | ugBASIC User Manual)
metatag-keywords=(ugBASIC,Commodore 64,Commodore PLUS/4,ZX Spectrum)
metatag-description=(An isomorphic language for retrocomputers)
metatag-media-og:image=(:ugbasic:logo-ugbasic-fb.png)
metatag-og:title=(VARI ALTRI CONTRIBUTI MINIGIOCO | ugBASIC User Manual)
metatag-og:description=(An isomorphic language for retrocomputers)
}}
====== ugBASIC Manuale Utente ======
===== VARI ALTRI CONTRIBUTI MINIGIOCO =====
==== SCOPO ====
Questo è un breve gioco di Endi Baráth, originariamente pubblicato sul gruppo BASIC Programming Language. E' stato convertito in ugBASIC da Marco Spedaletti, perché funzionasse sulla maggior parte dei computer a 8 bit. E' neecssario disporre almeno della version 1.6.2-beta per compilarsi. Un riferimento al sorgente originale è stato aggiunto come commento.
==== SORGENTE ====
' It is necessary to apply some techniques to reduce the memory actually
' used, so that the game can run even on rather limited platforms,
' such as ColecoVision.
' First, let's proceed to reduce the space occupied by dynamic strings.
' In ugBASIC this space, despite being dynamic, is statically allocated
' and occupies a certain memory space. With those pragmas we tell ugBASIC
' that we will never use more than 8 strings by a total of 32 bytes.
' Static strings, such as those in quotes, don't count.
DEFINE STRING SPACE 32
DEFINE STRING COUNT 8
' This procedure reads the fire button if a joystick is available.
PROCEDURE control ON JOYSTICK AVAILABLE
IF JFIRE(0) THEN
RETURN TRUE
ELSE
RETURN FALSE
ENDIF
END PROC
' This procedure reads the space bar if a joystick is not available.
PROCEDURE control ON JOYSTICK NOT AVAILABLE
IF KEY STATE(KEY SPACE) THEN
RETURN TRUE
ELSE
RETURN FALSE
ENDIF
END PROC
' ------------------------------------------------------------------
' 100 GRAPHICS HIRES 4:SET BORDER 0:SET KEY CLICK OFF:SET STATUS OFF
' ------------------------------------------------------------------
' We enable the "bitmap" graphics mode. This is the mode in which
' each individual pixel can be addressed individually, via primitive
' commands, such as those related to drawing a single pixel.
BITMAP ENABLE
' We set the border color to black, at least for those targets for
' which this instruction makes sense. Since ugBASIC is an isomorphic
' language, it does not provide an abstraction of the concept of
' "border". Therefore, if the border exists, it will be colored,
' otherwise this statement corresponds to a "no operation".
COLOR BORDER BLACK
' Let's define the (pixel) coordinates of the play field:
'
' (x1,y1) +---------+
' | |
' | |
' +---------+ (x2,y2)
POSITIVE CONST x1 = SCREEN WIDTH / 10
POSITIVE CONST x2 = x1 + (8 * ( SCREEN WIDTH / 10 ))
POSITIVE CONST y1 = SCREEN HEIGHT / 10
POSITIVE CONST y2 = y1 + (7 * ( SCREEN HEIGHT / 10 ))
' Let's define the (characters) coordinates of the play field:
'
' (,r1) --> INSTRUCTIONS
' +---------+
' | |
' | |
' +---------+
' (,r2) --> COMMAND
POSITIVE CONST r1 = 0
POSITIVE CONST r2 = ROWS-2
' Instructions string. The lenght of this string depends on
' the width of the text screen.
CONST instructions = IF(COLUMNS < 40, "press to turn", "GAME: press to turn direction")
CONST final = IF(COLUMNS < 40, "SCORE: ", "YOUR SCORE: ")
' Repeat forever
DO
' With this instruction we clear the screen, using (if possible) the color
' black. Remembering that ugBASIC is an isomorphic language, it is possible
' that the color indication is ignored, or a similar one is chosen.
CLS BLACK
' Let's memorize the status of fire and the previous state itself.
' This allow to track the fact that the fire has been released.
joy = FALSE: joyp = FALSE
' ----------------------------------------------------------
' 110 SET INK 2:PLOT 500,200;800,200;800,500;500,500;500,200
' ----------------------------------------------------------
' Let's draw the yellow box as playfield.
BOX x1,y1 TO x2,y2,YELLOW
' ------------------------------------------------------------
' 120 PRINT #101,AT 2,2:"GAME: press a key to turn direction."
' ------------------------------------------------------------
' Let's print the intructions at the center of the line.
LOCATE ,r1
CENTER instructions;
' -------------------------------------------------
' 130 SET INK 3:LET I=0:LET X=550:LET Y=220:LET S=0
' -------------------------------------------------
i = 0
x = x1+x1
y = y1+y1
s = 0
' +---------+
' | * (x,y) |
' | |
' +---------+
' Forever loop until finish.
DO
' ---------------------------
' 140 LET I$=INKEY$:LET S=S+1
' ---------------------------
' Slow down the program a bit, to make it playable.
WAIT 25 MS
' Let's record if the button has been pressed AND released.
IF joy THEN
IF control[] = 0 THEN
joyp = TRUE
joy = FALSE
ENDIF
ELSE
joy = control[]
ENDIF
' Increment the score!
INC s
' -------------
' 150 PLOT X,Y,
' 160 LOOK A
' -------------
' Take the color of destination pixel.
a = POINT(x,y)
' Draw a pixel on it.
PLOT x,y,WHITE
' ---------------------------------------
' 170 PLOT X,Y
' 180 IF I$ ≠ "" THEN LET I= (I+1) BAND 3
' ---------------------------------------
' Each time the fire / space bar is pressed, the
' direction will be changed, in a clockwise manner.
' The (i+1) increment the direction, while the AND
' 3 will limit the value from 0 to 3.
'
' 3
' ^
' 2 <-+-> 0
' v
' 1
IF joyp THEN i = (i+1) AND 3
' Reset the button.
joyp = FALSE
' -----------------------------------
' 190 IF I=0 THEN LET X=X+4:LET Y=Y+0
' -----------------------------------
' Move the point to the right.
IF i=0 THEN INC x
' -----------------------------------
' 200 IF I=1 THEN LET X=X+0:LET Y=Y+4
' -----------------------------------
' Move the point down.
IF i=1 THEN INC y
' -----------------------------------
' 210 IF I=2 THEN LET X=X-4:LET Y=Y+0
' -----------------------------------
' Move the point to the left.
IF i=2 THEN DEC x
' -----------------------------------
' 220 IF I=3 THEN LET X=X+0:LET Y=Y-4
' -----------------------------------
' Move the point to the right.
IF i=3 THEN DEC y
' ------------------------
' 230 IF A=0 THEN GOTO 140
' ------------------------
' If the underlying pixel is black, we can move
' to the next position along the selected direction.
' Oherwise, we can exit.
EXIT IF a<>BLACK
LOOP
' ---------------------------------------
' 240 PRINT #101,AT 19,12:"YOUR SCORE:";S
' ---------------------------------------
' Print the score and ends.
LOCATE , r2
CENTER final+STR$(s);
' Wait a key / fire to restart
WAIT KEY OR FIRE RELEASE
LOOP
==== FILE ====
* ''[[https://github.com/spotlessmind1975/ugbasic/tree/main/examples/contrib_minigame.bas|contrib_minigame.bas]]''
==== COME ESEGUIRLO ====
=== Atari 400/800 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore Altirra, e in particolare che l'eseguibile ''x64sc'' sia accessibile.
Digitare quindi il seguente comando:
# Linux
ugbc.atari contrib_minigame.bas -o example.xex
altirra example.xex
# Windows
ugbc.atari.exe contrib_minigame.bas -o example.xex
altirra example.xex
=== Atari 600XL/800XL/1200XL/XG(SE) ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore Altirra, e in particolare che l'eseguibile ''x64sc'' sia accessibile.
Digitare quindi il seguente comando:
# Linux
ugbc.atarixl contrib_minigame.bas -o example.xex
altirra example.xex
# Windows
ugbc.atarixl.exe contrib_minigame.bas -o example.xex
altirra example.xex
=== Commodore 64 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore VICE, e in particolare che l'eseguibile ''x64sc'' sia accessibile.
Digitare quindi il seguente comando:
# Linux
ugbc.c64 contrib_minigame.bas -o example.prg
x64sc example.prg
# Windows
ugbc.c64.exe contrib_minigame.bas -o example.prg
x64sc example.prg
=== Commodore 64+REU ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore VICE, e in particolare che l'eseguibile ''x64sc'' sia accessibile.
Digitare quindi il seguente comando:
# Linux
ugbc.c64reu contrib_minigame.bas -o example.prg
x64sc -reu example.prg
# Windows
ugbc.c64reu.exe contrib_minigame.bas -o example.prg
x64sc -reu example.prg
=== Commodore PLUS/4 ===
== Usando YAPE ==
Per poter eseguire l'esempio, è necessario disporre dell'emulatore YAPE, e in particolare che l'eseguibile ''yape'' sia accessibile.
Digitare quindi il seguente comando:
# Linux
ugbc.plus4 contrib_minigame.bas -o example.prg
yape example.prg
# Windows
ugbc.plus4.exe contrib_minigame.bas -o example.prg
yape example.prg
== Usando VICE ==
Per poter eseguire l'esempio, è necessario disporre dell'emulatore VICE, e in particolare che l'eseguibile ''xplus4'' sia accessibile.
Digitare quindi il seguente comando:
# Linux
ugbc.plus4 contrib_minigame.bas -o example.prg
xplus4 example.prg
# Windows
ugbc.plus4.exe contrib_minigame.bas -o example.prg
xplus4 example.prg
=== Dragon 32 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore XROAR, e in particolare che l'eseguibile ''x64sc'' sia accessibile.
Digitare quindi il seguente comando:
# Linux
ugbc.d32 contrib_minigame.bas -o example.bin
xroar -rompath (percorso ROM) example.bin
# Windows
ugbc.d32.exe contrib_minigame.bas -o example.bin
xroar.exe -rompath (percorso ROM) example.bin
=== Dragon 64 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore XROAR, e in particolare che l'eseguibile ''x64sc'' sia accessibile.
Digitare quindi il seguente comando:
# Linux
ugbc.d64 contrib_minigame.bas -o example.bin
xroar -rompath (percorso ROM) example.bin
# Windows
ugbc.d64.exe contrib_minigame.bas -o example.bin
xroar.exe -rompath (percorso ROM) example.bin
=== PC128 Olivetti Prodest ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore DCMOTO, e in particolare che l'eseguibile ''x64sc'' sia accessibile.
Digitare quindi i seguenti comandi:
# Linux
ugbc.pc128op contrib_minigame.bas -o example.bin
dcmoto example.bin
(scegliere example.bin)
(scegliere BASIC 128)
CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
# Windows
ugbc.pc128op.exe contrib_minigame.bas -o example.bin
dcmoto example.bin
(scegliere BASIC 128)
CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
=== Thomson MO5 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore DCMOTO, e in particolare che l'eseguibile ''x64sc'' sia accessibile.
Digitare quindi i seguenti comandi:
# Linux
ugbc.mo5 contrib_minigame.bas -o example.bin
dcmoto example.bin
(scegliere example.bin)
(scegliere BASIC 128)
CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
# Windows
ugbc.mo5.exe contrib_minigame.bas -o example.bin
dcmoto example.bin
(scegliere BASIC 128)
CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
=== Commodore VIC-20 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore XEMU, e in particolare che l'eseguibile ''xmega65'' sia accessibile.
Digitare quindi il seguente comando:
# Linux
ugbc.vic20 contrib_minigame.bas -o example.prg
xvic --memory 24k example.prg
# Windows
ugbc.vic20.exe contrib_minigame.bas -o example.prg
xvic --memory 24k example.prg
=== ZX Spectrum ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore Speccy, e in particolare che l'eseguibile ''speccy'' sia accessibile.
Digitare quindi il seguente comando:
# Linux
ugbc.zx contrib_minigame.bas -o example.tap
Speccy example.tap
# Windows
ugbc.zx.exe contrib_minigame.bas -o example.tap
Speccy example.tap
=== ColecoVision ===
Per compilare e mandare in esecuzione l'esempio, hai bisogno di avere l'emulatore openMsx oppure il BlueMSX, e in particolare che il suo eseguibile sia accessibile.
Dopo di che, digita questo comando sulla linea di comando:
== openMSX ==
# Linux
ugbc.coleco contrib_minigame.bas -o example.rom
openmsx -machine \"COL - ColecoVision\" -cart example.rom
# Windows
ugbc.coleco.exe contrib_minigame.bas -o example.rom
bluemsx -machine \"COL - ColecoVision\" example.rom
== blueMSX ==
# Linux
ugbc.coleco contrib_minigame.bas -o example.rom
bluemsx /machine \"COL - ColecoVision\" /rom1 example.rom
# Windows
ugbc.coleco.exe contrib_minigame.bas -o example.rom
bluemsx /machine \"COL - ColecoVision\" /rom1 example.rom
=== SEGA SC-3000 ===
Per compilare e mandare in esecuzione l'esempio, hai bisogno di avere l'emulatore BlueMSX, e in particolare che il suo eseguibile sia accessibile.
Dopo di che, digita questo comando sulla linea di comando:
# Linux
ugbc.sc3000 contrib_minigame.bas -o example.rom
bluemsx /machine \"SEGA - SC-3000\" /rom1 example.rom
# Windows
ugbc.sc3000.exe contrib_minigame.bas -o example.rom
bluemsx /machine \"SEGA - SC-3000\" /rom1 example.rom
=== SEGA SG-1000 ===
Per compilare e mandare in esecuzione l'esempio, hai bisogno di avere l'emulatore BlueMSX, e in particolare che il suo eseguibile sia accessibile.
Dopo di che, digita questo comando sulla linea di comando:
# Linux
ugbc.sg1000 contrib_minigame.bas -o example.rom
bluemsx /machine \"SEGA - SG-1000\" /rom1 example.rom
# Windows
ugbc.sg1000.exe contrib_minigame.bas -o example.rom
bluemsx /machine \"SEGA - SG-1000\" /rom1 example.rom
==== PROBLEMI? ====
Se hai trovato un problema nel cercare di eseguire questo esempio, se pensi che ci sia un bug o, più semplicemente, vorresti che fosse migliorato, [[https://github.com/spotlessmind1975/ugbasic/issues/new?title=MIGLIORARE VARI ALTRI CONTRIBUTI MINIGIOCO|apri una segnalazione]] su GitHub per questo specifico esempio. Grazie!===== POWERED BY =====
[[:it:ugbasic:user:examples|{{ :ugbasic:user:logo-ugbasic.png?nolink&600 |}}]]