алгоритм сложноват для отладки....

Повторяются участки кода, их можно выделить в отдельные процедуры

, например:
procedure great_oblom (){
&nikakih_vecherin();
&hand_job();
&smotret_serial("Klon");
&spat_v_krovat_s_plushevym_mishkoy();
}
И кстати, в функции sobiraemsya_na_vecherinu($povedenie) в
case 'prodvinutaya telka' продвинутая тёлка, собираясь на вечеринку не принимает ванну, в отличие от шлюшки и нормальной тёлки/
В общем, в коде выявлены неточности, баги фиксить и фиксить
