PC Home 49/PC_Home_Issue_49.iso/e-on/eon01.dir/00011.ls

Text File | 1996-02-14 | 3.9 KB | 255 lines

on kroll
  if rollOver(5) then
    go("GA")
  end if
  if rollOver(6) then
    go("DI")
  end if
  if rollOver(7) then
    go("CH")
  end if
  if rollOver(8) then
    go("SU")
  end if
  if rollOver(9) then
    go("QA")
  end if
  if rollOver(10) then
    go("NE")
  end if
  if soundBusy(1) = 0 then
    sound playFile 1, "netsnd.aif"
  end if
  if soundBusy(2) = 0 then
    set the volume of sound 1 to 255
  end if
end

on gamesroll
  if rollOver(4) then
    go("groll1")
  end if
  if rollOver(5) then
    go("groll2")
  end if
  if rollOver(6) then
    go("groll3")
  end if
  if soundBusy(1) = 0 then
    sound playFile 1, "netsnd.aif"
  end if
  if soundBusy(2) = 0 then
    set the volume of sound 1 to 255
  end if
end

on ktimer1
  startTimer()
  repeat while the timer < 4
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on ktimer2
  startTimer()
  repeat while the timer < 4
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on ktimer3
  startTimer()
  repeat while the timer < 4
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on ktimer4
  startTimer()
  repeat while the timer < 4
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("home")
      exit
    end if
  end repeat
end

on ktimeL1
  startTimer()
  repeat while the timer < 4
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on ktimeL2
  startTimer()
  repeat while the timer < 5
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on ktimeL3
  startTimer()
  repeat while the timer < 5
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on ktimeL4
  startTimer()
  repeat while the timer < 5
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on ktimeL5
  startTimer()
  repeat while the timer < 5
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on ktimeL6
  startTimer()
  repeat while the timer < 5
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on ktimeL7
  startTimer()
  repeat while the timer < 5
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on ktimeL8
  startTimer()
  repeat while the timer < 5
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on ktime
  startTimer()
  repeat while the timer < 5
    if the mouseDown then
      puppetSound(2, cast "clik")
      updateStage()
      go("xx")
      exit
    end if
  end repeat
end

on garoll
  if rollOver(5) = 0 then
    go("roll")
  end if
  if soundBusy(1) = 0 then
    sound playFile 1, "netsnd.aif"
  end if
end

on diroll
  if rollOver(6) = 0 then
    go("roll")
  end if
  if soundBusy(1) = 0 then
    sound playFile 1, "netsnd.aif"
  end if
end

on chroll
  if rollOver(7) = 0 then
    go("roll")
  end if
  if soundBusy(1) = 0 then
    sound playFile 1, "netsnd.aif"
  end if
end

on suroll
  if rollOver(8) = 0 then
    go("roll")
  end if
  if soundBusy(1) = 0 then
    sound playFile 1, "netsnd.aif"
  end if
end

on qaroll
  if rollOver(9) = 0 then
    go("roll")
  end if
  if soundBusy(1) = 0 then
    sound playFile 1, "netsnd.aif"
  end if
end

on neroll
  if rollOver(10) = 0 then
    go("roll")
  end if
  if soundBusy(1) = 0 then
    sound playFile 1, "netsnd.aif"
  end if
end