Помогите плиз...скрипт перестает работать((

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
AvantriX
Posts: 35
Joined: 2004-04-25 23:23:27

Помогите плиз...скрипт перестает работать((

Post by AvantriX »

Code: Select all

sub alchemy1() 
# BETEPa„? # 
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 
while Exit<>1 
UO.DeleteJournal() 

UO.FindType('0x0F07','0x0000','backpack') ;òî ÷òî èçãîòîâèëè
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2') 
wait(1000) 
UO.Grab('all','finditem') 
wait(1000) 
UO.UnSetReceivingContainer() 
Endif 


UO.FindType('0x0F84','0x0000','backpack') ; NS 
   If UO.GetQuantity('finditem')<20 then 
      UO.FindType('0x0F84','0x0000','0x4000E0BC'); NS, container 
      wait(1000) 
      uo.useobject('0x4000e0bc')
      wait(200)
      UO.Grab('300','finditem') 
      wait(500) 
      end if
LastTimer=UO.Timer() 
UO.WaitMenu('What','Cure') ; menu 
UO.UseType(0x0F84) ; Ginseng 

UO.FindType('0x0F0E',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F0E','0x0000','Bag') 
wait(1000) 
UO.Grab('100','finditem') 
wait(500) 
Endif 


while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
wait(500) 
wend 

If UO.InJournal("You toss the failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 
Else 
EndIf 
wend 
end sub 

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub
незнаю из-за чего, а в закладке скрипт он есть , тоесть по сути он работает но в уо никакх действие не выполняет....
помогите пожалуста...заранее признателен
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

Что точно не работает ?
Все просто.
BETEPAH ™
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

2 BETEPAH
как тебе не стыдно????
кто будет настройки в начало выносить???
кто будет полукилометровое описалово рисовать???
:D :D :D
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

Sfagnum wrote:2 BETEPAH
как тебе не стыдно????
кто будет настройки в начало выносить???
кто будет полукилометровое описалово рисовать???
:D :D :D
Я этот скрипт написал когда инжу тока 2 недели в глаза видел ))
И темболее там какая то белебирда ..много не моего )
Все просто.
BETEPAH ™
Post Reply