home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / CD_1.iso / bioforge / script / assignid.scp < prev    next >
Text File  |  1995-01-18  |  406b  |  45 lines
  1.  
  2.  
  3.  
  4. { ASSIGNRANDOMIDS
  5. P ~ÇÇ 
  6.  
  7.  
  8. ^ꢠ= @Çà 0 9
  9. ^꣠= @Çà 0 9
  10. ^ꥠ= @Çà 0 9
  11. ^ê₧ = @Çà 0 9
  12. ^ꃠ= @Çà 0 9
  13.  
  14. ^ï½ = @Çà 0 9
  15. ^ï¼ = @Çà 0 9
  16. ^ï¡ = @Çà 0 9
  17. ^ï« = @Çà 0 9
  18. ^ï» = @Çà 0 9
  19.  
  20. ^ï▒ = 0
  21.  
  22.  
  23. :MAKEREACTORID
  24. a ^ï▒ @Çà 1 5 
  25. ~ÇÇ = @Ç» ^ï▒ 1 5 
  26. I ~ÇÇ < 3 THEN
  27. J #Çü 
  28.  
  29.  
  30. ^ï▓ = 0
  31. ~ÇÇ = 1
  32. :MAKEEQUIVALENTNUMBER
  33. I @ÇÅ ^ï▒ ~ÇÇ == 1 THEN
  34. {
  35. ^ï▓ *= 10
  36. ^ï▓ += ~ÇÇ 
  37. }
  38. ~ÇÇ += 1
  39. I ~ÇÇ <= 5 THEN 
  40. J #Çé 
  41. }
  42.  
  43.  
  44. //$ 26 - version number
  45.