1,000 Games/Disc1.iso/ADVEN/STRIPME/STRIPME.EXE/SPOTME.DXR/00061.ls

Text File | 1996-01-11 | 3.8 KB | 146 lines

on startMovie
  global gPlayer, gTimeOut
  set gTimeOut to 100
  set gPlayer to 1
end

on init
  global gFace, gEye, gMouth, gFaceUp, gEyeUp, gMouthUp, gFaceDown, gEyeDown, gMouthDown, gCountDown
  set gFace to 33 + random(6)
  set gEye to 39 + random(9)
  set gMouth to 48 + random(8)
  set gFaceUp to 33 + random(6)
  set gEyeUp to 39 + random(9)
  set gMouthUp to 48 + random(8)
  set gFaceDown to 33 + random(6)
  set gEyeDown to 39 + random(9)
  set gMouthDown to 48 + random(8)
  setFace()
  set gCountDown to 10
end

on setFace
  global gFace, gEye, gMouth, gFaceUp, gEyeUp, gMouthUp, gFaceDown, gEyeDown, gMouthDown
  set the castNum of sprite 1 to gFace
  set the castNum of sprite 2 to gEye
  set the castNum of sprite 3 to gMouth
  set the castNum of sprite 4 to gFace
  set the castNum of sprite 5 to gEye
  set the castNum of sprite 6 to gMouth
  set the castNum of sprite 7 to gFace
  set the castNum of sprite 8 to gEye
  set the castNum of sprite 9 to gMouth
end

on startGame
  global gFaceUp, gEyeUp, gMouthUp, gFaceDown, gEyeDown, gMouthDown
  set the castNum of sprite 4 to gFaceUp
  set the castNum of sprite 5 to gEyeUp
  set the castNum of sprite 6 to gMouthUp
  set the castNum of sprite 7 to gFaceDown
  set the castNum of sprite 8 to gEyeDown
  set the castNum of sprite 9 to gMouthDown
  setPos(11, 240, 25)
  startTimer()
end

on setPos sp, x, y
  set the locH of sprite sp to x
  set the locV of sprite sp to y
end

on animateBomb
  global gTimeOut, gCountDown
  if the timer > gTimeOut then
    set gCountDown to gCountDown + 1
    set the castNum of sprite 11 to cast gCountDown
    if gCountDown = 32 then
      puppetSound("Platzen")
      go(the frame + 1)
    end if
    startTimer()
  end if
end

on checkIt
  global gFace, gEye, gMouth, gFaceUp, gEyeUp, gMouthUp, gFaceDown, gEyeDown, gMouthDown
  if ((gFace = gFaceUp) and (gEye = gEyeUp) and (gMouth = gMouthUp)) or ((gFace = gFaceDown) and (gEye = gEyeDown) and (gMouth = gMouthDown)) then
    return 1
  else
    return 0
  end if
end

on changePart
  global gFace, gEye, gMouth, gFaceUp, gEyeUp, gMouthUp, gFaceDown, gEyeDown, gMouthDown
  if (the clickOn = 4) or (the clickOn = 7) then
    if random(2) = 1 then
      set gFaceUp to 33 + random(6)
      set the castNum of sprite 4 to gFaceUp
      sound stop 1
      if gFaceUp = gFace then
        puppetSound("Gut")
      else
        puppetSound("Schlecht")
      end if
      updateStage()
    else
      set gFaceDown to 33 + random(6)
      set the castNum of sprite 7 to gFaceDown
      sound stop 1
      if gFaceDown = gFace then
        puppetSound("Gut")
      else
        puppetSound("Schlecht")
      end if
      updateStage()
    end if
  end if
  if (the clickOn = 5) or (the clickOn = 8) then
    if random(2) = 1 then
      set gEyeUp to 39 + random(9)
      set the castNum of sprite 5 to gEyeUp
      sound stop 1
      if gEyeUp = gEye then
        puppetSound("Gut")
      else
        puppetSound("Schlecht")
      end if
      updateStage()
    else
      set gEyeDown to 39 + random(9)
      set the castNum of sprite 8 to gEyeDown
      sound stop 1
      if gEyeDown = gEye then
        puppetSound("Gut")
      else
        puppetSound("Schlecht")
      end if
      updateStage()
    end if
  end if
  if (the clickOn = 6) or (the clickOn = 9) then
    if random(2) = 1 then
      set gMouthUp to 48 + random(8)
      set the castNum of sprite 6 to gMouthUp
      sound stop 1
      if gMouthUp = gMouth then
        puppetSound("Gut")
      else
        puppetSound("Schlecht")
      end if
      updateStage()
    else
      set gMouthDown to 48 + random(8)
      set the castNum of sprite 9 to gMouthDown
      sound stop 1
      if gMouthDown = gMouth then
        puppetSound("Gut")
      else
        puppetSound("Schlecht")
      end if
      updateStage()
    end if
  end if
end