Page 1 of 1
Cкрипт на поднятие
Posted: 2005-01-08 04:57:41
by ilove_skazi
Народ помогите
Подкиньте толковый скрипт на поднятие подушек,сундуков,хвороста и прочей фигни! у меня просто есть древнейший скрипт,который не устраивает уже
Заранее спасибо
Re: Cкрипт на поднятие
Posted: 2005-01-08 21:43:37
by BETEPAH
ilove_skazi wrote:Народ помогите
Подкиньте толковый скрипт на поднятие подушек,сундуков,хвороста и прочей фигни! у меня просто есть древнейший скрипт,который не устраивает уже
Заранее спасибо
Выложи глянемь .....мож переделаем )))
Posted: 2005-01-10 01:19:00
by ilove_skazi
Первый скрипт- sub woodp()
uo.exec("set finddistance 3")
uo.exec("findtype 0x0E7D -1 ground")
uo.exec("grab 0 finditem")
wait(300)
uo.exec("findtype 0x0E7D -1 ground")
uo.exec("grab 0 finditem")
wait(300)
end sub Второй скрипт- sub v2()
var x
dim a[2]
a[1]=0x0E7D-вид сундука
a[2]=0x09AA-вид флипнутого сундука
for x=1 to 2
repeat
uo.findtype(a[x],"-1","ground")
if UO.FindCount() and Uo.GetDistance("finditem")<3 then
uo.moveitem("finditem")
wait(300)
end if
next
uo.print("!")
end sub Второй скрипт че то глючит.Желательно чтоб скрипт поднимал любого вида сундуки,причем поднимал сразу 2 сундука при исп скрипта
Posted: 2005-01-10 03:27:59
by necron
ilove_skazi wrote:Первый скрипт- sub woodp()
uo.exec("set finddistance 3")
uo.exec("findtype 0x0E7D -1 ground")
uo.exec("grab 0 finditem")
wait(300)
uo.exec("findtype 0x0E7D -1 ground")
uo.exec("grab 0 finditem")
wait(300)
end sub Второй скрипт- sub v2()
var x
dim a[2]
a[1]=0x0E7D-вид сундука
a[2]=0x09AA-вид флипнутого сундука
for x=1 to 2
repeat
uo.findtype(a[x],"-1","ground")
if UO.FindCount() and Uo.GetDistance("finditem")<3 then
uo.moveitem("finditem")
wait(300)
end if
next
uo.print("!")
end sub Второй скрипт че то глючит.Желательно чтоб скрипт поднимал любого вида сундуки,причем поднимал сразу 2 сундука при исп скрипта
во втором скрипте после repeat until забыл
Posted: 2005-01-10 03:32:48
by ilove_skazi
sub v2()
var x
dim a[2]
a[1]=0x0E7D-вид сундука
a[2]=0x09AA-вид флипнутого сундука
for x=1 to 2
repeat
uo.findtype(a[x],"-1","ground")
if UO.FindCount() and Uo.GetDistance("finditem")<3 then
uo.moveitem("finditem")
wait(300)
end if
next
uo.print("!")
end sub [/quote]
во втором скрипте после repeat until забыл[/quote]
подскажи где там until втискивать?
Posted: 2005-01-12 03:55:36
by ilove_skazi
Ветер ну помоги
Posted: 2005-01-12 05:08:21
by 666Man666
Держи твой модернизированный скрипт
Code: Select all
sub LootItems()
var n
Dim Item[2]
Item[1] = '0x0E7D' ; вид сундука
Item[2] = '0x09AA' ; вид флипнутого сундука
UO.Set('finddistance','3')
For n = 1 to 2
REPEAT
UO.FindType(Item[n],'-1','1')
If UO.FindCount() Then
UO.MoveItem('finditem','1','2')
Wait(300)
EndIf
Until UO.FindCount()==0 or UO.Dead()
Next
end sub
Posted: 2005-01-12 09:59:07
by BETEPAH
ilove_skazi wrote:Ветер ну помоги
Я не один .)))
Posted: 2005-01-12 10:45:50
by Askaneli
BETEPAH wrote:ilove_skazi wrote:Ветер ну помоги
Я не один .)))
Он с девушкой !!!
Posted: 2005-01-13 07:30:10
by admir
а сделать проверку на возможность поднятия , типа если ю кант рич зем то перейти на следущий , как?
Posted: 2005-01-13 08:55:03
by 666Man666
admir wrote:а сделать проверку на возможность поднятия , типа если ю кант рич зем то перейти на следущий , как?
uo.ignore() и u uo.ignorereset() должны тибе помочь..., но с ними бывают глюки... клиент крашится...