home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / WILLY.OPT < prev    next >
Text File  |  1995-04-27  |  2KB  |  97 lines
  1.  
  2. def(a)
  3. def(b)
  4. def(c)
  5. def(k)
  6. def(j)
  7. def(n)
  8. def(x,100)
  9. def(y,25)
  10. def(o,14)
  11. def(l,10)
  12.  
  13. begin
  14.  
  15.   readsound('capumusi.snd')
  16.   readwin('willi.pcx')
  17.   setallpal
  18.   readfont(1,'hel15x29.fnt')
  19.  
  20.   clearscreen(8)
  21.   keycol(243)
  22.   setcolor(243)
  23.   viewport(0,20,639,125)
  24.   cbox(3,243,100)
  25.   viewport(0,175,639,280)
  26.   cbox(4,243,100)
  27.   scrtobuf
  28.  
  29.   startsound
  30.   soundloop(1)
  31.  
  32.   b:=1
  33.   c:=b
  34.  
  35.   do
  36.     for a:=0 to 31 do
  37.       viewport(5+a*20+(c-b)*20,160,15+a*20+(c-b),170)
  38.       cbox(0,115,0)
  39.       viewport(5+a*20+(c-b)*20,130,15+a*20+(c-b),140)
  40.       cbox(0,115,0)
  41.       viewport(5+a*20+(c-b)*20,285,15+a*20+(c-b),295)
  42.       cbox(0,115,0)
  43.       viewport(5+a*20+(c-b)*20,5,15+a*20+(c-b),15)
  44.       cbox(0,115,0)
  45.       viewport(5+a*20+(c-b)*20,315,15+a*20+(c-b),325)
  46.       cbox(0,115,0)
  47.       viewport(5+a*20+(c-b)*20,440,15+a*20+(c-b),450)
  48.       cbox(0,115,0)
  49.       viewport(5,330,115,435)
  50.       cbox(0,243,0)
  51.       viewport(125,330,235,435)
  52.       cbox(0,243,0)
  53.       viewport(265,330,375,435)
  54.       cbox(0,243,0)
  55.       viewport(405,330,515,435)
  56.       cbox(0,243,0)
  57.       viewport(525,330,635,435)
  58.       cbox(0,243,0)
  59.     next(a)
  60.   loop(b)
  61.  
  62.   key(0)
  63.   font(1)
  64.   textcofs(2)
  65.   textcolor(115)
  66.   textbcolor(172)
  67.   textshadow(2,2)
  68.   writestyle(3)
  69.   printc(320,465,'WILLI der Wegweiser')
  70.  
  71.   repeat
  72.     k:=o
  73.     n:=k
  74.     do
  75.       rotpal(115,121)
  76.       for j:=0 to 3 DO
  77.         viewport(0,25,639,120)
  78.         restorebox(0,0)
  79.         loadsprite(j*85,97,j*10+(n-k)*40,y,86,95)
  80.         viewport(0,176,639,279)
  81.         restorebox(0,0)
  82.         loadsprite(j*85,0,535-j*10-(n-k)*40,y+155,86,95)
  83.         loadsprite(j*85,97,15,335,86,95)
  84.         loadsprite(j*85,0,535,335,86,95)
  85.         loadsprite(170+(j*85),289,135,335,86,95)
  86.         loadsprite(170+(j*85),385,415,335,86,95)
  87.         loadsprite(170+(j*85),193,275,335,86,95)
  88.       next(j)
  89.     loop(k)
  90.   until keypressed<>mousek
  91.  
  92. end
  93.  
  94.  
  95.  
  96.  
  97.