Curio City 11/CURIO11.bin/pc/movie/shop/lcd.dir/00041.ls

Text File | 1998-01-01 | 1.9 KB | 59 lines

global guserlist, gusernumber

on exehomepageosaka
  global gwin
  if gwin = 0 then
    if gusernumber = 9 then
      alert("ﾃ･ﾂｪﾃｧ窶ｺCD-ROMﾃﾂｩﾃﾃ｣Nﾃｬﾃﾃﾅｽﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾃ敕ﾃεﾂｼﾃAﾃﾂｱﾃﾃε｣@ﾃｮ\ﾃﾃ陛ｩgﾃﾂｶﾃ窶ｹﾃﾃｾﾃﾃ" & RETURN & "SETUPﾃﾂｼﾃ韻ﾃ嘉ｬﾃ厩ﾃ曳ﾃ[ﾃ嘉｣ﾃﾂｵﾃﾃｽCurio10ﾃﾃ甘ﾃ凝｣Nﾃｬﾃﾃﾂｵﾃﾆ津｢ﾅﾃﾅｽﾃﾂ｢")
      exit
    end if
    exehomepagemacosaka()
  else
    if gusernumber = 9 then
      alert("CD-ROMﾃﾂｩﾃﾃ｣Nﾃｬﾃﾃﾅｽﾃﾃ催ﾃｽﾃ映ﾃ嘉ﾃｮﾂｼﾃﾂｼﾃﾃ敕ﾃεﾂｼﾃAﾃﾂｱﾃﾃε｣@ﾃｮ\ﾃﾃ陛ｩgﾃﾂｶﾃ窶ｹﾃﾃｾﾃﾃ" & RETURN & "ﾂﾂ脆停ぎﾂｯ竄ｬﾂｮﾃｽﾃ榲窶ｦﾅﾃﾂ静ﾂｵﾃﾃｽCurio10ﾃﾃ甘ﾃ凝｣Nﾃｬﾃﾃﾂｵﾃﾆ津｢ﾅﾃﾅｽﾃﾂ｢")
      exit
    end if
    exehomepagewinosaka()
  end if
end

on exehomepagewinosaka
  if (offset("EXP", the netapp of guserlist) <> 0) or (offset("NETSC", the netapp of guserlist) <> 0) or (offset("WT", the netapp of guserlist) <> 0) then
    set ld to chars(gdrive, 1, 1)
    set html to ld & ":\MOVIE\SHOP\STATIC\INDEX.HTML"
    open(the netapp of guserlist & " " & html)
  else
    winexebrzosaka()
  end if
end

on exehomepagemacosaka
  if (offset("ﾂ･ﾃ榲ｽﾃδ､ﾂ静", the netapp of guserlist) <> 0) or (offset("NETSC", the netapp of guserlist) <> 0) then
    set html to "Curio10:MOVIE:SHOP:STATIC:INDEX.HTML"
    open(html, the netapp of guserlist)
  else
    macexebrzosaka()
  end if
end

on winexebrzosaka
  set ld to chars(gdrive, 1, 1)
  set html to ld & ":\MOVIE\SHOP\STATIC\INDEX.HTML"
  set lexefile to winsearchbrz()
  if lexefile <> "0" then
    open(lexefile & " " & html)
  else
    alert("ﾃ韻ﾃ嘉ｬﾃ運ﾃ[ﾃ瑛ﾃ叡ﾃ曳ﾃ疫ﾃ嘉｢ﾃ右ﾃ蔚ﾃ邃｢ﾃ･ﾂｩﾃﾂｬﾃﾂｩﾃﾃ凝窶ｹﾃﾃｾﾃﾃ津ﾂｼﾃﾂｵﾃﾃｽ")
  end if
end

on macexebrzosaka
  set lexefile to macsearchbrz()
  set html to "Curio10:MOVIE:SHOP:STATIC:INDEX.HTML"
  if lexefile <> "0" then
    open(html, lexefile)
  else
    alert("ﾃ韻ﾃ嘉ｬﾃ運ﾃ[ﾃ瑛ﾃ叡ﾃ曳ﾃ疫ﾃ嘉｢ﾃ右ﾃ蔚ﾃ邃｢ﾃ･ﾂｩﾃﾂｬﾃﾂｩﾃﾃ凝窶ｹﾃﾃｾﾃﾃ津ﾂｼﾃﾂｵﾃﾃｽ")
  end if
end