diff --git a/trunk/AMOS_Paolo/bobs/Bobs.abk b/trunk/AMOS_Paolo/bobs/Bobs.abk new file mode 100644 index 00000000..98182312 Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/Bobs.abk differ diff --git a/trunk/AMOS_Paolo/bobs/DRAGON.ABK b/trunk/AMOS_Paolo/bobs/DRAGON.ABK new file mode 100644 index 00000000..3c4e5939 Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/DRAGON.ABK differ diff --git a/trunk/AMOS_Paolo/bobs/Drink_Bobs.Abk b/trunk/AMOS_Paolo/bobs/Drink_Bobs.Abk new file mode 100644 index 00000000..6e73776b Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/Drink_Bobs.Abk differ diff --git a/trunk/AMOS_Paolo/bobs/EGGTIMER.ABK b/trunk/AMOS_Paolo/bobs/EGGTIMER.ABK new file mode 100644 index 00000000..21b5ff89 Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/EGGTIMER.ABK differ diff --git a/trunk/AMOS_Paolo/bobs/FANTASY.ABK b/trunk/AMOS_Paolo/bobs/FANTASY.ABK new file mode 100644 index 00000000..02b23afa Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/FANTASY.ABK differ diff --git a/trunk/AMOS_Paolo/bobs/Frog_Sprites.ABK b/trunk/AMOS_Paolo/bobs/Frog_Sprites.ABK new file mode 100644 index 00000000..760df55f Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/Frog_Sprites.ABK differ diff --git a/trunk/AMOS_Paolo/bobs/LORRIES.ABK b/trunk/AMOS_Paolo/bobs/LORRIES.ABK new file mode 100644 index 00000000..af3f1302 Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/LORRIES.ABK differ diff --git a/trunk/AMOS_Paolo/bobs/MARIO.ABK b/trunk/AMOS_Paolo/bobs/MARIO.ABK new file mode 100644 index 00000000..eb62b1c6 Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/MARIO.ABK differ diff --git a/trunk/AMOS_Paolo/bobs/MagicForestIIspr.abk b/trunk/AMOS_Paolo/bobs/MagicForestIIspr.abk new file mode 100644 index 00000000..d4ef9180 Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/MagicForestIIspr.abk differ diff --git a/trunk/AMOS_Paolo/bobs/Mix.Abk b/trunk/AMOS_Paolo/bobs/Mix.Abk new file mode 100644 index 00000000..7cb9000a Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/Mix.Abk differ diff --git a/trunk/AMOS_Paolo/bobs/Monkey_right.Abk b/trunk/AMOS_Paolo/bobs/Monkey_right.Abk new file mode 100644 index 00000000..8641d0e8 Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/Monkey_right.Abk differ diff --git a/trunk/AMOS_Paolo/bobs/SCOOTER.ABK b/trunk/AMOS_Paolo/bobs/SCOOTER.ABK new file mode 100644 index 00000000..d5687d7f Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/SCOOTER.ABK differ diff --git a/trunk/AMOS_Paolo/bobs/SEAPLANE.ABK b/trunk/AMOS_Paolo/bobs/SEAPLANE.ABK new file mode 100644 index 00000000..daebb348 Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/SEAPLANE.ABK differ diff --git a/trunk/AMOS_Paolo/bobs/SHIP3.ABK b/trunk/AMOS_Paolo/bobs/SHIP3.ABK new file mode 100644 index 00000000..ff8bad7e Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/SHIP3.ABK differ diff --git a/trunk/AMOS_Paolo/bobs/Wilbert_spr.abk b/trunk/AMOS_Paolo/bobs/Wilbert_spr.abk new file mode 100644 index 00000000..72a328da Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/Wilbert_spr.abk differ diff --git a/trunk/AMOS_Paolo/bobs/jetsprites.abk b/trunk/AMOS_Paolo/bobs/jetsprites.abk new file mode 100644 index 00000000..f857ba23 Binary files /dev/null and b/trunk/AMOS_Paolo/bobs/jetsprites.abk differ diff --git a/trunk/AMOS_Paolo/conta b/trunk/AMOS_Paolo/conta new file mode 100644 index 00000000..bb6a0817 Binary files /dev/null and b/trunk/AMOS_Paolo/conta differ diff --git a/trunk/AMOS_Paolo/conta.AMOS b/trunk/AMOS_Paolo/conta.AMOS new file mode 100644 index 00000000..8c015cf5 Binary files /dev/null and b/trunk/AMOS_Paolo/conta.AMOS differ diff --git a/trunk/AMOS_Paolo/conta.AMOS.info b/trunk/AMOS_Paolo/conta.AMOS.info new file mode 100644 index 00000000..c69a6c56 Binary files /dev/null and b/trunk/AMOS_Paolo/conta.AMOS.info differ diff --git a/trunk/AMOS_Paolo/conta.Bak b/trunk/AMOS_Paolo/conta.Bak new file mode 100644 index 00000000..5a3308e0 Binary files /dev/null and b/trunk/AMOS_Paolo/conta.Bak differ diff --git a/trunk/AMOS_Paolo/conta.info b/trunk/AMOS_Paolo/conta.info new file mode 100644 index 00000000..1308f193 Binary files /dev/null and b/trunk/AMOS_Paolo/conta.info differ diff --git a/trunk/AMOS_Paolo/conta.txt b/trunk/AMOS_Paolo/conta.txt new file mode 100644 index 00000000..dc7de542 --- /dev/null +++ b/trunk/AMOS_Paolo/conta.txt @@ -0,0 +1,133 @@ +Rem ********************* +Rem ** primo programma ** +Rem ** conta insieme ** +Rem ********************* + + +,,,,,,,,,,,,,,,,,,,,,,,,,,,,$0FFF,$0FFF,$0FFF,$0FFF +Screen Open 1,320,200,64,Lowres +Load "bobs/drink_bobs.abk" +Flash Off +Get Bob Palette + + +For INDEX=0 To 63 + Pen INDEX : Print "Pen ";INDEX;" "; +Next INDEX +Wait 1000 + +Do + A$="" + SPLASHSCREEN + A$=Param$ + + Rem ****************** + Rem ** Main Program ** + Rem ****************** + LIMIT=100 + LIMIT_2=20 + ITERAZIONI=0 + SCORE=0 + BADSCORE=0 + + Locate 0,15 + Print "---------------------------------------" + Pen 29 + Locate 4,15 : Print " ";A$;" " + Pen 2 + Bob 1,290,195,4 + + Repeat + X=Rnd(LIMIT) + Y=Rnd(LIMIT_2) + If X39 + + Cls 1,0,0 To 320,96 + Locate 0,1 + Print "Bravo ";A$;"!" + Print + Print "Hai eseguito "; : Pen 5 : Print SCORE; : Pen 2 : Print " operazioni corrette" + Print " e "; : Pen 4 : Print BADSCORE; : Pen 2 : Print " operazioni errate" + Print + Print "Ora tocca al prossimo giocatore!" + Wait 1000 +Loop + +Rem *************************** +Rem ** Procedure e funzioni ** +Rem *************************** + +Procedure SPLASHSCREEN + Cls + Bob 1,290,190,4 + Rem Flash Off + Locate 0,1 + Print " Conta Insieme" + Print " -------------" + + Locate 1,5 + Input "Come ti chiami? ";A$ + + Locate 1,8 + Print "Ciao "; : Pen 3 : Print A$; : Pen 2 : Print ", partiamo!" + + Wait 200 + Pen 2 + Cls 1 +End Proc[A$] + +Procedure SUONO_OK +End Proc + +Procedure SUONO_ERROR +End Proc + +Procedure PALLINA[ITERAZIONI,RISULTATO] + If RISULTATO=1 + Rem pallina buona + Locate ITERAZIONI-1,17 + Pen 5 + Print "O" + Pen 2 + Else + Rem pallina cattiva + Locate ITERAZIONI-1,19 + Pen 4 + Print "X" + Pen 2 + End If +End Proc