Retrocomputer, Emulazione, Riparazioni Scambi/Vendite e collezionismo - Cerco Commodore - Approfondimenti, Listati Basic Commodore

Commodore CErco COmmodore - l'iniziativa di appassionati di retrocomputer


Listato per il basic dell'msx che consente di creare un gioco.

4 mucchi di 20 stelle appariranno all'inizio della partita ed ogni giocatore può prendere tante stelle quante ne desidera; ma questo in un solo mucchio per volta. Quello che prende l'ultima stella perde.

      20 screen 1: color 8,15: cls: key off
      30 for i=1 to 4
      40 locate 0,2*i: print i;"  ********************"
      45 rem graph e z
      50 next i
      60 t=0
      70 dim f(4)
      80 b=1
      90 locate 0,12: print "giocatore ";b
      100 print:input "linea :";l
      110 print:imput "caselle :";c
      120 if l>4 then 90
      130 if c+f(l)>20 then 90
      140 f(l)=f(l)+c
      150 t=t+c
      160 for j=f(l)-c to f(l)
      170 locate 25-j,2*l: print " ": play "l64n70"
      180 next j
      190 b=b+1
      200 if b=3 then b=1
      210 if t<80 then 90
      220 print"il giocatore";b;" VINCE":play "cge"
		  

Torna indietro



Copyright 2003 - 2018 (c) - Tutti i diritti riservati -