Mac Ga Ichiban! 1997 May/macgaichiban199705.bin/MOVIES/AREA6.Dxr/00049.ls

Text File | 1997-03-12 | 6.7 KB | 248 lines

global gflag

on judgeflash
  set jnum to rollOver()
  case jnum of
    5, 6, 7, 8, 10, 11, 12, 14:
      flashbutton(jnum)
    13:
      set gflag to 1
      flashbutton(jnum)
    otherwise:
      judgepuppet(5, 14)
      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
  if gflag = 1 then
    set the loc of sprite 20 to point(80, 56)
    set gflag to 0
  else
    set the loc of sprite 20 to point(80, 60)
  end if
  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