Набор химии в пак!

Anything and all.

Moderators: Murderator+, Murderator

Locked
vi-T
Posts: 8
Joined: 2006-11-14 15:54:50

Набор химии в пак!

Post by vi-T »

Ребят, скрипт путает манки, инвизки и стонески, куда тут поставить проверку на цвет?
И еще, возможно ли сделать так, что бы скрипт кидал химию в пак в определенные места по координатам?
У как упростить количество химии?

Code: Select all

###
var Reconnect=0 ##  1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект.
###
var Chest='0x41184472' ## - ID сундука с химией
###
var Typeheal='0x0f0c' ## - Хелы
###
var Typeinviz='0x0F09' ## - Инвизки
###
var Typemana='0x0F09' ## - Манки
###
var Typestamina='0x0f0b' ## - Инвиз
###
var Typestonesk='0x0f09' ## - Стонески
###
var Typeexp='0x0fcc' ## - Экспы
###
var GrabDelay='500' ## - Задержка при перетаскивании (Работает только с последними версиями)
###

##########################################
##########################################
Sub ToEat()
UO.FindType(Typeheal,'-1',Chest)
If UO.GetQuantity('finditem') >= 1 Then
   UO.MoveItem('finditem','1','-1')
   Wait(500)
UO.FindType(Typeheal,'-1',Chest)
If UO.GetQuantity('finditem') >= 1 Then
   UO.MoveItem('finditem','1','-1')
   Wait(500)
UO.FindType(Typeheal,'-1',Chest)
If UO.GetQuantity('finditem') >= 1 Then
   UO.MoveItem('finditem','1','-1')
   Wait(500)
##########################################
UO.FindType(Typestamina,'-1',Chest)
If UO.GetQuantity('finditem') >= 1 Then
   UO.MoveItem('finditem','1','-1')
   Wait(500)
UO.FindType(Typestamina,'-1',Chest)
If UO.GetQuantity('finditem') >= 1 Then
   UO.MoveItem('finditem','1','-1')
   Wait(500)
UO.FindType(Typestamina,'-1',Chest)
If UO.GetQuantity('finditem') >= 1 Then
   UO.MoveItem('finditem','1','-1')
   Wait(500)
####################################
UO.FindType(Typeinviz,'-1',Chest)
If UO.GetQuantity('finditem') >= 1 Then
   UO.MoveItem('finditem','1','-1')
   Wait(500)
UO.FindType(Typeinviz,'-1',Chest)
If UO.GetQuantity('finditem') >= 1 Then
   UO.MoveItem('finditem','1','-1')
   Wait(500)
UO.FindType(Typeinviz,'-1',Chest)
If UO.GetQuantity('finditem') >= 1 Then
   UO.MoveItem('finditem','1','-1')
   Wait(500)
UO.FindType(Typeinviz,'-1',Chest)
If UO.GetQuantity('finditem') >= 1 Then
   UO.MoveItem('finditem','1','-1')
   Wait(500)
UO.FindType(Typeinviz,'-1',Chest)
If UO.GetQuantity('finditem') >= 1 Then
   UO.MoveItem('finditem','1','-1')
   Wait(500)
###################################
   EndIf
Else
   UO.Print("ERROR: Not Found him!!!")
EndIf
end sub
DerMeister =)
Expert!
Posts: 1032
Joined: 2006-02-25 21:48:38

Post by DerMeister =) »

Code: Select all

uo.findtype(type,[color,containerobject/ground/my])


Например так:

Code: Select all

var Typeheal='0x0f0c' ## - Хелы
var Cololrheal='тут цвет' ## - Хелы


а в скрипте тогда так:

Code: Select all

UO.FindType(Typeheal,Cololrheal,Chest)


ЗЫ: Цвет берётся из ,info
DerMeister сейчас на нейрале!
vi-T
Posts: 8
Joined: 2006-11-14 15:54:50

Post by vi-T »

Спасибо, все работает.

А как насчет укладывания химии в пак по координатам?
Mihail
Expert!
Posts: 548
Joined: 2005-05-20 20:30:10
Contact:

Post by Mihail »

а еще можно сделать человеческий массив
a[0]='0x0000,0x0000' и не ***** себе мозг
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Лучше массив с цветами бутылок, т.к. типы постоянны.

По координатам -смотри синтаксис команды

Code: Select all

uo.moveitem()
vi-T
Posts: 8
Joined: 2006-11-14 15:54:50

Post by vi-T »

Синтакс? Ой я в этом не понимаю, можно по подробней?
vi-T
Posts: 8
Joined: 2006-11-14 15:54:50

Post by vi-T »

Так?

Code: Select all

UO.MoveItem('finditem','1028,495')
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Code: Select all

uo.moveitem(object,[quantity,containerobject/ground,[x,y,z]])
vi-T
Posts: 8
Joined: 2006-11-14 15:54:50

Post by vi-T »

неработает :(

Code: Select all

UO.MoveItem('finditem',object,[quantity,containerobject/ground,[1028,495,0]])
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Мб не думает?
DerMeister =)
Expert!
Posts: 1032
Joined: 2006-02-25 21:48:38

Post by DerMeister =) »

DerMeister сейчас на нейрале!
DerMeister =)
Expert!
Posts: 1032
Joined: 2006-02-25 21:48:38

Post by DerMeister =) »

You Must Die wrote:Мб не думает?

Анекдот wrote:...
"Я думаю..."
-Убил.
...
DerMeister сейчас на нейрале!
vi-T
Posts: 8
Joined: 2006-11-14 15:54:50

Post by vi-T »

Напиши пожалуйста как должно быть именно для этого скрипта...
vi-T
Posts: 8
Joined: 2006-11-14 15:54:50

Post by vi-T »

Все, я допер :) спасибо :)
Locked