Yoko :: Как добавить несколько типов?

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

Как добавить несколько типов? http://forum.yoko.com.ua/viewtopic.php?f=20&t=7387	Page 1 of 1

Author:

Toolmate [ 2006-04-16 13:45:55 ]

Post subject:

Как добавить несколько типов?

Вот есть функция:

Code:

Sub tim1() 
VAR AnimalCount=0,i=0,name=0,name2=0
Var MoveDelay=1000 
Var MoveNumber=1    
Var Ep=3 
var Stoplocation
uo.set("finddistance","3")
uo.ignorereset() 
uo.exec('resend') 
wait(200) 

Uo.Exec("addtype Animals") 
while Uo.Targeting() 
wait(100) 
wend
uo.findtype("Animals","-1","ground")
name=uo.getname("finditem") 
;
dim Animals[100] 
while not uo.dead() 
AnimalCount=0 
   for i=0 to 999
      wait(10) 
      uo.findtype("0",'-1',"ground") 
      if uo.findcount()>0 then 
            if uo.getname("finditem")==name and uo.getname("finditem") <> 0 then 
                  Animals[AnimalCount]=uo.getserial("finditem") 
                  AnimalCount=AnimalCount+1 
                  uo.ignore("finditem") 
                  uo.print("OK!"+" "+Animals[AnimalCount-1]) 
               else 
                  uo.ignore("finditem") 
                  wait(10) 
            end if 
         else 
            i=999 
            uo.print("Complete at = "+str(AnimalCount)) 
      end if 
   next 
   uo.print("Search complete!! at "+str(AnimalCount)+" was found!!") 
   UO.print("Reset ignored items...") 
   uo.ignorereset() 
   wait(1000) 
;
   for i=0 to AnimalCount-1 
      uo.addobject("Animal",Animals[i])
      repeat
      uo.Useskill("Peacemaking","Animal")
      wait(11000)
      until uo.injournal('cliloc# 0x03BC')or uo.injournal('cliloc# 0x03B7')
      taming() 
      release()
   next
   wait(200) 
wend 
end sub

как добавить вот то, что я написал ниже(писал сам если, что то не так поправьте пожалуйсто):

Code:

DIM Animals[5]
Animals[0]="0x000"--- тут я вставлю типы разных животных.
Animals[1]="0x000"
Animals[2]="0x000"
Animals[3]="0x000"
Animals[4]="0x000"
for i=0 to 4

и что нужно убрать из выше написанного?
заранее спасики:)

Author:	Scripts Writer [ 2006-04-16 20:44:42 ]
Post subject:
uo.findtype("Animals[i]","-1","ground")

Author:	Scripts Writer [ 2006-04-16 20:44:49 ]
Post subject:
Code: uo.findtype("Animals[i]","-1","ground")

Author:

Toolmate [ 2006-04-16 21:22:02 ]

Post subject:

тобишь вот так:

Code:

Sub tim1() 
VAR AnimalCount=0,i=0,name=0,name2=0 
Var MoveDelay=1000 
Var MoveNumber=1    
Var Ep=3 
var Stoplocation 
uo.set("finddistance","3") 
uo.ignorereset() 
uo.exec('resend') 
wait(200) 
;
DIM Animals[5] 
Animals[0]="0x000"
Animals[1]="0x000" 
Animals[2]="0x000" 
Animals[3]="0x000" 
Animals[4]="0x000" 
while not uo.dead() 
AnimalCount=0 
   for i=0 to 4 
      wait(10) 
      uo.findtype("Animals[i]","-1","ground") 
      name=uo.getname("finditem")
      if uo.findcount()>0 then 
            if uo.getname("finditem")==name and uo.getname("finditem") <> 0 then 
                  Animals[AnimalCount]=uo.getserial("finditem") 
                  AnimalCount=AnimalCount+1 
                  uo.ignore("finditem") 
                  uo.print("OK!"+" "+Animals[AnimalCount-1]) 
               else 
                  uo.ignore("finditem") 
                  wait(10) 
            end if 
         else 
            i=4 
            uo.print("Complete at = "+str(AnimalCount)) 
      end if 
   next 
   uo.print("Search complete!! at "+str(AnimalCount)+" was found!!") 
   UO.print("Reset ignored items...") 
   uo.ignorereset() 
   wait(1000) 
; 
   for i=0 to 4 
      uo.addobject("Animal",Animals[i]) 
      repeat 
      uo.Useskill("Peacemaking","Animal") 
      wait(11000) 
      until uo.injournal('cliloc# 0x03BC')or uo.injournal('cliloc# 0x03B7') 
      taming() 
      release() 
   next 
   wait(200) 
wend

Вот я подправил, это норм?

Author:	Grin [ 2006-04-16 21:43:42 ]
Post subject:
Чаю не нальете?;)

Author:	Toolmate [ 2006-04-17 07:06:11 ]
Post subject:
Grin: Не понял намека:) А вот тут Code: else i=999 <----- а тут тоже надо изменить значение на 4 типа? uo.print("Complete at = "+str(AnimalCount)) end if next [/code]

Author:	Grin [ 2006-04-17 10:20:56 ]
Post subject:
намек простой вы чайники%)

Author:	Toolmate [ 2006-04-17 10:42:50 ]
Post subject:
Ну Вы эксперты учите чайников:)

Author:	Edred [ 2006-04-17 10:44:22 ]
Post subject:
Grin wrote: намек простой вы чайники%) Все мы чайники. Каждый в своем.

Author:	Grin [ 2006-04-17 10:59:14 ]
Post subject:
Естествено;) Вот ТЫ Эдред в чем чайник?;)

Author:	Toolmate [ 2006-04-17 11:03:07 ]
Post subject:
Я там выше подправил немного. Нормуль? Этот макр под ранку.

Author:	Grin [ 2006-04-17 13:18:18 ]
Post subject:
Ну елки палки одни и теже ошибки 10 раз подряд... в уроках все описано и описано... Почитай про смысл символа "... и потом что значит нормально??? оно же не рабоатет... как это может быть нормально???

Author:	Toolmate [ 2006-04-17 15:05:58 ]
Post subject:
А куда эти уроки делись?

Author:	Edred [ 2006-04-17 15:27:13 ]
Post subject:
Grin wrote: Естествено;) Вот ТЫ Эдред в чем чайник?;) в хтмл, джаве, перле... Хотя насчет последнего, тут полез посмотреть синтаксис, в общем, халява. Легкий язык. Нескольких часов чтения будет достаточно. Вопрос только в одном, надо ли?

Author:	Grin [ 2006-04-17 17:45:30 ]
Post subject:
перл не сложен в понимании просто там есть пару об стракций... там гола в другом нужна... там есть понтие как контексты...есть регулярные выражения, есть еще куча всего... жто просто интересно и это надо;)

Author:	Toolmate [ 2006-04-17 18:26:29 ]
Post subject:
Помогите пожалуйсто, уроки не могу найти.

Author:	BigMouseI [ 2006-04-17 19:34:51 ]
Post subject:
Toolmate wrote: Помогите пожалуйсто, уроки не могу найти. http://forum.yoko.com.ua/viewtopic.php?t=3491 - 1 http://forum.yoko.com.ua/viewtopic.php?t=3597 - 2 http://forum.yoko.com.ua/viewtopic.php?t=4132 - 3 http://forum.yoko.com.ua/viewtopic.php?t=6887 - 4 http://forum.yoko.com.ua/viewtopic.php?t=4681 - 5

Author:	Toolmate [ 2006-04-17 20:03:03 ]
Post subject:
Спасибо! будем изучать:)

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