O soavissima missiva... osò...
:D :D :D
non han mai fatto male
tre fette di tetro salame
:D :D :D
sempre meglio del vulcanico megapalindromo:
"A valle tra masse ebre la nera, l'accesa d'ira Etna ti moveva? L'Etna gigante lave vomitante arida secca l'arena l'erbe essa martellava"
e del mio modesto "idem ingegni medi" :o
ma gugol o non gugol arriveremo a bomba:
Ecco qua il Videogame dei poveri
- La funzione Cint trasforma un dato alfanumerico (come quello che viene digitato nella input box) in un numero, per poterlo confrontare con altri.
- La funzione Randomize attiva una sequenza di numeri casuali e la funzione rnd*1000 ne genera uno scelto tra 0 e 1000.
- La funzione int trasforma un eventuale numero decimale in un numero intero.
- Il costrutto FOR .... NEXT serve a ripetere per un numero definito di volte tutte le istruzioni che contiene
Codice PHP:
msgbox("Ho pensato a un numero tra 0 e 999; indovinalo!")
livello = Cint(InputBox("Livello di difficoltà (Numero di tentativi)"))
randomize
numero = int(rnd*1000)
For i= 1 to livello
tentativo = Cint(InputBox("Indovina il numero (tentativo n." & i & ")" ))
if abs(numero - tentativo) < 15 then
messaggio = "fuoco... "
elseif abs(numero - tentativo) < 50 then messaggio = "fuochino... "
else messaggio = "acqua... "
End if
if tentativo > numero then msgbox(messaggio & tentativo & " è troppo grande")
if tentativo < numero then msgbox(messaggio & tentativo & " è troppo piccolo")
if tentativo = numero then msgbox("hai vinto in " & i & " tentativi"): i = 99
Next
If i < 100 then msgbox("Hai perso, peccato... il numero era " & numero )