 Универсальный скрипт с добором, Кто разбирается, помогите с оптимизацией. |
  Сообщений: 262 Рег. 18.06.2013 |
 29 апреля 2016 13:44 Сообщение #1
|
Как говорится слепил из того что было,из всех макросов какие нашёл по чуть чуть в етом скрипте менял,но так как уровень скриптования у меня очень низкий,скрипт требует оптимизации(хотя я прокачал на нём тинкеринг,алхимию и буду остальные качать) Можно доделать,оптимизировать(иногда подтупливает в выкладывание готовых изделий, и будет универсальный скрипт на прокачку крафтов с добором и выкладыванием, в готовых скриптах ни один не работает !!! sub Alchemy_Exp() VAR Sunduk = '0x4046353A' ; Сериал сундука VAR regi = '0x0F8C' ; Реги VAR Empty = '0x0F0E' ;пустая бутылка VAR Bomb = '0x0F0D' ; Експлоужены VAR Kolvo = 400 ; Брать регов VAR Vzyat =100 ;Брать бутылок VAR k = 0 repeat UO.FindType( regi, -1, Sunduk ); Ищем реги в сундуке if UO.FindCount() == 0 Then UO.Print("Regs not found, script terminated") return end if UO.Grab( Kolvo , 'finditem' ) wait( 2000 ) while UO.Count( regi ) > 20 UO.FindType( Empty, -1, Sunduk ); Ищем бутылки в сундуке if UO.FindCount() == 0 Then UO.Print("Empty bottle not found, script terminated") return end if UO.Grab( Vzyat , 'finditem' ) wait( 2000 ) while UO.Count( regi ) >10 ; Пока в паке есть инги UO.Print('Ostalos ' + Str( UO.Count( regi ) ) + ' Salphoruos Ash' ) UO.DeleteJournal() UO.UseType( regi ) UO.WaitMenu('What sort of potion do you want','(2)') UO.DeleteJournal() k = 0 while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) k = k + 1 wait(500) wend if UO.Count( Bomb ) > 0 then UO.FindType( Bomb, -1, -1 ) UO.MoveItem ( 'finditem', 0, Sunduk ) wait( 2000 ) UO.Print( 'Bomb moved' ) end if wend wend Until UO.Dead() end sub P.S для Миража:Про свой Yoko даже не пиши, мёртвый сайт,ни в одном вопросе никто не помог(единственное ето ты написал, и то не помогло.) |
|
|
|
|
 Сообщений: 209 Рег. 29.03.2016 |
29 апреля 2016 14:51 Сообщение #2
|
А зачем нужны эксплоужены? |
|
|
|
|
 Сообщений: 3319 Рег. 19.11.2013 |
29 апреля 2016 15:47 Сообщение #3
|
На yoko тусит несколько человек. Другое дело они там не круглосуточно и не ежедневно - у всех дела работа семья. Просто там можно редактировать скрипты и работать с большими текстами. Тут через пару минут хрен чего поправишь :) |
|
|
|
|
|
Сообщений: 262 Рег. 18.06.2013 |
29 апреля 2016 18:05 Сообщение #4
|
Reality, Тут не в експлоушенах смысл, тут смысл в том что ты меняешь переменные, и делаешь всё что угодно, Агилити, Рефрешки, Бутылки,Луки, Карты,Платья и так далее герой будет делать пока есть материал, и скидывать изделия в сундук, как материал кончается, он берёт из сундука ещё материал и по кругу. |
|
|
|
|
|
Сообщений: 209 Рег. 29.03.2016 |
29 апреля 2016 19:38 Сообщение #5
|
Morgan La Fey, это как бы нужно на стелсе делать, зачем окно грузить лишнее? |
|
|
|
|
|
Сообщений: 3319 Рег. 19.11.2013 |
29 апреля 2016 20:03 Сообщение #6
|
Смотри если разберешься. Полууниверсальный крафт указанных вещей. ХЗ может пригодится :) |
|
|
|
|
|
Сообщений: 262 Рег. 18.06.2013 |
30 апреля 2016 07:39 Сообщение #7
|
Reality, ну не все как ты хорошо разбираются в стелсе к сожелению ;( |
|
|
|
|
|
Сообщений: 262 Рег. 18.06.2013 |
30 апреля 2016 07:41 Сообщение #8
|
Mirage, ;)) Вчера только в скайпе говорил неужели никто не может такой скрипт сделать ;) а вот тут раз и он ;) Ещё раз спасибо, скиллкап до 4000 докачаю займусь етим скриптом ;) |
|
|
|
|
 Сообщений: 516 Рег. 9.03.2016 |
23 сентября 2016 23:32 Сообщение #9
|
Мираж или другие батьки, объясните пожалуйста зачем тут такая наркомания: while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) k = k + 1 wait(500) wend Я про некий k |
|
|
|
|
|
Сообщений: 3319 Рег. 19.11.2013 |
24 сентября 2016 10:55 Сообщение #10
|
пауза в полсекунды сработает 29 раз и выйдет из цикла если не сработает проверка на журнал. Типотаймер выхода. Но вообще там должно было OR, а не AND |
|
|
|
|
Последние посетители (0):
| Сейчас: 1 ноября 2025 02:43 |