Yoko

All sides of Injection
It is currently 2025-12-27 01:31:33

All times are UTC+02:00




Post new topic  Reply to topic  [ 14 posts ] 
Author Message
 Post subject: Alchemy shadr Darkuo
PostPosted: 2006-04-04 19:53:23 
Offline

Joined: 2005-03-16 10:14:15
Posts: 46
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.


Top
   
 Post subject:
PostPosted: 2006-04-04 21:13:08 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
скриптик на самом деле интересный )) -вспомнился пилот гг.

в код ставь

во вторых:
Code:
UO.LClick(486,454)
эт чё такое?


Top
   
 Post subject:
PostPosted: 2006-04-05 19:33:20 
Offline

Joined: 2005-03-16 10:14:15
Posts: 46
UO.LClick(486,454)
eto nazatj miwku v etoi tochke.
u nas na sharde menju kraftovih skilov drugije, poetomu nado obhoditsja Uo.click


Top
   
 Post subject:
PostPosted: 2006-04-05 20:19:54 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
я не дурак и что такое клик знаю. я у тебя другое спрашиваю, куда он кликает.?


Top
   
 Post subject:
PostPosted: 2006-04-05 20:50:15 
Offline

Joined: 2005-03-16 10:14:15
Posts: 46
Sory. on klikajet na status >Make Last<


Top
   
 Post subject:
PostPosted: 2006-04-05 20:55:03 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
в чём выражается этот мейк ласт? кнопка, картинка или че там


Top
   
 Post subject:
PostPosted: 2006-04-05 21:01:51 
Offline

Joined: 2005-03-16 10:14:15
Posts: 46
Menu idet tipo kartinki.
:cry: blin nereal kakto objasnitj kak eto vigljadit.
Make last: eto tipo knopki v nizu kraft menu.


Top
   
 Post subject:
PostPosted: 2006-04-06 05:41:54 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Если работа идёт с картинкой, то для того что бы не сбивалось попробуй использовать гампы. Читай на форуме и в факе, я не особо с ними.


Top
   
 Post subject:
PostPosted: 2006-04-06 13:17:23 
Offline

Joined: 2005-06-12 22:12:15
Posts: 247
You Must Die

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


Top
   
 Post subject:
PostPosted: 2006-04-06 13:23:39 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
dmitrykit wrote:
You Must Die

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


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


Top
   
 Post subject:
PostPosted: 2006-04-06 18:22:22 
Offline

Joined: 2005-03-16 10:14:15
Posts: 46
Tochno ja zagronichnij, poetomu mne legche pisatj translitom. No jesli budet vam legche mogu popitatsja pisatj i russkim shriftom, prosto doljshe pisatj pridetsja.


Top
   
 Post subject:
PostPosted: 2006-04-06 18:31:00 
Offline

Joined: 2005-03-16 10:14:15
Posts: 46
вот интересно если доб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


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


Top
   
 Post subject:
PostPosted: 2006-04-06 18:32:26 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
что ты хотел сказать последним постом?


Top
   
 Post subject:
PostPosted: 2006-04-06 18:37:47 
Offline

Joined: 2005-03-16 10:14:15
Posts: 46
ну просто если немножко допис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лся...


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 14 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 7 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited