Yoko :: АлхимиЯ

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

АлхимиЯ http://forum.yoko.com.ua/viewtopic.php?f=20&t=7538	Page 1 of 2

Author:	SESTRA [ 2006-04-30 04:58:08 ]
Post subject:	АлхимиЯ
Поделитесь кто нить скриптом на алхимию суть варки токова сначала нуна юзать ступку а потом появляется бука и там вибирать нуна что буим варит Под Фв еси не трудна дайте плиз

Author:	SESTRA [ 2006-04-30 14:30:08 ]
Post subject:
Ну кто нить дайте скрипт

Author:	Scripts Writer [ 2006-04-30 14:57:23 ]
Post subject:
врятли такой найдётся,ибо гампы и специально надо гамать на твом сервере.

Author:	SESTRA [ 2006-05-01 08:13:28 ]
Post subject:
Ясна значит буду на пилоте )

Author:	Scripts Writer [ 2006-05-01 08:22:54 ]
Post subject:
можн и на инже ) ток заменить опр.отрезок скрипта на Code: uo.LDblClick(x,y)

Author:

SESTRA [ 2006-05-01 08:37:25 ]

Post subject:

ок попробую а моно еше вапросик что сделать вот у меня скрипт на писание бланков он кароче кликает на кожу нитками а далше не че не делает вот попалите

Code:

sub tailor() 

UO.Exec('exec Reconnect') 

   VAR Instrum = '0x0F9D'
   Var Fak = '0x1067'
   VAR k = 0 
   repeat     
         UO.DeleteJournal() 
         UO.WaitTargetType( Fak )  
         UO.UseType( Instrum )
         UO.WaitMenu ("cut up leather", "Misc", "Misc", "Blanks", "blank Scroll" ) 
         k = 0 
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) 
            k = k + 1 
            wait(500) 
         wend
        
   until UO.Dead()
end sub

sub Reconnect() 
var ReconnectTime,rFlag 
ReconnectTime='0' 
rFlag=1 
repeat 
while (uo.ObjAtLayer('Bpack')=='') 
if rFlag then 
ReconnectTime=MakeTime() 
rFlag=0 
end if 
wait(20000) 
uo.Say('') 
wait(3000) 
uo.Say('') 
wait(3000) 
uo.Say('') 
wait(3000) 
uo.LDblClick(357,164) 
uo.LClick(616,459) 
wait(3000) 
wend 
wait(3000) 
if (rFlag==0) and (ReconnectTime<>'0') then 
uo.TextOpen() 
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
rFlag=1 
ReconnectTime='0' 
end if 
until false 
end sub 

sub MakeTime() 
var d,t,ret,i 
ret=str(uo.Time()) 
t="" 
for i=0 to Len(ret) 
t=ret[Len(ret)-i]+t 
if (i==2) or (i==4) then 
t=":"+t 
end if 
next 
ret=str(uo.Date()) 
d="" 
for i=0 to Len(ret) 
d=ret[Len(ret)-i] + d 
if (i==2) or (i==4) then 
d="."+d 
end if 
next 
ret=t+" @ "+d 
return ret 
end sub 


sub terminate()
UO.Print("ALL OFF")
UO.DeleteJournal() 
uo.exec("terminate all")
end sub

Author:	SESTRA [ 2006-05-01 08:37:35 ]
Post subject:
млин 2 раза выложил нечаино_)

Author:	Scripts Writer [ 2006-05-01 08:40:45 ]
Post subject:
Code: UO.WaitTargetType( Fak ) UO.UseType( Instrum ) UO.WaitMenu ("cut up leather", "Misc", "Misc", "Blanks", "blank Scroll" ) по этому урок писал 6. Сначала меню, потом действие. Меню Прицел на кожу Использование ниток

Author:

SESTRA [ 2006-05-01 08:44:08 ]

Post subject:

вот по поводу алхимии что тут заминить на

Code:

uo.LDblClick(x,y)

Code:

sub alchemy() 
# BETEP™ # 
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('0x0F0E','0x0998','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2') 
wait(1000) 
UO.Grab('all','finditem') 
wait(1000) 
UO.UnSetReceivingContainer() 
Endif 

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

UO.FindType('0x0F88','0x0000','backpack') 
If UO.GetQuantity('finditem')<20 then 
UO.FindType('0x0F88','0x0000','Bag') 
wait(1000) 
UO.Grab('400','finditem') 
wait(1000) 
Endif 

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

UO.UseType('0x0F88') 
UO.WaitMenu('What','Poison')        
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

Author:

Scripts Writer [ 2006-05-01 08:51:41 ]

Post subject:

это ветерановская алхимия?

Code:

UO.UseType('0x0F88') 
UO.WaitMenu('What','Poison')

-хм.

Тут менять нужно после использования рега:

Code:

UO.UseType('0x0F88')

пишешь уже ДаблКлики и координаты по Х и по У ,попадая в менюшки своего меню крафта.

Author:	SESTRA [ 2006-05-01 08:54:13 ]
Post subject:
Ясна

Author:	Sanch [ 2006-05-02 14:14:38 ]
Post subject:
Я на фв занимался писанием алхимии, с этой букой все сложно оч, пока не готов.

Author:	SESTRA [ 2006-05-02 14:30:18 ]
Post subject:
А если сделаеш скинеш ок просто такой гемор ( А на инскрипт у тя нету ? а то тоже гемор(

Author:	Sanch [ 2006-05-02 14:56:22 ]
Post subject:
Пока нету, просто есче не занимался, тока на мининг более менее норм скрипт наконец дописал, тк элемы просто нереально сильные, на днях думаю будет.

Author:	SESTRA [ 2006-05-02 15:20:26 ]
Post subject:
Ясна

Author:	SESTRA [ 2006-05-02 15:20:50 ]
Post subject:
Тода выложиш плиз суда ок

Author:	Sanch [ 2006-05-02 17:27:53 ]
Post subject:
ок, вообще спрашивай если че, у мя много скриптов есть под фв написаных мною, есть да же на каторгу, ходит рубит, сдает, все сам, имхо самый полезный из всех.

Author:	SESTRA [ 2006-05-02 18:09:29 ]
Post subject:
Ок )

Author:	SESTRA [ 2006-05-02 18:09:38 ]
Post subject:
Ок )

Author:	SESTRA [ 2006-05-02 18:23:20 ]
Post subject:
Мне самое глвное ето ток алхимия и инскрипт а так вроде все норма а вот с етим трабл ппц(

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