Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Panasonic-/funcity/tokyo/e/cool.dcr/00048_±ýÞÿ—.ls

Text File | 2017-09-21 | 4.2 KB | 157 lines

on moveice
  global gcre, gice, gicet, gicett, ghit
  if gice = 0 then
    if gcre > 0 then
      if rollOver(3) then
        if the mouseDown then
          set gice to 1
          set gicet to the ticks
          set gicett to 3 * 60
          set ghit to 0
          set gcre to gcre - 1
          set the puppet of sprite 48 to 1
          set the locV of sprite 48 to the mouseV - 7
          set the locH of sprite 48 to the mouseH - 10
          cursor(200)
        else
          cursor([31, 32])
        end if
      else
        cursor([35, 36])
      end if
      dspcream(gcre)
    end if
  else
    set the locV of sprite 48 to the mouseV - 7
    set the locH of sprite 48 to the mouseH - 10
    if the mouseDown then
      if the ticks > (gicet + (4 * 60)) then
        set gice to 0
        set the puppet of sprite 48 to 0
        puppetSound("NEAT1")
        cursor([31, 32])
      else
        if the ticks > (gicet + gicett) then
          set gicett to gicett + 10
          if the puppet of sprite 48 = 1 then
            set the puppet of sprite 48 to 0
            cursor([33, 34])
          else
            set the puppet of sprite 48 to 1
            cursor(200)
          end if
        end if
      end if
    end if
  end if
end

on checkice
  global gten, gcre, gnin, gcha, gice, ghit, gicep, gicec
  if gice = 1 then
    if the mouseDown then
      if rollOver(9) then
        if ghit = 0 then
          set i to the mouseV
          if (i > (the top of sprite 9 + 30)) and (i < (the top of sprite 9 + 60)) then
            if random(5) > 2 then
              set ghit to 1
              set the castNum of sprite 9 to the number of cast "SONIC-5"
            else
              set ghit to -1
            end if
          end if
        else
          if ghit = 1 then
            set the castNum of sprite 9 to the number of cast "SONIC-5"
          end if
        end if
      else
        set ghit to 0
        set the castNum of sprite 9 to gcha
      end if
    else
      if ghit = 1 then
        puppetSound("EAT1")
        set the castNum of sprite 9 to the number of cast "SONIC-4"
        dspten(1)
        set the puppet of sprite 48 to 0
        cursor([31, 32])
        if gicep = 0 then
          set gicep to the ticks + (10 * 60)
          set gicec to 1
        else
          if gicep > the ticks then
            set gicep to the ticks + (10 * 60)
            set gicec to gicec + 1
          end if
        end if
        if gnin >= 9 then
          go(#next)
        end if
      else
        puppetSound("NEAT1")
        set the puppet of sprite 48 to 0
        cursor([31, 32])
      end if
      set gice to 0
    end if
  else
    if gcre = 0 then
      go(#next)
    end if
  end if
  if gicep < the ticks then
    set gicec to 0
    set gicep to 0
  end if
end

on dspcream cr
  if cr > 28 then
    set the visible of sprite 3 to 0
    set the visible of sprite 4 to 0
    set the visible of sprite 5 to 0
    set the visible of sprite 6 to 0
    set the visible of sprite 7 to 0
  else
    if cr > 18 then
      set the visible of sprite 3 to 0
      set the visible of sprite 4 to 1
      set the visible of sprite 5 to 0
      set the visible of sprite 6 to 0
      set the visible of sprite 7 to 0
    else
      if cr > 10 then
        set the visible of sprite 3 to 0
        set the visible of sprite 4 to 0
        set the visible of sprite 5 to 1
        set the visible of sprite 6 to 0
        set the visible of sprite 7 to 0
      else
        if cr > 3 then
          set the visible of sprite 3 to 1
          set the visible of sprite 4 to 0
          set the visible of sprite 5 to 0
          set the visible of sprite 6 to 1
          set the visible of sprite 7 to 0
        else
          if cr > 0 then
            set the visible of sprite 3 to 1
            set the visible of sprite 4 to 0
            set the visible of sprite 5 to 0
            set the visible of sprite 6 to 0
            set the visible of sprite 7 to 1
          else
            set the visible of sprite 3 to 1
            set the visible of sprite 4 to 0
            set the visible of sprite 5 to 0
            set the visible of sprite 6 to 0
            set the visible of sprite 7 to 0
          end if
        end if
      end if
    end if
  end if
end