Colloquy away/back scripts for Pomodoro.app

end.scpt

tell application "System Events" to if exists process "Colloquy" then
  tell application "Colloquy"
    set aC to every connection
    repeat with c in aC
      set aR to (every chat room of c)
      repeat with r in aR
        set away message of c to ""
      end repeat
    end repeat
  end tell
end if

start.scpt

tell application "System Events" to if exists process "Colloquy" then
  tell application "Colloquy"
    set aC to every connection
    repeat with c in aC
      set aR to (every chat room of c)
      repeat with r in aR
        set away message of c to "Pomodoro"
      end repeat
    end repeat
  end tell
end if