Page 1 of 1
Помогите переделать макрос на лут!!!
Posted: 2006-10-26 23:26:16
by qqqqqq
Вот макрос но надо чтоб он этоже самое лутил но только не из трупа а с земли и нечего более!!!
sub loot()
VAR WaitTime=500
VAR Exit=1, i
DIM Loot[19]
Loot[1]="0x0EED"
Loot[2]="0x1ECE"
Loot[3]="0x143E"
Loot[4]="0x0F4E"
Loot[5]="0x1401"
Loot[6]="0x13FE"
Loot[7]="0x0F63"
Loot[8]="0x1402"
Loot[9]="0x1406"
Loot[10]="0x1438"
Loot[11]="0x13FA"
Loot[12]="0x0F45"
Loot[13]="0x0F49"
Loot[14]="0x1401"
Loot[15]="0x1940"
Loot[16]="0x0DF0"
Loot[17]="0x0E87"
Loot[18]="0x1F03"
Loot[19]="0x1088"
wait (500)
for i = 1 to 19
UO.FindType(Loot[i],"-5","lastcorpse")
UO.Grab("0","finditem")
next
end sub
Posted: 2006-10-26 23:38:53
by Savage
Code: Select all
sub loot()
VAR WaitTime=500
VAR i =1
DIM Loot[20]
Loot[1]="0x0EED"
Loot[2]="0x1ECE"
Loot[3]="0x143E"
Loot[4]="0x0F4E"
Loot[5]="0x1401"
Loot[6]="0x13FE"
Loot[7]="0x0F63"
Loot[8]="0x1402"
Loot[9]="0x1406"
Loot[10]="0x1438"
Loot[11]="0x13FA"
Loot[12]="0x0F45"
Loot[13]="0x0F49"
Loot[14]="0x1401"
Loot[15]="0x1940"
Loot[16]="0x0DF0"
Loot[17]="0x0E87"
Loot[18]="0x1F03"
Loot[19]="0x1088"
wait (WaitTime)
While i<20
UO.FindType(Loot[i],"-5","ground")
If UO.FindCount() Then
UO.Grab("0","finditem")
Else
i=i+1
Endif
Wend
end sub
Posted: 2006-10-27 08:12:02
by Nmy
Code: Select all
sub loot()
VAR i
DIM Loot[19]
Loot[1]="0x0EED"
Loot[2]="0x1ECE"
Loot[3]="0x143E"
Loot[4]="0x0F4E"
Loot[5]="0x1401"
Loot[6]="0x13FE"
Loot[7]="0x0F63"
Loot[8]="0x1402"
Loot[9]="0x1406"
Loot[10]="0x1438"
Loot[11]="0x13FA"
Loot[12]="0x0F45"
Loot[13]="0x0F49"
Loot[14]="0x1401"
Loot[15]="0x1940"
Loot[16]="0x0DF0"
Loot[17]="0x0E87"
Loot[18]="0x1F03"
Loot[19]="0x1088"
for i = 1 to 19
UO.FindType( Loot[i] , -1 ,"lastcorpse")
while uo.findcount()
uo.moveitem('finditem')
wait(250)
checklag()
UO.FindType( Loot[i] , -1 ,"lastcorpse")
wend
next
end sub
Posted: 2006-10-27 10:38:31
by Savage
Думаю в данном случае лучше не юзать чеклаг, если будет сэйв или другой лаг можно скрипт пульнуть повторно.
Posted: 2006-10-27 10:43:20
by Askaneli
нуна проверять на фаст лут и на сейф.
сори что вмешиваюсь ))))
Posted: 2006-10-27 10:44:51
by Savage
хехе, читай внимательно техзадание
Posted: 2006-10-27 10:45:21
by Askaneli
а я ток тебе ответил )))
юзеру я отвичаю в другом топике )))
Posted: 2006-10-27 10:48:05
by Askaneli
да и ваще лучше сразу и с земли и с трупа одной кнопой лутать
просто проверить на наличие ласткорпса поблизости
если нету то тока с земли, а если есть то режем ласткорпсу лутаем ласткорпсу и с земли прихватываем то же ...