How many beans are there in the jar? This is a Chipmunk Basic where you have to guess it. Game captions and variables are in Spanish.
10 rem Caja de alubias 20 randomize (timer) 30 alubias = rnd(1000) 40 turno = 0 50 print "¿Cuántas alubias hay en la caja (0-1000)"; 60 input n 70 if alubias = n then print "Lo acertaste!!" : goto 170 80 print "No, hay "; 90 if abs(alubias-n) > 200 then print "muuchas "; 100 if abs(alubias-n) < 10 then print "unas poquitas "; 110 if alubias > n then print "más." : else print "menos." 120 turno = turno+1 130 if turno < 9 then print "Te quedan ";10-turno;"intentos." 140 if turno = 9 then print "Este es tu último intento." 150 if turno >= 10 then print "Lo siento, no te quedan más intentos..." : goto 210 160 goto 50 170 print "BIEN"; 180 for f = 1 to 25 : print "!"; : next 190 print 200 goto 210 210 print "¿Otra partida (S/N)"; : input r$ 220 if r$ = "S" or r$ = "s" then goto 30 230 if r$ = "N" or r$ = "n" then end 240 goto 210 700 rem Ahora, el ordenador lo piensa 705 turnos = 0 710 print "Piensa un número del 1 al 1000. te aseguro que lo acertaré." 715 input "(Pulsa ENTER)";x$ 720 max = 1000 : min = 0 : n = min+(max-min)/2 730 print "¿Es ";n;"?" 740 input n$ 750 if n$ = "S" or n$ = "s" then 1000 760 if n$ = "N" or n$ = "n" then 790 770 print "Por el momento, dime sólo si he acertado (S) o no (N)." 780 goto 730 790 print "Bien; no lo he acertado. Dime si me he quedado (C)orto o me he (P)asado (C/P)" 800 input n$ 810 if n$ = "C" or n$ = "c" then min = n+1 : goto 860 820 if n$ = "P" or n$ = "p" then max = n-1 : goto 860 850 print "Por favor, dime si me he quedado corto (C) o si me he pasado (P)." : goto 800 860 if max < min then print "¿Cómo puede ser menor que ";max;" pero mayor que ";min;"?" 870 if max = min then print "Ya lo tengo. Sólo puede ser ";max;"." : goto 900 880 n = min+int((max-min)/2) 890 turnos = turnos+1 900 if turnos = 9 then print "Bueno, la última vez..." 910 if turnos >= 10 then print "No me puedo creer que no lo haya acertado. ¿Qué número era?" : input n 920 if turnos < 10 then goto 730 930 print "¿Me dejas probar de nuevo?"; : input n$ 940 if n$ = "S" or n$ = "s" then goto 930 950 if n$ = "N" or n$ = "n" then end 960 goto 930 1000 print "Te dije que lo acertaría!!" 1005 print "He tardado ";turnos;" turnos en acertar." 1010 print "¿Te atreves a probar de nuevo?" 1020 input n$ 1030 if n$ = "S" or n$ = "s" then goto 700 1040 if n$ = "N" or n$ = "n" then end 1050 goto 1010