Yoko

Скрипт на экипировку, чтоб брал армор с 1 столба и с другого реги кровь и поушены с ламой...
Если не трудно дайте =) А то задолбался в ручную =)

Зарание сенк

LilMystic wrote:Скрипт на экипировку, чтоб брал армор с 1 столба и с другого реги кровь и поушены с ламой...
Если не трудно дайте =) А то задолбался в ручную =)

Зарание сенк

Поиск поюзать чтоли недано?
Недавно топ был такой, поищи через search.

да искал, ничего на дало =(

sub Dress_alfa_man()
While NOT UO.Dead()
var n
Dim Select[3]
Select[1]='1' ; Бинты
Select[2]='12' ; Химия 2
Select[3]='3' ; Реги

Dim Item[3]
Item[1]='0x0E21'
Item[2]='0x09B0'
Item[3]='0x0E76'
If UO.GetGlobal('DressMan')<>'yes' Then
UO.set('norbcalc','1')
UO.SetGlobal('DressMan','yes')
EndIf
If UO.GetGlobal('DressManCheck')<>'on' Then
UO.SetGlobal('DressManCheck','on')
If UO.CountGround('0x0ED4','0x08BB') or UO.CountGround('0x0ED4','0x079B') Then
If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;Проверка на пак
UO.UseObject('backpack')
Wait(1000)
EndIf
If NOT UO.ObjAtLayer('Torso') Then
UO.Recall('0x4001361C','3') ; Армор(Кристал)
REPEAT
Wait(300)
Until UO.ObjAtLayer('Torso')
EndIf
If NOT UO.ObjAtLayer('Horse') Then
UO.Recall('0x40013766','4') ; Зостер
REPEAT
Wait(300)
Until UO.ObjAtLayer('Horse')
EndIf
For n = 1 TO 3
If UO.Count(Item[n])==0 Then
UO.Recall('0x40013766',Select[n])
UO.DeleteJournal()
REPEAT
Wait(300)
Until UO.InJournal("You put")
EndIf
Next
UO.Print('Done!')
Else
UO.Print("I don't see equipment stone!")
EndIf
UO.SetGlobal('DressManCheck','off')
Else
UO.Print("Wait")
EndIf
end sub


Нашел скрипт, помогите пожалуйста разобратся в нём, убрать не нужное =)
И координаты не получается снять =( пишу ,info тыкаю на стрелку в меню он берёт то что мне нужно а таргет оставляет...

Хе-хе, мой скриптик %)

а что ты хочеш чтобы он брал?

Дредд армор
3 пака поушенов
1 реги
3 крови
цветная лама

Он мне говорит "кэнт си де таргет"

А потом зависает и если попытатся ещё раз врубить он постоянно говорит "вейТ"

Ты одеваешся у банка? он возле другой одевалки должен быть....

Реал, спосибо тебе большое =)
А можешь сделать так чтобы одевался там где банк?

Могу
с тебя Сильвер щарик )

Я б дал =(
Но мне млин в 3 лвл морфатся =) осталось 500кр а тмов нету =)
Есть плащик, единственный на альфе, кстати не заинтересован? Перелинковка - не мои проблемы =))
Дашь 2 тма - плащ твой =)
А то я пока ток тм нашел за него, а де ещё тм взять? =)

Так что на сильвер не расчитывай, нету =((


ПС А могу и гс по дешовке подогнать, цветной 62й или 66й =))
196540986

LilMystic wrote:Я б дал =(
Но мне млин в 3 лвл морфатся =) осталось 500кр а тмов нету =)
Есть плащик, единственный на альфе, кстати не заинтересован? Перелинковка - не мои проблемы =))
Дашь 2 тма - плащ твой =)
А то я пока ток тм нашел за него, а де ещё тм взять? =)

Так что на сильвер не расчитывай, нету =((


ПС А могу и гс по дешовке подогнать, цветной 62й или 66й =))
196540986

Тут форум по инжекту , а не рынок Альфы ........... так что флуди на форуме своем ПЛЗ

Да ок ок =)