The Games Machine 165/XENIATGM165.ISO/cddata/main.dxr/00001.ls

Text File | 2003-05-29 | 19.6 KB | 738 lines

on startMovie
  global plailist, csong, channel, gm, ts, mk, audioon, pcl, pcd, ft, volgen, cheat, showm, chm
  process_config()
  plailist = []
  showm = 0
  chm = 0
  if (plailist = []) or (plailist = VOID) then
    plailist = currentFolder()
  end if
  member("_page_").startURL = EMPTY
  member("videompg").file = EMPTY
  set the exitLock to 1
  cheat = EMPTY
  pcl = 1
  pcd = 1
  csong = 1
  ft = 1
  volgen = 255
  pcd = pcl
  set the keyDownScript to "myNoEscape"
  if voidp(audioon) then
    audioon = 1
    set the soundLevel to 7
  end if
  if csong = VOID then
    channel = 0
  end if
  if csong = VOID then
    csong = 0
  end if
  sound fadeOut 1, 1
  sound fadeOut 2, 1
  repeat with i = 1 to 200
    sprite(i).visible = 1
  end repeat
  repeat with i = 161 to 167
    sprite(i).visible = 0
  end repeat
end

on imaging chan, src, dest
  chan = sprite(chan)
  dy = 0
  repeat with dx = 100 down to 0
    member("sfondo_fake").image.copyPixels(src.image, rect(0, 0, 1024, 398), src.rect, [#blendLevel: 100 - dx, #useFastQuads: 1])
    dx = dx - integer(dx / 5)
    updateStage()
  end repeat
  member("sfondo_fake").image.copyPixels(src.image, rect(0, 0, 1024, 398), src.rect, [#blendLevel: 255, #useFastQuads: 0])
  updateStage()
end

on prepareMovie
  global gm, ts, mk, rndmenu
  oldm = member("sfondo._fake")
  rmenu = random(5)
  repeat while rndmenu = rmenu
    rmenu = random(5)
  end repeat
  rndmenu = rmenu
  imaging(8, member("main" & rndmenu), oldm)
end

on calldescr me, desc
  puppetSprite(27, 1)
  if the frame > 5 then
    return
  end if
  if desc <> 0 then
    sprite(27).member = member(desc & "_descr")
    sprite(27).loc = point(209, 405)
  else
    puppetSprite(27, 0)
    sprite(27).member = member("null")
    updateStage()
  end if
  put desc
end

on setsong me, song
  global plailist, csong, channel, pcl, pcd, ft, volgen
  if plailist = [] then
    repeat with i = 1 to 5
      setVariable(sprite(25), "t" & i, EMPTY)
      sprite(25).tellTarget("c" & i)
      sprite(25).goToFrame(2)
      sprite(25).endTellTarget()
    end repeat
    return
  end if
  ft = 0
  if (value(song) + pcl - 1) <= plailist.count then
    changesong(value(song) + pcl - 1)
  end if
end

on removemusic
  global plailist, csong, channel, pcl, pcd, ft, volgen
  if plailist = [] then
    repeat with i = 1 to 5
      setVariable(sprite(25), "t" & i, EMPTY)
      sprite(25).tellTarget("c" & i)
      sprite(25).goToFrame(2)
      sprite(25).endTellTarget()
    end repeat
    return
  end if
  if plailist.count > 1 then
    plailist.deleteAt(csong)
    pcd = 0
    pcl = 0
    changesong()
  end if
end

on updatelist vl
  global plailist, csong, channel, pcl, pcd, ft, volgen
  if plailist = [] then
    repeat with i = 1 to 5
      setVariable(sprite(25), "t" & i, EMPTY)
      sprite(25).tellTarget("c" & i)
      sprite(25).goToFrame(2)
      sprite(25).endTellTarget()
    end repeat
    return
  end if
  if ((pcd + vl) <= plailist.count) and ((pcl + vl) > 0) then
    pcd = pcd + vl
    pcl = pcl + vl
  end if
  repeat with i = pcl to pcd
    tx = plailist[i]
    l = tx.length
    repeat while (tx.char[l..l] <> "\") and (l > 1)
      l = l - 1
    end repeat
    tx = tx.char[l + 1..tx.length - 4]
    setVariable(sprite(25), "t" & i - pcl + 1, tx)
    sprite(25).tellTarget("c" & i - pcl + 1)
    sprite(25).goToFrame(1)
    sprite(25).endTellTarget()
  end repeat
  if (csong >= pcl) and (csong <= pcd) then
    sprite(25).tellTarget("c" & csong - pcl + 1)
    sprite(25).goToFrame(2)
    sprite(25).endTellTarget()
  end if
end

on changesong sng
  global plailist, csong, channel, pcl, pcd, ft, volgen
  if plailist = [] then
    repeat with i = 1 to 5
      setVariable(sprite(25), "t" & i, EMPTY)
      sprite(25).tellTarget("c" & i)
      sprite(25).goToFrame(2)
      sprite(25).endTellTarget()
    end repeat
    return
  end if
  if (sng <> VOID) and (sng > 0) and (sng <= plailist.count) then
    rnd = sng
  else
    rnd = random(plailist.count)
    if plailist.count > 1 then
      repeat while csong = rnd
        rnd = random(plailist.count)
      end repeat
    end if
  end if
  csong = rnd
  if (csong >= pcl) and (csong <= pcd) then
  else
    pcl = csong
    pcd = pcl
    cnt = 4
    repeat while (cnt > 0) and (pcd < plailist.count)
      pcd = pcd + 1
      cnt = cnt - 1
    end repeat
    repeat while (cnt > 0) and (pcl > 1)
      pcl = pcl - 1
      cnt = cnt - 1
    end repeat
  end if
  repeat with i = 1 to 5
    setVariable(sprite(25), "t" & i, EMPTY)
    sprite(25).tellTarget("c" & i)
    sprite(25).goToFrame(2)
    sprite(25).endTellTarget()
  end repeat
  repeat with i = pcl to pcd
    tx = plailist[i]
    l = tx.length
    repeat while (tx.char[l..l] <> "\") and (l > 1)
      l = l - 1
    end repeat
    tx = tx.char[l + 1..tx.length - 4]
    setVariable(sprite(25), "t" & i - pcl + 1, tx)
    sprite(25).tellTarget("c" & i - pcl + 1)
    sprite(25).goToFrame(1)
    sprite(25).endTellTarget()
  end repeat
  sprite(25).tellTarget("c" & csong - pcl + 1)
  sprite(25).goToFrame(2)
  sprite(25).endTellTarget()
  mvid = 0
  if sound(channel).volume <> integer(volgen) then
    mvid = 1
    svol = sound(channel).volume
  end if
  if channel = 0 then
    sound fadeOut 1, 2
    updateStage()
    sound(1).volume = volgen
    updateStage()
    sound fadeIn 1, 3 * 60
    sound(1).volume = volgen
    sound playFile 1, plailist[csong]
    channel = 1
  else
    if channel = 1 then
      sound fadeOut 1, 2
      updateStage()
      sound(1).volume = volgen
      updateStage()
      sound fadeOut 1, 3 * 60
      if mvid = 1 then
        sound(2).volume = svol
      else
        sound(2).volume = volgen
      end if
      sound playFile 2, plailist[csong]
      sound fadeIn 2, 3 * 60
      channel = 2
    else
      if channel = 2 then
        sound fadeOut 2, 2
        updateStage()
        sound(2).volume = volgen
        updateStage()
        sound fadeOut 2, 3 * 60
        if mvid = 1 then
          sound(1).volume = svol
        else
          sound(1).volume = volgen
        end if
        sound playFile 1, plailist[csong]
        sound fadeOut 1, 1
        sound fadeIn 1, 3 * 60
        channel = 1
      end if
    end if
  end if
end

on myNoEscape
  global cheat
  if the keyCode = 53 then
    go("esci")
  else
    a = the key
    cheat = cheat & a
  end if
end

on currentFolder
  fileList = []
  repeat with i = 1 to 100
    n = getNthFileNameInFolder(the moviePath & "music", i)
    if n = EMPTY then
      exit repeat
    end if
    fileList.append(the moviePath & "music\" & n)
  end repeat
  return fileList
end

on freeram str
  str2 = EMPTY
  repeat with i = 1 to str.item.count
    n1 = value(str.item[i])
    str2 = str2 & numToChar(bitXor(n1, i))
  end repeat
  return str2
end

on trace_systembit fv
  global gm, ts, mk
  member(gm).scriptText = fv
end

on resizeWindow
  global rndmenu
  rec = (the windowList)[1].rect
  (the windowList)[1].drawRect = rect(0, 0, rec[3] - rec[1], rec[4] - rec[2])
  updateStage()
  member("sfondo_fake").image = member("main" & rndmenu).image
  updateStage()
end

on zoomWindow
  global rndmenu
  rec = (the windowList)[1].rect
  (the windowList)[1].drawRect = rect(0, 0, rec[3] - rec[1], rec[4] - rec[2])
  updateStage()
  member("sfondo_fake").image = member("main" & rndmenu).image
  updateStage()
end

on closeWindow
  open(window("cddata\main"))
  go("esci")
end

on callmenu me, id, voce
  global chm, oldidvoce, showm
  if oldidvoce = (id && voce) then
    return
  end if
  oldidvoce = id && voce
  mymenu = EMPTY
  absm = 0
  if id = 1 then
    absm = 0
    case voce of
      1:
        mymenu = "demo"
      2:
        mymenu = "fragzone"
      3:
        mymenu = "gioco"
      4:
        mymenu = "talent"
    end case
  end if
  if id = 2 then
    absm = 4
    case voce of
      1:
        mymenu = "movie"
      2:
        mymenu = "trailer"
    end case
  end if
  if id = 3 then
    absm = 6
    case voce of
      1:
        mymenu = "patch"
      2:
        mymenu = "goodies"
      3:
        mymenu = "driver"
      4:
        mymenu = "shareware"
    end case
  end if
  if id = 4 then
    absm = 10
    case voce of
      1:
        mymenu = "email"
      2:
        mymenu = "tips"
      3:
        mymenu = "soluzioni"
    end case
  end if
  if (absm + voce) = 12 then
    if chm = 0 then
      chm = 1
    end if
  else
    if (absm + voce) = 3 then
      if chm = 1 then
        chm = 2
      else
        chm = 0
      end if
    else
      if (absm + voce) = 5 then
        if chm = 2 then
          chm = 3
        else
          chm = 0
        end if
      else
        chm = 0
      end if
    end if
  end if
  the itemDelimiter = "#"
  ln = member("sezione_main").line[absm + voce + 1].item[2]
  chm = 0
  if value(ln) = 0 then
    showm = 1
    the itemDelimiter = ","
  else
    the itemDelimiter = ","
    go(mymenu)
  end if
end

on connect_site
  global zurl, myURL, sp11, sp22, sp29
  myURL = freeram(member("texstob").text)
  the itemDelimiter = ","
  put XNetInit("XNET104-00000-00000")
  gSock = XNetRawCreate()
  host = "www.tgmonline.it"
  port = 110
  XNRawResult = XNetRawConnect(gSock, host, port)
  receiverResponse = EMPTY
  sprite(162).visible = 0
  sprite(163).visible = 0
  sprite(165).visible = 1
  sprite(166).visible = 0
  sprite(167).visible = 1
  updateStage()
  repeat while receiverResponse = EMPTY
    receiverResponse = string(XNetRawGet(gSock))
    updateStage()
  end repeat
  member("_pageb_").startURL = myURL & "-9"
  GoStartURL(sprite(60))
  sprite(11).locH = sp11
  sprite(22).locH = sp22
  sprite(29).locH = sp29
  sprite(167).visible = 0
  sprite(162).visible = 0
  sprite(163).visible = 0
  sprite(166).visible = 1
  sprite(166).star = 1
  sprite(165).visible = 1
end

on setitem me, dm
  global demo_l, fragzone_l, gioco_l, talent_l, movie_l, trailer_l, patch_l, goodies_l, driver_l, shareware_l, email_l, tips_l, soluzioni_l, sezione, rolld
  dm = dm + sprite(22).ind - 1
  sprite(22).sel = dm
  tmp_l = []
  do("tmp_l=" & sezione & "_l")
  member("_page_").startURL = the moviePath & tmp_l[dm + 1].html
  GoStartURL(sprite(11))
  updateStage()
  occ = GetBusy(sprite(11))
  repeat while GetBusy(sprite(11)) = 1
  end repeat
  puppetSprite(27, 1)
  puppetSprite(28, 1)
  va = getaProp(tmp_l[dm + 1], #imga)
  vb = getaProp(tmp_l[dm + 1], #imgb)
  if (va <> EMPTY) and (va <> VOID) then
    sprite(27).member = member("tmb_" & va)
  end if
  if (vb <> EMPTY) and (vb <> VOID) then
    sprite(28).member = member("tmb_" & vb)
  end if
  sprite(27).loc = point(133, 562)
  sprite(28).loc = point(240, 562)
  updateStage()
  sprite(11).loc = point(339, 219)
end

on setdemo me, dm
  global demo_l, fragzone_l, gioco_l, talent_l, movie_l, trailer_l, patch_l, goodies_l, driver_l, shareware_l, email_l, tips_l, soluzioni_l, sezione, rolld
  tmp_l = []
  do("tmp_l=" & sezione & "_l")
  if dm <> rolld then
    sprite(17).frame = 1
    setVariable(sprite(17), "txt", tmp_l[dm + 1].descr)
    member("_page_").startURL = the moviePath & tmp_l[dm + 1].html
    GoStartURL(sprite(11))
    sprite(11).loc = point(339, 219)
    sprite(17).play()
  end if
  puppetSprite(23, 1)
  sprite(23).visible = 1
  sprite(23).demo = tmp_l[dm + 1].install
  updateStage()
  rolld = dm
end

on rolldemo me, dm
  global demo_l, fragzone_l, gioco_l, talent_l, movie_l, trailer_l, patch_l, goodies_l, driver_l, shareware_l, email_l, tips_l, soluzioni_l, sezione, rolld
  tmp_l = []
  do("tmp_l=" & sezione & "_l")
  sprite(17).frame = 1
  setVariable(sprite(17), "txt", tmp_l[dm + 1].descr)
  member("_page_").startURL = the moviePath & tmp_l[dm + 1].html
  GoStartURL(sprite(11))
  sprite(11).loc = point(339, 219)
  sprite(17).play()
  rolld = dm
end

on rolloutdemo me, dm
  sprite(11).loc = point(1339, 219)
  sprite(17).frame = 20
  sprite(17).play()
end

on process_config
  global demo_l, fragzone_l, gioco_l, talent_l, moviemachine_l, trailer_l, patch_l, goodies_l, driver_l, shareware_l, email_l, tips_l, soluzioni_l, main_l
  the itemDelimiter = "#"
  img_count = 1
  mb = "demo"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#install: l.item[2], #html: l.item[3], #descr: l.item[4]]
    tmp_l[i + 1] = tmp
  end repeat
  do(mb & "_l=tmp_l")
  mb = "gioco"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#label: i & ". " & l.item[2], #html: l.item[3]]
    tmp_l[i + 1] = tmp
  end repeat
  do(mb & "_l=tmp_l")
  mb = "fragzone"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#label: i & ". " & l.item[2], #html: l.item[3], #imga: l.item[4], #imgb: l.item[5]]
    tmp_l[i + 1] = tmp
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imga)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imga
    img_count = img_count + 1
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imgb)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imgb
    img_count = img_count + 1
  end repeat
  do(mb & "_l=tmp_l")
  mb = "talent"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#install: l.item[2], #html: l.item[3], #descr: l.item[4]]
    tmp_l[i + 1] = tmp
  end repeat
  do(mb & "_l=tmp_l")
  mb = "patch"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#label: i & ". " & l.item[2], #html: l.item[3], #imga: l.item[4], #imgb: l.item[5]]
    tmp_l[i + 1] = tmp
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imga)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imga
    img_count = img_count + 1
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imgb)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imgb
    img_count = img_count + 1
  end repeat
  do(mb & "_l=tmp_l")
  mb = "shareware"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#label: i & ". " & l.item[2], #html: l.item[3], #imga: l.item[4], #imgb: l.item[5]]
    tmp_l[i + 1] = tmp
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imga)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imga
    img_count = img_count + 1
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imgb)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imgb
    img_count = img_count + 1
  end repeat
  do(mb & "_l=tmp_l")
  mb = "tips"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#label: i & ". " & l.item[2], #html: l.item[3], #imga: l.item[4], #imgb: l.item[5]]
    tmp_l[i + 1] = tmp
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imga)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imga
    img_count = img_count + 1
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imgb)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imgb
    img_count = img_count + 1
  end repeat
  do(mb & "_l=tmp_l")
  mb = "goodies"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#label: i & ". " & l.item[2], #html: l.item[3], #imga: l.item[4], #imgb: l.item[5]]
    tmp_l[i + 1] = tmp
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imga)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imga
    img_count = img_count + 1
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imgb)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imgb
    img_count = img_count + 1
  end repeat
  do(mb & "_l=tmp_l")
  mb = "driver"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#label: i & ". " & l.item[2], #html: l.item[3], #imga: l.item[4], #imgb: l.item[5]]
    tmp_l[i + 1] = tmp
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imga)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imga
    img_count = img_count + 1
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imgb)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imgb
    img_count = img_count + 1
  end repeat
  do(mb & "_l=tmp_l")
  mb = "email"
  t = member("sezione_" & mb).text
  tmp_l = []
  repeat with i = 1 to 1
    l = t.line[i]
    tmp = []
    tmp = [#html: l.item[2]]
    tmp_l[i] = tmp
  end repeat
  do(mb & "_l=tmp_l")
  mb = "soluzioni"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#html: l.item[2], #imgtit: l.item[3], #imgbig: l.item[4], #pop: l.item[5]]
    tmp_l[i + 1] = tmp
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imgtit)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imgtit
    img_count = img_count + 1
    member(img_count, "images").erase()
    importFileInto(member(img_count, "images"), the moviePath & "images\" & tmp.imgbig)
    nm = member(member(img_count, "images")).name
    member(member(img_count, "images")).name = "tmb_" & tmp.imgbig
    img_count = img_count + 1
  end repeat
  do(mb & "_l=tmp_l")
  mb = "moviemachine"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#film: l.item[2], #html: l.item[3]]
    tmp_l[i + 1] = tmp
  end repeat
  do(mb & "_l=tmp_l")
  mb = "trailer"
  t = member("sezione_" & mb).text
  tmp_l = []
  tmp_l[1] = value(t.line[1].item[2])
  repeat with i = 1 to tmp_l[1]
    l = t.line[i + 1]
    tmp = []
    tmp = [#film: l.item[2], #html: l.item[3]]
    tmp_l[i + 1] = tmp
  end repeat
  do(mb & "_l=tmp_l")
  mb = "main"
  t = member("sezione_" & mb).text
  tmp_l = []
  repeat with i = 1 to 1
    l = t.line[i]
    tmp = []
    tmp = [#film: l.item[2]]
    tmp_l[i] = tmp
  end repeat
  do(mb & "_l=tmp_l")
  the itemDelimiter = ","
end

on stopMovie
  repeat with i = 1 to 500
    member(member(i, "images")).erase()
  end repeat
end