321 GAMES/321GAMES.iso/logic/runes/runes.exe/runes.DXR/00074_GETPUZZ.ls

Text File | 1996-07-01 | 3.2 KB | 127 lines

on GETPUZZ
  global UPG, PUZZ
  set PUZZ to 0
  if UPG = 0 then
    if (the key = "A") or (the key = "a") then
      set PUZZ to 1
    end if
    if (the key = "B") or (the key = "b") then
      set PUZZ to 2
    end if
    if (the key = "c") or (the key = "C") then
      set PUZZ to 3
    end if
    if (the key = "D") or (the key = "d") then
      set PUZZ to 4
    end if
    if (the key = "e") or (the key = "E") then
      set PUZZ to 5
    end if
    if (the key = "F") or (the key = "f") then
      set PUZZ to 6
    end if
    if (the key = "G") or (the key = "g") then
      set PUZZ to 7
    end if
    if (the key = "H") or (the key = "h") then
      set PUZZ to 8
    end if
    if (the key = "I") or (the key = "i") then
      set PUZZ to 9
    end if
    if (the key = "j") or (the key = "J") then
      set PUZZ to 10
    end if
  end if
  if UPG = 1 then
    if (the key = "A") or (the key = "a") then
      set PUZZ to 1
    end if
    if (the key = "B") or (the key = "b") then
      set PUZZ to 2
    end if
    if (the key = "c") or (the key = "C") then
      set PUZZ to 3
    end if
    if (the key = "D") or (the key = "d") then
      set PUZZ to 4
    end if
    if (the key = "e") or (the key = "E") then
      set PUZZ to 5
    end if
    if (the key = "F") or (the key = "f") then
      set PUZZ to 6
    end if
    if (the key = "G") or (the key = "g") then
      set PUZZ to 7
    end if
    if (the key = "H") or (the key = "h") then
      set PUZZ to 8
    end if
    if (the key = "I") or (the key = "i") then
      set PUZZ to 9
    end if
    if (the key = "j") or (the key = "J") then
      set PUZZ to 10
    end if
    if (the key = "K") or (the key = "k") then
      set PUZZ to 11
    end if
    if (the key = "L") or (the key = "l") then
      set PUZZ to 12
    end if
    if (the key = "M") or (the key = "m") then
      set PUZZ to 13
    end if
    if (the key = "N") or (the key = "n") then
      set PUZZ to 14
    end if
    if (the key = "O") or (the key = "o") then
      set PUZZ to 15
    end if
    if (the key = "P") or (the key = "p") then
      set PUZZ to 16
    end if
    if (the key = "q") or (the key = "Q") then
      set PUZZ to 17
    end if
    if (the key = "R") or (the key = "r") then
      set PUZZ to 18
    end if
    if (the key = "S") or (the key = "s") then
      set PUZZ to 19
    end if
    if (the key = "t") or (the key = "T") then
      set PUZZ to 20
    end if
    if (the key = "U") or (the key = "u") then
      set PUZZ to 21
    end if
    if (the key = "v") or (the key = "V") then
      set PUZZ to 22
    end if
    if (the key = "w") or (the key = "W") then
      set PUZZ to 23
    end if
    if (the key = "X") or (the key = "X") then
      set PUZZ to 24
    end if
    if (the key = "Y") or (the key = "y") then
      set PUZZ to 25
    end if
    if (the key = "Z") or (the key = "z") then
      set PUZZ to 26
    end if
  end if
  if PUZZ <> 0 then
    set the mouseDownScript to EMPTY
    set the castNum of sprite 6 to 119 + PUZZ
    set the castNum of sprite 7 to 119 + PUZZ
    set the locH of sprite 6 to 21
    set the locV of sprite 6 to 200
    set the locH of sprite 7 to 575
    set the locV of sprite 7 to 200
    updateStage()
  end if
end