#1 2012-08-22 07:03:22

ReaperDRW

Adept

Registered: 2011-08-08

Posts: 188

Warnings: [+] [+]

Есть у когонить скрипт на тинкеринг?

у меня пара скриптов есть но не работают, помогите плиз нормальный сделать.
1)вобще не запускается
sub main()
    Var V_TinkerTool  = 0x1ebc
    Var V_IronIngot   = 0x1bf2
    Var V_EmptyBotele = 0x0f0e
    While UO.Count(V_IronIngot) > 2
        If UO.Count(V_IronIngot) < 20 Then
            UO.UseFromGround(V_IronIngot)
            UO.Exec("grab " + STR(20 - UO.Count(V_IronIngot)) + " lastobject")
            Wait(1000)
        EndIf
        UO.Exec("waitmenu 'Tinkering' 'Tools' 'Tools' 'empty'")
        UO.UseType(V_TinkerTool)
        Wait(6000)
        IF UO.Count(V_EmptyBotele) > 10 THEN
            UO.WaitTargetType(V_EmptyBotele)
            UO.Exec("drop 10 1 0 0")
        ENDIF
    Wend
end sub

2)берёт из сундука 50 айрона, но не крафтит из них ни чего
sub main()
VAR Exit=0, LastTimer
uo.print('Сундук с айроном')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print('Сундук куда бутылки бросать')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend

UO.DeleteJournal()

UO.FindType('0x0F0E','0x0000','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer('Bag2')
wait(1000)
UO.Grab('all','finditem')
wait(1000)
Endif

UO.FindType('0x1bf2',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1Bf2','0x0000','Bag')
wait(1000)
UO.Grab('50','finditem')
wait(1000)
Endif

LastTimer=UO.Timer()
UO.DeleteJournal()

end sub

заранее благодарю отозвавшихся.

ReaperDRW

Adept

Registered: 2011-08-08

Posts: 188

Warnings: [+] [+]

Re: Есть у когонить скрипт на тинкеринг?

за хороший рабочий скрипт готов отблагодарить материальными благами )

aka Mk.

Expert

From: Moscow

Registered: 2012-04-06

Posts: 115

Re: Есть у когонить скрипт на тинкеринг?

Кладешь в бэкпак инготы, и начинаешь делать бутылки через "Макрос". (Ну, повторяешь действие, думаю понял).
Скрипт будет брать инготы из указаного сундука, и кидать бутылки сделаные обратно.
Вообще, это под алхимию скрипт, но так как есть возможность включать крафт итемов через макрос в самом уо, подойдет для чего угодно

Вообщем, когда включиш скрипт, он попросит показать :

1. Реги (Покажи еду в паке)
2. Бутылки ( Покажи на айрон инготы)
3. Сумку ( Покажи сумку или сундук где лежат инготы)
4. Трешбочку ( Покажи куда скидывать бутылки, можно указать то же сундук где лежат инготы)
5. Крафт ( Покажи что делаешь, в твоём случае как я понимаю это будут бутылки )

Ну, вообщем вот сам скрипт :

sub main()
var a

UO.Print('Viberite iz chego delat potion')
uo.addtype('regi')
while uo.targeting()
     wait(100)
wend

UO.Print('Viberite butilki kotorie budete ispolzovat')
uo.addtype('butilki')
while uo.targeting()
     wait(100)
wend

UO.Print('Ukajite gde lejat resi')
uo.addobject('chest')
while uo.targeting()
     wait(100)
wend

UO.Print('Ukajite kuda skidivat kraft')
uo.addobject('Trash')
while uo.targeting()
     wait(100)
wend

UO.Print('Pokajite chto delaete')
uo.addtype('Kraft')
while uo.targeting()
     wait(100)
wend

while not uo.dead()
     uo.waitmenu ('What', 'Refresh')
     uo.usetype('regi')
     uo.SetReceivingContainer('Trash')
     wait(1000)
     uo.FindType('Kraft')
     if uo.GetQuantity('finditem')>0 then
          uo.Grab('0','finditem')
          wait(2000)
     end if
     uo.UnSetReceivingContainer('Trash')
     

     if uo.count('regi') < 30 then
          uo.SetReceivingContainer('backpack')
          uo.exec('useobject chest')
          uo.FindType('regi','-1','chest')
          uo.Grab('50','finditem')
          wait(1000)
          uo.UnsetReceivingContainer()
     end if
     wait(1000)
     if uo.count('butilki') < 30 then
          uo.SetReceivingContainer('backpack')
          uo.exec('useobject chest')
          uo.FindType('butilki','-1','chest')
          uo.Grab('50','finditem')
          wait(1000)
          uo.UnsetReceivingContainer()
     end if
     wait(5000)
wend
end sub

ReaperDRW

Adept

Registered: 2011-08-08

Posts: 188

Warnings: [+] [+]

Re: Есть у когонить скрипт на тинкеринг?

какой материальной благодарности хотел бы? )))

ReaperDRW

Adept

Registered: 2011-08-08

Posts: 188

Warnings: [+] [+]

Re: Есть у когонить скрипт на тинкеринг?

не могу понять как пользоваться скриптом... можешь в аську написать 261383288?

aka Mk.

Expert

From: Moscow

Registered: 2012-04-06

Posts: 115

Re: Есть у когонить скрипт на тинкеринг?

Стукнул.
Моя если что 7557665.