Computerhilfen.de Logo
Forum
Tipps
News
Frage stellen

ROTKÄPPCHEN.BAS

     REM Rötkäppchen V1.0
     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
         end if
         if blumen = schoen then
            for rotkaeppchen = 1 to 250
                blumen = blumen + 1
            next rotkaeppchen
         end if
     next wald

     wolf = wolf + grossmutter
     if wolf.augen > grossmutter.augen or
        wolf.mund  > grossmutter.mund  or
        wolf.ohren > grossmutter.ohren then
        rotkaeppchen = misstrauisch
        wolf = wolf + rotkaeppchen
        jaeger = 1
        if jaeger = 1 then
           messer = 1
           if messer = 1 then
              grossmutter =  wolf(mid_(5to10)
              rotkaeppchen = wolf(mid_(11to12)
           end if
           messer = 0
           for jaeger 1 to 100
               wolf = wolf + stein
           next jaeger
           wolf = 0
           grossmutter  = :-)
           rotkaeppchen = :-)
           jaeger       = :-)
           rotkaeppchen return to mutter
           mutter       = :-)
        end if
     end if

Antworten zu ROTKÄPPCHEN.BAS:

Einmal ein Märchen, das jeder versteht ;D;D;D;D;D;D;D


« erst morgenein goldenes Klo! »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!

Fremdwörter? Erklärungen im Lexikon!
Type 1 Schriften
Type 1 ist ein Schriftformat, das die Schrift-Beschreibung in Form von PostScript-Befehlen speichert. PostScript-Schriften werden mithilfe von PostScript-Operationen besc...