Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Kyoto/culture/hinadan/hina.dcr/00084.ls

Text File | 2017-09-21 | 6.1 KB | 220 lines

global gloch, glocv, gkanseilist

on init_rtn2
  cursor([201, 202])
  set gkanseilist to [0, 0, 0, 0, 0]
  repeat with n = 16 to 19
    set the visible of sprite n to 0
  end repeat
  repeat with n = 22 to 24
    puppetSprite(n, 1)
    set the moveableSprite of sprite n to 1
    set the visible of sprite n to 1
  end repeat
  repeat with n = 7 to 11
    set the visible of sprite n to 0
  end repeat
  set worklist to [1, 2, 3]
  repeat with n = 1 to 3
    set position to random(4 - n)
    if getAt(worklist, position) = 1 then
      set the locH of sprite (n + 21) to 335
      set the locV of sprite (n + 21) to 230
    end if
    if getAt(worklist, position) = 2 then
      set the locH of sprite (n + 21) to 385
      set the locV of sprite (n + 21) to 230
    end if
    if getAt(worklist, position) = 3 then
      set the locH of sprite (n + 21) to 435
      set the locV of sprite (n + 21) to 230
    end if
    deleteAt(worklist, position)
  end repeat
end

on main_rtn2
  when mouseDown then LOCATION_SET_RTN2
  name_rtn2()
  shadow_rtn2()
  when mouseUp then S2_SET_RTN
  kansei_chk2()
end

on location_set_rtn2
  if (clickOn() >= 22) and (clickOn() <= 24) then
    nothing()
  else
    set gloch to 0
    set glocv to 0
    return
  end if
  cursor([203, 204])
  if (getAt(gkanseilist, 1) = 0) and (clickOn() = 22) then
    puppetSound("SE01.AIF")
  end if
  if (getAt(gkanseilist, 2) = 0) and (clickOn() = 23) then
    puppetSound("SE01.AIF")
  end if
  if (getAt(gkanseilist, 3) = 0) and (clickOn() = 24) then
    puppetSound("SE01.AIF")
  end if
  set gloch to the locH of sprite clickOn()
  set glocv to the locV of sprite clickOn()
end

on shadow_rtn2
  repeat with n = 22 to 24
    if clickOn() = n then
      if sprite n intersects 7 then
        set the visible of sprite 7 to 1
      else
        set the visible of sprite 7 to 0
      end if
      if sprite n intersects 8 then
        set the visible of sprite 8 to 1
      else
        set the visible of sprite 8 to 0
      end if
      if sprite n intersects 9 then
        set the visible of sprite 9 to 1
      else
        set the visible of sprite 9 to 0
      end if
      exit repeat
    end if
  end repeat
  updateStage()
end

on s2_set_rtn
  if gloch = 0 then
    return
  end if
  cursor([201, 202])
  set kanseiflg to 0
  if (getAt(gkanseilist, 1) = 0) and (clickOn() = 22) then
    if (the locH of sprite 22 >= 249) and (the locH of sprite 22 <= 259) then
      if (the locV of sprite 22 >= 102) and (the locV of sprite 22 <= 112) then
        puppetSound("SE02.AIF")
        set the locH of sprite 22 to 254
        set the locV of sprite 22 to 107
        set the moveableSprite of sprite 22 to 0
        set the visible of sprite 17 to 1
        set the visible of sprite 22 to 0
        setAt(gkanseilist, 1, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if (getAt(gkanseilist, 2) = 0) and (clickOn() = 23) then
    if (the locH of sprite 23 >= 152) and (the locH of sprite 23 <= 162) then
      if (the locV of sprite 23 >= 110) and (the locV of sprite 23 <= 120) then
        puppetSound("SE02.AIF")
        set the locH of sprite 23 to 157
        set the locV of sprite 23 to 115
        set the moveableSprite of sprite 23 to 0
        set the visible of sprite 18 to 1
        set the visible of sprite 23 to 0
        setAt(gkanseilist, 2, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if (getAt(gkanseilist, 3) = 0) and (clickOn() = 24) then
    if (the locH of sprite 24 >= 54) and (the locH of sprite 24 <= 64) then
      if (the locV of sprite 24 >= 102) and (the locV of sprite 24 <= 112) then
        puppetSound("SE02.AIF")
        set the locH of sprite 24 to 59
        set the locV of sprite 24 to 107
        set the moveableSprite of sprite 24 to 0
        set the visible of sprite 19 to 1
        set the visible of sprite 24 to 0
        setAt(gkanseilist, 3, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if kanseiflg = 0 then
    if (getAt(gkanseilist, 1) = 0) and (clickOn() = 22) then
      puppetSound("SE03.AIF")
      set the locH of sprite clickOn() to gloch
      set the locV of sprite clickOn() to glocv
    end if
    if (getAt(gkanseilist, 2) = 0) and (clickOn() = 23) then
      puppetSound("SE03.AIF")
      set the locH of sprite clickOn() to gloch
      set the locV of sprite clickOn() to glocv
    end if
    if (getAt(gkanseilist, 3) = 0) and (clickOn() = 24) then
      puppetSound("SE03.AIF")
      set the locH of sprite clickOn() to gloch
      set the locV of sprite clickOn() to glocv
    end if
  end if
end

on kansei_chk2
  set cnt to 0
  repeat with n = 1 to 3
    if getAt(gkanseilist, n) = 1 then
      set cnt to cnt + 1
    end if
  end repeat
  if cnt = 3 then
    set the visible of sprite 7 to 0
    set the visible of sprite 8 to 0
    set the visible of sprite 9 to 0
    set the visible of sprite 16 to 1
    puppetSprite(22, 0)
    puppetSprite(23, 0)
    puppetSprite(24, 0)
    go(the frame + 1)
  end if
end

on bunki_rtn2
  if the machineType = 256 then
    puppetTransition(26, 4, 6)
  else
    puppetTransition(51, 4, 6)
  end if
  go("S3")
end

on name_rtn2
  if clickOn() = 14 then
    set the castNum of sprite 3 to the number of cast 61
  else
    if clickOn() = 15 then
      set the castNum of sprite 3 to the number of cast 62
    else
      if clickOn() = 22 then
        set the castNum of sprite 3 to the number of cast 64
      else
        if clickOn() = 23 then
          set the castNum of sprite 3 to the number of cast 65
        else
          if clickOn() = 24 then
            set the castNum of sprite 3 to the number of cast 66
          else
            if clickOn() = 17 then
              set the castNum of sprite 3 to the number of cast 64
            else
              if clickOn() = 18 then
                set the castNum of sprite 3 to the number of cast 65
              else
                if clickOn() = 19 then
                  set the castNum of sprite 3 to the number of cast 66
                else
                  set the castNum of sprite 3 to the number of cast 81
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end