home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / csinke6.dir / 00463_Script_ݨ×Ç™ìñÇýÇ¡Çýéû < prev    next >
Text File  |  1995-11-13  |  1KB  |  69 lines
  1. on AtariT
  2.   set Rand = random(6)
  3.   if Rand = 1 then LuckyT1
  4.   else
  5.     if Rand = 2 then LuckyT2
  6.     else
  7.       if Rand = 3 then LuckyT3
  8.       else
  9.         if Rand = 4 then LuckyT4
  10.         else
  11.           if Rand = 5 then LuckyT5
  12.           else
  13.             if Rand = 6 then HereT4
  14.           end if
  15.         end if
  16.       end if
  17.     end if
  18.   end if
  19. end
  20.  
  21.  
  22. on AtariH
  23.   set Rand = random(6)
  24.   if Rand = 1 then LuckyH1
  25.   else
  26.     if Rand = 2 then LuckyH2
  27.     else
  28.       if Rand = 3 then LuckyH3
  29.       else
  30.         if Rand = 4 then LuckyH4
  31.         else
  32.           if Rand = 5 then LuckyH5
  33.           else
  34.             if Rand = 6 then HereH4
  35.           end if
  36.         end if
  37.       end if
  38.     end if
  39.   end if
  40. end
  41.  
  42. on AtariB
  43.   set Rand = random(9)
  44.   if Rand = 1 then LuckyB1
  45.   else
  46.     if Rand = 2 then LuckyB2
  47.     else
  48.       if Rand = 3 then LuckyB3
  49.       else
  50.         if Rand = 4 then LuckyB4
  51.         else
  52.           if Rand = 5 then LuckyB5
  53.           else
  54.             if Rand = 6 then HereB3
  55.             else
  56.               if Rand = 7 then HereB4
  57.               else
  58.                 if Rand = 8 then HereB5
  59.                 else
  60.                   if Rand = 9 then HereB6
  61.                 end if
  62.               end if
  63.             end if
  64.           end if
  65.         end if
  66.       end if
  67.     end if
  68.   end if
  69. end