home *** CD-ROM | disk | FTP | other *** search
/ MegaGift Special Interac…ve Multimedia Magazine 11 / MGIFT10.ISO / tpt.dir / 00115_Script_115 < prev    next >
Text File  |  1997-11-11  |  2KB  |  41 lines
  1. on mousedown
  2.   global temp,sezione, sottosezione
  3.   Put "" into temp
  4.   Put "" into temp2
  5.   if the mouseline > 0 then
  6.     resettaquasi
  7.     resetsprites
  8.     put the mouseline into Linea
  9.     put the name of cast the mousecast into sezione
  10.     set the textstyle of field sezione  to "plain"
  11.     set the textstyle of line Linea of field sezione to "underline"
  12.     set the textstyle of field "campo testo titolo" to "plain"
  13.     set the text of field "campo testo titolo" to " "
  14.     put line linea of field the mousecast into parola
  15.     put parola into sottosezione
  16.     if length(sottosezione) >8 then set sottosezione =char 1 to 8 of  sottosezione
  17.     if length(parola & "DB")>3 then
  18.       put field (parola & "DB") into temp
  19.       repeat with a =1 to the number of lines of temp
  20.         put item 3 of line a of temp & RETURN after temp2
  21.         --set the text of field "campo testo titolo" to item 1 of line a of field (parola & "DB")
  22.       end repeat
  23.       put temp2 into field "campo testo titolo" 
  24.       put "" before line 1 of field "campo testo titolo" 
  25.     end if
  26.   end if
  27.   
  28. end
  29.  
  30.  
  31. --on mouseDown
  32. --  set the textstyle of field 2 to "plain"
  33. --  set the textstyle of field 107 to "plain"
  34. --  put the mouseline into k
  35. --  set the textstyle of line k of field 2 to "underline"
  36. --  set the textstyle of line k of field 107 to "underline"
  37. --  put line k of field "bro" into ndo
  38. --  --  put the number of chars of ndo
  39. --  put char 3 to (the number of chars of ndo) of ndo into ndo
  40. --  go to frame ndo
  41. --end