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

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

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