Таминг for Question

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Koh
Posts: 30
Joined: 2006-03-10 19:24:12

Таминг for Question

Post by Koh »

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

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

Code: Select all

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 
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

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