Page 1 of 1

kindlingi

Posted: 2008-05-20 18:39:59
by 4elovek
mne nuzen script na inject( lu46e na easyuo) 4to bi vikidival kindlingi iz backa na pol
ili 4to bi kazdie 20min on ih kidal na pol
pro6u pomo4 dobrih ljudej

Posted: 2008-05-20 18:49:25
by 4elovek

Code: Select all

ub kind() 
VAR kind = '' #Тип щепок 
VAR log = '' #Тип логов 
VAr dag = '' #Тип Даггера 

UO.Set('finddistance', '2') 
UO.CancelMenu() 
UO.AutoMenu('What do you wish to make?', 'kindling') 
wait(200) 

UO.FindType(log, '-1', 'ground') 
If UO.FindCount() > 0 then 
  repeat 
    UO.MoveItem('finditem', '100', 'backpack') 
    wait(500) 
    UO.FindType(log, '-1', 'backpack') 
    wait(100) 
    UO.WaitTargetObject('finditem') 
    wait(100) 
    UO.UseType(dag) 
    UO.DeleteJournal() 
    repeat 
      wait(100) 
    until UO.InJournal('You put') 
    UO.FindType(kind, '-1', 'backpack') 
    If UO.FindCount() > 0 then 
      UO.MoveItem('finditem', '-1', 'ground') 
      wait(500) 
    endif 
    UO.FindType(log, '-1', 'ground')  
    wait(100) 
  until not UO.FindCount() 
else 
  UO.Print('!!!НЕТУ ЛОГОВ, ЗАКАНЧИВАЕМ!!!') 
end if 
UO.Print('!!!НЕТУ ЛОГОВ, ЗАКАНЧИВАЕМ!!!') 
end sub
vot na6ol script, pomogite virezatj to gde on vikidivaet kindlingi t.k. ja virezatj ne umeju

Posted: 2008-05-20 18:55:09
by Scripts Writer

Code: Select all

    UO.FindType(kind, '-1', 'backpack') 
    If UO.FindCount() > 0 then 
      UO.MoveItem('finditem', '-1', 'ground') 
      wait(500) 
    endif 

Posted: 2008-05-20 19:07:04
by 4elovek
vot 4to u menja visvetilosj pro6u pomo4

http://smages.com/fe/62/fe62d7a416e73f9 ... 6c.jpg.htm

Posted: 2008-05-20 19:30:00
by Scripts Writer

Code: Select all

VAR kind = '' #Тип щепок

Posted: 2008-05-20 19:33:16
by 4elovek
mozes polnostju napisatj kak dolzno vigleditj?
a to ja turok v inje
no ,info poljzovatsja umeju :)

Posted: 2008-05-20 20:15:30
by 4elovek
a kak sdelatj 4to bi vsegda rabotal?