321 GAMES/321GAMES.iso/logic/runes/runes.exe/runes.DXR/00162.ls

Text File | 1996-07-01 | 624 b | 32 lines

on OPTBUT
  global SOND, TSOND
  dontPassEvent()
  if (the key = "b") or (the key = "B") then
    go("OPTIONS1")
  end if
  if (the key = "S") or (the key = "s") then
    go("SOLEAU")
  end if
  if (the key = "R") or (the key = "r") then
    go("REGIST")
  end if
  if (the key = "O") or (the key = "o") then
    go("OTHERGMS")
  end if
  if (the key = "T") or (the key = "t") then
    if SOND = 1 then
      set TSOND to 0
    end if
    if SOND = 0 then
      set TSOND to 1
    end if
    set SOND to TSOND
    if SOND = 1 then
      go("SNDOFF")
    end if
    if SOND = 0 then
      go("SNDON")
    end if
  end if
end