home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dpokalv2.dir / 00055_Script_55 < prev    next >
Text File  |  1995-11-10  |  799b  |  29 lines
  1. on SelectCard1
  2.   global Karuta,gHudaP,gUtasu,gSyurui,Boze,Hime,Tono
  3.   repeat with i = 1 to 15
  4.     set listct = count(Boze)
  5.     set dtct = random(listct)
  6.     set gUtasu = getPropAT(Boze,dtct)
  7.     set gSyurui = getAT(Boze,dtct)
  8.     addProp karuta, gUtasu, gSyurui
  9.     deleteAT Boze, dtct
  10.   end repeat
  11.   
  12.   repeat with i = 1 to 18
  13.     set listct = count(Hime)
  14.     set dtct = random(listct)
  15.     set gUtasu = getPropAT(Hime,dtct)
  16.     set gSyurui = getAT(Hime,dtct)
  17.     addProp karuta, gUtasu, gSyurui
  18.     deleteAT Hime, dtct
  19.   end repeat
  20.   
  21.   repeat with i = 1 to 20
  22.     set listct = count(Tono)
  23.     set dtct = random(listct)
  24.     set gUtasu = getPropAT(Tono,dtct)
  25.     set gSyurui = getAT(Tono,dtct)
  26.     addProp karuta, gUtasu, gSyurui
  27.     deleteAT Tono, dtct
  28.   end repeat
  29. end