Скрипт на дроп

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Greidon[Gods]
Posts: 54
Joined: 2006-12-26 09:32:20
Contact:

Скрипт на дроп

Post by Greidon[Gods] »

Нужно 2 скрипта, чтобы первый под себя дропал стог сена, а второй его поднимал. Юзал поиск, подходящего ничего не нашел
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

Дроп:

Code: Select all

sub Drop()
For var Ex=1
UO.FindType('ТИП', 'backpack')
UO.Drop(1, STR(UO.GetX('self')), STR(UO.GetY('self')), STR(UO.GetZ('self')-3), "finditem") 
end sub


Лут:

Code: Select all

sub Loot() 
VAR Exit
Exit=0
UO.Set("finddistance","1")
for var i = 0
UO.FindType('ТИП', 'ground')
UO.Grab('-1','finditem')
end sub


Давно уже ничё не писАл, надеюсь за пол года не наделал море ошибок :)
"Старички", поправьте если чё (ой потупел..)
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
Rivory
Posts: 205
Joined: 2005-01-06 11:49:28

Post by Rivory »

SAMURAI wrote:Дроп:

Code: Select all

For var Ex=1

Мож я чегото реально не понимаю, но нафига тут эта строчка ?

Code: Select all

UO.Drop(1, STR(UO.GetX('self')), STR(UO.GetY('self')), STR(UO.GetZ('self')-3), "finditem")  

можно сделать легче

Code: Select all

uo.Drop('1','0','0','0','finditem')

Code: Select all

sub Loot() 
VAR Exit
Exit=0
for var i = 0

Эти строчки нафиг ?

Code: Select all

UO.Set("finddistance","1") 
Еденички мало, надо тройку ставить


Итого делаем так.

Code: Select all

sub drop()
var seno = '0x0000' #Сюда тип сена
uo.findtype(seno,'-1','backpack')
if uo.findcount() then
  uo.drophere('finditem')
else
  uo.print ('Net Sena')
end if
end sub

sub loot()
var seno = '0x0000' #Сюда тип сена
uo.set('finddistance','3')
uo.findtype(seno,'-1','ground')
if uo.findcount() then
  uo.moveitem('finditem','-1','backpack')
else
  uo.print ('Net Sena')
end if
end sub
Greidon[Gods]
Posts: 54
Joined: 2006-12-26 09:32:20
Contact:

Post by Greidon[Gods] »

Респект, работает! Только проблемка была с сеногм, 2 типа у него, бегаю с палкой 0x03B6 :roll:
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

Rivory wrote:<...>
Да я вообще всё и вся позабыл, хотя особо доКуя и незнал...
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
Mihail
Expert!
Posts: 548
Joined: 2005-05-20 20:30:10
Contact:

Post by Mihail »

нахрена скрипт на такую операцию?
дроп (хоткей)

Code: Select all

drophere _0x0000

поднималка

Code: Select all

moveitem ~0x0000

только и всего :)
ychenik
Posts: 82
Joined: 2007-07-01 21:23:58

Post by ychenik »

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

Post by Mihail »

поставить цикл
или юзать поиск по форуму а так же читать уроки скриптинга
MeLFiS
Posts: 80
Joined: 2007-06-08 11:44:35

Post by MeLFiS »

Code: Select all

sub drop() 
var dager = '0x0F51' #Сюда тип дагера
uo.findtype(dager,'-1','backpack')
if uo.findcount() then
  uo.drophere('finditem')
else
  uo.print ('Net dagera')
end if
end sub

sub loot()
var dager = '0x0F51' #Сюда тип дагера
uo.set('finddistance','3')
uo.findtype(dager,'-1','ground')
if uo.findcount() then
  uo.moveitem('finditem','-1','backpack')
else
  uo.print ('Net dagera')
end if
end sub


Можете дописать чтобы постояно лутил и кидал при появке дагера в паке или на полу ! плиз !
Rivory
Posts: 205
Joined: 2005-01-06 11:49:28

Post by Rivory »

Code: Select all

sub drop() 
var dager = '0x0F51' #Сюда тип дагера
repeat
uo.findtype(dager,'-1','backpack')
if uo.findcount() then
  uo.drophere('finditem')
  wait(300)
else
  uo.print ('Net dagera')
end if
until uo.Dead()
end sub

sub loot()
var dager = '0x0F51' #Сюда тип дагера
uo.set('finddistance','3')
repeat
uo.findtype(dager,'-1','ground')
if uo.findcount() then
  uo.moveitem('finditem','-1','backpack')
  wait(300)
else
  uo.print ('Net dagera')
end if
until uo.Dead()
end sub

Первый скрипт у первого чара запускай, второй у втоорого.
Last edited by Rivory on 2007-07-08 14:23:09, edited 2 times in total.
MeLFiS
Posts: 80
Joined: 2007-06-08 11:44:35

Post by MeLFiS »

Мне нада чтобы 1 чар лутил с пола а 2 чар кудил на пол
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

В первом скрипте убери вызов второй функции и запусти каждый скрипт по отдельности в своих окнах
Rivory
Posts: 205
Joined: 2005-01-06 11:49:28

Post by Rivory »

Поправил скрипт.. бери
Sp
Posts: 83
Joined: 2005-07-22 13:43:25

Re: Скрипт на дроп

Post by Sp »

Greidon[Gods] wrote:Нужно 2 скрипта, чтобы первый под себя дропал стог сена, а второй его поднимал. Юзал поиск, подходящего ничего не нашел

а можно сделать чтобы он сено не под себя кидал а на противника?...если да то как?подскажите народ..
MacTepeo
Posts: 52
Joined: 2007-04-14 16:11:34
Location: Москоу
Contact:

Post by MacTepeo »

все вариации скриптов на сено/заборы и прочее есть у меня)
10 кк на дрв вполне устроит)
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

MacTepeo wrote:все вариации скриптов на сено/заборы и прочее есть у меня)
10 кк на дрв вполне устроит)


Выкладывай все свои вариации и я придумаю еще одну
Post Reply