массив

[BoBBaH]

Скрипт готов, спасибо всем кто пытался меня переубедить что я дурак.
принцип: в бекпаке лежит 2 сена(обязательное условие, не более 2х)
они-то нам и нужны, если нужно еще сено носите в мешочке. По нажтию бинда, ваш чар кидает 2 сеня по -1 +1 координатам(от чара) по иксу. далее можно спокойно ставить кресты, надо только знать как

Code: Select all

############################################
#################   DRW   ##################
#              Script by BoBBaH            # 
#              Seno(c) ver. 1.06           #
# npuHcun: B nake legit 2 seHa, v otdelHom # 
#  mewo4ke mogHo ewe Hosit seHo. Baw char  #
#   no laststatusu kidaet 2seHa ryadom     #
#    s vragom. Dlya Hovogo pvp Ha DrW.     #
############################################
sub seno()
   var x, y 
     x=uo.getX('laststatus') 
     y=uo.getY('laststatus') 
   var i,Exit 
      DIM seno[3]
       seno[0]=0x0F36 ; #Bse 3 tipa sena
       seno[1]=0x100C ;#-\\-\\-\\-\\-\\-
       seno[2]=0x100D ;#-\\-\\-\\-\\-\\-
      For i=0 to 2
       Exit=0
     uo.FindType(seno[i],'-1','backpack') 
     uo.Drop('1', x-1, y, 0, 'finditem') 
      wait(3)
        next
     uo.FindType(seno[i],'-1','backpack') 
     uo.Drop('1', x+1, y, 0, 'finditem') 
endsub

вот тестируйте..

[kexwer]

А он их назад собирает?

[Nmy]

Code: Select all

wait(1) 

лудше ставить чеклаг, если будет лаг, скрипт продолжет когда он закончится...

[BoBBaH]

нуну посоеветовал ты лучше пример приведи, я ж говарю скрипты ваше писать не умею)

[BoBBaH]

А он их назад собирает?

нет не собирает, а нафиг надо? если хочешь напиши сам(а)..

[Dominator]

нуну посоеветовал ты лучше пример приведи, я ж говарю скрипты ваше писать не умею)

ЗЫ вот скриптец тебе на чеклаг. вставь его куда нибудь и усё так сказать (если ошибаюсь то подправте меня ктонить)

Code: Select all

sub Cheklag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   Repeat 
      Wait(10) 
   Until UO.InJournal("backpack") 
end sub 

[Nmy]

Code: Select all

sub seno()
   var x, y
     x=uo.getX('laststatus')
     y=uo.getY('laststatus')
   var i,Exit
      DIM seno[3]
       seno[0]=0x0F36 ; #Bse 3 tipa sena
       seno[1]=0x100C ;#-\\-\\-\\-\\-\\-
       seno[2]=0x100D ;#-\\-\\-\\-\\-\\-
      For i=0 to 2
       Exit=0
     uo.FindType(seno[i],'-1','backpack')
     uo.Drop('1', x-1, y, 0, 'finditem')
      CheckLag()
        next
     uo.FindType(seno[i],'-1','backpack')
     uo.Drop('1', x+1, y, 0, 'finditem')
endsub

sub Cheklag()
   UO.DeleteJournal()
   UO.Click('backpack')
   Repeat
      Wait(10)
   Until UO.InJournal("backpack")
end sub 

[BoBBaH]

с чеклагом скрипт не пашет оставляем скрипт изменив время вэйт до 3-х милесекунд

[BoBBaH]

к админам: пропишите скрипт в поисковые топы..

[Savage]

От задержки в чеклаге меньше 200 сильно лагает машину. Так что не рекомендую. Две десятые секунды вполне разумное и очень быстрое время ожидания.

[BoBBaH]

бля при чеклаге скрипт работает не правильно он кладет оба сена в 1 кучку поэтому я ставлю вэит, не нравица правь сам для себя) скрипт очень даже не плохой подходящий под нынешнее пвп сервера дрв!!!

[Savage]

Автор, ты на гигабитном оптоволокне что ли сидишь?

По теме.
Мне кажется будет лучше скрипт запускать двумя потоками. То есть один скрипт бросает сено слева другой справа и выполняются практически одновременно. Чтоб сено не путалось при поиске, пихаем его в разные мешки и поиск в каждом скрипте ведем в своем мешке. Если все таки указатель финдитем один на все потоки скриптов то можно дополнить скрипт маленькой приблудой которая добавляет в объекты пару стогов сена. И юзать ее перед варкой или с новым сеном.

Кстати, с объектами скрипт быстрее будет, не требуется время на поиск сена.

[Savage]

бля при чеклаге скрипт работает не правильно он кладет оба сена в 1 кучку поэтому я ставлю вэит, не нравица правь сам для себя) скрипт очень даже не плохой подходящий под нынешнее пвп сервера дрв!!!

Скрипт твой пока что только идея и набросок. Он сильно далек от совершенства. Никто не принижает твоих стараний.

Я тоже не сторонник динамических задержек в подобных скриптах. Тут надо больше работать руками и принимать верные решения. А не ждать пока бакпак отлагает.

[BoBBaH]

понимаешь для меня это идеально все работает в моих руках, так для справки для тех кто на меня напал, не считаю скрипты типо хелоу фром мэин это мой первый скрипт написан, мне вообще никто не помог как бы я не просил.....

[ebobat]

вован нуб тупой, специально сделали чтобы стенки выводили из парала, а ты падла пвп поганишь... ппц

[Destruction]

вован нуб тупой, специально сделали чтобы стенки выводили из парала, а ты падла пвп поганишь... ппц

*Взмахивает посохом власти*

[BoBBaH]

вован нуб тупой, специально сделали чтобы стенки выводили из парала, а ты падла пвп поганишь... ппц

Эт не твое дело, на дрв одни крысы, еще тупее делают: обкладывают всякими шнягами вдмаем и юника ставят - это типо круто? пвп испоганили вы, а я упрощаю для СЕБЯ игру, а то что я выставил: знаю 4-х человек, которые скачали данный скрипт, ни 1 не спог им пользоваца

[darkangelgg]

вован нуб тупой, специально сделали чтобы стенки выводили из парала, а ты падла пвп поганишь... ппц

Согласен, но не так грубо;)

[xarek]

ошибочку пишет:) bad operation for this type of variable - SENO
помогите:)

[xarek]

ой все разобрался сам)) простите за флуд, но я правдо не в чем суть проблемы но я у долили

Code: Select all

#-\\-\\-\\-\\-\\- 

Эти штуки и все Заработало:)
и ещё

Code: Select all

   Exit=0

поставил перед

Code: Select all

For i=0 to 2 

а не после,
ЗЫ мож еому в дальнейшем поможет:)