home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / BANDIT.OPT < prev    next >
Text File  |  1995-05-05  |  2KB  |  84 lines
  1.  
  2. rem ********************************************
  3. rem  Dies ist die Ausgangsdemo für BANDIT_X.OPT
  4. rem ********************************************
  5.  
  6. defs(data$,'080 200 230 100 210 310 330 180 490 070 435 310')
  7. defs(dum$)
  8.  
  9. def(i)
  10. def(j)
  11. def(k)
  12. def(x)
  13. def(y)
  14.  
  15. procedure spritescroll(flg,xl,yo,xx,yy,br,ho,s)
  16.   locals(i,k,l)
  17.   k := 0
  18.   l := ho
  19.   if flg<>0
  20.    k := ho
  21.    l := 0
  22.    s    := 0-s
  23.   endif
  24.   for i:=k to l step s do
  25.     loadsprite(xl,yo+i,xx,yy,br,ho-i)
  26.     loadsprite(xl,yo,xx,yy+ho-i,br,i)
  27.   next(i)
  28. return
  29.  
  30.  
  31. BEGIN
  32.  
  33. readpic('plakat.tga')
  34. fadeout(0)
  35. loadpic(1,0)
  36.  
  37. for i:=0 to 5 do
  38.   dum$:=data$
  39.   mid(dum$,i*8+1,3)
  40.   val(dum$,x,j)
  41.   dum$:=data$
  42.   mid(dum$,i*8+5,3)
  43.   val(dum$,y,j)
  44.   copywin(x,y,x+79,y+79)
  45.   loadwin(0,i*80,0,0)
  46. next(i)
  47.  
  48. copywin(0,0,79,479)
  49. clearscreen(20)
  50. setallpal
  51. spritescroll(1,0,  0, 80, 80,80,80,2)
  52. spritescroll(0,0, 80,100,100,80,80,2)
  53. spritescroll(1,0,160,120,120,80,80,2)
  54. spritescroll(0,0,240,140,140,80,80,2)
  55. spritescroll(1,0,320,160,160,80,80,2)
  56. spritescroll(0,0,400,180,180,80,80,2)
  57. movebitmap(10,10,480,480,50,1,1)
  58.  
  59.  
  60. :more
  61.   for j:=0 to 479 step 8 do
  62.    loadsprite(0,j,300,300,80,80)
  63.    loadsprite(0,j,400,300,80,80)
  64.    loadsprite(0,j,500,300,80,80)
  65.    if j>400
  66.      loadsprite(0,0,300,300+(ymax-j),80,80-(ymax-j))
  67.      loadsprite(0,0,400,300+(ymax-j),80,80-(ymax-j))
  68.      loadsprite(0,0,500,300+(ymax-j),80,80-(ymax-j))
  69.    endif
  70.    if readkey<>0
  71.      repeat
  72.      until readkey=0
  73.      wait(100)
  74.      repeat
  75.      until readkey<>0
  76.    endif
  77.   next(j)
  78. goto('more')
  79.  
  80. end
  81.  
  82.  
  83.  
  84.