home *** CD-ROM | disk | FTP | other *** search
/ 3D World 113 / 3DW_113.iso / pc / Menu / Scenes / home.dir / Internal_58_WebLinks.ls < prev    next >
Encoding:
Text File  |  2008-09-12  |  892 b   |  43 lines
  1. property scrollmode, Sp, cStart
  2. global currentMember, pointClicked, wordNum, wordText2, wordText
  3.  
  4. on mouseDown me
  5.   scrollmode = "scroll"
  6.   cStart = sprite(me.spriteNum).top + (sprite(me.spriteNum).height / 2)
  7. end
  8.  
  9. on mouseUp me
  10.   scrollmode = "off"
  11.   pointClicked = the mouseLoc
  12.   currentMember = sprite(me.spriteNum).member
  13.   wordNum = sprite(me.spriteNum).pointToWord(pointClicked)
  14.   wordText = currentMember.word[wordNum]
  15.   if wordText contains "@" then
  16.     gotoNetPage("mailto:" & wordText)
  17.   else
  18.     nothing()
  19.   end if
  20.   if wordText.char[1..7] = "http://" then
  21.     gotoNetPage(wordText)
  22.   else
  23.     nothing()
  24.   end if
  25.   if wordText.char[1..8] = "https://" then
  26.     gotoNetPage(wordText)
  27.   else
  28.     nothing()
  29.   end if
  30.   if wordText.char[1..4] = "www." then
  31.     gotoNetPage("http://" & wordText)
  32.   else
  33.     nothing()
  34.   end if
  35. end
  36.  
  37. on beginSprite me
  38. end
  39.  
  40. on mouseLeave me
  41.   cursor(-1)
  42. end
  43.