home *** CD-ROM | disk | FTP | other *** search
/ Sfanta Scriptura / BibliaseptuagintaRedactataSiAdnotataDeIpsBartolomeuValeriuAnania2001.iso / trim.ls < prev    next >
Text File  |  2004-07-06  |  4KB  |  136 lines
  1. on hyperlinkclicked me, data
  2.   
  3.   global film
  4.   set film = the moviename
  5.   global scena
  6.   set scena = the frame
  7.   set carti = ["Fc","I\","Lv","Nm","Dt","Ios","Jd","Rut","1 Rg","2 Rg","3 Rg","4 Rg","1 Par","2 Par","Ezr","Ne","Est","Iov","Ps","Pr","Ecc","C_nt","Is","Ir","Plg","Iz","Dn","Os","Am","Mi","Ioil","Avd","Iona","Naum","Avc","Sof","Ag","Za","Mal","Tob","Idt","Bar", \
  8. "Epist","Tin","3 Ezr","Sol","Sir","Sus","Bel","1 Mac","2 Mac","3 Mac","Man","Mt","Mc","Lc","In","FA","Rm","1 Co","2 Co","Ga","Ef","Flp","Col","1 Tes","2 Tes","1 Tim","2 Tim","Tit","Flm","Evr","Iac","1 Ptr","2 Ptr","1 In","2 In","3 In","Iuda","Ap"]  
  9.   
  10.   set diruri = ["Facerea","Iesirea","Leviticul","Numerele","Deuteronomul","Iosua","Judecatori","Rut","1 Regi","2 Regi","3 Regi","4 Regi","1 Paralipomena","2 Paralipomena","Ezdra","Neemia","Estera","Iov","Psalmii","Proverbele lui Solomon","Ecclesiastul","Cantarea","Isaia","Ieremia","Plangerile lui Ieremia","Iezechiel","Daniel","Osea","Amos","Miheia","Ioil","Avdia","Iona","Naum","Avacum","Sofonie","Agheu","Zaharia","Maleahi","Tobit","Iudita","Baruh", \
  11. "Epistola lui Ieremia","Cantarea celor trei tineri","3 Ezdra","Intelepciunea lui Solomon","Isus fiul lui Sirah","Istoria Susanei","Bel si balaurul","1 Macabei","2 Macabei","3 Macabei","Rugaciunea Regelui Manase","Matei","Marcu","Luca","Ioan","Faptele Apostolilor","Romani","1 Corinteni","2 Corinteni","Galateni","Efeseni","Filipeni","Coloseni","1 Tesaloniceni","2 Tesaloniceni","1 Timotei","2 Timotei","Tit","Filimon","Evrei","Iacob","1 Petru","2 Petru","1 Ioan","2 Ioan", \
  12.   "3 Ioan","Iuda","Apocalipsa"]  
  13.   
  14.   
  15.   set temp = ""
  16.   set c = 1
  17.   --alert data.char[1]
  18.   repeat while c<data.char.count
  19.     set temp = temp & data.char[c]
  20.     if carti.getPos(temp) <> 0 then
  21.       set carte = temp
  22.       inceput = c+1 --------
  23.       exit repeat
  24.       
  25.     end if
  26.     c = c+1
  27.   end repeat
  28.   c = c+1
  29.   set temp = ""
  30.   
  31.   if carte = "Iuda" or carte = "Avd" or carte = "Epist" or carte = "Tin" or carte = "Sus" or carte = "Bel" or carte = "Man" or carte = "Flm" or carte = "2 In" or carte = "3 In" then
  32.     
  33.     repeat while (c <= data.char.count)
  34.       temp = temp & data.char[c]
  35.       c = c+1
  36.     end repeat
  37.     
  38.     set verset = temp  
  39.     set capitol = 1    
  40.   else
  41.     
  42.     
  43.     
  44.     repeat while (data.char[c] <> ",") and (c < data.char.count)
  45.       temp = temp & data.char[c]
  46.       c = c+1
  47.     end repeat
  48.     
  49.     set capitol = temp
  50.     set temp = ""
  51.     c = c+1
  52.     if data.char[c]=" " or data.char[c]="," then
  53.       c = c+1
  54.     end if
  55.     
  56.     
  57.     repeat while (data.char[c] <> "-") and (c <= data.char.count)
  58.       temp = temp & data.char[c]
  59.       c = c+1
  60.     end repeat
  61.     
  62.     set verset = temp
  63.     if capitol.char[1]=" " then
  64.       delete capitol.char[1]
  65.     end if
  66.     
  67.   end if
  68.   
  69.   
  70.   set  gigi = carti.getPos(carte)
  71.   
  72.   set dirul = diruri[gigi]
  73.   
  74.   if dirul = "Psalmii" then
  75.     set pagina = "psalm"&capitol&&"pag1"
  76.   else
  77.     set pagina = "cap"&capitol&&"pag1"
  78.   end if
  79.   -- alert length(pagina)
  80.   -- alert "carte=" && carte  && "capitol=" && capitol && "verset=" && verset
  81.   
  82.   go frame pagina  of movie dirul
  83.   repeat while (offset (verset, sprite(5).member.text) = 0) and (offset (verset, sprite(6).member.text) = 0) then
  84.     go the frame + 1
  85.   end repeat
  86. -- alert verset      
  87.   
  88.   
  89.   
  90.   
  91. end
  92.  
  93. on mousewithin
  94.   if pointInHyperlink(sprite(the currentSpriteNum), the mouseloc) then
  95.     cursor 280
  96.     
  97.   else
  98.     cursor -1
  99.   end if
  100.   
  101. end
  102. on mouseEnter me
  103.   set the visible of sprite 14 = false
  104.   the locv of sprite 14 = -174
  105.   set the visible of sprite 15 = false
  106.   the locv of sprite 15 = -174
  107.   
  108. end
  109.  
  110.  
  111. -- functia de cautare:
  112. ---------------------------------------------------------------
  113. on motor memberunde, textce, culoare
  114.   
  115.   tempStr = memberunde.text 
  116.   hiliteList = [] 
  117.   counter = 0 
  118.   repeat while offset (textce, tempStr) 
  119.     startChar = offset (textce, tempStr) 
  120.     endChar = startChar + textce.char.count - 1 
  121.     hiliteList.append ([counter + startChar, counter + endChar]) 
  122.     delete char 1 to endChar of tempStr 
  123.     counter = counter + endChar 
  124.   end repeat 
  125.   
  126.   repeat with i in hiliteList 
  127.     memberunde.char[i[1]..i[2]].color = culoare 
  128.   end repeat 
  129.   
  130. end motor
  131. ------------------------------------------------------------------
  132.  
  133.  
  134.  
  135.  
  136.