home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Raytrace_Car.asc < prev    next >
Text File  |  1996-01-21  |  634b  |  38 lines
  1. ' small grab code by ßudda/NFA 
  2. ' Car gfx are freely useable!  
  3.  
  4. Load Iff "SNC-003:Executables/raycars.pic",0
  5.  
  6. Erase 1
  7. IN=1
  8. Ink 0
  9. Restore Y
  10. For STRIP=1 To 4
  11.    
  12.    Read Y
  13.    For K=253 To 63 Step -24
  14.       Get Bob 0,IN,K-22,Y To K,Y+15
  15.       Bar K-22,Y To K,Y+15
  16.       Inc IN
  17.    Next K
  18.    
  19. Next STRIP
  20.  
  21. Y: Data 15,45,74,102
  22.  
  23. Bob 1,160,100,1
  24. Channel 1 To Bob 1
  25. CAR$="Anim 0,( 1,5)(2 ,5)(3 ,5)(4 ,5)(5 ,5)(6 ,5)(7,5)(8,5)(9,5)(10,5)(11,5)(12,5)(13,5)(14,5)(15,5)(16,5)(17,5)(18,5)(19,5)(20,5)(21,5)(22,5)(23,5)(24,5)"
  26. CAR$=CAR$+"(25,5)(26,5)(27,5)(28,5)(29,5)(30,5)(31,5)(32,5)"
  27. Amal 1,CAR$
  28. Amal On 1
  29.  
  30. Do 
  31.    Exit If Inkey$>""
  32. Loop 
  33.  
  34.  
  35.  
  36.  
  37.  
  38.