Mac Ga Ichiban! 1997 May/macgaichiban199705.bin/MOVIES/AREA2.Dxr/00031.ls

Text File | 1997-03-12 | 6.5 KB | 238 lines

on judgeflash
  set jnum to rollOver()
  case jnum of
    5, 6, 7, 8, 9:
      flashbutton(jnum)
    otherwise:
      judgepuppet(5, 9)
      judgepuppetext(20)
  end case
end

on flashbutton spnum
  global gflashbuttonnum
  if (gflashbuttonnum <> spnum) and (gflashbuttonnum <> 0) then
    set ccname to item 1 of the name of cast the castNum of sprite gflashbuttonnum
    set the castNum of sprite gflashbuttonnum to the number of member (ccname & ",off")
    updateStage()
    puppetSprite(gflashbuttonnum, 0)
    updateStage()
    puppetSprite(20, 0)
  end if
  puppetSprite(spnum, 1)
  set cname to item 1 of the name of cast the castNum of sprite spnum
  set the castNum of sprite spnum to the number of member (cname & ",on")
  puppetSprite(20, 1)
  set the type of sprite 20 to 1
  set the ink of sprite 20 to 36
  set the castNum of sprite 20 to the number of member cname
  set the loc of sprite 20 to point(80, 60)
  updateStage()
  set gflashbuttonnum to spnum
end

on judgepuppet startspnum, endspnum
  repeat with i = startspnum to endspnum
    if the puppet of sprite i = 1 then
      set ccname to item 1 of the name of cast the castNum of sprite i
      set the castNum of sprite i to the number of member (ccname & ",off")
      updateStage()
      puppetSprite(i, 0)
      updateStage()
    end if
  end repeat
end

on judgepuppetext startspnum
  if the puppet of sprite startspnum = 1 then
    puppetSprite(startspnum, 0)
    updateStage()
  end if
end

on judgeflash2
  set jnum to rollOver()
  case jnum of
    14, 15:
      flashbutton2(jnum)
    otherwise:
      judgepuppet(14, 15)
  end case
end

on flashbutton2 spnum
  global gflashbuttonnum
  if (gflashbuttonnum <> spnum) and (gflashbuttonnum <> 0) then
    set ccname to item 1 of the name of cast the castNum of sprite gflashbuttonnum
    set the castNum of sprite gflashbuttonnum to the number of member (ccname & ",off")
    updateStage()
    puppetSprite(gflashbuttonnum, 0)
    updateStage()
  end if
  puppetSprite(spnum, 1)
  set cname to item 1 of the name of cast the castNum of sprite spnum
  set the castNum of sprite spnum to the number of member (cname & ",on")
  updateStage()
  set gflashbuttonnum to spnum
end

on button soundname
  puppetSound(soundname)
  updateStage()
  set cname to item 1 of the name of cast the castNum of sprite clickOn()
  set the castNum of sprite clickOn() to the number of member (cname & ",on")
  updateStage()
  set t to the timer
  repeat while the timer < (t + 5)
  end repeat
  repeat while stillDown()
    if rollOver(clickOn()) then
      set the castNum of sprite clickOn() to the number of member (cname & ",on")
      updateStage()
      next repeat
    end if
    set the castNum of sprite clickOn() to the number of member (cname & ",off")
    updateStage()
  end repeat
  set the castNum of sprite clickOn() to the number of member (cname & ",off")
  updateStage()
end

on getname itemdelimiternum
  global ggetcname
  set ggetcname to item itemdelimiternum of the name of cast the castNum of sprite clickOn()
end

on changecursor s, e
  repeat with i = s to e
    set the cursor of sprite i to [the number of member "cursor", the number of member "cursormask"]
  end repeat
end

on unchangecursor s, e
  repeat with i = s to e
    set the cursor of sprite i to -1
  end repeat
end

on visble s, e
  repeat with i = s to e
    set the visible of sprite i to 1
  end repeat
end

on unvisible s, e
  repeat with i = s to e
    set the visible of sprite i to 0
  end repeat
end

on puppet s, e
  repeat with i = s to e
    puppetSprite(i, 1)
  end repeat
end

on unpuppet s, e
  repeat with i = s to e
    puppetSprite(i, 0)
  end repeat
end

on returnframe name
  go(name)
end

on returnmovie mname
  go(1, mname)
end

on wait sec
  global gwaittime, gflagwait
  if gflagwait = 0 then
    set gwaittime to the timer
    set gflagwait to 1
  end if
  if the timer < (gwaittime + (60 * sec)) then
    go(the frame)
  else
    set gflagwait to 0
  end if
end

on changecast spnum, castname
  set the castNum of sprite spnum to the number of member castname
end

on soudvolumecontrol spnum
  global gsoundnum, gsoundlist
  set gsoundnum to gsoundnum + 1
  if gsoundnum = 9 then
    set gsoundnum to 0
  end if
  set the castNum of sprite spnum to the number of member ("sound," & gsoundnum)
  set the soundLevel to getAt(gsoundlist, gsoundnum + 1)
  updateStage()
end

on pbutton
  set cname to item 1 of the name of member the memberNum of sprite clickOn()
  set the memberNum of sprite clickOn() to the number of member (cname & ",on")
end

on helpmenu spnum, jhelp
  global ghelplist
  if jhelp = 0 then
    set helpspnum to rollOver()
    if getPos(ghelplist, helpspnum) <> 0 then
      set cname to item 1 of the name of cast the castNum of sprite helpspnum
      set the visible of sprite spnum to 1
      set the castNum of sprite spnum to the number of member (cname & ",help")
      set the loc of sprite spnum to point(320, 240)
      if helpspnum = 15 then
        set the castNum of sprite 15 to the number of member "quit,HELP,off"
      end if
      updateStage()
    else
      set the visible of sprite spnum to 0
      set the castNum of sprite 15 to the number of member "quit,off"
      updateStage()
    end if
  end if
end

on quitbutton
  puppetSound("click")
  updateStage()
  if item 3 of the name of cast the castNum of sprite clickOn() = EMPTY then
    set cname to item 1 of the name of cast the castNum of sprite clickOn()
    set the castNum of sprite clickOn() to the number of member (cname & ",on")
    updateStage()
    repeat while stillDown()
      if rollOver(clickOn()) then
        set the castNum of sprite clickOn() to the number of member (cname & ",on")
      else
        set the castNum of sprite clickOn() to the number of member (cname & ",off")
      end if
      updateStage()
    end repeat
    set the castNum of sprite clickOn() to the number of member (cname & ",off")
    updateStage()
  else
    set cname to item 1 of the name of cast the castNum of sprite clickOn()
    set ccname to item 2 of the name of cast the castNum of sprite clickOn()
    set the castNum of sprite clickOn() to the number of member (cname & "," & ccname & ",on")
    updateStage()
    repeat while stillDown()
      if rollOver(clickOn()) then
        set the castNum of sprite clickOn() to the number of member (cname & "," & ccname & ",on")
      else
        set the castNum of sprite clickOn() to the number of member (cname & "," & ccname & ",off")
      end if
      updateStage()
    end repeat
    set the castNum of sprite clickOn() to the number of member (cname & "," & ccname & ",off")
    updateStage()
  end if
end