Надо-бы убрать баги..., выявить и уничтожить Опции

[mamont001]

И снова здравствуйте много-много уважаемые форумчане!
Писал вот ето игру и наловил кучу глюков. Попытался исправить 1 ,появилось 2 новых
Как так можно?
Помогите уничтожить гадов

[mamont001]

мне чтото очень сильно кажеться,что дело в рандоме ,хотя может где-нибудь ещеесть пару недоработок

[priboltik]

первый юнит вроде подправил... по крайней мере теперь там хоть нормально распределение LP работает )
только до сих пор не могу понять что обозначают переменные: level ??? и tlevel????
подскажи плиз..
так же из 3 юнита с трудом доходит смысл строк:

pip:= random(sila*2);  //может быть здесь нужно поставить цикл пока..не??? 
   if pip<sila then    // или я совсем не понимаю.. объясни..что вообще хочешь здесь сделать???
   pip:= random(sila*2);
   if bhp>pip then bhp:=bhp-pip else bhp:=0;

исходник 1 юнита .