Добрый День. Если есть у кого време помогите.
Проблема такая у меня на шарде бутылки в кучках не лежат. И бутылки некоторые даже похожи по типу цвет обычный тоже. И скрипт набирает 1 вид бутылак и пишет что в сундуке нету больше. Хотя все проставил и т.д. Вот хотелось что бы он набирал все бутылки которые прописаны всю химию. И что-бы он брал не по последнему контейнеру! А с в сундуке допустим 5 сумак и из каждый он берет определенные бутылки. Под каждый вид бутылки своя сумка.
Нашел много скриптов ну в частности все не работаю потому что у меня на шарде не кучками химия. Вотс Помогите у кого есть време.
Вот я пытался пользоваться этим скриптом там прописаны все бутылки моего шарда. Да и вопрос а если допустим тап и цвет бутылки одинаковый как быть? Тотал Мана и Мана рефрен. Одинаковые по типу и цвету.
Code:
sub CheckMana()
VAR n, q, c
Dim Req[50] ; Requirements
Req[0]='0x0F09' ; Mana Refresh
Req[1]='0x0F09' ; Invisibility
Req[2]='0x0F0D' ; Explosion
Req[3]='0x0F0B' ; Refresh
Req[4]='0x0F08' ; Agility
Req[5]='0x0F09' ; Cleverness
Req[6]='0x0F0C' ; Great Heal
Dim Qnt[50] ; Quantity
Qnt[0]=15 ; Mana Refresh
Qnt[1]=10 ; Invisibility
Qnt[2]=25 ; Explosion
Qnt[3]=15 ; Refresh
Qnt[4]=10 ; Agility
Qnt[5]=10 ; Cleverness
Qnt[6]=5 ; Great Heal
Dim Clr[50] ; Color
Clr[0]='0x0388' ; Mana Refresh
Clr[1]='0x0060' ; Invisibility
Clr[2]='0x0000' ; Explosion
Clr[3]='0x0000' ; Refresh
Clr[4]='0x0000' ; Agility
Clr[5]='0x0641' ; Cleverness
Clr[6]='0x0000' ; Great Heal
if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then
c=uo.getserial('lastcontainer')
for n=0 to 6
while uo.count(Req[n],Clr[n])<>Qnt[n]
q=Qnt[n]-uo.count(Req[n],Clr[n])
if q>0 then
uo.findtype(Req[n],Clr[n],c)
if uo.findcount() then
uo.moveitem('finditem',STR(q),'backpack',141,134,0)
wait(600)
else
uo.msg(' item Req('+str(n)+') NOT FOUND ')
return
endif
else
q=-q
uo.findtype(Req[n],Clr[n],'backpack')
if uo.findcount() then
uo.moveitem('finditem',STR(q),c)
checklag()
wait(600)
endif
endif
wend
next
endif
uo.print(' -= done =- ')
end sub