home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk1
/
optxppac.set
/
TUTOUCHX.OPT
< prev
next >
Wrap
Text File
|
1995-04-27
|
8KB
|
390 lines
rem !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
rem Beispiellisting für komplexe OPTIX-Programmierung !!!
rem Diese Demo wurde als Touch-Demo konzipiert, ist !!!
rem aber auch per Maus bedienbar. !!!
rem !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
rem !!!!!! !!!!!!
rem !!!!!! Sie können 'TUTOUCH.ANI auch per !!!!!!
rem !!!!!! (A)nimation im 'Start'-Menü starten. !!!!!!
rem !!!!!! !!!!!!
rem !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
rem ************** Maus / Touch-Demo **************
rem *** Bei Darstellung des kleinen TUT können alle
rem *** Bereiche der Büste mit der Maus angewählt
rem *** werden. Die 12 Mini-TUTs unter dem EXIT-Button
rem *** sind auch 'sehr' empfindlich. Die große Büste
rem *** ist dagegen 'unberührbar'.
rem
rem ************** Maus / Touch-Demo **************
def(x)
def(y)
def(i)
def(j)
def(k)
def(mx,639)
def(my,479)
def(tx,60)
def(ty,300)
def(flag)
defs(tit ,'B U T T O N S')
defs(ta1 ,' TouchEnchAmun')
defs(ta2 ,' Z O O M')
defs(dum1$)
defs(dum2$)
procedure pbutton(xl,yo,xr,yu,c1,c2)
locals(i,j)
setcolor(255)
setbcolor(240)
viewport(xl,yo,xr,yu)
plateau(vcolor,bcolor)
setcolor(247)
for I:=0 to 3 do
decviewport
rectangle
next(i)
setcolor(c1)
setbcolor(c2)
for I:=0 to 10 do
plateau(c1,c2)
for j:=0 to 2 do
decviewport
next(j)
next(i)
for I:=0 to 2 do
decviewport
plateau(c1,c2)
next(i)
return
procedure button(xl,yo,xr,yu,b1,b2)
locals(i,j)
setcolor(248)
line(xr,yo,xr,yu,0)
line(xl,yu,xr,yu,0)
viewport(xl-1,yo-1,xr,yu)
for I:=0 to b1-1 do
decviewport
plateau(255,248)
next(i)
for I:=0 to b2-1 do
decviewport
plateau(247,247)
next(i)
for I:=0 to b1-1 do
decviewport
plateau(248,255)
next(i)
return
procedure outlin(x,y,b,h,k)
copywin(x,y,x+b-1,y+h-1)
keycol(k)
key(on)
loadwin(x-1,y,0,0)
loadwin(x-1,y-1,0,0)
loadwin(x,y-1,0,0)
loadwin(x+1,y-1,0,0)
loadwin(x+1,y,0,0)
loadwin(x+1,y+1,0,0)
loadwin(x,y+1,0,0)
loadwin(x-1,y+1,0,0)
key(off)
return
BEGIN
readfont(1,'bit16x16.fnt')
readfont(2,'tri22n.fnt')
font(2)
cursoff
clearscreen(247)
textcofs(11)
textcolor(248)
textcofs(29)
printat(15,14,tit)
readsound('typewrit.snd')
for i:= 0 to 6 do
outlin(i*95+10,10,58,70,247)
startsound
next(i)
textcolor(248)
printat(15,14,tit)
copywin(15,4,639,83)
textcolor(255)
printat(13,12,tit)
textcolor(240)
printat(17,16,tit)
key(on)
loadwin(15,4,0,0)
textcolor(247)
printat(15,14,tit)
readpic('tut.bmp')
getsubpal(15)
setallpal
keycol(141)
key(on)
button(26,72,612,455,1,2)
button(29,75,609,452,1,2)
for I:=282 to 590 step 40 do
loadwin(i,190,29,0)
next(i)
copywin(283,190,602,234)
for j:=240 to 400 step 50 do
loadwin(283,j,0,0)
next(j)
loadwin(43,340,0,0)
loadwin(43,390,0,0)
readfont(2,'tri22n.fnt')
readpic('tut.bmp')
viewport(50,100,265,265)
cbox(9,240,0)
loadwin(352,90,20,0)
textcolor(255)
printat(115,155,'Exit')
textcolor(240)
printat(115,157,'Exit')
textcolor(247)
printat(115,156,'Exit')
key(off)
button(40,90,260,260,4,50)
for i:=0 to 50 step 10 do
button(40+i,90+i,260-i,260-i,1,1)
next(i)
button(40,284,260,328,1,3)
font(1)
keycol(141)
key(on)
pbutton(315,287,560,388,255,248)
cbox(0,247,0)
textcolor(244)
textbcolor(255)
writestyle(3)
texttrnsp(1)
textshadow(0,-1)
textcofs(-3)
printat(340,330,Ta1)
:menu *** Hauptmenü
scrtobuf
textbcolor(247)
textcolor(248)
textshadow(0,-1)
texttrnsp(0)
textcofs(-2)
for i:=0 to 5 do
defbutton(46+i*40 ,344,40 ,45 ,0,0,0,0,#99,'pump')
defbutton(46+i*40 ,394,40 ,45 ,0,0,0,0,#99,'pump')
next(i)
defbutton(92 ,138,112,132,0,0,0,0,esc,'exit')
defbutton(315,287,240,100,0,0,0,0,ret,'bild')
defbutton(430,210, 16,65,0,0,0,0,#99,'bart')
defbutton(435,153, 8,23,0,0,0,0,#99,'nase')
defbutton(422,210, 33,30,0,0,0,0,#99,'hals')
defbutton(423,177, 29,18,0,0,0,0,#99,'mund')
defbutton(404,142, 28,21,0,0,0,0,#99,'auge_r')
defbutton(443,142, 28,63,0,0,0,0,#99,'auge_l')
defbutton(421, 85, 17,47,0,0,0,0,#99,'diadem')
defbutton(398,140, 70,63,0,0,0,0,#99,'gesicht')
defbutton(360,116, 35,90,0,0,0,0,#99,'perücke_lo')
defbutton(381,215, 35,75,0,0,0,0,#99,'perücke_lu')
defbutton(478,116, 35,82,0,0,0,0,#99,'perücke_ro')
defbutton(459,215, 35,75,0,0,0,0,#99,'perücke_ru')
defbutton(356,240,160,41,0,0,0,0,#99,'brustschild')
defbutton(388,100, 90,43,0,0,0,0,#99,'haube')
curson(mousex,mousey)
checkbutton('exit',20,0)
:bild *** Vergrösserung
cursoff
textcolor(248)
textbcolor(255)
writestyle(3)
texttrnsp(1)
textshadow(0,1)
textcofs(-3)
button(95,145,205,205,1,50)
pbutton(315,287,560,388,248,255)
cbox(0,247,0)
printat(340,330,Ta2)
pause(100)
pbutton(315,287,560,388,255,248)
cbox(0,247,0)
textshadow(0,-1)
printat(340,330,Ta1)
readsound('ping.snd')
startsound
for i:=590 to 45 step -2 do
button(i,440,596,462,1,1)
next(i)
copywin(590,440,599,469)
for i:=590 to 220 step -3 do
loadwin(i,440,0,0)
next(i)
readsound('typewrit.snd')
textcolor(240)
dum1$:='VERGRÖSSERUNG'
len(dum1$,i)
for j:=1 to i do
dum2$:=dum1$
mid(dum2$,j,1)
printat(37+j*13,444,dum2$)
startsound
random(50,k)
pause(50+k)
next(j)
readpic('tut.bmp')
readsound('ping.snd')
startsound
loadwin(245,2,5,0)
defbutton(0,0,639,479,0,0,0,0,'a','ping')
defbutton(0,0,639,479,0,0,0,0,ret,'ping')
curson(mousex,mousey)
checkbutton('ping',15,0)
:ping
readsound('ping.snd')
startsound
loadpic(42,0)
goto('menu')
:pump *** 'AUA'-Effekt bei 12 Mini-Tut's
mx:=(mousex-43)/40
mx:=(mx*40)+43
my:=(mousey-340)/50
my:=(my*50)+340
readsound('auahoch.snd')
startsound
cursoff
for I := 0 to 8 step 2 do
loadwin(mx-(i*6),my-(i*9),29-i,0)
wait(5)
next(i)
curson(mousex,mousey)
loadpic(42,0)
goto('menu')
:bart *** Reaktion auf Mini-Tut-Klicks
printat(tx,ty,'BART ')
goto('tut')
:nase
printat(tx,ty,'NASE ')
goto('tut')
:hals
printat(tx,ty,'HALS ')
goto('tut')
:mund
printat(tx,ty,'MUND ')
goto('tut')
:auge_r
printat(tx,ty,'RECHTES AUGE')
goto('tut')
:auge_l
printat(tx,ty,'LINKES AUGE ')
goto('tut')
:diadem
printat(tx,ty,'DIADEM ')
goto('tut')
:gesicht
printat(tx,ty,'GESICHT ')
goto('tut')
:perücke_lo
printat(tx,ty,'GOLDHAUBE ')
goto('tut')
:perücke_lu
printat(tx,ty,'GOLDKRAGEN ')
goto('tut')
:perücke_ro
printat(tx,ty,'GOLDHAUBE ')
goto('tut')
:perücke_ru
printat(tx,ty,'GOLDKRAGEN ')
goto('tut')
:brustschild
printat(tx,ty,'BRUSTSCHILD ')
goto('tut')
:haube
printat(tx,ty,'STIRNKAPPE ')
goto('tut')
:tut
readsound('typewrite.snd')
startsound
goto('menu')
:exit *** Programmende
button(50,100,250,250,5,25)
pause(100)
end