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

Text File | 2017-09-21 | 4.6 KB | 180 lines

global gloch, glocv, gkanseilist

on init_rtn1
  set gkanseilist to [0, 0, 0, 0, 0]
  repeat with n = 12 to 15
    set the visible of sprite n to 0
  end repeat
  repeat with n = 19 to 20
    puppetSprite(n, 1)
    set the moveableSprite of sprite n to 1
    set the visible of sprite n to 1
  end repeat
  if random(2) = 1 then
    set the locH of sprite 19 to 423
    set the locV of sprite 19 to 221
    set the locH of sprite 20 to 347
    set the locV of sprite 20 to 229
  else
    set the locH of sprite 19 to 347
    set the locV of sprite 19 to 221
    set the locH of sprite 20 to 423
    set the locV of sprite 20 to 229
  end if
  cursor([201, 202])
end

on main_rtn1
  when mouseDown then LOCATION_SET_RTN1
  name_rtn1()
  shadow_rtn1()
  when mouseUp then S1_SET_RTN
  kansei_chk1()
end

on location_set_rtn1
  if (clickOn() >= 19) and (clickOn() <= 20) then
    nothing()
  else
    set gloch to 0
    set glocv to 0
    return
  end if
  cursor([203, 204])
  if (getAt(gkanseilist, 1) = 0) and (clickOn() = 19) then
    puppetSound("SE01.AIF")
  end if
  if (getAt(gkanseilist, 2) = 0) and (clickOn() = 20) 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_rtn1
  if clickOn() = 19 then
    if sprite 19 intersects 7 then
      set the visible of sprite 7 to 1
    else
      set the visible of sprite 7 to 0
    end if
    if sprite 19 intersects 8 then
      set the visible of sprite 8 to 1
    else
      set the visible of sprite 8 to 0
    end if
  end if
  if clickOn() = 20 then
    if sprite 20 intersects 7 then
      set the visible of sprite 7 to 1
    else
      set the visible of sprite 7 to 0
    end if
    if sprite 20 intersects 8 then
      set the visible of sprite 8 to 1
    else
      set the visible of sprite 8 to 0
    end if
  end if
  updateStage()
end

on s1_set_rtn
  if gloch = 0 then
    return
  end if
  cursor([201, 202])
  set kanseiflg to 0
  if getAt(gkanseilist, 1) = 0 then
    if clickOn() = 19 then
      if (the locH of sprite 19 >= 207) and (the locH of sprite 19 <= 217) then
        if (the locV of sprite 19 >= 53) and (the locV of sprite 19 <= 63) then
          puppetSound("SE02.AIF")
          set the locH of sprite 19 to 212
          set the locV of sprite 19 to 58
          set the moveableSprite of sprite 19 to 0
          set the visible of sprite 14 to 1
          set the visible of sprite 19 to 0
          setAt(gkanseilist, 1, 1)
          set kanseiflg to 1
        end if
      end if
    end if
  end if
  if getAt(gkanseilist, 2) = 0 then
    if clickOn() = 20 then
      if (the locH of sprite 20 >= 95) and (the locH of sprite 20 <= 105) then
        if (the locV of sprite 20 >= 58) and (the locV of sprite 20 <= 68) then
          puppetSound("SE02.AIF")
          set the locH of sprite 20 to 100
          set the locV of sprite 20 to 63
          set the moveableSprite of sprite 20 to 0
          set the visible of sprite 15 to 1
          set the visible of sprite 20 to 0
          setAt(gkanseilist, 2, 1)
          set kanseiflg to 1
        end if
      end if
    end if
  end if
  if kanseiflg = 0 then
    if (getAt(gkanseilist, 1) = 0) and (clickOn() = 19) 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() = 20) 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_chk1
  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 12 to 1
    set the visible of sprite 13 to 1
    puppetSprite(19, 0)
    puppetSprite(20, 0)
    go(the frame + 1)
  end if
end

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

on name_rtn1
  if clickOn() = 19 then
    set the castNum of sprite 3 to the number of cast 61
  else
    if clickOn() = 20 then
      set the castNum of sprite 3 to the number of cast 62
    else
      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
          set the castNum of sprite 3 to the number of cast 81
        end if
      end if
    end if
  end if
end