home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.BIN
/
magazin
/
optix
/
demo
/
fete.opt
< prev
next >
Wrap
Text File
|
1995-06-26
|
42KB
|
1,212 lines
def(a)
def(b)
def(c)
defs(titel$,'face')
defs(HS)
procedure face(oft)
rem *** erzeugt eine zufällige Bilddarstellung indem die Facexx.gif
rem *** der Reihe nach von der Festplatte geladen werden 46 insgesamt.
rem *** Hier muß darauf geachtet werden, daß der Dateiname mit Face anfängt
rem *** gefolgt von der Nummerierung 01 - 46 wie hier. Als Bildformat wird
rem *** .gif verlangt, und die Hintergrundfarbe 253 der momentanen
rem *** Palette als keycolor. Die Bilder werden durch random zufällig geladen.
rem *** (oft) bestimmt hier den wiederholungsfaktor.
locals(a,b,c,d)
keycol(253)
key(on)
do
if mousek <> keypressed
goto('end')
else
for a:= 1 to 6 do
if mousek <> keypressed
goto('end')
else
random(400,b)
random(500,c)
random(11,d)
HS := STR(a,1)
IF a < 10
HS := '0' + HS
endif
readwin( titel$ + HS + '.gif')
setallpal
loadwin(c,b,d,0)
endif
next(a)
endif
loop(oft)
:end
return
procedure frame(xl,yo,xr,yu,col,dick)
rem *** Erzeugt einen Rahmen m. den inneren Eckkoordinaten xl,yo,xr,yu
rem *** und der Dicke 'dick'. Dabei wird bis zur halben Dicke
rem *** des Rahmens jeder Linie fortlaufend ab der Farbe 'col' die
rem *** jeweils folgende Farbe zugeordnet. Ab der halben Rahmendicke
rem *** läuft die Farbzuordnung umgekehrt. Bei geeigneter Farbpalette
rem *** kann so ein 'Rohrrahmen' erzeugt werden.
rem *** z.B.: GRADATION(240,249,12,24,15,24,48,30)
rem *** FRAME(100,100,200,200,240,20)
rem ***
rem *** nach Rückkehr ist SETCOLOR und VIEWPORT verändert.
locals(i,j)
viewport(xl,yo,xr,yu)
for i:=1 to dick/2 do
setcolor(col-i-1)
rectangle
incviewport
next(i)
if (dick/2)*2<>dick
incviewport
endif
for j:=1 to dick/2 do
setcolor(col-i+j)
rectangle
incviewport
next(j)
return
begin <--------- Programmbeginn
readfont(1,'comix24.fnt')
readpic('fete.tga') <-------- hier wird das Hinter-
rem *** grundbild geladen
setallpal <-------- hier wird die Palette von
rem *** fete.bmp aktiviert die für
rem *** alle Bilder in dieser Demo
rem *** dient.
clearscreen(121)
font(0)
sysfont(3,1)
rem ****************Das ist die kurze Einleitung am Anfang******************
rem ************************************************************************
rem \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
for b:= 0 to 23 do
viewport(0,0+(20*b),640,20+(20*b))
cbox(0,88+b,0)
next(b)
viewport(50,50,630,470)
cbox(9,0,0)
viewport(30,30,610,450)
cbox(0,138,0)
frame(30,30,610,450,187,10)
for a:= 0 to 1 do
setcolor(136+a*16)
printc(320+a,50+a,'Sehr geehrter Benutzer dieser DEMO')
printc(320+a,80+a,'Hier sehen Sie ein Beispiel einer Einladungsdiskette,')
printc(320+a,100+a,'die komplett in OPTIX programmiert wurde und für den')
printc(320+a,120+a,'Alltagsgebrauch gedacht ist. In diesem Fall ist es die')
printc(320+a,140+a,'Einladung zu einer Party!')
printc(320+a,160+a,'Der interessierte Anwender, kann sich das FETE.OPT File')
printc(320+a,180+a,'nehmen und mit einer OPTIX-Version (LITE, PRO oder')
printc(320+a,200+a,'die WORKSHOP-VERS) für den eigenen Gebrauch verwenden.')
printc(320+a,220+a,'Dazu braucht man nur die Texte und/oder Bilder zu ändern.')
printc(320+a,240+a,'Die nötigen Infos dafür finden Sie in den INF Dateien')
printc(320+a,260+a,'oder der Workshop Dokumentation in der Zeitschrift.')
printc(320+a,280+a,'Natürlich muß man die Demo nicht nur als Einladungsdiskette')
printc(320+a,300+a,'verwenden, es ergeben sich auch andere Einsatzgebiete')
printc(320+a,320+a,'(digitales Fotoalbum, Besondere Mitteilung, Minizeitschrift u.s.w.).')
printc(320+a,340+a,'Zur einfachen Umgestaltung, ist das OPT file dokumentiert')
printc(320+a,360+a,'und es liegt eine README.txt Datei als Hilfe bei.')
printc(320+a,405+a,'>>> Taste für weiter <<<')
next(a)
sysfont(1,1)
printc(500,455,'designed by Stefan Rennspieß')
repeat
rotpal(88,111)
pause(50)
until mousek <> keypressed
rem ************************************************************************
rem ************************************************************************
setallpal
clearscreen(0)
font(0)
sysfont(3,1)
setcolor(229)
printc(322,101,'...Na') -. Hier ist der Text für den
setcolor(224) | Anfangsbildschirm eingetragen
printc(320,100,'...Na') | der beliebig geändert werden
printc(321,100,'...Na') | kann, man muß nur auf die
pause(500) | position am Screen achten
setcolor(229) | und sich eine beliebige
printc(322,201,'nichts los') | Textfarbe aussuchen, die hier
setcolor(224) | mit Setcolor bestimmt wird
printc(320,200,'nichts los') | und aus der Herschenden
printc(321,200,'nichts los') | Palette ist.
pause(500) |
setcolor(229) |
printc(322,301,'bei euch ?') |
setcolor(224) >
printc(320,300,'bei euch ?') |
printc(321,300,'bei euch ?') |
pause(500) |
font(1) |
textcolor(55) |
textbcolor(66) |
textspeed(50) |
textshadow(2,2) |
writestyle(3) ,
printc(320,400,'...Na dann passt auf!') -
pause(1500)
break(0)
wait(2000)
loadpic(16,200)
for a:= 0 to 5 do
setcolor(150)
brushline(0,12+(20*a),12+(20*a),0,5,50)
setcolor(141)
brushline(0,10+(20*a),10+(20*a),0,5,50)
next(a)
textcolor(55)
textbcolor(95)
textspeed(58)
textshadow(2,2)
writestyle(3)
readsound('loop.voc') <------------ hier wird die Hintergrund-
rem *** musik geladen
startsound
soundloop(on)
printc(320,50,'Es ist fete angesagt !!') -.
printc(320,100,'bei mir und keinen anderen.') | weterer
pause(500) | Text
printc(320,200,'... ja ja das sagen sie alle !') > zum
printc(320,250,'werdet ihr denken !') | ändern
printc(320,300,'doch halt ! überzeugt euch selbst !') |
printc(320,400,'von hier aus gibts alle nötigen infos.') |
textcolor(183) ,
printc(320,430,'einfach irgend nen punkt anklicken.') -
pause(5000)
font(1)
writestyle(3)
readpic('fete.tga')
loadpic(8,10)
for a:= 0 to 5 do -. diese Schleife produziert
setcolor(150) | die Linien in der linken
brushline(0,12+(20*a),12+(20*a),0,5,50) > oberen Ecke
setcolor(141) |
brushline(0,10+(20*a),10+(20*a),0,5,50) ,
next(a) -
vrect(5,5,55,55)
frame(330,60,580,420,240,30) -- Das ist der Menüuntergrund,
viewport(330,60,580,420) | Rahmen und blaues Raster
cbox(9,143,20) --
keycol(253)
key(1)
readwin('face05.gif') -. hier werden die Menübuttons
loadwin(355,65,33,10) |
readwin('essen3.tga') | geladen und durch loadwin
loadwin(470,135,22,10) |
readwin('musik1.gif') | verkleinert dargestellt
loadwin(340,238,21,10) >
readwin('karte.gif') |
loadwin(467,285,21,10) |
readwin('logo1.gif') |
loadwin(418,380,0,10) |
textcolor(71)
textbcolor(143)
printat(15,150,'wer kommt denn ?') -. hier mal wieder Text,
printat(16,150,'wer kommt denn ?') | diesmal der aus dem
printat(133,5,'was gibts zu spachteln ?') | Hauptmenü
printat(134,5,'was gibts zu spachteln ?') |
printat(15,353,'was hasten') |
printat(16,353,'was hasten') >
printat(15,383,'für mucke ?') |
printat(16,383,'für mucke ?') |
printat(15,250,'wo issen das ?') |
printat(16,250,'wo issen das ?') |
printat(105,450,'was soll das ?') ,
printat(106,450,'was soll das ?') -
for b:= 0 to 7 do -. diese vielen Schleifen
disk(513+(16*b),18,5,55) | zeichnen die roten Punkte
disk(280+(16*b),164,5,55) | im Hauptmenü
disk(331+(16*b),463,5,55) |
next(b) |
for b:= 0 to 10 do |
disk(625,18+(16*b),5,55) |
next(b) |
for b:= 0 to 3 do |
disk(625-(16*b),178,5,55) |
disk(310,264-(16*b),5,55) |
disk(443,463-(16*b),5,55) |
next(b) |
disk(392,148,5,55) |
for b:= 0 to 4 do |
disk(230+(16*b),264,5,55) |
disk(486,216+(16*b),5,55) |
next(b) |
for b:= 0 to 11 do |
disk(310+(16*b),216,5,55) |
next(b) |
for b:= 0 to 12 do |
disk(195+(16*b),383,5,55) |
next(b) |
for b:= 0 to 6 do |
disk(387,383-(16*b),5,55) ,
next(b) -
font(0)
sysfont(1,1)
setcolor(225) -. hier wird der text
printc(455,47,'push a button or your friend') | auf dem Rahmen gezeichnet
setcolor(182) |
printc(454,46,'push a button or your friend') - wird im Hauptmenü
font(1)
scrtobuf -. hier wird der kleine rote
viewport(330,60,580,420) | Pfeil geladen und wandert
readwin('pfeill.gif') | dann nach unten
loadwin(449,80,0,0) |
pause(500) |
restorebox(0,0) |
readwin('pfeilr.gif') |
loadwin(419,144,0,0) |
pause(500) |
restorebox(0,0) >
readwin('pfeill.gif') |
loadwin(451,230,0,0) |
pause(500) |
restorebox(0,0) |
readwin('pfeilr.gif') |
loadwin(411,296,0,0) |
pause(500) |
restorebox(0,0) |
readwin('pfeilu.gif') |
loadwin(428,330,0,0) ,
pause(500) -
restorebox(0,0)
curscol(95,55)
curson(200,200)
goto('aa2')
:aa <-------------- das erste Label wohin immer
rem *** gesprungen wird wenn es
rem *** wieder ins Hauptmenü geht.
font(1)
textshadow(2,2)
writestyle(3)
readpic('fete.tga')
loadpic(8,10)
for a:= 0 to 5 do -. diese Schleife produziert
setcolor(150) | die Linien in der linken
brushline(0,12+(20*a),12+(20*a),0,5,50) > oberen Ecke
setcolor(141) |
brushline(0,10+(20*a),10+(20*a),0,5,50) ,
next(a) -
vrect(5,5,55,55)
frame(330,60,580,420,240,30) -- Das ist der Menüuntergrund,
viewport(330,60,580,420) | Rahmen und blaues Raster
cbox(9,143,20) --
keycol(253)
key(1)
readwin('face05.gif') -. hier werden die Menübuttons
loadwin(355,65,33,10) |
readwin('essen3.tga') | geladen und durch loadwin
loadwin(470,135,22,10) |
readwin('musik1.gif') | verkleinert dargestellt
loadwin(340,238,21,10) >
readwin('karte.gif') |
loadwin(467,285,21,10) |
readwin('logo1.gif') |
loadwin(418,380,0,10) |
textcolor(71)
textbcolor(143)
printat(15,150,'wer kommt denn ?') -. hier mal wieder Text,
printat(16,150,'wer kommt denn ?') | diesmal der aus dem
printat(133,5,'was gibts zu spachteln ?') | Hauptmenü
printat(134,5,'was gibts zu spachteln ?') |
printat(15,353,'was hasten') |
printat(16,353,'was hasten') >
printat(15,383,'für mucke ?') |
printat(16,383,'für mucke ?') |
printat(15,250,'wo issen das ?') |
printat(16,250,'wo issen das ?') |
printat(105,450,'was soll das ?') ,
printat(106,450,'was soll das ?') -
for b:= 0 to 7 do -. diese vielen Schleifen
disk(513+(16*b),18,5,55) | zeichnen die roten Punkte
disk(280+(16*b),164,5,55) | im Hauptmenü
disk(331+(16*b),463,5,55) |
next(b) |
for b:= 0 to 10 do |
disk(625,18+(16*b),5,55) |
next(b) |
for b:= 0 to 3 do |
disk(625-(16*b),178,5,55) |
disk(310,264-(16*b),5,55) |
disk(443,463-(16*b),5,55) |
next(b) |
disk(392,148,5,55) |
for b:= 0 to 4 do |
disk(230+(16*b),264,5,55) |
disk(486,216+(16*b),5,55) |
next(b) |
for b:= 0 to 11 do |
disk(310+(16*b),216,5,55) |
next(b) |
for b:= 0 to 12 do |
disk(195+(16*b),383,5,55) |
next(b) |
for b:= 0 to 6 do |
disk(387,383-(16*b),5,55) ,
next(b) -
font(0)
sysfont(1,1)
setcolor(225) -. das ist der Text der oben
printc(455,47,'push a button or your friend') | auf dem Rahmen gezeichnet
setcolor(182) ,
printc(454,46,'push a button or your friend') - wird im Hauptmenü
:aa1
font(1)
scrtobuf -. hier wird der kleine rote
viewport(330,60,580,420) | Pfeil geladen und wandert
readwin('pfeill.gif') | dann nach unten
loadwin(449,80,0,0) |
pause(100) |
restorebox(0,0) |
readwin('pfeilr.gif') |
loadwin(419,144,0,0) |
pause(100) |
restorebox(0,0) |
readwin('pfeill.gif') |
loadwin(451,230,0,0) |
pause(100) |
restorebox(0,0) |
readwin('pfeilr.gif') |
loadwin(411,296,0,0) |
pause(100) |
restorebox(0,0) |
readwin('pfeilu.gif') |
loadwin(428,330,0,0) |
pause(100) ,
restorebox(0,0) -
curscol(95,55) <-----hier kriegt der Mauscursor eine neue Farbe
curson(mousex,mousey)
:aa2
defbutton(337,69,105,72,0,0,0,0,'1','a1') -. hier werden die Buttons
defbutton(476,132,95,85,0,0,0,0,'2','a2') | markiert und die Sprunglabels
defbutton(339,238,101,25,0,0,0,0,'3','a3') | festgelegt.
defbutton(467,286,98,91,0,0,0,0,'4','aa4') >
defbutton(422,381,49,25,0,0,0,0,'5','a5') |
defbutton(5,5,50,50,0,0,0,0,'s','a6') |
defbutton(584,288,22,130,15,1,0,1,esc,'a8') -
font(0)
sysfont(1,1)
setcolor(71)
cursoff
printc(596,300,'E') -.
printc(596,310,'S') |
printc(596,320,'C') | das ist die Beschriftung für den EXIT-Button
printc(596,337,'f') |
printc(596,347,'o') >
printc(596,357,'r') |
printc(596,376,'E') |
printc(596,386,'X') |
printc(596,396,'I') ,
printc(596,406,'T') -
curson(mousex,mousey)
checkbutton('aa1',10,0)
:a1 ################# Der Menüpunkt wer kommt denn #####################
readsound('klick.snd')
startsound
wait(1000)
cursoff
readpic('fete.tga')
loadpic(0,0)
font(1)
readwin('fete2.tga')
keycol(253)
key(1)
loadwin(0,0,2,100)
for a:= 0 to 5 do
setcolor(150)
brushline(0,12+(20*a),12+(20*a),0,5,50)
setcolor(141)
brushline(0,10+(20*a),10+(20*a),0,5,50)
next(a)
readsound('loop.voc')
startsound
soundloop(on)
viewport(0,0,xmax,ymax)
face(10) <------------------------------ hier wird die Face Prozedur
rem *** aufgerufen siehe oben ^
viewport(120,80,540,420) -.
cbox(9,0,10) | das ist die graue Fläche, mit Schatten,
viewport(110,70,530,410) | wo der Text drauf kommt
cbox(11,231,10) >
plateau(224,239) |
textcolor(55) ,
textbcolor(65) -
printc(308,100,'leute kommen ne ') -. wieder Text
printc(308,125,'ganze menge !') |
printc(308,150,'platz ist auch für') |
printc(308,175,'ne ganze menge !') |
textcolor(238) |
printc(318,210,'das niedersachsen Stadion') |
printc(318,235,'hab ich leider nich gekriegt') |
printc(318,260,'auch hat prince abgesagt!') |
printc(318,285,'aber ansonsten kommen') |
printc(318,310,'bis jetzt ca.30 leute') |
textcolor(58) ,
printc(318,360,'wenn das nicht reicht ?') -
font(0)
sysfont(2,1)
setcolor(63)
printc(319,401,'irgend ne Taste drücken, dann gehts zurück')
setcolor(58)
printc(318,400,'irgend ne Taste drücken, dann gehts zurück')
pause(0)
scrtobuf
viewport(0,0,xmax,ymax)
readwin('ncc1701d.gif')
for a:= 0 to 210 do
if mousek <> keypressed
rem <-------- hier wird die Enterprise
goto('end')
else
loadwin(0+(2*a),470-(2*a),0,0) <-------- auf Fahrt geschickt
wait(20)
endif
next(a) <--------
:end
cursoff
readsound('loop.voc')
startsound
soundloop(on)
goto('aa') <------------- Rücksprung ins Hauptmenü
:a2 ######################## was gibts zu spachteln ####################
readsound('klick.snd')
startsound
wait(1000)
cursoff
readpic('fete.tga')
loadpic(0,0)
keycol(253)
key(1)
readwin('fete2.tga')
loadwin(0,0,5,100)
for a:= 0 to 5 do
setcolor(150)
brushline(0,12+(20*a),12+(20*a),0,5,50)
setcolor(141)
brushline(0,10+(20*a),10+(20*a),0,5,50)
next(a)
for a:= 0 to 15 do <------ hier wird das runde Plateuau
disk(320,240,196-(1*a),239-(1*a)) <------ im Essen Menüpunkt gezeichnet
next(a) <------
readsound('loop.voc')
startsound
soundloop(on)
readwin('essen3.tga')
loadwin(170,120,31,0)
font(1)
textshadow(1,1)
textcolor(71)
textbcolor(143)
printat(100,16,'zu essen und trinken gibts genug!') -. wieder Text
printc(70,110,'von') |
printc(70,190,'Chips') |
printc(70,290,'bis') |
printc(90,380,'steaks!') |
printc(560,80,'von') |
printc(555,140,'Wasser') |
printc(565,250,'bis ') ,
printc(565,330,'bier!') -
viewport(90,440,560,460)
cbox(10,235,10)
font(0)
sysfont(2,1)
setcolor(63)
printat(101,444,'irgend ne Taste drücken, dann gehts wieder ins Hauptmenü')
setcolor(58)
printat(100,443,'irgend ne Taste drücken, dann gehts wieder ins Hauptmenü')
curson(mousex,mousey)
pause(0)
cursoff
readsound('loop.voc')
startsound
soundloop(on)
goto('aa') <--------------sprung ins Hauptmenü
:a3 ######################### musik ####################################
readsound('klick.snd')
startsound
cursoff
wait(1500)
clearscreen(243)
readsound('hip2.voc')
startsound
soundloop(on)
for a:= 0 to 5 do
setcolor(150)
brushline(0,12+(20*a),12+(20*a),0,5,50)
setcolor(141)
brushline(0,10+(20*a),10+(20*a),0,5,50)
next(a)
keycol(253)
key(on)
viewport(166,392,469,476)
cbox(0,254,0)
plateau(224,239)
readwin('musik1.gif')
loadwin(170,395,0,0)
readwin('musik2.gif')
loadwin(5,218,0,0)
readwin('musik2.gif')
loadwin(547,218,0,0)
viewport(145,0,494,135)
cbox(0,254,0)
plateau(224,239)
readwin('light.gif')
loadwin(148,3,0,0)
readwin('light1.gif')
loadwin(0,3,0,0)
readwin('light1.gif')
loadwin(485,3,0,0)
scrtobuf
font(1)
textcolor(178)
textbcolor(172)
printc(320,182,'musik ist auch da!') -.
printc(320,220,'aus der allerfeinsten') | Text
printc(320,250,'Konserve, kann aber') |
printc(320,280,'auch mitgebracht werden.') -
font(0)
sysfont(2,1)
setcolor(63)
printat(96,364,'irgend ne Taste drücken, dann gehts wieder ins Hauptmenü')
setcolor(58)
printat(95,363,'irgend ne Taste drücken, dann gehts wieder ins Hauptmenü')
curson(mousex,mousey)
repeat
rotpal(39,55) -.
rotpal(56,72) | hier wird die Pallette rotiert, um den licht-
rotpal(88,127) - effekt zu erzeugen
until mousek <> keypressed
cursoff
readsound('loop.voc')
startsound
soundloop(on)
setallpal
goto('aa')
:aa4 ########################## karte ################################
readsound('klick.snd')
startsound
wait(1000)
:a4
cursoff
clearscreen(159)
for a:= 0 to 23 do -.
viewport(0,10*a,640,10*a+a) | der Hintergrundeffekt
cbox(0,136+a,0) > im Karte-Menü
viewport(0,ymax-10*a,640,ymax-10*a+a) |
cbox(0,136+a,0) -
next(a)
readwin('karte1.tga')
for a:= 0 to 5 do
setcolor(150)
brushline(0,12+(20*a),12+(20*a),0,5,50)
setcolor(141)
brushline(0,10+(20*a),10+(20*a),0,5,50)
next(a)
readsound('loop.voc')
startsound
soundloop(on)
keycol(253)
key(on)
loadwin(0,0,3,50)
font(1)
textbcolor(55)
textcolor(71)
printc(320,14,'wie komme ich dahin ?')
textcolor(136)
printc(320,188,'1. ruhe bewahren!')
printc(320,240,'2. karte nehmen!')
readwin('karte.gif')
pause(2000)
setcolor(0)
loadwin(200,110,17,0)
loadwin(190,100,1,50)
viewport(28,378,232,477)
cbox(9,0,0)
frame(35,385,215,460,236,15)
viewport(28,378,222,467)
cbox(0,229,0)
font(0)
sysfont(3,1)
:k4 ******************* Sprungmarke fürs Kartenmenü ****************
curson(mousex,mousey)
font(1)
writestyle(1)
defbutton(33,383,89,37,15,1,0,1,'i','k1')
textcolor(238)
cursoff
printat(54,390,'info')
textcolor(225)
printat(56,392,'info')
textcolor(232)
printat(55,391,'info')
curson(mousex,mousey)
defbutton(128,383,89,37,15,1,0,1,esc,'k3')
textcolor(238)
cursoff
printat(144,390,'exit')
textcolor(225)
printat(146,392,'exit')
textcolor(232)
printat(145,391,'exit')
curson(mousex,mousey)
defbutton(33,425,184,37,15,1,0,1,'d','k2')
textcolor(238)
cursoff
printat(68,431,'drucken')
textcolor(225)
printat(70,433,'drucken')
textcolor(232)
printat(69,432,'drucken')
curson(mousex,mousey)
writestyle(3)
checkbutton('aa',30,0)
:k1 ******************* der Info Button ***************************
cursoff
viewport(493,38,636,378)
cbox(9,0,0)
viewport(490,35,633,375)
cbox(1,139,10)
plateau(224,239)
font(0)
sysfont(3,1)
for a:=0 to 1 do
setcolor(223+a) -.
printc(562-a,50-a ,'>> Der Weg <<') |
printc(562-a,65-a ,'Man fährt über') |
printc(562-a,80-a ,'die A00 bis') |
printc(562-a,95-a ,'DINGSDA und') |
printc(562-a,110-a,'biegt links ab') |
printc(562-a,125-a,'auf die B00.Von') |
printc(562-a,140-a,'dort immer ge-') |
printc(562-a,155-a,'rade aus bis') |
printc(562-a,170-a,'ANGENOMMEN.Dort') | die Wegbeschreibung
printc(562-a,185-a,'die Scheinstr.') |
printc(562-a,200-a,'nach Norden') >
printc(562-a,215-a,'folgen und bei') |
printc(562-a,230-a,'der dritten') |
printc(562-a,245-a,'Kreuzung in die') |
printc(562-a,260-a,'Scheinallee ab-') |
printc(562-a,275-a,'biegen und die') |
printc(562-a,290-a,'Nummer 12 suchen') |
printc(562-a,305-a,'und schon biste') |
printc(562-a,320-a,'da!') |
setcolor(56-a) |
printc(562-a,340-a,'Klick für') ,
printc(562-a,355-a,'weiter!') -
next(a)
keycol(253)
key(on)
scrtobuf
curson(mousex,mousey)
repeat -.
viewport(424,309,471,358) |
readwin('pfeill.gif') |
loadwin(424,309,0,0) |
if mousek <> keypressed |
goto('a4') |
else |
pause(500) |
restorebox(0,0) |
viewport(332,263,379,312) |
readwin('pfeilr.gif') |
loadwin(332,263,0,0) |
if mousek <> keypressed |
goto('a4') |
else |
pause(500) | der wandernde
restorebox(0,0) | rote Pfeil
viewport(337,174,384,223) > im Info menü
readwin('pfeilu.gif') |
loadwin(337,174,0,0) |
if mousek <> keypressed |
goto('a4') |
else |
pause(500) |
restorebox(0,0) |
viewport(292,233,339,282) |
readwin('pfeilo.gif') |
loadwin(292,233,0,0) |
if mousek <> keypressed |
goto('a4') |
else |
pause(500) |
restorebox(0,0) |
endif |
endif |
endif ,
endif -
until mousek <> keypressed
goto('a4')
:k2 ********************* der Drucken Button ***********************
if prnstatus=223
goto('printok') <------hier wird der Druckerstatus abgefragt
else
if prnstatus=159
goto('printok')
else
cursoff
scrtobuf
viewport(195,150,465,250)
cbox(9,0,0)
viewport(185,140,455,240)
cbox(0,228,0)
plateau(224,239)
font(0)
sysfont(3,1)
for a:=0 to 1 do
setcolor(31-a)
printc(325-a,160-a,'Dein Drucker is nich ready!')
printc(325-a,180-a,'ich würd sagen, Mangel beheben ')
printc(325-a,200-a,'und dann noch mal versuchen.')
printc(325-a,220-a,'(Taste für weiter!)')
next(a)
curson(mousex,mousey)
viewport(184,139,466,251)
pause(0)
cursoff
restorebox(0,0)
goto('k4')
curson(mousex,mousey)
endif
endif
:printok *************** das hier wird dann gedruckt *************
cursoff
lprintln(' Die Wegbeschreibung! ')
lprintln(' -------------------- Scheinallee ')
lprintln('Man fährt über die ____[______ ')
lprintln('A00 bis DINGSDA und ___ ______ ___ ')
lprintln('biegt links ab auf / \ || ')
lprintln('die B00. Von dort | 12| ------ ')
lprintln('immer gerade aus bis |___| || <-Kreuzungen ')
lprintln('ANGENOMMEN. Dort ------ ')
lprintln('die Scheinstr. nach _||-B00 DINGSDA ')
lprintln('Norden folgen, bei / ||\______/___ \ ')
lprintln('der dritten Kreuzung Scheinstr--> __________ \ | ')
lprintln('in die Scheinallee | ||| | \ \ | ')
lprintln('abbiegen und die \___/ | \ \/ ')
lprintln(' Nummer 12 suchen- ANGENOMMEN \___\ \ ')
lprintln('und schon biste da ! A00-\ \ ')
curson(mousex,mousey)
goto('k4')
:k3 ******************** Rücksprunglabel ins Hauptmenü *************
cursoff
readsound('loop.voc')
startsound
soundloop(on)
goto('aa')
:a5 ############################# info ##################################
readsound('klick.snd')
startsound
wait(1000)
cursoff
readpic('fete.tga')
loadpic(0,0)
keycol(253)
key(on)
readwin('fete2.tga')
loadwin(0,0,4,100)
for a:= 0 to 5 do
setcolor(150)
brushline(0,12+(20*a),12+(20*a),0,5,50)
setcolor(141)
brushline(0,10+(20*a),10+(20*a),0,5,50)
next(a)
readsound('loop.voc')
startsound
soundloop(on)
font(1)
textshadow(1,1)
textcolor(55)
textbcolor(71)
printc(320,35, 'dies ist meine offizielle Einladungsdisk') -.
printc(320,65, 'für "dich", zu meiner Party am 11.11.95') |
printc(320,95, 'um 11.11 Uhr. die party steigt bei mir') | der Text
printc(320,125,'zuhause "Scheinallee" 12 und es wird') | im Info
printc(320,155,'mächtig voll werden. darum (wer zu') | Menü
printc(320,185,'spät kommt, den bestraft der haus-') >
printc(320,215,'meister!) antworte mir per telefon') |
printc(320,245,'oder schriftlich, damit ich weis wer') |
printc(320,275,'kommt und getränke kaltstelle! hier') |
printc(320,305,'kannst du dir deinen antwortzettel') |
printc(255,335,'ausdrucken lassen und ab in') ,
printc(235,365,' den nächsten postkasten.') -
keycol(253)
key(on)
readwin('telefon.gif')
setcolor(240)
loadwin(412,344,16,0)
setcolor(234)
loadwin(407,339,16,0)
setcolor(228)
loadwin(408,340,16,0)
setcolor(224)
loadwin(409,341,16,0)
loadwin(410,342,0,0)
viewport(448,432,578,452)
cbox(9,228,0)
font(0)
sysfont(3,1)
setcolor(55)
printc(513,443,'0511 / 86 87 83')
setcolor(71)
printc(514,444,'0511 / 86 87 83')
:a51 ********************* Rücksprunglabel fürs Info-Menü ***********
curson(mousex,mousey)
font(1)
defbutton(32,394,180,59,15,1,0,1,'d','id')
writestyle(1)
cursoff
textcolor(225)
printc(123,425,'drucken')
textcolor(238)
printc(121,423,'drucken')
textcolor(232)
printc(122,424,'drucken')
curson(mousex,mousey)
defbutton(219,394,180,59,15,1,0,1,esc,'ie')
textcolor(225)
cursoff
printc(310,425,'zurück')
textcolor(238)
printc(308,423,'zurück')
textcolor(232)
printc(309,424,'zurück')
curson(mousex,mousey)
checkbutton('aa',400,0)
:id ************************ der Druck-Button ***********************
scrtobuf
if prnstatus=223
goto('idprintok')
else
if prnstatus=159
goto('idprintok')
else
cursoff
viewport(195,150,465,250)
cbox(9,0,0)
viewport(185,140,455,240)
cbox(0,228,0)
plateau(224,239)
font(0)
sysfont(3,1)
for a:=0 to 1 do
setcolor(31-a)
printc(325-a,160-a,'Dein Drucker is nich ready!')
printc(325-a,180-a,'ich würd sagen, Mangel beheben ')
printc(325-a,200-a,'und dann noch mal versuchen.')
printc(325-a,220-a,'(Taste für weiter!)')
next(a)
curson(mousex,mousey)
pause(0)
viewport(0,0,xmax,ymax)
cursoff
restorebox(0,0)
curson(mousex,mousey)
goto('a51')
endif
endif
:idprintok ************* das wird im Info Menu ausgedruckt *******
cursoff
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln('ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja ja')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ich werde kommen ')
lprintln(' ')
lprintln(' [] mit [ ] Personen ')
lprintln(' ')
lprintln(' [] oder allein ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' Name:_____________________________ ')
lprintln(' ')
lprintln(' ')
lprintln(' Straße:_____________________________')
lprintln(' ')
lprintln(' ')
lprintln(' Ort:_____________________________ ')
lprintln(' ')
lprintln(' ')
lprintln(' Tel:_____________________________ ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' und bringe noch sonstiges _______________________ mit ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' ')
lprintln(' das geht an ')
lprintln(' Willi Wichtig ')
lprintln(' scheinalle 12 ')
lprintln(' 00000 Angenommen ')
curson(mousex,mousey)
goto('a51')
:ie ************************* Rücksprung ins Hauptmenü ***************
cursoff
readsound('loop.voc')
startsound
soundloop(on)
goto('aa')
:a6 ######################### Der Menüpunkt mit den Messagekugeln #######
cursoff
readpic('fete.tga')
loadpic(17,10)
for a:= 0 to 5 do
setcolor(150)
brushline(0,12+(20*a),12+(20*a),0,5,50)
setcolor(141)
brushline(0,10+(20*a),10+(20*a),0,5,50)
next(a)
font(0)
sysfont(3,1)
setcolor(48)
printat(274,13,'find the Message !')
setcolor(55)
printat(275,14,'find the Message !')
setcolor(48)
printat(519,456,'"ESC" for EXIT')
setcolor(55)
printat(520,457,'"ESC" for EXIT')
curson(mousex,mousey)
:top *********************** Rücksprunglabel *************************
repeat
until mousek =0
defbutton(322,208,28,28,0,0,0,0 ,'1','t1')-.
defbutton(391,171,41,41,0,0,0,0 ,'2','t2') | die Buttonabfrage für
defbutton(326,60,64,64,0,0,0,0 ,'3','t3') |
defbutton(166,63,98,98,0,0,0,0 ,'4','t4') > die Gimmick-Sounds
defbutton(130,233,132,132,0,0,0,0,'5','t5') |
defbutton(341,289,146,146,0,0,0,0,'6','t6') | auf den Kugeln
defbutton(456,114,159,159,0,0,0,0,'7','t7') |
defbutton(520,457,110,13,0,0,0,0 ,esc,'t8') ,
checkbutton('aa',20,0) -
:t1
readsound('hey.wav')
startsound
goto('top')
:t2
readsound('mann.wav')
startsound
goto('top')
:t3
readsound('hier.wav')
startsound
goto('top')
:t4
readsound('steigt.wav')
startsound
goto('top')
:t5
readsound('eine.wav')
startsound
goto('top')
:t6
readsound('stark.wav')
startsound
goto('top')
:t7
readsound('party.wav')
startsound
goto('top')
:t8 *************************Rücksprung ins Hauptmenü **************
cursoff
readsound('loop.voc')
startsound
soundloop(on)
goto('aa')
:a8 ##################### Exit-Label ##############
readsound('klick.snd')
startsound
readpic('fete.tga')
loadpic(0,0)
keycol(253)
key(1)
readwin('fete2.tga')
loadwin(0,0,7,100)
for a:= 0 to 5 do
setcolor(150)
brushline(0,12+(20*a),12+(20*a),0,5,50)
setcolor(141)
brushline(0,10+(20*a),10+(20*a),0,5,50)
next(a)
font(1)
textcolor(55)
textbcolor(71)
printc(320,200,'bis danne und komm nich zu spät') <---der letzte Text
printc(320,300,'dein willi')
break(1)
pause(5000)
end