Mundo do CD-ROM 15/MUNDO15.iso/entrete/Osmar/PARAMIM.DXR/00047.ls

Text File | 1997-10-13 | 717 b | 28 lines

on startMovie
  set the keyDownScript to "keydownhandle"
  set the cursor of sprite 45 to [33, 34]
  set the cursor of sprite 46 to [33, 34]
  set the cursor of sprite 47 to [33, 34]
  set the cursor of sprite 48 to [33, 34]
  set the visible of sprite 43 to 0
end

on keydownhandle
  if (the key = "q") or (the key = "Q") then
    go("sair")
  end if
  if (the key = "s") or (the key = "S") then
    go("sair")
  end if
  if the visible of sprite 43 = 0 then
    if (the key = "t") or (the key = "T") then
      set the visible of sprite 43 to 1
    end if
  end if
  if the visible of sprite 43 = 1 then
    if (the key = "n") or (the key = "N") then
      set the visible of sprite 43 to 0
    end if
  end if
end