home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 74 / IOPROG_74.ISO / ioProg.exe / ioProg.DXR / Internal_166_ScriptFieldLink.ls < prev    next >
Encoding:
Text File  |  2003-09-30  |  1.0 KB  |  36 lines
  1. global riga, oldLocV, nRighe, pagina, car2, sinistra, caratteri, caratteri2, righeMissing, evidenzia, rsCerca, vaiAvanti, progr, listLink, listImgLink, posto
  2.  
  3. on mouseDown me
  4.   evidenzia = the mouseLine
  5.   if sprite(me.spriteNum).member.line[evidenzia] <> EMPTY then
  6.     hilite member(sprite(me.spriteNum).member).line[evidenzia]
  7.     progr = sprite(me.spriteNum).member.line[evidenzia]
  8.     if the mouseLine > 1 then
  9.       case the mouseLine of
  10.         3:
  11.           posto = 2
  12.         5:
  13.           posto = 3
  14.       end case
  15.     else
  16.       posto = evidenzia
  17.     end if
  18.     importFileInto(member(1, "LinkImg"), the moviePath & "link\" & getAt(listImgLink, posto))
  19.     member("titololink").text = member(member(posto, "LinkText")).line[1]
  20.     member("linkText").text = member(member(posto, "LinkText")).line[2]
  21.     member("link").text = member(member(posto, "LinkText")).line[3]
  22.   end if
  23. end
  24.  
  25. on mouseWithin me
  26.   if member(sprite(me.spriteNum).member).line[the mouseLine] <> EMPTY then
  27.     cursor(280)
  28.   else
  29.     cursor(-1)
  30.   end if
  31. end
  32.  
  33. on mouseLeave me
  34.   cursor(-1)
  35. end
  36.