Yoko
http://forum.yoko.com.ua/

Таминг for Question
http://forum.yoko.com.ua/viewtopic.php?f=20&t=6905
Page 1 of 1

Author:  Koh [ 2006-03-10 19:30:13 ]
Post subject:  Таминг for Question

Я давно просил написать макр на таминг, ты написал и выложил, у меня что то сломалось и теперь не пашет(((. А ТЕМКУ УДАЛИЛИ(((

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

Code:
sub main() 
var food='0x097B' # type of food for animal
#var animals = "0x00CF"
#var animals_length = 3
DIM animals[3]
  animals[0] = '0x00DC'   ;Liama
  animals[1] = '0x00C8'   ;Sheep
  animals[2] = '0x00CC'   ;Horce
var current_animals
var staf='0x0DF0' # ID your taming staf
var ms1="You fail to tame the creature."
var ms2="It seems to accept you as master."
var ms3="Your target is too far away from you."
var ms4="You put the fish steakss in your pack."
var k
while not uo.dead()
for animals = 0 to 3
 uo.findtype(animals[current_animals],'-1','ground')
 if uo.findcount()>0 then
 k=uo.getserial('finditem')
 uo.ignore('finditem')
 uo.deletejournal()
while not uo.injournal(ms4)
 uo.findtype(food,'-1','backpack')
 uo.moveitem('finditem','1',k)
 wait(750)
wend
 repeat
 wait(1000)
 uo.deletejournal()
 while not uo.injournal(ms2)OR uo.injournal(ms3)
  uo.waittargetobject(k)
  wait(50)
  uo.usetype(staf)
  uo.deletejournal()
  repeat
  wait(500)
  until uo.injournal(ms1) or uo.injournal(ms2)
 wend
 uo.say("all release")
 else
  uo.ignorereset()
 endif
next
wend
endsub

Author:  Scripts Writer [ 2006-03-11 06:33:04 ]
Post subject: 

замудрил ты со скриптом однако, я тебе скажу. Поюзай тот же скрипт Лео, или измени его-особых трудностей то там нету.

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/