The Net: Ultimate Internet Guide/WWLCD1.ISO/mac/SiteBldr/NATURE/GET/IMAGES/GAME.DCR/00001.ls

Text File | 1996-07-01 | 3.7 KB | 152 lines

global gCards, gState, gOld, gScore, gLily, gBigScreen, gDuck, gDuckSprite, gType, gFrog, gFlag, gEnd, gHits

on startMovie
  set gCards to 25
  set gState to 1
  set gScore to 0
  set gLily to 17
  set gDuckSprite to 6
  set gType to 24
  set gFrog to 7
  set gFlag to 0
  set gEnd to 0
  set gHits to 0
  puppetSprite(43, 1)
  set the visible of sprite 43 to 0
  set gDuck to 468
  puppetSprite(gDuckSprite, 1)
  set the locH of sprite gDuckSprite to 468
  set gBigScreen to 4
  MakePuppets()
  MixCards()
  OffBigScreen()
end

on MoveDuck
  global gDuck, gDuckSprite, gTemper, gScore
  if gDuck < 468 then
    if gDuck > -40 then
      set gDuck to gDuck - 4 - gTemper
      set the locH of sprite gDuckSprite to gDuck
      updateStage()
    else
      set the locH of sprite gDuckSprite to 468
      if gScore = 8 then
        go("end")
      end if
      updateStage()
    end if
  else
    nothing()
  end if
end

on DoTim
  set lAction to 24
  puppetSprite(lAction, 1)
  set the locV of sprite lAction to 50
  set the locH of sprite lAction to 200
  set the castNum of sprite lAction to 40
end

on instruction
  global gBigScreen
  set the castNum of sprite (gBigScreen + 1) to 53
  set the visible of sprite (gBigScreen + 1) to 1
  updateStage()
end

on MakePuppets
  global gCards, gBigScreen, gFrog, gType
  puppetSprite(gBigScreen, 1)
  puppetSprite(gBigScreen + 1, 1)
  repeat with LTemp = gCards to gCards + 15
    puppetSprite(LTemp, 1)
    set the visible of sprite LTemp to 0
  end repeat
  repeat with LTemp = 8 to 23
    set the visible of sprite LTemp to 1
  end repeat
end

on MixCards
  global gCards
  repeat with LTemp = gCards + 15 down to gCards
    set LRandom to random(15) + gCards
    set LHolder to the castNum of sprite LTemp
    set the castNum of sprite LTemp to the castNum of sprite LRandom
    set the castNum of sprite LRandom to LHolder
    updateStage()
  end repeat
end

on DoTimer
  startTimer()
  repeat while the timer <> 60
  end repeat
end

on EndGame
  global gFrog, gType, gEnd
  set gEnd to 1
  updateStage()
end

on Flip
  global gState, gScore, gOld, gCards, gLily, gDuck, gTemper, gBigScreen, gFlag, gFrog, gType
  if gFlag = 0 then
    set gFlag to 1
  end if
  set the visible of sprite (the clickOn + gLily) to 1
  updateStage()
  if gState = 1 then
    set gState to 2
    set gOld to the clickOn
    OffBigScreen()
  else
    if gOld = the clickOn then
      nothing()
    else
      set gState to 1
      if the castNum of sprite (gOld + gLily) = the castNum of sprite (the clickOn + gLily) then
        DoTimer()
        set gScore to gScore + 1
        set the visible of sprite (gOld + gLily) to 0
        set the visible of sprite (the clickOn + gLily) to 0
        set the visible of sprite gOld to 0
        set the visible of sprite the clickOn to 0
        DoBigScreen()
        set gDuck to 466
        set gTemper to 0
        puppetSound("quack")
        updateStage()
        if gScore = 8 then
          set gFlag to 2
          EndGame()
        end if
      else
        DoTimer()
        set the visible of sprite (gOld + gLily) to 0
        set the visible of sprite (the clickOn + gLily) to 0
      end if
    end if
  end if
  put "made it"
  put the castNum of sprite gBigScreen + 1
end

on DoBigScreen
  global gBigScreen, gLily, gOld
  set the visible of sprite gBigScreen to 1
  set the visible of sprite (gBigScreen + 1) to 1
  set the castNum of sprite (gBigScreen + 1) to the castNum of sprite (the clickOn + gLily) + 15
  set the castNum of sprite gBigScreen to the castNum of sprite (the clickOn + gLily)
  updateStage()
end

on OffBigScreen
  global gBigScreen
  set the visible of sprite gBigScreen to 0
  set the visible of sprite (gBigScreen + 1) to 0
end