[kpa9pt]

Шаг 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 уже не помню.