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

Text File | 2017-09-21 | 8.7 KB | 271 lines

global gloch, glocv, gkanseilist

on init_rtn5
  cursor([201, 202])
  set gkanseilist to [0, 0, 0, 0, 0]
  repeat with n = 28 to 32
    set the visible of sprite n to 0
  end repeat
  repeat with n = 33 to 35
    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 + 32) to 430
      set the locV of sprite (n + 32) to 235
    end if
    if getAt(worklist, position) = 2 then
      set the locH of sprite (n + 32) to 385
      set the locV of sprite (n + 32) to 190
    end if
    if getAt(worklist, position) = 3 then
      set the locH of sprite (n + 32) to 345
      set the locV of sprite (n + 32) to 235
    end if
    deleteAt(worklist, position)
  end repeat
end

on main_rtn5
  when mouseDown then LOCATION_SET_RTN5
  name_rtn5()
  shadow_rtn5()
  when mouseUp then S5_SET_RTN
  kansei_chk5()
end

on location_set_rtn5
  if (clickOn() >= 33) and (clickOn() <= 35) then
    nothing()
  else
    set gloch to 0
    set glocv to 0
    return
  end if
  cursor([203, 204])
  if (getAt(gkanseilist, 1) = 0) and (clickOn() = 33) then
    puppetSound("SE01.AIF")
  end if
  if (getAt(gkanseilist, 2) = 0) and (clickOn() = 34) then
    puppetSound("SE01.AIF")
  end if
  if (getAt(gkanseilist, 3) = 0) and (clickOn() = 35) 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_rtn5
  repeat with n = 33 to 35
    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 s5_set_rtn
  if gloch = 0 then
    return
  end if
  cursor([201, 202])
  set kanseiflg to 0
  if (getAt(gkanseilist, 1) = 0) and (clickOn() = 33) then
    if (the locH of sprite 33 >= 220) and (the locH of sprite 33 <= 230) then
      if (the locV of sprite 33 >= 229) and (the locV of sprite 33 <= 239) then
        puppetSound("SE02.AIF")
        set the locH of sprite 33 to 225
        set the locV of sprite 33 to 234
        set the moveableSprite of sprite 33 to 0
        set the visible of sprite 30 to 1
        set the visible of sprite 33 to 0
        setAt(gkanseilist, 1, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if (getAt(gkanseilist, 2) = 0) and (clickOn() = 34) then
    if (the locH of sprite 34 >= 153) and (the locH of sprite 34 <= 163) then
      if (the locV of sprite 34 >= 230) and (the locV of sprite 34 <= 240) then
        puppetSound("SE02.AIF")
        set the locH of sprite 34 to 158
        set the locV of sprite 34 to 235
        set the moveableSprite of sprite 34 to 0
        set the visible of sprite 31 to 1
        set the visible of sprite 34 to 0
        setAt(gkanseilist, 2, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if (getAt(gkanseilist, 3) = 0) and (clickOn() = 35) then
    if (the locH of sprite 35 >= 82) and (the locH of sprite 35 <= 92) then
      if (the locV of sprite 35 >= 231) and (the locV of sprite 35 <= 241) then
        puppetSound("SE02.AIF")
        set the locH of sprite 35 to 87
        set the locV of sprite 35 to 236
        set the moveableSprite of sprite 35 to 0
        set the visible of sprite 32 to 1
        set the visible of sprite 35 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() = 33) 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() = 34) 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() = 35) 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_chk5
  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 1
    set the visible of sprite 8 to 1
    set the visible of sprite 9 to 1
    set the visible of sprite 10 to 1
    set the visible of sprite 11 to 1
    set the visible of sprite 28 to 1
    set the visible of sprite 29 to 1
    puppetSprite(33, 0)
    puppetSprite(34, 0)
    puppetSprite(35, 0)
    go(the frame + 1)
  end if
end

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

on name_rtn5
  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() = 26 then
                        set the castNum of sprite 3 to the number of cast 73
                      else
                        if clickOn() = 27 then
                          set the castNum of sprite 3 to the number of cast 74
                        else
                          if clickOn() = 28 then
                            set the castNum of sprite 3 to the number of cast 79
                          else
                            if clickOn() = 29 then
                              set the castNum of sprite 3 to the number of cast 80
                            else
                              if clickOn() = 30 then
                                set the castNum of sprite 3 to the number of cast 76
                              else
                                if clickOn() = 31 then
                                  set the castNum of sprite 3 to the number of cast 77
                                else
                                  if clickOn() = 32 then
                                    set the castNum of sprite 3 to the number of cast 78
                                  else
                                    if clickOn() = 33 then
                                      set the castNum of sprite 3 to the number of cast 76
                                    else
                                      if clickOn() = 34 then
                                        set the castNum of sprite 3 to the number of cast 77
                                      else
                                        if clickOn() = 35 then
                                          set the castNum of sprite 3 to the number of cast 78
                                        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 if
        end if
      end if
    end if
  end if
end