home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / base_ec.dir / 00060_Script_60 < prev    next >
Text File  |  1994-12-01  |  453b  |  21 lines
  1. on mousedown
  2.   global pictnumber,etcpict
  3.   set pictnumber=pictnumber+1
  4.   if pictnumber>=14 then set pictnumber=1
  5.   if not(getat(etcpict,pictnumber)) then
  6.     set p=0
  7.     repeat while p=0
  8.       set pictnumber=pictnumber+1
  9.       if pictnumber>=14 then set pictnumber=1
  10.       if getat(etcpict,pictnumber) then set p=1
  11.     end repeat
  12.   end if
  13.   set the castnum of sprite 1=0
  14.   puppetsprite 1,0
  15.   updatestage
  16.   unload
  17.   go previous
  18. end
  19.  
  20.  
  21.