New Grand Theft Auto 2003 Classic Collection/PHOTOSHOP.iso/contents/sample.dxr/00025_buttonScript.ls

Text File | 2002-04-19 | 5.4 KB | 138 lines

property pmemberdown, pmemberdown_state, pmemberrollover_state, pmemberleave, pmemberenter, prollovercursor, prollovercursor_state, pentersound, prolloversound_state, pdownsound, pdownsound_state, paction_state, ptargetframe, ptargetmovie, ptargetmarker, pcustomlingo, paction_flag, pbuttonsoundchannal

on getBehaviorDescription me
  desc = EMPTY
  put "±æ­­Œ™÷˜“™þ¶ƒ‹£Š" & RETURN after desc
  put "1.±‰ªª Û±Í¬”þ½£¨¥œ¬ ±µƒmember" & RETURN after desc
  put "2.±‰ªª Û±Í¬”þ½£¨¥œ¬ ±µƒcursor" & RETURN after desc
  put "3.…Ëð® Û±Í¬”þ½£¨¥œ¬ ±µƒ“Ù­ß" & RETURN after desc
  put "4.ð®÷Р۱͵„ª˜ŠÛµƒlingo¯¸¡Ó" after desc
  return desc
end

on getBehaviorTooltip me
  desc = EMPTY
  put "±æ­­Œ™÷˜“™þ¶ƒ‹£Š" & RETURN after desc
  put "1.±‰ªª Û±Í¬”þ½£¨¥œ¬ ±µƒmember" & RETURN after desc
  put "2.±‰ªª Û±Í¬”þ½£¨¥œ¬ ±µƒcursor" & RETURN after desc
  put "3.…Ëð® Û±Í¬”þ½£¨¥œ¬ ±µƒ“Ù­ß" & RETURN after desc
  put "4.ð®÷Р۱͵„ª˜ŠÛµƒlingo¯¸¡Ó" & RETURN after desc
  return desc
end

on getPropertyDescriptionList me
  theMember = sprite(the currentSpriteNum).member
  thememberover = member(theMember.name & "-OVER")
  thememberdown = member(theMember.name & "-DOWN")
  list = [:]
  addProp(list, #pmemberdown_state, [#comment: "”­Œ€¥œ¬×¥Ã¨?", #format: #boolean, #default: 1])
  addProp(list, #pmemberdown, [#comment: "¥œ¬×¥Ã¨member.", #format: #member, #default: thememberdown])
  addProp(list, #pmemberrollover_state, [#comment: "”­Œ€¬”þ½×¥Ã¨?", #format: #boolean, #default: 1])
  addProp(list, #pmemberenter, [#comment: "ý–»Î ±member.", #format: #member, #default: thememberover])
  addProp(list, #pmemberleave, [#comment: "¿Îø™ŠÛmember.", #format: #member, #default: theMember])
  addProp(list, #prollovercursor_state, [#comment: "¬”þ½ ±þ‚±Í”­Œ€±‰ªØ?", #format: #boolean, #default: 1])
  addProp(list, #prollovercursor, [#comment: "¬”þ½ ±þ‚±Í", #format: #cursor, #default: 280])
  addProp(list, #pbuttonsoundchannal, [#comment: "«Î—°‘Ґ¥¼§…š“ÙÕ®µ¿", #format: #integer, #default: 4])
  addProp(list, #prolloversound_state, [#comment: "¬”þ½ ±”­Œ€“Ù­ß?", #format: #boolean, #default: 1])
  addProp(list, #pentersound, [#comment: "¬”þ½ ±“Ù­ß.", #format: #sound, #default: "buttonRolloverSound"])
  addProp(list, #pdownsound_state, [#comment: "”­Œ€¥œ¬“Ù­ß?", #format: #boolean, #default: 0])
  addProp(list, #pdownsound, [#comment: "¥œ¬ ±“Ù­ß.", #format: #sound, #default: "buttonDownSound"])
  addProp(list, #paction_state, [#comment: "ð®÷ÐðØט", #format: #string, #range: ["None", "go to frame", "go to movie", "play frame", "play movie", "play done", "go to marker", "go to which frame of which movie", "play which frame of which movie", "Custom Lingo"], #default: "None"])
  addProp(list, #ptargetframe, [#comment: "Target Frame:", #format: #frame, #default: EMPTY])
  addProp(list, #ptargetmarker, [#comment: "Target Marker:", #format: #marker, #default: EMPTY])
  addProp(list, #ptargetmovie, [#comment: "Target Movie:", #format: #string, #default: EMPTY])
  addProp(list, #pcustomlingo, [#comment: "Custom Lingo", #format: #string, #default: EMPTY])
  return list
end

on mouseDown me
  paction_flag = member(the clickOn).number
  if pmemberdown_state then
    sprite(me.spriteNum).member = pmemberdown
  end if
  if pdownsound_state then
    if not sound(pbuttonsoundchannal).isBusy() then
      puppetSound(#pbuttonsoundchannal, pdownsound)
    else
      nothing()
    end if
  end if
end

on mouseEnter me
  if pmemberrollover_state then
    sprite(me.spriteNum).member = pmemberenter
  end if
  if prollovercursor_state then
    cursor(prollovercursor)
  end if
  if prolloversound_state then
    if not sound(pbuttonsoundchannal).isBusy() then
      puppetSound(pbuttonsoundchannal, pentersound)
    else
      nothing()
    end if
  end if
end

on mouseLeave me
  if pmemberrollover_state then
    sprite(me.spriteNum).member = pmemberleave
  end if
  cursor(0)
end

on mouseUpOutSide me
  sprite(me.spriteNum).member = pmemberleave
  cursor(0)
end

on mouseUp me
  sprite(me.spriteNum).member = pmemberleave
  cursor(0)
  if member(the clickOn).number = paction_flag then
    action(me)
  end if
end

on action me
  case paction_state of
    "None":
      nothing()
    "go to frame":
      if value(ptargetframe) > 0 then
        go(value(ptargetframe))
      else
        go(ptargetframe)
      end if
    "go to movie":
      go(1, ptargetmovie)
    "play frame":
      if value(ptargetframe) > 0 then
        play frame value(ptargetframe)
      else
        play frame ptargetframe
      end if
    "play movie":
      play movie ptargetmovie
    "play done":
      play done
    "go to marker":
      go(ptargetmarker)
    "go to which frame of which movie":
      if value(ptargetframe) > 0 then
        go(value(ptargetframe), ptargetmovie)
      else
        go(ptargetframe, ptargetmovie)
      end if
    "play which frame of which movie":
      if value(ptargetframe) > 0 then
        play frame value(ptargetframe) of movie ptargetmovie
      else
        play frame ptargetframe of movie ptargetmovie
      end if
    "Custom Lingo":
      do(pcustomlingo)
  end case
end