home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / jeep / dust1_fx.sh < prev    next >
Encoding:
Text File  |  1995-09-28  |  3.7 KB  |  98 lines
  1. ;Dust animation.
  2. ;0-12 frames to be played in one cycle.
  3.         
  4.         texture spotfx2
  5.         shape 10000
  6.  
  7.         vertex 01,-50,-100,000
  8.         vertex 02,+50,-100,000
  9.         vertex 03,+50,0000,000
  10.         vertex 04,-50,0000,000
  11.         
  12.         vertex 11,000,-100,-50
  13.         vertex 12,000,-100,+50
  14.         vertex 13,000,0000,+50
  15.         vertex 14,000,0000,-50
  16.                
  17.         ifsem 8 goto frames9_12
  18.         ifsem 4 goto frames5_8
  19.         ifsem 2 goto frame3or4
  20.         ifsem 1 goto frame_2
  21.  
  22.         txtrmap (00,80),(39,80),(39,119),(00,119)             ;frame 1 (tarmac)
  23.         gosub texture_dRAW
  24.         txtrmap (39,80),(00,80),(00,119),(39,119)             ;frame 1 (tarmac)
  25.         goto  texture_dRAW2
  26. frame_2:
  27.         txtrmap (40,80),(79,80),(79,119),(40,119)             ;frame 2 (tarmac)
  28.         gosub texture_dRAW
  29.         txtrmap (79,80),(40,80),(40,119),(79,119)             ;frame 2 (tarmac)
  30.         goto texture_dRAW2
  31. frame3or4:
  32.         ifsem 1 goto frame_4
  33.         txtrmap (80,80),(119,80),(119,119),(080,119)        ;frame 3 (tarmac)     
  34.         gosub texture_dRAW
  35.         txtrmap (119,80),(80,80),(080,119),(119,119)        ;frame 3 (tarmac)     
  36.         goto texture_dRAW2
  37. frame_4:
  38.         txtrmap (120,80),(159,80),(159,119),(120,119)       ;frame 4 (tarmac)     
  39.         gosub texture_dRAW
  40.         txtrmap (159,80),(120,80),(120,119),(159,119)       ;frame 4 (tarmac)     
  41.         goto texture_dRAW2
  42. frames5_8:       
  43.         ifsem 2 goto frames7or8
  44.         ifsem 1 goto frame_6
  45.         txtrmap (160,80),(199,80),(199,119),(160,119)       ;frame 5 (tarmac)     
  46.         gosub texture_dRAW
  47.         txtrmap (199,80),(160,80),(160,119),(199,119)       ;frame 5 (tarmac)     
  48.         goto texture_dRAW2
  49. frame_6:       
  50.         txtrmap (200,80),(239,80),(239,119),(200,119)        ;frame 6 (tarmac)     
  51.         gosub texture_dRAW
  52.         txtrmap (239,80),(200,80),(200,119),(239,119)        ;frame 6 (tarmac)     
  53.         goto texture_dRAW2
  54. frames7or8:       
  55.         ifsem 1 goto frame_8
  56.         txtrmap (000,120),(039,120),(039,159),(000,159)     ;frame 7 (tarmac)
  57.         gosub texture_dRAW
  58.         txtrmap (039,120),(000,120),(000,159),(039,159)     ;frame 7 (tarmac)
  59.         goto texture_dRAW2
  60. frame_8:
  61.         txtrmap (040,120),(079,120),(079,159),(040,159)     ;frame 8 (tarmac)
  62.         gosub texture_dRAW
  63.         txtrmap (079,120),(040,120),(040,159),(079,159)     ;frame 8 (tarmac)
  64.         goto texture_dRAW2
  65. frames9_12:       
  66.         ifsem 2 goto frames11or12
  67.         ifsem 1 goto frame_10
  68.         txtrmap (080,120),(119,120),(119,159),(080,159)     ;frame 9 (tarmac)
  69.         gosub texture_dRAW
  70.         txtrmap (119,120),(080,120),(080,159),(119,159)     ;frame 9 (tarmac)
  71.         goto texture_dRAW2
  72. frame_10:       
  73.         txtrmap (120,120),(159,120),(159,159),(120,159)     ;frame 10(tarmac)
  74.         gosub texture_dRAW
  75.         txtrmap (159,120),(120,120),(120,159),(159,159)     ;frame 10(tarmac)
  76.         goto texture_dRAW2
  77. frames11or12:
  78.         ifsem 1 goto frame_12
  79.         txtrmap (160,120),(199,120),(199,159),(160,159)     ;frame 11(tarmac)
  80.         gosub texture_dRAW
  81.         txtrmap (199,120),(160,120),(160,159),(199,159)     ;frame 11(tarmac)
  82.         goto texture_dRAW2
  83. frame_12:             
  84.         txtrmap (200,120),(239,120),(239,159),(200,159)     ;frame 12(tarmac)
  85.         gosub texture_dRAW
  86.         txtrmap (239,120),(200,120),(200,159),(239,159)     ;frame 12(tarmac)
  87.         goto texture_dRAW2
  88.  
  89. texture_dRAW2:      
  90.         drwtxtr 02,01,04,03
  91.         drwtxtr 12,11,14,13
  92.         return
  93. texture_dRAW:       
  94.         drwtxtr 01,02,03,04
  95.         drwtxtr 11,12,13,14
  96.         return
  97.         end
  98.