wizardme 0 Жалоба Опубликовано 26 декабря, 2010 Не спеша буду сюда вставлять несложные скрипты, облегчающие жизнь. 1. Скрипт на перенос в бекпак нужных вещей. Нужно указать в скрипте id контейнера, в котором лежит, то что вы хотите взять. Дальше указываете тип, цвет и количество, а скрипт все переносит. После этого у вас будет ровно такое количество предметов, которое вы указали. sub toGet() var i,get,meshok dim toGetType[20],toGetColor[20],toGetQuan[20] #### Настройка скрипта #### Указываем контейнер meshok=0x7E720AFA ## id контейнера где у вас лежит, то что вы будете брать #### # в чате пишем ,info и указываем предмет, который вас интересует # берем тип (type) и цвет (colour) # ID=0x40B39A23 _Type=0x0E21_ DLBLJND Name=13 clean bandages # Quantity: 13 Colour: _0x0000_ Layer: 0 Has: 1 # X=68 Y=69 Z=0 C=0x7E846D22 F=0x00 ####### указываем тип toGetType[1]='0x0DD6' #fish toGetType[2]='0x0DD6' #fish toGetType[3]='0x0F0E' #gh toGetType[4]='0x0E21' #bandages toGetType[5]='0x0F84' #garlic toGetType[6]='0x0F8C' #s.ash toGetType[7]='0x0F85' #ginseng ####### указываем цвет toGetColor[1]='0x0029' # red toGetColor[2]='0x0009' #blue toGetColor[3]='0x0690' toGetColor[4]='0' toGetColor[5]='0' toGetColor[6]='0' toGetColor[7]='0' ####### указываем нужное количество toGetQuan[1]=3 toGetQuan[2]=3 toGetQuan[3]=2 toGetQuan[4]=250 toGetQuan[5]=15 toGetQuan[6]=15 toGetQuan[7]=15 ######## ######## Начало скрипта uo.useobject(meshok) wait(500) checklag() ######## for i=1 to 7 if uo.count(toGetType[i],toGetColor[i])<toGetQuan[i] then get=toGetQuan[i]-uo.count(toGetType[i],toGetColor[i]) uo.findtype(toGetType[i],toGetColor[i],meshok) uo.moveitem('finditem',get,'backpack') wait(1000) checklag() endif if uo.count(toGetType[i],toGetColor[i])>toGetQuan[i] then get=uo.count(toGetType[i],toGetColor[i])-toGetQuan[i] uo.findtype(toGetType[i],toGetColor[i],'backpack') uo.moveitem('finditem',get,meshok) wait(1000) checklag() endif next end sub Sub checklag() DelJournal("ackpack") UO.Click("backpack") repeat wait(100) until UO.InJournal("ackpack") end sub Sub DelJournal(msg) While UO.InJournal(msg) UO.SetJournalLine(UO.InJournal(msg) - 1,'') wend end sub Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Leonardo González 0 Жалоба Опубликовано 13 мая, 2012 toGetType[1]='0x0DD6' #fish toGetType[2]='0x0DD6' #fish toGetType[3]='0x0F0E' #gh toGetType[4]='0x0E21' #bandages toGetType[5]='0x0F84' #garlic toGetType[6]='0x0F8C' #s.ash toGetType[7]='0x0F85' #ginseng ####### указываем цвет toGetColor[1]='0x0029' # red toGetColor[2]='0x0009' #blue toGetColor[3]='0x0690' toGetColor[4]='0' toGetColor[5]='0' toGetColor[6]='0' toGetColor[7]='0' ####### указываем нужное количество toGetQuan[1]=3 toGetQuan[2]=3 toGetQuan[3]=2 toGetQuan[4]=250 toGetQuan[5]=15 toGetQuan[6]=15 toGetQuan[7]=15 --------- а с этим делать что? Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Kallish 0 Жалоба Опубликовано 10 августа, 2012 sub horse3() var horse if not uo.objatlayer('Horse') then if uo.targeting() then uo.canceltarget() endif uo.addobject('horse') while uo.targeting() then uo.canceltarget() wend horse = uo.getserial('horse') else horse = uo.getserial(uo.objatlayer('Horse')) endif while True if not uo.objatlayer('Horse') then uo.useobject(Horse) endif wait(100) wend end sub Скрипт который держит вас всегда в седле!=) Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
nepret 0 Жалоба Опубликовано 12 августа, 2012 и будет он тебе постоянно просить лошадь... в итоге скрипт сглючит и выдаст парс в самый не подходящий момент... да ещё и эту лошадь придётся указывать таргетом =( инжект способен на лучшее Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
nepret 0 Жалоба Опубликовано 12 августа, 2012 toGetType[1]='0x0DD6' #fish toGetType[2]='0x0DD6' #fish toGetType[3]='0x0F0E' #gh toGetType[4]='0x0E21' #bandages toGetType[5]='0x0F84' #garlic toGetType[6]='0x0F8C' #s.ash toGetType[7]='0x0F85' #ginseng ####### указываем цвет toGetColor[1]='0x0029' # red toGetColor[2]='0x0009' #blue toGetColor[3]='0x0690' toGetColor[4]='0' toGetColor[5]='0' toGetColor[6]='0' toGetColor[7]='0' ####### указываем нужное количество toGetQuan[1]=3 toGetQuan[2]=3 toGetQuan[3]=2 toGetQuan[4]=250 toGetQuan[5]=15 toGetQuan[6]=15 toGetQuan[7]=15 --------- а с этим делать что? с первыми двумя столбцами ничего, а вот в последнем, надо указать там количество забираемых объектов Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты