[zxspectrum] BasiMon: Il codice..
- From: bbk <bbk@xxxxxx>
- To: zxspectrum@xxxxxxxxxxxxx
- Date: Thu, 03 Jan 2008 18:35:05 +0100
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
Other related posts:
