Digital Design Material S…es 2: Stone Material Raw/石素材王.iso/pc/stage.dir/00027_system.ls

Text File | 1997-01-21 | 4.8 KB | 183 lines

on atopentime
  global topnum, selectnum
  clearGlobals()
  puppetSprite(47, 1)
  puppetSprite(10, 1)
  set the visible of sprite 10 to 0
  set topnum to 10
  set selectnum to 10
  put "none" into field "n00"
  set fields to ["n01", "n02", "n03", "n04", "n05", "n06", "n07", "n08", "n09", "n10", "n11", "n12", "n13", "n14", "n15"]
  repeat with i = 1 to 15
    put EMPTY into field getAt(fields, i)
    puppetSprite(i + 10, 1)
    set the castNum of sprite (i + 10) to the number of member "none"
  end repeat
  set cursorcast to the number of member "cursor"
  cursor([cursorcast, cursorcast + 1])
  doit(1)
end

on doit num
  global topnum, selectnum
  set cursorcast to the number of member "cursor"
  cursor([cursorcast, cursorcast + 1])
  go(marker("load"))
  if clickOn() < 10 then
    hilitesprite(clickOn(), 1)
  end if
  updateStage()
  if num < 1 then
    set num to 1
  else
    if the number of lines in field "data" < num then
      set num to the number of lines in field "data"
    end if
  end if
  set zero to 70
  set par to 300 / float(the number of lines in field "data" - 1)
  set the locV of sprite 47 to integer((num - 1) * par) + zero
  put num & "/" & the number of lines in field "data" into field "n00"
  updateStage()
  setdata(num - (selectnum - topnum))
  setselect(num)
  hilitesprite(clickOn(), 0)
  go(marker("idol") - 1)
  set the visible of sprite 10 to 1
  cursor(-1)
end

on doiticon num
  global topnum, selectnum
  hilitesprite(clickOn(), 1)
  updateStage()
  set zero to 70
  set par to 300 / float(the number of lines in field "data" - 1)
  set the locV of sprite 47 to integer((num - 1) * par) + zero
  setselect(num)
  hilitesprite(clickOn(), 0)
  cursor(-1)
end

on setdata localtopnum
  global topnum
  if voidp(topnum) then
    set topnum to 0
  end if
  set oldtopnum to topnum
  if localtopnum >= (the number of lines in field "data" - 15) then
    set topnum to the number of lines in field "data" - 15 + 1
  else
    if localtopnum < 1 then
      set topnum to 1
    else
      set topnum to localtopnum
    end if
  end if
  set the visible of sprite 48 to 1
  repeat with i = 1 to 15
    set the castNum of sprite (i + 10) to 100 + (i + topnum - 1)
    updateStage()
    set namefield to getAt(["n01", "n02", "n03", "n04", "n05", "n06", "n07", "n08", "n09", "n10", "n11", "n12", "n13", "n14", "n15"], i)
    put line i + topnum - 1 of field "files" into field namefield
    set the width of sprite 48 to integer(420 / 15 * i)
  end repeat
  set the visible of sprite 48 to 0
end

on setselect num
  global topnum, selectnum
  if (topnum > num) or (num >= (topnum + 15)) then
    exit
  end if
  set the locH of sprite 10 to the locH of sprite (num - topnum + 1 + 10)
  set the locV of sprite 10 to the locV of sprite (num - topnum + 1 + 10)
  put num & "/" & the number of lines in field "data" into field "n00"
  set selectnum to num
end

on wait tick
  startTimer()
  repeat while the timer < tick
    nothing()
  end repeat
end

on setnone
  put "none" into field "n00"
  repeat with i = 1 to 15
    put "ǻǵ" into field getAt(["n01", "n02", "n03", "n04", "n05", "n06", "n07", "n08", "n09", "n10", "n11", "n12", "n13", "n14", "n15"], i)
    set the castNum of sprite (i + 10) to the number of member "none"
  end repeat
end

on loaddata
  repeat with i = 1 to the number of lines in field "data"
    importFileInto(cast (i + 100), pathName() & "mini:" & line i of field "files")
  end repeat
end

on slidebar
  global selectnum
  set zero to 70
  set par to 300 / float(the number of lines in field "data" - 1)
  repeat while the mouseDown
    if mouseV() < zero then
      set vv to zero
    else
      if mouseV() > (zero + 300) then
        set vv to zero + 300
      else
        set vv to mouseV()
      end if
    end if
    set the locV of sprite 47 to vv
    set num to integer((vv - zero) / par) + 1
    put num & "/" & the number of lines in field "data" into field "n00"
    updateStage()
  end repeat
  if selectnum <> num then
    doit(num)
  end if
end

on hilitesprite spritenum, trueorfalse
  if trueorfalse = 1 then
    set the foreColor of sprite spritenum to 0
    set the backColor of sprite spritenum to 255
  else
    set the foreColor of sprite spritenum to 255
    set the backColor of sprite spritenum to 0
  end if
end

on fullsize
  global selectnum
  hilitesprite(clickOn(), 1)
  updateStage()
  set cursorcast to the number of member "cursor"
  cursor([cursorcast, cursorcast + 1])
  hilitesprite(clickOn(), 0)
  pen()
  cursor(-1)
end

on copytohd
  global selectnum
  set sorce to line selectnum of field "files"
  if the machineType = 256 then
    set sorcefile to the pathName & "pict\" & sorce
    filecopyxtras(sorcefile)
  else
    set sorcefile to the pathName & "pict:" & sorce
    filecopyxtras(sorcefile)
  end if
end

on ending
  repeat with i = 1 to 48
    puppetSprite(i, 0)
  end repeat
  go(marker("ending"))
end