home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / base_ec.dir / 00057_Script_57 < prev    next >
Text File  |  1994-12-01  |  455b  |  22 lines
  1. on mousedown
  2.   global pictnumber,etcpict
  3.   set pictnumber=pictnumber-1
  4.   if pictnumber<=0 then set pictnumber=13
  5.   if not(getat(etcpict,pictnumber)) then
  6.     set p=0
  7.     repeat while p=0
  8.       set pictnumber=pictnumber-1
  9.       if pictnumber<=0 then set pictnumber=13
  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.  
  22.