Alchemy shadr Darkuo

CHYVAKs · Post by **CHYVAKs** » 2006-04-04 19:53:23

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.

Scripts Writer · Post by **Scripts Writer** » 2006-04-04 21:13:08

скриптик на самом деле интересный )) -вспомнился пилот гг.

в код ставь

во вторых:

Code: Select all

UO.LClick(486,454)

эт чё такое?

CHYVAKs · Post by **CHYVAKs** » 2006-04-05 19:33:20

UO.LClick(486,454)
eto nazatj miwku v etoi tochke.
u nas na sharde menju kraftovih skilov drugije, poetomu nado obhoditsja Uo.click

Scripts Writer · Post by **Scripts Writer** » 2006-04-05 20:19:54

я не дурак и что такое клик знаю. я у тебя другое спрашиваю, куда он кликает.?

CHYVAKs · Post by **CHYVAKs** » 2006-04-05 20:50:15

Sory. on klikajet na status >Make Last<

Scripts Writer · Post by **Scripts Writer** » 2006-04-05 20:55:03

в чём выражается этот мейк ласт? кнопка, картинка или че там

CHYVAKs · Post by **CHYVAKs** » 2006-04-05 21:01:51

Menu idet tipo kartinki.
:cry:

blin nereal kakto objasnitj kak eto vigljadit.
Make last: eto tipo knopki v nizu kraft menu.

Scripts Writer · Post by **Scripts Writer** » 2006-04-06 05:41:54

Если работа идёт с картинкой, то для того что бы не сбивалось попробуй использовать гампы. Читай на форуме и в факе, я не особо с ними.

dmitrykit · Post by **dmitrykit** » 2006-04-06 13:17:23

You Must Die

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

Kynep · Post by **Kynep** » 2006-04-06 13:23:39

dmitrykit wrote:You Must Die

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

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

CHYVAKs · Post by **CHYVAKs** » 2006-04-06 18:22:22

Tochno ja zagronichnij, poetomu mne legche pisatj translitom. No jesli budet vam legche mogu popitatsja pisatj i russkim shriftom, prosto doljshe pisatj pridetsja.

CHYVAKs · Post by **CHYVAKs** » 2006-04-06 18:31:00

вот интересно если доб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

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

Scripts Writer · Post by **Scripts Writer** » 2006-04-06 18:32:26

что ты хотел сказать последним постом?

CHYVAKs · Post by **CHYVAKs** » 2006-04-06 18:37:47

ну просто если немножко допис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лся...