home *** CD-ROM | disk | FTP | other *** search
/ 3D World 110 / 3DW_110.iso / mac / Menu / Scenes / home.dir / 00058_Script_WebLinks < prev    next >
Text File  |  2008-09-12  |  2KB  |  96 lines
  1. global currentmember,pointclicked,wordnum,wordtext2,wordtext
  2.  
  3. property scrollmode
  4. property Sp
  5. property cStart
  6.  
  7. on mouseDown me
  8.   scrollmode = "scroll"
  9.   cStart = sprite(me.spritenum).top + (sprite(me.spritenum).height / 2)
  10. end
  11.  
  12.  
  13. on mouseup me
  14.   scrollmode = "off"
  15.   
  16.   pointClicked = the mouseLoc
  17.   currentMember = sprite(me.spriteNum).member
  18.   wordNum = sprite(me.spriteNum).pointToWord(pointClicked)
  19.   wordText = currentMember.word[wordNum]
  20.   --    put "Clicked word" && wordNum & ", the text" && wordText
  21.   
  22.   if wordtext contains "@" then
  23.     -- alert "you clicked email address"&&wordtext
  24.     gotonetpage ("mailto:"&wordtext)
  25.   else
  26.     nothing
  27.   end if
  28.   
  29.   if wordtext.char[1..7] = "http://" then
  30.     gotonetpage (wordtext)
  31.   else 
  32.     nothing
  33.   end if
  34.   
  35.   if wordtext.char[1..8] = "https://" then
  36.     gotonetpage (wordtext)
  37.   else 
  38.     nothing
  39.   end if
  40.   
  41.   if wordtext.char[1..4] = "www." then
  42.     gotonetpage ("http://"&wordtext)
  43.   else 
  44.     nothing
  45.   end if
  46.   
  47.   
  48. end
  49. --on linkUpdate me
  50. --  
  51. --  --  repeat with i = 1 to sprite(me.spritenum).member.word.count
  52. --  --    if sprite(me.spritenum).member.word[i].char[1..7] = "http://" or sprite(me.spritenum).member.word[i] contains "@" then
  53. --  --      sprite(me.spritenum).member.word[i].fontstyle = [#bold]
  54. --  --      sprite(me.spritenum).member.word[i].color = rgb(230,150,0)
  55. --  --      
  56. --  --      
  57. --  --    else
  58. --  --      sprite(me.spritenum).member.word[i].fontstyle = [#plain]
  59. --  --    end if
  60. --  --    
  61. --  --  end repeat
  62. --  
  63. --  t = sprite(me.spritenum).member
  64. --  repeat with i = 1 to t.word.count
  65. --    if t.word[i].char[1..7] = "http://" or t.word[i] contains "@" or t.word[i].char[1..4] = "www." or t.word[i].char[1..8] = "https://" then
  66. --      t.word[i].color = rgb(255,102,50)
  67. --      --      t.word[i].font.underline = true
  68. --    end if
  69. --    
  70. --  end repeat
  71. --  
  72. --end
  73.  
  74.  
  75. on beginsprite me
  76. --  t = sprite(me.spritenum).member
  77. --  repeat with i = 1 to t.word.count
  78. --    if t.word[i].char[1..7] = "http://" or wordtext2 contains "@" or wordtext2.char[1..4] = "www." or wordtext2.char[1..8] = "https://"then
  79. --      t.word[i].color = rgb(255,255,255)
  80. --    end if
  81. --    
  82. --  end repeat
  83.   
  84. end
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92. on mouseleave me
  93.   
  94.   cursor -1
  95. end
  96.