home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00010_Script_10 < prev    next >
Text File  |  1997-10-14  |  411b  |  17 lines
  1. on curfinmetti
  2.   global cursprite
  3.   if voidp(cursprite) then set cursprite to ""
  4.   repeat with nr=1 to 48
  5.     set cur to item nr of cursprite
  6.     set a to offset("_", cur)
  7.     if a > 0 then put "," into char a of  cur
  8.     if cur = "-1" then
  9.       set the cursor of sprite nr to integer(cur)
  10.     else
  11.       set the cursor of sprite nr to value(cur)
  12.     end if
  13.     
  14.   end repeat
  15.   updatestage
  16. end
  17.