В помощь новичку, Скрипт на резку и лут крыс
Старший Лейтенант (5469484)14 лет
Dragonstalker
Сообщений: 240
Рег. 26.03.2010
17 апреля 2010 11:31
Сообщение #1

Лутит камни, пвп скроллы, стрелыболты, кожумясо.

 

sub Sniper()
DIM R[25];
var c
R[1] = 0x0EED
R[2] = 0x1078
R[3] = 0x09F1
R[4] = 0x0F26
R[5] = 0x0F25
R[6] = 0x0F13
R[7] = 0x0F10
R[8] = 0x0F18
R[9] = 0x0F11
R[10] = 0x0F15
R[11] = 0x1BD1
R[12] = 0x1BFB
R[13] = 0x0F3F
R[14] = 0x1087
R[15] = 0x108A
R[16] = 0x1869
R[17] = 0x0F16
R[18] = 0x14EF
R[19] = 0x1F64
R[20] = 0x1F4A
R[21] = 0x1F69
R[22] = 0x1F52
R[23] = 0x1F6B
R[24] = 0x1F5F
R[25] = 0x0F7E

UO.UseObject('lastcorpse')
wait(200)
uo.exec("warmode '0'")
uo.waittargetobject('lastcorpse')
uo.usetype(0x0F51);Нож для снятия шкуры.
wait(200)
uo.usetype(0x13FC);bow 0x13B1 crossbow 0x13FC Стрелковое оружие.
for c=1 to 25;
repeat
uo.findtype(R[c],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(100)
end if
until UO.FindCount()<1
wait(100)
next
uo.exec("warmode '1'")
end sub


Frozen
17 апреля 2010 12:43
Сообщение #2
Запустил, че-то не лутает(

Frozen
17 апреля 2010 13:58
Сообщение #3
Режит и лутает последнего убитого НПЦ. Может ты сначало толпу убиваешь, а патом пытаешься резать и лутать?
Подполковник (13440311)14 лет
Ranger
Сообщений: 559
Рег. 7.03.2010
17 апреля 2010 17:26
Сообщение #4
спс автору
Старший Лейтенант (5469484)14 лет
Dragonstalker
Сообщений: 240
Рег. 26.03.2010
18 апреля 2010 08:16
Сообщение #5
;) пожалуйсто

Frozen
22 апреля 2010 15:10
Сообщение #6
Эх, если-б ты еще не поленился каменты поставить, какой тип из R[1]-R[25] чему соответствует, отта было бы супер.

Frozen
22 апреля 2010 15:16
Сообщение #7
еще интересно как добавить к списку лута логи и руду??? скажите плз
Сержант (527412)15 лет
Necromancer
Сообщений: 1240
Рег. 30.10.2009
24 апреля 2010 10:49
Сообщение #8
sub Sniper()
DIM R[27];
var c
R[1] = 0x0EED
R[2] = 0x1078
R[3] = 0x09F1
R[4] = 0x0F26
R[5] = 0x0F25
R[6] = 0x0F13
R[7] = 0x0F10
R[8] = 0x0F18
R[9] = 0x0F11
R[10] = 0x0F15
R[11] = 0x1BD1
R[12] = 0x1BFB
R[13] = 0x0F3F
R[14] = 0x1087
R[15] = 0x108A
R[16] = 0x1869
R[17] = 0x0F16
R[18] = 0x14EF
R[19] = 0x1F64
R[20] = 0x1F4A
R[21] = 0x1F69
R[22] = 0x1F52
R[23] = 0x1F6B
R[24] = 0x1F5F

R[25] = 0x0F7E

R[26] = тип дерева

R[27] = тип железа


UO.UseObject('lastcorpse')
wait(200)
uo.exec("warmode '0'")
uo.waittargetobject('lastcorpse')
uo.usetype(0x0F51);Нож для снятия шкуры.
wait(200)
uo.usetype(0x13FC);bow 0x13B1 crossbow 0x13FC Стрелковое оружие.
for c=1 to 27;
repeat
uo.findtype(R[c],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(100)
end if
until UO.FindCount()<1
wait(100)
next
uo.exec("warmode '1'")
end sub

Frozen
24 апреля 2010 13:16
Сообщение #9
он работает по ласт корпсу не осуществляя поиска! (ласт корпс это последний сваленый монстр - если ктото бьет рядом с тобой монстра то скрипт сбивается!) для лута надо на таргет делать! да при этом незаметил в этом скрипте ограничение дистанции тоесть 16 тайлов по умолчанию это пппц) Вывод один - где мля тема в вики по поводу скиптов???? или вы хотите чтоб я стал модером этой темы???
« · Таверна · »
Последние посетители (0):

 
Сейчас: 26 ноября 2024 00:24