Перейти к содержанию
Наш Discord сервер: https://discord.gg/x53pHgq5qN ×
Форум шарда Middle-Earth

Kallish

Members
 Профиль  Обзор контента

  • Публикаций

    124

  • Зарегистрирован

  • Посещение

Сообщения, опубликованные Kallish

  2. Опубликовано · Пожаловаться 

     бывает глючит и чар дохнет от моба

    поэтому я и говорю что нужно добавлять хилинг и страховку на клик киркой добавлять фразу гвардс)

     

                CheckDead;
            CheckPickaxe;
            SetWarMode(true); 
            uosay('.bandage self');
            uosay('.guards);
        UseObject(ObjAtLayer(RhandLayer));
            t := 0;
            repeat
              wait(50);
              checksave;

  3. Опубликовано · Пожаловаться

    Если мининга выше 100, то прокачка на плавке руды не даёт поинтов к скилу. Уже проверял...

    целестит, еретрит, мифрил, адамант очень хорошо растет до 105.

     

    Color2 это зачем тут?

     

    да хз без него у меня чет не запускался.

     

    Зачем? Есть же гвардс.

     

    неактуально когда выходишь из минока, хотя в твоем варианте для минок шахты - да.

    Поставь дистанцию на поиск: FindDistance, FindVertical

    попробую разобраться.

  4. Опубликовано · Пожаловаться

    2 nepret

    Ну ты и голова! Я бы не догадался так заставить кликать чара. Вобщем рекомендую ньби кирку сделать чару, тогда не нужно будет заморачиваться с проверкой кирки! Я конечно не стремлюсь к абсолютному автономному скрипту, но я вырезал половину - рекол домой, чек дед, дресс, дроп. Оставил алгаритм копания, точней взял его за основу. Хочу сделать все-таки аутотайловый мининг под любую шахту). Если сделаю, поделюсь обязательно хотя с моими мозгами я думаю это будет где-то через год)))))))

     

    По твоему скрипту - не хватает подхила чара(фраза Ouch!), режим вармода - всегда. почему то не хочет чар реколиться к шахте после речарджа буки(если она полная). Смысл плавить руду сразу? пусть в виде руды чар складирует. а потом уже самостоятельно решать - стоит плавить всю или кому-то стоит прокачать мининг.

     

     

    procedure DropRes;
var
i, Color2 : integer;
Color : array [0..24] of cardinal;
begin 
  Color[0] := $0602; // нижка
  Color[1] := $0000; //
  Color[2] := $0386; //
  Color[3] := $01BF; //
  Color[4] := $03E9; //
  Color[5] := $0590; //
  Color[6] := $0162; //
  Color[7] := $0160; //
  Color[8] := $0455; //
  Color[9] := $0253; //
  Color[10] := $0482; //
  Color[11] := $0488; // purtit
  Color[12] := $0698; // deep 
  Color[13] := $05D2; // aqua
  Color[14] := $0482; // silver
  Color[15] := $0253; // valorit
  Color[16] := $0949; // druidsilver
  Color[17] := $0577; // air
  Color[18] := $051E; // celestit
  Color[19] := $0457; // ereirit
  Color[20] := $08EA; //ppk
  Color[21] := $052D; //mythril
  Color[22] := $0944; //sun
  Color[23] := $0942; //wyrm
  Color[24] := $0481; //adamant
  for i:=0 to 24 do 
begin 
//Addtosystemjournal('Разгружаюсь'); 
FindTypeEx($19B9,Color[i],backpack,False); 
if (FindCount>0) then 
begin 
MoveItem(FindItem,0,ground,0,0,0); 
wait(200); 
checksave; 
end; 
end; 
end;

     

    Как сделать так что б складывал в стак - я хз. Хоть у тебя в скрипте есть пример - я не понял.

    Вобщем, что ещё нужно добавить - детект перед использованием кирки, бинт, если фэйлед - .c "help". команду для принудительного выгона из шахты на журнал (qomou) или любая другая (disarm, .Recall).

  7. Опубликовано · Пожаловаться

    Да что ты говоришь?) прямо таки можно с любого тайла растрелять\запарализить\закурсить?)) самому то не смешно такие вещи писать?))) перила - это статик объект. такой как дерево - в окло же когда ты бежишь за кем нибудь через деревья ты не можешь достать костями

  9. Опубликовано · Пожаловаться

    Я стою вверху крыльц, где защищен перилами, стоит забор на ступеньках - я защищен в круг. В меня летят всякие стрелки, курсы, кто то прибежал пуром. Найди разницу между смолл-товером и этим крыльцом - её нет. Вы с расстояния меня атаковали. следовательно использовали ошибки скрипта сервера(баг). пожайлуте в джаил на 14 дней.

  10. Опубликовано · Пожаловаться

    Тоже самое что атаковать на крыше товера. С расстояния в дом. С каких пор крыльцо - это не часть дома?. На него распространяется сэйв рекол - значит дом.

    http://middle-earth.ru/forum/index.php?showtopic=5884

     

    p.s. по поводу русского языка и правильности написания слов - не твое дело, как хочу, так и пишу - это интернет, к тому же - у меня температура.

  14. Опубликовано · Пожаловаться

    А починить таминг слабо?

    У меня 2 друида что происходит на первом - 105 таминга+ посох ~130 таминга тамит до 3 нормальных ездовых(2 ворта, 1 найтмар)

    на втором 168 таминга , вообще не кого не может контролировать....... лог-ауты не помогают.

  15. Опубликовано · Пожаловаться

    Даешь каждому канцлера на шарде, ну кроме конечно слайдера. Хочу предложить следующее, если в сообщение игрок обращается к другому игроку на "Вы", с последующим оскорблением, унижением его личных достоинств и рассовых свобод, то наказание не накладывается. Т.к. выдерживается нотка этики. Опять таки, что мешает игроку на скорую руку зарегистрировать новый аккаунт, ребутнуть модем, тем самым получив новый айпи и полить обидчика отборным матерным сортом Г.? А ГМы, будут вести круглосуточный дозор за чатом, или будет царить несправедливость, когда игрок в отсутсвии Гма поливает грязью, а в присутствии общается как при царе батюшке.

     

    p.s. Есть предложение, осуществить систему общественного голосования - игрок отсылающий не приятный текст в чат, выставляется на голосование шарда(10-15 секунд) игроки стоящие не в афк пишут .vote 1 - бан чата на сутки, vote 0 - соответственно помиловать. Вот тогда, когда чатом будет править народ, как мне кажется каждый будет удовлетворен системой наказания.

     

    Тоесть к примеру за фразу "ник_игрока у тебя кривые руки, ты играешь, как бабка, а друзья твои полные нубасы, только и подсасывать умеют" грозит баном чата на несколько лет?)

  22. Опубликовано · Пожаловаться

    вырезаеться как минимум пол скрипта...

    Мне было достаточно исправить одной строчки, что бы скрипты запускались и чар жрал - больше мне не че не нужно) я не мега скриптер и ваще скриптовать не умею) Выкладываю рабочие скрипты - хотите пользуйтесь, хотите нет )

     

    Если не забью на уо, займусь написанием скрипта на подобии как у мессира, только для стелса)

  23. Опубликовано · Пожаловаться

    2nepret скрипт работает, на нашем шарде!

    Вот, кое что я исправил теперь он идиально работает, инклюд исправляется под наш шард - меняется одна строчка и все.

     

    program cast;
const
sunduk = $4499C893;
var 
r,i : integer;
s : string;
MissingReg : cardinal;
Reags : array[1..8] of cardinal;
ctime : TDateTime;

{$Include 'all.inc'}


function timer(var acttimer:integer;actafter:integer):boolean;
begin
   result:=false;
   acttimer:=acttimer+1;
   if acttimer>=actafter then
   begin
      acttimer:=0;
      result:=true;       
   end;
end;

procedure CheckJournal;
begin
if InJournalBetweenTimes('Cast!', ctime, Now) <> -1 then 
    begin
    WaitTargetObject(LineID);
    cast('Bless');
    wait(3000);
    WaitTargetObject(LineID);
    cast('Protection');
    wait(3000)
    UseSkill('Spirit Speak');
    exit;
    end;
if InJournalBetweenTimes('Ress!', ctime, Now) <> -1 then
    begin    
    WaitTargetObject(LineID);
    cast('Resurrection');
    wait(3000);     
    exit;
    end;
if InJournalBetweenTimes('help', ctime, Now) <> -1 then
    begin
    uosay('Скажи мне "cast!"- c большой буквы');
    wait(100);
    uosay('Скажи мне "ress!"- c большой буквы');
    wait(100);
    uosay('Скажи мне "bless!"- c большой буквы');
    wait(100);
    uosay('Скажи мне "prot!"- c большой буквы');
    wait(100);
    UseSkill('Spirit Speak');
    exit;
    end;
if InJournalBetweenTimes('Bless!', ctime, Now) <> -1 then 
    begin
    WaitTargetObject(LineID);
    cast('Bless');
    wait(1000);
    UseSkill('Spirit Speak');
    exit;
    end;
if InJournalBetweenTimes('Prot!', ctime, Now) <> -1 then 
    begin
    WaitTargetObject(LineID);
    cast('Protection');
    wait(1000);
    UseSkill('Spirit Speak');    
    exit;
    end;
end;

function CheckReags : boolean;
begin
Result := True;
Reags[1] := $0F7B // BloodMosss
Reags[2] := $0F7A // BlackPearls
Reags[3] := $0F84 // Garlick
Reags[4] := $0F85 // Ginseng
Reags[5] := $0F86 // Madrake Roots
Reags[6] := $0F88 // NightShades
Reags[7] := $0F8C // Sulphuruos Ashs
Reags[8] := $0F8D // Spider Silks
for r := 1  to 8  do
    begin 
    findtype(Reags[r],BackPack);
    if findcount = 0 then  
        begin
        MissingReg := Reags[r];
        Result := False;
        end; 
    end;
end;

procedure Waiting;
begin
if MissingReg = $0F7B then s := 'BloodMosss';
if MissingReg = $0F7A then s := 'BlackPearls';
if MissingReg = $0F84 then s := 'Garlick';
if MissingReg = $0F85 then s := 'Ginseng';
if MissingReg = $0F86 then s := 'Madrake Roots';
if MissingReg = $0F88 then s := 'NightShades';
if MissingReg = $0F8C then s := 'Sulphuruos Ashs';
if MissingReg = $0F8D then s := 'Spider Silks';
AddToSystemJournal('KoH4uJIucb ' + s);
while (not CheckReags) do
    begin 
    ctime := now;
    wait(10000);
    if InJournalBetweenTimes('Cast!|Bless!|Prot!|Ress!', ctime, Now) <> -1 then uosay('KoH4uJIucb ' + s );
    uosay(' ');
    findtype(MissingReg,sunduk);
    if findcount > 0 then MoveItems(sunduk, MissingReg, $FFFF, backpack, 0, 0, 0, 500);
    end; 
end;

BEGIN
MissingReg := 0;
while (not dead) do
    begin 
    if (not CheckReags) then Waiting;
    ctime:=now;
    wait(1000);
        if timer(i,100) then 
        begin
        Hungry(1,backpack);
        uosay(' ');
        end;
    if TargetPresent then CancelTarget;
    CheckJournal;
    if mana < 35  then 
        begin
        wait(1000);
        useskill('Meditation');
        WaitJournalLine(now,'stop medit',30000);
                end;
    end;
END.

     

    Для того что бы реснуть госта - нужно написать в гильд чат help, потом просто в чат Ress!

  25. Опубликовано · Пожаловаться 

    Код
Program Evaluate;
var t:integer;

{$Include 'all.inc'}

Begin
SetARStatus(true); //Включаем автореконектор
Hungry(1,backpack);
while not dead do // Зацикливаем
begin
for t:=0 to 30 do
begin
CheckSave;
CheckTargetError(2,2); //Проверяем нет ли левого таргета
UseSkill('Evaluate Intelligence');
WaitTargetObject(self);
Wait(10500);
end;
Hungry(1,backpack); //Проверяем голод
end;
End.

×
×
  • Создать...