Yoko
http://forum.yoko.com.ua/

Поиск тел вокруг и их лут
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7684
Page 1 of 1

Author:  -=Morf=- [ 2006-05-14 19:52:48 ]
Post subject:  Поиск тел вокруг и их лут

сопственна опять ай нид хелп)))) короч нужен такой вот скрипт, стоит чар вокруг него монстры, когда он килл их, он все вещи из них собирает в свой бек пак, но скрипт не выключается, а продолжает работать дальше и дальше=)))) :oops: :oops:

Author:  Kynep [ 2006-05-14 19:56:41 ]
Post subject:  Re: Поиск тел вокруг и их лут

-=Morf=- wrote:
сопственна опять ай нид хелп)))) короч нужен такой вот скрипт, стоит чар вокруг него монстры, когда он килл их, он все вещи из них собирает в свой бек пак, но скрипт не выключается, а продолжает работать дальше и дальше=)))) :oops: :oops:


Вот посмотри, поправь под себя:
Code:
sub GrimKill() 

    Var hrsT, hrsC
    hrsT = "0x03CA" # тип зверька
    hrsC = "0x0901" # его цвет
   UO.Set('finddistance', '14')
repeat
Uo.DeleteJournal()
   UO.FindType(hrsT, hrsC, "ground")
       If UO.FindCount() > 0 Then
         UO.WarMode(1)
         UO.Attack('finditem')
         repeat
         wait(100)
         until UO.InJournal('Body of Grim')
       Else
       looting()
       wait(100)
       End If
       UO.WarMode(0)
       UO.WaitTargetObject('lastcorpse')
       UO.UseSkill('Forensic Evaluation')
       wait(4000)
until UO.dead()
end sub


Sub looting()
dim Loot[29]
var i
Loot[0]=0x0F16 ; Ametist
Loot[1]=0x0F20 ; Tourmaline
Loot[2]=0x0F26 ; Diamond
Loot[3]=0x0F30 ; Diamond
Loot[4]=0x0F10
Loot[5]=0x0F2D
Loot[6]=0x0F2C
Loot[7]=0x0F28
Loot[8]=0x0F11
Loot[9]=0x0F2A
Loot[10]=0x0F1E
Loot[11]=0x0F22
Loot[12]=0x0F2D
Loot[13]=0x0F30
Loot[14]=0x0F2E
Loot[15]=0x0F2F
Loot[16]=0x0F15
Loot[17]=0x0F17
Loot[18]=0x0EED
Loot[19]=0x0F29
Loot[20]=0x0F1A
Loot[21]=0x0F24
Loot[22]=0x0E76
Loot[23]=0x0F1F
Loot[24]=0x0F2B
Loot[25]=0x0F25
Loot[26]=0x0F23
Loot[27]=0x0F13
Loot[28]=0x0F12
for i = 0 to 28
      UO.FindType(Loot[i],'-1', 'lastcorpse')
     if UO.FindCount() > 0 then
      UO.MoveItem('finditem', '-1')
      wait(1000)
   else
   wait(100)
     endif
next
Uo.DeleteJournal()
end sub

Author:  -=Morf=- [ 2006-05-14 20:09:26 ]
Post subject: 

а он прекращает работу, после того как проверил вокруг тела

Author:  Kynep [ 2006-05-14 20:14:04 ]
Post subject: 

-=Morf=- wrote:
а он прекращает работу, после того как проверил вокруг тела


а ты попробуй... он ваапщето ищет монстра указанного, потом киляет его и лутает и так до посинения, тока лут поправь, поставь то что тебе надо, а то он лутает только камни драгоценные

Author:  Rijo [ 2006-05-15 07:20:22 ]
Post subject: 

ну ты кинь скрипт, мы посмотрим. Возможно там просто зацикленно

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/