Seeker/Seeker.iso/files_w/bar.dir/00098_Script_98

Text File | 1994-12-03 | 776b | 32 lines

on mousedown
  global getpoints,getitems,ballreturnframe
  set cnum=the castnum of sprite clickon()
  if cnum<>0 then
    cursor [247,248]
    set the castnum of sprite 48=cnum
    set the castnum of sprite clickon()=0
    repeat while the stilldown
      set the loch of sprite 48=mouseh()
      set the locv of sprite 48=mousev()
      updatestage
    end repeat
    set the castnum of sprite clickon()=cnum
    set the castnum of sprite 48=210
    set the loch of sprite 48=0
    set the locv of sprite 48=0
    cursor 200
    if rollover(9) then
      repeat with i=1 to 37
        set the cursor of sprite i=0
        puppetsprite i,0
      end repeat
      set ballreturnframe=the frame-2
      go to "to5BALL"
    end if
  end if
end