Yoko
http://forum.yoko.com.ua/

Пвп Альфа
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2755		 Page 1 of 1
Author:  LilMystic [ 2005-01-22 19:10:02 ]
Post subject:  Пвп Альфа
Скрипт на экипировку, чтоб брал армор с 1 столба и с другого реги кровь и поушены с ламой...
Если не трудно дайте =) А то задолбался в ручную =)

Зарание сенк
Author:  SAMURAI [ 2005-01-22 22:51:51 ]
Post subject:  Re: Пвп Альфа
LilMystic wrote:
Скрипт на экипировку, чтоб брал армор с 1 столба и с другого реги кровь и поушены с ламой...
Если не трудно дайте =) А то задолбался в ручную =)

Зарание сенк

Поиск поюзать чтоли недано? :evil:
Недавно топ был такой, поищи через search.
Author:  LilMystic [ 2005-01-22 23:14:49 ]
Post subject: 
да искал, ничего на дало =(
Author:  LilMystic [ 2005-01-23 00:12:42 ]
Post subject: 
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 тыкаю на стрелку в меню он берёт то что мне нужно а таргет оставляет...
Author:  666Man666 [ 2005-01-23 04:54:43 ]
Post subject: 
Хе-хе, мой скриптик %)

а что ты хочеш чтобы он брал?
Author:  LilMystic [ 2005-01-23 06:20:08 ]
Post subject: 
Дредд армор
3 пака поушенов
1 реги
3 крови
цветная лама
Author:  666Man666 [ 2005-01-23 23:39:24 ]
Post subject: 
Code:
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
Author:  LilMystic [ 2005-01-24 07:19:09 ]
Post subject: 
Он мне говорит "кэнт си де таргет"

А потом зависает и если попытатся ещё раз врубить он постоянно говорит "вейТ"
Author:  666Man666 [ 2005-01-24 15:06:40 ]
Post subject: 
Ты одеваешся у банка? он возле другой одевалки должен быть....
Author:  LilMystic [ 2005-01-25 00:19:38 ]
Post subject: 
Реал, спосибо тебе большое =)
А можешь сделать так чтобы одевался там где банк?
Author:  666Man666 [ 2005-01-25 07:51:40 ]
Post subject: 
Могу :)
с тебя Сильвер щарик )
Author:  LilMystic [ 2005-01-25 09:58:47 ]
Post subject: 
Я б дал =(
Но мне млин в 3 лвл морфатся =) осталось 500кр а тмов нету =)
Есть плащик, единственный на альфе, кстати не заинтересован? Перелинковка - не мои проблемы =))
Дашь 2 тма - плащ твой =)
А то я пока ток тм нашел за него, а де ещё тм взять? =)

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


ПС А могу и гс по дешовке подогнать, цветной 62й или 66й =))
196540986
Author:  BETEPAH [ 2005-01-25 12:52:17 ]
Post subject: 
LilMystic wrote:
Я б дал =(
Но мне млин в 3 лвл морфатся =) осталось 500кр а тмов нету =)
Есть плащик, единственный на альфе, кстати не заинтересован? Перелинковка - не мои проблемы =))
Дашь 2 тма - плащ твой =)
А то я пока ток тм нашел за него, а де ещё тм взять? =)

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


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

Тут форум по инжекту , а не рынок Альфы ........... так что флуди на форуме своем ПЛЗ
Author:  LilMystic [ 2005-01-25 15:43:06 ]
Post subject: 
Да ок ок =)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/