Yoko

All sides of Injection
It is currently 2025-11-12 15:04:43

All times are UTC+02:00




Post new topic  Reply to topic  [ 15 posts ] 
Author Message
PostPosted: 2007-05-22 04:27:28 
Offline

Joined: 2007-05-20 01:14:11
Posts: 9
Location: Ireland
Привет всем,нужен очень простой (я так думаю) скриптик
На прокачьку Хеллинга на Улии (под Оском)

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

Если есть добрые Люди-помогите....


Top
   
 Post subject:
PostPosted: 2007-05-22 04:45:14 
Offline
User avatar

Joined: 2007-02-21 20:15:57
Posts: 479
Вначале напиши что именно от скрипта нужно?
Можно кроме курсы использовать фаер бол, можно второго чара и т.д. Что нужно то??

_________________
Шард Антарес
Ururu


Top
   
 Post subject:
PostPosted: 2007-05-22 06:15:39 
Offline
User avatar

Joined: 2006-05-25 23:02:02
Posts: 185
Location: Uoo
кто ищет - тот всегда наидет..
ищи, где то был тут..сам на нем качал.. давно правда..

_________________
kak to tak


Top
   
 Post subject:
PostPosted: 2007-05-22 09:17:34 
Offline
User avatar

Joined: 2004-12-30 18:13:16
Posts: 175
Location: Russia
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

_________________
Design, webdev, coding, c#, php, asp.net, xml, perl, sql, ajax, drawing, illustrating, restoration, photo, photoshop, schedule, pron, guitar, lead-guitar, js, jsp, java, dom, html, *nix, struts, cs, etc


Top
   
 Post subject:
PostPosted: 2007-05-22 14:04:29 
Offline

Joined: 2007-05-20 01:14:11
Posts: 9
Location: Ireland
Ururu wrote:
Вначале напиши что именно от скрипта нужно?
Можно кроме курсы использовать фаер бол, можно второго чара и т.д. Что нужно то??


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

Тб. чар кликает на улий , пчёлы его кочают,когда у чара ХП меньше 50 он хелиться и так поновой...


Top
   
 Post subject:
PostPosted: 2007-05-22 14:06:41 
Offline

Joined: 2007-05-20 01:14:11
Posts: 9
Location: Ireland
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) , а в етой строке нада что-то меньят или нет?


Top
   
 Post subject:
PostPosted: 2007-05-22 14:12:47 
Offline

Joined: 2005-01-06 11:49:28
Posts: 205
нет


Top
   
 Post subject:
PostPosted: 2007-05-22 23:09:31 
Offline
User avatar

Joined: 2007-04-21 14:06:19
Posts: 79
Если интересно! то хиты до 50 доводить не ндо зачем?
просто тупо долбишЬ 1 раз по улью и хилшся! быстрее, удомнее меньше шанс умереть! точнее не умрешь)

_________________
Adept DRW


Top
   
 Post subject:
PostPosted: 2007-05-23 05:19:09 
Offline

Joined: 2007-05-20 01:14:11
Posts: 9
Location: Ireland
Windows Xp wrote:
Если интересно! то хиты до 50 доводить не ндо зачем?
просто тупо долбишЬ 1 раз по улью и хилшся! быстрее, удомнее меньше шанс умереть! точнее не умрешь)




если есть скриптик то мог бы скинуть


Top
   
 Post subject:
PostPosted: 2007-05-23 05:24:12 
Offline

Joined: 2007-05-20 01:14:11
Posts: 9
Location: Ireland
мона сюда ещё всунуть что бы он стамину пил,а то на оскоме она афигеть как падает...а без неё чар зависает и ждёт пока хелл пройдёт...

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


Top
   
 Post subject:
PostPosted: 2007-05-23 11:00:15 
Offline
User avatar

Joined: 2004-12-30 18:13:16
Posts: 175
Location: Russia
d1e 4 y0u можеш стукнуть - 1748747
Откуда знаеш ? кстате уже играю Wicked'ом.. но сегодня забил)

_________________
Design, webdev, coding, c#, php, asp.net, xml, perl, sql, ajax, drawing, illustrating, restoration, photo, photoshop, schedule, pron, guitar, lead-guitar, js, jsp, java, dom, html, *nix, struts, cs, etc


Top
   
 Post subject:
PostPosted: 2007-05-23 13:24:37 
Offline
User avatar

Joined: 2007-04-21 14:06:19
Posts: 79
d1e 4 y0u wrote:
мона сюда ещё всунуть что бы он стамину пил,а то на оскоме она афигеть как падает...а без неё чар зависает и ждёт пока хелл пройдёт...

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

_________________
Adept DRW


Top
   
 Post subject:
PostPosted: 2007-05-24 01:52:10 
Offline

Joined: 2007-05-20 01:14:11
Posts: 9
Location: Ireland
Windows Xp wrote:
d1e 4 y0u wrote:
мона сюда ещё всунуть что бы он стамину пил,а то на оскоме она афигеть как падает...а без неё чар зависает и ждёт пока хелл пройдёт...

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


если, тебя не затруднит,то мона всё поподробнее описать?


Top
   
 Post subject:
PostPosted: 2007-05-24 06:26:59 
Offline
User avatar

Joined: 2007-04-21 14:06:19
Posts: 79
Вообщем так! делаешь себе статы примерно такие 150Str 70Dex 130Int!
берешь в себя 6-7к бинтов, стаёшь рядом с ульем, одеваешь курсу, одеваешь до тех пор пока DEX не останется 1 или 0 ( я качал оставлял 1)
собсно и всё! Тыкаешь 1-2 раза и хилишся!
Буддешь хилится всегда отменно так как у тебя всегда стамина будет полная 1:1 или 1:0! как то так! удачи в прокачке! если что то не понятно, вдруг ещё чем могу памочь стучи 479128054

_________________
Adept DRW


Top
   
 Post subject:
PostPosted: 2007-05-25 04:18:01 
Offline

Joined: 2007-05-20 01:14:11
Posts: 9
Location: Ireland
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"
непойму что не так


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 0 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