home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / start_m4.dir / 00001_Script_1 next >
Text File  |  1995-11-10  |  1KB  |  53 lines
  1. on exitFrame
  2.   global setct,gTEIKA,gfinesky,DANSION,DAN_in,¼
  3. TACHI,KAIDEN,YORIAI ,ChieList,moveSPlist,¼
  4. gFineSkyTeika,gMapPosH,gMapPosV,gCDPosH,gCDPosV,gCDCastNum,¼
  5. vQ_No,fromKARU,GAMEYA_in,GIFTSONG,DQList,¼
  6. myList
  7.   
  8.   --╔e╔C╔J
  9.   put 0 into gTEIKA
  10.   put gTEIKA into field"╔e╔C╔J"
  11.   set the textFont of field"╔e╔C╔J" = "GENEVA"
  12.   set the textSize of field"╔e╔C╔J" = 24
  13.   set the textStyle of field"╔e╔C╔J" = "Bold"
  14.   --φmσbδï  
  15.   set ChieList = []  
  16.   --  repeat with i = 1 to 70
  17.   --    add ChieList,i
  18.   --  end repeat
  19.   --  deleteOne ChieList,9
  20.   --TOWN
  21.   set moveSPlist = [2,6,16]
  22.   set gfinesky = 0
  23.   set gMapPosH = 256
  24.   set gMapPosV = 192
  25.   set gCDPosH = 250
  26.   set gCDPosV = 262
  27.   set gCDCastNum = 35
  28.   --╔q╔∞╔g╟╝╔G╔C╔g
  29.   put 1 into setCt
  30.   --╔_╔∞╔W╔ß╔∞
  31.   set DQList = []  
  32.   set DANSION = 0
  33.   set DAN_in = 0
  34.   put 1 into vQ_No
  35.   --Σ╥╟╦τß╟óΦΣ
  36.   set TACHI = 0
  37.   set YORIAI = 0
  38.   set GIFTSONG = 0
  39.   --±╨π±ΣF∞`
  40.   set KAIDEN = 0
  41.   --╔Q┼[╔─Γ╞
  42.   set GAMEYA_in = 0
  43.   set gFineSkyTeika = 10000
  44.   --╔J╔π╔^╔W╔A╔─
  45.   set fromKARU = 0
  46.   
  47.   --╔Z┼[╔u
  48.   set myList = [setct,gTEIKA,gfinesky,DANSION,DAN_in,¼
  49. TACHI,KAIDEN,YORIAI ,ChieList,moveSPlist,¼
  50. gFineSkyTeika,gMapPosH,gMapPosV,gCDPosH,gCDPosV,gCDCastNum,¼
  51. vQ_No,fromKARU,GAMEYA_in,GIFTSONG]
  52.   
  53. end