Title = Hieroglyphics Typer v0.3 From = bLisTeRinG with Laszlo 2006 htFile = %A_DeskTop%\HeiroType.html ; The Egyptian text is written in this file htDir = %A_ScriptDir%\pix ; <-- edit here, location of the pictograms htNum = 1 htNumb = 1 Tooltip, The keyboard is being used by Hierotyper. Press Esc to exit. Loop 26 { ; Hotkeys to enter letters key := Chr(A_Index+64) HotKey %key%, Letter } Return htNew: IfNotExist, %htFile% { IniWrite , %htFile%, 0,0 } Return htWrite: GoSub htNew IniWrite

, %htFile%, %htNum%, %htNumb% htNumb++ Tooltip, %htPix% The keyboard is being used by Hierotyper. Press Esc to exit. Return Return:: GoSub htNew IniWrite

, %htFile%, %htNum%, %htNumb% htNumb = 1 htNum++ Return Space:: htNumb = 0 htPix = space GoSub htWrite htNum++ Return Letter: ; Write letters htPix = %A_ThisHotKey% GoTo htWrite Esc:: ; to exit run %A_DeskTop%\HeiroType.html ExitApp