Скрипт на экипировку, чтоб брал армор с 1 столба и с другого реги кровь и поушены с ламой...
Если не трудно дайте =) А то задолбался в ручную =)
Зарание сенк
Пвп Альфа
Moderators: Murderator+, Murderator
Re: Пвп Альфа
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 тыкаю на стрелку в меню он берёт то что мне нужно а таргет оставляет...
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 тыкаю на стрелку в меню он берёт то что мне нужно а таргет оставляет...
Code: Select all
sub Dress_alfa()
While NOT UO.Dead()
var n
Dim Select[3]
Select[1]='18' ; Химия 3
Select[2]='3' ; Реги
Select[3]='21' ; Кровь 3
Dim Item[3]
Item[1]='0x09B0'
Item[2]='0x0E76'
Item[3]='0x0F06'
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','26') ; Армор(Дреад)
REPEAT
Wait(300)
Until UO.ObjAtLayer('Torso')
EndIf
If NOT UO.ObjAtLayer('Horse') Then
UO.Recall('0x40013766','10') ; Колор Лама
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
Я б дал =(
Но мне млин в 3 лвл морфатся =) осталось 500кр а тмов нету =)
Есть плащик, единственный на альфе, кстати не заинтересован? Перелинковка - не мои проблемы =))
Дашь 2 тма - плащ твой =)
А то я пока ток тм нашел за него, а де ещё тм взять? =)
Так что на сильвер не расчитывай, нету =((
ПС А могу и гс по дешовке подогнать, цветной 62й или 66й =))
196540986
Но мне млин в 3 лвл морфатся =) осталось 500кр а тмов нету =)
Есть плащик, единственный на альфе, кстати не заинтересован? Перелинковка - не мои проблемы =))
Дашь 2 тма - плащ твой =)
А то я пока ток тм нашел за него, а де ещё тм взять? =)
Так что на сильвер не расчитывай, нету =((
ПС А могу и гс по дешовке подогнать, цветной 62й или 66й =))
196540986
LilMystic wrote:Я б дал =(
Но мне млин в 3 лвл морфатся =) осталось 500кр а тмов нету =)
Есть плащик, единственный на альфе, кстати не заинтересован? Перелинковка - не мои проблемы =))
Дашь 2 тма - плащ твой =)
А то я пока ток тм нашел за него, а де ещё тм взять? =)
Так что на сильвер не расчитывай, нету =((
ПС А могу и гс по дешовке подогнать, цветной 62й или 66й =))
196540986
Тут форум по инжекту , а не рынок Альфы ........... так что флуди на форуме своем ПЛЗ
Все просто.
BETEPAH ™
BETEPAH ™