посмотрите скрипт миниг кому не трудно

[Juicy Fruit]

Code: Select all

target target_key lasttile/object/ground [type graphic X Y Z]
where type=0 object, type=1 xyz

Это type, интересует следующий параметр, который -1 и он же graphic.
В сорцах написано что берется из объекта (если объектный таргет) или из параметров, если в параметре не указан то 0.

[Incorrect User]

Кстати неплохо было бы иметь нормальную команду таргет. Иногда возникала в ней потребность. Может переделаете эту? И чтобы прицел в клиенте не оставался. Но суть не в этом, у меня копал чар на их сервере с этой командой. Правда я задержку не ставил как вы говорили но он рыл, так же как с waittargettile.

[tyca7]

Кстати неплохо было бы иметь нормальную команду таргет. Иногда возникала в ней потребность. Может переделаете эту? И чтобы прицел в клиенте не оставался. Но суть не в этом, у меня копал чар на их сервере с этой командой. Правда я задержку не ставил как вы говорили но он рыл, так же как с waittargettile.

какая то внутренняя защита от инжекта сделана на стелсе рубит вообще без проблем

[Incorrect User]

Кого рубит?) Ну раз копает так копай на стелсе. У нас программистов дефицит, чтобы из инжекта сделать прелесть

[tyca7]

Кого рубит?) Ну раз копает так копай на стелсе. У нас программистов дефицит, чтобы из инжекта сделать прелесть

у меня на стелс нету минига только авто ламбер так у него вообще нет проблем а на инжекте не рубит таже самая беда как с минингом..((

[Incorrect User]

Найди любой мининг на стелс я переделаю под твой шард.

[tyca7]

Найди любой мининг на стелс я переделаю под твой шард.

отправил ссылку тебе в ЛС

[Incorrect User]

Ну что копает?

[tyca7]

Ну что копает?

нет я же написал те в лс там ошибки вылетают(((

[Incorrect User]

В лс ничего нет.

[Incorrect User]

Зачем мне пихать все скрипты подряд? Нужно было тот которым ты собираешься пользоваться, а там один для скал, другой для шахт... С этим не ко мне.Вот тебе, бери копай

Code: Select all

program Mining;
const 
allmsg =  'слишком далеко|too far away|не осталось руды|no ore here|mining in rock|loosen some rocks|Ore in your pack|Ores in your pack'
endmsg = 'слишком далеко|too far away|не осталось руды|no ore here|mining in rock'
var 
mx, my, mz, i, j:integer;
starttime : tdatetime;
Begin   
mx:=GetX(self);
my:=GetY(self);
mz:=GetZ(self);
for i:=mx-3 to mx+3 do
for j:=my-3 to my+3 do
repeat
   starttime:=Now;    
      Waittargettile('1341',i,j,mz);
      Usetype($0E85); 
      WaitJournalLine(starttime,allmsg,10000);
until injournalbetweentimes(endmsg,starttime,now);
end.

[tyca7]

Зачем мне пихать все скрипты подряд? Нужно было тот которым ты собираешься пользоваться, а там один для скал, другой для шахт... С этим не ко мне.Вот тебе, бери копай

Code: Select all

program Mining;
const 
allmsg =  'слишком далеко|too far away|не осталось руды|no ore here|mining in rock|loosen some rocks|Ore in your pack|Ores in your pack'
endmsg = 'слишком далеко|too far away|не осталось руды|no ore here|mining in rock'
var 
mx, my, mz, i, j:integer;
starttime : tdatetime;
Begin   
mx:=GetX(self);
my:=GetY(self);
mz:=GetZ(self);
for i:=mx-3 to mx+3 do
for j:=my-3 to my+3 do
repeat
   starttime:=Now;    
      Waittargettile('1341',i,j,mz);
      Usetype($0E85); 
      WaitJournalLine(starttime,allmsg,10000);
until injournalbetweentimes(endmsg,starttime,now);
end.

Compiler: [Error] (MIN.sc at 4:1): Semicolon (';') expected

[Incorrect User]

Code: Select all

program Mining;
const 
allmsg =  'слишком далеко|too far away|не осталось руды|no ore here|mining in rock|loosen some rocks|Ore in your pack|Ores in your pack';
endmsg = 'слишком далеко|too far away|не осталось руды|no ore here|mining in rock';
var 
mx, my, mz, i, j:integer;
starttime : tdatetime;
Begin   
mx:=GetX(self);
my:=GetY(self);
mz:=GetZ(self);
for i:=mx-3 to mx+3 do
for j:=my-3 to my+3 do
repeat
   starttime:=Now;    
      Waittargettile('1341',i,j,mz);
      Usetype($0E85); 
      WaitJournalLine(starttime,allmsg,10000);
until injournalbetweentimes(endmsg,starttime,now);
end.