Он там делает 8 вложенных if чтобы подсчитать то, что можно сделать одной формулой. Формулой affectionlevel := affection DIV 25. Потом сделать If affectionlevel > 5 Then affectiolevel := 5; (сорри за Паскаль, я на него дефолчусь). Плюс я не увидел ни одного цикла в кусках что показывают. Это пиздец, товарищи. Там большая часть его херни сворачивается циклами в пару строчек.