Rotkäppchen in Basic implementiert

[206Rockford]

Code: Alles auswählen

GLOBAL 

Typ mensch 
   mutter 
   maedchen
   grossmutter
End Typ

maedchen < mutter
mutter < grossmutter

Typ Raubtier
   wolf
End Typ

Typ Pflanze
   waldbaum
   blume
End Typ

mutter, maedchen, grossmutter = 1
wolf = 0
waldbaum, blumen = array 1 to 1000
messer, jaeger = 0

Programm rotkaeppchen; rem von Herrn Grimm
grossmutter = :-(
mutter = rotkaeppchen + korb
mutter = gosub rotkaeppchen to grossmutter
for wald = 1 to 1000
   waldbaum = waldbaum + 1
   if waldbaum = 500 then wolf = visible then
      if blumen = schoen then
         for rotkaeppchen = 1 to 250
            blumen = blumen - 1 
         next rotkaeppchen
      end if
   end if
next wald
wolf = wolf + grossmutter 
if wolf.augen or
   wolf.mund or
   wolf.ohren > grossmutter.augen or
                grossmutter.mund or
                grossmutter.ohren
   then rotkaeppchen misstrauisch
wolf = wolf + rotkaeppchenjaeger = 1

if jaeger = 1 then messer = 1
if messer = 1 then jaeger
   grossmutter = wolf(mid$(5 to10)
   rotkaeppchen = wolf(mid$(l1 to 12)
end ifmesser = 0
for jaeger= 1 to 100
   wolf = wolf + stein
next jaeger

wolf = 0
grossmutter = :-)
rotkaeppchen = :-)
jaeger = :-)
rotkaeppchen return to mutter
mutter= :-)

Ich hau mich wech... *lol* :lol: :lol: :lol: :lol: :lol: :lol:

Hier http://www.janko.at/Humor/Rotkaeppchen/index.htm gibt´s nochmehr davon...!

[Kris]

achja ...

[engeldane]

Den Bulls*it lern ich gerade

PHP, SQl, so langsam kommt mirt die Galle hoch von dem Zeugs, aber das ist doch mal was anderes

[Sting]

>
> Den Bulls*it lern ich gerade
>

Willkommen im Club

[206Rockford]

Ich hab das mal umgeschrieben und ausprobiert - habe einfach die Variable Wolf rausgenommen und die Großmutter durch Christian ersetzt, aber denkt ihr das blöde schwarze Kästchen hat mir Kuchen oder Wein gebracht...!? Ich glaub die Technik ist noch nicht ganz ausgereift... :roll: