помогите с модификацией скрипта на пойзонинг

Дисконнект™ · Post by **Дисконнект™** » 2006-02-26 18:58:47

sub poison() 
; v. 1.02 (c) Edred 
; Положите рядом с чаром на пол побольше меду и lesser poison, 
; поставьте рядом сундук, занесите его сериал в переменную 
; Sunduk (туда будут сбрасываться пустые бутылки и отравленный мед) 
; Если что-то не берет - значит положили далеко от чара, 
; поправьте цифру в команде set finddistance 
; 
   VAR Sunduk = '0x404331B7' 
   VAR Med = '0x09EC' 
   VAR LesPois = '0x0F0A' 
   VAR EmpBot = '0x0F0E' 
   VAR MedSer, k 
   UO.Exec('set finddistance 2') 
   While TRUE 
      UO.FindType( Med, -1, 1 ) 
      If UO.FindCount() == 0 Then 
         UO.Print("Jars not found, script terminated") 
         return 
      Endif 
      UO.Grab( '1', 'finditem' ) 
      wait( 2000 ) 
      UO.FindType( LesPois, -1, 1 ) 
      If UO.FindCount() == 0 Then 
         UO.Print("Bottle of Poison not found, script terminated") 
         return 
      Endif 
      UO.Grab( '1', 'finditem' ) 
      wait( 2000 ) 
      UO.DeleteJournal() 
      UO.WaitTargetType( Med ) 
      UO.UseObject( 'finditem' ) 
      k = 0 
      while NOT UO.InJournal('You apply lesser poison') AND NOT UO.InJournal('You fail to apply lesser poison') AND ( k < 30 ) 
         k = k + 1 
         wait(500) 
      wend 
      UO.Print( 'meda v pake ' + str( UO.Count( Med ) ) ) 
      if UO.Count( Med ) > 0 then 
         UO.FindType( Med, -1, 'backpack' ) 
         UO.MoveItem( 'finditem', 0, Sunduk ) 
         wait( 2000 ) 
         UO.Print( 'Jar dropped' ) 
      end if 
      if UO.Count( EmpBot ) > 0 then 
         UO.FindType( EmpBot, -1, 'backpack' ) 
         UO.MoveItem( 'finditem', 0, Sunduk ) 
         wait( 2000 ) 
         UO.Print( 'Empty bottle dropped' ) 
      end if 
   Wend 
end sub

этот скрипт за основу.
надо сделать чтобы варил лессер пойзон, пойзон или грит пойзон (в зависимости от скила) и травил им стрелы. Стрелы лежат в стеке на полу, найтшэйд рядом. по 1й стреле кидал в бэкпак и травил. Соответственно надо, чтобы он не выкидывал бутылки. а стрелы сами будут выпадать при перевесе.
так же если пойзон физлит и чар травится чтоб отхиливался бинтами с пола.
там я вот не знаю как. может добавить юзание ступки на кучку найтшэйда по его IDили как лучше?
если че, то сервер на эмуляторе Pol-095.

LordTom · Post by **LordTom** » 2006-02-27 23:29:45

Вот, нарыл статейку, очень любопытная. НАСТОЯТЕЛЬНО рекомендую всем для прочтения. Его борьба Шеф-редактор PROспорт Игорь Порошин побывал на матче Лацио» – Рома», где он с расширенными от вос

Boris · Post by **Boris** » 2006-02-27 23:57:17

не на утопии случайно играешь ?

netol · Post by **netol** » 2006-02-28 11:23:48

а где же еще

Loken · Post by **Loken** » 2006-03-01 19:16:15

sub Poisoning()

#Set distance
UO.Exec('set finddistance 2')

#Select an Item
uo.additem('Item')
while uo.targeting()
wait(200)
wend
wait(2000)

#Select an container
uo.addobject('Container')
while uo.targeting()
wait(200)
wend
wait(2000)

repeat

#CheckLag
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')

# HP
If UO.Life < UO.Str Then
uo.waittargetself()
uo.usefromground('bandage')
wait(4000)
end if

#Take an item
UO.FindType( "Item"," -1"," 1" )
If UO.FindCount() == 0 Then
return
Endif
UO.moveitem("finditem","1", "backpack" )
wait( 200 )

#Bottle from ground
UO.FindType(0x0F0E,"-1","ground")
uo.moveitem("finditem","1","my")
wait(2000)

#Make a poison
UO.FindType("0x0F88","-1","ground")
UO.waittargetobject("finditem")
UO.usetype ("0x0E9B")
wait(1000)
UO.LDblClick()
wait(6000)

#Skill
S:
UO.waittargettype("Item")
wait(100)
UO.UseSkill("Poisoning")
wait(6000)
UO.DeletJournal()
If uo.InJournal("You fail to apply the poison") then
goto S
end if

#Drop
UO.FindType( "Item","my" )
UO.moveitem("finditem" , "Container" )
wait(200)
UO.Findtype("0x0F0E" , "my")
UO.moveitem ("finditem" , "Container")
wait(200)
until false
end sub

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

Дисконнект™ · Post by **Дисконнект™** » 2006-03-03 20:27:54

Code: Select all

#Skill
S:
UO.UseSkill('Poisoning')
wait(1000)
UO.WaitTargetObject('0x0F0A')
wait(1000)
UO.WaitTargetObject('0x0F3F')
wait(8000)
UO.DeleteJournal()
If uo.InJournal("You fail to apply the poison") then
goto S
end if

вот тут корявость какая то.... я там с помошью друга подправил, но он не хочет юзать скилл ройзонинг на стрелу.
через UO.waittargettype тоже не хочет юзать(

Yoko

помогите с модификацией скрипта на пойзонинг

помогите с модификацией скрипта на пойзонинг

боты женские куплю