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

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

global gloch, glocv, gkanseilist

on init_rtn4
  cursor([201, 202])
  set gkanseilist to [0, 0, 0, 0, 0]
  repeat with n = 25 to 27
    set the visible of sprite n to 0
  end repeat
  repeat with n = 29 to 30
    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]
  repeat with n = 1 to 2
    set position to random(3 - n)
    if getAt(worklist, position) = 1 then
      set the locH of sprite (n + 28) to 425
      set the locV of sprite (n + 28) to 225
    end if
    if getAt(worklist, position) = 2 then
      set the locH of sprite (n + 28) to 350
      set the locV of sprite (n + 28) to 225
    end if
    deleteAt(worklist, position)
  end repeat
end

on main_rtn4
  when mouseDown then LOCATION_SET_RTN4
  name_rtn4()
  shadow_rtn4()
  when mouseUp then S4_SET_RTN
  kansei_chk4()
end

on location_set_rtn4
  if (clickOn() >= 29) and (clickOn() <= 30) then
    nothing()
  else
    set gloch to 0
    set glocv to 0
    return
  end if
  cursor([203, 204])
  if (getAt(gkanseilist, 1) = 0) and (clickOn() = 29) then
    puppetSound("SE01.AIF")
  end if
  if (getAt(gkanseilist, 2) = 0) and (clickOn() = 30) 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_rtn4
  repeat with n = 29 to 30
    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
      exit repeat
    end if
  end repeat
  updateStage()
end

on s4_set_rtn
  if gloch = 0 then
    return
  end if
  cursor([201, 202])
  set kanseiflg to 0
  if (getAt(gkanseilist, 1) = 0) and (clickOn() = 29) then
    if (the locH of sprite 29 >= 245) and (the locH of sprite 29 <= 255) then
      if (the locV of sprite 29 >= 178) and (the locV of sprite 29 <= 188) then
        puppetSound("SE02.AIF")
        set the locH of sprite 29 to 250
        set the locV of sprite 29 to 183
        set the moveableSprite of sprite 29 to 0
        set the visible of sprite 26 to 1
        set the visible of sprite 29 to 0
        setAt(gkanseilist, 1, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if (getAt(gkanseilist, 2) = 0) and (clickOn() = 30) then
    if (the locH of sprite 30 >= 65) and (the locH of sprite 30 <= 75) then
      if (the locV of sprite 30 >= 178) and (the locV of sprite 30 <= 188) then
        puppetSound("SE02.AIF")
        set the locH of sprite 30 to 70
        set the locV of sprite 30 to 183
        set the moveableSprite of sprite 30 to 0
        set the visible of sprite 27 to 1
        set the visible of sprite 30 to 0
        setAt(gkanseilist, 2, 1)
        set kanseiflg to 1
      end if
    end if
  end if
  if kanseiflg = 0 then
    if (getAt(gkanseilist, 1) = 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
    if (getAt(gkanseilist, 2) = 0) and (clickOn() = 30) 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_chk4
  set cnt to 0
  repeat with n = 1 to 2
    if getAt(gkanseilist, n) = 1 then
      set cnt to cnt + 1
    end if
  end repeat
  if cnt = 2 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
    set the visible of sprite 25 to 1
    puppetSprite(29, 0)
    puppetSprite(30, 0)
    go(the frame + 1)
  end if
end

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

on name_rtn4
  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() = 29 then
                            set the castNum of sprite 3 to the number of cast 73
                          else
                            if clickOn() = 30 then
                              set the castNum of sprite 3 to the number of cast 74
                            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