еще вопрос:

поддерживает ли стелс двойные меню, типа:

Waitmenu('Select a circle to inscribe',circle[c],'Select a spell to inscribe', spell[c][s])

я вот что-то не понял, почему я не могу объявить массив таким образом:
var
spell : Array[1..8, 1..8] of string;

?????
у нас все-таки вроде-как паскаль, а вот двумерные массивы не поддерживает

всё равно твой скрипт нормально работать не будет
я б тебе сказал почему, да вот не хочу чтоб все кучами начали качать файтов на стелсе

кстати, я вижу ты девушек не любишь (особеннно мертвых) (пересмотри скрипт)

именно 0.95, на дриме ниже запрещено

поставил точку с запятой - та же ошибка, там не в точке с запятой дело...

компилятор ругается на 28 строчке:

procedure reshim(object:Cardinal);
begin //28 строчка
If IsDead(object) then begin
FindType(ghost,ground); AddToSystemJournal('RESHIM');
heal(finditem);
end
end;

видимо это баг стелса.....

и никто мне не может помочь.....

15:32:45: Compiling
15:32:45: Compiled succesfully
15:32:46: Exception: Type Mismatch at 28.131
15:32:46: Script fighter1.txt stoped successfuly

что-то я не могу понять, где там ошибка...???

program fighter; var i:Integer; {$Include 'all.inc'} Const naparnik = $012EB700; dager = $0F51; binti = $0E21; ghost = $0193; procedure fight(object:Cardinal); begin If (GetHp(self)>((0.5)*GetMaxHp(self))) and (GetHp(object)>((0.5)*GetMaxHp(object))) then begin attack(object); end else SetWarMode(f...