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

Нужна помощь....
http://forum.yoko.com.ua/viewtopic.php?f=17&t=11986		 Page 1 of 1
Author:  d1e 4 y0u [ 2007-05-22 04:27:28 ]
Post subject:  Нужна помощь....
Привет всем,нужен очень простой (я так думаю) скриптик
На прокачьку Хеллинга на Улии (под Оском)

Юзал поиск-непомогло...есть скрипты для ДРВ,но их в Топку,на Оскоме не кактит прокачька Хеллинга на Курсе :cry:

Если есть добрые Люди-помогите....
Author:  Ururu [ 2007-05-22 04:45:14 ]
Post subject: 
Вначале напиши что именно от скрипта нужно?
Можно кроме курсы использовать фаер бол, можно второго чара и т.д. Что нужно то??
Author:  $keR [ 2007-05-22 06:15:39 ]
Post subject: 
кто ищет - тот всегда наидет..
ищи, где то был тут..сам на нем качал.. давно правда..
Author:  u0rypT [ 2007-05-22 09:17:34 ]
Post subject: 
Code:
sub healing() 
repeat
repeat
uo.usefromground('0x091A')#Улей
Lag()
until UO.Life < 20
repeat
UO.Exec("bandageself")
wait(8000)
until UO.Life > 139#-1 от макс хп
Lag()
until UO.Dead()
end sub 


sub Lag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(500) 
   until UO.InJournal('backpack') 
end sub


sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
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.Exec('terminate all') 
;UO.Exec('exec autoload') 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub
Author:  d1e 4 y0u [ 2007-05-22 14:04:29 ]
Post subject: 
Ururu wrote:
Вначале напиши что именно от скрипта нужно?
Можно кроме курсы использовать фаер бол, можно второго чара и т.д. Что нужно то??


Я помоему написал - на Улии - или ты не когда невстречял слово "Улий"? :lol:

Тб. чар кликает на улий , пчёлы его кочают,когда у чара ХП меньше 50 он хелиться и так поновой...
Author:  d1e 4 y0u [ 2007-05-22 14:06:41 ]
Post subject: 
3Jlo6Hblu' u0ry®T wrote:
Code:
sub healing() 
repeat
repeat
uo.usefromground('0x091A')#Улей
Lag()
until UO.Life < 20
repeat
UO.Exec("bandageself")
wait(8000)
until UO.Life > 139#-1 от макс хп
Lag()
until UO.Dead()
end sub 




sub Lag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(500) 
   until UO.InJournal('backpack') 
end sub


sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
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.Exec('terminate all') 
;UO.Exec('exec autoload') 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub



Бдагодарю Bum Bam BigloOoO :) :) :) :)


UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) , а в етой строке нада что-то меньят или нет?
Author:  Rivory [ 2007-05-22 14:12:47 ]
Post subject: 
нет
Author:  Tiny [ 2007-05-22 23:09:31 ]
Post subject: 
Если интересно! то хиты до 50 доводить не ндо зачем?
просто тупо долбишЬ 1 раз по улью и хилшся! быстрее, удомнее меньше шанс умереть! точнее не умрешь)
Author:  d1e 4 y0u [ 2007-05-23 05:19:09 ]
Post subject: 
Windows Xp wrote:
Если интересно! то хиты до 50 доводить не ндо зачем?
просто тупо долбишЬ 1 раз по улью и хилшся! быстрее, удомнее меньше шанс умереть! точнее не умрешь)




если есть скриптик то мог бы скинуть
Author:  d1e 4 y0u [ 2007-05-23 05:24:12 ]
Post subject: 
мона сюда ещё всунуть что бы он стамину пил,а то на оскоме она афигеть как падает...а без неё чар зависает и ждёт пока хелл пройдёт...

sub healing()
repeat
repeat
uo.usefromground('0x091A')#Улей
Lag()
until UO.Life < 20
repeat
UO.Exec("bandageself")
wait(8000)
until UO.Life > 139#-1 от макс хп
Lag()
until UO.Dead()
end sub


sub Lag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub


sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
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.Exec('terminate all')
;UO.Exec('exec autoload')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
Author:  u0rypT [ 2007-05-23 11:00:15 ]
Post subject: 
d1e 4 y0u можеш стукнуть - 1748747
Откуда знаеш ? кстате уже играю Wicked'ом.. но сегодня забил)
Author:  Tiny [ 2007-05-23 13:24:37 ]
Post subject: 
d1e 4 y0u wrote:
мона сюда ещё всунуть что бы он стамину пил,а то на оскоме она афигеть как падает...а без неё чар зависает и ждёт пока хелл пройдёт...

куру одеваешь +72 помойму и стамину делаешь 0 или 1 и пашел! и рефрехи не надо)
Author:  d1e 4 y0u [ 2007-05-24 01:52:10 ]
Post subject: 
Windows Xp wrote:
d1e 4 y0u wrote:
мона сюда ещё всунуть что бы он стамину пил,а то на оскоме она афигеть как падает...а без неё чар зависает и ждёт пока хелл пройдёт...

куру одеваешь +72 помойму и стамину делаешь 0 или 1 и пашел! и рефрехи не надо)


если, тебя не затруднит,то мона всё поподробнее описать?
Author:  Tiny [ 2007-05-24 06:26:59 ]
Post subject: 
Вообщем так! делаешь себе статы примерно такие 150Str 70Dex 130Int!
берешь в себя 6-7к бинтов, стаёшь рядом с ульем, одеваешь курсу, одеваешь до тех пор пока DEX не останется 1 или 0 ( я качал оставлял 1)
собсно и всё! Тыкаешь 1-2 раза и хилишся!
Буддешь хилится всегда отменно так как у тебя всегда стамина будет полная 1:1 или 1:0! как то так! удачи в прокачке! если что то не понятно, вдруг ещё чем могу памочь стучи 479128054
Author:  d1e 4 y0u [ 2007-05-25 04:18:01 ]
Post subject: 
Sub main()
repeat
repeat
uo.usefromground('0x091A')
Lag()
until UO.Life < 40
repeat
if uo.stam < 50 then
uo.useobject('0x0F0B')
else
UO.Exec("bandageself")
wait(8000)
end_if
until UO.Life > 109

Lag()
until UO.Dead()
end sub


sub Lag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub


sub Reconnector()
var ReconnectTime, Rflag
ReconnectTime = '0'
Rflag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if Rflag Then
ReconnectTime = MakeTime()
Rflag = 0
endif
Wait(20000) # WorldSave Protection
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.Exec('terminate all')
;UO.Exec('exec autoload')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
Rflag = 1
ReconnectTime = '0'
endif
Until false
end sub



народ в чём трабл???
почему не пашет??
пмшет типо "Эрор Лаин 41"
непойму что не так
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/