101 lines
2.4 KiB
VB.net
101 lines
2.4 KiB
VB.net
randomize timer
|
|
color 15:print"ðððúTEXT-MAKERúððð";
|
|
color 7:print" written by RoboCopúINDUSTRIES"
|
|
print
|
|
5 x(1)=csrlin:rem aktuelle Zeile
|
|
y(1)=pos(0):rem aktuelle Spalte
|
|
color 12:print"šberlege ..."
|
|
a$(1)="der":a$(2)="die":a$(3)="das":a$(4)="ein":a$(5)="alle":a$(6)="kein"
|
|
b$(1)="Frau":b$(2)="Mann":b$(3)="Kind":b$(4)="Esel":b$(5)="Baum"
|
|
c$(1)="ist":c$(2)="war":c$(3)="sind":c$(4)="wird"
|
|
d$(1)="lustig":d$(2)="traurig":d$(3)="m�de":d$(4)="brav"
|
|
e$(1)="alt":e$(2)="jung":e$(3)="sch”n":e$(4)="braun":e$(5)="gut"
|
|
f$(1)="und":f$(2)="oder":f$(3)="aber":f$(4)="auch"
|
|
g$(1)="und":g$(2)="oder":g$(3)="aber":g$(4)="auch"
|
|
h$(1)="haben":h$(2)="kaufen":h$(3)="essen":h$(4)="h”ren"
|
|
i$(1)="Fr�chte":i$(2)="Obst":i$(3)="M”bel":i$(4)="Radio"
|
|
j$(1)="und":j$(2)="oder":j$(3)="aber":j$(4)="auch"
|
|
k$(1)="und":k$(2)="oder":k$(3)="aber":k$(4)="auch"
|
|
REM Hauptprogramm
|
|
|
|
WortA:
|
|
a=round((rnd*5)+1,0)
|
|
art$=a$(a)
|
|
text$=text$+art$+" "
|
|
x=round((rnd*1)+1,0)
|
|
if x=1 then WortE
|
|
if x=2 then WortB
|
|
|
|
WortB:
|
|
a=round((rnd*4)+1,0)
|
|
subs$=b$(a)
|
|
if art$="die" or art$="alle" and subs$="Mann" then subs$="M„nner"
|
|
if art$="das" and subs$="Mann" then subs$="M„nnlein"
|
|
text$=text$+subs$+" "
|
|
x=round((rnd*2)+1,0)
|
|
if x=1 then WortC
|
|
if x=2 then WortH
|
|
if x=3 then WortJ
|
|
|
|
WortC:
|
|
a=round((rnd*3)+1,0)
|
|
text$=text$+c$(a)+" "
|
|
goto WortD
|
|
|
|
WortD:
|
|
a=round((rnd*3)+1,0)
|
|
text$=text$+d$(a)+" "
|
|
x=round((rnd*1)+1,0)
|
|
if x=1 then Fertig
|
|
if x=2 then WortF
|
|
|
|
WortE:
|
|
a=round((rnd*4)+1,0)
|
|
text$=text$+e$(a)+" "
|
|
x=round((rnd*1)+1,0)
|
|
if x=1 then WortB
|
|
if x=2 then WortG
|
|
|
|
WortF:
|
|
a=round((rnd*3)+1,0)
|
|
text$=text$+f$(a)+" "
|
|
x=round((rnd*2)+1,0)
|
|
if x=1 then WortD
|
|
if x=2 then WortC
|
|
if x=3 then WortA
|
|
|
|
WortG:
|
|
a=round((rnd*3)+1,0)
|
|
text$=text$+g$(a)+" "
|
|
goto WortE
|
|
|
|
WortH:
|
|
a=round((rnd*3)+1,0)
|
|
text$=text$+h$(a)+" "
|
|
goto WortI
|
|
|
|
WortI:
|
|
a=round((rnd*3)+1,0)
|
|
text$=text$+i$(a)+" "
|
|
|
|
x=round((rnd*1)+1,0)
|
|
if x=1 then Fertig
|
|
if x=2 then WortK
|
|
|
|
WortJ:
|
|
a=round((rnd*3)+1,0)
|
|
text$=text$+j$(a)+" "
|
|
goto WortA
|
|
|
|
WortK:
|
|
a=round((rnd*3)+1,0)
|
|
text$=text$+k$(a)+" "
|
|
x=round((rnd*3)+1,0)
|
|
if x=1 then WortI
|
|
if x=2 then WortH
|
|
if x=3 then WortC
|
|
if x=4 then WortA
|
|
|
|
Fertig:
|
|
locate x(1)-1,y(1):color 7:print text$:text$=""
|
|
if schon=1 then end else schon=1:goto 5 |