home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Gadgets.dxr / Internal_16_date.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  521 b   |  20 lines
  1. on mouseUp me
  2.   global gAnn
  3.   repeat with i = 48 to 53
  4.     if i = the currentSpriteNum then
  5.       next repeat
  6.     end if
  7.     tmp = the memberNum of sprite i
  8.     nome = member(tmp).name
  9.     if nome contains "f2" then
  10.       delete char 5 to 7 of nome
  11.       set the member of sprite i to member(nome)
  12.     end if
  13.   end repeat
  14.   tmp = the memberNum of sprite the currentSpriteNum
  15.   nome = member(tmp).name
  16.   set the member of sprite the currentSpriteNum to member(nome)
  17.   delete char 5 to 7 of nome
  18.   gAnn = integer(nome)
  19. end
  20.