home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.ISO01.iso / magazin / optix / demo / fete.opt < prev    next >
Text File  |  1995-06-26  |  42KB  |  1,212 lines
  1. def(a)
  2. def(b)
  3. def(c)
  4. defs(titel$,'face')
  5. defs(HS)
  6.  
  7. procedure face(oft)
  8. rem *** erzeugt eine zufällige Bilddarstellung indem die Facexx.gif
  9. rem *** der Reihe nach von der Festplatte geladen werden 46 insgesamt.
  10. rem *** Hier muß darauf geachtet werden, daß der Dateiname mit Face anfängt
  11. rem *** gefolgt von der Nummerierung 01 - 46 wie hier. Als Bildformat wird
  12. rem *** .gif verlangt, und die Hintergrundfarbe 253 der momentanen
  13. rem *** Palette als keycolor. Die Bilder werden durch random zufällig geladen.
  14. rem *** (oft) bestimmt hier den wiederholungsfaktor.
  15. locals(a,b,c,d)
  16. keycol(253)
  17. key(on)
  18. do
  19.   if mousek <> keypressed
  20.     goto('end')
  21.   else
  22.     for a:= 1 to 6 do
  23.       if mousek <> keypressed
  24.         goto('end')
  25.       else
  26.         random(400,b)
  27.         random(500,c)
  28.         random(11,d)
  29.         HS := STR(a,1)
  30.         IF a < 10
  31.         HS := '0' + HS
  32.         endif
  33.         readwin( titel$ + HS + '.gif')
  34.         setallpal
  35.         loadwin(c,b,d,0)
  36.       endif
  37.     next(a)
  38.   endif
  39. loop(oft)
  40. :end
  41. return
  42.  
  43. procedure frame(xl,yo,xr,yu,col,dick)
  44.   rem ***  Erzeugt einen Rahmen m. den inneren Eckkoordinaten xl,yo,xr,yu
  45.   rem ***  und der Dicke 'dick'. Dabei wird bis zur halben Dicke
  46.   rem ***  des Rahmens jeder Linie fortlaufend ab der Farbe 'col' die
  47.   rem ***  jeweils folgende Farbe zugeordnet. Ab der halben Rahmendicke
  48.   rem ***  läuft die Farbzuordnung umgekehrt. Bei geeigneter Farbpalette
  49.   rem ***  kann so ein 'Rohrrahmen' erzeugt werden.
  50.   rem ***  z.B.:  GRADATION(240,249,12,24,15,24,48,30)
  51.   rem ***         FRAME(100,100,200,200,240,20)
  52.   rem ***
  53.   rem ***  nach Rückkehr ist SETCOLOR und VIEWPORT verändert.
  54.   locals(i,j)
  55.   viewport(xl,yo,xr,yu)
  56.   for i:=1 to dick/2 do
  57.     setcolor(col-i-1)
  58.     rectangle
  59.     incviewport
  60.   next(i)
  61.   if (dick/2)*2<>dick
  62.     incviewport
  63.   endif
  64.   for j:=1 to dick/2 do
  65.     setcolor(col-i+j)
  66.     rectangle
  67.     incviewport
  68.   next(j)
  69. return
  70.  
  71. begin                   <--------- Programmbeginn
  72.  
  73. readfont(1,'comix24.fnt')
  74. readpic('fete.tga')           <-------- hier wird das Hinter-
  75.                                 rem *** grundbild geladen
  76.  
  77. setallpal                     <-------- hier wird die Palette von
  78.                                 rem *** fete.bmp aktiviert die für
  79.                                 rem *** alle Bilder in dieser Demo
  80.                                 rem *** dient.
  81.  
  82. clearscreen(121)
  83. font(0)
  84. sysfont(3,1)
  85.  
  86. rem ****************Das ist die kurze Einleitung am Anfang******************
  87. rem ************************************************************************
  88. rem \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  89.  
  90. for b:= 0 to 23 do
  91.   viewport(0,0+(20*b),640,20+(20*b))
  92.   cbox(0,88+b,0)
  93. next(b)
  94.  
  95.   viewport(50,50,630,470)
  96.   cbox(9,0,0)
  97.   viewport(30,30,610,450)
  98.   cbox(0,138,0)
  99.  
  100. frame(30,30,610,450,187,10)
  101.  
  102. for a:= 0 to 1 do
  103.   setcolor(136+a*16)
  104.   printc(320+a,50+a,'Sehr geehrter Benutzer dieser DEMO')
  105.   printc(320+a,80+a,'Hier sehen Sie ein Beispiel einer Einladungsdiskette,')
  106.   printc(320+a,100+a,'die komplett in OPTIX programmiert wurde und für den')
  107.   printc(320+a,120+a,'Alltagsgebrauch gedacht ist. In diesem Fall ist es die')
  108.   printc(320+a,140+a,'Einladung zu einer Party!')
  109.   printc(320+a,160+a,'Der interessierte Anwender, kann sich das FETE.OPT File')
  110.   printc(320+a,180+a,'nehmen und mit einer OPTIX-Version (LITE, PRO oder')
  111.   printc(320+a,200+a,'die WORKSHOP-VERS) für den eigenen Gebrauch verwenden.')
  112.   printc(320+a,220+a,'Dazu braucht man nur die Texte und/oder Bilder zu ändern.')
  113.   printc(320+a,240+a,'Die nötigen Infos dafür finden Sie in den INF Dateien')
  114.   printc(320+a,260+a,'oder der Workshop Dokumentation in der Zeitschrift.')
  115.   printc(320+a,280+a,'Natürlich muß man die Demo nicht nur als Einladungsdiskette')
  116.   printc(320+a,300+a,'verwenden, es ergeben sich auch andere Einsatzgebiete')
  117.   printc(320+a,320+a,'(digitales Fotoalbum, Besondere Mitteilung, Minizeitschrift u.s.w.).')
  118.   printc(320+a,340+a,'Zur einfachen Umgestaltung, ist das OPT file dokumentiert')
  119.   printc(320+a,360+a,'und es liegt eine README.txt Datei als Hilfe bei.')
  120.   printc(320+a,405+a,'>>>    Taste für weiter    <<<')
  121. next(a)
  122.  
  123. sysfont(1,1)
  124. printc(500,455,'designed by Stefan Rennspieß')
  125.  
  126. repeat
  127.   rotpal(88,111)
  128.   pause(50)
  129. until mousek <> keypressed
  130.  
  131. rem ************************************************************************
  132. rem ************************************************************************
  133.  
  134. setallpal
  135.  
  136. clearscreen(0)
  137. font(0)
  138. sysfont(3,1)
  139. setcolor(229)
  140. printc(322,101,'...Na')                 -.     Hier ist der Text für den
  141. setcolor(224)                            |     Anfangsbildschirm eingetragen
  142. printc(320,100,'...Na')                  |     der beliebig geändert werden
  143. printc(321,100,'...Na')                  |     kann, man muß nur auf die
  144. pause(500)                               |     position am Screen achten
  145. setcolor(229)                            |     und sich eine beliebige
  146. printc(322,201,'nichts los')             |     Textfarbe aussuchen, die hier
  147. setcolor(224)                            |     mit Setcolor bestimmt wird
  148. printc(320,200,'nichts los')             |     und aus der Herschenden
  149. printc(321,200,'nichts los')             |          Palette ist.
  150. pause(500)                               |                
  151. setcolor(229)                            |                
  152. printc(322,301,'bei euch ?')             |                
  153. setcolor(224)                             >                
  154. printc(320,300,'bei euch ?')             |                
  155. printc(321,300,'bei euch ?')             |                
  156. pause(500)                               |                
  157. font(1)                                  |                
  158. textcolor(55)                            | 
  159. textbcolor(66)                           | 
  160. textspeed(50)                            | 
  161. textshadow(2,2)                          | 
  162. writestyle(3)                            , 
  163. printc(320,400,'...Na dann passt auf!') -
  164.  
  165.  
  166. pause(1500)
  167.  
  168. break(0)
  169.  
  170. wait(2000)
  171. loadpic(16,200)
  172. for a:= 0 to 5 do
  173.   setcolor(150)
  174.   brushline(0,12+(20*a),12+(20*a),0,5,50)
  175.   setcolor(141)
  176.   brushline(0,10+(20*a),10+(20*a),0,5,50)
  177. next(a)
  178. textcolor(55)
  179. textbcolor(95)
  180. textspeed(58)
  181. textshadow(2,2)
  182. writestyle(3)
  183. readsound('loop.voc')  <------------ hier wird die Hintergrund-
  184.                                  rem *** musik geladen
  185. startsound
  186. soundloop(on)                                              
  187. printc(320,50,'Es ist fete angesagt !!')                  -.  
  188. printc(320,100,'bei mir und keinen anderen.')              |  weterer
  189. pause(500)                                                 |   Text
  190. printc(320,200,'... ja ja das sagen sie alle !')            >  zum
  191. printc(320,250,'werdet ihr denken !')                      |   ändern
  192. printc(320,300,'doch halt ! überzeugt euch selbst !')      |
  193. printc(320,400,'von hier aus gibts alle nötigen infos.')   |
  194. textcolor(183)                                             ,
  195. printc(320,430,'einfach irgend nen punkt anklicken.')     -
  196. pause(5000)
  197.  
  198.   font(1)
  199.   writestyle(3)
  200.   readpic('fete.tga')
  201.   loadpic(8,10)
  202.  
  203.   for a:= 0 to 5 do                          -.  diese Schleife produziert
  204.     setcolor(150)                             |  die Linien in der linken
  205.     brushline(0,12+(20*a),12+(20*a),0,5,50)    > oberen Ecke
  206.     setcolor(141)                             |
  207.     brushline(0,10+(20*a),10+(20*a),0,5,50)   ,
  208.   next(a)                                    -
  209.  
  210.   vrect(5,5,55,55)
  211.  
  212.   frame(330,60,580,420,240,30)         -- Das ist der Menüuntergrund,
  213.   viewport(330,60,580,420)              | Rahmen und blaues Raster
  214.   cbox(9,143,20)                       --
  215.  
  216.   keycol(253)
  217.   key(1)
  218.  
  219.   readwin('face05.gif')                      -.  hier werden die Menübuttons
  220.   loadwin(355,65,33,10)                       |
  221.   readwin('essen3.tga')                       | geladen und durch loadwin
  222.   loadwin(470,135,22,10)                      |  
  223.   readwin('musik1.gif')                       | verkleinert dargestellt
  224.   loadwin(340,238,21,10)                       > 
  225.   readwin('karte.gif')                        |
  226.   loadwin(467,285,21,10)                      |
  227.   readwin('logo1.gif')                         |
  228.   loadwin(418,380,0,10)                      |
  229.  
  230.   textcolor(71)
  231.   textbcolor(143)
  232.   printat(15,150,'wer kommt denn ?')         -.  hier mal wieder Text,
  233.   printat(16,150,'wer kommt denn ?')          |  diesmal der aus dem
  234.   printat(133,5,'was gibts zu spachteln ?')   |  Hauptmenü
  235.   printat(134,5,'was gibts zu spachteln ?')   |
  236.   printat(15,353,'was hasten')                |
  237.   printat(16,353,'was hasten')                 >
  238.   printat(15,383,'für mucke ?')               |
  239.   printat(16,383,'für mucke ?')               |
  240.   printat(15,250,'wo issen das ?')            |
  241.   printat(16,250,'wo issen das ?')            |
  242.   printat(105,450,'was soll das ?')           ,
  243.   printat(106,450,'was soll das ?')          -
  244.  
  245.   for b:= 0 to 7 do                         -. diese vielen Schleifen
  246.     disk(513+(16*b),18,5,55)                 | zeichnen die roten Punkte
  247.     disk(280+(16*b),164,5,55)                | im Hauptmenü
  248.     disk(331+(16*b),463,5,55)                |   
  249.   next(b)                                    |
  250.  
  251.   for b:= 0 to 10 do                         |
  252.     disk(625,18+(16*b),5,55)                 |
  253.   next(b)                                    |
  254.  
  255.   for b:= 0 to 3 do                          |
  256.     disk(625-(16*b),178,5,55)                |
  257.     disk(310,264-(16*b),5,55)                | 
  258.     disk(443,463-(16*b),5,55)                | 
  259.   next(b)                                    | 
  260.  
  261.   disk(392,148,5,55)                         | 
  262.   for b:= 0 to 4 do                          | 
  263.     disk(230+(16*b),264,5,55)                | 
  264.     disk(486,216+(16*b),5,55)                | 
  265.   next(b)                                    | 
  266.  
  267.   for b:= 0 to 11 do                         | 
  268.     disk(310+(16*b),216,5,55)                | 
  269.   next(b)                                    | 
  270.  
  271.   for b:= 0 to 12 do                         | 
  272.     disk(195+(16*b),383,5,55)                | 
  273.   next(b)                                    | 
  274.  
  275.   for b:= 0 to 6 do                          | 
  276.     disk(387,383-(16*b),5,55)                , 
  277.   next(b)                                   -  
  278.  
  279.   font(0)
  280.   sysfont(1,1)
  281.   
  282.   setcolor(225)                                 -. hier wird der text
  283.   printc(455,47,'push a button or your friend')  | auf dem Rahmen gezeichnet
  284.   setcolor(182)                                  |
  285.   printc(454,46,'push a button or your friend') -  wird im Hauptmenü
  286.  
  287.  
  288.   font(1)
  289.   scrtobuf                    -.       hier wird der kleine rote
  290.   viewport(330,60,580,420)     |       Pfeil geladen und wandert
  291.   readwin('pfeill.gif')        |       dann nach unten
  292.   loadwin(449,80,0,0)          |
  293.   pause(500)                   |
  294.   restorebox(0,0)              |
  295.   readwin('pfeilr.gif')        |
  296.   loadwin(419,144,0,0)         |
  297.   pause(500)                   |
  298.   restorebox(0,0)               >
  299.   readwin('pfeill.gif')        |
  300.   loadwin(451,230,0,0)         |
  301.   pause(500)                   |
  302.   restorebox(0,0)              |
  303.   readwin('pfeilr.gif')        |
  304.   loadwin(411,296,0,0)         |
  305.   pause(500)                   |
  306.   restorebox(0,0)              |
  307.   readwin('pfeilu.gif')        |
  308.   loadwin(428,330,0,0)         ,
  309.   pause(500)                  -
  310.   restorebox(0,0)             
  311.   curscol(95,55)
  312.   curson(200,200)
  313.   goto('aa2')
  314.  
  315.  
  316.  
  317.   :aa  <-------------- das erste Label wohin immer
  318.                rem *** gesprungen wird wenn es
  319.                rem *** wieder ins Hauptmenü geht.
  320.  
  321.     font(1)
  322.     textshadow(2,2)
  323.     writestyle(3)
  324.     readpic('fete.tga')
  325.     loadpic(8,10)
  326.  
  327.     for a:= 0 to 5 do                          -.  diese Schleife produziert
  328.       setcolor(150)                             |  die Linien in der linken
  329.       brushline(0,12+(20*a),12+(20*a),0,5,50)    > oberen Ecke
  330.       setcolor(141)                             |
  331.       brushline(0,10+(20*a),10+(20*a),0,5,50)   ,
  332.     next(a)                                    -
  333.  
  334.     vrect(5,5,55,55)
  335.  
  336.     frame(330,60,580,420,240,30)  -- Das ist der Menüuntergrund,
  337.     viewport(330,60,580,420)       | Rahmen und blaues Raster
  338.     cbox(9,143,20)                --
  339.  
  340.     keycol(253)
  341.     key(1)
  342.  
  343.     readwin('face05.gif')       -.   hier werden die Menübuttons
  344.     loadwin(355,65,33,10)        |
  345.     readwin('essen3.tga')        | geladen und durch loadwin
  346.     loadwin(470,135,22,10)       |
  347.     readwin('musik1.gif')        |  verkleinert dargestellt
  348.     loadwin(340,238,21,10)        >
  349.     readwin('karte.gif')         |
  350.     loadwin(467,285,21,10)       | 
  351.     readwin('logo1.gif')          |
  352.     loadwin(418,380,0,10)       |
  353.  
  354.     textcolor(71)
  355.     textbcolor(143)
  356.     printat(15,150,'wer kommt denn ?')         -. hier mal wieder Text,
  357.     printat(16,150,'wer kommt denn ?')          | diesmal der aus dem
  358.     printat(133,5,'was gibts zu spachteln ?')   | Hauptmenü
  359.     printat(134,5,'was gibts zu spachteln ?')   |
  360.     printat(15,353,'was hasten')                |
  361.     printat(16,353,'was hasten')                 >
  362.     printat(15,383,'für mucke ?')               |
  363.     printat(16,383,'für mucke ?')               |
  364.     printat(15,250,'wo issen das ?')            |
  365.     printat(16,250,'wo issen das ?')            |
  366.     printat(105,450,'was soll das ?')           ,
  367.     printat(106,450,'was soll das ?')          - 
  368.  
  369.     for b:= 0 to 7 do                          -. diese vielen Schleifen
  370.       disk(513+(16*b),18,5,55)                  | zeichnen die roten Punkte
  371.       disk(280+(16*b),164,5,55)                 | im Hauptmenü
  372.       disk(331+(16*b),463,5,55)                 |
  373.     next(b)                                     |
  374.  
  375.     for b:= 0 to 10 do                          |
  376.       disk(625,18+(16*b),5,55)                  |
  377.     next(b)                                     |
  378.  
  379.     for b:= 0 to 3 do                           |
  380.       disk(625-(16*b),178,5,55)                 |
  381.       disk(310,264-(16*b),5,55)                 |
  382.       disk(443,463-(16*b),5,55)                 |
  383.     next(b)                                     |
  384.  
  385.     disk(392,148,5,55)                          |
  386.     for b:= 0 to 4 do                           |
  387.       disk(230+(16*b),264,5,55)                 |
  388.       disk(486,216+(16*b),5,55)                 |
  389.     next(b)                                     |
  390.  
  391.     for b:= 0 to 11 do                          |
  392.       disk(310+(16*b),216,5,55)                 |
  393.     next(b)                                     |
  394.  
  395.     for b:= 0 to 12 do                          |
  396.       disk(195+(16*b),383,5,55)                 |
  397.     next(b)                                     |
  398.  
  399.     for b:= 0 to 6 do                           |
  400.       disk(387,383-(16*b),5,55)                 ,
  401.     next(b)                                    -
  402.  
  403.     font(0)
  404.     sysfont(1,1)
  405.     setcolor(225)                                 -. das ist der Text der oben
  406.     printc(455,47,'push a button or your friend')  | auf dem Rahmen gezeichnet
  407.     setcolor(182)                                  ,
  408.     printc(454,46,'push a button or your friend') -  wird im Hauptmenü
  409.  
  410.     :aa1
  411.  
  412.     font(1)
  413.     scrtobuf                                   -. hier wird der kleine rote
  414.     viewport(330,60,580,420)                    | Pfeil geladen und wandert
  415.     readwin('pfeill.gif')                       | dann nach unten
  416.     loadwin(449,80,0,0)                         |
  417.     pause(100)                                  |
  418.     restorebox(0,0)                             |
  419.     readwin('pfeilr.gif')                       |
  420.     loadwin(419,144,0,0)                        |
  421.     pause(100)                                  |
  422.     restorebox(0,0)                             |
  423.     readwin('pfeill.gif')                       |
  424.     loadwin(451,230,0,0)                        |
  425.     pause(100)                                  |
  426.     restorebox(0,0)                             |
  427.     readwin('pfeilr.gif')                       |
  428.     loadwin(411,296,0,0)                        |
  429.     pause(100)                                  |
  430.     restorebox(0,0)                             |
  431.     readwin('pfeilu.gif')                       |
  432.     loadwin(428,330,0,0)                        |
  433.     pause(100)                                  ,
  434.     restorebox(0,0)                            -
  435.     curscol(95,55)          <-----hier kriegt der Mauscursor eine neue Farbe
  436.     curson(mousex,mousey)
  437.  
  438.   :aa2
  439.  
  440.     defbutton(337,69,105,72,0,0,0,0,'1','a1')   -. hier werden die Buttons
  441.     defbutton(476,132,95,85,0,0,0,0,'2','a2')    | markiert und die Sprunglabels
  442.     defbutton(339,238,101,25,0,0,0,0,'3','a3')   | festgelegt.
  443.     defbutton(467,286,98,91,0,0,0,0,'4','aa4')    >
  444.     defbutton(422,381,49,25,0,0,0,0,'5','a5')    |
  445.     defbutton(5,5,50,50,0,0,0,0,'s','a6')        |
  446.     defbutton(584,288,22,130,15,1,0,1,esc,'a8') -
  447.  
  448.     font(0)
  449.     sysfont(1,1)
  450.     setcolor(71)
  451.     cursoff
  452.     printc(596,300,'E')   -.
  453.     printc(596,310,'S')    |
  454.     printc(596,320,'C')    |  das ist die Beschriftung für den EXIT-Button
  455.     printc(596,337,'f')    |
  456.     printc(596,347,'o')     >
  457.     printc(596,357,'r')    |
  458.     printc(596,376,'E')    |
  459.     printc(596,386,'X')    |
  460.     printc(596,396,'I')    ,
  461.     printc(596,406,'T')   -
  462.     curson(mousex,mousey)
  463.     checkbutton('aa1',10,0)
  464.  
  465.     :a1 ################# Der Menüpunkt wer kommt denn #####################
  466.  
  467.       readsound('klick.snd')
  468.       startsound
  469.       wait(1000)
  470.       cursoff
  471.       readpic('fete.tga')
  472.       loadpic(0,0)
  473.       font(1)
  474.       readwin('fete2.tga')
  475.       keycol(253)
  476.       key(1)
  477.       loadwin(0,0,2,100)
  478.  
  479.       for a:= 0 to 5 do
  480.         setcolor(150)
  481.         brushline(0,12+(20*a),12+(20*a),0,5,50)
  482.         setcolor(141)
  483.         brushline(0,10+(20*a),10+(20*a),0,5,50)
  484.       next(a)
  485.  
  486.       readsound('loop.voc')
  487.       startsound
  488.       soundloop(on)
  489.  
  490.       viewport(0,0,xmax,ymax)
  491.  
  492.       face(10)     <------------------------------ hier wird die Face Prozedur
  493.                                           rem *** aufgerufen siehe oben ^
  494.  
  495.       viewport(120,80,540,420)  -.
  496.       cbox(9,0,10)               |  das ist die graue Fläche, mit Schatten,
  497.       viewport(110,70,530,410)   |  wo der Text drauf kommt
  498.       cbox(11,231,10)             >
  499.       plateau(224,239)           | 
  500.       textcolor(55)              ,
  501.       textbcolor(65)            -
  502.  
  503.       printc(308,100,'leute kommen ne ')             -. wieder Text
  504.       printc(308,125,'ganze menge !')                 |
  505.       printc(308,150,'platz ist auch für')            |
  506.       printc(308,175,'ne ganze menge !')              |
  507.       textcolor(238)                                  |
  508.       printc(318,210,'das niedersachsen Stadion')     |
  509.       printc(318,235,'hab ich leider nich gekriegt')  |
  510.       printc(318,260,'auch hat prince abgesagt!')     |
  511.       printc(318,285,'aber ansonsten kommen')         |
  512.       printc(318,310,'bis jetzt ca.30 leute')         |
  513.       textcolor(58)                                   ,
  514.       printc(318,360,'wenn das nicht reicht ?')      -
  515.  
  516.       font(0)
  517.       sysfont(2,1)
  518.       setcolor(63)
  519.       printc(319,401,'irgend ne Taste drücken, dann gehts zurück')
  520.       setcolor(58)
  521.       printc(318,400,'irgend ne Taste drücken, dann gehts zurück')
  522.       pause(0)
  523.  
  524.       scrtobuf
  525.  
  526.       viewport(0,0,xmax,ymax)
  527.       readwin('ncc1701d.gif')
  528.  
  529.       for a:= 0 to 210 do
  530.         if mousek <> keypressed
  531.                                       rem <-------- hier wird die Enterprise
  532.           goto('end')
  533.         else
  534.           loadwin(0+(2*a),470-(2*a),0,0)  <-------- auf Fahrt geschickt
  535.           wait(20)
  536.         endif
  537.       next(a)                             <--------
  538.  
  539.       :end
  540.         cursoff
  541.         readsound('loop.voc')
  542.         startsound
  543.         soundloop(on)
  544.  
  545.         goto('aa')   <------------- Rücksprung ins Hauptmenü
  546.  
  547.     :a2 ######################## was gibts zu spachteln ####################
  548.  
  549.       readsound('klick.snd')
  550.       startsound
  551.       wait(1000)
  552.       cursoff
  553.       readpic('fete.tga')
  554.       loadpic(0,0)
  555.       keycol(253)
  556.       key(1)
  557.       readwin('fete2.tga')
  558.       loadwin(0,0,5,100)
  559.  
  560.       for a:= 0 to 5 do
  561.         setcolor(150)
  562.         brushline(0,12+(20*a),12+(20*a),0,5,50)
  563.         setcolor(141)
  564.         brushline(0,10+(20*a),10+(20*a),0,5,50)
  565.       next(a)
  566.  
  567.       for a:= 0 to 15 do                  <------ hier wird das runde Plateuau
  568.         disk(320,240,196-(1*a),239-(1*a)) <------ im Essen Menüpunkt gezeichnet
  569.       next(a)                             <------
  570.  
  571.       readsound('loop.voc')
  572.       startsound
  573.       soundloop(on)
  574.  
  575.       readwin('essen3.tga')
  576.       loadwin(170,120,31,0)
  577.       font(1)
  578.       textshadow(1,1)
  579.       textcolor(71)
  580.       textbcolor(143)
  581.       printat(100,16,'zu essen und trinken gibts genug!')  -. wieder Text
  582.       printc(70,110,'von')                                  |
  583.       printc(70,190,'Chips')                                |
  584.       printc(70,290,'bis')                                  | 
  585.       printc(90,380,'steaks!')                              |
  586.       printc(560,80,'von')                                  |
  587.       printc(555,140,'Wasser')                              |
  588.       printc(565,250,'bis ')                                ,
  589.       printc(565,330,'bier!')                              -
  590.       viewport(90,440,560,460)
  591.       cbox(10,235,10)
  592.       font(0)
  593.       sysfont(2,1)
  594.       setcolor(63)
  595.       printat(101,444,'irgend ne Taste drücken, dann gehts wieder ins Hauptmenü')
  596.       setcolor(58)
  597.       printat(100,443,'irgend ne Taste drücken, dann gehts wieder ins Hauptmenü')
  598.       curson(mousex,mousey)
  599.       pause(0)
  600.       cursoff
  601.       readsound('loop.voc')
  602.       startsound
  603.       soundloop(on)
  604.  
  605.       goto('aa')  <--------------sprung ins Hauptmenü
  606.  
  607.     :a3 ######################### musik ####################################
  608.  
  609.       readsound('klick.snd')
  610.       startsound
  611.       cursoff
  612.       wait(1500)
  613.       clearscreen(243)
  614.       readsound('hip2.voc')
  615.       startsound
  616.       soundloop(on)
  617.  
  618.       for a:= 0 to 5 do
  619.         setcolor(150)
  620.         brushline(0,12+(20*a),12+(20*a),0,5,50)
  621.         setcolor(141)
  622.         brushline(0,10+(20*a),10+(20*a),0,5,50)
  623.       next(a)
  624.  
  625.       keycol(253)
  626.       key(on)
  627.  
  628.       viewport(166,392,469,476)
  629.       cbox(0,254,0)
  630.       plateau(224,239)
  631.       readwin('musik1.gif')
  632.       loadwin(170,395,0,0)
  633.       readwin('musik2.gif')
  634.       loadwin(5,218,0,0)
  635.       readwin('musik2.gif')
  636.       loadwin(547,218,0,0)
  637.  
  638.       viewport(145,0,494,135)
  639.       cbox(0,254,0)
  640.       plateau(224,239)
  641.  
  642.       readwin('light.gif')
  643.       loadwin(148,3,0,0)
  644.  
  645.       readwin('light1.gif')
  646.       loadwin(0,3,0,0)
  647.  
  648.       readwin('light1.gif')
  649.       loadwin(485,3,0,0)
  650.  
  651.       scrtobuf
  652.       font(1)
  653.       textcolor(178)
  654.       textbcolor(172)
  655.       printc(320,182,'musik ist auch da!')              -.
  656.       printc(320,220,'aus der allerfeinsten')            |  Text
  657.       printc(320,250,'Konserve, kann aber')              |  
  658.       printc(320,280,'auch mitgebracht werden.')        -
  659.  
  660.       font(0)
  661.       sysfont(2,1)
  662.       setcolor(63)
  663.       printat(96,364,'irgend ne Taste drücken, dann gehts wieder ins Hauptmenü')
  664.       setcolor(58)
  665.       printat(95,363,'irgend ne Taste drücken, dann gehts wieder ins Hauptmenü')
  666.       curson(mousex,mousey)
  667.       repeat
  668.         rotpal(39,55)        -.
  669.         rotpal(56,72)         |  hier wird die Pallette rotiert, um den licht-
  670.         rotpal(88,127)       -   effekt zu erzeugen
  671.       until mousek <> keypressed
  672.       cursoff
  673.  
  674.       readsound('loop.voc')
  675.       startsound
  676.       soundloop(on)
  677.       setallpal
  678.       goto('aa')
  679.  
  680.     :aa4 ########################## karte ################################
  681.  
  682.       readsound('klick.snd')
  683.       startsound
  684.       wait(1000)
  685.       :a4
  686.         cursoff
  687.         clearscreen(159)
  688.           for a:= 0 to 23 do                       -.
  689.             viewport(0,10*a,640,10*a+a)             |  der Hintergrundeffekt
  690.             cbox(0,136+a,0)                          > im Karte-Menü 
  691.             viewport(0,ymax-10*a,640,ymax-10*a+a)   |
  692.             cbox(0,136+a,0)                        -
  693.           next(a)
  694.         readwin('karte1.tga')
  695.         for a:= 0 to 5 do
  696.           setcolor(150)
  697.           brushline(0,12+(20*a),12+(20*a),0,5,50)
  698.           setcolor(141)
  699.           brushline(0,10+(20*a),10+(20*a),0,5,50)
  700.         next(a)
  701.         readsound('loop.voc')
  702.         startsound
  703.         soundloop(on)
  704.         keycol(253)
  705.         key(on)
  706.         loadwin(0,0,3,50)
  707.         font(1)
  708.         textbcolor(55)
  709.         textcolor(71)
  710.         printc(320,14,'wie komme ich dahin ?')
  711.         textcolor(136)
  712.         printc(320,188,'1. ruhe bewahren!')
  713.         printc(320,240,'2. karte nehmen!')
  714.         readwin('karte.gif')
  715.         pause(2000)
  716.         setcolor(0)
  717.         loadwin(200,110,17,0)
  718.         loadwin(190,100,1,50)
  719.         viewport(28,378,232,477)
  720.         cbox(9,0,0)
  721.         frame(35,385,215,460,236,15)
  722.         viewport(28,378,222,467)
  723.         cbox(0,229,0)
  724.         font(0)
  725.         sysfont(3,1)
  726.  
  727.         :k4 ******************* Sprungmarke fürs Kartenmenü ****************
  728.  
  729.           curson(mousex,mousey)
  730.           font(1)
  731.           writestyle(1)
  732.           defbutton(33,383,89,37,15,1,0,1,'i','k1')
  733.           textcolor(238)
  734.           cursoff
  735.           printat(54,390,'info')
  736.           textcolor(225)
  737.           printat(56,392,'info')
  738.           textcolor(232)
  739.           printat(55,391,'info')
  740.           curson(mousex,mousey)
  741.  
  742.           defbutton(128,383,89,37,15,1,0,1,esc,'k3')
  743.           textcolor(238)
  744.           cursoff
  745.           printat(144,390,'exit')
  746.           textcolor(225)
  747.           printat(146,392,'exit')
  748.           textcolor(232)
  749.           printat(145,391,'exit')
  750.           curson(mousex,mousey)
  751.  
  752.           defbutton(33,425,184,37,15,1,0,1,'d','k2')
  753.           textcolor(238)
  754.           cursoff
  755.           printat(68,431,'drucken')
  756.           textcolor(225)
  757.           printat(70,433,'drucken')
  758.           textcolor(232)
  759.           printat(69,432,'drucken')
  760.           curson(mousex,mousey)
  761.           writestyle(3)
  762.           checkbutton('aa',30,0)
  763.  
  764.         :k1 ******************* der Info Button ***************************
  765.           cursoff
  766.           viewport(493,38,636,378)
  767.           cbox(9,0,0)
  768.           viewport(490,35,633,375)
  769.           cbox(1,139,10)
  770.           plateau(224,239)
  771.           font(0)
  772.           sysfont(3,1)
  773.           for a:=0 to 1 do
  774.             setcolor(223+a)                        -.
  775.             printc(562-a,50-a ,'>> Der  Weg <<')    |
  776.             printc(562-a,65-a ,'Man fährt über')    |
  777.             printc(562-a,80-a ,'die A00 bis')       |
  778.             printc(562-a,95-a ,'DINGSDA und')       |
  779.             printc(562-a,110-a,'biegt links ab')    |
  780.             printc(562-a,125-a,'auf die B00.Von')   |
  781.             printc(562-a,140-a,'dort immer ge-')    |
  782.             printc(562-a,155-a,'rade aus bis')      |
  783.             printc(562-a,170-a,'ANGENOMMEN.Dort')   |  die Wegbeschreibung
  784.             printc(562-a,185-a,'die Scheinstr.')    |
  785.             printc(562-a,200-a,'nach Norden')        >
  786.             printc(562-a,215-a,'folgen und bei')    |
  787.             printc(562-a,230-a,'der dritten')       |
  788.             printc(562-a,245-a,'Kreuzung in die')   |
  789.             printc(562-a,260-a,'Scheinallee ab-')   |
  790.             printc(562-a,275-a,'biegen und die')    |
  791.             printc(562-a,290-a,'Nummer 12 suchen')  |
  792.             printc(562-a,305-a,'und schon biste')   |
  793.             printc(562-a,320-a,'da!')               |
  794.             setcolor(56-a)                          |
  795.             printc(562-a,340-a,'Klick für')         ,
  796.             printc(562-a,355-a,'weiter!')          -
  797.           next(a)
  798.           keycol(253)
  799.           key(on)
  800.           scrtobuf
  801.           curson(mousex,mousey)
  802.  
  803.           repeat                                -.
  804.             viewport(424,309,471,358)            |
  805.             readwin('pfeill.gif')                |
  806.             loadwin(424,309,0,0)                 |
  807.             if mousek <> keypressed              |
  808.               goto('a4')                         |
  809.             else                                 |
  810.               pause(500)                         |
  811.               restorebox(0,0)                    |
  812.               viewport(332,263,379,312)          |
  813.               readwin('pfeilr.gif')              |
  814.               loadwin(332,263,0,0)               |
  815.               if mousek <> keypressed            |
  816.                 goto('a4')                       |
  817.               else                               |
  818.                 pause(500)                       |   der wandernde
  819.                 restorebox(0,0)                  |   rote Pfeil
  820.                 viewport(337,174,384,223)         >  im Info menü
  821.                 readwin('pfeilu.gif')            |
  822.                 loadwin(337,174,0,0)             |
  823.                 if mousek <> keypressed          |
  824.                   goto('a4')                     |
  825.                 else                             |
  826.                   pause(500)                     |
  827.                   restorebox(0,0)                |
  828.                   viewport(292,233,339,282)      |
  829.                   readwin('pfeilo.gif')          |
  830.                   loadwin(292,233,0,0)           |
  831.                   if mousek <> keypressed        |
  832.                     goto('a4')                   |
  833.                   else                           |
  834.                     pause(500)                   |
  835.                     restorebox(0,0)              |
  836.                   endif                          |
  837.                 endif                            |
  838.               endif                              ,
  839.             endif                               -
  840.           until mousek <> keypressed
  841.  
  842.           goto('a4')
  843.  
  844.         :k2 ********************* der Drucken Button ***********************
  845.  
  846.            if prnstatus=223
  847.                 goto('printok') <------hier wird der Druckerstatus abgefragt
  848.             else
  849.               if prnstatus=159
  850.                 goto('printok')
  851.               else
  852.                 cursoff
  853.                 scrtobuf
  854.                 viewport(195,150,465,250)
  855.                 cbox(9,0,0)
  856.                 viewport(185,140,455,240)
  857.                 cbox(0,228,0)
  858.                 plateau(224,239)
  859.                 font(0)
  860.                 sysfont(3,1)
  861.                 for a:=0 to 1 do
  862.                   setcolor(31-a)
  863.                   printc(325-a,160-a,'Dein Drucker is nich ready!')
  864.                   printc(325-a,180-a,'ich würd sagen, Mangel beheben ')
  865.                   printc(325-a,200-a,'und dann noch mal versuchen.')
  866.                   printc(325-a,220-a,'(Taste für weiter!)')
  867.                 next(a)
  868.                 curson(mousex,mousey)
  869.                 viewport(184,139,466,251)
  870.                 pause(0)
  871.                 cursoff
  872.                 restorebox(0,0)
  873.                 goto('k4')
  874.                 curson(mousex,mousey)
  875.               endif
  876.             endif
  877.  
  878.           :printok *************** das hier wird dann gedruckt *************
  879.             cursoff
  880.  
  881.             lprintln('               Die Wegbeschreibung!                      ')
  882.             lprintln('               --------------------  Scheinallee         ')
  883.             lprintln('Man fährt über die              ____[______              ')
  884.             lprintln('A00 bis DINGSDA und         ___ ______  ___              ')
  885.             lprintln('biegt links ab auf         /   \      ||                 ')
  886.             lprintln('die B00. Von dort          | 12|    ------               ')
  887.             lprintln('immer gerade aus bis       |___|      ||  <-Kreuzungen   ')
  888.             lprintln('ANGENOMMEN. Dort                    ------               ')
  889.             lprintln('die Scheinstr. nach                  _||-B00   DINGSDA   ')
  890.             lprintln('Norden folgen, bei                  / ||\______/___  \   ')
  891.             lprintln('der dritten Kreuzung       Scheinstr--> __________ \  |  ')
  892.             lprintln('in die Scheinallee                  | |||      |  \ \ |  ')
  893.             lprintln('abbiegen und die                    \___/      |   \ \/  ')
  894.             lprintln(' Nummer 12 suchen-                ANGENOMMEN    \___\ \  ')
  895.             lprintln('und schon biste da !                             A00-\ \ ')
  896.  
  897.             curson(mousex,mousey)
  898.           goto('k4')
  899.  
  900.         :k3 ******************** Rücksprunglabel ins Hauptmenü *************
  901.  
  902.           cursoff
  903.           readsound('loop.voc')
  904.           startsound
  905.           soundloop(on)
  906.           goto('aa')
  907.  
  908.     :a5 ############################# info ##################################
  909.  
  910.       readsound('klick.snd')
  911.       startsound
  912.       wait(1000)
  913.       cursoff
  914.       readpic('fete.tga')
  915.       loadpic(0,0)
  916.       keycol(253)
  917.       key(on)
  918.       readwin('fete2.tga')
  919.       loadwin(0,0,4,100)
  920.  
  921.       for a:= 0 to 5 do
  922.         setcolor(150)
  923.         brushline(0,12+(20*a),12+(20*a),0,5,50)
  924.         setcolor(141)
  925.         brushline(0,10+(20*a),10+(20*a),0,5,50)
  926.       next(a)
  927.       readsound('loop.voc')
  928.       startsound
  929.       soundloop(on)
  930.       font(1)
  931.       textshadow(1,1)
  932.       textcolor(55)
  933.       textbcolor(71)
  934.       printc(320,35, 'dies ist meine offizielle Einladungsdisk')  -.
  935.       printc(320,65, 'für "dich", zu meiner Party am 11.11.95')    |
  936.       printc(320,95, 'um 11.11 Uhr. die party steigt bei mir')     | der Text
  937.       printc(320,125,'zuhause "Scheinallee" 12 und es wird')       | im Info
  938.       printc(320,155,'mächtig voll werden. darum (wer zu')         |  Menü
  939.       printc(320,185,'spät kommt, den bestraft der haus-')          >
  940.       printc(320,215,'meister!) antworte mir per telefon')         |
  941.       printc(320,245,'oder schriftlich, damit ich weis wer')       |
  942.       printc(320,275,'kommt und getränke kaltstelle! hier')        |
  943.       printc(320,305,'kannst du dir deinen antwortzettel')         |
  944.       printc(255,335,'ausdrucken lassen und ab in')                ,
  945.       printc(235,365,' den nächsten postkasten.')                 -
  946.       keycol(253)
  947.       key(on)
  948.       readwin('telefon.gif')
  949.       setcolor(240)
  950.       loadwin(412,344,16,0)
  951.       setcolor(234)
  952.       loadwin(407,339,16,0)
  953.       setcolor(228)
  954.       loadwin(408,340,16,0)
  955.       setcolor(224)
  956.       loadwin(409,341,16,0)
  957.  
  958.       loadwin(410,342,0,0)
  959.  
  960.       viewport(448,432,578,452)
  961.       cbox(9,228,0)
  962.       font(0)
  963.       sysfont(3,1)
  964.       setcolor(55)
  965.       printc(513,443,'0511 / 86 87 83')
  966.       setcolor(71)
  967.       printc(514,444,'0511 / 86 87 83')
  968.  
  969.         :a51 ********************* Rücksprunglabel fürs Info-Menü ***********
  970.  
  971.       curson(mousex,mousey)
  972.       font(1)
  973.  
  974.       defbutton(32,394,180,59,15,1,0,1,'d','id')
  975.  
  976.       writestyle(1)
  977.       cursoff
  978.       textcolor(225)
  979.       printc(123,425,'drucken')
  980.       textcolor(238)
  981.       printc(121,423,'drucken')
  982.       textcolor(232)
  983.       printc(122,424,'drucken')
  984.       curson(mousex,mousey)
  985.  
  986.       defbutton(219,394,180,59,15,1,0,1,esc,'ie')
  987.  
  988.       textcolor(225)
  989.       cursoff
  990.       printc(310,425,'zurück')
  991.       textcolor(238)
  992.       printc(308,423,'zurück')
  993.       textcolor(232)
  994.       printc(309,424,'zurück')
  995.       curson(mousex,mousey)
  996.  
  997.       checkbutton('aa',400,0)
  998.  
  999.  
  1000.       :id ************************ der Druck-Button ***********************
  1001.  
  1002.         scrtobuf
  1003.            if prnstatus=223
  1004.                 goto('idprintok')
  1005.             else
  1006.               if prnstatus=159
  1007.                 goto('idprintok')
  1008.               else
  1009.                 cursoff
  1010.                 viewport(195,150,465,250)
  1011.                 cbox(9,0,0)
  1012.                 viewport(185,140,455,240)
  1013.                 cbox(0,228,0)
  1014.                 plateau(224,239)
  1015.                 font(0)
  1016.                 sysfont(3,1)
  1017.  
  1018.                 for a:=0 to 1 do
  1019.                   setcolor(31-a)
  1020.                   printc(325-a,160-a,'Dein Drucker is nich ready!')
  1021.                   printc(325-a,180-a,'ich würd sagen, Mangel beheben ')
  1022.                   printc(325-a,200-a,'und dann noch mal versuchen.')
  1023.                   printc(325-a,220-a,'(Taste für weiter!)')
  1024.                 next(a)
  1025.  
  1026.                 curson(mousex,mousey)
  1027.                 pause(0)
  1028.                 viewport(0,0,xmax,ymax)
  1029.                 cursoff
  1030.                 restorebox(0,0)
  1031.                 curson(mousex,mousey)
  1032.                 goto('a51')
  1033.               endif
  1034.             endif
  1035.  
  1036.           :idprintok ************* das wird im Info Menu ausgedruckt *******
  1037.             cursoff
  1038.  
  1039.             lprintln(' ')
  1040.             lprintln(' ')
  1041.             lprintln(' ')
  1042.             lprintln(' ')
  1043.             lprintln(' ')
  1044.             lprintln('ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja')
  1045.             lprintln(' ')
  1046.             lprintln(' ')
  1047.             lprintln(' ')
  1048.             lprintln(' ')
  1049.             lprintln(' ')
  1050.             lprintln(' ')
  1051.             lprintln(' ')
  1052.             lprintln('                 ich werde kommen ')
  1053.             lprintln(' ')
  1054.             lprintln('             []   mit  [ ]  Personen ')
  1055.             lprintln(' ')
  1056.             lprintln('             []   oder allein ')
  1057.             lprintln(' ')
  1058.             lprintln(' ')
  1059.             lprintln(' ')
  1060.             lprintln(' ')
  1061.             lprintln(' ')
  1062.             lprintln(' ')
  1063.             lprintln(' ')
  1064.             lprintln('         Name:_____________________________ ')
  1065.             lprintln(' ')
  1066.             lprintln(' ')
  1067.             lprintln('       Straße:_____________________________')
  1068.             lprintln(' ')
  1069.             lprintln(' ')
  1070.             lprintln('          Ort:_____________________________  ')
  1071.             lprintln(' ')
  1072.             lprintln(' ')
  1073.             lprintln('          Tel:_____________________________  ')
  1074.             lprintln(' ')
  1075.             lprintln(' ')
  1076.             lprintln(' ')
  1077.             lprintln(' ')
  1078.             lprintln(' ')
  1079.             lprintln(' ')
  1080.             lprintln(' ')
  1081.             lprintln('   und bringe noch sonstiges _______________________ mit ')
  1082.             lprintln(' ')
  1083.             lprintln(' ')
  1084.             lprintln(' ')
  1085.             lprintln(' ')
  1086.             lprintln(' ')
  1087.             lprintln(' ')
  1088.             lprintln('   das geht an ')
  1089.             lprintln('   Willi Wichtig ')
  1090.             lprintln('   scheinalle 12 ')
  1091.             lprintln('   00000 Angenommen ')
  1092.  
  1093.             curson(mousex,mousey)
  1094.           goto('a51')
  1095.  
  1096.       :ie ************************* Rücksprung ins Hauptmenü ***************
  1097.  
  1098.         cursoff
  1099.         readsound('loop.voc')
  1100.         startsound
  1101.         soundloop(on)
  1102.         goto('aa')
  1103.  
  1104.     :a6 ######################### Der Menüpunkt mit den Messagekugeln #######
  1105.  
  1106.       cursoff
  1107.       readpic('fete.tga')
  1108.       loadpic(17,10)
  1109.  
  1110.       for a:= 0 to 5 do
  1111.         setcolor(150)
  1112.         brushline(0,12+(20*a),12+(20*a),0,5,50)
  1113.         setcolor(141)
  1114.         brushline(0,10+(20*a),10+(20*a),0,5,50)
  1115.       next(a)
  1116.  
  1117.       font(0)
  1118.       sysfont(3,1)
  1119.       setcolor(48)
  1120.       printat(274,13,'find the Message !')
  1121.       setcolor(55)
  1122.       printat(275,14,'find the Message !')
  1123.       setcolor(48)
  1124.       printat(519,456,'"ESC" for EXIT')
  1125.       setcolor(55)
  1126.       printat(520,457,'"ESC" for EXIT')
  1127.       curson(mousex,mousey)
  1128.  
  1129.       :top *********************** Rücksprunglabel *************************
  1130.  
  1131.         repeat
  1132.         until mousek =0
  1133.  
  1134.         defbutton(322,208,28,28,0,0,0,0  ,'1','t1')-.
  1135.         defbutton(391,171,41,41,0,0,0,0  ,'2','t2') |  die Buttonabfrage für
  1136.         defbutton(326,60,64,64,0,0,0,0   ,'3','t3') |
  1137.         defbutton(166,63,98,98,0,0,0,0   ,'4','t4')  > die Gimmick-Sounds
  1138.         defbutton(130,233,132,132,0,0,0,0,'5','t5') |
  1139.         defbutton(341,289,146,146,0,0,0,0,'6','t6') |  auf den Kugeln
  1140.         defbutton(456,114,159,159,0,0,0,0,'7','t7') |
  1141.         defbutton(520,457,110,13,0,0,0,0 ,esc,'t8') ,
  1142.         checkbutton('aa',20,0)                     -
  1143.  
  1144.         :t1
  1145.           readsound('hey.wav')
  1146.           startsound
  1147.           goto('top')
  1148.         :t2
  1149.           readsound('mann.wav')
  1150.           startsound
  1151.           goto('top')
  1152.         :t3
  1153.           readsound('hier.wav')
  1154.           startsound
  1155.           goto('top')
  1156.         :t4
  1157.           readsound('steigt.wav')
  1158.           startsound
  1159.           goto('top')
  1160.         :t5
  1161.           readsound('eine.wav')
  1162.           startsound
  1163.           goto('top')
  1164.         :t6
  1165.           readsound('stark.wav')
  1166.           startsound
  1167.           goto('top')
  1168.         :t7
  1169.           readsound('party.wav')
  1170.           startsound
  1171.           goto('top')
  1172.  
  1173.         :t8 *************************Rücksprung ins Hauptmenü **************
  1174.  
  1175.           cursoff
  1176.           readsound('loop.voc')
  1177.           startsound
  1178.           soundloop(on)
  1179.           goto('aa')
  1180.  
  1181.  
  1182.     :a8  ##################### Exit-Label ##############
  1183.  
  1184.       readsound('klick.snd')
  1185.       startsound
  1186.       readpic('fete.tga')
  1187.       loadpic(0,0)
  1188.       keycol(253)
  1189.       key(1)
  1190.       readwin('fete2.tga')
  1191.       loadwin(0,0,7,100)
  1192.  
  1193.       for a:= 0 to 5 do
  1194.         setcolor(150)
  1195.         brushline(0,12+(20*a),12+(20*a),0,5,50)
  1196.         setcolor(141)
  1197.         brushline(0,10+(20*a),10+(20*a),0,5,50)
  1198.       next(a)
  1199.  
  1200.       font(1)
  1201.       textcolor(55)
  1202.       textbcolor(71)
  1203.       printc(320,200,'bis danne und komm nich zu spät') <---der letzte Text
  1204.       printc(320,300,'dein willi')
  1205.       break(1)
  1206.       pause(5000)
  1207.  
  1208.     end
  1209.  
  1210.  
  1211.  
  1212.