My AutoHotKey Script

euber.ahk

/*
    Special characters for italian keyboards
*/ 
; -- Tilde
<^>!'::SendInput "~"

; -- BackTick
<^>!ì::SendInput "``"

/*
    Special characters for esperanto
*/
; -- Ĉ and ĉ with capslock
<^>!c::SendInput(GetKeyState("CapsLock", "T") ? "Ĉ" : "ĉ")
; -- Ĉ with shift
<^>!+C::SendInput "Ĉ"

; -- Ĝ and ĝ with capslock
<^>!g::SendInput(GetKeyState("CapsLock", "T") ? "Ĝ" : "ĝ")
; -- Ĝ with shift
<^>!+G::SendInput "Ĝ"

; -- Ĥ and ĥ with capslock
<^>!h::SendInput(GetKeyState("CapsLock", "T") ? "Ĥ" : "ĥ")
; -- Ĥ with shift
<^>!+H::SendInput "Ĥ"

; -- Ĵ and ĵ with capslock
<^>!j::SendInput(GetKeyState("CapsLock", "T") ? "Ĵ" : "ĵ")
; -- Ĵ with shift
<^>!+J::SendInput "Ĵ"

; -- Ŝ and ŝ with capslock
<^>!s::SendInput(GetKeyState("CapsLock", "T") ? "Ŝ" : "ŝ")
; -- Ŝ with shift
<^>!+S::SendInput "Ŝ"

; -- Ŭ and ŭ with capslock
<^>!u::SendInput(GetKeyState("CapsLock", "T") ? "Ŭ" : "ŭ")
; -- Ŭ with shift
<^>!+U::SendInput "Ŭ"