 скрипт |
 Сообщений: 435 Рег. 19.05.2010 |
 29 мая 2010 21:58 Сообщение #1
|
Помогите плз...
вот скрипт... убил моба, подбежал, нажал кнопку, открылся труп и слутались гп и стрелы...
проблема в том, что гп лутает, а стрелы нет ((( скрипт взял у Статикса, но у него он был с резкой и заморочками, переделал под себя, и нарвался на траблу =((
так как я в скриптах ноль, прошу помощи. Заранее спасибо.
sub LootMinoc() DIM Nado[2] Nado[0] = '0x0eed' ; gp Nado[1] = '0x0f3f' ; streli VAR i UO.UseObject( 'lastcorpse' ) wait(300) For i = 0 To 1 UO.FindType( Nado[i], '-1', 'lastcorpse' ) While UO.FindCount() > 0 UO.MoveItem( 'finditem' ) UO.Print( 'The loot was finished' ) endsub |
|
|
|
|
 Сообщений: 3333 Рег. 5.09.2009 |
29 мая 2010 22:07 Сообщение #2
|
продубли еще раз стрелы, например |
|
|
|
|
 Сообщений: 1454 Рег. 22.03.2010 |
29 мая 2010 22:15 Сообщение #3
|
sub Loot()
DIM O[2]
var p
O[1] = '0x0eed' ; gp
O[2] = '0x0f3f' ; streli
uo.exec("warmode '0'")
uo.waittargetobject('lastcorpse')
uo.usetype(0x0F51); 0x0EC3- нуби нож 0x0F51 дайгер - инcтрумент,которым будем резать
wait(400)
UO.UseObject('lastcorpse')
wait(100)
UO.UseType('0x13B1'); Лук - 0x13B1, арбалет - 0x13FC, варфок - 0x1404, катана - 0x13FE, щит хетер - 0x1B76
UO.WarMode(1)
for p=1 to 2
repeat
uo.findtype(O[p],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(300)
end if
until UO.FindCount()<1
wait(10)
next
uo.usetype('0x0F9E')
uo.waittargettype('0x1078')
uo.exec("warmode '1'")
end sub |
|
|
|
|
|
Сообщений: 435 Рег. 19.05.2010 |
29 мая 2010 22:20 Сообщение #4
|
продублировать не помогло =((
а вот этот идеально работает... спасибо огромное!!! |
|
|
|
|
|
Сообщений: 3333 Рег. 5.09.2009 |
29 мая 2010 22:20 Сообщение #5
|
sub Loot1() uo.useobject('lastcorpse') UO.FindType(-1,-1,'lastcontainer') while uo.FindCount()>0 UO.FindType(-1,-1,'lastcontainer') UO.MoveItem('finditem',0,'backpak') wait(1100) wend end sub попробуй |
|
|
|
|
|
29 мая 2010 22:26 Сообщение #6
|
|
Parker, В скрипте не один цикл не закрыт лишку удалил. |
|
|
|
|
 Сообщений: 1234 Рег. 1.05.2010 |
29 мая 2010 22:39 Сообщение #7
|
sub LootMinoc() DIM Nado[2] Nado[0] = '0x0eed' ; gp Nado[1] = '0x0f3f' ; streli VAR i UO.UseObject( 'lastcorpse' ) wait(300) For i = 0 To 1 UO.FindType( Nado[i], '-1', 'lastcorpse' ) While UO.FindCount() > 0 UO.MoveItem( 'finditem' ) UO.Print( 'The loot was finished' ) wend next endsub |
|
|
|
|
|
Сообщений: 1454 Рег. 22.03.2010 |
29 мая 2010 22:43 Сообщение #8
|
Если надо будут какие-то скрипты обращайся в асю. Если смогу помогу. |
|
|
|
|
|
Сообщений: 435 Рег. 19.05.2010 |
29 мая 2010 22:46 Сообщение #9
|
спасибо ребят  |
|
|
|
|
|
Сообщений: 1454 Рег. 22.03.2010 |
31 мая 2010 00:15 Сообщение #10
|
Не надо там менять нефига |
|
|
|
|
Последние посетители (0):
| Сейчас: 30 ноября 2024 10:25 |