home *** CD-ROM | disk | FTP | other *** search
/ Jommeke / Jommeke.iso / movies / spotdiff.dir / 00053_Script_53 < prev    next >
Text File  |  2000-02-23  |  1KB  |  46 lines
  1. --on setupallsprites2
  2. --  
  3. --  -- sets up the patches properly for the game ::
  4. --  
  5. --  
  6. --  global markerch,diffchbase,picch,castbase,level,posdata
  7. --  
  8. --  
  9. --  put ((level-1)*50)+castbase into sbase
  10. --  
  11. --  
  12. --  put 20 into cnt
  13. --  
  14. --  
  15. --  --sprites which cover the areas that are different
  16. --  
  17. --  put getat(posdata,level) into levdata
  18. --
  19. --  repeat with n=1 to cnt
  20. --    
  21. --    --the loop does a pair of pieces at a time
  22. --    
  23. --    put getat(levdata,n) into lpair
  24. --    put getat(lpair,1) into xl
  25. --    put getat(lpair,2) into yl
  26. --    
  27. --    put diffchbase+n-1 into ch
  28. --    
  29. --    
  30. --    --sets both sets of patches so they show the same patches on both sides
  31. --    
  32. --    --left side
  33. --    
  34. --    set the member of sprite ch to member (sbase-1+n) of castlib 3
  35. --    set the loch of sprite ch to xl
  36. --    set the locv of sprite ch to yl
  37. --    
  38. --    
  39. --    --right side
  40. --    set the member of sprite ch+30 to member (sbase-1+n) of castlib 3
  41. --    set the loch of sprite ch+30 to xl+363
  42. --    set the locv of sprite ch+30 to yl
  43. --    
  44. --    
  45. --  end repeat
  46. --end