Grande Gianni!!! ah... ti eri dimenticato che il basic sinclair non necessita di inizializzazioni delle variabili ;))) potresti farlo diventare più compatto :))) ----- Original Message ----- From: "bbk" <bbk@xxxxxx> To: <zxspectrum@xxxxxxxxxxxxx> Sent: Thursday, January 03, 2008 6:35 PM Subject: [zxspectrum] BasiMon: Il codice.. > UAUAUAU chiamarlo codice e' un insulto alla programmazione (Luca, sputami):D > > ho fatto gli scriptini per generare mostri e nomi:) > > Nomi > 2293 LET s$="babebibobucacecicocufafefifofututit.. e via dicendo" > 2295 LET n=0: LET n$="" > 2297 FOR n=1 TO INT (RND*3)+2 > 2300 LET silla=INT (RND*50)*2+1 > 2315 LET n$=n$+s$(silla)+s$(silla+1) > 2320 NEXT n > 2350 RETURN > > genera roba tipo: > sutifovigi > rewosa > vofisa > vacuwive > mokevite > Divertente no?!:) > > Questo invece crea il mostro: > 1010 LET testa=0 > 1030 LET corpo=0 > 1050 LET gambe=0 > 1070 REM crea mostro > 1110 LET testa=INT (RND*9) > 1130 LET corpo=INT (RND*9) > 1150 LET gambe=INT (RND*9) > 1170 LET m$=STR$ testa+STR$ corpo+STR$ gambe > 1176 DIM x$(10,9) > 1177 LET x$(1)=" k kkkk k" > 1178 LET x$(2)=" x xxxx x" > 1179 LET x$(3)=" j jjjj j" > 1180 LET x$(4)=" w wwww w" > 1200 LET x$(5)=" z zzzz z" > 1220 LET x$(6)=" q qqqq q" > 1240 LET x$(7)=" h hhhh h" > 1260 LET x$(8)=" v vvvv v" > 1280 LET x$(9)=" 9 9999 9" > 1290 LET x$(10)=" 0 0000 0" > 1320 LET t$=x$(testa,1)+x$(testa,2)+x$(testa,3) > 1340 LET c$=x$(testa,4)+x$(testa,5)+x$(testa,6) > 1360 LET g$=x$(testa,7)+x$(testa,8)+x$(testa,9) > 1410 RETURN > > Il risultato sono dei pupazzetti tipo: > v > vvv > v v > > hehehehe:D > > Che sciocchezza di codice, mi vergogno.. soprattutto perche' e' > divertente il risultato. :) > Abbiate pazienza, ma sono EONI che non uso piu' il basic dello spectrum, > pensate che tengo il manuale aperto accanto alla tastiera. :) > > > hihihi:D > Come mi diverto con poco.. :D > > Bau > BBK >