Newsgroup: it.arti.cartoni
Titolo: [REPOST][Dynamic Unofficial] SCUSATE IL RITARDO GENERATOR

_-------------------------
ma state sicuri che il problema si risolvera' al piu' presto.
------------------------------------------------------------Fine
Generator
un prodotto del ministero della cultura del Gedam.CiaoCiaoFederico
'Lobo' Faenza
Ministro della Propaganda e della Cultura del GEDAM
(togli gedam dall'indirizzo per rispondermi)
Federico 'Lobo' Faenza
Ministro della Cultura del Gedam
Guardia del Corpo di Stardust
'solo chi e' folle sfida le sue molle'
Il DModeratore e' un folle nazista

 delle produzioni del Ministero della Cultura del Gedam originariamente
L'unica inziativa valida del GEDAM in anni di esestenza ;P
ROTFL oggi come allora ;D

Federico 'Lobo' Faenza wrote:
DAAAAN!
Se la M$ ha avuto il fegato di fare M$ Linux 98, 
possiamo forse esimerci, noi? Naaaah. ^____^
Get this...
 ---- cut here ----
' ====================================================================
' (c) 1999 Kirone Software
'
' -= SCUSATE IL RITARDO GENERATOR =-
'
' ====================================================================
' ================= dichiarazione vettori-colonna =================
DIM NumeroSerie AS INTEGER
READ NumeroSerie
DIM NomeSerie(NumeroSerie) AS STRING
DIM Quantita1, Quantita2, Quantita3 AS INTEGER
READ Quantita1, Quantita2, Quantita3
DIM Colonna1(Quantita1) AS STRING
DIM Colonna2(Quantita2) AS STRING
DIM Colonna3(Quantita3) AS STRING
' ============== inizializzazione vettori-colonna ==============
DIM Indice AS INTEGER
DIM Test AS STRING
' ---- legge i dati riguardanti i nomi delle serie dynamic
Indice = 0
DO
  Indice = Indice + 1
  READ NomeSerie(Indice)
  'PRINT "db: "; NomeSerie(Indice)
LOOP WHILE Indice < NumeroSerie
READ Test
IF Test <> "[ENDS]" THEN
  PRINT "[db]: Errore nel valore di *NumeroSerie*"
  END
END IF
' ---- legge i dati riguardanti la Colonna 1
Indice = 0
DO
  Indice = Indice + 1
  READ Colonna1(Indice)
  'PRINT "db: "; Colonna1(Indice)
LOOP WHILE Indice < Quantita1
READ Test
IF Test <> "[END1]" THEN
  PRINT "[db]: Errore nel valore di *Dimensione1*"
  END
END IF
' ---- legge i dati riguardanti la Colonna 2
Indice = 0
DO
  Indice = Indice + 1
  READ Colonna2(Indice)
  'PRINT "db: "; Colonna2(Indice)
LOOP WHILE Indice < Quantita2
READ Test
IF Test <> "[END2]" THEN
  PRINT "[db]: Errore nel valore di *Dimensione2*"
  END
END IF
' ---- legge i dati riguardanti la Colonna 3
Indice = 0
DO
  Indice = Indice + 1
  READ Colonna3(Indice)
  'PRINT "db: "; Colonna3(Indice)
LOOP WHILE Indice < Quantita3
READ Test
IF Test <> "[END3]" THEN
  PRINT "[db]: Errore nel valore di *Dimensione3*"
  END
END IF
' ===================== Costruzione frase =====================
RANDOMIZE TIMER
DIM NVideoCassetta AS INTEGER
DIM Serie AS STRING
NVideoCassetta = RND * (26 - 1) + 1
Serie = NomeSerie(RND * (NumeroSerie - 1) + 1)
DIM Token1 AS STRING, Negazione AS STRING, Verbo AS STRING, Token2 AS
STRING, To
ken3 AS STRING
Token1 = Colonna1(RND * (Quantita1 - 1) + 1)
Token2 = Colonna2(RND * (Quantita2 - 1) + 1)
Token3 = Colonna3(RND * (Quantita3 - 1) + 1)
Negazione = " "
IF INT(RND * 5) THEN
  Negazione = " non "
END IF
SELECT CASE LEFT$(Token1, 2)
  CASE "il", "lo", "la", "l'":
    Verbo = "ha"
  CASE "i ", "gl", "le":
    Verbo = "hanno"
  CASE ELSE:
    Verbo = "ha"
END SELECT
DIM ScusateTanto AS STRING
ScusateTanto = "Gentili aniba all'ascolto volevo annunciare che la
videocassetta
 numero" + STR$(NVideoCassetta) + " della serie " + Serie + " uscira'
con un LIE
VE ritardo perche' " + Token1 + Negazione + Verbo + " " + Token2 + " " +
Token3 
+ " ma state sicuri che il problema si risolvera' al piu' presto."
' ===================== Presentazione frase =====================
CLS
PRINT "(c) 1999 Kirone Software"
PRINT "con il patrocinio del Ministero della Cultura del GEDAM"
PRINT
PRINT "ษออออออออออออออออออออออออออออออออออออป"
PRINT "บ -= SCUSATE IL RITARDO GENERATOR =- บ"
PRINT "ศออออออออออออออออออออออออออออออออออออผ"
PRINT
PRINT "Subject: [Dynamic Unofficial] Ritardi"
PRINT
PRINT ScusateTanto
' ==================== Fine Programma ============================
'+---------------------------------------------------------------------------+
'|  DATA Section - aggiungere a piacere, ricordando di modificare gli
indici |
'+---------------------------------------------------------------------------+
'--- Numero elementi Serie Dynamic
DATA 5
'--- Numero elementi Colonna 1, 2 e 3
DATA 25, 9, 17
'--- Serie Dynamic
DATA Evangelion, Giant Robot, Escaflowne, Cowboy BeBop, Ranma
DATA [ENDS]
'--- Colonna 1
DATA la dynamic planning, l'ufficio delle delle imposte ,la dogana
DATA la gainax, la Pioneer, la latteria, la capcom, i Metalmeccanici
DATA la takakosa, la Shogakukan, Luissa, la sony, il ministero degli
interni
DATA la Nintendo, don marco, la Kss, i negozianti, Mazzotta, il Gedam
DATA la Microsoft, Toriyama, la dynamic, i Cobas, Gelli, le poste
DATA [END1]
'--- Colonna 2
DATA spedito, finito, corretto, ricevuto, pagato, bevuto, gradito
DATA Mazzotta, capito
DATA [END2]
'--- Colonna 3
DATA windows2000, il doppiaggio, lo slatamento, la copertina
DATA la morte di Iaca, la traduzione, Mazzotta, l'adattamento
DATA Marco Don, netscape, lo sfratto, le vacanze, l'aumento
DATA l'enciclopedia di evangelion, la ragazza di Bigio, Minni, RAPACE
DATA [END3]
---- cut here ----
NOTA: non riesco a far funzionare bene la funzione RND, 
      e non c'ho voglia di studiare la cosa... 
      accontentatevi o fatelo voi :P:P:)
P.S.: La cornicetta dovrebbe essere in caratteri semigrafici...
P.P.S.: Per una versione window$ dovete pregarmi in ginocchio.
        Sui ceci :P:P:P:);)
        O pagare ^__^;;;;
-- 
ciriciao from kirone
... e Blue Ribbons a tutti

P.P.S.: Per una versione window$ dovete pregarmi in ginocchio.
Dimmi solo quanto tempo hai perso per fare questa versione :D
-- 
*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*
Tatewaki Kuno   -  
tate...@geocities.com
   - ICQ Uin
KORTAC Adept #5 -  10° Plotone Stardust     - 3325116
*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*

Get this...
Bravo, ora riscrivilo in un linguaggio di programmazione :-PPP
-- 
vb.          [v.bertola(at)
bertola.eu.org
 - M*RZ*'s Pusher User]<--------
----> 
http://bertola.eu.org/
    [Conan, Mononoke Hime e molto altro]<----
--------> 
http://www.poli.studenti.to.it/prometeo/
    [Progetto Prometeo]