Kallish

Ну, у меня мозгов на что хватает, то и делаю =)))

бывает глючит и чар дохнет от моба поэтому я и говорю что нужно добавлять хилинг и страховку на клик киркой добавлять фразу гвардс) CheckDead; CheckPickaxe; SetWarMode(true); uosay('.bandage self'); uosay('.guards); UseObject(ObjAtLayer(RhandLayer)); t := 0; repeat wait(50); checksave;

целестит, еретрит, мифрил, адамант очень хорошо растет до 105. да хз без него у меня чет не запускался. неактуально когда выходишь из минока, хотя в твоем варианте для минок шахты - да. попробую разобраться.

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).

это одно и тоже. что в смол товере защищают шипы дома, что тут защищают перила.

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

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

Разница в том, что я нахожусь на высоте. Защищен перилами и забором который стоит на ступеньках.

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

Тоже самое что атаковать на крыше товера. С расстояния в дом. С каких пор крыльцо - это не часть дома?. На него распространяется сэйв рекол - значит дом. http://middle-earth.ru/forum/index.php?showtopic=5884 p.s. по поводу русского языка и правильности написания слов - не твое дело, как хочу, так и пишу - это интернет, к тому же - у меня температура.

атака в доме и использованием бага http://rghost.ru/40182964/image.png

Скинь, если не затруднит, меня сам алгоритм кликанья киркой интересует.

немогу осилить на стелсе миниг, есть ли удалец на шарде способный заставить копать хотя бы в один тайл?)

А починить таминг слабо? У меня 2 друида что происходит на первом - 105 таминга+ посох ~130 таминга тамит до 3 нормальных ездовых(2 ворта, 1 найтмар) на втором 168 таминга , вообще не кого не может контролировать....... лог-ауты не помогают.

Даешь каждому канцлера на шарде, ну кроме конечно слайдера. Хочу предложить следующее, если в сообщение игрок обращается к другому игроку на "Вы", с последующим оскорблением, унижением его личных достоинств и рассовых свобод, то наказание не накладывается. Т.к. выдерживается нотка этики. Опять таки, что мешает игроку на скорую руку зарегистрировать новый аккаунт, ребутнуть модем, тем самым получив новый айпи и полить обидчика отборным матерным сортом Г.? А ГМы, будут вести круглосуточный дозор за чатом, или будет царить несправедливость, когда игрок в отсутсвии Гма поливает грязью, а в присутствии общается как при царе батюшке. p.s. Есть предложение, осуществить систему общественного голосования - игрок отсылающий не приятный текст в чат, выставляется на голосование шарда(10-15 секунд) игроки стоящие не в афк пишут .vote 1 - бан чата на сутки, vote 0 - соответственно помиловать. Вот тогда, когда чатом будет править народ, как мне кажется каждый будет удовлетворен системой наказания. Тоесть к примеру за фразу "ник_игрока у тебя кривые руки, ты играешь, как бабка, а друзья твои полные нубасы, только и подсасывать умеют" грозит баном чата на несколько лет?)

Mars, давай, будешь опять плакать как во времена ме2 от моего клера) ДАВОТАФАК ПОЧЕМУ ВАЗЛОР НЕ РАБОТАЕТ и все в этом духе))))))

Я ваще не видел что бы ме1 запускали))) p.s. сделайте на форуме возможность добавлять анимированные аватары))

Сегодня-завтра, приедет администратор Nicotine с отпуска, обязательно ответит!

Вообще по хорошему уважаемому Римону ДАВНО пора размещать банеры чужих сайтов на сайте миддлы, в обмен на то, что они разместят банер мидлы у себя.

UseObject(FindType ($097B,Container)); Я просто вставил это туда, теперь он у меня жрет только когда выходит системное сообщение.

Мне кажется это проделки слайдера

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

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!

Я уже сделал=)

Код 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.