What PC? 1996 August/WPCAUG96.ISO/makers/body/bodymain.dir/00403_CheckSprite.ls

Text File | 1996-06-12 | 1.6 KB | 62 lines

on bodyroll
  global cursorcast, lastClick
  set names to ["BARNARD", "MONTAGNIER", "EHRLICH", "FLEMING", "SANGER", "SPOCK", "BANTING", "STEPTOE", "CRICK", "PINCUS"]
  set num to getPos(names, lastClick) + 3
  set the visible of sprite 46 to 0
  repeat with i = 4 to 13
    set TempB to the castNum of sprite i
    if the mouseCast = TempB then
      if num <> i then
        set temp to TempB + 1
        if cursorcast <> temp then
          ReleasCursor()
          cursor(200)
          set cursorcast to temp
          set the castNum of sprite 46 to cursorcast
        end if
        set the visible of sprite 46 to 1
        set the locH of sprite 46 to the mouseH
        set the locV of sprite 46 to the mouseV
        exit
      end if
    end if
  end repeat
  if rollOver(num) then
    if cursorcast <> 0 then
      put "enter to loop"
      set cursorcast to 0
      set the locH of sprite 46 to 1000
      SetCursor()
    end if
    exit
  end if
  ReleasCursor()
  cursor(-1)
  set cursorcast to -1
  set the locH of sprite 46 to 1000
end

on clickBtn a, b
  set name to a & ".down"
  set the castNum of sprite b to the number of cast name
  updateStage()
  set STIcks to the ticks
  repeat while (the ticks - STIcks) < 10
    nothing()
  end repeat
end

on CheckSprite x, y, num
  global SpritePlace
  set x1 to getAt(SpritePlace, num)
  set temp to count(x1)
  repeat with j = 1 to temp
    set x2 to getPropAt(x1, j)
    if inside(point(x, y), rect(value(item 1 of x2), value(item 2 of x2), value(item 3 of x2), value(item 4 of x2))) then
      return getAt(x1, j)
      exit
    end if
  end repeat
  return num + 3
end