Gamer's Paradise: Logic/Hracuv-raj_Logicke-hry_cd1.bin/QUESTCAM/HATCHLIN.DIR/00725.ls

Text File | 1998-02-26 | 706 b | 35 lines

on ReachForTheSkies x, y
  global dragonChan, whichanim, reachout
  if reachout = 1 then
    return 0
  end if
  if whichanim contains "tantrum" then
    return 0
  end if
  if whichanim contains "crawl" then
    return 0
  end if
  DoWantSFX()
  if x > the right of sprite dragonChan then
    set reachout to 1
    setanim("reach r")
    return 1
  end if
  if x < the left of sprite dragonChan then
    set reachout to 1
    setanim("reach l")
    return 1
  end if
  if y > the bottom of sprite dragonChan then
    set reachout to 1
    setanim("reach d")
    return 1
  end if
  if y < the top of sprite dragonChan then
    set reachout to 1
    setanim("reach u")
    return 1
  end if
  return 0
end