Чтот у меня не получается его втулить т к он 16+к символов, попробую кусками
delphi Код:
// Auto_enchant + 1 - gracia_final_selectskroll
// хроники Грация ФИНАЛ
//===========================================
const
myname='DoGG'; //<<== пишем свой НИК
max=150;//<<== колличество ячеек в рюкзаке
xxx=3;//<<== безопасный уровень заточки
chat = 3;// <<== какой ЧАТ выводить сообщения
// 3 - Party; 4 - Clan; 9 - Alli; 10 - anons ; 17 - Hero;
//==========================================
// в пати чат пишем уровень заточки
// можно менять в процесе работы скрипта
// заточить один предмет чтоб запомнить чем и что точить
// СТАРТ нажать соцдействие ДА
// СТОП нажать соцдействие НЕТ
// включить системные сообщения соцдействие - приветствие \ hello
// выключить системные сообщения соцдействие - победа \ victory
//----------------------------
// возможно использовать скрол до безопасного уровеня заточки
// выше использовать блесс скрол
// для этого заточить предмет один раз скрол и один раз блесс скрол
//----------------------------
// дальше скрипт сам точит до указаного уровня заточки
// все предметы ОДИНАКОВЫЕ с ПЕРВЫМ заточеным
// скрипт точит первый предмет до +1, потом второй до +1 и т.д
// если предмет при заточки блесс скрол слетел на 0 или на уровень как у вас на сервере
// то будет точиться он пока несравняется с остальными
// и т.д
// пока недостигнете заданого уровня заточки
// если предметов более одного : один предмет остается
// АВТОР ==>>>> TAMBIK
//==========================================
var
BaseItems:array[1..max,1..11] of integer;
Baselvl:array[1..max] of integer;
Timer01: TTimer;
Timer02: TTimer;
Timer03: TTimer;
mytext:string;
autostart,start,autoMsg:Boolean;
flag : Boolean;
selectskrol,selectblessedskrol:Boolean;
autoselect:Boolean;
t,l,d,x,y,ii,i:integer;
ListSize,ItemEnch:word;
textID:integer;
enchantObjectID:integer;
enchantID,skrolObjectID,skrolObject:integer;
itemID,objectOID:integer;
sumskroll,sumskrol,sumitemID,sumitem:integer;
maxlvl,minlvl,enchlvl,selectlvl:integer;
ID,skrolID,blessedskrolID:integer;
skrolOID,blessedskrolOID:integer;
index :integer;
//===========================================
procedure SendMsg2(msg:string);
begin
if autoMsg then begin
buf:=#$4A;
WriteD(0);
WriteD(chat);// <<=куда выводить сообщения
WriteS('');
WriteS(msg);
SendToClientEx(myname);
end;
end;
//===========================================
procedure Resultmaxlvl;
var
i:integer;
begin
i:=2;
mytext:=ReadS(i);
textID:=ReadD(i);
if (textID=3) then begin
maxlvl:=StrToInt(mytext);
SendMsg2( ' Установлен МАХ Уровень Заточки: '+IntToStr(maxlvl)+'' );
pck:='';
exit;
end;
end;
//==========================================
procedure ActionUse;
begin
case ReadD(2) of
12:begin autoMsg:=true; end;
13:begin autoMsg:=false; end;
24:begin
if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
if (maxlvl=0) then SendMsg2( ' Неуказан Уровень Заточки !' );
SendMsg2( '_______________________________' );
if autostart and (maxlvl>0) then begin
buf:=hstr('14');
SendToServerEx(myname);
SendMsg2( ' ! ! ! П О Е Х А Л И ! ! !' );
SendMsg2( '_______________________________' );
start:=true;
end;
end;
25:begin
SendMsg2( ' ! ! ! С Т О П ! ! ! ' );
stopEnchantItem;// остановка скрипта
end;
end;
end;
//==========
procedure stopEnchantItem;// остановка скрипта
begin
autoMsg:=true;
start:=false;
deleteBase;
enchantID:=0;
ItemEnch:=0;
stopselectskrol;// отмена выбора скролл
SendMsg2 (' ___ О С Т А Н О В Л Е Н О ___ ');
Timer01.enabled:=false;
Timer02.enabled:=false;
Timer03.enabled:=false;
index :=0;
for ii:=1 to max do
Baselvl[ii]:=-1;
end;