Скрипт на починку арма

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
ilove_skazi
Posts: 44
Joined: 2004-11-28 23:17:38

Скрипт на починку арма

Post by ilove_skazi »

Народ выложите скрипт,у кого есть на починку армора :)Я пробовал скрипт Ветера,но ниччего не получается,так как мне нужно необынчый плэйт ченить,а оркишь армор там другие типы
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

ну так перебей в скрипте типы, откуда ж знать какие типы у твоего захадошного армора...
Yoko
Site Admin
Posts: 1964
Joined: 2004-04-03 16:49:38
Contact:

Post by Yoko »

"было, время, много лет назад..."

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

тогда не нужно нудно прописывать все типы.
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

Code: Select all

sub Repair()
VAR i,Exit,Part
VAR Molotok='0x13E3'
DIM Layers[8]
Layers[0]='Hat'
Layers[1]='Neck'
Layers[2]='Gloves'
Layers[3]='Arms'
Layers[4]='Torso'
Layers[5]='Legs'
Layers[6]='Lhand'
   
For i=0 to 6
Part=UO.ObjAtLayer(Layers[i])
If Part<>"" Then
Exit=0
While Exit==0
CheckLag() ;Delete journal
UO.WaitTargetObject(Part)
UO.UseSkill('Arms Lore')
Repeat
wait(500)
Until UO.InJournal('Defense') OR UO.InJournal('uncertain')
wait(1000)
If UO.InJournal('full repair') Then
Exit=1
Else
UO.UnEquip(Layers[i])
wait(500)
UO.WaitTargetObject(Part)
UO.UseType(Molotok)
wait(1000)
UO.Equip(Layers[i],Part)
EndIf
Wend
Endif
Next
UO.Print("!!Все починено!!")
uo.playwav("c:\inject\SOUND\REMINDER.wav")
end sub


В скрипте по ходу не надо пробивать части ....просто видемо оркишь арм иммеет малсть другое отношение в определении Армслора .....
спробуй просто изменить названия частей1 в масиве
Layers[0]='Hat'
Layers[1]='Neck'
Layers[2]='Gloves'
Layers[3]='Arms'
Layers[4]='Torso'
Layers[5]='Legs'
Layers[6]='Lhand'
И все ........скрипт проверяет армс лором часть надетую на тебе ....если она испорчена он ее снимает и чинит ...потом одивает обратно и проверяет другую часть . С обычным фулом это проходит.
Все просто.
BETEPAH ™
ilove_skazi
Posts: 44
Joined: 2004-11-28 23:17:38

Post by ilove_skazi »

А как узнать на какое название надо менять? че то твой вариант не подходит
Newbie [Olymp]
Posts: 20
Joined: 2004-07-26 03:31:59
Contact:

Post by Newbie [Olymp] »

че пьяные чтоли?
а не прошеще ли делать undress , и чинить все по типу, "нубаки мысли" блин
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

Newbie [Olymp] wrote:че пьяные чтоли?
а не прошеще ли делать undress , и чинить все по типу, "нубаки мысли" блин


Напиши готовый .......или выложи.
Все просто.
BETEPAH ™
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

ilove_skazi wrote:А как узнать на какое название надо менять? че то твой вариант не подходит


соответственно HAT - это шлем напиши свое .....и тд
Все просто.
BETEPAH ™
Post Reply