home *** CD-ROM | disk | FTP | other *** search
/ PC Open 22 / pcopen22.iso / SuperCap / data / CITTA.DXR / 00384_sliderinitscrollhand.ls < prev    next >
Encoding:
Text File  |  1998-05-18  |  1.1 KB  |  35 lines
  1. on enterFrame
  2.   hand()
  3.   put EMPTY into field "nota2"
  4.   put EMPTY into field "cap"
  5.   put EMPTY into field "nome"
  6.   put EMPTY into field "tipo"
  7.   put EMPTY into field "nota1"
  8.   put EMPTY into field "comune"
  9. end
  10.  
  11. on exitFrame
  12.   global citta
  13.   set the locV of sprite 5 to 377
  14.   set the locV of sprite 7 to 364
  15.   set the locV of sprite 8 to 364
  16.   set the locV of sprite 9 to 364
  17.   set the locV of sprite 10 to 364
  18.   set the locV of sprite 11 to 364
  19.   put citta into field "comune"
  20.   put field ("cap" & citta) into field "cap"
  21.   put field ("nome" & citta) into field "nome"
  22.   put field ("tipo" & citta) into field "tipo"
  23.   put field ("nota" & citta) into field "nota"
  24.   put field ("nota1" & citta) into field "nota1"
  25.   put item 2 of field ("info" & citta) into field "infocap"
  26.   put item 3 of field ("info" & citta) into field "infotelex"
  27.   put item 4 of field ("info" & citta) into field "infoabit"
  28.   set k to the number of lines in field ("cap" & citta)
  29.   put line 1 to k of field "numbis" into field "num"
  30.   puppetSprite(16, 1)
  31.   set vC to char 1 of field "cap"
  32.   set the memberNum of sprite 16 to the number of member ("cap" & vC)
  33.   initScroll(3, 4, 5, 6, 7, 11)
  34. end
  35.