Page 1 of 1

Alchemy shadr Darkuo

Posted: 2006-04-04 19:53:23
by CHYVAKs
Napisal svoi pervij skript, no on cherez nekototoroe vremja zavisajet.
chto v nem dopisatj ili ispravitj?

sub Alchemy()
;VAR Cont='0x40015F54'
Var Type='0x0F0B'
Var Color='0x0000'
Var Type2='0x0F7A'
Var Type3='0x0F0E'

repeat
UO.Exec("usetype 0x0E9B")
cheklag()
wait (1000)
UO.LClick(486,454)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("You fail") or UO.InJournal("Maybe you lack"))
wait(300)
wend
wait(200)
if UO.Count(Type,Color)>10 then
cheklag()
prodaza()
endif
if UO.Count(Type2)<20 then
cheklag()
regi()
endif
if UO.Count(Type3)<20 then
cheklag()
bottle()
endif
until UO.Dead()
end sub

sub prodaza()
uo.Sell('refresh')
wait(1000)
uo.Say('bye')
wait(1000)
end sub

sub regi()
uo.buy('regsrefresh')
wait(1000)
uo.Say('bye')
wait(1000)
end sub

sub bottle()
uo.buy('bottle')
wait(1000)
uo.Say('bye')
wait(1000)
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub


zareneje spasibo.

Posted: 2006-04-04 21:13:08
by Scripts Writer
скриптик на самом деле интересный )) -вспомнился пилот гг.

в код ставь

во вторых:

Code: Select all

UO.LClick(486,454)
эт чё такое?

Posted: 2006-04-05 19:33:20
by CHYVAKs
UO.LClick(486,454)
eto nazatj miwku v etoi tochke.
u nas na sharde menju kraftovih skilov drugije, poetomu nado obhoditsja Uo.click

Posted: 2006-04-05 20:19:54
by Scripts Writer
я не дурак и что такое клик знаю. я у тебя другое спрашиваю, куда он кликает.?

Posted: 2006-04-05 20:50:15
by CHYVAKs
Sory. on klikajet na status >Make Last<

Posted: 2006-04-05 20:55:03
by Scripts Writer
в чём выражается этот мейк ласт? кнопка, картинка или че там

Posted: 2006-04-05 21:01:51
by CHYVAKs
Menu idet tipo kartinki.
:cry: blin nereal kakto objasnitj kak eto vigljadit.
Make last: eto tipo knopki v nizu kraft menu.

Posted: 2006-04-06 05:41:54
by Scripts Writer
Если работа идёт с картинкой, то для того что бы не сбивалось попробуй использовать гампы. Читай на форуме и в факе, я не особо с ними.

Posted: 2006-04-06 13:17:23
by dmitrykit
You Must Die

tama slishmok gump ogromnyj 4toby najti, 4to klikat' nado...
pravda make last eto vsegolish recall ID 3.

Posted: 2006-04-06 13:23:39
by Kynep
dmitrykit wrote:You Must Die

tama slishmok gump ogromnyj 4toby najti, 4to klikat' nado...
pravda make last eto vsegolish recall ID 3.


я заметил одну странность... а почему ты транслитом пишешь? За границей живешь?

Posted: 2006-04-06 18:22:22
by CHYVAKs
Tochno ja zagronichnij, poetomu mne legche pisatj translitom. No jesli budet vam legche mogu popitatsja pisatj i russkim shriftom, prosto doljshe pisatj pridetsja.

Posted: 2006-04-06 18:31:00
by CHYVAKs
вот интересно если добaвить в строку

sub regi()
uo.buy('regsrefresh')
wait(1000)
uo.Say('bye')
wait(1000)
endif
end sub


тaкую добaвку

if UO.Count(Type2)<21 then
cheklag()
wait(10000)
Alchemy()
endif


может чтото поможет

Posted: 2006-04-06 18:32:26
by Scripts Writer
что ты хотел сказать последним постом?

Posted: 2006-04-06 18:37:47
by CHYVAKs
ну просто если немножко дописaть

sub regi()
uo.buy('regsrefresh')
wait(1000)
uo.Say('bye')
wait(1000)
endif
if UO.Count(Type2)<21 then
cheklag()
wait(10000)
Alchemy()
endif
end sub


может ето поможет чтоби скрипт незaпaривaлся...