Шаг 5.
Ну и наконец процедура для того чтобы это дело всё точилось и он соображал когда надо бежать за точками или щитами
PHP код:
procedure OnTimerEnch(Sender:Tobject);
begin
for jj:=0 to (lvlENCHANT-1) do
begin
for ii:=0 to 96 do
begin
if (Items[2,ii]=jj) and (Items[1,ii]<>0) and (Scrollid<>0) and (ScrollCount<>0) then
begin
UseItem(ScrollID);
Enchant(Items[1,ii]);
Ench(Items[1,ii]);
exit;
end;
end;
end;
if (Scrollcount=0) then
begin
wantscroll;
end;
if (jj=(lvlENCHANT-1)) and (ii=96) and not fromwh then
begin
goWH;
end;
if (jj=(lvlENCHANT-1)) and (ii=96) and fromwh then
begin
gofromWH;
end;
end;
P.S.: Скрипт запускается по OldSchool соц действиями, написал вроде бы всё что надо было. Кто жаждет разобраться пишите вопросы сюда.
P.S.: Скрипт писался на rpg-club на хрониках GF или HF уже не помню.