home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / hint_de.dir / 00650_Script_650 < prev    next >
Text File  |  1995-11-10  |  381b  |  22 lines
  1.  
  2.  
  3. on ADDCHIELIST
  4.   global UtaNo
  5.   if getpos(chielist,UtaNo) = 0 then  
  6.     ADD CHIELIST, UtaNo
  7.     --    checkDANSION
  8.   else
  9.     nothing
  10.   end if
  11. end
  12.  
  13. on checkDANSION
  14.   global KAIDEN,CHIELIST,DANSION
  15.   if DANSION = 0 and count(CHIELIST) >= 70 and KAIDEN >= 1 then
  16.     go to movie "DAN256"
  17.     tell the stage
  18.       go to "toMAP_DAN"
  19.     end tell
  20.   end if  
  21. end
  22.