home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / waku.dir / 00048_Script_48 < prev    next >
Text File  |  1995-11-10  |  1KB  |  55 lines
  1. on TOWN
  2.   global gFineSky,gTeika,moveSPlist,gFineSkyTeika,¼
  3. gMapPosH,gMapPosH,gCDPosH,gCDPosV,gCDCastNum,¼
  4. KAIDEN,CHIELIST,DANSION,GAMEYA_in
  5.   
  6.   if DANSION = 0 and count(CHIELIST) >= 70 and KAIDEN >= 1 then
  7.     tell window"TOWN"
  8.       go to movie "DAN256"
  9.     end tell
  10.     go to "toMAP_DAN"
  11.     puppetSprite 6,FALSE
  12.   else
  13.     if gTeika = 0 and not(GAMEYA_in = 0) then
  14.       sound playFile 1,"\S_GAMEYA\TEIKA_0"
  15.       repeat while soundBusy(1)
  16.         nothing
  17.       end repeat
  18.       set gMapPosH = 256
  19.       set gMapPosV = 8
  20.       set gCDPosH = 250
  21.       set gCDPosV = 262
  22.       set gCDCastNum = 35
  23.       --      set gFineSky = 0
  24.       set GAMEYA_in = 1
  25.       tell Window"Town"
  26.         go to movie"GAMEYA"
  27.       end tell
  28.       go to frame"toMAP"
  29.     else
  30.       if gFineSky = 1 then
  31.         set moveSPlist = [2,4,5,6,7,8,9,10,11,12,14,15,16,17,18,19,20,21,22]
  32.         tell Window"Town"          
  33.           go to frame"SkyMap" of movie"FINETOWN"
  34.         end tell
  35.         go to frame"start"
  36.       else
  37.         if gTeika >= gFineSkyTeika then
  38.           tell Window"Town"
  39.             go to movie"TOWN_SUB"
  40.           end tell
  41.           go to frame"start"
  42.           set gFineSky = 1
  43.         else
  44.           set moveSPlist = [2,6,16]
  45.           tell Window"Town"          
  46.             go to frame"Start" of movie"GRAYTown"
  47.           end tell
  48.           go to frame"start"
  49.         end if
  50.       end if
  51.     end if
  52.   end if
  53.   
  54. end 
  55.