Помогите, плиз, с тейлором..

I'm · Post by **I'm** » 2005-04-28 20:45:06

Purgen · Post by **Purgen** » 2005-04-28 21:01:08

I'm wrote:Опиши подробно как происходит у тебя на шарде крафт плащей.

Просто в бекпак грузишь ткань и нитки...
Запускаешь нити..
Появляеться "Меню Потрного". В нём несколько раскладок(штаны, обувь, рубашки, кожа....). Выбираешь раскладку "Рубашки".
Появляеться список предметов, которые можна сшить (камзол, рубашка, накидка, плащ, роба....). Возле каждого из вариантов две кнопки(скрафтерить и инфа о вещи).
Нажимаешь "зделать". У тебя в бекпаке пропадает 14 ткани, и появляеться плащ.
И чтоб каждый раз не лазить поэтим разкладкам, когда запускаешь нити, в самом низу меню есть кнопка "Зделать последнее".
Вот я и хотел, чтоб макрос сам жал на эту кнопку....

Destruction · Post by **Destruction** » 2005-04-28 21:04:26

Purgen wrote:
Destruction wrote:На каком шарде в пошивке учавствует молоток?!..

Баклан, если ты не заметил, я написал там слово "скованую"!!!
Я имел в виду, что этим способом можна будет качать и блексмити!
А если изменить на ID пилки, то карпентри! Дальше продолжать?

Зря ты так, я ведь всего лишь пытался вникнуть в твой скрип, точнее в то, что тебе надо, и бакланом себя не считаю, но раз для тебя я баклан - пиши себе скрипт сам. :evil:

Purgen · Post by **Purgen** » 2005-04-28 21:13:39

Destruction wrote:Зря ты так, я ведь всего лишь пытался вникнуть в твой скрип

Извини, конечно, за то, что обозвал тебя...
А насчёт скрипта... Если уж местный модер говорит, что это не реально, то ты тем более мне не поможешь...
Ещё раз извини :wink:

I'm · Post by **I'm** » 2005-04-28 21:38:43

Purgen wrote:
Destruction wrote:Зря ты так, я ведь всего лишь пытался вникнуть в твой скрип

Извини, конечно, за то, что обозвал тебя...
А насчёт скрипта... Если уж местный модер говорит, что это не реально, то ты тем более мне не поможешь...
Ещё раз извини

Процетиркйте мне пожалуйста с того момента где я говорю о невозможности? :shock:

Или увас начились галюцинации?
Это возможно и даже несложно ябы сказал по той информации что вы дали просто однако следует попасть на ваш шард и посмотреть что и как.

Purgen · Post by **Purgen** » 2005-04-28 21:57:51

I'm wrote:однако следует попасть на ваш шард и посмотреть что и как.

http://www.aos.ultima.net.ua - сайт шарда
195.138.68.94,25938 (80 (http)) - логин сервера
Добро пожаловать!

I'm · Post by **I'm** » 2005-04-28 22:06:42

Purgen wrote:
I'm wrote:однако следует попасть на ваш шард и посмотреть что и как.

http://www.aos.ultima.net.ua - сайт шарда
195.138.68.94,25938 (80 (http)) - логин сервера
Добро пожаловать!

http://aos.ultima.net.ua/
На данный момент неимею АоС'a
Но рекомендую тебе посетить хелп и найти там UO.RaCall

Ugrum. · Post by **Ugrum.** » 2005-04-28 22:19:25

1 написано год назад.
2 в УО сейчас не играю.
3 выдрано куском,после чего не тестилось.

Code: Select all

sub Tailor()
var pause = 0
var IngVesh=19 ;<----- количество ткани на вещь
var Cli1="cliloc# 0xEE4B" ;you failed to create
var Cli2="cliloc# 0xEEBA" ;you create the item
var Cli3="cliloc# 0xEEBB"
var Cli4="cliloc# 0xEE46"  ;worn out your tool! 
var Cli5="cliloc# 0xEEBC" ;you create an except

var Skil
var Cloth = "0x1766"
var MaxWeight
var SewKit = '0x0F9D'

;у меня было так -до 500 скила качался на одном
;потом на другом до 746 потом до 996 на третьем...
;чтоб не переводить зря ткань остановка по достижении

if uo.SkillVal('Tailoring')<996 then
   Skil = 996
end if
if uo.SkillVal('Tailoring')<746 then
   Skil = 746
end if
if uo.SkillVal('Tailoring')<500 then
   Skil = 500
end if

MaxWeight= (uo.STR*3.5)+39
if MaxWeight > 410 then
MaxWeight = 410
end if 
UO.print("***** "+str(Skil))
IF uo.count(SewKit) then
REPEAT 
uo.usetype(SewKit) 
wait(500)

REPEAT 
uo.deletejournal()
UO.LClick(325,452);<----нужно подобрать под свое разрешение экрана
                             ;        это кнопка сделать последнее 
wait(1000)
if uo.InJournal(Cli1) or uo.InJournal(Cli2) or uo.InJournal(Cli3) or uo.InJournal(Cli4) then 

if uo.count(SewKit) then
Poreska()
uo.usetype(SewKit) 
wait(500)
endif 
endif


UNTIL uo.count(Cloth) < IngVesh or (UO.Weight >= MaxWeight) or not uo.count(SewKit) or uo.SkillVal('Tailoring')== Skil
if uo.count(SewKit) then
   Poreska()
wait(500)
else
   ;Grabing(SewKit,'0x0000',5,'1')
    UO.Exec('terminate Tailor()')
endif 

UNTIL (uo.count(Cloth) < IngVesh) or not uo.count(SewKit) or uo.SkillVal('Tailoring')== Skil
end if
wait(500)
end sub 

;---------------------------------------------
sub Poreska()
var i,n
Dim A[6]
A[0] = 0x152E ;short pants
A[1] = 0x1EFD ;fancy shirt
A[2] = 0x2307 ;fur boots 
A[3] = 0x230C ;fur sarong
A[4] = 0x175D ;Oil cloth
A[5] = 0x13D6 ;
A[6] = 0x13D5 ;studded gloves

i = 100
FOR n=0 TO 6
uo.findtype(A[n],"-1","my")

if uo.findcount() > 0 then 
REPEAT 
UO.waittargetobject('finditem')
wait(100)

UO.usetype(0x0F9F);Scissors
wait(1200)
uo.findtype(A[n],"-1","my")

UNTIL uo.findcount() == 0 
end if 
NEXT
end sub

Ugrum. · Post by **Ugrum.** » 2005-04-28 22:24:10

Упс! %) в беке не храни ничего сшитого-порежет!
чтоб не резал сшитое-закоментируй процедуру Poreska()
Например вот так

Code: Select all

.....
if uo.count(SewKit) then
   ;Poreska()
wait(500)
......

и если резать все таки будешь..проследи чтоб на чаре не было одето то что можно резать..)

Purgen · Post by **Purgen** » 2005-04-28 22:29:29

Пасиб большое...
Постараюсь запустить..

Purgen · Post by **Purgen** » 2005-04-28 22:41:40

Не идёт....
Выдаёт "Line 35: Runtime error"

Sfagnum · Post by **Sfagnum** » 2005-04-28 23:08:35

Purgen wrote::cry: Не идёт....
Выдаёт "Line 35: Runtime error"

открываешь редактор скрипта находишь строчку за номер 35 и постишь тут. - это очень сильно упростит поиск ошибки. а так считать строчки, при условии, что у тебя что то может быть сдвинуто... дело таки не благодарное.

Purgen · Post by **Purgen** » 2005-04-29 07:40:27

Ничё у меня не здвинуто.
Я просто не знаю, считает ли компилятор инжекта пустые строки...
Да и макрос мне не очень теперь надо. )) Мы пока тут разговаривали, я вручную до 100 тейлоринг добил... А после 100 на макросе качать - так это у меня денег на кожу никогда в жизни не хватит.. Но всё равно, спасибо, что хоть в самом конце попытались помоч

P.S. Purgen ещё вернёться! хе-хе...

Sfagnum · Post by **Sfagnum** » 2005-04-29 08:14:19

Purgen wrote:Ничё у меня не здвинуто.
Я просто не знаю, считает ли компилятор инжекта пустые строки...

считать не надо... в правом нижнем углу в редакторе скриптов есть 2 цифирки:
1 - номер строчки (именно его он выдаётся в сообщении об ошибке)
2 - номер символа в строке.

Purgen wrote:Но всё равно, спасибо, что хоть в самом конце попытались помоч

пошли конкретные вопросы - пошла помощь

Purgen · Post by **Purgen** » 2005-06-10 23:06:55

Уря! Я ща играю на новом шарде и этот скрипт запустился без проблем!

Только есть одно "но".. ((
Порезка не работает (((
Помогите плиз скриптиком, чтоб он нашёл в бекпаке ножницы и резал всё, что только можно ))

vitja · Post by **vitja** » 2005-07-04 12:34:39

Pomogite pozaluista 4tobi on delal long pants i rezal wtani na binti

sub tailoring()
VAR Tkan = "0x175D"
VAR Kit = "0x0F9D"
UO.CancelMenu()
q7:
uo.exec ("waitmenu 'Cloth' 'Legwear' 'Legwear' 'long pants'")
uo.waittargettype(Tkan)
uo.usetype (Kit)
wait(4000)
goto q7
end sub
zaranee blagodaren

flake · Post by **flake** » 2005-07-04 13:11:47

Code: Select all

sub tailoring() 
VAR Tkan = "0x175D" 
VAR Kit = "0x0F9D" 
VAR pants =  ''   ; вписать тип штанов
VAR scisors =  ''   ; впистаь тип ножниц
UO.CancelMenu() 
q7: 
uo.exec ("waitmenu 'Cloth' 'Legwear' 'Legwear' 'long pants'") 
uo.waittargettype(Tkan) 
uo.usetype (Kit) 
wait(4000) 
UO.FindType( pants )
  If UO.FindCount() Then
    UO.WaitTargetObject( 'finditem' )
    UO.UseType( 'scisors' )
  EndIf
goto q7 
end sub

Yoko

Помогите, плиз, с тейлором..

HELP!!! Tailoring