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

Text File | 2017-09-21 | 9.7 KB | 313 lines

global gloch, glocv, gkanseilist

on init_rtn3
  cursor([201, 202])
  set gkanseilist to [0, 0, 0, 0, 0]
  repeat with n = 20 to 24
    set the visible of sprite n to 0
  end repeat
  repeat with n = 25 to 29
    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, 4, 5]
  repeat with n = 1 to 5
    set position to random(6 - n)
    if getAt(worklist, position) = 1 then
      set the locH of sprite (n + 24) to 340
      set the locV of sprite (n + 24) to 234
    end if
    if getAt(worklist, position) = 2 then
      set the locH of sprite (n + 24) to 360
      set the locV of sprite (n + 24) to 185
    end if
    if getAt(worklist, position) = 3 then
      set the locH of sprite (n + 24) to 420
      set the locV of sprite (n + 24) to 185
    end if
    if getAt(worklist, position) = 4 then
      set the locH of sprite (n + 24) to 390
      set the locV of sprite (n + 24) to 234
    end if
    if getAt(worklist, position) = 5 then
      set the locH of sprite (n + 24) to 440
      set the locV of sprite (n + 24) to 234
    end if
    deleteAt(worklist, position)
  end repeat
end

on main_rtn3
  when mouseDown then LOCATION_SET_RTN3
  name_rtn3()
  shadow_rtn3()
  when mouseUp then S3_SET_RTN
  kansei_chk3()
end

on location_set_rtn3
  if (clickOn() >= 25) and (clickOn() <= 29) then
    nothing()
  else
    set gloch to 0
    set glocv to 0
    return
  end if
  cursor([203, 204])
  if (getAt(gkanseilist, 1) = 0) and (clickOn() = 25) then
    puppetSound("SE01.AIF")
  end if
  if (getAt(gkanseilist, 2) = 0) and (clickOn() = 26) then
    puppetSound("SE01.AIF")
  end if
  if (getAt(gkanseilist, 3) = 0) and (clickOn() = 27) then
    puppetSound("SE01.AIF")
  end if
  if (getAt(gkanseilist, 4) = 0) and (clickOn() = 28) then
    puppetSound("SE01.AIF")
  end if
  if (getAt(gkanseilist, 5) = 0) and (clickOn() = 29) 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_rtn3
  repeat with n = 25 to 29
    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
      if sprite n intersects 10 then
        set the visible of sprite 10 to 1
      else
        set the visible of sprite 10 to 0
      end if
      if sprite n intersects 11 then
        set the visible of sprite 11 to 1
      else
        set the visible of sprite 11 to 0
      end if
      exit repeat
    end if
  end repeat
  updateStage()
end

on s3_set_rtn
  if gloch = 0 then
    return
  end if
  cursor([201, 202])
  set kanseiflg to 0
  if (getAt(gkanseilist, 1) = 0) and (clickOn() = 25) then
    if (the locH of sprite 25 >= 259) and (the locH of sprite 25 <= 269) then
      if (the locV of sprite 25 >= 144) and (the locV of sprite 25 <= 154) then
        puppetSound("SE02.AIF")
        set the locH of sprite 25 to 264
        set the locV of sprite 25 to 149
        set the moveableSprite of sprite 25 to 0
        set the visible of sprite 20 to 1
        set the visible of sprite 25 to 0
        setAt(gkanseilist, 1, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if (getAt(gkanseilist, 2) = 0) and (clickOn() = 26) then
    if (the locH of sprite 26 >= 204) and (the locH of sprite 26 <= 214) then
      if (the locV of sprite 26 >= 144) and (the locV of sprite 26 <= 154) then
        puppetSound("SE02.AIF")
        set the locH of sprite 26 to 209
        set the locV of sprite 26 to 149
        set the moveableSprite of sprite 26 to 0
        set the visible of sprite 21 to 1
        set the visible of sprite 26 to 0
        setAt(gkanseilist, 2, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if (getAt(gkanseilist, 3) = 0) and (clickOn() = 27) then
    if (the locH of sprite 27 >= 153) and (the locH of sprite 27 <= 163) then
      if (the locV of sprite 27 >= 140) and (the locV of sprite 27 <= 150) then
        puppetSound("SE02.AIF")
        set the locH of sprite 27 to 158
        set the locV of sprite 27 to 145
        set the moveableSprite of sprite 27 to 0
        set the visible of sprite 22 to 1
        set the visible of sprite 27 to 0
        setAt(gkanseilist, 3, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if (getAt(gkanseilist, 4) = 0) and (clickOn() = 28) then
    if (the locH of sprite 28 >= 105) and (the locH of sprite 28 <= 115) then
      if (the locV of sprite 28 >= 139) and (the locV of sprite 28 <= 149) then
        puppetSound("SE02.AIF")
        set the locH of sprite 28 to 110
        set the locV of sprite 28 to 144
        set the moveableSprite of sprite 28 to 0
        set the visible of sprite 23 to 1
        set the visible of sprite 28 to 0
        setAt(gkanseilist, 4, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if (getAt(gkanseilist, 5) = 0) and (clickOn() = 29) then
    if (the locH of sprite 29 >= 49) and (the locH of sprite 29 <= 59) then
      if (the locV of sprite 29 >= 144) and (the locV of sprite 29 <= 154) then
        puppetSound("SE02.AIF")
        set the locH of sprite 29 to 54
        set the locV of sprite 29 to 149
        set the moveableSprite of sprite 29 to 0
        set the visible of sprite 24 to 1
        set the visible of sprite 29 to 0
        setAt(gkanseilist, 5, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if kanseiflg = 0 then
    if (getAt(gkanseilist, 1) = 0) and (clickOn() = 25) 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() = 26) 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() = 27) 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, 4) = 0) and (clickOn() = 28) 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, 5) = 0) and (clickOn() = 29) 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_chk3
  set cnt to 0
  repeat with n = 1 to 5
    if getAt(gkanseilist, n) = 1 then
      set cnt to cnt + 1
    end if
  end repeat
  if cnt = 5 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 10 to 0
    set the visible of sprite 11 to 0
    puppetSprite(25, 0)
    puppetSprite(26, 0)
    puppetSprite(27, 0)
    puppetSprite(28, 0)
    puppetSprite(29, 0)
    go(the frame + 1)
  end if
end

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

on name_rtn3
  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() = 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
            if clickOn() = 20 then
              set the castNum of sprite 3 to the number of cast 67
            else
              if clickOn() = 21 then
                set the castNum of sprite 3 to the number of cast 68
              else
                if clickOn() = 22 then
                  set the castNum of sprite 3 to the number of cast 69
                else
                  if clickOn() = 23 then
                    set the castNum of sprite 3 to the number of cast 70
                  else
                    if clickOn() = 24 then
                      set the castNum of sprite 3 to the number of cast 71
                    else
                      if clickOn() = 25 then
                        set the castNum of sprite 3 to the number of cast 67
                      else
                        if clickOn() = 26 then
                          set the castNum of sprite 3 to the number of cast 68
                        else
                          if clickOn() = 27 then
                            set the castNum of sprite 3 to the number of cast 69
                          else
                            if clickOn() = 28 then
                              set the castNum of sprite 3 to the number of cast 70
                            else
                              if clickOn() = 29 then
                                set the castNum of sprite 3 to the number of cast 71
                              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 if
            end if
          end if
        end if
      end if
    end if
  end if
end