Seeker/Seeker.iso/files_w/3d_dun.dir/00077.ls

Text File | 1994-12-01 | 960 b | 31 lines

on mouseUp
  global map, posx, posy, forwardmap, leftmap, backwardmap, rightmap
  set posykeep to posy
  if the castNum of sprite 20 = the number of cast "N" then
    set map to rightmap
    set the castNum of sprite 20 to the number of cast "E"
    set posy to 33 - posx
  else
    if the castNum of sprite 20 = the number of cast "E" then
      set map to backwardmap
      set the castNum of sprite 20 to the number of cast "S"
      set posy to 23 - posx
    else
      if the castNum of sprite 20 = the number of cast "S" then
        set map to leftmap
        set the castNum of sprite 20 to the number of cast "W"
        set posy to 33 - posx
      else
        if the castNum of sprite 20 = the number of cast "W" then
          set map to forwardmap
          set the castNum of sprite 20 to the number of cast "N"
          set posy to 23 - posx
        end if
      end if
    end if
  end if
  set posx to posykeep
  showviews()
  go("loop")
end