home *** CD-ROM | disk | FTP | other *** search
/ Curio City 11 / CURIO11.bin / pc / movie / shop / home_2.dir / 00051.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  2.4 KB  |  70 lines
  1. global gdrive, gapppath, lcd, hliveplayer, glockconnect, gstaticdir
  2.  
  3. on startMovie
  4.   set movie_mode to 0
  5.   if voidp(glockconnect) = 1 then
  6.     set glockconnect to 0
  7.   end if
  8.   set ninitializeflags to 1 + 16
  9.   set nmediaflags to 1 + 2 + 4 + 8 + 16
  10.   if voidp(lcd) = 1 then
  11.     set lcd to new(xtra("xlplay"))
  12.   end if
  13.   if voidp(lcd) <> 1 then
  14.     set hliveplayer to lp_initialize(lcd, "Curio City", "LPLAY.INI", "Jota Takahashi", "Mitsui Knowledge Industry", "jAtmXF4nn3VBb4D95uihyxrc", ninitializeflags)
  15.     if (voidp(hliveplayer) <> 1) and (hliveplayer <> 0) then
  16.       if movie_mode = 1 then
  17.         set gstaticdir to "E:\curio\static"
  18.       else
  19.         if movie_mode = 2 then
  20.           set gstaticdir to "C:\My Documents\CURIOCITY\STATIC"
  21.         else
  22.           set gstaticdir to chars(gdrive, 1, 1) & ":\MOVIE\SHOP\STATIC"
  23.         end if
  24.       end if
  25.       lp_setstaticdir(lcd, hliveplayer, gstaticdir)
  26.       set err to lp_isconnected(lcd, hliveplayer)
  27.       if err <> 0 then
  28.         if movie_mode = 2 then
  29.           set svr_addr to "127.0.0.1"
  30.         else
  31.           set svr_addr to "210.130.160.48"
  32.         end if
  33.         set err to lp_connect(lcd, hliveplayer, svr_addr, 8888, 1)
  34.       end if
  35.       if err = 0 then
  36.         set glockconnect to lp_createmedia(lcd, hliveplayer, 0, -100, -100, -80, -80, "DUMMY.HTM", 0, nmediaflags)
  37.         set err to lp_isloggedin(lcd, hliveplayer)
  38.         if err <> 0 then
  39.           set err to lp_login(lcd, hliveplayer, "GUEST", "GUEST", 1)
  40.           if err = 0 then
  41.           else
  42.           end if
  43.         end if
  44.       else
  45.         alert("LiveServerﾃﾃ静ﾃεｪﾅｾﾃｫﾂｱﾃ邃｢ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣ﾃﾅｽﾃﾃ催窶ｹﾃﾂｵﾃﾃｽﾃB")
  46.       end if
  47.     else
  48.       alert("ﾂ鞘ｺﾂｿﾂ青ｻﾃ佝陳･ﾃ榲ｽﾃδ､ﾂ静療邃｢ﾃｩﾂｿﾃｧsﾃﾂｼﾃﾂｴﾃ窶ｹﾃﾃｾﾃﾃ津BLiveCDﾃﾂ敕ｩﾂｿﾃｧsﾃﾃ敕ﾃ暗ﾃｦﾃﾃ佚ﾃε嘉ﾃ嘉ﾃ嘉､ﾃ邃｢ﾃｫﾂｴﾃﾃ凝ﾂｻﾃﾂ｢ﾃﾂｩﾃ窶｡ﾃｭmﾃﾃ催窶ｹﾃﾃｾﾃﾃ津B")
  49.     end if
  50.   end if
  51. end
  52.  
  53. on stopMovie
  54.   if (voidp(lcd) <> 1) and (voidp(hliveplayer) <> 1) and (hliveplayer <> 0) then
  55.     if (voidp(glockconnect) <> 1) and (glockconnect <> 0) then
  56.       lp_destroymedia(lcd, hliveplayer, glockconnect)
  57.     end if
  58.     set flag to lp_isloggedin(lcd, hliveplayer)
  59.     if flag = 0 then
  60.       set err to lp_logout(lcd, hliveplayer)
  61.     end if
  62.     set flag to lp_isconnected(lcd, hliveplayer)
  63.     if flag = 0 then
  64.       set err to lp_disconnect(lcd, hliveplayer)
  65.     end if
  66.     lp_terminate(lcd, hliveplayer)
  67.     set hliveplayer to 0
  68.   end if
  69. end
  70.