Набор химии в пак!
Posted: 2006-11-14 17:09:57
Ребят, скрипт путает манки, инвизки и стонески, куда тут поставить проверку на цвет?
И еще, возможно ли сделать так, что бы скрипт кидал химию в пак в определенные места по координатам?
У как упростить количество химии?
И еще, возможно ли сделать так, что бы скрипт кидал химию в пак в определенные места по координатам?
У как упростить количество химии?
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
спасибо