home *** CD-ROM | disk | FTP | other *** search
/ Curio City 11 / CURIO11.bin / pc / movie / start.dir / 00002.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  2.2 KB  |  84 lines
  1. global gapppath, gwin, gmac, gjpdata, gdrive, gusernumber, guserlist, gshopping, gsoundlevel, gbgm, gnowplace
  2.  
  3. on startMovie
  4.   if the machineType <> 256 then
  5.     if the colorDepth <> 8 then
  6.       set the colorDepth to 8
  7.     end if
  8.   else
  9.     if the colorDepth <> 8 then
  10.       alert("ﾃ･ﾂｪﾃｧ窶ｺﾃ嘉ﾃ泳ﾃ運ﾃ[ﾃﾃεｪ窶ｺﾃｭﾃ凝邃｢" & integer(power(2, the colorDepth)) & "ﾃｪFﾃ窶ｦﾃﾂｻﾃﾂ｡ﾃﾆ津ﾂ｢ﾃ窶ｹﾃﾃ" & RETURN & "ﾃﾂｱﾃﾃε窶ｹﾃ窶ｹﾃﾂｼﾃ窶｡ﾃﾂ湘ｳﾃｳﾃ窶ｦﾃﾂｻﾃﾃ催窶ｹﾃﾃ敕邃｢ﾃAﾃ嘉ﾃ[ﾃ詠ﾃ[ﾃﾃεﾂｿﾃｭﾃ凝ﾂ敕ｯﾂ､ﾃｨﾃｿﾃｨoﾃｳﾃﾃ窶ｹﾃﾃｾﾃﾃ" & RETURN & "ﾃ⑱ﾃⅠﾃⅡﾃｪFﾃ窶ｦﾃｯﾅ禿ｧXﾃﾂｵﾃﾆ津ﾂ湘ｳﾃｳﾃﾂ催ﾃｦﾃﾅｽﾃﾂ｢")
  11.       alert("ﾃ嘉ﾃ泳ﾃ運ﾃﾃεｪFﾃﾃεｯﾅ禿ｧXﾃﾃ95ﾃﾃεｨﾃ催ｧﾃ｡" & RETURN & "[ﾅ窶ｺﾆ陳､ﾂ税ｸﾂﾂｻﾅｸ - ﾃ｢ﾃ甘ｱﾂ - ﾂｯ竄ｬﾂｮﾃｽﾃδｾﾂ湘ﾃεｨﾅｾﾃｧﾃ - ﾃｰﾃ猟青ﾂｾﾃ佝綻 ﾃﾂｼﾃｯﾅ禿ｧXﾃｨoﾃｳﾃﾃ窶ｹﾃﾃ")
  12.     end if
  13.   end if
  14.   getmachinetype()
  15.   set gmac to gwin
  16.   initsound()
  17. end
  18.  
  19. on getmachinetype
  20.   if the platform = "Windows,32" then
  21.     set gwin to 95
  22.   else
  23.     if the platform = "Windows,16" then
  24.       set gwin to 1
  25.     else
  26.       set gwin to 0
  27.     end if
  28.   end if
  29. end
  30.  
  31. on initsound
  32.   set the volume of sound 1 to 255
  33.   set the volume of sound 2 to 255
  34.   set n to 10
  35.   set gbgm to 499 + n
  36.   if the soundLevel = 0 then
  37.     set gsoundlevel to 321
  38.   end if
  39.   if the soundLevel = 1 then
  40.     set gsoundlevel to 306
  41.   end if
  42.   if the soundLevel = 2 then
  43.     set gsoundlevel to 290
  44.   end if
  45.   if the soundLevel = 3 then
  46.     set gsoundlevel to 274
  47.   end if
  48.   if the soundLevel = 4 then
  49.     set gsoundlevel to 258
  50.   end if
  51.   if the soundLevel = 5 then
  52.     set gsoundlevel to 242
  53.   end if
  54.   if the soundLevel = 6 then
  55.     set gsoundlevel to 226
  56.   end if
  57.   if the soundLevel = 7 then
  58.     set gsoundlevel to 210
  59.   end if
  60. end
  61.  
  62. on gettoday
  63.   set today to the short date
  64.   set olddelimiter to the itemDelimiter
  65.   if gwin = 0 then
  66.     set the itemDelimiter to "."
  67.   else
  68.     set the itemDelimiter to "/"
  69.   end if
  70.   set y to value(item 1 of today)
  71.   set m to value(item 2 of today)
  72.   set d to value(item 3 of today)
  73.   set the itemDelimiter to olddelimiter
  74.   set today to y & "," & m & "," & d
  75.   return today
  76. end
  77.  
  78. on keyDown
  79.   if (the keyCode = 125) or (the keyCode = 126) then
  80.   else
  81.     go(1, "@/CONT/START21")
  82.   end if
  83. end
  84.