 Каст еды |
  Сообщений: 141 Рег. 21.10.2012 |
 5 ноября 2012 09:53 Сообщение #1
|
Нужен скрипт на каст еды, что бы после каста или какого то промежутка кастов(скажем 10 раз) собирал в пак. Помогите или дате наводку что и как... |
|
|
|
|
|
5 ноября 2012 10:40 Сообщение #2
|
|
Цитата: Nanissane Помогите или дате наводку что и как... состоит из трех (четырех) минискриптов 1) кастует 2) лутитт с пола определенные итемы 3) складывает в сундук или берет реги 4) медитирует |
|
|
|
|
 Сообщений: 3333 Рег. 5.09.2009 |
5 ноября 2012 10:43 Сообщение #3
|
я особо писать не умею, но скорректировал какой-то скрипт sub CRFood() var z z=UO.GetZ("self") If UO.MR>=10 Then UO.WaitTargetTile("1341",STR(UO.GetX()+0),STR(UO.GetY()-2),str(z)) uo.Cast('Create Food') Wait(2500) #Cюда вставляем скрипт на лут с земли endif end sub |
|
|
|
|
|
Сообщений: 141 Рег. 21.10.2012 |
5 ноября 2012 11:12 Сообщение #4
|
Парни спасибо, вот я подобны скрипт пытался править, получилось следующее, кастует под себя еду...потом сбоку вылазит сообщение типа найдено предметов... и кастует дальше (упорно не хочу прописывать тип каждой хавки), но думаю теперь придётся... |
|
|
|
|
|
5 ноября 2012 11:13 Сообщение #5
|
|
Цитата: Nanissane (упорно не хочу прописывать тип каждой хавки) там мало же, 6-7 типов максимум |
|
|
|
|
|
Сообщений: 141 Рег. 21.10.2012 |
5 ноября 2012 11:33 Сообщение #6
|
Цитата: Mitako там мало же, 6-7 типов максимум 6-7 типов это мало?) по 2 строки на лут..., итого 12-14 строк к скрипту))) |
|
|
|
|
|
Сообщений: 141 Рег. 21.10.2012 |
5 ноября 2012 11:43 Сообщение #7
|
Кстати, что бы не флуить много тем, как мне в инже убрать сообщения при луте Item found а то стока лишних строк в журнале... |
|
|
|
|
Сообщений: 1043 Рег. 18.06.2011 |
7 ноября 2012 20:52 Сообщение #8
|
раньше качал вот таким: sub Magery() Var LastTimer, i DIM Fruits[4] Fruits[1] = '0x09D0'; тут тип еды. Fruits[2] = '0x171F'; Fruits[3] = '0x0994'; Fruits[4] = '0x0EED'; WHILE NOT UO.Dead() UO.DeleteJournal() If UO.Mana<100 Then While UO.Mana<UO.Int UO.DeleteJournal() wait(100) Uo.WarMode('0') UO.Useskill('Meditation') If UO.InJournal("must wait") Then Wait(500) End If Repeat wait(300) until UO.InJournal("You are|You lose|must wait") Wend Endif While UO.Mana==UO.Int AND UO.GA>0 AND UO.GS>0 AND UO.MR>0 UO.DeleteJournal() LastTimer=UO.Timer() UO.WaitTargetTile('400', STR( UO.GetX( 'self' )), STR( UO.GetY( 'self' )), STR( UO.GetZ( 'self' ))) UO.Cast('Create Food') repeat wait(100) until UO.InJournal("fizzles") or UO.Mana<UO.Int or UO.Timer()>LastTimer+30 For i=1 To 4 UO.FindType( Fruits[i], -1, 'ground' ) If UO.FindCount() > 0 Then uo.moveitem('finditem',-1,'0x401F21EF'); куда собирать Wait( 200 ) Endif Next Wend WEND end sub Не думал что чтото глобально поменялось. Добирать реги не было необходимости - набирал по 2-3К каждого вида. |
|
|
|
|
|
7 ноября 2012 20:56 Сообщение #9
|
|
Макросы, которые работают и успешно используются вами, помечайте пожалуйста, чтобы авторы смело могли их добавить в тему "Готовые скрипты". Иначе в таких вот темах рано или поздно они затеряются. -------------------- |
|
|
|
|
Последние посетители (0):
| Сейчас: 19 мая 2024 09:26 |