Да это готовый код был, я его просто портировал, сильно не вдаваясь в подробности. Даже редактировать ничего не стал, влом было
А вообще, я просто показал, что на просторах можно найти и черта лысого, было бы желание, а не стонание