Сайт Антареса Сайт Антареса Форум Антарес
> >

Здравствуйте, гость ( Вход | Регистрация )


> > Скрипты На Injection, Мои скрипты >
Deidan
сообщение 8.10.2005, 1:50
Сообщение #1


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Здесь я буду выкладывать скрипты на Инжект, которые не жалко)) Единственное что, я сижу на предыдущей версии инжект.длл , так что ето может повлиять на коректную работу скриптов. Может быть перейду скоро на новую, а пока так легче. Если вас интересует помощь по скриптам или инже, то можете писать в асю 172834594.

Красным выделены скрипты, которые работают неправильно.

Зелёным выделены скрипты, работающие на ура.




Тинкеринг с дида

БС с дида

Карпентри с дида

Ходилка, не знаю правда кому она нужна

Переплавка руды с банка и складывания инготов в дид

Инскрипт на ФС

Ламберджекинг ( не мой, просто его тут быстрее найдут)

Кемпинг

Провокация

Таминг

Скининг

Боукрафт (не мой)

Сообщение отредактировал Deidan - 27.11.2005, 15:04
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
8 страниц< 1 2 3 4 5 > »  
Ответить в эту темуОткрыть новую тему
> > Ответов(40 - 59) >
Deidan
сообщение 12.10.2005, 21:32
Сообщение #41


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Исходный код
Юзает провокацию. Советую поставить двух животных так, чтобы они не могли друг другу навредить, и также не могли укусить вас. Я их обстовлял сундуками с 4 сторон и становился посрединке. Главное чтобы чар видел обоих животных, а они не могли друг друга или чара ранить.

P.S. Спасибо Destruction что напомнил за знаки препинания, иначе бы я на д скриптом ещё долго болел ))


sub Prov()

  VAR Animal1
  VAR Animal2

  start:
  UO.Print( 'Первое животное' )
  UO.Exec ('addobject Animal1')
  while uo.targeting()
  wait(100)
  wend
  UO.DeleteJournal()
  repeat
 
  UO.Print( 'Второе животное' )
  UO.Exec ('addobject Animal2')
  while uo.targeting()
  wait(100)
  wend
  UO.DeleteJournal()
  repeat

  UO.WaitTargetObject('Animal1','Animal2')
  UO.UseSkill( 'Provocation' )
  wait (10000)
  until UO.Dead()
   goto start:
endsub


Сообщение отредактировал Deidan - 12.10.2005, 21:34
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 12.10.2005, 22:10
Сообщение #42


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Дело за алхимией, если найду где нибудь хотябы 100 пустых бутылок, тогда начну уже писать скрипт. Не смейтесь у меня на чар пару тысяч монет всего. Я хуже бомжа.



P.S. прошу прощения модераторов, я кажется нарушаю правила запостивания ответов одним автором. не судите строго.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Okypok
сообщение 13.10.2005, 3:59
Сообщение #43


Люди в курсе
Group Icon

Группа: Пользователи
Сообщений: 3 265
Регистрация: 7.7.2005
Из: Кащенко сбежал
Пользователь №: 1 229
Спасибо сказали: 8 раз(а)



Провок не тестил еще, но все равно спасибо. А что ты насчет таминга можешь сказать? rolleyes.gif

Сообщение отредактировал Okypok - 13.10.2005, 3:59
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Pasha
сообщение 13.10.2005, 4:35
Сообщение #44


Авторитет
Group Icon

Группа: Пользователи
Сообщений: 8 338
Регистрация: 26.3.2005
Из: Албании
Пользователь №: 711
Спасибо сказали: 201 раз(а)
Класс: Друид



[quote=Deidan,12.10.2005, 19:12]
У меня есть младшая сестра, ей 9 лет. Я попросил её прочитать то что написано в графе переменные, и сделать так чтобы чар убегал от пк, итд. Она мало того что ето сделала. Она ещё и запустила скрипт и поклацала на руны и топор.
[code]

обсирания для сестры оставь а со скриптом я разобрался когда вопрос писал не этот скрипт у меня был ! mad.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 13.10.2005, 5:00
Сообщение #45


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Я разве обсирал когото? Катить бочку то не надо. Как говорится -Помолчи - сойдёшь за умного.

Откуда мне было знать какой скрипт ты нашол и юзал? Ты такой умный удосужился сообщить об етом? Не заметил я этого.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Pasha
сообщение 13.10.2005, 5:17
Сообщение #46


Авторитет
Group Icon

Группа: Пользователи
Сообщений: 8 338
Регистрация: 26.3.2005
Из: Албании
Пользователь №: 711
Спасибо сказали: 201 раз(а)
Класс: Друид



щас если посмотреть ло ламбера ваще нет перед моим сообщением там другой скрипт был а в этом всё и так расписанно вот и всё dry.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 13.10.2005, 16:10
Сообщение #47


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Прозьба модератору, поставить этот топик где-ниюудь сверху, чтобы он не падал.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 13.10.2005, 22:18
Сообщение #48


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Исходный код
Таминг




var fruit='0x09D1' #То что будет хавать животина
var food= '0x097B' #то что сам будешь хавать
var Timer=UO.Timer()
var Animal, Staff

sub AnimalTaming()
UO.Msg('All release')

UO.Print('Де эта скатина?')
UO.Exec('addobject Animal')
  while uo.Targeting()
     wait(100)
  wend

UO.DeleteJournal()
while not UO.InJournal('It seems') or not UO.InJournal('see the creature')
  UO.DeleteJournal()
  UO.WaitTargetObject('Animal')  
  UO.Useskill('Animal Taming')
     repeat
        wait(100)
     until UO.InJournal('fail') or UO.InJournal('It seems') or UO.InJournal('remembers')
  if UO.Timer()>(Timer+1200) then
     UO.SetReceivingContainer('Animal')
        wait(500)
     UO.FindType(fruit)
        if UO.GetQuantity('finditem')>0 then
           UO.Grab('5','finditem')
              wait(500)
        end if
     UO.UnSetReceivingContainer('Animal')
        wait(500)
     UO.UseType(food)
     Timer=UO.Timer()
  end if
UO.Msg('All release')
wend
end sub
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Destruction
сообщение 13.10.2005, 23:56
Сообщение #49


Ступивший на тропу
Group Icon

Группа: Пользователи
Сообщений: 581
Регистрация: 27.9.2005
Пользователь №: 1 889
Спасибо сказали: 8 раз(а)



Чтобы он не падал, надо бы еще пару десятков скриптов rolleyes.gif

И поубирать лишние переносы строк!
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 14.10.2005, 0:09
Сообщение #50


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Я тестю по принцыпу, час скрипт проработал, значит скрипт рабочий )
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 14.10.2005, 3:11
Сообщение #51


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Исходный код
Скининг

Спасибо Jikus за предоставленный им скрипт на прокачку скининга и ещё нескольким авторов скриптов, к сожалению не запомнил имён.
Данный скрипт был мной немного улучшен. В нём теперь есть автоатака цели. Пытался сделать чтобы скрипт запускался одним сабом, но почему то не вышло. Поетому  вам приёдеться запускать, сперва  Sub attack а затем Sub Ranger. Думаю позже добавить сюда ходилку )





sub Attack()
DIM R[1]
R[1] = 0x002A #Тип убиенного животного, можно больше
VAR LastTimer, Attack
var a
repeat
for a=1 to 1
 UO.DeleteJournal()
 UO.FindType(R[1],-1,'ground')
 if UO.FindCount("finditem")>0 then
    Attack=UO.GetSerial('finditem')
    UO.Exec('warmode 1')
    UO.Attack(Attack)
    LastTimer=UO.Timer()
    repeat
        wait(2000)
     until uo.dead(Attack) or UO.InJournal('Body') OR LastTimer+100<UO.Timer()
  endif
  wait(500)
 next
 wait(200)

until uo.dead()
end sub

sub Ranger()
var skin = 1
var loot = 1
var loop = 1
var dagger = 0x0F51
var body

UO.DeleteJournal()
repeat
repeat
 wait(100)
until UO.InJournal("Body of")
body = UO.JournalSerial(UO.InJournal("Body of")-1)
UO.DeleteJournal()
if skin then
 if UO.GetDistance(body) <= 2 then
  UO.WarMode(0)
  UO.SetArm('skin')
  UO.WaitTargetObject(body)
  UO.UseType(dagger)
  wait(600)
 else
 endif
 UO.WarMode(0)
 UO.SetArm('skin')
 UO.WaitTargetObject(body)
 UO.UseType(dagger)
 wait(600)
endif

if loot then
 if UO.GetDistance(body) <= 2 then
  F_Loot()
 else
 endif
endif

if skin then
 UO.Arm('Weapon')# Оденьте оружие ближнего боя и напишите перед запуском #скрипта ,setarm Weapon
endif
UO.WarMode(1)
until not loop
endsub


sub F_Loot()
DIM R[12]
var c
R[1]=0x0df8; шерсть
R[2]=0x1078; кожа
R[3]=0x0EED; деньги
R[4]=0x09AA; пандоры
R[5]=0x0F85; GI
R[6]=0x0F7B; BM
R[7]=0x0F8C; SA
R[8]=0x0F7A; BP
R[9]=0x0F84; GA
R[10]=0x0F88; NS
R[11]=0x0F8D; SS
R[12]=0x0F86; MR

for c=1 to 12
repeat
uo.findtype(R[c],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(1200)
end if
until UO.FindCount()<1
wait(10)
next
endsub

sub Numb(num)
if num>=0 then
return num
else
return num*(-1)
end if
end sub






Исходный код
Почти тоже но с ходилкой.



sub Attack()
uo.set('finddistance','20')
DIM R[5]
R[1] = 0x00D8 # Тип убиваемого зверя.Можете уведичить кол-во.
R[2] = 0x00E9
R[3] = 0x00CF
R[4] = 0x00E7
R[5] = 0x00D0
VAR LastTimer, Attack
var a
repeat
for a=1 to 5
 UO.DeleteJournal()
 UO.FindType(R[a],-1,'ground')
 if UO.FindCount("finditem")>0 then
    Attack=UO.GetSerial('finditem')
    UO.Exec('warmode 1')
    UO.Attack(Attack)
    WalkN(0,0,Attack)
    LastTimer=UO.Timer()
    repeat
        wait(2000)
     until uo.dead(Attack) or UO.InJournal('Body') OR LastTimer+150<UO.Timer()
  endif
  wait(500)
 next
 wait(200)
until uo.dead()
end sub

sub Ranger()
var skin = 1; качать скининг
var loot = 1; лутить тело
var loop = 1; автомат
var dagger = 0x0F51
var body

UO.DeleteJournal()
repeat
repeat
 wait(100)
until UO.InJournal("Body of")
body = UO.JournalSerial(UO.InJournal("Body of")-1)
UO.DeleteJournal()
if skin then
 if UO.GetDistance(body) <= 2 then
  UO.WarMode(0)
  UO.SetArm('skin')
  UO.WaitTargetObject(body)
  UO.UseType(dagger)
  wait(600)
 else
 endif
 UO.WarMode(0)
 UO.SetArm('skin')
 UO.WaitTargetObject(body)
 UO.UseType(dagger)
 wait(600)
endif

if loot then
 if UO.GetDistance(body) <= 2 then
  F_Loot()
 else
 endif
endif

if skin then
 UO.Arm('Weapon')# Наденьте оружие ближнего бояи введите слова ,setarm Weapon
endif
UO.WarMode(1)
until not loop
endsub


sub F_Loot()
DIM R[14]
var c
R[1]=0x0df8; шерсть
R[2]=0x1078; кожа
R[3]=0x0EED; деньги
R[4]=0x09AA; пандоры
R[5]=0x0F85; GI
R[6]=0x0F7B; BM
R[7]=0x0F8C; SA
R[8]=0x0F7A; BP
R[9]=0x0F84; GA
R[10]=0x0F88; NS
R[11]=0x0F8D; SS
R[12]=0x0F86; MR
R[13]=0x1BD1; перья
R[14]=0x0F8F; Volcanic Ash

for c=1 to 14
repeat
uo.findtype(R[c],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(1200)
end if
until UO.FindCount()<1
wait(10)
next
endsub

sub Numb(num)
if num>=0 then
return num
else
return num*(-1)
end if
end sub

sub WalkN(x,y,Target)
VAR i,StepSucess
VAR dx,dy,Exit=0

While Exit<>1
If Target<>"" Then
dx=UO.GetX(Target)-UO.GetX()
dy=UO.GetY(Target)-UO.GetY()
If UO.GetDistance(Target)<2 Then
Exit=1
Endif
Else
dx=x-UO.GetX()
dy=y-UO.GetY()
If dx==0 AND dy==0 Then
Exit=1
Endif

Endif

If dx<>0 AND dy<>0 Then
If dx>0 AND dy>0 Then
StepSucess=Go(3,40,300);SE - DownArrow
Endif

If dx>0 AND dy<0 Then
StepSucess=Go(1,39,300);NE - RightArrow
Endif

If dx<0 AND dy>0 Then
StepSucess=Go(5,37,300);SW - LeftArrow
Endif

If dx<0 AND dy<0 Then
StepSucess=Go(7,38,300);WN - UpArrow
Endif

Endif

If dx<>0 AND dy==0 Then
If dx>0 Then
StepSucess=Go(2,34,300);E - PgDown
If StepSucess==-1 Then
StepSucess=Go(3,40,300);SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(1,39,300);NE - RightArrow
Endif
Endif
Endif

If dx<0 Then
StepSucess=Go(6,36,300);W - Home
If StepSucess==-1 Then
StepSucess=Go(7,38,300);WN - UpArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300);SW - LeftArrow
Endif
Endif
Endif
Endif


If dx==0 AND dy<>0 Then
If dy>0 Then
StepSucess=Go(4,35,300);S - End
If StepSucess==-1 Then
StepSucess=Go(3,40,300);SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300);SW - LeftArrow
Endif
Endif
Endif

If dy<0 Then
StepSucess=Go(0,33,300);N - PgUp
If StepSucess==-1 Then
StepSucess=Go(7,38,300);WN - UpArrow
If StepSucess==-1 Then
StepSucess=Go(1,39,300);NE - RightArrow
Endif
Endif
Endif
Endif
Wend
end sub


sub Go(dir,key,walkwait)
VAR x,y

x=UO.GetX()
y=UO.GetY()

while UO.GetDir()<>dir
UO.Press(key)
wait(walkwait)
If UO.GetDir()<>dir Then
Endif
wend

UO.Press(key)
wait(walkwait)

If x==UO.GetX() AND y==UO.GetY() Then
Endif

If x==UO.GetX() AND y==UO.GetY() Then
return -1
Else
return 1
Endif
end sub


Сообщение отредактировал Deidan - 4.11.2005, 0:13
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 14.10.2005, 3:17
Сообщение #52


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Такой вопрос. Я в начале этого топика каждый раз пишу ссылку на скрипт, но оно не так открывает их почемуто. Обьясните будьте добры, как сделать, чтобы ссылки направляли на конкретное сообщение?
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
bober
сообщение 14.10.2005, 3:21
Сообщение #53


Гость









Что могу сказать .. только одно ... Респект чувак ... я надеюсь ты так дальше будешь писать такие Скрипты !!!!!!!!!!! biggrin.gif biggrin.gif
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 14.10.2005, 20:11
Сообщение #54


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Такс, я сейчас на мели, так что если хотите скрипт на алхимию, то пожертвуйте регов штук 200 и бутылок штук 50 хотябы.

И вроде бы все скрипты которые запрашивали уже исчерпаны, потому жду новых заказов.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
BeS
сообщение 14.10.2005, 21:42
Сообщение #55


Идущий по тропе
Group Icon

Группа: Пользователи
Сообщений: 1 002
Регистрация: 19.8.2005
Пользователь №: 1 555
Спасибо сказали: 0 раз(а)
Класс: Рейнджер



на тейлор скриптик желательно бы, чтоб по принцепу алхимии делал брал ткань, нитки, делал эти шапки, и в мешок складывал, а мешок скидывал в сундук... плз, если не очень затруднит...
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 14.10.2005, 21:47
Сообщение #56


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Замётано, напоминаю, что в первом посте этого топика содержатся корректные ссылки на скрипты по этому топику.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Antiklimov
сообщение 15.10.2005, 13:20
Сообщение #57


Реальный чувак
Group Icon

Группа: Пользователи
Сообщений: 458
Регистрация: 6.8.2005
Из: Москвы
Пользователь №: 1 426
Спасибо сказали: 0 раз(а)
Класс: Друид



Не знаю может у меня руки кривые, но скрипт на кемпинг пишет parse error и не запускается unsure.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Jikus
сообщение 15.10.2005, 13:27
Сообщение #58


Ступивший на тропу
Group Icon

Группа: Пользователи
Сообщений: 518
Регистрация: 30.5.2005
Пользователь №: 1 070
Спасибо сказали: 5 раз(а)
Класс: Рейнджер



2 Deidan как править ошибку с карпом

Исходный код
   wait(1000); <<< исправит стаффы
   UO.Usetype(CarpenterTools)
   repeat
    wait(100)
   until UO.InJournal("You put|fail|You broke your tools") or UO.Timer()>LastTimer+200
  endif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 15.10.2005, 15:04
Сообщение #59


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Цитата(Jikus @ 15.10.2005, 13:27)
2 Deidan как править ошибку с карпом

Исходный код
   wait(1000); <<< исправит стаффы
   UO.Usetype(CarpenterTools)
   repeat
    wait(100)
   until UO.InJournal("You put|fail|You broke your tools") or UO.Timer()>LastTimer+200
  endif

*



Благодарю.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 15.10.2005, 20:36
Сообщение #60


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Исходный код
Боукрафт, не мой. Нашол на форуме, но он был некоректно запостован, потому ссылку не давал. Скрипт выкладывал Mr.Nikon. Жму его мужественную руку.



############################### GooD BowCrafting #################################
################################### Crafted by ###################################
################################ Coal aka Brona ##################################
############################# All rights reserved ################################
############################# GuildMaster Sergant ################################
############################# Copyright by [GoBS] ################################
################################################################################


##

VAR sunduk='0x401EEB75'; Сундук - логи, нитки, пустые мешки
VAR sundukk='0x40758612'; Куда кидаем
VAR meshok='0x0E76'; Тип мешков
VAR derevo='0x1BDD'
VAR teteva='0x0FA0'
VAR smeshok

VAR a=0


sub mt()

repeat


while not UO.Hidden()


UO.UseSkill("Stealth")
wait(4100)
wend

UO.UnSetCatchBag()


wait(3000)
UO.FindType( derevo, -1, sunduk )
UO.Grab( Str( 310 ), 'finditem' )
wait(5000)



UO.FindType( teteva, -1, sunduk )
UO.Grab( Str( 50 ), 'finditem' )
wait(5000)



UO.FindType( meshok, -1, sunduk )
UO.Grab( Str( 1 ), 'finditem' )
wait(5000)

smeshok=UO.GetSerial('finditem')


a=0

wait(1000)

repeat


wait(500)

UO.SetCatchBag(smeshok)

UO.WaitMenu('What','Bow')
Uo.WaitTargetType(derevo)
UO.UseType('0x0f51')


wait (1000)

UO.DeleteJournal()

while not (UO.InJournal("You put") or UO.InJournal("fail"))
wait(300)
wend

UO.UnSetCatchBag()


if UO.InJournal('You put') then
a = a + 1
wait(200)
endif
UO.DeleteJournal()



until a==50

UO.Unsetcatchbag()

UO.FindType( meshok, -1, -1 )
UO.MoveItem( 'finditem', 0, sundukk )
wait(5000)

UO.FindType( derevo, -1, -1 )
UO.MoveItem( 'finditem', 0, sunduk )
wait(5000)

until FALSE

end sub



Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 

8 страниц< 1 2 3 4 5 > » 
Ответить в эту темуОткрыть новую тему
> >
3 чел. читают эту тему (гостей: 3, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия Сейчас: 23.7.2018, 2:22
Design: Fisana  © 2005-2006 IBR Team