home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk1
/
optxppac.set
/
STRUKTUR.OPT
< prev
next >
Wrap
Text File
|
1995-04-27
|
16KB
|
670 lines
rem Diese Programm hat nichts weiter zu tun, als eine 3x3x3-Grundstruktur
rem vorzubereiten. Auf die Schleife, das Hauptmenü, die Untermenüs,
rem sowie die 'Ast-Enden' können beliebige Bilder gelegt werden und
rem schon ist eine repräsentative Info-Show mit insgesamt 52 Bildern
rem fertig. So einfach ist das!
rem
rem
rem *********************************************************************
rem
rem
rem
rem Grundstruktur
rem ===========================
rem
rem Tiefe: 3x3x3 = 27 Endpunkte
rem
rem
rem
rem mainloop
rem |
rem Mainmenu
rem |
rem |--------
rem | |
rem | Menu1-----
rem | | | |-Pic111
rem | | Sub11--|-Pic112
rem | | | |-Pic113
rem | | |
rem | | | |-Pic121
rem | | Sub12--|-Pic122
rem | | | |-Pic123
rem | | |
rem | | | |-Pic131
rem | | Sub13--|-Pic132
rem | | |-Pic133
rem | |
rem | Menu2-----
rem | | | |-Pic211
rem | | Sub21--|-Pic212
rem | | | |-Pic213
rem | | |
rem | | | |-Pic221
rem | | Sub22--|-Pic222
rem | | | |-Pic223
rem | | |
rem | | | |-Pic231
rem | | Sub23--|-Pic232
rem | | |-Pic233
rem | |
rem | Menu3-----
rem | | | |-Pic311
rem | | Sub31--|-Pic312
rem | | | |-Pic313
rem | | |
rem | | | |-Pic321
rem | | Sub32--|-Pic322
rem | | | |-Pic323
rem | | |
rem | | | |-Pic331
rem | | Sub33--|-Pic332
rem | | |-Pic333
rem ---------
rem Sinn-Beispiel
rem
rem
rem Bilderschleife
rem |
rem Reise-Menü
rem |
rem |-------
rem | |
rem | USA------
rem | | | |-WorldTradeCenter
rem | | NewYork--|-MissLiberty
rem | | | |-Uno
rem | | |
rem | | | |-GoldenGate
rem | | Frisco--|-SuttersMill
rem | | | |-Hippies
rem | | |
rem | | | |-SearseTower
rem | | Chicago--|-AlCapone
rem | | |-ErieSee
rem | |
rem | JAPAN-----
rem | | | |-MitsubishiBuilding
rem | | Tokio--|-Vogelnester
rem | | | |-Mafia
rem | | |
rem | | | |-Karaoke
rem | | Yokohama-|-Geishas
rem | | | |-MadamButterfly
rem | | |
rem | | | |-Atombombe
rem | | Hiroshima-|-BigHole
rem | | |-MedicalCenter
rem | |
rem | EUROPA-----
rem | | | |-DieMauer
rem | | Berlin--|-Kudamm
rem | | | |-Wannsee
rem | | |
rem | | | |-PicadillyCircus
rem | | London--|-BuckinghamPalace
rem | | | |-HidePark
rem | | |
rem | | | |-Eiffelturm
rem | | Paris--|-ArcDeTriomphe
rem | | |-MontParnasse
rem -------
def(menutime,10)
def(looptime,2)
def(i)
def(j)
def(bx,2)
def(by,3)
def(bb,130)
def(bh,40)
def(by2,130)
def(bs,40)
begin
font(0)
setcolor(15)
sysfont(3,1)
gradation(16,31,10,10,10,63,0,0)
gradation(32,47,10,10,10,0,63,0)
gradation(48,63,10,10,10,0,0,63)
gradation(64,79,10,10,10,63,0,63)
rem *** MAINLOOP ***
:mainloop
clearscreen(70)
printc(320,240,'mainloop1 <TASTE>')
timeout('looping1',looptime)
goto('mainmenu')
:looping1
clearscreen(73)
printc(320,240,'mainloop2 <TASTE>')
timeout('looping2',looptime)
goto('mainmenu')
:looping2
clearscreen(76)
printc(320,240,'mainloop3 <TASTE>')
timeout('mainloop',looptime)
goto('mainmenu')
rem *** Startverteiler ***
:mainmenu
clearscreen(8)
printat(200,200,'MAINMENU')
defbutton(bx, 40,bb,bh,1,1,0,1,#49,'m_1')
defbutton(bx, 90,bb,bh,2,1,0,1,#50,'m_2')
defbutton(bx,140,bb,bh,3,1,0,1,#51,'m_3')
defbutton(bx,190,bb,bh,4,1,0,1,#27,'mainloop')
printat(10, 50,'menu:<1>')
printat(10,100,'menu:<2>')
printat(10,150,'menu:<3>')
printat(10,200,'ESC->mainloop')
checkbutton('mainloop',menutime,0)
rem *** MENU 1 ***
:m_1
clearscreen(17)
printat(200,200,'MENU 1')
printat(200,240,'******* Hier kann ein beliebiges Menue-Bild')
println('')
println('******* eingesetzt werden, z.B.:')
println('')
println(' fadeout(1)')
println(' clearscreen(0)')
println(' readpic(MENUE_1.BMP)')
println(' loadpic(1,0)')
println(' fadein(1)')
println(' pause(10000)')
rem ******* Auf diese Weise läßt sich die gesamte
rem ******* Struktur füllen.
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_1_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_1_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_1_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'mainmenu')
printat(10, 50,'menu:1_<1>')
printat(10,100,'menu:1_<2>')
printat(10,150,'menu:1_<3>')
printat(10,200,'ESC->mainmenu')
checkbutton('mainmenu',menutime,0)
rem * MENU 1- Submenu1 *
:m_1_1
clearscreen(19)
printat(200,200,'MENU 1_1')
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_1_1_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_1_1_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_1_1_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_1')
printat(10, 50,'menu:1_1_<1>')
printat(10,100,'menu:1_1_<2>')
printat(10,150,'menu:1_1_<3>')
printat(10,200,'ESC->menu:1')
checkbutton('m_1',menutime,0)
rem MENU1-Sub1-Stat1
:m_1_1_1
clearscreen(21)
printat(100,100,'Bild: 1_1_1')
printat(200,200,'******* Hier kann ein beliebiges Endbild')
println('')
println('******* eingesetzt werden, z.B.:')
println('')
println(' fadeout(1)')
println(' clearscreen(0)')
println(' readpic(BILD_111.bmp)')
println(' loadpic(1,0)')
println(' fadein(1)')
println(' pause(10000)')
defbutton(200,380,bb,bh,15,1,0,1,'z','m_1_1')
printc(200+bb/2,380+bh/2,'(Z) urück')
checkbutton('m_1',menutime,0)
goto('m_1_1')
rem MENU1-Sub1-Stat2
:m_1_1_2
copywin(bx-4,90-2,bx+bb,90+bh)
viewport(0,0,140,240)
cbox(8,19,10)
for i:= 0 to 230 step 2 do
loadwin(i,i/2+90,0,0)
next(i)
viewport(0,0,xmax,ymax)
cbox(15,1,0)
keycol(2)
key(on)
loadwin(i,j,0,0)
key(off)
pause(1000)
goto('m_1_1')
rem MENU1-Sub1-Stat3
:m_1_1_3
copywin(bx-4,140-2,bx+bb,140+bh)
viewport(0,0,140,240)
cbox(8,19,10)
for i:= 0 to 240 step 2 do
loadwin(i,i/4+140,0,0)
next(i)
viewport(0,0,xmax,ymax)
cbox(15,1,0)
keycol(2)
key(on)
loadwin(i,j,0,0)
key(off)
pause(1000)
goto('m_1_1')
rem * MENU 1- Submenu2 *
:m_1_2
clearscreen(19)
printat(200,200,'MENU 1_2')
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_1_2_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_1_2_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_1_2_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_1')
printat(10, 50,'menu:1_2_<1>')
printat(10,100,'menu:1_2_<2>')
printat(10,150,'menu:1_2_<3>')
printat(10,200,'ESC->menu:1')
checkbutton('m_1',menutime,0)
rem MENU1-Sub2-Stat1
:m_1_2_1
clearscreen(21)
printat(100,100,'Bild: 1_2_1')
pause(1000)
goto('m_1_2')
rem MENU1-Sub2-Stat2
:m_1_2_2
clearscreen(21)
printat(100,100,'Bild: 1_2_2')
pause(1000)
goto('m_1_2')
rem MENU1-Sub2-Stat3
:m_1_2_3
clearscreen(21)
printat(100,100,'Bild: 1_2_3')
pause(1000)
goto('m_1_2')
rem * MENU 1- Submenu3 *
:m_1_3
clearscreen(19)
printat(200,200,'MENU 1_3')
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_1_3_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_1_3_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_1_3_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_1')
printat(10, 50,'menu:1_3_<1>')
printat(10,100,'menu:1_3_<2>')
printat(10,150,'menu:1_3_<3>')
printat(10,200,'ESC->menu:1')
checkbutton('m_1',menutime,0)
rem MENU1-Sub3-Stat1
:m_1_3_1
clearscreen(21)
printat(100,100,'Bild: 1_3_1')
pause(1000)
goto('m_1_3')
rem MENU1-Sub3-Stat2
:m_1_3_2
clearscreen(21)
printat(100,100,'Bild: 1_3_2')
pause(1000)
goto('m_1_3')
rem MENU1-Sub3-Stat3
:m_1_3_3
clearscreen(21)
printat(100,100,'Bild: 1_3_3')
pause(1000)
goto('m_1_3')
rem *** MENU 2 ***
:m_2
clearscreen(33)
printat(200,200,'MENU 2')
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_2_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_2_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_2_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'mainmenu')
printat(10, 50,'menu:2_<1>')
printat(10,100,'menu:2_<2>')
printat(10,150,'menu:2_<3>')
printat(10,200,'ESC:->mainmenu')
checkbutton('mainmenu',menutime,0)
rem * MENU 2- Submenu1 *
:m_2_1
clearscreen(35)
printat(200,200,'MENU 2_1')
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_2_1_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_2_1_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_2_1_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_2')
printat(10, 50,'menu:2_1_<1>')
printat(10,100,'menu:2_1_<2>')
printat(10,150,'menu:2_1_<3>')
printat(10,200,'ESC->menu:2')
checkbutton('m_2',menutime,0)
rem MENU2-Sub1-Stat1
:m_2_1_1
clearscreen(37)
printat(100,100,'Bild: 2_1_1')
pause(1000)
goto('m_2_1')
rem MENU2-Sub1-Stat2
:m_2_1_2
clearscreen(37)
printat(100,100,'Bild: 2_1_2')
pause(1000)
goto('m_2_1')
rem MENU2-Sub1-Stat3
:m_2_1_3
clearscreen(37)
printat(100,100,'Bild: 2_1_3')
pause(1000)
goto('m_2_1')
rem * MENU 2- Submenu2 *
:m_2_2
clearscreen(35)
printat(200,200,'MENU 2_2')
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_2_2_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_2_2_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_2_2_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_2')
printat(10, 50,'menu:2_2_<1>')
printat(10,100,'menu:2_2_<2>')
printat(10,150,'menu:2_2_<3>')
printat(10,200,'ESC->menu:2')
checkbutton('m_2',menutime,0)
rem MENU2-Sub2-Stat1
:m_2_2_1
clearscreen(37)
printat(100,100,'Bild: 2_2_1')
pause(1000)
goto('m_2_2')
rem MENU2-Sub2-Stat2
:m_2_2_2
clearscreen(37)
printat(100,100,'Bild: 2_2_2')
pause(1000)
goto('m_2_2')
rem MENU2-Sub2-Stat3
:m_2_2_3
clearscreen(37)
printat(100,100,'Bild: 2_2_3')
pause(1000)
goto('m_2_2')
rem * MENU 2- Submenu3 *
:m_2_3
clearscreen(35)
printat(200,200,'MENU 2_3')
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_2_3_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_2_3_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_2_3_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_2')
printat(10, 50,'menu:2_3_<1>')
printat(10,100,'menu:2_3_<2>')
printat(10,150,'menu:2_3_<3>')
printat(10,200,'ESC->menu:2')
checkbutton('m_2',menutime,0)
rem MENU2-Sub3-Stat1
:m_2_3_1
clearscreen(37)
printat(100,100,'Bild: 2_3_1')
pause(1000)
goto('m_2_3')
rem MENU2-Sub3-Stat2
:m_2_3_2
clearscreen(37)
printat(100,100,'Bild: 2_3_2')
pause(1000)
goto('m_2_3')
rem MENU2-Sub3-Stat3
:m_2_3_3
clearscreen(37)
printat(100,100,'Bild: 2_3_3')
pause(1000)
goto('m_2_3')
rem *** MENU 3 ***
:m_3
clearscreen(49)
printat(200,200,'MENU 3')
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_3_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_3_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_3_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'mainmenu')
printat(10, 50,'menu:3_<1>')
printat(10,100,'menu:3_<2>')
printat(10,150,'menu:3_<3>')
printat(10,200,'mainmenu')
checkbutton('mainmenu',menutime,0)
rem * MENU 3- Submenu1 *
:m_3_1
clearscreen(51)
printat(200,200,'MENU 3_1')
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_3_1_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_3_1_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_3_1_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_3')
printat(10, 50,'menu:3_1_<1>')
printat(10,100,'menu:3_1_<2>')
printat(10,150,'menu:3_1_<3>')
printat(10,200,'ESC->menu:3')
checkbutton('m_3',menutime,0)
rem MENU3-Sub1-Stat1
:m_3_1_1
clearscreen(53)
printat(100,100,'Bild: 3_1_1')
pause(1000)
goto('m_3_1')
rem MENU3-Sub1-Stat2
:m_3_1_2
clearscreen(53)
printat(100,100,'Bild: 3_1_2')
pause(1000)
goto('m_3_1')
rem MENU3-Sub1-Stat3
:m_3_1_3
clearscreen(53)
printat(100,100,'Bild: 3_1_3')
pause(1000)
goto('m_3_1')
rem * MENU 3- Submenu2 *
:m_3_2
clearscreen(51)
printat(200,200,'MENU 3_2')
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_3_2_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_3_2_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_3_2_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_3')
printat(10, 50,'menu:3_2_<1>')
printat(10,100,'menu:3_2_<2>')
printat(10,150,'menu:3_2_<3>')
printat(10,200,'ESC->menu:3')
checkbutton('m_3',menutime,0)
rem MENU3-Sub2-Stat1
:m_3_2_1
clearscreen(53)
printat(100,100,'Bild: 3_2_1')
pause(1000)
goto('m_3_2')
rem MENU3-Sub2-Stat2
:m_3_2_2
clearscreen(53)
printat(100,100,'Bild: 3_2_2')
pause(1000)
goto('m_3_2')
rem MENU3-Sub2-Stat3
:m_3_2_3
clearscreen(53)
printat(100,100,'Bild: 3_2_3')
pause(1000)
goto('m_3_2')
rem * MENU 3- Submenu3 *
:m_3_3
clearscreen(51)
printat(200,200,'MENU 3_3')
defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_3_3_1')
defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_3_3_2')
defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_3_3_3')
defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_3')
printat(10, 50,'menu:3_3_<1>')
printat(10,100,'menu:3_3_<2>')
printat(10,150,'menu:3_3_<3>')
printat(10,200,'ESC->menu:3')
checkbutton('m_3',menutime,0)
rem MENU3-Sub3-Stat1
:m_3_3_1
clearscreen(53)
printat(100,100,'Bild: 3_3_1')
pause(1000)
goto('m_3_3')
rem MENU3-Sub3-Stat2
:m_3_3_2
clearscreen(53)
printat(100,100,'Bild: 3_3_2')
pause(1000)
goto('m_3_3')
rem MENU3-Sub3-Stat3
:m_3_3_3
clearscreen(53)
printat(100,100,'Bild: 3_3_3')
pause(1000)
goto('m_3_3')
end